VB开发的ERP系统

               Key             =   "sx"
            EndProperty
            BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "预算分析_利润预算结果.frx":3A3DC
               Key             =   "cx"
            EndProperty
            BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "预算分析_利润预算结果.frx":3A776
               Key             =   "zd"
            EndProperty
            BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "预算分析_利润预算结果.frx":3AB10
               Key             =   "dz"
            EndProperty
            BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "预算分析_利润预算结果.frx":3AEAA
               Key             =   "ph"
            EndProperty
            BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "预算分析_利润预算结果.frx":3B244
               Key             =   "fz"
            EndProperty
            BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "预算分析_利润预算结果.frx":3B5DE
               Key             =   "dw"
            EndProperty
            BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "预算分析_利润预算结果.frx":3B978
               Key             =   "hf"
            EndProperty
            BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "预算分析_利润预算结果.frx":3BD12
               Key             =   "pz"
            EndProperty
            BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "预算分析_利润预算结果.frx":3C0AC
               Key             =   "check"
            EndProperty
            BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "预算分析_利润预算结果.frx":3C446
               Key             =   "zz"
            EndProperty
            BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "预算分析_利润预算结果.frx":3C7E0
               Key             =   "mx"
            EndProperty
            BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "预算分析_利润预算结果.frx":3CB7A
               Key             =   "lj"
            EndProperty
         EndProperty
      End
   End
End
Attribute VB_Name = "YF_FrmProfitA"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*********************************************************************
'*    模 块 名 称 :预算分析表查询结果(公用窗体)
'*    功 能 描 述 :
'*    程序员姓名  :魏永生
'*    最后修改人  :
'*    最后修改时间:2002/1/21
'*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
'*********************************************************************

Dim ReportTitle As String                '报表主标题
Dim Frm_Condition As Form                '查询窗体

'以下为固定使用变量
Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
Dim GridCode As String                   '显示网格网格代码
Dim GridInf() As Variant                 '整个网格设置信息
Dim Tsxx As String                       '系统提示信息
Dim Qslz As Long                         '网格隐藏(非操作显示)列数
Dim Sjhgd As Double                      '网格数据行高度
Dim Sfxshjwg As Boolean                  '是否显示合计网格
Dim GridBoolean() As Boolean             '网格列信息(布尔型)
Dim GridStr()  As String                 '网格列信息(字符型)
Dim GridInt() As Integer                 '网格列信息(整型)
Dim Szzls As Integer                     '数组总列数(网格列数-1)
Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小
    On Error Resume Next
    With CxbbGrid
        .Width = Me.Width - 160
        .Height = Me.Height - .Top - 400
    End With
    With Pic_Title
        .Width = Me.Width - 160
    End With
    
    GsToolbar.Left = Me.Width - GsToolbar.Width - 160
End Sub

Private Sub Form_Load()                  '窗体装入
    
    '调入打印页面设置窗体
    ReportTitle = "利润预算分析表"
    XtReportCode = "cwfx_BudgetAnalysis"
    Load Dyymctbl
    
    
    '调整标题栏及网格、格式工具条位置
    Pic_Title.Left = 40
    Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
    CxbbGrid.Left = Pic_Title.Left
    CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
    
    '调 入 网 格
    GridCode = "cwfx_ProfitBudgetA"
    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)                                  '窗体卸载
    '卸载条件窗体
    
    YF_FrmProfitC.UnloadCheck.Value = 1
    Unload YF_FrmProfitC
    Unload Dyymctbl
