Membuat Database yang disambung ke aplikasi borland delphi.

Berikut langkah-langkah membuat database yang di sambung ke aplikasi borland delphi 7 :

•  Membuat database terlebih dahulu di Ms.Access

• Setelah kita buat database di Ms.Access. sekarang kita buka aplikasi borlan delphi 7.
• Selanjutnya, kita membuat tampilan seperti di bawah ini pada form 1.
• Tombol masuk dan keluar menggunakan button.

Double klik pada form1 lalu kodingannya adalah:

procedure TForm1.FormCreate(Sender: TObject);

var

pass : string;

begin

pass:=inputbox('Selamat Datang','Masukkan Password:','');

if not (pass='justdika’) then

begin

button1.Enabled:=false;

showmessage('Anda Bukan Admin !!!');

end else

label1.caption:='Selamat Datang Admin';

end;

double klik Pada Button1 (caption=’MASUK’) kodingannya adalah :

procedure TForm1.Button1Click(Sender: TObject);

begin

form1.Hide;

form2.show

end;

double klik Pada Button2 (caption=’KELUAR’) kodingannya adalah :

procedure TForm1.Button2Click(Sender: TObject);

begin

application.terminate

end;

• Selanjutnya pada form 2 kita membuat tampilan seperti ini.pada form ini kita menggunakan :
  ADOConnection, DataSource, ADOTable,DBGrid,DBNavigator & label.
  
  

  

double klik pada Button1 (caption=’EXIT’) kodingannya adalah :

procedure TForm1.Button2Click(Sender: TObject);

begin

application.terminate

end;

• Selanjutnya Pada ADOConnection

Klik AdoCennection lalu pada object inspector > klik Connection String.

 lalu muncul kotak dialog lalu klik Build 

 

 lalu Pilih Microsoft Jet 4.0 OLE DB Provider

 

lalu pada Select or enter database name:” cari file database yang telah dibuat di MsAccess > klik Test Connection > OK > Ok > Ok 

Setelah itu kembali lagi pada object inspector ADOConnection1, pada properties Connected ganti valuenya menjadi true lalu muncul kotak dialog > pilih ok

• Selanjutnya Pada ADOTable

Klik AdoTable1 pada Form2 pilih Object Inspector Properties pada Connection pilih ADOConnection1. Lalu pada TableName pilih Table1. Selanjutnya pada Properties Active ganti nilainya dengan True.

• Selanjutnya Pada DataSource

Klik Datasource1 pada Form2 pilih Object Inspector Properties pada DataSet pilih ADOTable1

 

• Selanjutnya Pada DBGrid

Klik DBGrid1 pada Form2 pilih Object Inspector Properties pada DataSource pilih DataSource1.

 

• Selanjutnya Pada DBNavigator

Klik DBGrid1 pada Form2 pilih Object Inspector Properties pada DataSource pilih DataSource1.

 Berikut hasil tampilan saat program dijalankan :

jika anda salah memasukan password akan keluar tampilan seperti dibawah ini :

 jika anda benar memasukan password akan keluar tampilan seperti dibawah ini :

sekian penjelasan dari saya. terima kasih

jangan lupa commentnya yaa !!!