Cara mengkoneksikan database Access ke Delphi
Disini kita akan
membuat database dari ms access yang di koneksikan ke Delphi.
Pertama buat dahulu databasenya di ms access.Pilih format untuk penyimpanan filenya yaitu Microsoft Access Database(2000 format)(*.mdb). lalu create, Setelah kita buat seperti table dibawah ini, lalu jadikan NPM sebagai primary key dengan tipe datanya number dan nama,kelas,no tlp dengan tipe data text.Lalu kita buat 5 data mahasiswa, lalu save!
Pertama buat dahulu databasenya di ms access.Pilih format untuk penyimpanan filenya yaitu Microsoft Access Database(2000 format)(*.mdb). lalu create, Setelah kita buat seperti table dibawah ini, lalu jadikan NPM sebagai primary key dengan tipe datanya number dan nama,kelas,no tlp dengan tipe data text.Lalu kita buat 5 data mahasiswa, lalu save!
Sesudah menyelesaikan
membuat table di ms acces lalu kita buka Borland Delphi dengan membuat tampilan
seperti gambar dibawah ini.
Disini kita menyisikan:
·
2 label untuk nama Label 1 dan
STATUS ON,
·
1 buah button untuk EXIT, satu buah ADO
Connection,
·
satu buah ADO Table,
·
satu buah DataSource,satu buah
DBNavigator,
·
satu buah DBGrid, dan
·
satu buah timer.
Setelah itu kita klik
Double klik ADOConnectionnya, lalu akan keluar perintah dan kita memilih Use Connection String lalu
pilih Built. Pada pilihan propertis kita pilih Microsoft Jet 4.0 OLE DB
Provider lalu next. Pada pilihan Connection kita menuju select database name
lalu browse ke file dimana kita sudah menyimpan table dari ms.access tadi.
Setelah itu kita klik Test Connection sampai ia keluar seperti ini
Tabel diatas adalah perintah
untuk menentukan jalannya database ini. Pada ADOConnection1 kita klik sekali
lalu akan ada isi detail dari components ini, kita lihat di Objek Inspector
pada propertisnya kita pilih connectionsring lalu ubah valuenya, connected kita
ubah menjadi true, dan login prompt kita ubah menjadi false. Dan pada
components ADOTable1 kita lihat di Objek Inspector pada propertisnya kita pilih
Connection lalu ubah valuenya menjadi ADOConnection1, TableName kita ubah
menjadi Databae, dan active kita ubah menjadi true. Pada DataSource1 kita lihat
di Objek Inspector pada propertisnya kita pilih DataSet lalu ubah menjadi
ADOTable1. Pada DBNavigator kita lihat di Objek Inspector pada propertisnya
kita pilih DataSource lalu ubah valuenya
menjadi Data Source1, pada showhint kita
ubah menjadi true, dan pada DBGrid1 kita lihat di Objek Inspector pada
propertisnya kita pilih DataSoruce lalu ubah valuenya menjadi DataSource1.
Inilah outputnya
setelah kita running.
Dan
pada label status on kita akan membuat tulisan pada label 2 berkedap kedip
menggunakan timer disini kita juga akan menyisipkan listing program didalam
components timer.
Blok statement diatas kita menggunaka percabangan
dari Delphi. Visible berarti terlihat, pada kondisi pertama label 2 tidak akan
terlihat dan pada kondisi kedua label 2 akan terlihat.
selanjutkan kita akan membuat suatu perintah dimana
jika kita merunning program ini akan keluar suatu password, kita telah mengatur
isi password tersebut didalam listing program dibawah ini.
Blok statement diatas
kita mempunyai variabel pass yang memiliki tipe data string. inputBox untuk
memunculkan suatu box jika kita jalankan. If(pass=’sayaadmin’) untuk mengisi
passwordnya, Showmessage untuk menampilkan tulisan selamat datang admin.
messageDlg digunakan jika kita salah mengisi password selain password
sayaadmin.
Terakhir, kita akan membuat Exit di button.
Tujuannya adalah memberikan perintah tampilan box anda yakin keluar? Ya atau
Tidak jika kita klik exit tersebut.
Inilah listing program yang kita masukan kedalam
button exit.
Output pada button exit
0 comments