Koneksi ADO pada Delphi

Untuk membuat aplikasi berbasis Database pada delphi, dengan koneksi menggunakan ActiveX Data Object (ADO). 

Pertama kita rancang databasenya, dimana disini kita buat dengan Ms. Access. Misalnya kita buat nama databasenya latihan, dan tabelnya bernama mhs. Seperti pada gambar berikut ini: 

Struktur tabel mhs

Setelah tabel dirancang, kemudian langkah selanjutnya adalah merancang form pada delphi, seperti pada gambar berikut ini:

Pada form diatas masukan beberapa komponen yang diperlukan, diantaranya :

• Dua buah label
• Dua buah DBEdit. Komponen DBEdit berada di Komponen Pallete Data Controls yang dilingkari warna merah, seperti pada gambar di bawah ini:

DBEdit dan DBImage

• DBImage, fungsinya untuk menampilkan foto. DBImage berada di Komponen Palette Data Controls, tepatnya yang dilingkari warna biru.
• Enam Buah BitBtn
• DBNavigator, fungsinya untuk mengarahkan posisi record. DBNavigator berada di Komponen Pallete Data Controls.
• Komponen ADOTable, ADOConnection (ADODB), fungsinya untuk koneksi ke database dan tabel. Komponen tersebut berada pada komponen pallete ADO.
• Komponen Datasource, berada di komponen pallete Data Access.
• Komponen OpenPictureDialog(ExtDlgs), berada di komponen pallete Dialogs.

Langkah-langkah yang harus dilakukan adalah sebagai berikut :

Koneksi DataSource  :

Klik komponen DataSource1 yang sudah ada pada form, kemudian pada Object Inspector, Properties, pada Dataset pilih atau ganti/ketik dengan ADOTable1, seperti yang tampak pada gambar berikut ini :

Koneksi DBEdit  :

Klik komponen DBEdit1 yang sudah ada pada form, kemudian pada Object Inspector, Properties, pada DataSource pilih atau ketikan DataSource1, dan pada DataField pilih atau ganti dengan NPM, seperti yang tampak pada gambar berikut ini :

Klik komponen DBEdit2 yang sudah ada pada form, kemudian pada Object Inspector, Properties, pada DataSource pilih atau ketikan DataSource1, dan pada DataField pilih atau ganti dengan Nama, seperti yang tampak pada gambar berikut ini :

Koneksi DBNavigator  :
Klik komponen DBNavigator1 yang sudah ada pada form, kemudian pada Object Inspector, Properties, pada DataSource pilih DataSource1, seperti tampak pada gambar berikut ini :

Koneksi ADOConnection :

Klik komponen ADOConnection1 yang sudah ada pada form, kemudian pada Object Inspector, Properties, Connection String, klik tombol yang ada titik tiga

setelah tombol tersebut diklik maka akan muncul jendela seperti berikut :

 Klik tombol Build, selanjutnya akan tampil seperti pada gambar berikut ini :

Pada tab Provider pilih Microsoft Jet 4.0 OLE DB Provider, kemudian tekan tombol Next, berikutnya akan tampil seperti gambar berikut ini :

pada gambar diatas pilih select or enter a database name, fungsinya untuk memilih database mana yang akan digunakan. Untuk memilih database tersebut klik tombol titik tiga.

Centang pada Blank Password, kemudian klik tombol Test Connection. Jika sukses maka akan muncul pesan box seperti berikut :

tekan OK.

Koneksi ADOTable :
Selanjutnya klik komponen ADOTable yang sudah ada pada form tersebut, kemudian pada Object Inspector, Properties, Connection, pilih ADOConnection1, sebagaimana yang tertera pada gambar di bawah ini :

Selanjutnya pilih tablename, pilih mhs. Seperti pada gambar di baah ini :

Selanjutnya, Active yang semula False ganti dengan True.

Masukan code berikut ini pada tombol Tambah :

dbedit1.ReadOnly:=false;
dbedit2.ReadOnly:=false;
dbedit1.SetFocus;
ADOtable1.Append;

Masukan code berikut ini pada tombol Simpan :

ADOtable1.post;

Masukan code berikut ini pada tombol Edit :

dbedit1.ReadOnly:=false;
dbedit2.ReadOnly:=false;
dbedit1.SetFocus;
adotable1.Edit;

Masukan code berikut ini pada tombol Browse :

if openpicturedialog1.execute then

begin
  dbimage1.Picture.LoadFromFile(openpicturedialog1.FileName);
end;

Masukan code berikut ini pada tombol Hapus :

if messagedlg('Hapus data ?', mtConfirmation,
[mbYes,mbNo],0)=mryes then ADOtable1.delete;

Masukan code berikut ini pada tombol Selesai :
close;

Jangan lupa atur DBImage-nya, supaya foto yang tampil simetris. Caranya klik pada DBImage1 yang sudah ada pada form,  kemudian pada Object Inspector, Properties, Stretch yang semula False ganti dengan True. Seperti pada gambar di bawah ini :

Jika semuanya sudah selesai, jalankan program. Hasilnya akan tampak seperti pada gambar berikut ini :

Pada latihan ini, pastikan Image yang akan dimasukan harus bertipe atau format .bmp