Menampilkan Kode Secara Otomatis Pada Visual Foxpro

Sebagai Field Kunci atau yang biasa kita sebut dengan panggilan kunci utama, ehm maksudnya primary key.. tentunya isi dari field atau data tersebut tidak boleh sama dengan data yang lainnya... karena sifat ataupun fungsi dari primary key itu sendiri adalah sebagai field pembeda dari sebuah record... banyak cara yang dapat digunakan agar tidak terjadi kesalahan pada saat penyimpanan dikarenakan ada kesamaan data pada field kunci... Diantaranya dengan cara menampilkan kode secara otomatis..
berikut ini ada listing untuk membuat kode otomatis pada Visual Foxpro :

+=============================================================+
use nama_tabel
set order to tag primary_key
GO BOTTOM
a1="B000" */Harus Sesuai Dengan Jumlah Digit Yang Ingin Kita Tampilkan
a2=LTRIM(STR(RECCOUNT()+1))
a=LEFT(a1,4-LEN(a2))+a2
thisform.text1.Value=a
+=============================================================+
Perlu Diingat Untuk Objek Dimana Kita Akan Menampilkan Kode Tersebut
Sebaiknya dalam keadaan NonAktif atau Enabled-nya bernilai False (.F.)
+=============================================================+