form data customer

Private Sub add_Click()
Adodc1.Recordset.AddNew
Text2.SetFocus

save.Enabled = True
add.Enabled = False
delete.Enabled = False
edit.Enabled = False
keluar.Enabled = False
End Sub

Private Sub Command1_Click()
Adodc1.Refresh
End Sub


Private Sub databarang_Click()
Form2.Show
Unload Me
End Sub

Private Sub DataGrid1_Click()
edit.Enabled = True
End Sub

Private Sub delete_Click()
Adodc1.Recordset.delete
Adodc1.Refresh
Adodc1.Recordset.MoveFirst

save.Enabled = False
add.Enabled = True
delete.Enabled = True
edit.Enabled = True
keluar.Enabled = True
End Sub

Private Sub edit_Click()
Adodc1.Recordset.Update

save.Enabled = True
add.Enabled = True
delete.Enabled = True
edit.Enabled = False
keluar.Enabled = True
End Sub


Private Sub Form_Activate()
save.Enabled = False
add.Enabled = True
delete.Enabled = True
edit.Enabled = False
keluar.Enabled = True
End Sub


Private Sub keluar_Click()
If MsgBox("yakin mau keluar ??", vbOKCancel + vbCritical, "WARNING !") = vbOK Then
Form3.Show
Else
End If
End Sub

Private Sub save_Click()
Adodc1.Recordset.Update

save.Enabled = False
add.Enabled = True
delete.Enabled = True
edit.Enabled = True
keluar.Enabled = True
End Sub

Private Sub Timer1_Timer()
Label7.Caption = Format(Time)
End Sub