VB开发的ERP系统

                "[PreInvMoney] [money] NULL ,[PreCost] [money] NULL ," & _
                "[ConMoney] [money] NULL ,[InvWhole] [money] NULL ," & _
                "[InvMoney] [money] NULL ,[Cost] [money] NULL ," & _
                "[AllConMoney] [money] NULL ," & _
                "[AllInvWhole] [money] NULL ," & _
                "[AllInvMoney] [money] NULL ," & _
                "[AllCost] [money] NULL)"
            TSqlStr = "insert into #Xs_TempRiseAna SELECT DeptCode,DeptName,CusCode,CusName,PersonCode,PersonName,WareCode,MName,Model,SaleUnitName,AreaCode,Areaname,AnalysisDate,SellTypeCode," & _
                        "0,0,0,0,ConMoney,InvWhole,InvMoney,Cost,0,0,0,0 " & _
                        " from Xs_V_RiseAnalysis " & Str_QueryCondi & " And AnalysisDate<= ' " & Trim(.LrText(1).Text) & "' And AnalysisDate>=' " & Trim(.LrText(0).Text) & "'"
            Cw_DataEnvi.DataConnect.Execute TSqlStr
            TSqlStr = "insert into #Xs_TempRiseAna SELECT DeptCode,DeptName,CusCode,CusName,PersonCode,PersonName,WareCode,MName,Model,SaleUnitName,AreaCode,Areaname,AnalysisDate,SellTypeCode," & _
                        "ConMoney,InvWhole,InvMoney,Cost,0,0,0,0,0,0,0,0 " & _
                        "from Xs_V_RiseAnalysis " & Str_QueryCondi & " And AnalysisDate>= dateadd(day,-(datediff(day,'" & Trim(.LrText(0).Text) & "','" & Trim(.LrText(1).Text) & "')+1),'" & Trim(.LrText(0).Text) & "')  And AnalysisDate<' " & Trim(.LrText(0).Text) & "'"
            Cw_DataEnvi.DataConnect.Execute TSqlStr
            TSqlStr = "insert into #Xs_TempRiseAna SELECT DeptCode,DeptName,CusCode,CusName,PersonCode,PersonName,WareCode,MName,Model,SaleUnitName,AreaCode,Areaname,AnalysisDate,SellTypeCode," & _
                        "0,0,0,0,0,0,0,0,ConMoney,InvWhole,InvMoney,Cost " & _
                        "from Xs_V_RiseAnalysis " & Str_QueryCondi & " And AnalysisDate>= year('" & Trim(.LrText(1).Text) & "') And AnalysisDate<=' " & Trim(.LrText(1).Text) & "'"
            Cw_DataEnvi.DataConnect.Execute TSqlStr
        End With
    Else
        '1-"刷新"查询
        If Str_QueryCondi = "" Then
            Str_QueryCondi = " where 1=2 "
        End If
    End If
    Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
    With Rec_Query
        CxbbGrid.Rows = CxbbGrid.FixedRows
        Jsqte = CxbbGrid.FixedRows
       Do While Not .EOF
        If Val(Trim(.Fields("Conmoney") & "")) - Val(Trim(.Fields("InvMoney") & "")) = 0 And Val(Trim(.Fields("Conmoney") & "")) = 0 And Val(Trim(.Fields("InvMoney") & "")) = 0 Then
        Else
           CxbbGrid.AddItem ""
           '[>>自定义填充内容
           If Xs_A_RiseAnalysisQuery.Opt_Check(0) Then
               CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("DeptName") & "")                                                      '部门
           ElseIf Xs_A_RiseAnalysisQuery.Opt_Check(1) Then
               CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("CusName") & "")                                                       '客户
           ElseIf Xs_A_RiseAnalysisQuery.Opt_Check(2) Then
               CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("PersonName") & "")                                                    '销售员
           ElseIf Xs_A_RiseAnalysisQuery.Opt_Check(3) Then
               CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("MName") & "")                                                         '货物
               CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("Model") & "")                                                         '规格
               CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Trim(.Fields("SaleUnitName") & "")                                                  '销售单位
           ElseIf Xs_A_RiseAnalysisQuery.Opt_Check(4) Then
               CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("AreaName") & "")                                                      '地区
           End If
           '前期/比前期
           If Val(Trim(.Fields("PreConMoney") & "")) <> 0 Then
               CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Trim(.Fields("PreConMoney") & "")                                                    '发货金额
               CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = Format((Val(Trim(.Fields("ConMoney") & "")) - Val(Trim(.Fields("PreConMoney") & ""))) / Val(Trim(.Fields("PreConMoney") & "")) * 100, "0.00")
           End If
           If Val(Trim(.Fields("PreInvWhole") & "")) <> 0 Then
               CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("PreInvWhole") & "")                                                    '销售金额
               CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = Format((Val(Trim(.Fields("InvWhole") & "")) - Val(Trim(.Fields("PreInvWhole") & ""))) / Val(Trim(.Fields("PreInvWhole") & "")) * 100, "0.00")
           End If
           If Val(Trim(.Fields("PreInvMoney") & "")) <> 0 Then
               CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Trim(.Fields("PreInvMoney") & "")                                                    '销售收入
               CxbbGrid.TextMatrix(Jsqte, Sydz("020", GridStr(), Szzls)) = Format((Val(Trim(.Fields("InvMoney") & "")) - Val(Trim(.Fields("PreInvMoney") & ""))) / Val(Trim(.Fields("PreInvMoney") & "")) * 100, "0.00")
           End If
           If Val(Trim(.Fields("PreCost") & "")) <> 0 Then
               CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("PreCost") & "")                                                        '成本
               CxbbGrid.TextMatrix(Jsqte, Sydz("021", GridStr(), Szzls)) = Format((Val(Trim(.Fields("Cost") & "")) - Val(Trim(.Fields("PreCost") & ""))) / Val(Trim(.Fields("PreCost") & "")) * 100, "0.00")
           End If
           If Val(Trim(.Fields("PreInvMoney") & "")) - Val(Trim(.Fields("PreCost") & "")) <> 0 Then
               CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Val(Trim(.Fields("PreInvMoney") & "")) - Val(Trim(.Fields("PreCost") & ""))          '毛利
               CxbbGrid.TextMatrix(Jsqte, Sydz("022", GridStr(), Szzls)) = Format((Val(Trim(.Fields("InvMoney") & "")) - Val(Trim(.Fields("Cost") & "")) - (Val(Trim(.Fields("PreInvMoney") & "")) - Val(Trim(.Fields("PreCost") & "")))) / (Val(Trim(.Fields("PreInvMoney") & "")) - Val(Trim(.Fields("PreCost") & ""))) * 100, "0.00")                                             '发货金额
           End If
           '本期
           If Val(Trim(.Fields("ConMoney") & "")) <> 0 Then
               CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Trim(.Fields("ConMoney") & "")                                                    '发货金额
           End If
           If Val(Trim(.Fields("InvWhole") & "")) <> 0 Then
               CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = Trim(.Fields("InvWhole") & "")                                                    '销售金额
           End If
           If Val(Trim(.Fields("InvMoney") & "")) <> 0 Then
               CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = Trim(.Fields("InvMoney") & "")                                                    '销售收入
           End If
           If Val(Trim(.Fields("Cost") & "")) <> 0 Then
               CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = Trim(.Fields("Cost") & "")                                                        '成本
           End If
           If Val(Trim(.Fields("InvMoney") & "")) - Val(Trim(.Fields("Cost") & "")) <> 0 Then
               CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = Val(Trim(.Fields("InvMoney") & "")) - Val(Trim(.Fields("Cost") & ""))          '毛利
           End If
           '全年累积
           If Val(Trim(.Fields("AllConMoney") & "")) <> 0 Then
               CxbbGrid.TextMatrix(Jsqte, Sydz("023", GridStr(), Szzls)) = Trim(.Fields("AllConMoney") & "")                                                    '发货金额
           End If
           If Val(Trim(.Fields("AllInvWhole") & "")) <> 0 Then
               CxbbGrid.TextMatrix(Jsqte, Sydz("024", GridStr(), Szzls)) = Trim(.Fields("AllInvWhole") & "")                                                    '销售金额
           End If
           If Val(Trim(.Fields("AllInvMoney") & "")) <> 0 Then
               CxbbGrid.TextMatrix(Jsqte, Sydz("025", GridStr(), Szzls)) = Trim(.Fields("AllInvMoney") & "")                                                    '销售收入
           End If
           If Val(Trim(.Fields("AllCost") & "")) <> 0 Then
               CxbbGrid.TextMatrix(Jsqte, Sydz("026", GridStr(), Szzls)) = Trim(.Fields("AllCost") & "")                                                        '成本
           End If
           If Val(Trim(.Fields("AllInvMoney") & "")) - Val(Trim(.Fields("AllCost") & "")) <> 0 Then
               CxbbGrid.TextMatrix(Jsqte, Sydz("027", GridStr(), Szzls)) = Val(Trim(.Fields("AllInvMoney") & "")) - Val(Trim(.Fields("AllCost") & ""))          '毛利
           End If
           '<<]
           '设置数据行高度(Fixed)
           CxbbGrid.RowHeight(Jsqte) = Sjhgd
    
           '动态集指针加1,同时将计数器加1(Fixed)
           Jsqte = Jsqte + 1
            End If
            .MoveNext
        Loop
    End With
    '合计
    CxbbGrid.AddItem ""
    CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("001", GridStr(), Szzls)) = "合计"
    CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("002", GridStr(), Szzls)) = "合计"
    CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("003", GridStr(), Szzls)) = "合计"
    CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("004", GridStr(), Szzls)) = "合计"
    CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("005", GridStr(), Szzls)) = "合计"
    For Coljsq = Qslz To CxbbGrid.Cols - 1
        Call Sjhj(Coljsq)
    Next Coljsq
    If CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) <> "" Then
        If Val(CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls))) - Val(CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls))) <> 0 Then
        CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = Format((Val(CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls))) - Val(CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)))) / Val(CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls))) * 100, "0.00")                                                '退货金额
        End If
    End If
    If CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) <> "" Then
        If Val(CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls))) - Val(CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls))) <> 0 Then
        CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = Format((Val(CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls))) - Val(CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)))) / Val(CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls))) * 100, "0.00")                                                '退货金额
        End If
    End If
    If CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) <> "" Then
        If Val(CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls))) - Val(CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls))) <> 0 Then
        CxbbGrid.TextMatrix(Jsqte, Sydz("020", GridStr(), Szzls)) = Format((Val(CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls))) - Val(CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)))) / Val(CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls))) * 100, "0.00")                                                '退货金额
        End If
    End If
    If CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) <> "" Then
        If Val(CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls))) - Val(CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls))) <> 0 Then
        CxbbGrid.TextMatrix(Jsqte, Sydz("021", GridStr(), Szzls)) = Format((Val(CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls))) - Val(CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)))) / Val(CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls))) * 100, "0.00")                                                '退货金额
        End If
    End If
    If CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) <> "" Then
        If Val(CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls))) - Val(CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls))) <> 0 Then
        CxbbGrid.TextMatrix(Jsqte, Sydz("022", GridStr(), Szzls)) = Format((Val(CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls))) - Val(CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)))) / Val(CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls))) * 100, "0.00")                                                '退货金额
        End If
    End If
    
    ']以上为用户自定义部分

