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:

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