End Sub

Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)       '网格格式调整
    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"                                            '查 询
        YF_FrmProfitC.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()                     '生成查询结果
    Dim Rec_Query As New ADODB.Recordset    '查询结果动态集
    Dim rr As New ADODB.Recordset
    Dim myclsInc As New clsInc              '损益表类
    
    
    Dim SqlStr As String                    '查询动态连接字符串
    Dim Int_Curr_year As Integer            '分析期年
    Dim Int_Curr_month1 As Integer          '分析期开始月
    Dim Int_Curr_month2 As Integer          '分析期结束月
    Dim Int_Comp_year As Integer            '比较期年
    Dim Int_Comp_month1 As Integer          '比较期开始月
    Dim Int_Comp_month2 As Integer          '比较期结束月
    
    Dim I As Integer                        '为0清空循环变量
    Dim Cur_V As Currency                   '分析期
    Dim Cur_CompV As Currency               '比较期
    Dim Cur_YearV As Currency               '分析期年
    
    
    '以下为用户自定义部分[
    
    With YF_FrmProfitC
        
        '显示查询会计期间
        Lab_TitleText(0).Caption = .Lbl_Comment.Caption
        
        
        Select Case Len(.Combo_BaseDate.Text)    ' 判断 Number 的值。
        Case 4   '选择全年
            Int_Curr_year = Val(Mid(.Combo_BaseDate.Text, 1, 4))
            Int_Curr_month1 = 1
            Int_Curr_month2 = 12
            If Len(.Combo_SelYear.Text) <> 0 Then
                Int_Comp_year = Val(.Combo_SelYear.Text)
                Int_Comp_month1 = 1
                Int_Comp_month2 = 12
            End If
            
        Case 7   '选择了月份
            Int_Curr_year = Val(Mid(.Combo_BaseDate.Text, 1, 4))
            Int_Curr_month1 = Val(Mid(.Combo_BaseDate.Text, 6, 2))
            Int_Curr_month2 = Val(Mid(.Combo_BaseDate.Text, 6, 2))
            If Len(.Combo_CompDate.Text) <> 0 Then
                Int_Comp_year = Val(Mid(.Combo_CompDate.Text, 1, 4))
                Int_Comp_month1 = Val(Mid(.Combo_CompDate.Text, 6, 2))
                Int_Comp_month2 = Val(Mid(.Combo_CompDate.Text, 6, 2))
            End If
        Case 15  '选择了季度
            Int_Curr_year = Val(Mid(.Combo_BaseDate.Text, 1, 4))
            Int_Curr_month1 = Val(Mid(.Combo_BaseDate.Text, 6, 2))
            Int_Curr_month2 = Val(Mid(.Combo_BaseDate.Text, 14, 2))
            If Len(.Combo_CompDate.Text) <> 0 Then
                Int_Comp_year = Val(Mid(.Combo_CompDate.Text, 1, 4))
                Int_Comp_month1 = Val(Mid(.Combo_CompDate.Text, 6, 2))
                Int_Comp_month2 = Val(Mid(.Combo_CompDate.Text, 14, 2))
            End If
        End Select
    End With
    
    SqlStr = "exec Cwfx_Sp_ProfitBudget " & Int_Curr_year & "," & Int_Curr_month1 & "," & Int_Curr_month2 _
    & "," & Int_Comp_year & "," & Int_Comp_month1 & "," & Int_Comp_month2
    Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
    
    With Rec_Query
        CxbbGrid.Rows = CxbbGrid.FixedRows
        CxbbGrid.Rows = CxbbGrid.FixedRows + .RecordCount
        Jsqte = CxbbGrid.FixedRows
        
        Do While Not .EOF
            If Jsqte >= CxbbGrid.Rows Then
                CxbbGrid.AddItem ""
            End If
            
            CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("item"))
            myclsInc.Init Cw_DataEnvi.DataConnect
            Cur_V = myclsInc.GetPeriodValue(Trim(.Fields("item")), Int_Curr_month1, Int_Curr_month2, Int_Curr_year)
            Cur_CompV = myclsInc.GetPeriodValue(Trim(.Fields("item")), Int_Comp_month1, Int_Comp_month2, Int_Comp_year)
            Cur_YearV = myclsInc.GetPeriodValue(Trim(.Fields("item")), 1, 12, Int_Curr_year)
            
            
            CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Cur_V
            CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Cur_CompV
            
            CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = 0
            CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = 0
            
            CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = _
            CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) - _
            CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls))
            
            If Cur_CompV <> 0 Then
                CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = (Cur_V - Cur_CompV) / Cur_CompV * 100
            End If
            
            
            If IsNull(.Fields("B")) Then
                CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = 0
            Else
                CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = .Fields("B")
            End If
            
            CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = 0
            CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = 0
            
            CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = _
            CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) - _
            CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls))
            
            If Not (.Fields("B") = 0 Or IsNull(.Fields("B"))) Then
                CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Cur_V / .Fields("B") * 100
            End If
            
            
            CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Cur_YearV
            
            If IsNull(.Fields("YearVB")) Then
                CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = 0
            Else
                CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = .Fields("YearVB")
            End If
            
            CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = 0
            CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = 0
            
            CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = _
            CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) - _
            CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls))
            
            If Not (.Fields("YearVB") = 0 Or IsNull(.Fields("YearVB"))) Then
                CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Cur_YearV / .Fields("YearVB") * 100
            End If
            
            
            
            
            For I = 2 To 12                    '从第2列开始到12列为统计数值数据,为0清空
                
                If CxbbGrid.TextMatrix(Jsqte, Sydz(IIf(I > 9, "0", "00") + Trim(Str(I)), GridStr(), Szzls)) = 0 Then
                    CxbbGrid.TextMatrix(Jsqte, Sydz(IIf(I > 9, "0", "00") + Trim(Str(I)), GridStr(), Szzls)) = ""
                End If
                
            Next I
            
            Jsqte = Jsqte + 1
            
            '移动到下一条记录
            .MoveNext
        Loop
    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) & Lab_TitleText(0).Caption
    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