i-

来自「VB开发的ERP系统」· 代码 · 共 1,236 行 · 第 1/5 页

TXT
1,236 行
字号
12345
                    CxbbGrid.TextMatrix(Rowjsq, Sydz("010", GridStr(), Szzls)) = Dbl_Jedfhj       '本期发生.贷方
                    CxbbGrid.TextMatrix(Rowjsq, Sydz("016", GridStr(), Szzls)) = Dbl_Jedfhj       '本期贷方发生.金额
                End If
                '3.显示截止累计借贷方发生额
                If Dbl_Jejflj <> 0 Then
                    CxbbGrid.TextMatrix(Rowjsq, Sydz("017", GridStr(), Szzls)) = Dbl_Jejflj       '累计发生.借方
                    CxbbGrid.TextMatrix(Rowjsq, Sydz("021", GridStr(), Szzls)) = Dbl_Jejflj       '累计借方发生.金额
                End If
                If Dbl_Jedflj <> 0 Then
                    CxbbGrid.TextMatrix(Rowjsq, Sydz("018", GridStr(), Szzls)) = Dbl_Jedflj       '累计发生.贷方
                    CxbbGrid.TextMatrix(Rowjsq, Sydz("024", GridStr(), Szzls)) = Dbl_Jedflj       '累计贷方发生.金额
                End If
                '4.计算本期期末余额
                Dbl_Qmyete = Dbl_Qcyete + Dbl_Jejfhj - Dbl_Jedfhj
                If Dbl_Qmyete = 0 Then
                    CxbbGrid.TextMatrix(Rowjsq, Sydz("025", GridStr(), Szzls)) = "平"     '期初方向
                Else
                    If Dbl_Qmyete > 0 Then
                        CxbbGrid.TextMatrix(Rowjsq, Sydz("025", GridStr(), Szzls)) = "借"
                        CxbbGrid.TextMatrix(Rowjsq, Sydz("026", GridStr(), Szzls)) = Dbl_Qmyete
                        CxbbGrid.TextMatrix(Rowjsq, Sydz("030", GridStr(), Szzls)) = Dbl_Qmyete
                    Else
                        CxbbGrid.TextMatrix(Rowjsq, Sydz("025", GridStr(), Szzls)) = "贷"
                        CxbbGrid.TextMatrix(Rowjsq, Sydz("027", GridStr(), Szzls)) = -Dbl_Qmyete
                        CxbbGrid.TextMatrix(Rowjsq, Sydz("030", GridStr(), Szzls)) = -Dbl_Qmyete
                    End If
                End If
                Rowjsq = Rowjsq + 1
                Str_ClassIndex = Trim(CxbbGrid.TextMatrix(Rowjsq, 1))
                Dbl_Qcjfye = Val(.TextMatrix(Rowjsq, Sydz("004", GridStr(), Szzls)))
                Dbl_Qcdfye = Val(.TextMatrix(Rowjsq, Sydz("005", GridStr(), Szzls)))
                Dbl_Jejfhj = Val(.TextMatrix(Rowjsq, Sydz("009", GridStr(), Szzls)))
                Dbl_Jedfhj = Val(.TextMatrix(Rowjsq, Sydz("010", GridStr(), Szzls)))
                Dbl_Jejflj = Val(.TextMatrix(Rowjsq, Sydz("017", GridStr(), Szzls)))
                Dbl_Jedflj = Val(.TextMatrix(Rowjsq, Sydz("018", GridStr(), Szzls)))
                Dbl_Qmjfye = Val(.TextMatrix(Rowjsq, Sydz("025", GridStr(), Szzls)))
                Dbl_Qmdfye = Val(.TextMatrix(Rowjsq, Sydz("026", GridStr(), Szzls)))
                '显示完毕
            End If
            Rowjsq = Rowjsq + 1
        Loop
        '无数据行则不添加合计
        If .FixedRows = .Rows Then
            Exit Sub
        End If
        CxbbGrid.AddItem "", Rowjsq
        CxbbGrid.RowHeight(Rowjsq) = Sjhgd
        CxbbGrid.TextMatrix(Rowjsq, 0) = Str_ClassIndex + "合计"
        CxbbGrid.TextMatrix(Rowjsq, Sydz("002", GridStr(), Szzls)) = Fun_GetContent("Cwzz_kmlx", Str_ClassIndex) + "类合计"
        CxbbGrid.Cell(flexcpBackColor, Rowjsq, 0, , CxbbGrid.Cols - 1) = Lab_Color(0).BackColor
        '显示数据
        '1.显示期初余额
        Dbl_Qcyete = Dbl_Qcjfye - Dbl_Qcdfye
        If Dbl_Qcyete = 0 Then
            CxbbGrid.TextMatrix(Rowjsq, Sydz("003", GridStr(), Szzls)) = "平"     '期初方向
        Else
            If Dbl_Qcyete > 0 Then
                CxbbGrid.TextMatrix(Rowjsq, Sydz("003", GridStr(), Szzls)) = "借"
                CxbbGrid.TextMatrix(Rowjsq, Sydz("004", GridStr(), Szzls)) = Dbl_Qcyete
                CxbbGrid.TextMatrix(Rowjsq, Sydz("008", GridStr(), Szzls)) = Dbl_Qcyete
            Else
                CxbbGrid.TextMatrix(Rowjsq, Sydz("003", GridStr(), Szzls)) = "贷"
                CxbbGrid.TextMatrix(Rowjsq, Sydz("005", GridStr(), Szzls)) = -Dbl_Qcyete
                CxbbGrid.TextMatrix(Rowjsq, Sydz("008", GridStr(), Szzls)) = -Dbl_Qcyete
            End If
        End If
        '2.显示期间合计数据
        If Dbl_Jejfhj <> 0 Then
            CxbbGrid.TextMatrix(Rowjsq, Sydz("009", GridStr(), Szzls)) = Dbl_Jejfhj       '本期发生.借方
            CxbbGrid.TextMatrix(Rowjsq, Sydz("013", GridStr(), Szzls)) = Dbl_Jejfhj       '本期借方发生.金额
        End If
        If Dbl_Jedfhj <> 0 Then
            CxbbGrid.TextMatrix(Rowjsq, Sydz("010", GridStr(), Szzls)) = Dbl_Jedfhj       '本期发生.贷方
            CxbbGrid.TextMatrix(Rowjsq, Sydz("016", GridStr(), Szzls)) = Dbl_Jedfhj       '本期贷方发生.金额
        End If
        '3.显示截止累计借贷方发生额
        If Dbl_Jejflj <> 0 Then
            CxbbGrid.TextMatrix(Rowjsq, Sydz("017", GridStr(), Szzls)) = Dbl_Jejflj       '累计发生.借方
            CxbbGrid.TextMatrix(Rowjsq, Sydz("021", GridStr(), Szzls)) = Dbl_Jejflj       '累计借方发生.金额
        End If
        If Dbl_Jedflj <> 0 Then
            CxbbGrid.TextMatrix(Rowjsq, Sydz("018", GridStr(), Szzls)) = Dbl_Jedflj       '累计发生.贷方
            CxbbGrid.TextMatrix(Rowjsq, Sydz("024", GridStr(), Szzls)) = Dbl_Jedflj       '累计贷方发生.金额
        End If
        '4.计算本期期末余额
        Dbl_Qmyete = Dbl_Qcyete + Dbl_Jejfhj - Dbl_Jedfhj
        If Dbl_Qmyete = 0 Then
            CxbbGrid.TextMatrix(Rowjsq, Sydz("025", GridStr(), Szzls)) = "平"     '期初方向
        Else
            If Dbl_Qmyete > 0 Then
                CxbbGrid.TextMatrix(Rowjsq, Sydz("025", GridStr(), Szzls)) = "借"
                CxbbGrid.TextMatrix(Rowjsq, Sydz("026", GridStr(), Szzls)) = Dbl_Qmyete
                CxbbGrid.TextMatrix(Rowjsq, Sydz("030", GridStr(), Szzls)) = Dbl_Qmyete
            Else
                CxbbGrid.TextMatrix(Rowjsq, Sydz("025", GridStr(), Szzls)) = "贷"
                CxbbGrid.TextMatrix(Rowjsq, Sydz("027", GridStr(), Szzls)) = -Dbl_Qmyete
                CxbbGrid.TextMatrix(Rowjsq, Sydz("030", GridStr(), Szzls)) = -Dbl_Qmyete
            End If
        End If
    End With
