SOURCODE PROGRAM HOTEL DI VISUAL BASIC 6.0

FORM LOGIN

  KODE PROGRAM FORM LOGIN:

Private Sub cmdcancel_Click()
Unload Me
End Sub

Private Sub cmdok_Click()
If txtSERVER.Text = “SERVER” And txtusername.Text = “MARDIYANTO” And txtpassworduser.Text = “1” Then
MsgBox “Selamat Anda dapat melanjutkan!!!”, vbOKOnly
frmSplash.Show
frmlogin.Hide
Else
MsgBox “Nama dan password yang anda masukan salah!! Anda Pasti Pencuri ya !!.”, vbInformation
bersih
End If
End Sub
Private Sub bersih()
txtSERVER.Text = “SERVER”
txtusername.Text = “MARDIYANTO”
txtpassworduser.Text = “”
End Sub

Private Sub Form_Load()
bersih
End Sub
Private Sub txtpassworduser_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdok.SetFocus
End If
End Sub