Halo sobat IT dimana pun berada. Hari ini saya membuat tutorial “Membuat Database Menggunakan Microsoft Access Untuk Delphi 7”. Tutorial ini dibuat berdasarkan pengalaman pribadi dan pembelajaran di jurusan Teknik Informatika. Dalam membuat database ada beberapa langkah yang harus kita ketahui, yaitu:
- Membuat Database di Microsoft Access
- Membuat Desain di Delphi 7
- Mengkoneksikan Database dari Microsoft Access ke Delphi 7
- Menggunakan Perintah Menambahkan atau Mengubah atau Menghapus Database di Delphi 7.
Yang pertama yaitu membuat database di Microsoft Access, berikut langkah-langkahnya:
- Buka Microsoft Access dan buatlah database baru.
- Klik tempat kita menyimpan database, ubahlah formatnya menjadi Microsoft Access Database (Format 2000-2002), kemudian klik Create.
- Buatlah table baru di menu Create.
- Klik kanan pada table yang baru dibuat tadi kemudian klik Design View dan berilah nama table tersebut.
- Isilah field name sesuai dengan keperluan. Kemudian data type harus berupa short text dan sizenya sesuaikan dengan keperluan.
Gambar1. Database
- Klik double pada table, kemudian akan datasheet view akan muncul. Isilah data tersbut sesuai dengan keperluan.
- Simpanlah Microsoft Access dan close.
Yang kedua yaitu membuat desain di Delphi 7, berikut langkah-langkahnya:
- Buka Deplhi 7 dan klik File-Save All. Simpanlah di satu folder dengan database.
- Buatlah desain seperti dibawah ini. Ingat, sesuaikan dengan database kalian. Gunakan label, edit, memo, button, dan DBGrid (Berada di tab Data Controls).
- Klik di form, kemudian di Object Inspector-Events klik double OnShow.
- Kemudian akan muncul kodingan Unit1, di procedure formshow tersebut masukkan kodingan berikut ini:
begin
edit1.Clear; Edit2.Clear; Edit3.Clear; Memo1.Clear;
Edit1.SetFocus;
end;
Yang ketiga yaitu mengkoneksikan database dari Microsoft Access ke Delphi 7, berikut langkah-langkahnya:
- Masukan elemen-elemen berikut ini: ADOConnection, ADOTable (Berada di tab ADO) dan DataSource (Berada di tab Data Access).
- Klik ADOConnection, kemudian di Object Inspector-Properties klik double ConnectionString.
- Ketika muncul windows baru klik Bulid dan pilih Microsoft Jet 4.0 OLE DB Provider.
- Klik Next, kemudian pilihlah lokasi tempat anda menyimpan database.
- Klik Test Connection, jika berhasil akan muncul seperti dibawah ini.
- Di Object Inspector-Properties ADOConnection, ubahlah LoginPromt menjadi false dan Connected menjadi true.
- Klik AdoTable, kemudian di Object Inspector-Properties, klik Connection dan pilihlah ADOConnection yang telah dibuat tadi. Kemudian pilih TableName sesuai dengan nama table di database. Kemudian pilih Active, ubahlah menjadi True.
- Klik DataSource, kemudian di Object Inspector-Properties, klik DataSet dan pilihlah AdoTable yang telah dibuat tadi.
- Klik DBGrid, kemudian di Object Inspector-Properties, klik DataSource dan pilihlah DataSource yang telah dibuat tadi.
- Jika berhasil akan muncul seperti dibawah ini.
Yang terakhir yaitu menggunakan perintah menambahkan atau mengubah atau menghapus database di Delphi 7, berikut langkah-langkahnya:
- Klik double button Simpan. Masukkan kodingan berikut di procedure Simpan:
Begin
ADOTable1.Append;
ADOTable1['Id_Mhs']:=edit1.Text;
ADOTable1['Jurusan']:=edit2.Text;
ADOTable1['Angkatan']:=edit3.Text;
ADOTable1['Alamat']:=Memo1.Text;
ADOTable1.Refresh;
FormShow(sender);
End;
- Klik double button Ubah. Masukkan kodingan berikut di procedure Ubah:
begin
ADOTable1.Edit;
ADOTable1['Id_Mhs']:=edit1.Text;
ADOTable1['Jurusan']:=edit2.Text;
ADOTable1['Angkatan']:=edit3.Text;
ADOTable1['Alamat']:=Memo1.Text;
ADOTable1.Refresh;
FormShow(sender);
end;
- Klik double button Hapus. Masukkan kodingan berikut di procedure Hapus:
begin
ADOTable1.Delete;
ADOTable1.Refresh;
FormShow(sender);
end;
- Klik DBGrid, kemudian di Object Inspector-Events, klik double OnCellClick. Masukkan kodingan berikut di Procedure OnCellClick DBGrid:
begin
edit1.Text:=ADOTable1['Id_Mhs'];
edit2.Text:=ADOTable1['Jurusan'];
edit3.Text:=ADOTable1['Angkatan'];
Memo1.Text:=ADOTable1['Alamat'];
end;
