Membuat Form untuk Login ke Sistem

Pengguna yang ingin melakukan aktivitas di dalam sistem harus login ke dalam dengan memasukkan identitas dan password. Identitas dan password ini kemudian dicek terlebih dahulu di daftar pengguna yang ada di dalam tblAdminPengguna. Bila keduanya cocok, maka pengguna dapat masuk ke dalam dan melakukan aktivitas sesuai dengan hak akses yang dimilikinya.
Kita dapat membuat form login dengan menggunakan Blank Form. Simpanlah form itu dengan nama frmLogin. Aturlah properti form sebagai berikut:

1. Navigation Buttons=No
2. Record Selectors=No
3. Close Button=No
4. Min Max Button=None
5. Modal=Yes
6. PopUp=yes
7. Border Style=Dialog

Pada bagian detail, sisipkan dua buah text box untuk:

1. Identitas pengguna dengan properti Name=IdPengguna, Caption pada label=Id Pengguna:.
2. Password dengan properti Name=pwdPengguna, Input Mask=Password, dan Caption pada label=Password:.

Di bawah text box Password, sisipkan tombol perintah Login dengan properti Name= LoginKeSistem dan Caption=&Login. Tampilan Design view form ini selengkapnya ada di Gambar 1.

Gambar 1

Pada bagian footer, sisipkan dua buah tombol perintah untuk:

1. Keluar dari Access, properti:
   
   1. Name=Keluar
   2. Caption=Keluar
2. Di sebelah kanan tombol perintah Keluar, sisipkan tombol perintah untuk menutup aplikasi database, properti:
   
   1. Name=Tutup
   2. Caption= Tutup
3. Di bagian paling bawah dari footer, sisipkanlah label dengan Caption=Terima kasih atas kepercayaan yang kita berikan. Silakan memasukkan identitas dan password anda. Jika belum terdaftar, silakan anda menghubungi administrator ini.

Action	Arguments
SetTempVar	IdPengguna, [Screen].[ActiveControl]
OnError	Next,
Requery
RunCommand	Refresh

Pada text box IdPengguna properti Event After Update, buatlah [Embedded Macro] seperti Tabel 7:
Salinlah kode VBA berikut ini ke dalam modul form frmLogin:

view plainprint?

1. Option Compare Database  
2. Private Sub Form_Load()  
3.   Dim db As DAO.Database  
4.   Set db = CurrentDb()  
5.   If CekAccdeMde = True Then  
6.     DoCmd.ShowToolbar "Ribbon", acToolbarNo  
7.     If CekPropertiStartUp = True Then  
8.       AturPropertiStartUp (False)  
9.       MsgBox "Silakan tutup dahulu database ini. Buka kembali setelah itu"  
10.       Cancel = True  
11.       CloseCurrentDatabase  
12.     End If  
13.     DoCmd.NavigateTo "acNavigationCategoryObjectType"  
14.     DoCmd.RunCommand acCmdWindowHide  
15.   Else  
16.     DoCmd.ShowToolbar "Ribbon", acToolbarYes  
17.     AturPropertiStartUp (True)  
18.     DoCmd.SelectObject acTable, , True  
19.   End If  
20. End Sub  
21. Private Sub Form_Open(Cancel As Integer)  
22.   Caption = "Login " & Nz(IdPerusahaan("Nama"), "")  
23.   If (Not CurrentProject.IsTrusted) Then  
24.     DoCmd.OpenForm "frmLogin", acNormal, "", "", , acNormal  
25.   End If  
26.   TempVars.RemoveAll  
27.   checkUser  
28. End Sub  
29. Private Sub Keluar_Click()  
30.   KeluarDariAccss  
31. End Sub  
32. Private Sub Tutup_Click()  
33.   TutupAplikasiIni  
34. End Sub  
35. Private Sub LoginKeSistem_Click()  
36.   If IsNull(Me.pwdPengguna) Then Me.pwdPengguna = ""  
37.   If (IsNull(Me.IdPengguna)) Then  
38.     MsgBox "Nama Pengguna tidak boleh kosong", vbOKOnly  
39.     Exit Sub  
40.   ElseIf Not UserTerdaftar(Me.IdPengguna) Then  
41.     MsgBox "Tidak ada Nama Pengguna " & Me.IdPengguna, vbOKOnly  
42.   ElseIf Not PasswordOK(Me.IdPengguna, Me.pwdPengguna) Then  
43.     MsgBox "Password yang anda masukkan salah " & Me.IdPengguna, vbOKOnly  
44.   Else  
45.     LoginDialog (Me.IdPengguna)  
46.   End If  
47. End Sub  

Option Compare Database
Private Sub Form_Load()
  Dim db As DAO.Database
  Set db = CurrentDb()
  If CekAccdeMde = True Then
    DoCmd.ShowToolbar "Ribbon", acToolbarNo
    If CekPropertiStartUp = True Then
      AturPropertiStartUp (False)
      MsgBox "Silakan tutup dahulu database ini. Buka kembali setelah itu"
      Cancel = True
      CloseCurrentDatabase
    End If
    DoCmd.NavigateTo "acNavigationCategoryObjectType"
    DoCmd.RunCommand acCmdWindowHide
  Else
    DoCmd.ShowToolbar "Ribbon", acToolbarYes
    AturPropertiStartUp (True)
    DoCmd.SelectObject acTable, , True
  End If
End Sub
Private Sub Form_Open(Cancel As Integer)
  Caption = "Login " & Nz(IdPerusahaan("Nama"), "")
  If (Not CurrentProject.IsTrusted) Then
    DoCmd.OpenForm "frmLogin", acNormal, "", "", , acNormal
  End If
  TempVars.RemoveAll
  checkUser
End Sub
Private Sub Keluar_Click()
  KeluarDariAccss
End Sub
Private Sub Tutup_Click()
  TutupAplikasiIni
End Sub
Private Sub LoginKeSistem_Click()
  If IsNull(Me.pwdPengguna) Then Me.pwdPengguna = ""
  If (IsNull(Me.IdPengguna)) Then
    MsgBox "Nama Pengguna tidak boleh kosong", vbOKOnly
    Exit Sub
  ElseIf Not UserTerdaftar(Me.IdPengguna) Then
    MsgBox "Tidak ada Nama Pengguna " & Me.IdPengguna, vbOKOnly
  ElseIf Not PasswordOK(Me.IdPengguna, Me.pwdPengguna) Then
    MsgBox "Password yang anda masukkan salah " & Me.IdPengguna, vbOKOnly
  Else
    LoginDialog (Me.IdPengguna)
  End If
End Sub