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;
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. Perijinan Paspor di Yogyakarta
ReplyDelete