End Sub
Private Sub Sjhj(Hjwgl As Long)                                         '网格列数据合计
    
    Dim Hjjg As Double
    If Not GridBoolean(Hjwgl, 4) Then
        Exit Sub
    End If
    With CxbbGrid
        Hjjg = 0
        For Jsqte = .FixedRows To .Rows - 2
                If Trim(.TextMatrix(Jsqte, Hjwgl)) <> "" Then
                    Hjjg = Hjjg + Val(.TextMatrix(Jsqte, Hjwgl))
                End If
        Next Jsqte
        If GridBoolean(Hjwgl, 5) And Hjjg = 0 Then
            CxbbGrid.TextMatrix(.Rows - 1, Hjwgl) = ""
        Else
            CxbbGrid.TextMatrix(.Rows - 1, Hjwgl) = Hjjg
        End If
    End With

End Sub

Private Sub Sub_AddBill()                                              '新增单据
   
    With Xs_O_OrderBill
   
        '设置单据处理为填制单据状态
''        .Lab_Djclzt.Caption = "1"
         Xtcdcs = "1"
        .Show 1
    End With
       
    If Xtfhcs = "1" Then
        Tsxx = "销售订单发生变化,是否刷新销售订单列表?"
        Yhanswer = Xtxxts(Tsxx, 2, 2)
        If Yhanswer = 1 Then
            Xt_Wait.Show
            Xt_Wait.Refresh
   
            '加快显示速度
            CxbbGrid.Redraw = False
 
            '生成查询结果
            Call Sub_Query(1)
   
            CxbbGrid.Redraw = True
            Xt_Wait.Hide
        End If
    End If
   