End Sub

Private Sub Combo_AccFormat_Click()                    '用户选择不同帐页格式
    Dim Int_Coljsq As Integer         '网格列临时计数器
    '为了加快显示速度
    CxbbGrid.Redraw = False
    For Int_Coljsq = Qslz To CxbbGrid.Cols - 1
        CxbbGrid.ColHidden(Int_Coljsq) = True
    Next Int_Coljsq
    Select Case Combo_AccFormat
    Case "金额式"
        CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '科目编码
        CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '科目名称
        CxbbGrid.ColHidden(Sydz("004", GridStr(), Szzls)) = False      '期初余额.借方
        CxbbGrid.ColHidden(Sydz("005", GridStr(), Szzls)) = False      '期初余额.贷方
        CxbbGrid.ColHidden(Sydz("009", GridStr(), Szzls)) = False      '本期发生.借方
        CxbbGrid.ColHidden(Sydz("010", GridStr(), Szzls)) = False      '本期发生.贷方
        If SzToolbar.Buttons("lj").Value = tbrPressed Then
            CxbbGrid.ColHidden(Sydz("017", GridStr(), Szzls)) = False      '累计发生.借方
            CxbbGrid.ColHidden(Sydz("018", GridStr(), Szzls)) = False      '累计发生.贷方
        End If
        CxbbGrid.ColHidden(Sydz("026", GridStr(), Szzls)) = False      '期末余额.借方
        CxbbGrid.ColHidden(Sydz("027", GridStr(), Szzls)) = False      '期末余额.贷方
    Case "外币金额式"
        CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '科目编码
        CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '科目名称
        CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '方向.方向
        CxbbGrid.ColHidden(Sydz("007", GridStr(), Szzls)) = False      '期初余额.外币
        CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = False      '期初余额.金额
        CxbbGrid.ColHidden(Sydz("012", GridStr(), Szzls)) = False      '本期借方发生.外币
        CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False      '本期借方发生.金额
        CxbbGrid.ColHidden(Sydz("015", GridStr(), Szzls)) = False      '本期贷方发生.外币
        CxbbGrid.ColHidden(Sydz("016", GridStr(), Szzls)) = False      '本期贷方发生.金额
        If SzToolbar.Buttons("lj").Value = tbrPressed Then
            CxbbGrid.ColHidden(Sydz("020", GridStr(), Szzls)) = False      '累计借方发生.外币
            CxbbGrid.ColHidden(Sydz("021", GridStr(), Szzls)) = False      '累计借方发生.金额
            CxbbGrid.ColHidden(Sydz("023", GridStr(), Szzls)) = False      '累计贷方发生.外币
            CxbbGrid.ColHidden(Sydz("024", GridStr(), Szzls)) = False      '累计贷方发生.金额
        End If
        CxbbGrid.ColHidden(Sydz("025", GridStr(), Szzls)) = False      '方向.方向
        CxbbGrid.ColHidden(Sydz("029", GridStr(), Szzls)) = False      '期末余额.外币
        CxbbGrid.ColHidden(Sydz("030", GridStr(), Szzls)) = False      '期末余额.金额
    Case "数量金额式"
        CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '科目编码
        CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '科目名称
        CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '方向.方向
        CxbbGrid.ColHidden(Sydz("006", GridStr(), Szzls)) = False      '期初余额.数量
        CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = False      '期初余额.金额
        CxbbGrid.ColHidden(Sydz("011", GridStr(), Szzls)) = False      '本期借方发生.数量
        CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False      '本期借方发生.金额
        CxbbGrid.ColHidden(Sydz("014", GridStr(), Szzls)) = False      '本期贷方发生.数量
        CxbbGrid.ColHidden(Sydz("016", GridStr(), Szzls)) = False      '本期贷方发生.金额
        If SzToolbar.Buttons("lj").Value = tbrPressed Then
            CxbbGrid.ColHidden(Sydz("019", GridStr(), Szzls)) = False      '累计借方发生.数量
            CxbbGrid.ColHidden(Sydz("021", GridStr(), Szzls)) = False      '累计借方发生.金额
            CxbbGrid.ColHidden(Sydz("022", GridStr(), Szzls)) = False      '累计贷方发生.数量
            CxbbGrid.ColHidden(Sydz("024", GridStr(), Szzls)) = False      '累计贷方发生.金额
        End If
        CxbbGrid.ColHidden(Sydz("025", GridStr(), Szzls)) = False      '方向.方向
        CxbbGrid.ColHidden(Sydz("028", GridStr(), Szzls)) = False      '期末余额.数量
        CxbbGrid.ColHidden(Sydz("030", GridStr(), Szzls)) = False      '期末余额.金额
    Case "数量外币式"
        CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '科目编码
        CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '科目名称
        CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '方向.方向
        CxbbGrid.ColHidden(Sydz("006", GridStr(), Szzls)) = False      '期初余额.数量
        CxbbGrid.ColHidden(Sydz("007", GridStr(), Szzls)) = False      '期初余额.外币
        CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = False      '期初余额.金额
        CxbbGrid.ColHidden(Sydz("011", GridStr(), Szzls)) = False      '本期借方发生.数量
        CxbbGrid.ColHidden(Sydz("012", GridStr(), Szzls)) = False      '本期借方发生.外币
        CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False      '本期借方发生.金额
        CxbbGrid.ColHidden(Sydz("014", GridStr(), Szzls)) = False      '本期贷方发生.数量
        CxbbGrid.ColHidden(Sydz("015", GridStr(), Szzls)) = False      '本期贷方发生.外币
        CxbbGrid.ColHidden(Sydz("016", GridStr(), Szzls)) = False      '本期贷方发生.金额
        If SzToolbar.Buttons("lj").Value = tbrPressed Then
            CxbbGrid.ColHidden(Sydz("019", GridStr(), Szzls)) = False      '累计借方发生.数量
            CxbbGrid.ColHidden(Sydz("020", GridStr(), Szzls)) = False      '累计借方发生.外币
            CxbbGrid.ColHidden(Sydz("021", GridStr(), Szzls)) = False      '累计借方发生.金额
            CxbbGrid.ColHidden(Sydz("022", GridStr(), Szzls)) = False      '累计贷方发生.数量
            CxbbGrid.ColHidden(Sydz("023", GridStr(), Szzls)) = False      '累计贷方发生.外币
            CxbbGrid.ColHidden(Sydz("024", GridStr(), Szzls)) = False      '累计贷方发生.金额
        End If
        CxbbGrid.ColHidden(Sydz("025", GridStr(), Szzls)) = False      '方向.方向
        CxbbGrid.ColHidden(Sydz("028", GridStr(), Szzls)) = False      '期末余额.数量
        CxbbGrid.ColHidden(Sydz("029", GridStr(), Szzls)) = False      '期末余额.外币
        CxbbGrid.ColHidden(Sydz("030", GridStr(), Szzls)) = False      '期末余额.金额
    End Select
    CxbbGrid.Redraw = True
