form barang

Private Sub add_Click()
Adodc2.Recordset.AddNew
Text1.SetFocus

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

Private Sub Command1_Click()
Adodc2.Refresh
End Sub
Private Sub datacustomer_Click()
Form1.Show
Unload Me
End Sub

Private Sub DataGrid2_Click()
edit.Enabled = True

End Sub

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

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

Private Sub edit_Click()
Adodc2.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()
Adodc2.Recordset.save

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