Database Modul-1 vb6-access

Click here to download Database Structure ( Ms.Access )

Click here to download Modul #1 in PDF Document

 

 

Visual Basic v. 6  Modul  Database #1

Form Design :

The Properties :

Control	Property	Value
Data           PictureBox   TextBox       TextBox   PictureBox   PictureBox	Name DatabaseName RecordSource Connect DefaultType   Name   Name DataSource DataField   ………………..   Name   Name	DatBRG NameOfFolderAndDatabase TabelName Access    ( default ) 2-UseJet  ( default )   PicDetail (  detail field )   TxtKdBrg   ( txtFIELDNAME ) DatBRG     ( Name Data Control ) KdBrg        (  FieldName )       Continued with other fields   PicNavigasi ( navigation button )   Picture1 ( Close – About )

 

The moduls / programming command :

 

‘ FormName   : FORM1

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

‘ Database   : dbsPCBM4.mdb

` LastUpdate : Sept 19 2000

‘ Remarks    : VB + Database ( Modul 1 )

 

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

 

Private Sub NavigasiOff()

cmdAdd.Enabled = False

cmdEdit.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()

picDetail.Enabled = True

Call NavigasiOff

txtKdBrg.SetFocus

datBRG.Recordset.AddNew

 

Private Sub cmdCancel_Click()

datBRG.Recordset.CancelUpdate

picDetail.Enabled = False

Call NavigasiOn

 

Private Sub cmdClose_Click()

Unload Me

 

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("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 "data not found"

End If

 

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 datBRG_Reposition()

datBRG.Caption = "Record : " & (datBRG.Recordset.AbsolutePosition + 1)

If datBRG.Recordset.BOF Then

    datBRG.Recordset.MoveNext

    cmdPrevious.Enabled = False

End If

If datBRG.Recordset.EOF Then

    datBRG.Recordset.MovePrevious

    cmdNext.Enabled = False

End If

 

Private Sub Form_Load()

picDetail.Enabled = False

Call NavigasiOn

End Sub

 

13.07.2008. 20:01

This article hasn't been commented yet.