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;
Gan saya pake database MS.Access nieh, ..kodenya yang perlu dirubah dimananya ya Gan..
ReplyDeleteMau tanya gan, kalo pakenya database desktop apa sama kodenya?
Delete