English
资源名称：ERPSYS.zip [点击查看]
上传用户：zhpu1995
上传日期：2013-09-06
资源大小：61151k
文件大小：42k
源码类别：
企业管理
开发平台：
Visual Basic
- VERSION 5.00
- Object = "{BEEECC20-4D5F-4F8B-BFDC-5D9B6FBDE09D}#1.0#0"; "vsflex8.ocx"
- Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
- Begin VB.Form Bbfx_FrmIncFx
- Caption = "损益表分析"
- ClientHeight = 7095
- ClientLeft = 315
- ClientTop = 390
- ClientWidth = 9375
- Icon = "报表分析_损益表分析.frx":0000
- KeyPreview = -1 'True
- LinkTopic = "Form1"
- MDIChild = -1 'True
- ScaleHeight = 7095
- ScaleWidth = 9375
- Begin VB.PictureBox Pic_Title
- Height = 1020
- Left = -30
- Picture = "报表分析_损益表分析.frx":1042
- ScaleHeight = 960
- ScaleWidth = 9345
- TabIndex = 1
- Top = 570
- Width = 9405
- Begin VB.Label lab_bj
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "------"
- Height = 180
- Left = 3705
- TabIndex = 9
- Top = 765
- Width = 540
- End
- Begin VB.Label lab_fx
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "------"
- Height = 180
- Left = 555
- TabIndex = 8
- Top = 750
- Width = 540
- End
- Begin VB.Label lab_Bjq
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "到:"
- Height = 195
- Left = 3345
- TabIndex = 7
- Top = 750
- Width = 225
- End
- Begin VB.Label lab_Fxq
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "从:"
- Height = 195
- Left = 225
- TabIndex = 6
- Top = 750
- Width = 225
- End
- Begin VB.Label Label_Bfb
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "单位:百分比"
- Height = 195
- Left = 6855
- TabIndex = 5
- Top = 720
- Visible = 0 'False
- Width = 945
- End
- Begin VB.Label TsLabel
- AutoSize = -1 'True
- BackColor = &H80000018&
- BackStyle = 0 'Transparent
- Caption = "损益表分析"
- BeginProperty Font
- Name = "宋体"
- Size = 12
- Charset = 134
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H00000000&
- Height = 240
- Index = 4
- Left = 600
- TabIndex = 2
- Top = 210
- Width = 1275
- End
- End
- Begin MSComctlLib.Toolbar GsToolbar
- Height = 525
- Left = 7695
- TabIndex = 0
- Top = 15
- Width = 1665
- _ExtentX = 2937
- _ExtentY = 926
- ButtonWidth = 1455
- ButtonHeight = 926
- AllowCustomize = 0 'False
- Appearance = 1
- Style = 1
- ImageList = "ImageList1"
- _Version = 393216
- BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
- NumButtons = 2
- BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "保存格式"
- Key = "bcgs"
- ImageKey = "bcgs"
- EndProperty
- BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "默认列宽"
- Key = "hfmrgs"
- ImageKey = "mrlk"
- EndProperty
- EndProperty
- End
- Begin VSFlex8Ctl.VSFlexGrid CxbbGrid
- Height = 5490
- Left = -30
- TabIndex = 3
- Top = 1605
- Width = 9405
- _cx = 5080
- _cy = 5080
- Appearance = 1
- BorderStyle = 1
- Enabled = -1 'True
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- MousePointer = 0
- BackColor = 16777215
- ForeColor = -2147483640
- BackColorFixed = 12632256
- ForeColorFixed = -2147483630
- BackColorSel = -2147483635
- ForeColorSel = -2147483634
- BackColorBkg = -2147483636
- BackColorAlternate= 16777215
- GridColor = -2147483633
- GridColorFixed = -2147483632
- TreeColor = -2147483632
- FloodColor = 192
- SheetBorder = -2147483642
- FocusRect = 1
- HighLight = 1
- AllowSelection = -1 'True
- AllowBigSelection= -1 'True
- AllowUserResizing= 0
- SelectionMode = 0
- GridLines = 1
- GridLinesFixed = 2
- GridLineWidth = 1
- Rows = 50
- Cols = 10
- FixedRows = 1
- FixedCols = 0
- RowHeightMin = 0
- RowHeightMax = 0
- ColWidthMin = 0
- ColWidthMax = 0
- ExtendLastCol = 0 'False
- FormatString = ""
- ScrollTrack = 0 'False
- ScrollBars = 3
- ScrollTips = 0 'False
- MergeCells = 0
- MergeCompare = 0
- AutoResize = -1 'True
- AutoSizeMode = 0
- AutoSearch = 0
- AutoSearchDelay = 2
- MultiTotals = -1 'True
- SubtotalPosition= 1
- OutlineBar = 0
- OutlineCol = 0
- Ellipsis = 0
- ExplorerBar = 0
- PicturesOver = 0 'False
- FillStyle = 0
- RightToLeft = 0 'False
- PictureType = 0
- TabBehavior = 0
- OwnerDraw = 0
- Editable = 0
- ShowComboButton = 1
- WordWrap = 0 'False
- TextStyle = 0
- TextStyleFixed = 0
- OleDragMode = 0
- OleDropMode = 0
- DataMode = 0
- VirtualData = -1 'True
- DataMember = ""
- ComboSearch = 3
- AutoSizeMouse = -1 'True
- FrozenRows = 0
- FrozenCols = 0
- AllowUserFreezing= 0
- BackColorFrozen = 0
- ForeColorFrozen = 0
- WallPaperAlignment= 9
- AccessibleName = ""
- AccessibleDescription= ""
- AccessibleValue = ""
- AccessibleRole = 24
- End
- Begin MSComctlLib.Toolbar SzToolbar
- Align = 1 'Align Top
- Height = 555
- Left = 0
- TabIndex = 4
- Top = 0
- Width = 9375
- _ExtentX = 16536
- _ExtentY = 979
- ButtonWidth = 820
- ButtonHeight = 926
- AllowCustomize = 0 'False
- Appearance = 1
- Style = 1
- ImageList = "ImageList1"
- _Version = 393216
- BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
- NumButtons = 10
- BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "设置"
- Key = "ymsz"
- ImageKey = "sz"
- EndProperty
- BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "打印"
- Key = "dy"
- ImageKey = "dy"
- EndProperty
- BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "预览"
- Key = "yl"
- ImageKey = "yl"
- EndProperty
- BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "查询"
- Key = "cx"
- ImageKey = "cx"
- EndProperty
- BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Object.Visible = 0 'False
- Style = 3
- EndProperty
- BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Object.Visible = 0 'False
- Caption = "累计"
- Key = "lj"
- ImageKey = "lj"
- Style = 1
- EndProperty
- BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "帮助"
- Key = "bz"
- ImageKey = "bz"
- EndProperty
- BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "退出"
- Key = "fh"
- ImageKey = "tc"
- EndProperty
- EndProperty
- BorderStyle = 1
- Begin MSComctlLib.ImageList ImageList1
- Left = 6450
- Top = 30
- _ExtentX = 1005
- _ExtentY = 1005
- BackColor = -2147483643
- ImageWidth = 16
- ImageHeight = 16
- MaskColor = 12632256
- _Version = 393216
- BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
- NumListImages = 35
- BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "报表分析_损益表分析.frx":35106
- Key = "sz"
- EndProperty
- BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "报表分析_损益表分析.frx":354A0
- Key = "dy"
- EndProperty
- BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "报表分析_损益表分析.frx":3583A
- Key = "yl"
- EndProperty
- BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "报表分析_损益表分析.frx":35BD4
- Key = "xg"
- EndProperty
- BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "报表分析_损益表分析.frx":35F6E
- Key = "zh"
- EndProperty
- BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "报表分析_损益表分析.frx":36308
- Key = "sh"
- EndProperty
- BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "报表分析_损益表分析.frx":366A2
- Key = "bc"
- EndProperty
- BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "报表分析_损益表分析.frx":36A3C
- Key = "fq"
- EndProperty
- BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "报表分析_损益表分析.frx":36DD6
- Key = "bz"
- EndProperty
- BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "报表分析_损益表分析.frx":37170
- Key = "tc"
- EndProperty
- BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "报表分析_损益表分析.frx":3750A
- Key = "bcgs"
- EndProperty
- BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "报表分析_损益表分析.frx":378A4
- Key = "mrlk"
- EndProperty
- BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "报表分析_损益表分析.frx":37C3E
- Key = "xsxm"
- EndProperty
- BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "报表分析_损益表分析.frx":37FD8
- Key = "first"
- EndProperty
- BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "报表分析_损益表分析.frx":38372
- Key = "prev"
- EndProperty
- BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "报表分析_损益表分析.frx":3870C
- Key = "next"
- EndProperty
- BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "报表分析_损益表分析.frx":38AA6
- Key = "last"
- EndProperty
- BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "报表分析_损益表分析.frx":38E40
- Key = "xx"
- EndProperty
- BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "报表分析_损益表分析.frx":391DA
- Key = "define"
- EndProperty
- BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "报表分析_损益表分析.frx":39574
- Key = "exec"
- EndProperty
- BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "报表分析_损益表分析.frx":3990E
- Key = "xz"
- EndProperty
- BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "报表分析_损益表分析.frx":39CA8
- Key = "sc"
- EndProperty
- BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "报表分析_损益表分析.frx":3A042
- 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 = "Bbfx_FrmIncFx"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- '*************************************************************
- '* 模 块 名 称 :损益表分析
- '* 功 能 描 述 :对损益表的各种分析
- '* 程序员姓名 : 魏永生
- '* 最后修改人 :
- '* 最后修改时间:2002/1/15
- '* 备 注:
- '* 损益表分析/绝对数分析
- '* 损益表分析/定基分析
- '* 损益表分析/环比分析
- '* 损益表分析/对比分析
- '* 损益表分析/结构分析
- '*************************************************************
- Option Explicit
- Private Const COL_WIDTH = 1500
- Private Const DATE_FIX = "/"
- Public strBegin As String '季日期
- Public strEnd As String '季日期
- Public bIFComp As Boolean '是否有比较期
- Public iThisYear As Integer '本年
- Public iThisMonthBegin As Integer '本年月起始
- Public iThisMonthEnd As Integer '本年终止月
- Public iCompYear As Integer '比较年
- Public iCompMonthBegin As Integer '比较年月开始
- Public iCompMonthEnd As Integer '比较年终止月
- Public intType As Integer '比较类型，0按月、1按季、2按年
- Public strItem As String '资产负债表的分枝类别，与树型菜单一致
- Public strTemItem As String '同上
- Public bSeach As Boolean '是否执行查询
- Private Rs As New ADODB.Recordset
- Private myclsInc As New clsInc '损益表类
- Private GridStarCol As Integer ' = 2 '网格起始数据列
- Private itype As Integer
- Dim iWriteCols As Integer '循环写入列数(用于写数据到网格)
- Dim iWriteRows As Integer '循环写入行数
- Dim ReportTitle As String '报表主标题
- '以下为固定使用变量
- 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)
- Dim Bln_Stop As Boolean '停止输出查询结果
- Private Sub Form_Load()
- If DEBUG_FLAG = False Then On Error Resume Next
- strTemItem = strItem
- XtReportCode = "cwfx_IncFx"
- Load Dyymctbl
- myclsInc.Init Cw_DataEnvi.DataConnect
- End Sub
- Public Sub FormInit()
- If DEBUG_FLAG = False Then On Error Resume Next
- '窗体被始化
- ReportTitle = Me.TsLabel(4).Caption '打印标题
- GridCode = strItem
- Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
- Qslz = GridInf(1)
- Sjhgd = GridInf(2)
- Sfxshjwg = GridInf(7)
- Szzls = CxbbGrid.Cols - 1
- CxbbGrid.Redraw = False
- Select Case strItem
- Case "cwfx_IncJds", "cwfx_IncDj", "cwfx_IncHb" '绝对数、定基、环比
- Call GetIncItem
- iWriteCols = 2
- Call AddGridCol
- Call FillGrid
- Case "cwfx_IncDb" '对比
- Call GetIncItem
- Call dbFillGrid
- Case "cwfx_IncJg" '结构
- Call GetIncItem
- Call jgFillGrid
- End Select
- CxbbGrid.Redraw = True
- End Sub
- Private Sub GetIncItem()
- If DEBUG_FLAG = False Then On Error Resume Next
- '填充资产类项目
- Dim iRow As Integer
- Set Rs = Cw_DataEnvi.DataConnect.Execute("select * from cwfx_IncomeCostInitial")
- iWriteRows = Rs.RecordCount - 1 '循环写入行数
- With CxbbGrid
- iRow = .FixedRows
- Do Until Rs.EOF
- .AddItem ""
- .TextMatrix(iRow, Sydz("001", GridStr(), Szzls)) = RTrim(Rs!comment)
- .TextMatrix(iRow, 0) = Trim(Rs!Item)
- .RowHeight(iRow) = Sjhgd
- Rs.MoveNext
- iRow = iRow + 1
- Loop
- End With
- End Sub
- Private Sub AddGridCol()
- If DEBUG_FLAG = False Then On Error Resume Next
- Dim Item As Integer
- Dim I As Integer
- iWriteCols = 0 '循环写入写数置0
- Select Case intType
- Case 0 '月
- If iThisMonthBegin > iThisMonthEnd Then
- Item = iThisMonthBegin
- iThisMonthBegin = iThisMonthEnd
- iThisMonthEnd = Item
- End If
- For I = iThisMonthBegin To iThisMonthEnd
- iWriteCols = iWriteCols + 1
- With CxbbGrid
- .Cols = .Cols + 1
- .FixedAlignment(.Cols - 1) = flexAlignCenterCenter
- .ColAlignment(.Cols - 1) = 6
- .ColWidth(.Cols - 1) = COL_WIDTH
- .ColFormat(.Cols - 1) = "#,##0.00"
- .TextMatrix(.FixedRows - 1, .Cols - 1) = CStr(Xtyear) & DATE_FIX & Format(I, "00") & ""
- End With
- Next
- Case 1 '季
- If iThisMonthBegin > iThisMonthEnd Then
- Item = iThisMonthBegin
- iThisMonthBegin = iThisMonthEnd
- iThisMonthEnd = Item
- End If
- For I = iThisMonthBegin To iThisMonthEnd Step 3
- iWriteCols = iWriteCols + 1
- With CxbbGrid
- .Cols = .Cols + 1
- .FixedAlignment(.Cols - 1) = flexAlignCenterCenter
- .ColAlignment(.Cols - 1) = 6
- .ColWidth(.Cols - 1) = COL_WIDTH
- .ColFormat(.Cols - 1) = "#,##0.00"
- .TextMatrix(.FixedRows - 1, .Cols - 1) = CStr(Xtyear) & DATE_FIX & Format(CStr(I - 2), "00") & "-" & CStr(Xtyear) & DATE_FIX & Format(CStr(I), "00") & ""
- End With
- Next
- Case 2 '年
- If iThisYear > iCompYear Then
- Item = iThisYear
- iThisYear = iCompYear
- iCompYear = Item
- End If
- For I = iCompYear To iThisYear
- iWriteCols = iWriteCols + 1
- With CxbbGrid
- .Cols = .Cols + 1
- .FixedAlignment(.Cols - 1) = flexAlignCenterCenter
- .ColAlignment(.Cols - 1) = 6
- .ColWidth(.Cols - 1) = COL_WIDTH
- .ColFormat(.Cols - 1) = "#,##0.00"
- .TextMatrix(.FixedRows - 1, .Cols - 1) = CStr(I) & "年"
- End With
- Next
- End Select
- End Sub
- '=================写数据到表格===========================================
- Private Sub dbFillGrid()
- Dim iRow As Integer '网格列
- Dim dbl_Fxq As Double '分析期数据
- Dim dbl_Dbq As Double '对比期数据
- Dim dbl_Cha As Double '对比期与分析期之差
- Dim strItem As String
- Dim clsIncClass As New clsInc
- Call date_Change
- clsIncClass.Init Cw_DataEnvi.DataConnect '初始化
- With CxbbGrid
- For iRow = .FixedRows To .Rows - 1
- strItem = .TextMatrix(iRow, 0)
- If intType = 1 Then '按季
- dbl_Fxq = clsIncClass.GetPeriodValue(strItem, Val(Mid(strBegin, 6, 1)), Val(Right(strBegin, 1)), iThisYear)
- dbl_Dbq = clsIncClass.GetPeriodValue(strItem, Val(Mid(strEnd, 6, 1)), Val(Right(strEnd, 1)), iThisYear)
- ElseIf intType = 0 Then '月
- dbl_Fxq = clsIncClass.GetPeriodValue(strItem, iThisMonthBegin, iThisMonthBegin, iThisYear)
- dbl_Dbq = clsIncClass.GetPeriodValue(strItem, iCompMonthEnd, iCompMonthEnd, iThisYear)
- ElseIf intType = 2 Then '年
- dbl_Fxq = clsIncClass.GetPeriodValue(strItem, 1, 12, iThisYear)
- dbl_Dbq = clsIncClass.GetPeriodValue(strItem, 1, 12, iCompYear)
- End If
- dbl_Cha = dbl_Fxq - dbl_Dbq
- .TextMatrix(iRow, Sydz("002", GridStr(), Szzls)) = IIf(dbl_Fxq = 0, "", dbl_Fxq)
- .TextMatrix(iRow, Sydz("003", GridStr(), Szzls)) = IIf(dbl_Dbq = 0, "", dbl_Dbq)
- .TextMatrix(iRow, Sydz("004", GridStr(), Szzls)) = IIf(dbl_Cha = 0, "", dbl_Cha)
- If dbl_Dbq <> 0 Then
- .TextMatrix(iRow, Sydz("005", GridStr(), Szzls)) = (dbl_Cha / dbl_Dbq) * 100
- Else
- .TextMatrix(iRow, Sydz("005", GridStr(), Szzls)) = ""
- End If
- Next
- End With
- Set clsIncClass = Nothing
- End Sub
- Private Sub jgFillGrid()
- Dim iRow As Integer '网格列
- Dim dbl_Fxq As Double '分析期数据
- Dim dbl_Dbq As Double '对比期数据
- Dim dbl_FxqTotal As Double '分析期总额
- Dim dbl_dbqTotal As Double '对比期总额
- Dim dbl_LeiJiyear As Double '全年累计
- Dim dbl_LeiJiyearTotal As Double '全年累计总额
- Dim dbl_Char As Double '结构差额
- Dim dbl_Cha As Double
- Dim clsIncClass As New clsInc
- Call date_Change
- clsIncClass.Init Cw_DataEnvi.DataConnect '初始化
- '----------算出年累计总金额、分析期总金额、对比期总金额-----------------------
- If intType = 1 Then '按季
- dbl_LeiJiyearTotal = 0 '年累计总金额
- dbl_FxqTotal = clsIncClass.GetPeriodValue(strItem, Mid(strBegin, 6, 2), Right(strBegin, 2), iThisYear) '分析期总金额
- dbl_dbqTotal = clsIncClass.GetPeriodValue(strItem, Mid(strEnd, 6, 2), Right(strEnd, 2), iThisYear) '对比期总金额
- ElseIf intType = 0 Then '月
- dbl_LeiJiyearTotal = clsIncClass.GetPeriodValue("产品销售收入", 1, 12, iThisYear) '年累计总金额
- dbl_FxqTotal = clsIncClass.GetPeriodValue("产品销售收入", iThisMonthBegin, iThisMonthBegin, iThisYear) '分析期总金额
- dbl_dbqTotal = clsIncClass.GetPeriodValue("产品销售收入", iCompMonthBegin, iCompMonthBegin, iThisYear) '对比期总金额
- ElseIf intType = 2 Then '年
- dbl_LeiJiyearTotal = clsIncClass.GetPeriodValue("产品销售收入", 1, 12, iThisYear) '年累计总金额
- dbl_FxqTotal = clsIncClass.GetPeriodValue("产品销售收入", 1, 12, iThisYear) '分析期总金额
- dbl_dbqTotal = clsIncClass.GetPeriodValue("产品销售收入", 1, 12, iCompYear) '对比期总金额
- End If
- '-----------------------------------------------
- With CxbbGrid
- For iRow = .FixedRows To .Rows - 1
- strItem = .TextMatrix(iRow, 0) '取得每行项目名称
- '---------------算出每行的分析期、对比期、年累计数据---------------------
- If intType = 1 Then '按季
- dbl_Fxq = clsIncClass.GetPeriodValue(strItem, Val(Mid(strBegin, 6, 1)), Val(Right(strBegin, 1)), iThisYear)
- dbl_Dbq = clsIncClass.GetPeriodValue(strItem, Val(Mid(strEnd, 6, 1)), Val(Right(strEnd, 1)), iThisYear)
- dbl_LeiJiyear = clsIncClass.GetPeriodValue(strItem, 1, 12, iThisYear)
- ElseIf intType = 0 Then '月
- dbl_Fxq = clsIncClass.GetPeriodValue(strItem, iThisMonthBegin, iThisMonthBegin, iThisYear)
- dbl_Dbq = clsIncClass.GetPeriodValue(strItem, iCompMonthEnd, iCompMonthEnd, iThisYear)
- dbl_LeiJiyear = clsIncClass.GetPeriodValue(strItem, 1, 12, iThisYear)
- ElseIf intType = 2 Then '年
- dbl_Fxq = clsIncClass.GetPeriodValue(strItem, 1, 12, iThisYear)
- dbl_Dbq = clsIncClass.GetPeriodValue(strItem, 1, 12, iCompYear)
- dbl_LeiJiyear = clsIncClass.GetPeriodValue(strItem, 1, 12, iThisYear)
- End If
- '-------------------------------------------------------------------------
- .TextMatrix(iRow, Sydz("002", GridStr(), Szzls)) = IIf(dbl_Fxq = 0, "", dbl_Fxq) '分析期金额
- .TextMatrix(iRow, Sydz("004", GridStr(), Szzls)) = IIf(dbl_Dbq = 0, "", dbl_Dbq) '比较期金额
- .TextMatrix(iRow, Sydz("007", GridStr(), Szzls)) = IIf(dbl_LeiJiyear = 0, "", dbl_LeiJiyear) '全年累计金额
- '------------分析期结构----------------
- If dbl_FxqTotal <> 0 Then
- .TextMatrix(iRow, Sydz("003", GridStr(), Szzls)) = (dbl_Fxq / dbl_FxqTotal) * 100
- Else
- .TextMatrix(iRow, Sydz("003", GridStr(), Szzls)) = ""
- End If
- '------------对比期结构-----------------
- If dbl_dbqTotal <> 0 Then
- .TextMatrix(iRow, Sydz("005", GridStr(), Szzls)) = (dbl_Dbq / dbl_dbqTotal) * 100
- Else
- .TextMatrix(iRow, Sydz("005", GridStr(), Szzls)) = ""
- End If
- '-------------结构增减--------------------
- dbl_Cha = -Val(.TextMatrix(iRow, Sydz("005", GridStr(), Szzls))) + Val(.TextMatrix(iRow, Sydz("003", GridStr(), Szzls)))
- .TextMatrix(iRow, Sydz("006", GridStr(), Szzls)) = IIf(dbl_Cha = 0, "", dbl_Cha)
- '-------------全年累计结构---------------------
- If dbl_LeiJiyearTotal <> 0 Then
- .TextMatrix(iRow, Sydz("008", GridStr(), Szzls)) = (dbl_LeiJiyear / dbl_LeiJiyearTotal) * 100
- Else
- .TextMatrix(iRow, Sydz("008", GridStr(), Szzls)) = ""
- End If
- '-----------------------------------
- Next
- End With
- Set clsIncClass = Nothing
- End Sub
- Private Sub date_Change()
- lab_Fxq.Caption = "分析期:"
- lab_Bjq.Caption = "比较期:"
- If intType = 1 Then '按季查询
- lab_fx.Caption = Space(4) & strBegin
- lab_bj.Caption = Space(4) & strEnd
- Else
- lab_fx.Caption = Space(4) & CStr(iThisYear) & IIf(iThisMonthBegin = 0, "", DATE_FIX & CStr(iThisMonthBegin))
- If bIFComp = True Then
- lab_bj.Caption = Space(4) & CStr(iThisYear) & IIf(iCompMonthBegin = 0, "", DATE_FIX & CStr(iCompMonthBegin))
- Else
- lab_bj.Caption = ""
- End If
- End If
- End Sub
- Private Sub FillGrid()
- If DEBUG_FLAG = False Then On Error Resume Next
- Dim iRow As Integer
- Dim iCol As Integer
- Dim dbl_Return As Double
- Dim dbl_BaseValue As Double '本期数据
- Dim dbl_OldValue As Double '上期数据
- GridStarCol = 2
- For iCol = GridStarCol To GridStarCol + iWriteCols - 1
- iRow = CxbbGrid.FixedRows
- lab_Fxq.Caption = "从:"
- lab_Bjq.Caption = "到:"
- If intType = 1 Then '按季查询
- lab_fx.Caption = strBegin
- lab_bj.Caption = strEnd
- Else
- lab_fx.Caption = CStr(iThisYear) & IIf(iThisMonthBegin = 0, "", DATE_FIX & CStr(iThisMonthBegin))
- lab_bj.Caption = CStr(iThisYear) & IIf(iThisMonthEnd = 0, "", DATE_FIX & CStr(iThisMonthEnd))
- End If
- With Rs
- If Not (.EOF And .BOF) Then
- .MoveFirst
- Do Until .EOF
- DoEvents
- If IsNull(!comment) = False Then
- If iRow > CxbbGrid.Rows Then CxbbGrid.AddItem ""
- Select Case strItem
- Case "cwfx_IncJds" '绝对数分析
- Label_Bfb.Visible = False
- dbl_Return = TimeClass(Trim(!Item), iCol)
- CxbbGrid.TextMatrix(iRow, iCol) = IIf(dbl_Return = 0, "", dbl_Return)
- Case "cwfx_IncDj" '定基分析
- Label_Bfb.Visible = True
- dbl_OldValue = TimeClass(Trim(!Item), iCol)
- If iCol = GridStarCol Then '如果为起始列，则基数据为本期数据
- dbl_BaseValue = dbl_OldValue
- CxbbGrid.RowData(iRow) = dbl_OldValue '并保存基数据
- Else '取保存的基数据为比较数据
- dbl_BaseValue = CxbbGrid.RowData(iRow)
- End If
- If dbl_BaseValue <> 0 Then
- dbl_Return = Format((dbl_OldValue / dbl_BaseValue * 100), "#,##0.##")
- CxbbGrid.TextMatrix(iRow, iCol) = IIf(dbl_Return = 0, "", CStr(dbl_Return) & "")
- Else
- CxbbGrid.TextMatrix(iRow, iCol) = ""
- End If
- dbl_BaseValue = dbl_OldValue
- Case "cwfx_IncHb" '环比分析
- Label_Bfb.Visible = True
- dbl_OldValue = TimeClass(Trim(!Item), iCol)
- If iCol = GridStarCol Then '如果为起始列，则基数据为本期数据
- dbl_BaseValue = dbl_OldValue
- CxbbGrid.RowData(iRow) = dbl_OldValue '并保存基数据
- Else
- dbl_BaseValue = CxbbGrid.RowData(iRow)
- End If
- If dbl_BaseValue <> 0 And dbl_OldValue <> 0 Then
- dbl_Return = Format((dbl_OldValue / dbl_BaseValue * 100), "#,##0.##")
- CxbbGrid.TextMatrix(iRow, iCol) = IIf(dbl_Return = 0, "", CStr(dbl_Return) & "")
- CxbbGrid.RowData(iRow) = dbl_Return
- ElseIf dbl_BaseValue = 0 And dbl_OldValue = 0 Then
- CxbbGrid.TextMatrix(iRow, iCol) = ""
- ElseIf dbl_BaseValue = 0 And dbl_OldValue <> 0 Then
- CxbbGrid.TextMatrix(iRow, iCol) = ""
- CxbbGrid.RowData(iRow) = dbl_OldValue
- End If
- End Select
- End If
- iRow = iRow + 1
- .MoveNext
- Loop
- End If
- End With
- Next iCol
- End Sub
- Private Function TimeClass(ByVal ItemClass As String, ByVal iCol As Integer) As Double
- If DEBUG_FLAG = False Then On Error Resume Next
- Dim iTemMonthBegin As Integer
- Dim iTemMonthEnd As Integer
- Dim iTemYear As Integer
- Select Case intType
- Case 0 '月
- iTemYear = Xtyear
- iTemMonthBegin = iThisMonthBegin
- iTemMonthEnd = iThisMonthEnd
- With CxbbGrid
- iTemMonthBegin = Right(.TextMatrix(.FixedRows - 1, iCol), 2)
- iTemMonthEnd = iTemMonthBegin
- End With
- TimeClass = myclsInc.GetPeriodValue(ItemClass, iTemMonthBegin, iTemMonthEnd, iTemYear)
- Case 1 '季
- iTemYear = Xtyear
- iTemMonthBegin = Val(Mid(CxbbGrid.TextMatrix(CxbbGrid.FixedRows - 1, iCol), 6, 2))
- iTemMonthEnd = Val(Mid(CxbbGrid.TextMatrix(CxbbGrid.FixedRows - 1, iCol), 14, 2))
- TimeClass = myclsInc.GetPeriodValue(ItemClass, iTemMonthBegin, iTemMonthEnd, iTemYear)
- Case 2 '年
- iTemYear = Val(CxbbGrid.TextMatrix(CxbbGrid.FixedRows - 1, iCol))
- TimeClass = myclsInc.GetPeriodValue(ItemClass, 1, 12, iTemYear)
- End Select
- End Function
- Private Function TimeClass2(ByVal ItemClass As String, ByVal cCol As String) As Double
- If DEBUG_FLAG = False Then On Error Resume Next
- Dim iTemMonthBegin As Integer
- Dim iTemMonthEnd As Integer
- Dim iTemYear As Integer
- itype = Me.intType
- Select Case itype
- Case 0 '月
- If cCol = "001" Or cCol = "002" Then '分析期
- iTemYear = iThisYear
- iTemMonthBegin = iThisMonthBegin
- iTemMonthEnd = iThisMonthEnd
- ElseIf cCol = "003" Or cCol = "004" Then '比较期
- iTemYear = iCompYear
- iTemMonthBegin = iCompMonthBegin
- iTemMonthEnd = iCompMonthEnd
- End If
- TimeClass2 = myclsInc.GetPeriodValue(ItemClass, iTemMonthBegin, iTemMonthEnd, iTemYear)
- Case 1 '季
- If cCol = "001" Or cCol = "002" Then '分析期
- iTemYear = iThisYear
- iTemMonthBegin = iThisMonthBegin
- iTemMonthEnd = iThisMonthEnd
- ElseIf cCol = "003" Or cCol = "004" Then '比较期
- iTemYear = iCompYear
- iTemMonthBegin = iCompMonthBegin
- iTemMonthEnd = iCompMonthEnd
- End If
- TimeClass2 = myclsInc.GetPeriodValue(ItemClass, iTemMonthBegin, iTemMonthEnd, iTemYear)
- Case 2 '年
- If cCol = "001" Or cCol = "002" Then '分析期
- iTemYear = iThisYear
- ElseIf cCol = "003" Or cCol = "004" Then '比较期 iTemYear = iCompYear
- End If
- TimeClass2 = myclsInc.GetPeriodValue(ItemClass, 1, 12, iTemYear)
- End Select
- End Function
- 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_Unload(Cancel As Integer)
- If DEBUG_FLAG = False Then On Error Resume Next
- '卸载打印页面设置窗体
- Unload Dyymctbl
- End Sub
- Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
- If DEBUG_FLAG = False Then On Error Resume Next
- Select Case Button.Key
- Case "ymsz" '页面设置
- Dyymctbl.Show 1
- Case "yl" '预 览
- Call bbyl(True)
- Case "dy" '打 印
- Call bbyl(False)
- Case "cx" '查 询
- Call IncFx(strTemItem)
- If Me.bSeach = True Then
- If DEBUG_FLAG = False Then XT_Wait.Show
- Call FormInit
- Me.bSeach = False
- If DEBUG_FLAG = False Then XT_Wait.Hide
- End If
- Case "bz" '帮 助
- Call F1bz
- Case "fh" '退 出
- Unload Me
- End Select
- End Sub
- Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button) '网格格式调整
- If DEBUG_FLAG = False Then On Error Resume Next
- 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 bbyl(bbylte As Boolean) '报表打印预览
- If DEBUG_FLAG = False Then On Error Resume Next
- 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
- bbxbtzzxs(1) = 2 '报表行组织形式(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
