Hai sahabat gudang coding, kemabali lagi bersama gudang coding, blog tempat berbagi informasi mengenai dunia pemrograman dan aplikasi. pada malam hari ini gudang coding akan memeberikan informasi mengenai cara login 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 BukaDBRSBarang.CursorLocation = adUseClientRSBarang.Open "Select * From tb_user where username='" & Text1 & "'", ConnIf 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 IfElseMsgBox "Maaf,Anda Tidak Berhak", vbInformation, "Peringatan"Call bersihEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubSub bersih()Text1 = ""Text2 = ""End SubPrivate Sub Form_Load()Call BukaDBEnd Sub |
Terakhir, Ubah Startup Program menjadi, Form login yang akan muncul duluan.
Sekian dari kami semoga informasi ini dapat bermanfaat dan bisa membantu kita semua dalam belajar pemrograman vb. Terimakasih