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

Program Aplikasi Perpustakaan dengan Delphi + Ms. Access 2007
Ahmad Rizal Abidin, M.Kom
4checks.com-Free Shipping and Handling on All Personal Checks with code DWF008
Karena project Prjpustaka 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

…
implementation

{$R *.dfm}
function RightStr
    (Const Str: String; Size: Word): String;
begin
  if Size > Length(Str) then Size := Length(Str) ;
  RightStr := Copy(Str, Length(Str)-Size+1, Size)
end;

function MidStr
    (Const Str: String; From, Size: Word): String;
begin
  MidStr := Copy(Str, From, Size)
end;

function LeftStr
    (Const Str: String; Size: Word): String;
begin
  LeftStr := Copy(Str, 1, Size)
end;
//sumber : http://delphi.about.com/cs/adptips1999/a/bltip1099_2.htm

2. Membuat koding pada Form Create sebagai berikut :

procedure TFrmPinjam.FormCreate(Sender: TObject);
var i,nomor: integer;
nom,no : string;
begin

//Membuat Nomor peminjaman secara otomatis
decodedate(date,Thn,Bln,hari);
adoquery5.Close;
adoquery5.SQL.clear;
adoquery5.SQL.add('Select * from pinjam');
adoquery5.open;
if adoquery5.RecordCount = 0 then
  nomor := 1
else
begin
nom := rightstr(inttostr((adoquery5.fields[0].AsInteger)),5);
nomor := strtoint(nom) + 1;
end;
no:='0';
for i := 1 to (4 - length(inttostr(nomor))) do
begin
  no := no + '0';
end;
edit1.text := rightstr(inttostr(thn),2) + rightstr(('0'+inttostr(bln)),2)+no+ inttostr(nomor);

//untuk menghitung tanggal tempo
decodedate(date,Thn,Bln,hari);
hari := hari + 5;
tanggal := encodedate(thn,bln,hari);
edit2.Text := formatdatetime('DD/MM/yyyy',tanggal) ;
sg.RowCount :=1;
sg.ColCount:=5;
sg.Cells[0,0]:='No';
sg.Cells[1,0]:='Kode Buku';
sg.Cells[2,0]:='Judul buku';
sg.Cells[3,0]:='Pengarang';
sg.Cells[4,0]:='Qty';

sg.ColWidths [0]:=40;
sg.ColWidths [1]:=60;
sg.ColWidths [2]:=80;
sg.Colwidths[3]:=80;
sg.colwidths[4]:=60;

end;

@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