Sebelum lebih jauh tentang Koding Logout, kami akan membahas tentang Logika dari Logout terlebih dahulu :
- Logout adalah kebalikan dari Login
- Berarti Kondisi Logout adalah mengembalikan Kondisi sebelum Login.
Jika pada Tutorial kami sebelumnya tentang car membuat Login pada VB 6.0 pada Menu Utama sebelum login maka menu Master, Transaksi dan Laporan dalam Kondisi DISABLE, nah DISABLE inilah yang akan kita panggil jika Klik Menu Logout.
Kondisi DISABLE atau Terkunci :
Sub Terkunci()
MnLogin.Enabled = True
MnLogout.Enabled = False
MnMaster.Enabled = False
MnTransaksi.Enabled = False
MnLaporan.Enabled = False
End Sub
Masukan Koding diatas pada FormMenuUtama.
Sub Terbuka()Masukan Koding diatas ketika Sukses Login.
FormMenuUtama.MnLogin.Enabled = False
FormMenuUtama.MnLogout.Enabled = True
FormMenuUtama.MnMaster.Enabled = True
FormMenuUtama.MnTransaksi.Enabled = True
FormMenuUtama.MnLaporan.Enabled = True
End Sub
Kemudian untuk Koding Logout kita hanya panggil Kondisi Terkunci :
Private Sub MnLogout_Click()Cukup Mudah bukan????
If MsgBox("Yakin Akan Logout Dari Program?", vbYesNo) = vbYes Then
Call Terkunci
End If
End Sub
Untuk Source Code dari Pembelajaran diatas, anda bisa KLIK LINK INI
Salam
Pintar VB | Tutorail VB 6.0 dan VB .Net
Lihat Juga Panduan Pemrograman Konputer
0 komentar:
Posting Komentar