Program Ms Access sebagai aplikasi pembangun basis data bisa dikoneksikan dan dikontrol menggunakan Delphi. Dengan dikontrol Delphi aplikasi basis data bisa dibuat dengan tampilan lebih baik dan dikendalikan validasinya sehingga meminimalisir kemungkinan terjadinya kesalahan (error).
Agar Delphi dan Access bisa terhubung, bisa digunakan komponen ADOConnection dari tab ADO, sedangkan untuk mengakses tabelnya ada banyak teknik, bagi yang sudah terbiasa menggunakan Query bisa memakai ADOQuery, bagi yang belum terbiasa bisa juga menggunakan ADOTable atau ADODataset.
Untuk komponen juga ada bermacam-macam teknik, bisa menggunakan komponen yang sudah diajarkan, atau bisa juga menggunakan komponen yang terhubung langsung dengan basis data, komponen ini terletak pada tab Data Control.
Tiap ADOTable/ADODataset/ADOQuery dihubungkan dengan ADOConnection, sedangkan untuk komponen sebelum dihubungkan dengan ADOTable/ADODataset/ADOQuery harus melalui komponen DataSource yang berada di tab Data Access.
Untuk praktikum 4 akan menggunakan ADOTable dan komponen dari tab Data Control.
4.2 Praktek IV
1. Buat folder Perpus.
2. Jalankan Program Microsoft Access
3. Buat Database Baru
4. Pilih folder tempat meletakkan file tersebut, dalam hal ini letakkan di folder Perpus yang sudah dibuat tadi.
5. Isi nama file database, misalnya DBPerpus kemudian ganti tipe filenya menjadi Microsoft Office Access Databases (2002-2003) format (*.mdb), karena Delphi hanya membaca format *.mdb, kemudian create
6. Klik tombol Design View (untuk membuat table berikutnya bisa klik tab Create lalu pilih Table)
7. Isi nama tabelnya TBuku
8. Isi fieldnya seperti berikut
Field Name jangan menggunakan spasi, Field Size isi dibawah, Description boleh ditulis boleh tidak.
9. Save lalu tutup Microsoft Access.
10. Buka Delphi
11. Untuk memulai mebuat program maka kita harus terlebih dahulu membuat projectnya.
File –> new –> application
12. Kemudian File –> Save Project As.. simpan unit1 menjadi uBuku.pas, unit ini nantinya akan dipakai untuk form master buku, untuk menyimpan project, dan simpan dengan nama Perpus.dpr dan harus satu folder dengan database berada.
13. Menu File -> New -> Data Module -> ganti name menjadi DM
14. Pasang Komponen ADOConnection di Data Module
15. Klik 2x (Double Click) ADOConnection maka akan tampil
16. Klik Build maka akan tampil
Pilih Microsoft Jet 4.0 OLE DB Provider -> Next, ketik nama file database tadi DBPerpus.mdb -> OK, Bisa dicoba Test Connection dulu untuk memastikan bahwa database sudah terkoneksi, jika masih error pastikan Project Delphi berada dalam satu folder dengan file DBPerpus.mdb.
17. Atur Properties pada ADOConnection
Komponen
|
Properties
|
Value
|
Keterangan
|
ADOConection
|
Name
|
CON
|
Mengubah nama menjadi ‘CON’
|
|
Login Prompt
|
False
|
Agar tidak ditanyakan User dan Pass
|
|
Connected
|
true
|
Status ‘Terkoneksi’
|
18. Save, simpan dengan nama UDM.pas
19. Kembali ke Form1, File -> Use Unit (Alt+F11) -> Pilih UDM, ini untuk menghubungkan dengan Data Module yang sudah dibuat tadi, kemudian atur propertiesnya
Komponen
|
Properties
|
Value
|
Keterangan
|
Form1
|
Name
|
FBuku
|
Mengubah nama menjadi ‘FBuku’
|
|
Caption
|
Data Buku
|
Tampil tulisan ‘Data Buku’
|
20. Tambahkan ADOTable (Tab ADO), Data Source (Tab Data Access), 5 buah Label (Tab Standard), 4 DBEdit (Tab Data Controls), 1 DBGrid (Tab Data Controls), 6 Button (Tab Standard)
21. Atur properties dan values-nya
Komponen
|
Properties
|
Value
|
Keterangan
|
ADOTable1
|
Connection
|
DM.CON
|
Menghubungkan dengan ADOConnection (CON) di Data Module (DM), diisi dengan diketik, jika terjadi error buka (Shift+F12) dulu DM nya kemudian kembali ke FBuku
|
|
Name
|
ADOTBuku
|
Mengganti nama
|
|
Table Name
|
TBuku
|
Pilih Table yang akan diakses
|
|
Active
|
True
|
Mengaktifkan table yang diakses
|
DataSource1
|
Name
|
DSBuku
|
Mengganti nama
|
|
DataSet
|
ADOTBuku
|
Menghubungkan dengan ADOTable
|
DBEdit1
|
Name
|
EdKodeBuku
|
Mengganti nama
|
|
DataSource
|
DSBuku
|
Menghubungkan dengan DS
|
|
DataField
|
KodeBuku
|
Memilih Field
|
DBEdit2
|
Name
|
EdJudulBuku
|
Mengganti nama
|
|
DataSource
|
DSBuku
|
Menghubungkan dengan DS
|
|
DataField
|
JudulBuku
|
Memilih Field
|
DBEdit3
|
Name
|
EdPengarang
|
Mengganti nama
|
|
DataSource
|
DSBuku
|
Menghubungkan dengan DS
|
|
DataField
|
Pengarang
|
Memilih Field
|
DBEdit4
|
Name
|
EdTahun
|
Mengganti nama
|
|
DataSource
|
DSBuku
|
Menghubungkan dengan DS
|
|
DataField
|
Tahun
|
Memilih Field
|
DBGrid1
|
Name
|
GBuku
|
Mengganti nama
|
|
DataSource
|
DSBuku
|
Menghubungkan dengan DS
|
Label1
|
Name
|
Status
|
Akan digunakan sebagai pembeda antara ‘Simpan Tambah’ dan ‘Simpan Ubah’
|
|
Visible
|
False
|
|
Label2
|
Caption
|
Kode Buku
|
|
Label3
|
Caption
|
Judul Buku
|
|
Label4
|
Caption
|
Pengarang
|
|
Label5
|
Caption
|
Tahun
|
|
Button1
|
Name
|
bTambah
|
|
|
Caption
|
TAMBAH
|
|
Button2
|
Name
|
bUbah
|
|
|
Caption
|
UBAH
|
|
Button3
|
Name
|
bSimpan
|
|
|
Caption
|
SIMPAN
|
|
Button4
|
Name
|
bHapus
|
|
|
Caption
|
HAPUS
|
|
Button5
|
Name
|
bBatal
|
|
|
Caption
|
BATAL
|
|
Button6
|
Name
|
bTutup
|
|
|
Caption
|
TUTUP
|
|
22. Coba Jalankan (Run/F9), jika terjadi error seperti berikut
Jangan Panik.. Klik OK Kemudian pada menu Run -> Program Reset (Ctrl+F2),
Lalu Project -> Options (Shift + Ctrl + F11)
Geser (Drag) DM ke atas FBuku, kemudian OK, Coba Jalankan Lagi
23. Isi Tombol bTambah : ADOTBuku.append;
24. Isi Tombol bUbah : ADOTBuku.edit;
25. Isi Tombol bSimpan : ADOTBuku.post;
26. Isi Tombol bHapus : ADOTBuku.delete;
27. Isi Tombol bBatal : ADOTBuku.cancel;
28. Isi Tombol bTutup : close;
29. Jalankan