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