End Sub

Private Sub Sub_DeleteBill()                                            '删除选中当前销售订单
    
    Dim YAnswer As Integer
    Dim Lng_BillID As Long           '单据标识
  
    '非数据行退出
    If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
        Exit Sub
    End If
  
    Tsxx = "请确认是否删除当前销售订单?"
    Yhanswer = Xtxxts(Tsxx, 2, 2)
  
    If Yhanswer = 1 Then
        '1.判断当前销售订单是否允许删除
        If Not Fun_AllowDelete Then
            Exit Sub
        End If
  
        '2.删除单据所有内容
        Lng_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
        On Error GoTo Swcwcl
        Cw_DataEnvi.DataConnect.BeginTrans
        Cw_DataEnvi.DataConnect.Execute ("Delete XS_OrderBillMain Where OrderBillMainId=" & Lng_BillID)        '删除单据主表内容
        Cw_DataEnvi.DataConnect.Execute ("Delete XS_OrderBillSub Where OrderBillMainId=" & Lng_BillID)         '删除单据子表内容
        Cw_DataEnvi.DataConnect.CommitTrans
      
        '删除网格中单据数据
        Jsqte = CxbbGrid.FixedRows
        Do While Jsqte <= CxbbGrid.Rows - 1
            If Val(CxbbGrid.TextMatrix(Jsqte, 0)) = Lng_BillID Then
                CxbbGrid.RemoveItem (CxbbGrid.Row)
            Else
                Jsqte = Jsqte + 1
            End If
        Loop
    Else
        Exit Sub
    End If
    Exit Sub
