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

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…

 

 

How I’ve Made $3,000 in One Day!!!

How I’ve Made $3,000 in One Day!!!

Posted using ShareThis

Coba Gamesku ini…mainkan dan temukan ANgka Yang Berarti Bagimu

Iseng ajahh…sebelumnya kita belum saling kenal hingga tau details informasi pribadi blogerss sekalian..

berpura -pura jadi MAGICIAN neh..saya mencoba menebak agka yang tentunya sangat berarti dalam hidup anda.

pertama Konsentrasi…kirimkan daya imaginasi ke saya…semoga saya bisa membacanya..

Mulai..ikuti langkah -langkah saya

1.. ingat tanggal lahir anda..simpan dulu

2. sekarang  Kalikan dengan 4 Tanggal lahir anda ( tggl lahir X 4 )

3. next hasilnya DItambah dengan 13

4. next hasilnya dikalikan dengan 25

5. next hasilnya dikurangi 200

6. next hasilnya ditambah bulan Lahir anda

7.next hasilnya dikalikan 2

8.next hasilnya Dikurang 40

9.next hasilnya dikalikan 50

10. next hasilnya ditambah 2 digit terakhir tahun keliharan anda (misal 1985 = 85)

11. next hasilnya dikurang dengan 10.500

12.hasilnya ??? apakah angka yang berarti bagimu…?

Oh  ya jangan sampe salah itung yah…

TRY it

Wah dapat Sertifikat Lagi…

Alhamdulillah..kini kesibukan udah mulai rada berkurang…Training CISCO yang seminggu 3X..dan malamnya selaku ada ujian Online selesai juga…

Bersyukur seh udah selesai ..tapi kadang kangen bercanda sama instruktur,teman training…

DAN dapet juga Sertifikat Local aCademy UII .. mau cari sertifikasi International..mungkin di ITB..Lumayan bagi Trainer yang CCNA 4 dapet Nilai 75 %

dapet potongan 80 %…kalo gag salah tuh sertifikasi harganya 2,5 jUTA…huh mahal banget…namanya juga international seh..

gw Pampangin  deh hasil kerja keras pelatihan sekitar 4 bulan Di Local Academy UII..

Langkah Selanjutnya….SKRIPSI GO on……

Kesibukan Saat Ini…

Para Blogers yang budiman

udah lama banget gag update blog..hihihi..padahal tiap hari bisa online internet..tapi gag tau terlalu banyak kesibukan jadi lama gag buka wordpress..

akhirnya AMpir 6 bulan training CISCO local Academy,selesai juga..dan tinggal nunggu Certification aja.Amien

sekarang Tinggal Konsen sama Tugas akhir aku yang Berjudul “  Sistem Pendukung Penilaian Kinerja Karyawan dengan Metode Analytical hierarchy Process” ..dibangun dengan Visual basic dan MySQL Server.Udah Jalan hampir 3 bulan..UDAH masuk BAB III…:)

Semangat….Doakan saya ya teman-teman Biar Cepet Wisuda…