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.
Contoh Penggunaanya
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;Untuk cara penggunaanya hanya dengan memanggil function AutoNumber;
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;
Contoh Penggunaanya
procedure TForm1.Button1Click(Sender: TObject);
begin
AutoNumber(AdoQuery1,'tb_barang','kode_barang','BR.',Edit1.Tetx);
end;
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
