VB开发的ERP系统

    CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = True
    CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = True
    CxbbGrid.ColHidden(Sydz("004", GridStr(), Szzls)) = True
    CxbbGrid.ColHidden(Sydz("005", GridStr(), Szzls)) = True
    CxbbGrid.ColHidden(Sydz("006", GridStr(), Szzls)) = True
    CxbbGrid.ColHidden(Sydz("007", GridStr(), Szzls)) = True
    CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = True
    CxbbGrid.ColHidden(Sydz("009", GridStr(), Szzls)) = True
    CxbbGrid.ColHidden(Sydz("010", GridStr(), Szzls)) = True
    CxbbGrid.ColHidden(Sydz("020", GridStr(), Szzls)) = True
    CxbbGrid.ColHidden(Sydz("021", GridStr(), Szzls)) = True
    CxbbGrid.ColHidden(Sydz("025", GridStr(), Szzls)) = True
    CxbbGrid.ColHidden(Sydz("026", GridStr(), Szzls)) = True
    
    If CL_BillChalkitupCond.Opt_Wjz Then
        SqlStr = "SELECT a.Whcode, WhName, MNumber, MName, Model, PrimaryUnitName," & _
                " SUM(FactReceiptQuan) AS SumInQuan, SUM(PlanMoney) AS SumPlanMoney, " & _
                " SUM(EMoney) AS SumEMoney,SUM(FactIssueQuan) AS SumOutQuan, " & _
                " SUM(IssueMoney) AS SumOutMoney FROM Chhs_V_InOut a " & Trim(Str_QueryCondi) & _
                " and a.chhschecker<>'' GROUP BY a.WhName, a.MNumber, " & _
                " a.MName, a.Model, a.PrimaryUnitName, a.WhCode ORDER BY  a.WhCode, a.MNumber "
    Else
        CxbbGrid.ColHidden(Sydz("015", GridStr(), Szzls)) = True
        CxbbGrid.ColHidden(Sydz("016", GridStr(), Szzls)) = True
        SqlStr = "SELECT a.Whcode, WhName, MNumber, MName, Model, PrimaryUnitName," & _
                " SUM(InQuan) AS SumInQuan, 1 AS SumPlanMoney, " & _
                " SUM(InMoney) AS SumEMoney,SUM(OutQuan) AS SumOutQuan, " & _
                " SUM(OutMoney) AS SumOutMoney FROM Chhs_V_List a " & Trim(Str_QueryCondi) & _
                " GROUP BY a.WhName, a.MNumber, " & _
                " a.MName, a.Model, a.PrimaryUnitName, a.WhCode ORDER BY a.WhCode, a.MNumber"
    End If
    Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
    With Rec_Query
        CxbbGrid.Rows = CxbbGrid.FixedRows
        Jsqte = CxbbGrid.FixedRows
        Do While Not .EOF
            CxbbGrid.AddItem ""
            '[>>自定义填充内容
            
            CxbbGrid.TextMatrix(Jsqte, 1) = Trim(.Fields("WhCode") & "") + Trim(.Fields("Mnumber") & "")                 '仓库+存货
            CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("WhName") & "")                   '仓库
            CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = Trim(.Fields("Mnumber") & "")                  '存货编码
            CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("MName") & "")                    '存货名称
            CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Trim(.Fields("Model") & "")                    '规格型号
            CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Trim(.Fields("PrimaryUnitName") & "")          '主计量单位
            If .Fields("SumInQuan") <> 0 Then                                                                            '数量
                CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = .Fields("SumInQuan")
            End If
            If .Fields("SumInQuan") <> 0 Then                                                                            '计划单价
                CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = .Fields("SumPlanMoney") / .Fields("SumInQuan")
            End If
            If .Fields("SumPlanMoney") <> 0 Then                                                                       '计划金额
                CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = .Fields("SumPlanMoney")
            End If
            If .Fields("SumInQuan") <> 0 Then                                                                            '实际金额
                CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = .Fields("SumEMoney") / .Fields("SumInQuan")
            End If
            If .Fields("SumEmoney") <> 0 Then                                                                          '实际金额
                CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = .Fields("SumEMoney")
            End If
            If .Fields("SumOutQuan") <> 0 Then                                                                       '计划金额
                CxbbGrid.TextMatrix(Jsqte, Sydz("022", GridStr(), Szzls)) = .Fields("SumOutQuan")
            End If
            If .Fields("SumOutQuan") <> 0 And .Fields("SumOutMoney") <> 0 Then                                                                            '实际金额
                CxbbGrid.TextMatrix(Jsqte, Sydz("023", GridStr(), Szzls)) = .Fields("SumOutMoney") / .Fields("SumOutQuan")
            End If
            If .Fields("SumOutMoney") <> 0 Then                                                                          '实际金额
                CxbbGrid.TextMatrix(Jsqte, Sydz("024", GridStr(), Szzls)) = .Fields("SumOutMoney")
            End If
            '<<]
            '设置数据行高度(Fixed)
            CxbbGrid.RowHeight(Jsqte) = Sjhgd
     
            '动态集指针加1,同时将计数器加1(Fixed)
            .MoveNext
            Jsqte = Jsqte + 1
        Loop
    End With
    
    '输入合计
    With CxbbGrid
        If Not .Rows = .FixedRows Then
           .SubtotalPosition = flexSTBelow
           For Jsqte = Qslz To .Cols - 1
                If GridBoolean(Jsqte, 4) Then
                     .Subtotal flexSTSum, 0, Jsqte, , &HF7F3EC, , , , , True
                     If Val(.TextMatrix(.Rows - 1, Jsqte)) = 0 Then
                        .TextMatrix(.Rows - 1, Jsqte) = ""
                     End If
                End If
           Next
           .RowHeight(.Rows - 1) = Sjhgd
           .TextMatrix(.Rows - 1, Sydz("002", GridStr(), Szzls)) = " 合计 "
        End If
    End With
    
    ']以上为用户自定义部分

