Mengatur Hak Akses Melalui Menu Login Pada VB 6.0

Mengatur hak akses ini bisa dilakukan dengan banyak cara. Disini saya akan mencoba menjelaskan bagaiman cara mengatur hak akses menggunakan kontrol data. Gambar :

Jika kamu sudah tau cara menggunakannya, susun tampilannya kurang lebih seperti ini :


Untuk Namenya kamu atur sendiri ya... (Banyak2 mencoba!!!... Jangan cepat putus asa).
Kemudian, kamu Copas coding dibawah ini dan ganti namenya sesuai dengan name yang telah kamu bikin.

Private Sub CMBPOS_Click()
CMD_OK.SetFocus
End Sub

Private Sub CMD_Cancel_Click()
PESAN = MsgBox("Anda Ingin Keluar ?", vbInformation + vbYesNo, "Info")
If PESAN = vbYes Then
End
End If
End Sub

Private Sub CMD_OK_Click()
With Data_User.Recordset .FindFirst "userid='" & TxtUserId.Text & "'"
If !userid = (TxtUserId.Text) And !Password = (TxtPassword.Text) And !posisi = (Me.CmbPosisi.Text) Then
If CmbPosisi.Text = "Admin" Then
FLogin.Hide
FrmMenu.Enabled = True
FrmMenu.Show
FrmMenu.Mn_Master = True
Else
FLogin.Hide
FrmMenu.Enabled = True
FrmMenu.Show
FrmMenu.Mn_Master = False
End If
End If
Else PESAN = MsgBox("Izin masuk ditolak !!!", vbCritical, "Info")
TxtUserId.Text = ""
TxtPassword.Text = ""
CmbPosisi.Text = "[Pilih]"
TxtUserId.SetFocus
End If
End With
End Sub

Private Sub Form_Activate()
Data_User.Refresh
TxtUserId.Text = ""
TxtPassword.Text = ""
CmbPosisi.Text = "[PILIH]"
TxtUserId.SetFocus
End Sub

Private Sub Form_Load()
Data_User.DatabaseName = App.Path & "/db_penjualan.mdb"
Data_User.RecordSource = "table_user"
CmbPosisi.AddItem "Admin"
CmbPosisi.AddItem "User"
End Sub

Private Sub txtUserId_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
TxtPassword.SetFocus
End If
End Sub

Private Sub TxtPassword_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then CmbPosisi.SetFocus
End If
End Sub

Sedikit keterangan dari saya bagi yang belum ngarti :

Data_User.DatabaseName = App.Path & "/db_penjualan.mdb"
Data_User.RecordSource = "table_user"

Kode diatas berfungsi sebagai koneksi ke Database dan table. Jadi, sebelum kamu membuat menu login ini, Database dan Tablenya harus sudah tersedia. Kalau tidak tersedia bakalan error dech program kitanya...

If CmbPosisi.Text = "Admin" Then
FLogin.Hide
FrmMenu.Enabled = True
FrmMenu.Show
Else
FLogin.Hide
FrmMenu.Enabled = True
FrmMenu.Show
FrmMenu.Mn_Master = False
End If

Sedangkan untuk kode diatas ini berfungsi untuk mengatur Menu yang bisa diakses oleh sang pengguna program. Contohnya seperti yang kita lihat diatas, jika pengguna login dengan posisi Admin, maka menu-menu yang ada di menu utama akan aktif semua. Namun jika sebaliknya Menu Masternya tidak akan aktif. Semua pengaturan ini saya serahkan kepada teman-teman lagi. Soalnya menu yang kita gunakan beda-beda. Kurang lebih tampil Menu-nya seperti ini :

Admin
Operator
Mungkin cukup sekian teman-teman yang bisa saya jelaskan. Maklum saya juga baruu belajar.. Jadi kita kembangkan sama-sama aj y...