Source Code Membuat Nomor Otomatis di Delphi 7

                                      
    Nomor Otomatis ini banyak kegunaannya, selain bisa mempermudah pengurutan data, nomor ini juga bisa untuk mengantisipasi munculnya pesan error duplicate values in the index / primary key atau adanya primary key yang ganda saat penyimpanan apabila nomor yang di otomatis menjadi primary key di databasenya.

Berikut cara mudah membuat nomor otomatis di delphi 7

Caranya :1. Tulis Procedure Otomatis; di unit.pas di atas tag private.




2. Tekan Ctrl+Shift+C
3.Masukkan source code Nomor Otomatis seperti berikut


procedure TFAnggota.otomatis;
var hasil,no:string;
nilai:string;
i,n:integer;
begin
if modul.ADOTAnggota.RecordCount = 0 then
n:=1 else
begin
modul.ADOTAnggota.Last;
no:=modul.ADOTAnggota['No_Anggota'];
for i:=3 to 6 do
begin
nilai:=nilai+no[i];
n:=StrToInt(nilai)+1;
end;
end;


case length (Trim(IntToStr(n))) of
1: hasil :='A-'+'000'+Trim(IntToStr(n));
2: hasil :='A-'+'00'+Trim(IntToStr(n));
3: hasil :='A-'+'0'+Trim(IntToStr(n));
4: hasil :='A-'+Trim(IntToStr(n));
end;
enoangg.Text:=hasil;
enoangg.SelStart:=length(Trim(hasil));
end;


Keterangan :
ADOTAnggota = Koneksi dengan Table di database access
No_Anggota = field yang ingin dibuat otomatis

4. Pada button tambah isikan procedure otomatis.




5. Selesai.