Tutorial menggunakan ADOconection dalam program Delphi

Membuat Database Tersambung Dengan Program Delphi Menggunakan ADOconection

Pertama buat aplikasi menggunakan komponen sebagai berikut : 1 buah ADOConnection, 1 buah ADOTable, 1 buah Datasource, 1 buah DbNavigator dan 1 buah DbGrid. Kira-kira seperti dibawah ini .

Selajutnya pada objek Inspektor ganti propertiesnya sesuai dengan table dibawah ini :

Untuk conectionString pada ADOConection1 pertama-tama yang kita lakukan adalah :
1. Pada objek Inspektor dari ADOConnection1 pada bagian conection String klik tanda titik-titik (…) yang akan memunculkan pop-ups dibawah ini

2. Klik pada tombol Build .

3. Akan muncul datalink properties , di sini kita akan memilih provider yang akan menghubungkan antara data base dan program yang kita buat , Disini kita memilih Microsoft Jet 4.0 OLE DB Provider lali Next.

4. Pada Tab Connection kita akan memilih Database mana yang akan kita hubungkan dengan program kita . dengan menklik pada tombo titik-titik (…) , Setelah memilih kita klik Test Connection pada bagian bawah.

5. Jika muncul pemberitahuan “Test Connection Succeeded” maka data base bisa untuk dihubungkan .

6. Setelah kita Klik OK dan kita setting setiap komponen lain sesuai table yang ada diatas sebelumnya maka tampilan program kita akan berubah kira-kira seperti dibawah ini.

7. TADA , Data base kita sudah terhubung dengan program yang kita buat
Sebagai tambahan kita akan membuat sebuah pop-ups password saat kita membuka program kita. Pertama kita klik dua kali pada form1 . lalu ketikan perintah
procedure TForm1.FormCreate(Sender: TObject);
var
Pass:String;
begin
Pass:=InputBox('Admin','Masukkan Password : ','Password Here');
If not(Pass='1234')then
begin
label1.Caption:='Welcome Other';
MessageDlg('Anda Bukan Admin',mtWarning,[mbYes],0);
end
else
begin
label1.Caption:='Welcome Administrator';
ShowMessage('Selamat Datang Admin');
end
end;
Makan saat kita menjalankan program akan muncul pop-ups seperti dibawah ini

Perintah diatas digunakan untuk memunculkan Input box menggunakan perintah Pass:=InputBox('Admin','Masukkan Password : ','Password Here');
Dari Perintah tersebut kita bisa membuat sebuah pemberitahuan untuk melakukan input sebelum masuk kedalam program kita lalu dengan perintah percabangan
If not(Pass='1234')then
begin
label1.Caption:='Welcome Other';
MessageDlg('Anda Bukan Admin',mtWarning,[mbYes],0);
end
else
begin
label1.Caption:='Welcome Administrator';
ShowMessage('Selamat Datang Admin');
End
Disana kita bisa membuat percabangan jika kita memasukan password yang benar maka kita akan masuk sebagai “Admin”
Selanjutnya kita akan membuat sebuah tombol keluar , setelah kita membuat sebuah button lalu kita klik dua kali pada button tsb . Kita masukan perintah
procedure TForm1.Button1Click(Sender: TObject);
begin
if MessageDlg('yakin keluar neh?',mtConfirmation,[mbYes]+[mbNo],0)=mrYes
then
Application.Terminate;
end;
Maka dari perintah itu akan muncul sebuah pop-ups seperti

Perintah diatas adalah untuk memanggil sebuah Message dialog dimana jika kita mengklik pilihan “Yes” maka program akan dimatikan dan jika “No” maka akan kembali lagi ke program.