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.
Disclaimer: gambar, artikel ataupun video yang ada di web ini terkadang berasal dari berbagai sumber media lain. Hak Cipta sepenuhnya dipegang oleh sumber tersebut. Jika ada masalah terkait hal ini, Anda dapat menghubungi kami di halaman ini.