Setelah saya desain baru saya masukkan ke Form Login Rentcar Dan saya masukkan source codingnya.
Berikut ini adalah tampilan Login dan Source Codingnya :
Private Sub Command1_Click()
If Text1.Text = "rosi" And Text2.Text = "rosi" Then
Form1.Hide
MDIForm1.Show
Else
MsgBox "nama dan password tidak sesuai"
End If
End Sub
Private Sub end_Click()
End
End Sub
Private Sub isButton1_Click()
If Text1.Text = "rosi" And Text2.Text = "rosi" Then
Form1.Hide
MDIForm1.Show
Else
MsgBox "nama dan password tidak sesuai"
End If
End Sub
Tidak ada komentar:
Posting Komentar