Kode Otomatis (autonumber) Di Delphi

Nah sekarang ada yg bertanya masalah kode otomatis,

Siapkan project dng satu Button dan satu Edit.box
Lalu pada button click tuliskan listing berikut :

1. var  
2. kd,st,newKd :string;  
3. i,n         :integer;  
4. begin  
5.  DataModule1.ZQuery6.Last;  
6. if not(DataModule1.ZQuery6.eof and DataModule1.ZQuery6.Bof) then  
7. begin  
8. kd:=DataModule1.ZQuery6.FieldByName('tccode').AsString;  
9. // auto generate  
10. for i:=1 to 5 do  
11. st:=st+kd[i+1];  
12. n:=strtoint(st)+1;  
13. case length(inttostr(n)) of  
14. 1 : newKd:='CLR0000'+inttostr(n);  
15. 2 : newKd:='CLR000'+inttostr(n);  
16. 3 : newKd:='CLR00'+inttostr(n);  
17. 4 : newKd:='CLR0'+inttostr(n);  
18. 5 : newKd:='CLR'+inttostr(n);  
19. end;  
20. end  
21. else newKd:='CLR00001';  
22. edkode.Text:=newKd;  

---

Klik Like/share jika anda menyukai tulisan Share

    Syarat Tukar Link/Banner      Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.      Terdaftar      Terdapat meta tag search engine pada template.      Terindeks      Halaman blog muncul pada hasil pencarian Google...  

---