Membuat Nomor Otomatis Pada Delphi

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

NomorNama

kemudian perhatikan code dibawah ini:

Pada Tombol Baruprocedure 

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

Pada Tombol Simpanprocedure 

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; Pada Tombol FormShowprocedure 

TForm1.FormShow(Sender: TObject); begin Button1Click(Sender); end; Maka tampilannya akan seperti ini saat dijalankan
Tampilan saat dijalnkan