Swcwcl:
    Cw_DataEnvi.DataConnect.RollbackTrans
    Tsxx = "删除销售订单过程中出现未知错误,程序自动恢复删除前状态!"
    Call Xtxxts(Tsxx, 0, 1)
    Exit Sub
  
End Sub

Private Function Fun_AllowDelete() As Boolean                                        '判断当前单据是否允许删除
  
    Dim RecTemp As New ADODB.Recordset     '临时使用动态集
    Dim Sqlstr As String                   '查询字符串
    Dim Lng_BillID As Long                 '单据ID
  
    Lng_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
    Sqlstr = "Select Checker From XS_OrderBillMain Where OrderBillMainId=" & Lng_BillID
    Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
    With RecTemp
        If Not .EOF Then
            If Trim(.Fields("Checker") & "") <> "" Then
                Tsxx = "该销售订单已审核确认,不能删除!"
                Call Xtxxts(Tsxx, 0, 4)
                Exit Function
            End If
            End If
    End With
    Fun_AllowDelete = True
  
End Function

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 = 2                                          '报 表 小 标 题 行 数
    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) + Fun_FormatOutPut(Trim(Lbl(4).Caption), 30)
    Bbxbt(1) = Bbxbt(1) + Fun_FormatOutPut(Trim(Lbl(0).Caption), 25)
    Bbxbt(1) = Bbxbt(1) + Fun_FormatOutPut(Trim(Lbl(5).Caption), 20)
    Bbxbt(1) = Bbxbt(1) + Fun_FormatOutPut(Trim(Lbl(2).Caption), 20)
    Bbxbt(2) = Space(2) + Fun_FormatOutPut(Trim(Lbl(1).Caption), 30)
    Bbxbt(2) = Bbxbt(2) + Fun_FormatOutPut(Trim(Lbl(3).Caption), 25)
    Bbxbt(2) = Bbxbt(2) + Fun_FormatOutPut(Trim(Lbl(6).Caption), 20)
    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