membuat nomer urut otomatis berdasar tanggal pada delphi

Monday, June 3, 2013

Bagikan :

Tweet

dalam pembuatan aplikasi penjualan atau software minimarket. biasanya kita menggunakan metode pembuatan nomer faktur otomatis agar tidak repot untuk mengetik lagi no fakturnya, berikut adalah contoh pembuatan nomer urut otomatis dengan menggunakan delphi, kode selengkapnya sebagai berikut :
rocedure Tfretur.btnewClick(Sender: TObject);
var
Yr, Mn, Dy : Word;
NextID : String;
begin
DecodeDate(Now, Yr, Mn, Dy);
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('Select retur.noretur');
ADOQuery2.SQL.Add('From retur');
ADOQuery2.SQL.Add('Where Month(retur.tglretur) = ' + inttostr(Mn));
ADOQuery2.SQL.Add('Order by retur.noretur Desc');
ADOQuery2.Open;
NextID := copy(ADOQuery2.Fields[0].AsString, 6, 3);
If NextID <> '' then NextID := FormatFloat('000', strtoint(NextID) + 1)
else NextID := '001';
edretur.text := 'R' + FormatFloat('00', strtoint(copy(inttostr(Yr), 3, 2))) +
FormatFloat('00', Mn) + NextID;
btselect.SetFocus;
semoga mudah dipahami dan dapat membantu terimakasi.

Tag : delphi