Cara Menciptakan Login Multi User Dengan Vb.6.0

Hai sahabat gudang coding, kemabali lagi bersama gudang coding, blog daerah mengembangkan gosip mengenai dunia pemrograman dan aplikasi. pada malam hari ini gudang coding akan memeberikan gosip mengenai cara login yaitu, kali ini saya akan menambahkan sebuah Form Login di Program dasar yang telah saya berikan :).

Langsung saja, buka aktivitas dasarnya. tambahkan sebuah form lagi dengan desain Seperti ini.

Jangan Terpaku dengan desain yang saya buat ya, buat saja sesuka anda. yang penting ada 2 buahTextbox dan dua buah Command Button. dan berinama login.

Jika telah selesai menciptakan yang diatas. Kita buat tabel User di Database yang ada. buka kembali databasenya.

tambahkan.

nama tabel tb_user

field : username,password,nama,akses.

sizenya terserah anda 

masukkan beberapa data untuk usernya.

Ketentuan, ada 3 user yang hak aksesnya berbeda. yaitu, Admin, User1, User2

Kembali ke Project VB yang td kita buat. Berikut Koding Lengkapnya :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

Private Sub Command1_Click() Call BukaDB RSBarang.CursorLocation = adUseClient RSBarang.Open "Select * From tb_user where username='" & Text1 & "'", Conn If Not RSBarang.EOF Then     If RSBarang!akses = "Admin" Then         menu.mn1.Enabled = True         menu.mn2.Enabled = True         menu.mn3.Enabled = False         menu.mn4.Enabled = False         menu.mn5.Enabled = False         menu.mn6.Enabled = False         menu.Show     ElseIf RSBarang!akses = "User1" Then         menu.mn1.Enabled = False         menu.mn2.Enabled = False         menu.mn3.Enabled = True         menu.mn4.Enabled = True         menu.mn5.Enabled = False         menu.mn6.Enabled = False         menu.Show         Call bersih     Else         menu.mn1.Enabled = False         menu.mn2.Enabled = False         menu.mn3.Enabled = False         menu.mn4.Enabled = False         menu.mn5.Enabled = True         menu.mn6.Enabled = True         menu.Show         Call bersih     End If Else MsgBox "Maaf,Anda Tidak Berhak", vbInformation, "Peringatan" Call bersih End If End Sub Private Sub Command2_Click() Unload Me End Sub Sub bersih() Text1 = "" Text2 = "" End Sub Private Sub Form_Load() Call BukaDB End Sub

Terakhir, Ubah Startup Program menjadi, Form login yang akan muncul duluan.

Sekian dari kami biar gosip ini sanggup bermanfaat dan sanggup membantu kita semua dalam mencar ilmu pemrograman vb. Terimakasih