Membaca File Text dari Delphi

Untuk membaca file Text dari program delphi
berikut adalah script nya

var:

var f1, f2 : TextFile;
ch : string;

Begin

assignfile(f1,'login.txt');
reset(f1);
readln(f1,ch);

MessageDlg(ch, mtWarning, [mbOK], 0);

end;

assignfile(f1,'login.txt'); --> membuka file text dengan nama login.txt
readln(f1,ch); -> membaca file tersebut dan dimasukan ke variabel ch
sehingga cariabel tersebut bisa ditampilkan

terima kasih

Perintah SQL pada Adoquery1 di Delphi

Berikut adalah perintah ADOQuery1 pada Delphi:

adoquery1.Active := false;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from mahasiswa.dbo.Mahasiswa where nim=:nim');
adoquery1.Parameters.ParamByName('nim').Value := edit1.text;
adoquery1.Active := true;


Penjelasan Script:
adoquery1.Active := false;
berfungsi menonaktifkan Component adoquery1

adoquery1.SQL.Clear;
membersihkan/menghapus script sql


adoquery1.SQL.Add('select * from mahasiswa.dbo.Mahasiswa where nim=:nim');
Memasukan script SQL

 adoquery1.Parameters.ParamByName('nim').Value := edit1.text;
Memasukan pasing parameter

adoquery1.Active := true;
 aktifkan component adoquery1


Terima kasih

Tambah Line di RichTextBox

richtextbox.Text = "Line1"  &  Environment.NewLine & "Line2" & Environment.NewLine & "Line3" & Environment.NewLine & "Line4"

Akses Database DBF pada Delphi 6 dengan ODBC.

Pada era tahun 1991, database DBF masih merajai dunia komputer PC, waktu itu programming nya masih menggunakan Foxbase, dBase, Foxpro, sampai Clipper yang rata-rata programming tersebut sudah tidak dikembangkan lagi selain Foxpro yang masih dikembangkan oleh pihak microsoft. Sampai saat ini sudah sampai release Visual Foxpro 9.0
Ada beberapa aplikasi yang masih menggunakan database DBD, padalah aplikasi yang lain sudah mulai migrasi ke database dan program yang baru, pertanyaan nya adalah bagaimana cara akses database DBF dari program delphi dengan menggunakan ODBC.
Pertama, buat sub directory di drive D dengan nama dbDBF, copy semua file DBF anda ke sub directory tersebut.
Kedua Jalankan program Delphi Anda.

Klik ADO pada component Palette

Klik ganda pada ado connection

sehingga di form terdapat ado connection

Sekarang klik ganda pada form ado connection

Klik build

Klik Microsoft OLE DB Provider for ODBC Driver, kemudian klik NEXT

Pada use data source name, pilih dBASE files
pada ENter the initial catalog to use diisi : d:\dbDBF
jika sudah klik test connection, jika berhasil klik OK, kemudian OK kembali.
lantas pada Object Inspector

pada Connected : arahkan ke True
pada LoginPrompt : klik false.
ok sekarang menampilkan tabel DBF nya.
klik ganda pada ADOtable.
pada Object Inspector,
- connection klik ADOConnection1
- table name klik, pilih database DBF anda
- active : true

dengan demikian kita sudah berhasil konek dengan database DBF.

Akses MySQL Dari Delphi

Database MySql adalah database opensource/database gratis, sehingga banyak pemakai dari semua kalangan, berdasar pertimbangan tersebut sengaja saya membuat panduan akses database MySQL dari Delphi 6.

Langkah Pertama.
Install MySQL, boleh lewat WAMP atau program yang lain.
Anda bisa donwload WAMP.

Langkah Dua
Download MyODBC 
Install jika sudah selesai download.

Langkah keTiga
Setting ODBC : klik start, control panel, Administrativ Tool, Data Source ODBC

Klik ADD

Pilih MySQL ODBC

Masukan:
1. Data Source Name
2. Server Name
3. Database name
4. User name
5. Password
Kemudian ,, klik test data Source
Jika berhasil ke langkah Empat

Langkah Empat
Jalankan delphi 6 Anda.

klik Tab ADO
Pilih AdoConnection, dengan cara klik 2x pada gambar ADO
Jika Component ADO sudah ada pada form, lantas klik 2x.

Klik Built

Pilih Microsoft OLE DB Procider for ODBC Drivers
Kemudian Klik NEXT

Masukan USE DATA SOURCE NAME, klik aja pilih nama odbc yang anda buat tadi
Masukan User name dan password nya, kemudian Centang Allow Save Passowrd
Kemudian klik test connection, jika berhasil langsung klik OK. kemudian OK lagi.


Kembali pada form
Klik 2x pada Adoquery
Kemudian pada kolom properties

1. Arahkan pada AdoConnection1
2. Masukan Query anda dalam bentul SQL Text