Membuat Auto Number Dengan Delphi

Sudah lama sekali blog ini tak tersentuh, mumpung ada waktu luang dan bingung mau ngapain mending berbagi ilmu ni. Sedikit tips dari saya bagaimana membuat functio auto number dengan delphi,  biasanya sering digunakan dengan penomoran otomatis untuk sebuah kwitansi ataupun nomer yang diharuskan unik.



Oke.... Disudahi basa basinya. langsung saja ke intinya.
Sebelumnya para pengguna delphi harus tau syarat-syarat membuat function. Kalo belum tau  bisa tanya langsung ke eyang google.

function AutoNumber(Q:TAdoQuery;table,key,kode:String;edit:TEdit):String;
var
  nomer:Integer;
  Kd:String;
begin
  with Q do
  begin
    Close;
    SQL.Text:='select * from '+table+'';
    Open;
  end;
  if Q.RecordCount = 0 then nomer:=1 else
  if Q.RecordCount > 0 then
  begin
    with Q do
    begin
      Close;
      SQL.Text:='select max(right('+key+',10)) as kd from '+table+'',True);
      Open;
    end;
      nomer:=Q.FieldByName('kd').AsInteger + 1;
  end;
  kd:=inttostr(nomer);
  kd:=Copy('0000000000'+kd,length('0000000000'+kd)-9,10);
  edit.text :=kode+kd;
end;

Untuk cara penggunaanya hanya dengan memanggil function AutoNumber;
Contoh Penggunaanya

procedure TForm1.Button1Click(Sender: TObject);
begin
    AutoNumber(AdoQuery1,'tb_barang','kode_barang','BR.',Edit1.Tetx);
end;

Posted by Albathn

Tweet