Wednesday, January 4, 2012

Cara Membuat Auto Number/Nomor Otomatis

Double klik pada tombol tambah/baru atau tombol yang mengindikasikan untuk menambahkan data.
Kemudian tulis script dibawah ini, ubah sesuaikan dengan form yang anda buat.

procedure Tbengkel.BitBtn1Click(Sender: TObject);
var id, idjadi, nol:string;
begin
  Edit1.Text:='';
       Edit1.Enabled:=false;
       Edit2.Text:='';
       Edit3.Text:='';
       Edit4.Text:='';
       Edit5.Text:='';
       Edit6.Text:='';
       Edit7.Text:='';
       Edit8.Text:='';
nol:='00';

with datamodule2.ADOQuerybengkel do
begin
 datamodule2.ADOQuerybengkel.SQL.Clear;
datamodule2.ADOQuerybengkel.SQL.Add('select * from bengkel order by id_bngkl');
datamodule2.ADOQuerybengkel.Open;

    if Recordcount > 0 then
    begin
    last;
    id:=FieldByname('id_bngkl').AsString;
    idjadi:=RightStr(id,2);
    id:=Inttostr(Strtoint(idjadi)+1);
    idjadi:='BKL'+LeftStr(nol,2-length(id))+id;
    Edit1.Text:=idjadi;
    end else
    begin
    Edit1.Text:='BKL01';
    end;
end;

end;


1 comment:

  1. Gan saya pake database MS.Access nieh, ..kodenya yang perlu dirubah dimananya ya Gan..

    ReplyDelete