VB开发的ERP系统

        CxbbGrid.ColHidden(Sydz("009", 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("015", GridStr(), Szzls)) = False      '余额.数量
        CxbbGrid.ColHidden(Sydz("016", GridStr(), Szzls)) = False      '余额.单价
        CxbbGrid.ColHidden(Sydz("019", 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("004", GridStr(), Szzls)) = False      '单价
        CxbbGrid.ColHidden(Sydz("005", GridStr(), Szzls)) = False      '汇率
        CxbbGrid.ColHidden(Sydz("007", GridStr(), Szzls)) = False      '借方.数量
        CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = False      '借方.外币
        CxbbGrid.ColHidden(Sydz("009", 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      '余额.单价
        CxbbGrid.ColHidden(Sydz("017", GridStr(), Szzls)) = False      '余额.外币
        CxbbGrid.ColHidden(Sydz("018", GridStr(), Szzls)) = False      '余额.汇率
        CxbbGrid.ColHidden(Sydz("019", GridStr(), Szzls)) = False      '余额.金额
    End Select
    CxbbGrid.Redraw = True
End Sub

Private Sub Sub_OutBalance(Jsqte As Long, Bln_EndFlag As Boolean, Bln_ForeignFlag As Boolean, Dbl_Qcyete#, Dbl_Qcslte#, Dbl_Qcwbte#)          '输出余额
    If Dbl_Qcyete = 0 Then
        CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = "平"          '期初方向
        If Bln_EndFlag And Dbl_Qcslte <> 0 Then
            CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = Dbl_Qcslte
        End If
        If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qcwbte <> 0 Then
            CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = Dbl_Qcwbte
        End If
    Else
        If Dbl_Qcyete > 0 Then
            CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = "借"
            CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = Dbl_Qcyete
            CxbbGrid.TextMatrix(Jsqte, Sydz("020", GridStr(), Szzls)) = Dbl_Qcyete
            If Bln_EndFlag And Dbl_Qcslte <> 0 Then
                CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = Dbl_Qcslte
            End If
            If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qcwbte <> 0 Then
                CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = Dbl_Qcwbte
            End If
        Else
            CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = "贷"
            CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = -Dbl_Qcyete
            CxbbGrid.TextMatrix(Jsqte, Sydz("020", GridStr(), Szzls)) = -Dbl_Qcyete
            If Bln_EndFlag And Dbl_Qcslte <> 0 Then
                CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = -Dbl_Qcslte
            End If
            If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qcwbte <> 0 Then
                CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = -Dbl_Qcwbte
            End If
        End If
        
        '输出单价
        If Bln_EndFlag And Dbl_Qcslte <> 0 Then
            CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = Format(Dbl_Qcyete / Dbl_Qcslte, "##." + String(Xtdjxsws, "0"))
        End If
        '输出外币汇率
        If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qcwbte <> 0 Then
            If Bln_ConVertFlag Then      '(外币/汇率=本位币)
                CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = Format(Dbl_Qcwbte / Dbl_Qcyete, "##." + String(Int_Wbhlxsws, "0"))
            Else
                CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = Format(Dbl_Qcyete / Dbl_Qcwbte, "##." + String(Int_Wbhlxsws, "0"))
            End If
        End If
    End If
End Sub

Private Sub Sub_OutPeriodSum(Jsqte As Long, Bln_EndFlag As Boolean, Bln_ForeignFlag As Boolean, Int_DqPeriod%, Dbl_Jejfhj#, Dbl_Jedfhj#, Dbl_Sljfhj#, Dbl_Sldfhj#, Dbl_Wbjfhj#, Dbl_Wbdfhj#)  '输出本月合计
    CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Mid(Trim(Str(100 + Int_DqPeriod)), 2, 2)
    CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "本月合计"
    If Dbl_Jejfhj <> 0 Then                                                        '本月借方金额合计
        CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Dbl_Jejfhj
        CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Dbl_Jejfhj
    End If
    If Dbl_Jedfhj <> 0 Then                                                        '本月贷方金额合计
        CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Dbl_Jedfhj
        CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Dbl_Jedfhj
    End If
    
    '只有末级科目才显示数量和外币
    If Bln_EndFlag Then
        If Dbl_Sljfhj <> 0 Then                                                     '本月借方数量合计
            CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Dbl_Sljfhj
        End If
        If Dbl_Sldfhj <> 0 Then                                                     '本月贷方数量合计
            CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Dbl_Sldfhj
        End If
    End If
    If Bln_EndFlag And Bln_ForeignFlag Then
        If Dbl_Wbjfhj <> 0 Then                                                     '本月借方外币合计
            CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Dbl_Wbjfhj
        End If
        If Dbl_Wbdfhj <> 0 Then                                                     '本月贷方外币合计
            CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Dbl_Wbdfhj
        End If
    End If
End Sub

Private Sub Sub_OutYearSum(Jsqte As Long, Bln_EndFlag As Boolean, Bln_ForeignFlag As Boolean, Int_DqPeriod%, Dbl_Jejflj#, Dbl_Jedflj#, Dbl_Sljflj#, Dbl_Sldflj#, Dbl_Wbjflj#, Dbl_Wbdflj#)  '输出本年累计
    CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Mid(Trim(Str(100 + Int_DqPeriod)), 2, 2)
    CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "本年累计"
    If Dbl_Jejflj <> 0 Then                                                        '本年借方金额累计
        CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Dbl_Jejflj
        CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Dbl_Jejflj
    End If
    If Dbl_Jedflj <> 0 Then                                                        '本年贷方金额累计
        CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Dbl_Jedflj
        CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Dbl_Jedflj
    End If
    
    '只有末级科目才显示数量和外币
    If Bln_EndFlag Then
        If Dbl_Sljflj <> 0 Then                                                     '本年借方数量累计
            CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Dbl_Sljflj
        End If
        If Dbl_Sldflj <> 0 Then                                                     '本年贷方数量累计
            CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Dbl_Sldflj
        End If
    End If
    If Bln_EndFlag And Bln_ForeignFlag Then
        If Dbl_Wbjflj <> 0 Then                                                     '本年借方外币累计
            CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Dbl_Wbjflj
        End If
        If Dbl_Wbdflj <> 0 Then                                                     '本年贷方外币累计
            CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Dbl_Wbdflj
        End If
    End If
End Sub

Private Sub CxbbGrid_DblClick()          '用户双击网格调入相应凭证
    Dim RecTemp As New ADODB.Recordset
    With CxbbGrid
        '非数据行退出
        If CxbbGrid.Row < CxbbGrid.FixedRows Then
            Exit Sub
        End If
        If Trim(.TextMatrix(.Row, 0)) = "" Then
            Exit Sub
        End If
    End With
    Sqlstr = "SELECT VouchID From Cwzz_AccVouchMain" & _
    " Where VouchID=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
    Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
    With RecTemp
        If .EOF Then
            Tsxx = "此凭证已被其他用户删除!"
            Call Xtxxts(Tsxx, 0, 4)
            Exit Sub
        Else
            With PZ_JzpzclFrm
                '填充查询凭证标识
                .Lab_VouchId = Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
                
                '设置凭证处理为列表查询状态
                .Lab_Pzclzt.Caption = "4"
                .Show 1
            End With
        End If
    End With
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) + "科目名称：" + Me.Lab_Ccode.Caption
    Bbxbt(1) = "会计期间:" + Lab_TitleText(0) + Space(5) + "科目名称：" + Me.Lab_Ccode.Caption + Space(5) + "供应商：" + Me.Imgebo_FzCode.Text
    bbxbtzzxs(1) = 1                                     '报表行组织形式(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

Private Sub Sub_Lxdy()                                 '帐页连续打印(帐页每批尽量少选)
    Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
    Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
    Dim Jsqte As Long
    Dim Lng_CurrentIndex As Long
    Dim YAnswer As Integer
    
    '用户确认是否开始连续打印帐页
    Tsxx = "请确认是否开始连续打印帐页？"
    YAnswer = Xtxxts(Tsxx, 2, 2)
    If YAnswer <> 1 Then
        Exit Sub
    End If
    
    '初始化连续打印状态
    Cmd_CancelPrint.Visible = True
    Cmd_CancelPrint.SetFocus
    Cmd_CancelPrint.Refresh
    Bln_CancelPrint = False
    Bln_Printing = True
    
    If Imgebo_FzCode.ComboItems.count = 0 Then GoTo Zero_Handle
    
    '循环输出打印作业
    For Jsqte = 1 To Imgebo_FzCode.ComboItems.count
        If Imgebo_FzCode.Text = Imgebo_FzCode.ComboItems.Item(Jsqte) Then
            Lng_CurrentIndex = Jsqte
        End If
    Next Jsqte
    For Jsqte = Lng_CurrentIndex To Imgebo_FzCode.ComboItems.count
        Imgebo_FzCode.Text = Imgebo_FzCode.ComboItems.Item(Jsqte)
        Imgebo_FzCode.ComboItems.Item(Jsqte).Selected = True
        Imgebo_FzCode.Refresh
        Call Imgebo_FzCode_Click
        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) = "会计期间:" + Lab_TitleText(0) + Space(5) + "科目名称：" + Me.Lab_Ccode.Caption + Space(5) + "供应商：" + Me.Imgebo_FzCode.Text
        bbxbtzzxs(1) = 1                                     '报表行组织形式(0-居左 1-居中 2-居右)
        Call Scyxsjb(CxbbGrid)                               '生成报表数据
        Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, False, True)
        Unload DY_Tybbyldy
        DoEvents
        If Bln_CancelPrint Then
            Bln_Printing = False
            Exit Sub
        End If
    Next Jsqte
Zero_Handle:
    
    Bln_Printing = False
    Cmd_CancelPrint.Visible = False
End Sub

Private Sub Cmd_CancelPrint_Click()                    '取消帐页连续打印
    Bln_CancelPrint = True
    Cmd_CancelPrint.Visible = False
End Sub