Membuat Nomor Otomatis Pada Delphi

Saat membuat sebuah project pengolahan data. Pasti teman-teman akan menemukan kasus pembuatan nomor otomatis. Maka kali ini admin akan memberikan sedikit tips sederhana.

Buatlah tampilan project seperti dibawah ini:

Dengan field database

• Nomor
• Nama

kemudian perhatikan code dibawah ini:

1. Pada Tombol Baru

   procedure TForm1.Button1Click(Sender: TObject);
   begin
   Edit1.Text:='ZIT-'+FormatDateTime('yyyy',Now)+
   '-'+IntToStr(ADOQuery1.RecordCount+1);
   end;;
   

2. Pada Tombol Simpan

   procedure TForm1.Button2Click(Sender: TObject);
   begin
   with ADOQuery1 do
   begin
   Append;
   FieldByName('Nomor').AsString:=Edit1.Text;
   FieldByName('Nama').AsString:=Edit2.Text;
   Post;
   Edit1.Text:='';
   Edit2.Text:='';
   Button1Click(Sender);
   end;
   

3. Pada Tombol FormShow

   procedure TForm1.FormShow(Sender: TObject);
   begin
   Button1Click(Sender);
   end;
   

Maka tampilannya akan seperti ini saat dijalankan

Tampilan saat dijalnkan