Kita buat tampilan seperti dibawah ini:
Yang kita butuhkan adalah :
- 3 Label
- 2 TextBox
- 2 CommandButton
- Frame
Component
|
Name
|
Caption
|
| Label1 | Label1 | Login |
| Label2 | Label2 | Username |
| Label3 | Label3 | Password |
| TextBox1 | txt_user | (Text Dikosongkan) |
| TextBox2 | txt_pass | (Text Dikosongkan) |
| CommandButton1 | cmd_login | Login |
| CommandButton2 | cmd_cancel | Cancel |
| Frame | Frame1 | (Text Dikosongkan) |
Kemudian masukan codingnya seperti dibawah ini :
Coding
|
Keterangan
|
| Private Sub cmd_cancel_Click() End End Sub |
Coding untuk CommanButton2 (cmd_cancel) |
| Private Sub cmd_login_Click() If txt_user.Text = "diana" And txt_pass.Text = "12345" Then form_menu.Show Unload Me Else MsgBox "Username/Password Salah...!", vbInformation, "Gagal" End If End Sub |
Coding untuk CommanButton1 (cmd_login) |
Buat Form Selanjutnya agar Form Login tersebut bisa berjalan. Contoh Form selanjutnya yang telah saya buat seperti dibawah ini:
Kemudian Running Program nya dengan cara tekan F5 . Maka Hasil nya akan seperti dibawah ini:
Sekian pembahasan tentang Cara Membuat Form Login tanpa Database. Semoga bermanfaat :-)