End Sub

Private Sub CxbbGrid_DblClick()                                              '用户双击网格调入相应单据
    
    Dim Rectemp As New ADODB.Recordset               '临时使用动态集

    If CxbbGrid.Rows = CxbbGrid.FixedRows Then Exit Sub
    
    '非数据行退出
    If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
        Exit Sub
    End If
    
    If Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, 1)) = "1301" Or Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, 1)) = "1302" Then
        SqlStr = "SELECT InOutAdjustMainId From Chhs_InOutAdjustMain Where InOutAdjustMainId=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) + 0
    ElseIf Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, 1)) = "1303" Then
        SqlStr = "SELECT PlanAdjustMainId From Chhs_PlanAdjustMain Where PlanAdjustMainId=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) + 0
    Else
        SqlStr = "SELECT InOutMainId From Gy_InOutMain Where InOutMainId=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) + 0
    End If
    Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
    With Rectemp
        If .EOF Then
            Tsxx = "此单据已被其他用户删除!"
            Call Xtxxts(Tsxx, 0, 4)
            Exit Sub
        Else
            
             '填充查询单据标识
            XT_BillID = CxbbGrid.TextMatrix(CxbbGrid.Row, 0)
            Xtcdcsfz = Str_QueryCondi
            
            '设置单据处理为列表查询(修改)状态
            Xtcdcs = "3"
            
           '调入单据处理窗体
            Select Case Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, 1))
                Case "1202"
                    DJ_ProdInBill.Show 1
                Case "1203"
                    DJ_OtherInBill.Show 1
                Case "1204"
                    DJ_MateOutBill.Show 1
                Case "1205"
                    DJ_SellOutBill.Show 1
                Case "1206"
                    DJ_OtherOutBill.Show 1
                Case "1212"
                    DJ_MateInBill.Show 1
                Case "1301"
                    DJ_AdjustInbill.Show 1
                Case "1302"
                    DJ_AdjustOutBill.Show 1
                Case "1303"
                    Xtcdcs = "0"
                    Xtcdcsfz = XT_BillID
                    DJ_AdjustPlan.Show 1
            End Select
        End If
    End With

End Sub


