Database Modul-3 vb6-access

Click here to download Database Structure ( Ms.Access )

Click here to download Modul #3 in PDF Document

 

 

Visual Basic v. 6  Modul Database #3

 

Activated ControlActive X ( components ) √ Microsoft Data Bound List Controls 6.0  to take Control DbCombo.

 

Form Design :

 

 

 

Moduls / Programming Command  :

 

' FormName   : FORM2

' Programmer : FIRDAUS MAULANA (www.daoush.net)

' Database   : dbsPCBM4.mdb

' LastUpdate : Sept 25 2000

' Remarks    : VB + Database ( Modul 3 )

 

Option Explicit

---

 

Private Sub CariTotalHarga()

txtTotalHarga = Val(txtJml) * Val(txtHppTrs)

End Sub

Private Sub SetKdTrs()

 If Option1.Value = True Then

    txtKdTrs = "M"

 ElseIf Option2.Value = True Then

    txtKdTrs = "K"

 Else

    txtKdTrs = " "

 End If

 

Private Sub DetailFrame()

  If txtKdTrs = "M" Then

     Option1.Value = True

     Option2.Value = False

  ElseIf txtKdTrs = "K" Then

     Option2.Value = True

     Option1.Value = False

  Else

     Option1.Value = False

     Option2.Value = False

  End If

 

Private Sub SetDetailBarang()

    Dim vCari As String

    vCari = DBCombo1.Text

    vCari = "KDBRG = '" & vCari & "'"

    datbrg.Recordset.FindFirst vCari

 

Private Sub DetailTrsOn()

 txtBukti.Locked = False

 txtTanggal.Locked = False

 DBCombo1.Locked = False

 Frame1.Enabled = True

 txtJml.Locked = False

 txtHppTrs.Locked = False

 

Private Sub DetailTrsOff()

 txtBukti.Locked = True

 txtTanggal.Locked = True

 DBCombo1.Locked = True

 Frame1.Enabled = False

 txtJml.Locked = True

 txtHppTrs.Locked = True

 

Private Sub NavigasiOn()

cmdAdd.Enabled = True

cmdEdit.Enabled = True

cmdDelete.Enabled = True

cmdPrevious.Enabled = True

cmdNext.Enabled = True

cmdFind.Enabled = True

cmdSave.Enabled = False

cmdCancel.Enabled = False

 

Private Sub AllNavOff()

cmdAdd.Enabled = False

cmdEdit.Enabled = False

cmdDelete.Enabled = False

cmdPrevious.Enabled = False

cmdNext.Enabled = False

cmdFind.Enabled = False

cmdSave.Enabled = False

cmdCancel.Enabled = False

 

Private Sub NavigasiOff()

cmdAdd.Enabled = False

cmdEdit.Enabled = False

cmdDelete.Enabled = False

cmdPrevious.Enabled = False

cmdNext.Enabled = False

cmdFind.Enabled = False

cmdSave.Enabled = True

cmdCancel.Enabled = True

cmdSave.Default = True

 

Private Sub cmdAbout_Click()

MsgBox "copyright 2000, Firdaus Maulana"

 

Private Sub cmdAdd_Click()

'.... Kosongkan txtKdTrs & Frame

txtKdTrs = " "

Call DetailFrame

Call DetailTrsOn

txtBukti.SetFocus

datTRS.Recordset.AddNew

Call NavigasiOff

 

Private Sub cmdCancel_Click()

datTRS.Recordset.CancelUpdate

Call DetailTrsOff

Call NavigasiOn

 

Private Sub cmdClose_Click()

Unload Me

 

Private Sub cmdDelete_Click()

datTRS.Recordset.Delete

 

Private Sub cmdEdit_Click()

Call DetailTrsOn

Call NavigasiOff

txtBukti.SetFocus

datTRS.Recordset.Edit

 

Private Sub cmdFind_Click()

Dim vCari As String

vCari = InputBox("Find Nomor Bukti ", "Find")

If Len(vCari) = 0 Then

    MsgBox "Do not empty !"

    Exit Sub

End If

vCari = "BUKTI = '" & vCari & "'"

datTRS.Recordset.FindFirst vCari

If datTRS.Recordset.NoMatch Then

    MsgBox "Sorry, data not found"

End If

 

Private Sub cmdNext_Click()

datTRS.Recordset.MoveNext

 

Private Sub cmdPrevious_Click()

datTRS.Recordset.MovePrevious

 

 

Private Sub cmdSave_Click()

Call SetKdTrs

datTRS.UpdateRecord

Call DetailTrsOff

Call NavigasiOn

 

Private Sub datTRS_Reposition()

On Error GoTo batalkan

lblPosisi.Caption = "Rec: " & (datTRS.Recordset.AbsolutePosition + 1)

lblPosisi.Caption = lblPosisi.Caption & " / " & (datTRS.Recordset.RecordCount)

If datTRS.Recordset.BOF Then

    datTRS.Recordset.MoveNext

    cmdPrevious.Enabled = False

Else

    cmdPrevious.Enabled = True

End If

If datTRS.Recordset.EOF Then

    datTRS.Recordset.MovePrevious

    cmdNext.Enabled = False

Else

    cmdNext.Enabled = True

End If

Call SetDetailBarang

Call DetailFrame

Call CariTotalHarga

batalkan:

Exit Sub

 

Private Sub DBCombo1_LostFocus()

    Call SetDetailBarang

 

Private Sub Form_Load()

picDetail.Enabled = False

Call DetailTrsOff

Call NavigasiOn

 

Private Sub Frame1_Click()

    Call SetKdTrs

 

Private Sub txtHppTrs_Change()

    Call CariTotalHarga

 

Private Sub txtJml_Change()

    Call CariTotalHarga

13.07.2008. 21:34