VB6 PART II

Membuat Form Input Data User





script

Sub bersih()
txtkdbrg = ""
txtnmbrg = ""
txthrgbrg = ""
txtjmlbrg = ""
txtsatuan = ""
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
    Adouser.Recordset.Delete
End If
End Sub

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

Private Sub cmdtambah_Click()
Adouser.Recordset.AddNew
bersih
txtkduser.SetFocus
End Sub

Klo kurang jelas Lihat VB6 Part 1

kasih komentar ya