:: daoush.net : CYBERLINK NETWORK ::

Database Modul-3 vb6-access

Sun, 13 Jul 2008 21:34:15 +0000

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 End Sub 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 End Sub Private Sub SetDetailBarang() Dim vCari As String vCari = DBCombo1.Text vCari = "KDBRG = '" & vCari & "'" datbrg.Recordset.FindFirst vCari End Sub Private Sub DetailTrsOn() txtBukti.Locked = False txtTanggal.Locked = False DBCombo1.Locked = False Frame1.Enabled = True txtJml.Locked = False txtHppTrs.Locked = False End Sub Private Sub DetailTrsOff() txtBukti.Locked = True txtTanggal.Locked = True DBCombo1.Locked = True Frame1.Enabled = False txtJml.Locked = True txtHppTrs.Locked = True End Sub 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 End Sub 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 End Sub 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 End Sub Private Sub cmdAbout_Click() MsgBox "copyright 2000, Firdaus Maulana" End Sub Private Sub cmdAdd_Click() '.... Kosongkan txtKdTrs & Frame txtKdTrs = " " Call DetailFrame Call DetailTrsOn txtBukti.SetFocus datTRS.Recordset.AddNew Call NavigasiOff End Sub Private Sub cmdCancel_Click() datTRS.Recordset.CancelUpdate Call DetailTrsOff Call NavigasiOn End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub cmdDelete_Click() datTRS.Recordset.Delete End Sub Private Sub cmdEdit_Click() Call DetailTrsOn Call NavigasiOff txtBukti.SetFocus datTRS.Recordset.Edit End Sub 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 End Sub Private Sub cmdNext_Click() datTRS.Recordset.MoveNext End Sub Private Sub cmdPrevious_Click() datTRS.Recordset.MovePrevious End Sub Private Sub cmdSave_Click() Call SetKdTrs datTRS.UpdateRecord Call DetailTrsOff Call NavigasiOn End Sub 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 End Sub Private Sub DBCombo1_LostFocus() Call SetDetailBarang End Sub Private Sub Form_Load() picDetail.Enabled = False Call DetailTrsOff Call NavigasiOn End Sub Private Sub Frame1_Click() Call SetKdTrs End Sub Private Sub txtHppTrs_Change() Call CariTotalHarga End Sub Private Sub txtJml_Change() Call CariTotalHarga End Sub

Database Modul-2 vb6-access

Sun, 13 Jul 2008 21:31:14 +0000

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 End Sub 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 End Sub 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" End Sub Private Sub cmdAdd_Click() picDetail.Enabled = True txtKdBrg.SetFocus datbrg.Recordset.AddNew Call NavigasiOff End Sub Private Sub cmdCancel_Click() datbrg.Recordset.CancelUpdate picDetail.Enabled = False Call NavigasiOn End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub cmdColumnar_Click() cmdTabular.Enabled = True cmdColumnar.Enabled = False MSFlexGrid1.Visible = False picDetail.Visible = True Call NavigasiOn End Sub Private Sub cmdDelete_Click() datbrg.Recordset.Delete End Sub Private Sub cmdEdit_Click() picDetail.Enabled = True Call NavigasiOff txtKdBrg.SetFocus datbrg.Recordset.Edit End Sub 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 End Sub Private Sub cmdPrevious_Click() datbrg.Recordset.MovePrevious End Sub Private Sub cmdSave_Click() datbrg.UpdateRecord picDetail.Enabled = False Call NavigasiOn End Sub Private Sub cmdTabular_Click() cmdTabular.Enabled = False cmdColumnar.Enabled = True MSFlexGrid1.Visible = True picDetail.Visible = False Call AllNavOff End Sub 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 End Sub Private Sub Form_Load() picDetail.Enabled = False Call NavigasiOn End Sub

Property usually used

Sun, 13 Jul 2008 20:56:17 +0000

Click here to download/see in PDF Document Here is the properties usually used in Visual Foxpro Object Control – FORM Propery Remarks AutoCenter Mengetengahkan Form ini Caption Tulisan di Judul Form ini ControlBox On/Off Icon Close, Minimize, Restore, Maximize DataSession 2-Private Data Session, Open & Close secara manual Name FrmNamaFormIni ScrollBar Digunakan untuk form yang panjang/lebar WindowType 1-Modal , Form ini harus dikerjakan Object Control - PAGEFRAME Propery Remarks PageCount Jumlah Tab untuk PageFrame ini Object Control – LABEL Propery Remarks AutoSize Penyesuaian lebar Caption secara automatis/manual Caption Tulisan yang tampil untuk Label ini Name LblNamaLabel Object Control – TEXTBOX Propery Remarks Alignment Perataan text yang tampil ( kiri, kanan, tengah ) PasswordChar Tampilan lain dari huruf yang di inputkan ToolTipText Keterangan lain untuk text ini saat mouse diarahkan MaxLength Jumlah huruf yang dapat dientrikan ke text ini Name TxtNamaText Enabled On/Off pengisian di text ini TabIndex Pengentrian yang ke n pada form jika ditekan Tab Value Nilai dari Text ini. Object Control – COMMANDBUTTON Propery Remarks Caption Tulisan yang tampil di Tombol ini < Enabled On/Off peng-Click-an di Tombol ini Name CmdNamaCommand