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.
