Pages

November 9, 2012

VB6 PART 3





 Sub bersih()
txtkdcust = ""
txtnmcust = ""
txthrgcust = ""
txttelpcust = ""
txtfaxcust = ""
End Sub


Private Sub cmdexit_Click()
End
End Sub

Private Sub cmdhapus_Click()
If MsgBox("Apakah Benar akan hapus User tersebut??", vbQuestion + vbYesNo) = vbYes Then
    AdoCustomer.Recordset.Delete
End If
End Sub

Private Sub cmdsimpan_Click()
AdoCustomer.Recordset.Save
End Sub

Private Sub cmdtambah_Click()
AdoCustomer.Recordset.AddNew
bersih
txtkdcust.SetFocus
End Sub


Comments
0 Comments

0 komentar:

Post a Comment