VB开发的ERP系统

    '调 入 网 格(Fixed)
    GridCode = "Cg_BzBjFx"
    Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
      
    Qslz = GridInf(1)
    Sjhgd = GridInf(2)
    Sfxshjwg = GridInf(7)
    Szzls = CxbbGrid.Cols - 1

End Sub

Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载

    '卸载条件窗体
    Cg_CmpPriceListQuery.UnloadCheck.Value = 1
    Unload Cg_CmpPriceListQuery
    
    '卸载打印页面设置窗体
    Unload Dyymctbl

End Sub

Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
    Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
End Sub

Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  
    Select Case Button.Key
        Case "bcgs"                                          '保存表格格式
            Call Bcwggs(CxbbGrid, GridCode, GridStr())
        Case "hfmrgs"                                        '恢复默认格式
            Call Hfmrgs(CxbbGrid, GridCode, GridStr())
        Case "szxsxm"                                        '设置显示项目
            Call Szxsxm(CxbbGrid, GridCode)
    End Select

End Sub

Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
    
    Select Case Button.Key
        Case "ymsz"                                          '页面设置
            Dyymctbl.Show 1
        Case "yl"                                            '预 览
            Call bbyl(True)
        Case "dy"                                            '打 印
            Call bbyl(False)
        Case "cx"                                            '查 询
            Cg_CmpPriceListQuery.Show 1
        Case "bz"                                            '帮 助
            Call F1bz
        Case "fh"                                            '退 出
           Unload Me
    End Select

End Sub

Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
    
    Timer1.Enabled = False
    Xt_Wait.Show
    Xt_Wait.Refresh
   
    '加快显示速度
    CxbbGrid.Redraw = False
 
    '生成查询结果
    Call Sub_Query
   
    CxbbGrid.Redraw = True
    
    Xt_Wait.Hide

End Sub

