Program Aplikasi Perpustakaan dengan Delphi + Ms. Access
Ahmad Rizal Abidin, M.Kom
Karena project Prjpustaka sebelumnya sudah dibuat, pada modul 4. Membuat menu, maka pada kesempatan ini adalah melengkapi frmanggota yaitu dengan cara:
1. Mengaktifkan Delphi 7.0 dengan cara, klik Start, Klik All Program, Klik Borland Delphi 7, Klik Delphi 7.
2. Klik menu File, klik Open Project, tentukan folder tempat anda menyimpan project PRjpustaka, lalu klik prjpustaka dan klik open
3. Klik Menu file, Klik New, klik form, ganti caption pada properties dengan Input Data Anggota, dan pada name ketikkan frmanggota.
4. Klik menu View, lalu klik forms dan double klik frmenu, klik file pada frmmenu, klik anggota dan ketikkan :
frmanggota.show;
5. Klik menu View, lalu klik forms dan double klik frmanggota, lengkapi form tersebut seperti gambar berikut :
Gambar 1. Membuat form anggota
Catatan :
Form diatas terdiri dari :
Palette standard : Label, Edit, Button dan RadioGroup (items diisi dengan laki-laki dan perempuan, column diisi dengan 2)
Palette Data controls : DBGrid
Palette ADO : Ado Connection
Palette DataAcces : DataSource
Palette Win32 : DatetimePicker
6. Mengkoneksikan database
Klik ADOQuery1 pada Form, klik ConnectionString (…), klik Build, Klik Microsoft Office 12.0 Acces Database Engine OLEDB Provider (untuk office 2007) tetapi kalau menggunakan office XP dapat dipilih Microsoft jet OLEDB 4.0, test connection
Dan klik next, pada data source ketikkan : D:\perpustakaan\perpustakaan.accdb, dan yang terakhir klik test connection.
Gambar 2. mengkoneksikan Database M. Access
7. apabila test connection tampil keterangan tes connection succeeded, maka koneksinya sudah benar, tutup semua windows koneksi dengan cara klik OK. kembali ke frmanggota.
8. Masih pada Adoquery1, klik SQL pada properties, lalu ketikkan :
select * From anggota
Dan Klik Active pada properties ganti false menjadi true.
9. Mengaktifkan DataSource, yaitu dengan cara klik Datasource pada form anggota, lalu klik Dataset pilih Adoquery1
10. Mengkoneksikan DBGrid dengan Data, yaitu dengan cara klik DBGrid, lalu klik Datasource dan pilih datasource1
11. Membuat koding pada pada radiogroup dengan cara dauble klik radiogroup lalu ketik listing berikut :
procedure TForm2.RadioGroup1Click(Sender: TObject); begin if radiogroup1.ItemIndex = 0 then jenis := 'L' else jenis := 'P'; end;
12. Membuat Koding program pada tombol Insert, double klik tombol insert ketikkan listing berikut :
procedure TFrmanggota.Button1Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.clear;
adoquery1.SQL.Add ('insert into anggota(idanggota,nama,tgl_lhr,jenis) values ("'+ edit1.text +'","'+edit2.text+'","'+jenis+'","'+datetostr(datetimepicker1.date)+'")');
adoquery1.ExecSQL;
adoquery1.SQL.Clear;
adoquery1.SQL.add('Select * from anggota');
adoquery1.Open;
edit1.text =’’;
kosong;
end;
13. Membuat Koding program pada tombol update, double klik tombol update ketikkan listing berikut :
procedure TFrmanggota.Button2Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('update anggota set nama ="'+ edit2.Text +'", jenis="'+ jenis +'", tgl_lhr =”’+ datetostr(datetimepicker1.date) +’” where id_anggota ="'+ edit1.Text +'"');
adoquery1.ExecSQL;
adoquery1.SQL.clear;
adoquery1.SQL.Add('Select * from anggota');
adoquery1.Open;
edit1.text =’’;
kosong;
end;
14. Membuat Koding program pada tombol Delete, double klik tombol delete ketikkan listing berikut :
procedure TFrmanggota.Button3Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('delete from anggota where idanggota ="'+ edit1.Text +'"');
adoquery1.ExecSQL;
adoquery1.SQL.clear;
adoquery1.SQL.Add('Select * from anggota');
adoquery1.Open;
edit1.text =’’;
kosong;
end;
15. Membuat Koding program pada tombol close, double klik tombol close ketikkan listing berikut :
procedure TFrmanggota.Button4Click(Sender: TObject); begin frmanggota.Close; end;
16. Membuat koding untuk filter pada edit1, apabila dimasukkan data dan ternyata data tersebut sudah ada maka akan ditampilkan datanya tetapi kalau belum ada maka kursor akan bergerak ke edit2. adapun caranya adalah klik edit1, lalu klik Events pada object inspector dan double klik pada Onkeypress, lalu ketik listing berikut :
procedure TFrmanggota.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('select * from anggota where idanggota ="'+ edit1.Text +'"');
adoquery1.open;
if not adoquery1.Eof then
begin
edit2.Text := adoquery1.Fields[1].AsString;
edit3.Text := adoquery1.Fields[2].AsString;
if adoquery1.Fields[3].AsString = 'L' then
radiogroup1.ItemIndex :=0
else
radiogroup1.ItemIndex :=1;
datetimepicker1.DateTime := adoquery1.Fields[4].AsDateTime;
end
else
edit2.SetFocus;
end;
end;
17. Membuat procedure kosong, ketik listing berikut :
procedure TFrmanggota.kosong(); begin edit2.text :=''; end;
18. Pada form Active (OnActive) ketik listing berikut :
procedure TFrmanggota.FormActivate(Sender: TObject); begin edit1.text =''; kosong;
@Ahmad
Selamat MEncOba…
Materi yang berhubungan :
Modul 1. Dasar Pemograman Delphi 7
Modul 2. Alur Program Delphi 7.0
Modul 3. Membuat Database dengan Menggunakan Microsoft Acces 2007
Modul 4. Membuat Menu Pada Delphi 7.0
Modul 5. Membuat Form Penerbit pada Delphi 7.0
Modul 6. Membuat Form Anggota pada Delphi 7.0
Modul 7. Membuat Form Buku pada Delphi 7.0
Modul 8. Membuat Form Transaksi Peminjaman Buku pada Delphi 7.0
Modul 9. Membuat Form Transaksi Pengembalian Buku pada Delphi 7.0 + MS. Access 2007
Modul 10. Membuat Nomor peminjaman secara otomatis pada Form Transaksi Peminjaman Buku pada Delphi 7.0 + MS. Access 2007
Modul 11. Membuat Report dengan Rave
Modul 12. Membuat Report dengan Rave + Delphi 7
Filed under: Delphi | 2 Comments »
My Family
ahmadrizal.wordpress.com 