Nah sekarang ada yg bertanya masalah kode otomatis,
Siapkan project dng satu Button dan satu Edit.box
Lalu pada button click tuliskan listing berikut :
Klik Like/share jika anda menyukai tulisan Share
Siapkan project dng satu Button dan satu Edit.box
Lalu pada button click tuliskan listing berikut :
- var
- kd,st,newKd :string;
- i,n :integer;
- begin
- DataModule1.ZQuery6.Last;
- if not(DataModule1.ZQuery6.eof and DataModule1.ZQuery6.Bof) then
- begin
- kd:=DataModule1.ZQuery6.FieldByName('tccode').AsString;
- // auto generate
- for i:=1 to 5 do
- st:=st+kd[i+1];
- n:=strtoint(st)+1;
- case length(inttostr(n)) of
- 1 : newKd:='CLR0000'+inttostr(n);
- 2 : newKd:='CLR000'+inttostr(n);
- 3 : newKd:='CLR00'+inttostr(n);
- 4 : newKd:='CLR0'+inttostr(n);
- 5 : newKd:='CLR'+inttostr(n);
- end;
- end
- else newKd:='CLR00001';
- edkode.Text:=newKd;
Klik Like/share jika anda menyukai tulisan
3 komentar on Kode Otomatis (autonumber) Di Delphi :
Mantap nih baru.....
tapi kalo bisa disertain sama source codenya masbro,.
Keep Strife to be the best
source code dicari dulu ya...bekasi materi periode kemarin masbro :D
Saya punya data seperti ini
id baris ke-1 "SJ000001"
baris ke-2 "SJ000002"
baris ke-3 "SJ000003"
Jika, Baris ke-2 di hapus, maka jika akan memanggil id lagi yang muncul "SJ000004".
Gimana caranya, agar muncul "SJ000002"???
Database saya MySQL 5.5
RYO
Post a Comment and Don't Spam!
Terimakasih Sudah Berkomentar di artikel ini