Cara Membuat Nomor Otomatis Dengan Delphi

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

1. Buatlah tampilan project seperti dibawah ini:



Contoh database download disini atau anda bisa membuat database dengan Microsoft Acces dengan field database
1. kode
2. no_surat
3. tgl_surat
4. pengirim
5. isi_rinkas
6. tgl_terima
2. Setelah proses desain selesai klik button Tambah kemudian tulis kode berikut:

procedure TForm1.Button1Click(Sender: TObject);
var
    kd:string;
    no_urut:string;
    i:integer;
begin
  kd:='-'+FormatDateTime('yyyy',DateTimePicker2.Date);
begin
  With AdoQuery1 do
  begin
  close;
  SQL.Clear;
    SQL.Add('Select Max(left(kode, 4)) from tbsurat ' +
    'Where right(kode, 5) = ' + QuotedStr(kd) + ';');
    Open
  end;
// jika kode sudah over maka...
If AdoQuery1.Fields[0].AsString='' then
  no_urut:='0001'
    else
      If AdoQuery1.Fields[0].AsString='9999' then
      MessageDlg('Hufff... Data penuh!!',mtError,[mbOk],0)
    else
  no_urut:=IntToStr(AdoQuery1.Fields[0].AsInteger+1);
If length(no_urut)<4 then
begin
  for i:=length(no_urut) to 3 do
  no_urut:='0'+no_urut;
end;
Edit1.Text:=no_urut+kd;
end;

3. Klik tombol button2 (tombol Simpan) dan masukan kode berikut:

procedure TForm1.Button2Click(Sender: TObject);
begin
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add('insert into tbsurat values ('+
          QuotedStr(edit1.Text)+','+QuotedStr(edit2.Text)+','+
          QuotedStr(FormatDateTime('yyyy-MM-dd', DateTimePicker1.Date))+','+
          QuotedStr(edit3.Text)+','+QuotedStr(edit4.Text)+','+
          QuotedStr(FormatDateTime('yyyy-MM-dd', DateTimePicker2.Date))+')');
AdoQuery1.ExecSQL;
end;

4. Selanjutnya pada event OnShow masukan kode berikut:

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

5. Terakhir, jalan kan program dengan menekan tombol F4 pada keyboard atau melalui menu|Run. Jika tidak terjadi error maka akan tampil program seperti di bawah ini.
 

6. Source code bisa download disini