Delphi 7 - Database (Microsoft Access)

Oke kali ini saya akan melanjutkan penjelasan mengenai bahasa pemrograman Delphi. Pada kesempatan kali ini saya akan menjelaskan Database pada Delphi dengan menghubungkan database pada Microsoft Access ke dalam program database VB, pada program ini saya menggunakan Delphi 7. Berikut adalah desain tampilan programnya :

1. ADO Connection Ada Di Pallete ADO
2. ADOTable Ada di Pallete ADO
3. DataSource Ada di Pallete Data Acces
4. DBNavigator Ada di Pallete Data Control
5. DBGrid Ada di Pallete Data Control

Pada desain form Latihan Database diatas terdapat 5 buah label yaitu Database 1IA16 2013/2014, NPM, NAMA, KELAS, dan ALAMAT. Selanjutnya, terdapat 4 buah Edit yang berfungsi sebagai tempat inputan user untuk mengetikan data, lalu ada 3 buah Button yang masing-masing memiliki fugsi yang berbeda yaitu button RESET untuk menghapus sisa data inputan yang telah diketikan user, SIMPAN untuk menyimpan data yang telah diketikan user, serta EXIT untuk keluar dari program.

Selain itu terdapat juga komponen-kompunen yang dibutuhkan untuk menghubungkan database pada MS. Access ke dalam program delphi yang telah kita buat. Berikut komponen-komponennya, yaitu :

ADO digunakan untuk komunikasi Program dengan Database MS Acces sehingga data yang dibuat dengan MS Acces akan dapat diintegrasikan dengan Delphi.

Data Acces dan BDE banyak berperan pada penentuan sumber data seperti tabel, SQL, query maupun koneksivitasnya. Contoh komponen ini yaitu Table dan Datasource.

Data Control lebih menekankan pada pengaturan data yang terpasang pada aplikasi sepeti

DBLabel, DBNavigator, DBGrid, DBImage, DBMemo, DBEdit, DBCombobox dan lain

sebagainya.

Pertam-tama kita akan membuat database terlebih dahulu. Terdapat banyak cara untuk membuat database dan juga sekarang banyak aplikasi pengolah database seperti Microsoft Access, SQL, dll. Metode untuk membuat database yang saya lakulan kali ini yaitu dengan membuat table database pada Microsoft Access lalu membuat record-record yang akan ditampilkan pada program database delphi.

Berikut adalah langkah-langkah membuat database di Ms. Access :