End Sub

Private Sub Sub_LcZflz()                               '联查总分类帐
    '非数据行退出
    If CxbbGrid.Row < CxbbGrid.FixedRows Then
        Exit Sub
    End If
    '联查总分类帐
    If Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("001", GridStr(), Szzls))) <> "" Then
        ZB_Frmzflztj.LrText(0).Text = Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("001", GridStr(), Szzls)))   '查询科目
        ZB_Frmzflztj.LrText(3).Text = 6
        ZB_Frmzflztj.Chk_NotBook.Value = ZB_Frmkmyebtj.Chk_NotBook.Value                                       '是否包含未记帐凭证
        ZB_Frmzflzjg.Timer1.Enabled = True                                                                     '激活查询总分类帐过程
        ZB_Frmzflzjg.Show
        ZB_Frmzflzjg.SetFocus
    End If
End Sub

Private Sub Sub_Lcmxz()                                '联查科目明细帐
    '非数据行退出
    If CxbbGrid.Row < CxbbGrid.FixedRows Then
        Exit Sub
    End If
    '联查明细帐
    If Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("001", GridStr(), Szzls))) <> "" Then
        ZB_Frmkmmxztj.Combo_Kjqj(0).Text = ZB_Frmkmyebtj.Combo_Kjqj(0).Text   '起始会计期间
        ZB_Frmkmmxztj.Combo_Kjqj(1).Text = ZB_Frmkmyebtj.Combo_Kjqj(1).Text   '终止会计期间
        ZB_Frmkmmxztj.LrText(0).Text = Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("001", GridStr(), Szzls)))        '查询科目
        ZB_Frmkmmxztj.Chk_NotBook.Value = ZB_Frmkmyebtj.Chk_NotBook.Value     '是否包含未记帐凭证
        ZB_Frmkmmxzjg.Timer1.Enabled = True                                   '激活查询明细帐过程
        ZB_Frmkmmxzjg.Show
        ZB_Frmkmmxzjg.SetFocus
    End If
End Sub

Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
    Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
    Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
    Bbxbtgs = 1                                          '报 表 小 标 题 行 数
    Bbbwhgs = 0                                          '报 表 表 尾 行 数
    ReDim Bbxbt(1 To Bbxbtgs)
    ReDim bbxbtzzxs(1 To Bbxbtgs)
    If Bbbwhgs <> 0 Then
        ReDim Bbbwh(1 To Bbbwhgs)
        ReDim Bbbwhzzxs(1 To Bbbwhgs)
    End If
    Bbzbt = ReportTitle
    Bbxbt(1) = Space(2) + "会计期间:" + Lab_TitleText(0)
    bbxbtzzxs(1) = 0                                    '报表行组织形式(0-居左 1-居中 2-居右)
    Call Scyxsjb(CxbbGrid)                               '生成报表数据
    Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
    If Not bbylte Then
        Unload DY_Tybbyldy
    End If
End Sub
12345

i- - 源码说明

本页面展示了「VB开发的ERP系统」中的 i- 源码文件，采用 编程语言编写，共 1,236 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ERP系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?