Membuat form transaksi peminjaman buku

Karena project Prjpustaka sebelumnya sudah dibuat, pada modul 4. Membuat menu, maka pada kesempatan ini adalah melengkapi frmpinjam 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 Transaksi Peminjaman, dan pada name ketikkan frmpinjam.
4. Klik menu View, lalu klik forms dan double klik frmenu, klik Transaksi pada frmmenu, klik peminjaman dan ketikkan :
frmpinjam.show;
5. Klik menu View, lalu klik forms dan double klik frmpeminjam, lengkapi form tersebut seperti gambar berikut :
Gambar 1. Membuat form Transaksi Peminjaman Buku

Catatan :
Form diatas terdiri dari :
Palette DataControl : bblookupcombobox, DBedit
Palette standard : panel, Label, Edit, Button
Palette Additional : StringGrid
Palette ADO : Ado Connection dan ADOquery
Palette DataAcces : DataSource
Palette Win32 : DatetimePicker
6. Mengkoneksikan database dengan menggunakan Adoconnection
Klik ADOconnection 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 frmpinjam.
8. Klik Adoquery1, klik Adoconnection pada proterties: lalu pilih ADOConnection1, dan klik SQL pada properties, lalu ketikkan :
select * From anggota
Dan Klik Active pada properties ganti false menjadi true.
9. Klik Adoquery2, klik Adoconnection pada proterties: lalu pilih ADOConnection1, dan klik SQL pada properties, lalu ketikkan :
select * From Buku
Dan Klik Active pada properties ganti false menjadi true.
Untuk Adoquery3 dan ADOquery4 hanya properties untuk Adoconnection : ADOConnection1.
10. Mengaktifkan DataSource1, yaitu dengan cara klik Datasource1 pada form pinjam, lalu klik Dataset pilih Adoquery1
11. Mengaktifkan DataSource2, yaitu dengan cara klik Datasource2 pada form pinjam, lalu klik Dataset pilih Adoquery2
12. Mengaktifkan DBLookupComboBox1, dengan cara klik DBLookupcombobox1, dan klik listssource : pilih DataSource1, ListField isi dengan IDAnggota, dan untuk keyfield isi dengan IDAnggota.
13. Mengaktifkan DBEdit1, dengan cara klik DBEdit1, lalu klik Datasource pada properties, lalu pilih datasource1 dan datafilednya nama
14. Mengaktifkan DBLookupComboBox2, dengan cara klik DBLookupcombobox2, dan klik listssource : pilih DataSource2, ListField isi dengan IDBuku, dan untuk keyfield isi dengan IDBuku
15. Mengaktifkan DBEdit2, dengan cara klik DBEdit2, lalu klik Datasource pada properties, pilih datasource2 dan datafilednya JudulBuku
16. Mengaktifkan DBEdit3, dengan cara klik DBEdit3, lalu klik Datasource pada properties, pilih datasource2 dan datafilednya Pengarang
17. Mengisi Edit2, dengan cara double klik Edit2 pada form pinjam, ganti events dengan OnKeypress, lalu ketik listing berikut :

1	procedure TFrmPinjam.Edit3KeyPress(Sender: TObject; var Key: Char);

2

begin

3	if not ((key >= '0') and (key <= '9') or (key=#8)) then

4

begin

5

key:=#0;

6	Application.Messagebox('maaf hanya angka','Cek Input',mb_iconstop);

7

end;

8

end;

18. Mengisi Tombol Proses, dengan cara double klik tombol proses lalu ketik listing berikut :

01	procedure TFrmPinjam.Button1Click(Sender: TObject);

02

var

03	i,qty,tot:integer;

04

05

begin

06	sg.RowCount := sg.rowcount+1;

07	sg.cells[1,sg.RowCount-1]:=dblookupcombobox2.text;

08	sg.Cells[2,sg.RowCount-1]:=dbedit2.Text ;

09	sg.Cells[3,sg.rowcount-1]:=dbedit3.Text ;

10	qty:=strtoint(edit3.Text);

11	sg.cells[4,sg.rowcount-1]:=edit3.text;

12

tot:=0;

13	for i:=1 to sg.RowCount-1 do

14

begin

15	tot := tot + strtoint(sg.Cells[4,i]);

16	sg.Cells[0,i]:=inttostr(i);

17

end;

18	edit4.text := inttostr(tot);

19

end;

19. Mengisi tombol Hapus, dengan cara double klik tombol hapus lalu ketik listing berikut : procedure TFrmPinjam.Button5Click(Sender: TObject);
begin
sg.RowCount := sg.rowcount-1;
end;
20. Mengisi tombol Save, dengan cara double klik tombol save lalu ketik listing berikut :

01	procedure TFrmPinjam.Button2Click(Sender: TObject);

02	var i :integer;

03

begin

04	if messagedlg('Yakin akan disimpan',mtinformation,[mbyes,mbno],0)=mryes then

05

begin

06	adoquery4.sql.Clear;

07	adoquery4.sql.add ('insert into pinjam(id_pinjam,id_anggota,tgl_pinjam)values ("'+ edit1.Text +'","'+ dblookupcombobox1.Text +'","'+ datetostr(dt.date) +'")');

08	adoquery4.execsql;

09

10	for i :=1 to sg.RowCount-1 do

11

begin

12	adoquery3.SQL.Clear;

13	adoquery3.sql.add('insert into dpinjam(id_pinjam,id_buku,jumlah) values ("'+ edit1.Text +'","'+ sg.Cells[1,i] +'","'+ sg.cells[4,i] +'")');

14	adoquery3.ExecSQL ;

15

end;

16

end;

17

end;

21. Membuat Koding program pada tombol close, double klik tombol close ketikkan listing berikut :
procedure TFrmpinjam.Button4Click(Sender: TObject);
begin
frmpinjam.Close;
end;
22. Pada form Create (OnCreate) ketik listing berikut :

01	procedure TFrmPinjam.FormCreate(Sender: TObject);

02

begin

03	edit2.text:=datetostr(dt.Date);

04	edit6.Text:=datetostr(dt2.Date);

05	sg.RowCount :=1;

06	sg.ColCount:=5;

07	sg.Cells[0,0]:='No';

08	sg.Cells[1,0]:='Kode Buku';

09	sg.Cells[2,0]:='Judul buku';

10	sg.Cells[3,0]:='Pengarang';

11	sg.Cells[4,0]:='Qty';

12

13	sg.ColWidths [0]:=40;

14	sg.ColWidths [1]:=60;

15	sg.ColWidths [2]:=80;

16	sg.Colwidths[3]:=80;

17	sg.colwidths[4]:=60;

18

19

end;