Mengaktifkan Fungsi TampilkanLogin dan LogoutDialog

Sebuah sistem yang menggunakan hak akses pengguna selalu menampilkan nama atau identitas pengguna yang aktif di layar. Contohnya seperti gambar di bawah, yang diambil dari Form frmRekUtama,  di mana Administrator sedang aktif membuka form Daftar Kode Rekening - Rekening Utama. Kita dapat menampilkan user yang aktif dengan cara berikut ini:

Fungsi TampilkanLogin dan LogoutDialog di bagian kiri atas (Design view)

1. Buatlah text box dalam form, misalnya seperti frmRekUtama di Gambar di atas. Beri nama text box itu “LoginPgn”, dan labelnya “Login”.
2. Isi atau ketik “=TampilkanLogin()” pada Control Source text box LoginPgn.
3. Buatlah text box tanpa label untuk pengguna yang logout. Beri nama text box itu “logout”.
4. Isi atau ketik “="Logout"” pada Control Source text box logout.
5. Pada properti Visible dan Is Hyperlink untuk text box logout, berurutan, ubahlah nilainya menjadi No dan Yes.
6. Pada bagian properti Event – On Click dari text box logout, isikan fungsi =LogoutDialog([TempVars]![IdPengguna]).
7. Buatlah event procedure pada properti form On Open sebagai berikut:
   

   Private Sub Form_Open(Cancel As Integer)
       Me.Caption = "Daftar Kode Rekening - Rekening Utama " & Nz(IdPerusahaan("Nama"), "")
       If Not IsNull(Me.LoginPgn) Then Me.logout.Visible = True
   End Sub
   

Pada saat dibuka, form frmRekUtama akan menjalankan event procedure Private Sub Form_Open. Setelah itu, jika ada pengguna yang aktif (tersimpan dalam memori sementara yang bernama ([TempVars]![IdPengguna]), maka nama pengguna akan ditampilkan melalui fungsi TampilkanLogin, sedangkan text box Logout akan muncul (visible).

Fungsi TampilkanLogin dan LogoutDialog di bagian kiri atas (Formview)

Kita dapat meng-copy text box LoginPgn dan logout ke semua form atau report yang telah dibuat.