Private Sub Sub_Query()                                     '生成查询结果(Define)
    
    
    Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
    Dim Coljsq As Long                          '网格列计数器
    Dim jsqte As Long                           '临时动态计数器
    Dim Rec_Price As New ADODB.Recordset        '价格结果动态集
    Dim Str_Temp As String
    Dim Int_Jjfs As Integer
    Dim Str_Jjfs As String
    Dim Rec_Temp As New ADODB.Recordset         '临时结果动态集
    '以下为自定义部分[
 
    
    With Cg_CmpPriceListQuery
     
        '生成查询条件
        Str_QueryCondi = " where 1=1 "
        For jsqte = 1 To 6
            Select Case jsqte
                Case 1  '询价单号
                    If Trim(.LrText(0).Text) <> "" Then
                        Str_QueryCondi = Str_QueryCondi & " and AskPriceNum = '" & Trim(.LrText(0).Text) & "'"
                    End If
                Case 2  '起始日期
                    If Trim(.LrText(1).Text) <> "" Then
                        Str_QueryCondi = Str_QueryCondi & " and AskPriceDate >= '" & Trim(.LrText(1).Text) & "'"
                    End If
                Case 3  '结束日期
                    If Trim(.LrText(2).Text) <> "" Then
                        Str_QueryCondi = Str_QueryCondi & " And AskPriceDate <='" & Trim(.LrText(2).Text) & "'"
                    End If
                Case 4   '物料分类
                    If Trim(.LrText(3).Text) <> "" Then
                        Str_QueryCondi = Str_QueryCondi & " and PurSortCode like '" & Trim(.LrText(3).Tag) & "%'"
                    End If
                Case 5   '物料编码
                    If Trim(.LrText(4).Text) <> "" Then
                        Str_QueryCondi = Str_QueryCondi & " and MNumber = '" & Trim(.LrText(4).Text) & "'"
                        Set Rec_Temp = Cw_DataEnvi.DataConnect.Execute("Select MNumber,MName,Model,PurUnitName From Cg_V_Material Where MNumber='" & Trim(.LrText(4).Text) & "'")
                        If Not Rec_Temp.EOF Then
                            Lbl_Xslabel(0).Caption = Trim(Rec_Temp.Fields("MNumber"))
                            Lbl_Xslabel(1).Caption = Trim(Rec_Temp.Fields("MName") & "")
                            Lbl_Xslabel(2).Caption = Trim(Rec_Temp.Fields("Model") & "")
                            Lbl_Xslabel(3).Caption = Trim(Rec_Temp.Fields("PurUnitName") & "")
                        End If
                    End If
                Case 6   '计价方式
                    If Trim(.Cmb_Jjfs.Text) = "全部" Then
                        Int_Jjfs = 0
                        Me.Lbl_Xslabel(4).Caption = "全部"
                    ElseIf Trim(.Cmb_Jjfs.Text) = "与参考报价比" Then
                        Int_Jjfs = 1
                        Me.Lbl_Xslabel(4).Caption = "与参考报价比"
                    ElseIf Trim(.Cmb_Jjfs.Text) = "与平均报价比" Then
                        Int_Jjfs = 2
                        Me.Lbl_Xslabel(4).Caption = "与平均报价比"
                    Else
                        Int_Jjfs = 3
                        Me.Lbl_Xslabel(4).Caption = "与最小报价比"
                    End If
            End Select
        Next jsqte
    End With
   
    
     

    Sqlstr = " Select * from Cg_V_AskPriceBill " & Str_QueryCondi & " Order By AskPriceMainID,AskPriceSubID,AskPriceDate"
    
    Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
    Str_Temp = " Select Mnumber,Min(Price) As MinPrice,Avg(Price) As AvgPrice From Cg_V_AskPriceBill " & Str_QueryCondi & " Group By MNumber"
    Set Rec_Price = Cw_DataEnvi.DataConnect.Execute(Str_Temp)
    With Rec_Query
        CxbbGrid.Rows = CxbbGrid.FixedRows
        jsqte = CxbbGrid.FixedRows
        Do While Not .EOF
            CxbbGrid.AddItem ""
            
            '[>>自定义填充内容
            CxbbGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("SupplierName") & "")              '供应商名称
            CxbbGrid.TextMatrix(jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("Price") & "")                     '供应商报价
            CxbbGrid.TextMatrix(jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("Quantity") & "")                  '可供货数量
            CxbbGrid.TextMatrix(jsqte, Sydz("004", GridStr(), Szzls)) = Format(.Fields("GiveDate") & "", "yyyy-mm-dd")  '交货日期
            CxbbGrid.TextMatrix(jsqte, Sydz("005", GridStr(), Szzls)) = S2N(.Fields("ConsultCost") & "")                '参考报价
            CxbbGrid.TextMatrix(jsqte, Sydz("006", GridStr(), Szzls)) = Rec_Price.Fields("AvgPrice") & ""               '平均价格
            CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = Rec_Price.Fields("MinPrice") & ""               '最小价格
            CxbbGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls)) = S2N(.Fields("Price") & "") - S2N(.Fields("ConsultCost") & "")                  '差额（价格-参考成本）
            CxbbGrid.TextMatrix(jsqte, Sydz("009", GridStr(), Szzls)) = S2N(.Fields("Price") & "") - S2N(Rec_Price.Fields("AvgPrice") & "")            '差额（价格-平均价格）
            CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)) = S2N(.Fields("Price") & "") - S2N(Rec_Price.Fields("MinPrice") & "")            '差额（价格-最小价格）
            CxbbGrid.TextMatrix(jsqte, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("Consent") & "")                   '质量承诺
            CxbbGrid.TextMatrix(jsqte, Sydz("012", GridStr(), Szzls)) = Trim(.Fields("TransferWayName") & "")           '运输方式
            CxbbGrid.TextMatrix(jsqte, Sydz("013", GridStr(), Szzls)) = Trim(.Fields("PayName") & "")                   '付款条件
            '<<]
            '设置数据行高度(Fixed)
            CxbbGrid.RowHeight(jsqte) = Sjhgd
     
            '动态集指针加1,同时将计数器加1(Fixed)
            .MoveNext
            jsqte = jsqte + 1
        Loop
    End With
    Select Case Int_Jjfs                       '隐藏列
        Case 0
            CxbbGrid.ColHidden(Sydz("006", GridStr(), Szzls)) = False
            CxbbGrid.ColHidden(Sydz("007", GridStr(), Szzls)) = False
            CxbbGrid.ColHidden(Sydz("009", GridStr(), Szzls)) = False
            CxbbGrid.ColHidden(Sydz("010", GridStr(), Szzls)) = False
            CxbbGrid.ColHidden(Sydz("005", GridStr(), Szzls)) = False
            CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = False
        Case 1
            CxbbGrid.ColHidden(Sydz("006", GridStr(), Szzls)) = True
            CxbbGrid.ColHidden(Sydz("007", GridStr(), Szzls)) = True
            CxbbGrid.ColHidden(Sydz("009", GridStr(), Szzls)) = True
            CxbbGrid.ColHidden(Sydz("010", GridStr(), Szzls)) = True
            CxbbGrid.ColHidden(Sydz("005", GridStr(), Szzls)) = False
            CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = False
        Case 2
            CxbbGrid.ColHidden(Sydz("005", GridStr(), Szzls)) = True
            CxbbGrid.ColHidden(Sydz("007", GridStr(), Szzls)) = True
            CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = True
            CxbbGrid.ColHidden(Sydz("010", GridStr(), Szzls)) = True
            CxbbGrid.ColHidden(Sydz("006", GridStr(), Szzls)) = False
            CxbbGrid.ColHidden(Sydz("009", GridStr(), Szzls)) = False
        Case 3
            CxbbGrid.ColHidden(Sydz("005", GridStr(), Szzls)) = True
            CxbbGrid.ColHidden(Sydz("006", GridStr(), Szzls)) = True
            CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = True
            CxbbGrid.ColHidden(Sydz("009", GridStr(), Szzls)) = True
            CxbbGrid.ColHidden(Sydz("007", GridStr(), Szzls)) = False
            CxbbGrid.ColHidden(Sydz("010", GridStr(), Szzls)) = False
    End Select

    ']以上为用户自定义部分

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 = 3                                          '报 表 小 标 题 行 数
    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) = ""
    Bbxbt(2) = Space(4) + Fun_FormatOutPut(Me.Label1(0) + Me.Lbl_Xslabel(0), 20)
    Bbxbt(2) = Bbxbt(2) + Fun_FormatOutPut(Me.Label1(1) + Me.Lbl_Xslabel(1), 20) + Fun_FormatOutPut(Me.Label1(2) + Me.Lbl_Xslabel(2), 20)
    Bbxbt(2) = Bbxbt(2) + Fun_FormatOutPut(Me.Label1(3) + Me.Lbl_Xslabel(3), 20)
    Bbxbt(3) = Space(4) + Fun_FormatOutPut(Me.Label1(4) + Me.Lbl_Xslabel(4), 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