Pemrograman Visual dengan Delphi[2] : Akses Table

Artikel berikut merupakan kelanjutan dari artikel sebelumnya tentang program basis data dengan delphi. Pembuatan programdengan nama akses tabel seperti pada gambar membutuhkan komponen yang dapat mengakses database dari MySql. Komponen itu bernama MyDac dan dapat diunduh di internet. Dengan data base MySql, kita buat tabel dan interface dari Borland Delphi untuk mengakses tabel tersebut. Langkah-langkah pembuatannya terurai sebagai berikut. 

Membuat table contoh yang akan digunakan dalam program yang dirancang menggunakan Delphi. Tabel ini nantinya akan dimanfaatkan dalam hal pengisian dan pencarian data melalui interface yang dirancang dengan Borland Delphi. Struktur table seperti berikut ini :

No	Nama Filed	Type Data	Panjang Data	Primary Key
1	Id	Varchar	12	Ya
2	Nama	Varchar	30
3	Alamat	Varchar	50

Setelah table selesai dibuat, untuk melihat cara pembuatan table klik artikel sebelumnya, simpan dengan nama contoh dan dengan nama database test maka selanjutnya klita membuat interface yang akan digunakan untuk mengakse table tersebut. Berikut komponen yang dibutuhkan :

No	Komponen	Properti	Isi Properti	Keterangan
1	From1	Bordersytle Position	bsNone PoScreencenter
2	Panel1	Align Aligment Caption	alTop Center Akses Tabel
3	Panel2	Align Caption	alBottom (dihapus)
4	SpeedButton1	Caption Flat GroupIndex	Baru True 1
5	SpeedButton2	Caption Flat GroupIndex	Simpan True 1
6	SpeedButton3	Caption Flat GroupIndex	Keluar True 1
7	Label1	Caption	NIM
8	Label2	Caption	Nama
9	Label3	Caption	Alamat
10	Edit1	Text	(dihapus)
11	Edit2	Text	(dihapus)
12	Edit3	Text	(dihapus)
13	MySqlDatabase1	DatabaseName Connection	Test                   True
14	MySqlTable1	Database TableName Active	MySqlDatabase1 Contoh True

Selanjutnya kita membuat kode program untuk tombol baru, dengan cara kilk dua kali dan isikan  :

edit1.SetFocus;

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

Kode Program tombol simpan, klik dua kali dan ketikan kode berikut ini :

mysqltable1.Append;

mysqltable1.FieldByName('id').AsString:=edit1.Text;

mysqltable1.FieldByName('nama').AsString:=edit2.Text;

mysqltable1.FieldByName('alamat').AsString:=edit3.Text;

mysqltable1.Post;

kode program tombol keluar, klik dua kali dan ketikan kode berikut ini :  

close;