Private Sub Sub_Mx()                                             '明细
    
    '生成查询结果
    If CL_BillChalkitupCond.Opt_Wjz Then         '未记帐
        Call Sub_Query(0)
    Else
        Call Sub_QueryJz(0)
    End If
     '调整工具条
    With SzToolbar
        If CxbbGrid.Rows = CxbbGrid.FixedRows Then
            .Buttons("Bill").Enabled = False
            .Buttons("mx").Enabled = False
            .Buttons("hz").Enabled = False
            .Buttons("jz").Enabled = False
            .Buttons("hf").Enabled = False
        Else
            .Buttons("cx").Enabled = True
            .Buttons("Bill").Enabled = True
            .Buttons("hz").Enabled = True
            .Buttons("mx").Enabled = False
            If CL_BillChalkitupCond.Opt_Wjz Then
                .Buttons("jz").Enabled = True
                .Buttons("hf").Enabled = False
            Else
                .Buttons("jz").Enabled = False
                .Buttons("hf").Enabled = True
            End If
       End If
        If CL_BillChalkitupCond.Opt_Wjz Then
            Lbl_Color.Visible = True
            Label2.Visible = True
        Else
            Lbl_Color.Visible = False
            Label2.Visible = False
        End If
    End With
   
   If GsToolbar.Enabled = False Then
        
        '显示汇总后隐藏的网格列
        For Jsqte = Qslz To CxbbGrid.Cols - 1
            CxbbGrid.ColHidden(Jsqte) = GridColHide(Jsqte)
        Next
    End If
    
    GsToolbar.Enabled = True
    
End Sub

Private Sub Sub_Hz()                                            '汇总
    
    If CxbbGrid.Rows = CxbbGrid.FixedRows Then Exit Sub
    
       '生成查询结果
    Call Sub_QueryHz(0)
    
    With SzToolbar
        .Buttons("cx").Enabled = False
        .Buttons("Bill").Enabled = False
        .Buttons("jz").Enabled = False
        .Buttons("hf").Enabled = False
        .Buttons("hz").Enabled = False
        .Buttons("mx").Enabled = True
    End With
    
    GsToolbar.Enabled = False
      
End Sub

Private Sub Sub_Chalkitup()               '单据记帐
Dim Rectemp As Recordset
Dim RectempId As Recordset
Dim RecTempFz As New ADODB.Recordset
Dim RecQuery As New ADODB.Recordset
Dim RectempMx As New ADODB.Recordset
Dim RecTempZz As New ADODB.Recordset
Dim MovePrice As Double                 '移动平均单价  （移动平均）
Dim SumQuan As Double                   '数量合计      （移动平均）
Dim SumMoney As Double                  '金额合计      （移动平均）
Dim OutQuan As Double                   '出库数量  （先进先出 后进先出）
Dim InQuan As Double                    '入库数量  （先进先出 后进先出）
Dim OutPrice As Double                  '出库单价  （先进先出 后进先出）
Dim OutMoney As Double                  '出库总金额（先进先出 后进先出）
Dim mPeriod As Integer                  '当前会计期间

    If CxbbGrid.Rows = CxbbGrid.FixedRows Then Exit Sub

    mPeriod = PGNowmon
    
    '系统操作日期不在当前会计年度
    If Not Xtyear = PGKjYear Then
        Tsxx = "操作日期不在当前会计年度(" + Trim(Str(PGKjYear)) + ")之内,请重新登录!"
        Call Xtxxts(Tsxx, 0, 1)
        Exit Sub
    End If
    
    '系统操作日期是否在当前会计期间
    If Not Xtmm = mPeriod Then
        Tsxx = "操作日期不在当前会计期间(" + Trim(Str(PGKjYear)) + "." + Trim(Str(mPeriod)) + ")之内,请重新登录!"
        Call Xtxxts(Tsxx, 0, 1)
        Exit Sub
    End If
   
    '期初单据未记帐日常单据不能记帐
    SqlStr = "select chalkitupman from Chhs_StartInputMain a " & _
            Trim(Str_QueryCondi) & "and chalkitupman='' "
    Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
    If Not Rectemp.EOF Then
        Tsxx = "期初单据未记帐，日常单据不允许记帐!"