new
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Form16.Show<br />
End Sub<br />
Private Sub mnuviewrent_Click()<br />
Form18.Show<br />
End Sub<br />
Private Sub r_Click()<br />
Form18.Show<br />
End Sub<br />
Private Sub upd_Click()<br />
Form1.Show<br />
End Sub<br />
3.LOGIN FORM<br />
Private Sub Command1_Click()<br />
Call CONNECT<br />
If Text1.Text = "" Or Text2.Text = "" Then<br />
MsgBox ("Please enter data")<br />
Else<br />
rs.Open "select * from tbl_log1 where Username='" + Text1.Text + "' and<br />
Password = '" + Text2.Text + "'", cn, adOpenDynamic, adLockPessimistic<br />
If rs.EOF = False Then<br />
s = rs.Fields("Role")<br />
If s = "admin" Then<br />
MDIForm1.Show<br />
ElseIf s = "employee" Then<br />
MDIForm1.Show<br />
End If
Change language