Membuat Aplikasi Database dengan Delphi 7.0

Hanya sekedar catatan kecil untuk mengingatkan diri ini… Semua langkah-langkah yang rumit akan saya jabarkan melalui tulisan ini untuk membuat db pada aplikasi Borland Delphi 7.0. Semoga bisa tersampaikan dengan jelas.

Membuat Database

Terlebih dulu kita buka pilihan Tool – Database Desktop

Lalu Tools – Alias Manager…

Klik New

Database alias :

Driver Type : STANDARD

Path : D:/Folderanda

OK

Jika ada kotak dialog muncul, cukup klik Yes.

Masih di Database Desktop

Buat table dengan:

File – New – Table…

Akan muncul kotak dialog Create Table,  pilih Paradox 7 lalu OK

Beri nama Field – karakter – Size atau ukuran – tentukan primary Key

Field : Nama kolom pada table

Type : jenis karakter huruf, angka atau tanggal money dll.

Size : ukuran

Primary Key : kunci utama yang digunakan untuk mencari sebuah data dengan mengklik 2 kali atau tekan sembarang tombol di keyboard

Selesai klik Save as…

File Name :

Save as Type : (Paradox) .db

Alias : alias tadi

Letakkan di folder tadi

Save

Close dulu DD.nya

Buat Form dan tombol2 seperti di bawah ini

Untuk mengkoneksikan table dengan form:

Klik BDE lalu pilih Table

Klik Data Access – Datasource (Letakkan di sembarang tempat dalam form karena nantinya tidak akan terlihat jika di-RUN

Klik Data Control – DBGrid (Untuk menampilkan table database) 

Letakkan dimana saja terserah anda.

Klik pada Table

Pengaturan table:

Name : tphuni

Database Name : aliasmu (TRY)

Table Name : tkos.db (tabelmu tadi)

Active : True

Klik Datasource : Dataset : tphuni

DBGrid – Datasource : Datasource1

Maka table akan keluar, jika pengaturan anda benar.

Lalu kita buat script untuk tombol simpan:

Klik dua kali tombol simpan ( tombol Simpan untuk menyimpan inputan kita ) lalu ketikkan script ini:

procedure TForm1.bsimpClick(Sender: TObject);

begin

tphuni.Append;

tphuni['No_kamar']:=enokamar.Text;

tphuni['Nama']:=enama.Text;

tphuni['Alamat']:=ealamat.Text;

tphuni.Post;

end;

Untuk mengatur fungsi tombol batal yaitu untuk membersihkan doble klik lalu ketikkan:

procedure TForm1.bbtlClick(Sender: TObject);

begin

enokamar.Text:='';

enama.Text:='';

ealamat.Text:='';

end;

Tombol edit yaitu untuk mengedit konten sebelumnya kita simpan, ketikkan:

procedure TForm1.beditClick(Sender: TObject);

begin

tphuni.Append;

tphuni['No_kamar']:=enokamar.Text;

tphuni['Nama']:=enama.Text;

tphuni['Alamat']:=ealamat.Text;

tphuni.Post;

tphuni.ApplyUpdates;

tphuni.Active:=False;

tphuni.Active:=True;

ShowMessage('Data sudah tersimpan');

end;

Untuk menghapus konten, isikan script ini pada tombol hapus:

procedure TForm1.bhpsClick(Sender: TObject);

begin

tphuni.Delete;

end;

Keluar :

procedure TForm1.bkelClick(Sender: TObject);

begin

Close;

end;

Button cari, untuk mencari data yang ada pada database:

procedure TForm1.bcariClick(Sender: TObject);

begin

if

tphuni.Locate('No_kamar',enokamar.Text,[loCaseInsensitive]) then

begin

 enokamar.Text:=tphuni['No_kamar'];

 enama.Text:=tphuni['Nama'];

 ealamat.Text:=tphuni['Alamat'];

 ShowMessage('Data ditemukan');

 bsimp.Enabled:=False;

end

else

 ShowMessage('Data tidak Ditemukan');

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

enokamar.Text:='';

enama.Text:='';

ealamat.Text:='';

end;

end.