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

Tutorial Membuat Data Mahasiswa

1. Langkah pertama buatlaha database dengan nama  Db_Mahasiswa  menggunakan Microsoft Access

2. Langkah kedua buat tabel dengan nama Tabel_Mahasiswa dengan field-field sebagai berikut

3. Langkah ketiga desain

 

No	Komponen	Properti	Nilai
1	ADOConection1	Conection String Conected Login Prompt	..... True False
2	ADOTable1	Conection Table Name Active	ADOConection1 Tabel_Mahasiswa True
3	DataSource1	Data Set	ADOTable1
4	DBGrid1	DataSource	DataSource1
5	DBNavigator	DataSource	DataSource1
6	Button1	Caption	Simpan
7	Button2	Caption	Resset
8	Label1	Caption	Nama
9	Label2	Caption	Nim
10	Label3	Caption	Kelas
11	Label4	Caption	Jurusan
12	Edit1	Text
13	Edit2	Text
14	Edit3	Text
15	Edit4	Text

4. Langkah selanjutnya buat form1 dan desai sesuai aba-aba diatas seperti contoh gambar dibawah          ini

5.a.  selanjutnya double click pada button dengan caption “RESET”

          Dan masukkan cooding ini

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Edit4.Text:='';

end;

  b. selanjutnya double click pada button dengan caption “SIMPAN”

       Dan masukkan cooding ini

procedure TForm1.Button2Click(Sender: TObject);

begin

ADOTable1.Open;

ADOTable1.Append;

ADOTable1.FieldByName('nama').AsString:=Edit1.Text;

ADOTable1.FieldByName('nim').AsString:=Edit2.Text;

ADOTable1.FieldByName('kelas').AsString:=Edit3.Text;

ADOTable1.FieldByName('jurusan').AsString:=Edit4.Text;

ADOTable1.Post;

end;

6.  Setelah anda selesai memasukkan cooding diatas baru anda run program tersebut dgn   menggnakan F9

7. Dan hasilnya seperti gambar di bawah ini