Tutorial Membuat Aplikasi Database Menggunakan Microsoft Access Pada Dhelpy

Ø  Pertama-tama buat database dengan nama dbPerpustakaan

Ø  Trus buat table dengan nama tbBuku

Dengan struktur tabel sebagai berikut

Field	Tipe Data	Size
Kode_Buku	Text	10
Judul_Buku	Text	35
Pengarang	Text	30
Penerbit	Text	35

Buka Aplikas Dhelpy anda trus

Buat aplikasi baru dari menu File>New>Aplication

Desain Form seperti pada tampilan diatas yg berisi 18 komponen sebagai berikut

1. DataSource1

2.ADOTable1

3.DBGrid1

4.Label1

5. Label2

6. Label3

7. Label4

8.DBEdit1

9. DBEdit2

10. DBEdit3

11.DBEdit4

12.Edit1

13.Button1

14.Button2

15. Button3

16. Button4

17. Button5

18. Button6

Ø  Isilah cooding ini pada dgn klik double pada tombol “TAMBAH”

procedure TForm1.Button1Click(Sender: TObject);

begin

ADOTable1.Append;

end;

Ø  Isilah cooding ini pada dgn klik double pada tombol “SIMPAN”

procedure TForm1.Button2Click(Sender: TObject);

begin

ADOTable1.Post;

end;

Ø  Isilah cooding ini pada dgn klik double pada tombol “EDIT”

procedure TForm1.Button4Click(Sender: TObject);

begin

ADOTable1.Edit;

end;

Ø  Isilah cooding ini pada dgn klik double pada tombol “HAPUS”

procedure TForm1.Button5Click(Sender: TObject);

begin

ADOTable1.Delete;

end;

Ø  Isilah cooding ini pada dgn klik double pada tombol “KELUAR”

procedure TForm1.Button6Click(Sender: TObject);

begin

Application.Terminate;

end;

Ø  Isilah cooding ini pada dgn klik double pada tombol “CARI”

procedure TForm1.Button3Click(Sender: TObject);

begin

if ADOTable1.Locate('Kode_Buku',Edit5.Text,[])then

begin

DBEdit1.Text:=ADOTable1['Kode_Buku'];

DBEdit2.Text:=ADOTable1['Judul_Buku'];

DBEdit3.Text:=ADOTable1['Pengarang'];

DBEdit4.Text:=ADOTable1['Penerbit'];

end

else

messagedlg('data tidak ditemukan',mtInformation,[mbok],0)

end;

Ø  Setelah selesai anda memasukkan semua cooding diatas selanjutnya anda jalankan programnya dengan menekan tombol F9

Ø  Dan Hasilnya sebagai berikut

Selamat Mencoba ya kawan-kawan

Salam Sejahtera

Kontak Saya:

Nama: Sabar Adnan

Alamat: Janapria, Lombok Tengah, Nusa Tenggara Barat, Indonesia

E-Mail: sabaradnan2@gmail.com

Facebook: Adnan Loyal

PIN:  53103149