Membuat Kode otomatis pada Visual Basic 6.0

saya kasih trick buat kode otomatis…
misal untuk kode pelanggan sistem,kode buku atau lainyya.dimana mengecek dari kode database pada record terkahir..
misal var public koneksi = dbkoneksi, Jumlah otomatisasi kode dibatasi 1000 kode
dan kode akan ditampilkan pada textbox  txtkode.text

public sub Buatkode()

dim tambah,SQL as string
SQL = “select id from Master ”
set Rs = dbkoneksi.execute(SQL)
If Rs.BOF then
txtkode.text =”K001″
exit sub

else
Rs.Requery
if not (Rs.bof and Rs.eof) Then
kode = Rs!id
kode = val(Right(kode, 3))
kode = kode +1
end if
if val(kode) < 10 then
kode =”K00″& kode
txtkode.text = kode
elseif val(kode) < 100 then
kode =”K0″& kode
txtkode.text = kode
elseif val(kode) <1000 then
kode= “K” & kode
txtkode.text=kode
else Msgbox ” WES ono 1000 Kebak..delete sek!!!”
end if
end sub

Sistem Pendukung Penilaian Kinerja Karyawan dengan Metode Analytical Hierarchy Process(AHP)

ALHAMDULIllah selesai juga Project yang satu ini..walau rada sedikit lama tapi selesai juga..Aplikasi Client server ini dibuat dengan Visual Basic 6.0 Dan database SQLserver 2000

Terlalu Banyak Coding,Function dan prosedur ketika saya membuat aplikasi ini sehingga perlu waktu sedikit lama dan molor …tetapi selesai juga dan tinggal tunggu pendadaran…Ga kerasa lama juga GW kuliah..kwkwkkwkw…

Program Ini saya dedikasikan Untuk :

1. Seluruh keluarga besar saya
2. UII informatika
3. PT Multiterminal Indonesia
4. VB-BEGO Crew ( http://vb-Bego.net)

Dan ini adalah beberapa Tampilan Progam aplikasi yang telah saya buat

Terima kasih ya Alloh SWT, dan semua yang mendukung ku selama Ini…

Amien ya Robbal Alamien

Untuk melihat Laporan dan dokumentasi Program dapat anda unduh di 4SHARED_SPPK_MANUAL

Login Multiuser Berdasarkan hak akses user menggunakan Visual Basic

Saya Termasuk VB-lovers yang selalu exist menggunakan Visual Basic 6.0 ketika saya membuat aplikasi,, Karena ada beberapa request tentang pemrograman Visual Basic saya akan bagi-bagi ilmu yang bisa tentang Visual Basic.

Kali Ini saya akan membahas Bagaimana membuat pembedaan hak akses login menggunakan Visual Basic..Ketika membuat Menu dan submenu pada form Vibi sudah sangat familiar dengan faslititas Menu editor.  Yang perlu diingat adalah name dari menu tersebut… Dari sini ketika kita membuat aplikasi dengan membuat hak akses yang berbeda, kita dapat memanfaatkan menu editor ini sebagai pembeda hak akses..

Logikanya sebagai berikut :

If Rs_ceklogin!level = “1” then    ‘—> misal level untuk admin menu nya dibawah ini(ingat name pada menu editor)

with Fmutama

.show

.MuMasterdata.enabled = true

.MuPencarian.enabled =true

.MuManageKeungan.enabled =false

Unload Me

end with

Elseif Rs_ceklOgin!level =”2″         ‘——> Misal Untuk karyawan

With Fmutama

.show

.MuPembayaran.enabled =true

.MuPemesana.enabled =true

.MuMasterdata.enabled = False

Unload me

End with

end If

Terima kasih…