Pertama buatlah database dengan nama sembarang
kemudian ketikan nama difield yang di inginkan. Di sini kita akan membuat field
Nama, NPM, Jurusan, dan Kelas. Buatlah seperti gambar di bawah.
Kalau sudah membuat
databasenya kita save dengan sama sembarang . di sini saya save dengan nama
table ‘Maha’ dan nama database ‘roto’. Kalau sudah kita close saja Ms
accessnya. Sekarang kita akan lanjut membuat program database pada Delphi. Buka
Delphi dengan cara klik Start – All Program – Borland Delphi – Delphi 7 atau
bias mengklik dua kali ikon yang terletak di desktop jika ada
Kalau sudah kita akan membuat form
login terlebih dahulu.
Buatlah seperti form
berikut :
·
Ubah caption label1 menjadi : Login Database
·
Ubah caption label2 menjadi : Username
·
Ubah caption label3 menjadi : Password
·
Kosongkan text pada edit1 dan edit2
·
Ubah caption button1 menjadi : PROSES
Lalu masukan kodingan berikut supaya program berjalan
dengan lancara pada saat program tersebut kita run
Untuk if jika kita mengetikan username dengan nama SALMAN
dan password dengan nama SUNGKAR maka setelah di tekan button akan muncul pesan
bahwa login sukses. Untuk else jika
username dan password yang di ketikan berbeda maka akan muncuk bahwa password
yang di ketikan salah
Form1.hide di maksudkan untuk menyembunyikan form1 dan
form2.show adalah untuk memunculkan form2 ketika button di tekan. Dimana form1
ini merupakan form password jadi saat kita memasukan username dan password maka
program akan berlanjut pada form2.
Untuk button 2 ini menggunakan
Application.Terminate; untuk keluar dari
program pada saat kita menekan tombol exit
Selanjutnya
adalah untuk membuat form2 di mana form2 ini merupakan form database yang
merupakan inti dari program yang kita buat. Buatlah form dengan menggunakan :
- AdoConnection
- ADOTable
- DataSource
- DbNavigator
- DbGrid
Buatlah
tampilan formnya seperti gambar berikut
Lalu ubahlah :
Kemudian
Pada ADOConnection , kita atur di object
inspector:
# ConnectionString >> Klik Build
# Connected >> ubah menjadi
True.
# Connection >> pilih
ADOConnection1.
# TableName >> pilih nama tabel
yang tadi dibuat.
# Active >> ubah
menjadi True.
# DataSet >> pilih ADOTable1
# DataSource >> pilih DataSource1
# ShowHint >> ganti menjadi True
# DataSource >> pilih DataSource1
Kemudian pada form Data Link Properties pilih
Microsoft Jet 4.0 OLE DB Provider kemudian klik ok
Kemudian
klik dan masukan database yang telah
kita buat tadi lalu klik open.
Jika sudahlah kliklah test Connection dan
jika sukses akan muncul tulisan successfull. Tetapi
jika error, periksa lagi file databasenya dan yakinkan bahwa microsoft access
telah ditutup.
# LoginPrompt >> ubah menjadi False.
# Connection >> pilih ADOConnection1.
# TableName >> pilih nama tabel yang tadi dibuat.
# Active >> ubah menjadi True.
# DataSet >> pilih ADOTable1
# DataSource >> pilih DataSource1
# ShowHint >> ganti menjadi True
# DataSource >> pilih DataSource1
# Connected >> ubah menjadi True.
# LoginPrompt >> ubah menjadi False.
# Connection >> pilih ADOConnection1.
# TableName >> pilih nama tabel yang tadi dibuat.
# Active >> ubah menjadi True.
# DataSet >> pilih ADOTable1
# DataSource >> pilih DataSource1
# ShowHint >> ganti menjadi True
# DataSource >> pilih DataSource1
# Connected >> ubah menjadi True.
Jika pengaturan object inspector telah di lakukan maka
akan seperti gambar di bawah ini