Koding Login VB6 [Multi User]

Tutorial ini adalah sambungan dari tutorial-tutorial sebelumnya. yaitu, kali ini saya akan menambahkan sebuah Form Login di Program dasar yang telah saya berikan :).

Langsung saja, buka program 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 membuat 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.

Coba anda jalankan dan coba Login…berhasil kah ?? :D

Sekian. Terimakasih