Tugas VB Individu

Private Sub CmdDel_Click()
hapus = MsgBox(“Apakah data akan dihapus?”, vbInformation + vbYesNo, “Hapus data”)
If hapus = vbYes Then
dbPembelian.Recordset.Delete
dbPembelian.Recordset.MoveNext
Else
dbPembelian.Recordset.MoveFirst
End If
End Sub

Private Sub CmdEdit_Click()
dbPembelian.Recordset.Edit
Call Aktif
CmdEdit.Enabled = False
CmdSave.Enabled = True
CmdUndo.Enabled = True
CmdNew.Enabled = False

End Sub
Private Sub CmdExit_Click()
End
End Sub

Private Sub CmdFind_Click()
Mfield = InputBox(“Kode_barang”, “mencari field”)
Msyarat = InputBox(“Nama”, “mencari” & Mfield)
If IsNumeric(Msyarat) Then
Mkriteria = Mfield & “=” & Msyarat
ElseIf IsDate(Msyarat) Then
Mkriteria = Mfield & “=” & “#” & Msyarat & “#”
Else
Mkriteria = Mfield & “=” & “‘” & Msyarat & “‘”
End If
With dbPembelian.Recordset
On Error Resume Next
.find Mkriteria, , adsearchforward, 1
On Error GoTo 0
If .EOF Then
MsgBox “data tidak ditemukan”, , “data tidak ada”
End If
End With
End Sub

Private Sub CmdLast_Click()
dbPembelian.Recordset.MoveLast
End Sub

Private Sub CmdNew_Click()
dbPembelian.Recordset.Edit
dbPembelian.Recordset.AddNew
Call Aktif
Txtkode.SetFocus
CmdNew.Enabled = False
CmdSave.Enabled = True
CmdUndo.Enabled = True
CmdEdit.Enabled = False
CmdDel.Enabled = False
End Sub

Private Sub CmdNext_Click()
dbPembelian.Recordset.MoveNext
End Sub

Private Sub CmdPrevious_Click()
dbPembelian.Recordset.MovePrevious
End Sub

Private Sub CmdSave_Click()
dbPembelian.Recordset.Update
dbPembelian.Recordset.MoveFirst
Call TidakAktif
CmdSave.Enabled = False
CmdNew.Enabled = True
CmdEdit.Enabled = True
CmdUndo.Enabled = True
CmdDel.Enabled = True
End Sub

Private Sub CmdTop_Click()
dbPembelian.Recordset.MoveFirst
End Sub

Private Sub CmdUndo_Click()
dbPembelian.Recordset.Edit
dbPembelian.Recordset.CancelUpdate
Call TidakAktif
CmdUndo.Enabled = False
CmdNew.Enabled = True
CmdEdit.Enabled = True
CmdSave.Enabled = False
CmdDel.Enabled = True
End Sub

Private Sub dbPembelian_Reposition()
dbPembelian.DatabaseName = App.Path & “C:\Mid\Pembelian.mdb”
dbPembelian.RecordSource = “Barang”
End Sub

Sub TidakAktif()
Txtkode.Enabled = False
Txtnama.Enabled = False
Txtsatuan.Enabled = False
Txtharga.Enabled = False
End Sub

Sub Aktif()
Txtkode.Enabled = True
Txtnama.Enabled = True
Txtsatuan.Enabled = True
Txtharga.Enabled = True
End Sub

Private Sub Form_Load()
Call TidakAktif
End Sub