Modul 10. Membuat Nomor peminjaman secara otomatis pada Form Transaksi Peminjaman Buku pada Delphi 7.0 + MS. Access 2007

Karena project Perpustakaan sebelumnya sudah dibuat dan From peminjaman pun sudah dibuat pada modul 8. Klik disini , maka pada kesempatan ini adalah melengkapi frmpinjam yaitu dengan cara:
Membuat nomor pinjam secara otomatis yang terdiri dari 9 digit yang dihasilkan dengan proses :
Dua digit pertama adalah tahun
Dua digit kedua adalah bulan
Lima digit terakhir adalah nomor urut
Sehingga menghasilkan nomor : 100100001
Adapun langkah-langkahnya adalah :
1. Membuat fungsi rightstr dengan cara mengetikan koding secara langsung diluar procedure di bawah implementation.
// Membuat Fungsi Left, right, mid String
//sumber : Klik disini

view sourceprint?

01

…

02	implementation

03

04	{$R *.dfm}

05	function RightStr

06	(Const Str: String; Size: Word): String;

07

begin

08	if Size > Length(Str) then Size := Length(Str) ;

09	RightStr := Copy(Str, Length(Str)-Size+1, Size)

10

end;

11

12	function MidStr

13	(Const Str: String; From, Size: Word): String;

14

begin

15	MidStr := Copy(Str, From, Size)

16

end;

17

18	function LeftStr

19	(Const Str: String; Size: Word): String;

20

begin

21	LeftStr := Copy(Str, 1, Size)

22

end;

23	//sumber : http://delphi.about.com/cs/adptips1999/a/bltip1099_2.htm

2. Membuat koding pada Form Create sebagai berikut :

view sourceprint?

01	procedure TFrmPinjam.FormCreate(Sender: TObject);

02	var i,nomor: integer;

03	nom,no : string;

04

begin

05

06	//Membuat Nomor peminjaman secara otomatis

07	decodedate(date,Thn,Bln,hari);

08	adoquery5.Close;

09	adoquery5.SQL.clear;

10	adoquery5.SQL.add('Select * from pinjam');

11	adoquery5.open;

12	if adoquery5.RecordCount = 0 then

13	nomor := 1

14

else

15

begin

16	nom := rightstr(inttostr((adoquery5.fields[0].AsInteger)),5);

17	nomor := strtoint(nom) + 1;

18

end;

19

no:='0';

20	for i := 1 to (4 - length(inttostr(nomor))) do

21

begin

22	no := no + '0';

23

end;

24	edit1.text := rightstr(inttostr(thn),2) + rightstr(('0'+inttostr(bln)),2)+no+ inttostr(nomor);

25

26	//untuk menghitung tanggal tempo

27	decodedate(date,Thn,Bln,hari);

28	hari := hari + 5;

29	tanggal := encodedate(thn,bln,hari);

30	edit2.Text := formatdatetime('DD/MM/yyyy',tanggal) ;

31	sg.RowCount :=1;

32	sg.ColCount:=5;

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

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

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

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

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

38

39	sg.ColWidths [0]:=40;

40	sg.ColWidths [1]:=60;

41	sg.ColWidths [2]:=80;

42	sg.Colwidths[3]:=80;

43	sg.colwidths[4]:=60;

44

45

end;