Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub cmdcancel_Click() txtusername.Text = "" txtpassword.Text = ""
End Sub

Private Sub cmdok_Click()
Set rs = conn.Execute("select * from security_tbl where user_name='" & txtusername.Text & "' and password='" & txtpassword.Text & "'")
If Not rs.EOF Then frmsecurity.Hide mdimainmenu.Show mdimainmenu.StatusBar1.Panels(3) = "Currently Login: " + rs!Position
Else
MsgBox "Access Denied", vbCritical, "Confirmation" txtusername.Text = "" txtpassword.Text = ""
End If

End Sub

Private Sub Form_Load() connstrinG = "driver={Microsoft access driver (*.mdb)};dbq=" & App.Path & "/inventory.mdb" conn.Open connstrinG
End Sub

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub MDIForm_Load()
On Error Resume Next connstrinG = "driver={Microsoft access driver (*.mdb)};dbq=" & App.Path & "/inventory.mdb" conn.Open connstrinG
StatusBar1.Panels(1) = "Date: " + Format(Now, "MMMM-DD-YYYY")
End Sub

Private Sub mnucustomer_Click()
On Error Resume Next frmcustomermaintenance.Show End Sub

Private Sub mnucustomerdelivery_Click() frmincomingdeliveries.Show End Sub

Private Sub mnucustomerreport_Click()
On Error Resume Next rs.Close rs.Open "select * from customer_table", conn
Set DataReport1.DataSource = rs
DataReport1.Show
End Sub

Private Sub mnucustomerreturn_Click()
On Error Resume Next frmcustomerreturn.Show End Sub

Private Sub mnuemployee_Click()
On Error Resume Next frmemployeesmaintenance.Show End Sub

Private Sub mnuexit_Click() x = MsgBox("Log out from the system?", vbYesNo + vbInformation, "Log Out")
If x = vbYes Then
End
End If
End Sub

Private Sub mnuproduct_Click()

frmproductmaintenance.Show
End Sub

Private Sub mnuproductreport_Click()
On Error Resume Next rs.Close rs.Open "select * from product_table", conn
Set DataReport2.DataSource = rs
DataReport2.Show
End Sub

Private Sub mnusecurity_Click()
On Error Resume Next frmsecuritymaintenance.Show End Sub

Private Sub mnustockonhand_Click()
On Error Resume Next frmstockonhand.Show End Sub

Private Sub mnusupplier_Click()
On Error Resume Next frmsuppliermaintenance.Show End Sub

Private Sub mnusupplierdelivery_Click()
On Error Resume Next frmsupplierdelivery.Show End Sub

Private Sub mnusystemdeveloper_Click()
On Error Resume Next frmsystemdeveloper.Show End Sub

Private Sub mnusysteminformation_Click()
On Error Resume Next frmsysteminformation.Show End Sub

Private Sub Timer1_Timer()
StatusBar1.Panels(2) = "Time: " + Format(Now, "HH:MM:SS AMPM")
End Sub