Private Sub Form_Activate()
Text1. MaxLength = 8
Text2. MaxLength = 8
Text1. SetFocus
End Sub

Private Sub Form_Load()
‘Mendisable-kan menu utama dan submenunya.
MainMenu.mnData = False
MainMenu.mnLaporan = False
MainMenu.smLogin = False
Main Menu.sm Logout = False

Private Sub Text1_KeyPress (keyascii As Integer)
If keyascii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress (keyascii As Integer)
If keyascii = 13 Then
Command1_Click
End If
End Sub

Private Sub Command1_Click()
If Text1.Text = ‘Admin’ and Text2.Text = “zf_1221” Then
‘Mengenable-kan menu utama dan submenunya kecuali menu login.
MainMenu.mAdmin = True
MainMenu.mnData = True
MainMenu.mnLaporan = True
MainMenu.smLogin = False
Main Menu.sm Logout = True
Unload Me
ElseIf If Text1.Text = ‘’ and Text2.Text = “” Then
Pesan = MsgBox(“Woiy, form login musti diisi tuch…!!”, -
0, “informasi”)
Text1.SetFocus
Else
Pesan = MsgBox(“Anda tidak berhak mengakses program ini”, -
0, “Akses diTOLAK…!!”)
Text1.SetFocus
End If
End Sub





Baca juga artikel menarik ini: Harga Jual Blackberry IPhone Laptop Murah
Blackbery
Iphone
Solusi Forum Komunitas Online Indonesia Thumblr
Spesifikasi iPHONE
HiPhone, hasil Kloningan iPhone
HiPhone dan Smart Phone Cina
Solusi Forum Komunitas Online Indonesia
Produk Unggulan BlackBerry
Model Blackberry
Kontroversi Blackberry
Harga Serba Murah Jual Blackberry IPhone
Harga Serba Murah Jual Blackberry IPhone
Kecil Jadi Kawan, Besar Jadi Lawan
Mohon dukungannya yach....!!
:)

Do you like this article? Share It!