Script Auto Number Pada Visual Basic 6.0

-
Mungkin jika anda membuat sebuah program, anda menginginkan hasil yang bagus bukan? Program yang anda buat akan lebih bagus dan menarik jika diberikan auto number. Pengguna program anda tidak sush-susah lagi didalam menuliskan kode. Selain itu, auto number juga berguna untuk meminimalisirkan kesalahan jika database program anda menggunakan primary key. Script yang saya share disini adalah dengan menggunakan angka dan huruf sebagai inisial. Contohnya SN001, SN002, SN003, dan seterusnya. Langsung aja ke scriptnya.

Contoh yang menggunakan label bantu berupa Label1

Call Buka_Pembeli
sql = "select * from Pembeli where ID_Pembeli In (Select Max(ID_Pembeli) From Pembeli) Order By ID_Pembeli Desc"
Set rsa = con.Execute(sql)
With rsa
If .EOF Then
Label8.Caption ="SN"+ "001"
TxtIDPembeli.Text = Label8.Caption
Else
Label8.Caption = rsa.Fields("ID_Pembeli")
a = Trim(Right(Label8.Caption, Len(Label8.Caption) - 2))
b = Right("000" & Val(a + 1), 3)
TxtIDPembeli.Text = "SN"+b
End If
End With
Letakkan script diatas pada Form_Load, ataupun pada component pada Visual Basic 6.0.

Komentar

Posting Komentar

Postingan populer dari blog ini

-
Perbedaan Internet, Intranet dan Extranet Kita semua tahu apa itu Internet, mudah-mudahan saya tidak salah. Paling tidak bagi yang belum mengetahui-nya Internet secara sederhana Internet adalah jaringan dari jaringan (network of networks). Intranet adalah sebuah jaringan komputer berbasis protokol TCP/IP seperti internet hanya saja digunakan dalam internal perusahaan, kantor, bahkan warung internet (WARNET) pun dapat di kategorikan Intranet. Antar Intranet dapat saling berkomunikasi satu dengan yang lainnya melalui sambungan Internet yang memberikan tulang punggung komunikasi jarak jauh. Akan tetapi sebetulnya sebuah Intranet tidak perlu sambungan luar ke Internet untuk berfungsi secara benar. Intranet menggunakan semua protocol TCP/IP dan aplikasi-nya sehingga kita memiliki “private” Internet. Jika sebuah badan usaha / bisnis / institusi mengekspose sebagian dari internal jaringannya ke komunitas di luar, hal ini di sebut ekstranet. Memang biasanya tidak semua isi intranet di kelu
MyBlog

Memecah dan membuat relasi tabel

-
Gambar
Selamat malam teman-teman, malam ini kita akan mencoba membuat relasi tabel dari tabel yang sebelumnya sudah kita buat pada artikel Mendefinisikan metadata dari sebuah artikel . Dalam hal ini kita akan mencoba memisahkan data author menjadi tabel terpisah diluar tabel artikel. Pertama-tama kita buat tabel author seperti biasa dengan tipe data seperti dibawah ini Gambar 1 Struktur tabel author Lalu kita set kolom id pada tabel author sebagai primary key dengan menggunakan perintah ALTER TABLE `author` ADD PRIMARY KEY (`id`); Setelah kita menambahkan primary key pada tabel author, saatnya kita beralih pada tabel artikel yang sudah kita buat sebelumnya.  Pertama yang harus kita lakukan yaitu merubah kolom penulis  menjadi author_id dengan tipe data int dengan menggunakan perintah ALTER TABLE `artikel` CHANGE `penulis` `author_id` int Setelah kita merubah nama kolom dan tipe datanya, saatnya kita memberikan relasi antar tabel menggunakan foreign key. Dalam kasus ini, kolom author_id pada
MyBlog