Program Database pada Delphi

Pada artikel ini, kita membuat program database pada Delphi. Untuk membuat program database pada Delphi pertama-tama kita buka Delphi dan buat Desain Form seperti pada gambar dibawah ini :

Desain program diatas dibuat dengan menggunakan beberapa komponen, diantaranya :

• Label            : yang diberi caption/nama “ NAMA, NPM, KELAS”.
• Edit               : yang dibuat untuk memasukan Text atau Angka pada pembuatan Database.
• Button           : yang diberi caption/nama “INSERT”.
• Adotable 
• Adoconnection
• Datasource
• Datagrid

Setelah kita buat desainnya, kemudian bukan ms.access lalu buat database dan buat design view dengan nama sesuai keinginan, sebagai contoh saya beri nama mahasiswa. seperti pada gambar berikut :

Setelah kita buat Database pada ms.access kita kembali ke Delphi, kemudian klik 2x ADOConnectionpada tab Provider pilih Microsoft jet 4.0 OLE DB Provider, seperti pada gambar berikut :

Lalu klik next, kemudian pada select or enter a database name, fungsinya untuk memilih database mana yang akan digunakan. Karena tadi kita buat database dengan nama pada ms.access maka kita pilih/masukan database mahasiswa. 

Kemudian klik test connection dan tekan ok, seperti gambar berikut :

Kemudian kita masuk ke data source klik 2x komponen datasource, kemudian pada object inspector, properties, pada Dataset pilih/ganti dengan ADOTable1, seperti yang tampak pada gambar berikut :

Kemudian kita masuk ke DBGrid, object inspector, properties, pada Data sorce kita pilih/ganti dengan DataSource1 yang sudah tertera seperti gambar berikut :

Kemudian masuk ke properties ADOtable, lalu pada Connection kita pilih ADOCennection1 dan pada Name kita pilih/ganti ADOTable 1, lalu pada Active kita ganti false menjadi true. Seperti pada gambar berikut :

Kemudia klik 2x ADOTable kemudian akan muncul gambar seperti berikut, dan klik ok.

Maka database yang sudah kita buat pada ms.access sudah terkoneksi dengan Delphi dan tampilan akan seperti ini :

Pada gambar diatas ukuran table NPM, NAMA, DAN KELAS masih besar sehingga kita harus scrrol ke samping untuk melihatnya, untuk mengganti ukuran table tersebut kita masuk ke form ADOTable lalu ketik ctrl A untuk membuka database NAMA, NPM, KELAS.  Kemudian klik NPM dan pada menu properties ganti DisplayWidth menjadi 20 atau sesuai keinginan. Lakukan cara berikut pada menu properties NAMA dan Kelas. Rubah juga FieldSize pada ms.access menjadi 20 atau sesuai keinginan. Seperti gambar berikut :

Maka tampilan desain formnya akan menjadi seperti ini :

Terlihat ukuran tablenya sudah berubah.

Kemudian kita buat kode program/kodingannya seperti dibawah ini : 

begin

Adotable1.open;

Adotable1.Append;

Adotable1.fieldbyname('NPM').ASString := Edit1.text;

Adotable1.FieldByName('NAMA').ASString := Edit2.text;

Adotable1.FieldByName('KELAS').ASString := Edit3.text;

Adotable1.Post

end;

Adotable1.open;

Adotable1.Append;

Potongan program ini untuk membuka dan menambahkan pada Adotable untuk membuat database.

Adotable1.fieldbyname('NPM').ASString := Edit1.text;

Adotable1.FieldByName('NAMA').ASString := Edit2.text;

Adotable1.FieldByName('KELAS').ASString := Edit3.text;

Potongan program ini yaitu untuk memasukan database yang akan kita buat yaitu NPM, NAMA, KELAS yang berupa tipe data String . perlu diketahui jika kita mebuat database NPM, NAMA, KELAS huruf capital maka kita di kodingan juda huruf capital. Harus sama antara kodingan dengan database yang sebelumnya kita buat.

Adotable1.Post

Kode program ini untuk menampilkan outputnya sehingga databse yang dibuat bisa keluar outputnya. 

Maka ketika kita membuat database.nya program akan memasukan database pada table database, seperti gambar dibawah ini :

Kemudian kita buat juga button yang diberi caption/nama : “DELETE” dan “UPDATE”

Yaitu digunakan untuk medelete database dan mengupdate atau mengganti datadase yang sudah dibuat. 

Buat kode program lagi untuk DELETE dan INSERT, seperti dibawah ini :

procedure TForm1.Button2Click(Sender: TObject);

begin

Adotable1.Delete;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Adotable1.edit;

Adotable1.fieldbyname('NPM').ASString := Edit1.text;

Adotable1.FieldByName('NAMA').ASString := Edit2.text;

Adotable1.FieldByName('KELAS').ASString := Edit3.text;

Adotable1.Post;

end;

end.

Adotable1.Delete;

Kode program ini untuk menghapus data yang sebelumnya dibuat , ketika kita ketikan program sepeti itu, maka program akan melakukan penghapusan data ketika kita kelik button DELETE.

Adotable1.Post;

Kode program ini untuk mengupdate/mengganti data yang sebelumnya dibuat , ketika kita ketikan program sepeti itu, maka program akan melakukan update/mengganti data ketika kita kelik button UPDATE. Seperti gambar ini :

 selesai !!!