1. Buka program Ms.Access lalu pilih Blank database.
2. Ketik nama file pada File Name yang terdapat pada sebelah kanan. Lalu klik gambar folder disebelahnya.untuk memilih tempat dimana file database akan disimpan. Pilih save as type nya yaitu Microsoft Access Database (2002-2003 format(*.mdb) atau boleh juga sesuai dengan defaultnya. Lalu OK.
3. Pilih Create
4. Klik tab View dan pilih design view kemudian akan muncul perintah untuk memberi nama tabel pada database tabel saya memberi nama ‘Mahasiswa’, kemudian ketikan record-record apa saja yang ingin ditampilkan, pada program ini saya menampilkan NPM sebagai primary key, lalu NAMA, KELAS, ALAMAT. Selain itu atur juga data type pada masing masing record, disini saya memakai data type Text di setiap record.
5. Save file lalu close Ms. Access nya.

Berikut adalah tampilan tabel dan record-record yang sudah di buat di MS. Access :

Selanjutnya kita akan menghubungkan database yang sudah kita buat di Ms. Acces ke dalam program Delphi. Berikut adalah tahapannya :

1. Pada propertis ADOConnection1 pilih Connection String sehingga muncul tampilan sbb :

• Pilih build yang digunakan untuk membangun sebuah jaringan koneksi yang sudah disediakan ke sebuah database.
• Pada tab provider pilih Microsoft Jet 4.0 OLE DB Provier kemudian klik next

• Selanjutnya masukkan nama database beserta direktorinya yang telah kita buat tadi pada kolom Select or enter a database name, atau jika mau lebih mudah klik [...] untuk mencari direktori database yang kita simpan setelah itu pilih open. Atur juga Password database jika diinginkan.

Klik test connetion, jika muncul dialog box yang berisi Test Connection Succeed maka tandanya database dan Delphi sudah terhubung, pilih OK.

2. Pada propertis ADOTable1

• Pilih Connection menjadi ADOConnection1.
• Pada TableName pilih nama table sesuai dengan nama table pada database Ms.Access yang telah kita buat sebelumnya.
• Setting Active menjadi True.

3. Pada propertis DataSource1

• Ubah DataSet menjadi ADOTable1

4. Pada propertis DBGrid1

• Ubah DataSource menjadi DataSource1

5. Pada propertis DBNavigator1

• Ubah DataSource menjadi DataSource1

Berikut adalah kode yang terdapat pada program tersebut :

1. Button2 (SIMPAN)

procedure TForm1.Button2Click(Sender: TObject);

begin

ADOtable1.Open;

ADOtable1.Append;

ADOtable1.FieldByName('NPM').AsString := Edit1.Text;

ADOtable1.FieldByName('NAMA').AsString := Edit2.Text;

ADOtable1.FieldByName('KELAS').AsString := Edit3.Text;

ADOtable1.FieldByName('ALAMAT').AsString := Edit4.Text;

ADOtable1.Post;

end;

Sintaks diatas adalah sintaks yang berada pada Button SIMPAN, berikut merupakan penjelasan sintaks diatas :

begin

karena delphi menggunakan bahasa yang mirip dengan pascal, maka untuk memulai suatu sintaks atau badan program harus dimulai dengan begin.

ADOtable1.Open;

Merupakan sintaks yang berfungsi sebagai awal yang digunakan dalam menghubungkan antara nama record pada MS. Access dengan Edit yang telah dibuat sebelumnya sebagai penampung inputan dari user.

ADOtable1.Append;

Merupakan sintaks yang berfungsi untuk menambahkan inputan yang dilakukan oleh user melalui Edit.

ADOtable1.FieldByName('NPM').AsString := Edit1.Text;

Berfungsi untuk menjadikan Edit1 sebagai penampung dari data yang akan diinputkan oleh user didalam record NPM yang telah dibuat di Ms. Access sebelumnya dengan tipedata String.

ADOtable1.FieldByName('NAMA').AsString := Edit2.Text;

Berfungsi untuk menjadikan Edit2 sebagai penampung dari data yang akan diinputkan oleh user didalam record NAMA yang telah dibuat di Ms. Access sebelumnya dengan tipedata String.

ADOtable1.FieldByName('KELAS').AsString := Edit3.Text;

Berfungsi untuk menjadikan Edit3 sebagai penampung dari data yang akan diinputkan oleh user didalam record KELAS yang telah dibuat di Ms. Access sebelumnya dengan tipedata String.

ADOtable1.FieldByName('ALAMAT').AsString := Edit4.Text;

Berfungsi untuk menjadikan Edit4 sebagai penampung dari data yang akan diinputkan oleh user didalam record ALAMAT yang telah dibuat di Ms. Access sebelumnya dengan tipedata String.

ADOtable1.Post;

Berfungsi agar data yang telah diinputkan oleh user dapat ditampilkan di dalam DBGrid1 dan disimpan di dalam data sumber yang telah di connectkan sebelumnya di ADOCOnnection1 pada ConnectionString.

2.  Button 1 (RESET)

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

Edit1.SetFocus;

end;

Pada bagian diatas adalah sintaks pada Button RESET, berikut merupakan penjelasan sintaks diatas :

begin

karena delphi menggunakan bahasa yang mirip dengan pascal, maka untuk memulai suatu sintaks atau badan program harus dimulai dengan begin.

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

berfungsi untuk membersihkan layar pada bagian Edit1, Edit2, Edit3, dan Edit4.

Edit1.SetFocus;

Berfungsi untuk menempatkan kursor pada Edit1 setelah user mengklik Button1 (RESET).

3. Edit1, Edit2, Edit3, dan Edit4

procedure TForm1.Edit1Change(Sender: TObject);

begin

Edit1.MaxLength := 8;

end;

Berfungsi untuk membatasi banyak inputan yang akan masukan oleh user, dalam hal ini pada bagian Edit1 (NPM) panjang max inputan yang dapat dimasukkan adalah 8.

procedure TForm1.Edit2Change(Sender: TObject);

begin

Edit2.MaxLength := 25;

end;

Berfungsi untuk membatasi banyak inputan yang akan masukan oleh user, dalam hal ini pada bagian Edit2 (NAMA) panjang max inputan yang dapat dimasukkan adalah 25.

procedure TForm1.Edit3Change(Sender: TObject);

begin

Edit3.MaxLength := 5;

end;

Berfungsi untuk membatasi banyak inputan yang akan masukan oleh user, dalam hal ini pada bagian Edit3 (KELAS) panjang max inputan yang dapat dimasukkan adalah 5.

procedure TForm1.Edit4Change(Sender: TObject);

begin

Edit4.MaxLength := 30;

end;

Berfungsi untuk membatasi banyak inputan yang akan masukan oleh user, dalam hal ini pada bagian Edit4 (ALAMAT) panjang max inputan yang dapat dimasukkan adalah 30.

4. Button 3 (EXIT)

begin

if application.MessageBox

('Yakin akan Keluar dari Program','Konfirmasi Ulang',MB_YesNo)=ID_Yes then

Application.Terminate;

end;

Pada bagian diatas adalah sintaks pada Button EXIT, berikut merupakan penjelasan sintaks diatas :

Berfungsi untuk menampilkan sebuah MessageBox untuk meyakinkan kembali user apakah ingin benar keluar dari program atau tidak dengan kondisi percabangan if..then dan terdapat pilihan Yes atau No, Jika user mengklik ‘Yes’ maka statement dibawah then akan dijalankan yaitu Application.Terminate; Yang berfungsi untuk keluar dari jendela program. Tak lupa pada awal terdapat begin dan diakhir ditutup dengan end;

5. Edit1 -> Event -> OnKeypress

procedure TForm1.EditNumber(Sender: TObject; var Key: Char);

begin

If Not (Key in['0'..'9',#8,#13]) Then

  Key:= #0;

end;

end.

Berfungsi untuk menjadikan edit1 (NPM) hanya dapat diinputkan dengan angka, selain angka (String) user tidak dapat menginputkannya.

end.

Berfungsi untuk menutup akhir dari keseluruhan badan program.

Berikut adalah tampilan Outputnya :

Saya kira sudah cukup jelas penjelasan mengenai program database pada Delphi, semoga postingan ini dapat bermanfaat dan menambah pengetahuan bagi kita dalam memahami bahasa pemrograman Delphi khususnya program database.