Untuk membuat aplikasi menu login pertama download aplikasi Visual Basic 6.0 (VB 6.0) https://drive.google.com/file/d/0B80PtAiwixAnZTNWUlJiMGJoSnc/view
Setelah download lalu instal seperti biasa
Lalu buka aplikasi Visual Basic 6.0 yang di kotakin sama saya berwarna hitam
If Text1 = "Yoga Firza Sabbihisma" And Text2 = "1700018253" Then
MsgBox "Login Behasil!!!"
Form2.Show
Unload Me
ElseIf Text1 = "Gifari Nanda Utama" And Text2 = "1700018250" Then
MsgBox "Login Behasil!!!"
Form2.Show
Unload Me
ElseIf Text1 = "Vikri Ammar Kholis" And Text2 = "1700018243" Then
MsgBox "Login Behasil!!!"
Form2.Show
Form1.Visible = False
Unload Me
Else
MsgBox "User Name atau Password yang Anda Masukkan salah" _
& vbNewLine & "Silahkan Coba lagi !!", vbCritical, "Warning!!"
Text1 = ""
Text2 = ""
Text1.SetFocus
End If
End Sub
Setelah download lalu instal seperti biasa
Lalu buka aplikasi Visual Basic 6.0 yang di kotakin sama saya berwarna hitam
Setelah itu pilih Standart.Exe lalu pilih open
lalu desain Tampilan menu login yang anda mau seperti gambar tersebut
Saya menggunakan Toolbox Sebagai berikut
3 LABEL
2 TEXT BOX
1 COMMANDBUTTON
untuk kodingan Login untuk tiga admin
Private Sub Command1_Click()If Text1 = "Yoga Firza Sabbihisma" And Text2 = "1700018253" Then
MsgBox "Login Behasil!!!"
Form2.Show
Unload Me
ElseIf Text1 = "Gifari Nanda Utama" And Text2 = "1700018250" Then
MsgBox "Login Behasil!!!"
Form2.Show
Unload Me
ElseIf Text1 = "Vikri Ammar Kholis" And Text2 = "1700018243" Then
MsgBox "Login Behasil!!!"
Form2.Show
Form1.Visible = False
Unload Me
Else
MsgBox "User Name atau Password yang Anda Masukkan salah" _
& vbNewLine & "Silahkan Coba lagi !!", vbCritical, "Warning!!"
Text1 = ""
Text2 = ""
Text1.SetFocus
End If
End Sub
#TerimaKasihTelahBerkunjungDiBlog