Untuk membuat form login yang
memilki 2 hak akses atau lebih cukup mudah.. contoh kasus yang akan kita buat
yaitu ada 2 hak akses admin dan kasir. Untuk hak akses kasir hanya bisa
mengakses menu master barang sedangkan admin memiliki akses master barang dan
laporan.
Untuk lebih jelas silahkan lihat dibagian bawah ini, pertama
yang kita perlukan yaitu :
Database dan tabel login di M. Access
2 buah form
1 module
Buatlah tampilan seperti berikut ini
Untuk membuat menu di vb 6 silahkan menggunakan menu editor
Setelah membuat tampilannya sekarang kita mulai melakukan
coding.. silahkan atur module untuk melakukan setting ke database login. Bagi
yang belum tahu silahkan lihat tutor ini
koneksi vb 6 menggunakan adodb
Sekarang kita ke bagian form login terlebih dahulu
Klik 2x tombol batal ketikkan perintah berikut ini
Private Sub Command2_Click()
keluar = MsgBox("Yakin akan keluar login ?",
vbQuestion + vbYesNo, "Konfirmasi")
If keluar = vbYes Then
End
End If
End Sub
Untuk tombol login silahkan ketikkan perintah berikut ini.
Private Sub Command1_Click()
buka
Dim sql As String
Dim cari As New ADODB.Recordset
sql = "select * from tblogin where username ='"
& LCase(Text1.Text) & "' and password = '" & LCase(Text2.Text) &
"'"
Set cari = con.Execute(sql)
If cari.EOF Then
MsgBox "Maaf
User atau Password anda salah !", vbInformation, "Informasi"
Text1.SetFocus
Text1.Text =
""
Text2.Text =
""
Else
MsgBox "Anda
berhasil login !", vbInformation, "Informasi"
Dim akses As String
Label1.Caption = cari!akses
Form1.Show
Unload Me
End If
End Sub
Sekarang kita beralih ke form menu utama,klik 2x di
form
kemudian ketikkan perintah berikut
ini :
Private Sub Form_Load()
Label2.Caption = Form2.Label1.Caption
If Label2.Caption = "Admin" Then
masterbarang.Visible = True
laporan.Visible =
True
ElseIf Label2.Caption = "Kasir" Then
masterbarang.Visible = True
laporan.Visible =
False
End If
End Sub
Jika berhasil login sebagai Admin akan seperti gambar
dibawah ini
Sedangkan jika login sebagai Kasir akan seperti gambar
dibawah ini
Jika ingin mendownload aplikasi ini silahkan
disini
Untuk akses Admin
menggunakan username : martin dan password : 123456
Untuk akses
Kasir menggunakan username : purnansyah dan password : 789
About Me :
Saya Martin Purnansyah
Nama
Marcode adalah singkatan dari martin code, niat awal saya membuat website ini bertujuan untuk berbagi pengalaman yang saya dapat selama belajar pemrograman. Semoga situs
marcode.web.id kedepannya rutin membuat tutorial - tutorial baru. Salam Coding.. :)
