Database Modul-2 vb6-access

Click here to download Database Structure ( Ms.Access )

Click here to download Modul #2 in PDF Document

 

Visual Basic v. 6  Modul  Database #2

 

Activated ControlActive X ( components ) √ Microsoft FlexGrid Control 6.0  to take Control MSFlexGrid.

 

Form Design :

 

 

The Properties :

Control	Property	Value
Data           PictureBox   TextBox       TextBox   PictureBox   PictureBox     MSFlexGrid	Name DatabaseName RecordSource Connect DefaultType   Name   Name DataSource DataField   ………………..   Name   Name     Name Width Data Source AllowUserResizing	DatBRG NameOfFolderAndDatabase NamaOfTabel Access    ( default ) 2-UseJet  ( default )   PicDetail ( detail field )   TxtKdBrg   ( txtFIELDNAME ) DatBRG     ( Name Data Control ) KdBrg        (  FieldName )        Continued with others detail field   PicNavigasi ( navigaion button )   Picture1 ( Close – About – Tabular and Columnar )                                                         MSFlexGrid1 Arranged width as picDetail DatBRG     ( Name Data Control ) 3 - FlexResizeBoth

 

The moduls / programming command :

 

' FormName   : FORM1

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

' Database   : dbsPCBM4.mdb

' LastUpdate : Sept 25 2000

' Remarks    : VB + Database ( Modul 2 )

 

Option Explicit

 

---

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

cmdTabular.Enabled = True

cmdColumnar.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

cmdTabular.Enabled = False

cmdColumnar.Enabled = True

 

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

cmdTabular.Enabled = False

cmdColumnar.Enabled = False

End Sub

 

---

Private Sub cmdAbout_Click()

MsgBox "copyright 2000, Firdaus Maulana"

 

Private Sub cmdAdd_Click()

picDetail.Enabled = True

txtKdBrg.SetFocus

datbrg.Recordset.AddNew

Call NavigasiOff

 

Private Sub cmdCancel_Click()

datbrg.Recordset.CancelUpdate

picDetail.Enabled = False

Call NavigasiOn

 

Private Sub cmdClose_Click()

Unload Me

 

Private Sub cmdColumnar_Click()

cmdTabular.Enabled = True

cmdColumnar.Enabled = False

MSFlexGrid1.Visible = False

picDetail.Visible = True

Call NavigasiOn

 

Private Sub cmdDelete_Click()

datbrg.Recordset.Delete

 

Private Sub cmdEdit_Click()

picDetail.Enabled = True

Call NavigasiOff

txtKdBrg.SetFocus

datbrg.Recordset.Edit

 

Private Sub cmdFind_Click()

Dim vCari As String

vCari = InputBox("Find Kode Barang ", "Find")

If Len(vCari) = 0 Then

    MsgBox "Do not empty"

    Exit Sub

End If

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

datbrg.Recordset.FindFirst vCari

If datbrg.Recordset.NoMatch Then

    MsgBox "Sorry, data not found"

End If

End Sub

 

---

Private Sub cmdNext_Click()

datbrg.Recordset.MoveNext

 

Private Sub cmdPrevious_Click()

datbrg.Recordset.MovePrevious

 

Private Sub cmdSave_Click()

datbrg.UpdateRecord

picDetail.Enabled = False

Call NavigasiOn

 

Private Sub cmdTabular_Click()

   cmdTabular.Enabled = False

   cmdColumnar.Enabled = True

   MSFlexGrid1.Visible = True

   picDetail.Visible = False

   Call AllNavOff

 

Private Sub datBRG_Reposition()

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

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

If datbrg.Recordset.BOF Then

    datbrg.Recordset.MoveNext

    cmdPrevious.Enabled = False

Else

    cmdPrevious.Enabled = True

End If

If datbrg.Recordset.EOF Then

    datbrg.Recordset.MovePrevious

    cmdNext.Enabled = False

Else

    cmdNext.Enabled = True

End If

 

Private Sub Form_Load()

picDetail.Enabled = False

Call NavigasiOn

 

 

 

13.07.2008. 21:31

This article hasn't been commented yet.