Private Sub CMDPROSES_Click()
Dim snpm As String
snpm = InputBox(“npm:”)
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find “npm =” & snpm & “”
End Sub
Private Sub CMDUPDATE_Click()
Text1.SetFocus
Adodc1.Recordset.AddNew
End Sub
Private SubCMDSAVE_Click()
Adodc1.Recordset.Update
MsgBox “data berhasil disimpan. . . ! ! !”, vbOKOnly + vbInformation, “konfirmasi”
End Sub
Private Sub CMDDELETE_Click()
If MsgBox(“apakah anda yakin ingin menghapusnya. . . ???”, vbokancel + vbCritical, “konfirmasi”) = vbOK Then
Adodc1.Recordset.Delete
End Sub
Private Sub CMDEXIT_Click()
End
End Sub
Private Sub Form_Activate()
Txtnama.setfocus
Txtnama1.Text = “”
Txtnpm.Text = “”
Txtjrs.Text = “”
Txtps.Text = “”
Txttm.Text = “”
Txtnu.Text = “”
End Sub