📄 frmfinancebook.frm
字号:
Height = 300
Left = 2100
OleObjectBlob = "frmFinanceBook.frx":0804
TabIndex = 45
Top = 930
Width = 1215
End
Begin ListRefer.ListText cmbReferDate
Height = 285
Left = 660
TabIndex = 46
Top = 945
Width = 1185
_ExtentX = 2090
_ExtentY = 503
Locked = -1 'True
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 0
End
Begin GACALENDARLibCtl.Calendar ReferEndDate
Height = 300
Left = 3570
OleObjectBlob = "frmFinanceBook.frx":088D
TabIndex = 47
Top = 930
Width = 1215
End
Begin VB.Label lblTo
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "到"
Height = 180
Index = 1
Left = 3360
TabIndex = 60
Top = 540
Width = 180
End
Begin VB.Label lblFrom
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "从"
Height = 180
Index = 1
Left = 1890
TabIndex = 59
Top = 540
Width = 180
End
Begin VB.Label lblAnalyPeriod
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "分析期1"
Height = 180
Left = 30
TabIndex = 58
Top = 540
Width = 630
End
Begin VB.Label lblD
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "比较期1"
Height = 180
Left = 30
TabIndex = 57
Top = 990
Width = 630
End
Begin VB.Label lblFrom
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "从"
Height = 180
Index = 0
Left = 1890
TabIndex = 56
Top = 990
Width = 180
End
Begin VB.Label lblTo
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "到"
Height = 180
Index = 0
Left = 3360
TabIndex = 55
Top = 990
Width = 180
End
Begin VB.Label lblReportPeriod
AutoSize = -1 'True
BackColor = &H8000000B&
BackStyle = 0 'Transparent
Caption = "报告期"
Height = 180
Left = 4845
TabIndex = 54
Top = 540
Visible = 0 'False
Width = 540
End
Begin VB.Label lblOtherAnaly
AutoSize = -1 'True
BackColor = &H8000000B&
BackStyle = 0 'Transparent
Caption = "分析期2"
Height = 180
Left = 4800
TabIndex = 53
Top = 540
Visible = 0 'False
Width = 630
End
Begin VB.Label lblOtherRefer
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "比较期2"
Height = 180
Left = 4830
TabIndex = 52
Top = 990
Visible = 0 'False
Width = 630
End
Begin VB.Label lblOtherAnalyFrom
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "从"
Height = 180
Index = 0
Left = 6720
TabIndex = 51
Top = 540
Visible = 0 'False
Width = 180
End
Begin VB.Label lblOtherReferFrom
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "从"
Height = 180
Index = 0
Left = 6720
TabIndex = 50
Top = 990
Visible = 0 'False
Width = 180
End
Begin VB.Label lblOtherAnalyFrom
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "到"
Height = 180
Index = 1
Left = 8190
TabIndex = 49
Top = 540
Visible = 0 'False
Width = 180
End
Begin VB.Label lblOtherReferFrom
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "到"
Height = 180
Index = 1
Left = 8190
TabIndex = 48
Top = 990
Visible = 0 'False
Width = 180
End
Begin MSForms.CommandButton CmdZoom
Height = 348
Left = 2496
TabIndex = 14
Top = 4656
Width = 1128
Caption = "缩放"
PicturePosition = 196613
Size = "1990;614"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
End
Attribute VB_Name = "frmFinanceBook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 财务分析表窗体代码
' 作者:雷宇
' 时间:1998-07-01
'
' 接口函数(过程):
' Public Function ShowFinanceReport(ByVal lngReportId As Long, ByVal ViewId As Long, Optional clsFinanceReport As FinanceReportWizard = Nothing)
' 功能:调入财务分析表窗体
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Const mlngFormWidth As Long = 10185 '窗体最小宽度
Const mlngFormHeight As Long = 5445 '窗体最小高度
Const lngGridTop As Long = 735 '表格与帐表顶部距离
Const lngGridTopNoTitle As Long = 400
'表格与帐表顶部距离（无标题时）
Private mintPageRows As Integer '一页的最大行数
Private mlngPageWidth As Long '一页的最大宽度
Private mlngPages As Long '总页数=mlngColExpands * mlngRowExpands
Private mlngColExpands As Long '原始一页横向扩展出来的总页数(可能<>总列宽\mlngPageWidth+1)
Private mlngRowExpands As Long '原始一页纵向扩展出来的总页数=记录数\mlngPageRows+1
Private mlngColStart() As Long '每页的开始列
Private mlngColEnd() As Long '每页的结束列
Private mlngRowStart() As Long '每页记录的开始位置
Private mlngRowEnd() As Long '每页记录的结束位置
Private mlngEndRowTop() As Long '每页最后一行记录单元的顶端位置
Private mblnIsLastRow() As Boolean '是否是有最后一行
Private mblnIsLastCol() As Boolean '是否是有最后一列
Private mlngCurPage As Long '当前页
Private mlngGridTop As Long
Private mlngPageGroup() As Long '所有页数分组
Private mlngTitleHeight As Long
Private mlngTitleWidth As Long
Private mlngTitleLeft As Long
Private mlngTitleTop As Long
Private mlngDateHeight As Long
Private mlngDateWidth As Long
Private mlngDateLeft As Long
Private mlngDateTop As Long
Private mblnTitlePosChanged As Boolean
Private WithEvents ABook As ReportBook '列表报表对象
Attribute ABook.VB_VarHelpID = -1
Private clsFset As ClsFormatset
Private ZoomIndex As Integer
Private PaperWidth As Long
Private PaperHeight As Long
Private mbResizeing As Boolean
Private mstrGridData() As String
Private mintCurContents As Integer
Private WithEvents mclsMainControl As MainControl '主控对象
Attribute mclsMainControl.VB_VarHelpID = -1
Private mclsFinanceReport As FinanceReportWizard '帐表设置对象
Private mblnHaveHead As Boolean '是否需要标题
Private WithEvents mclsHook As Hook
Attribute mclsHook.VB_VarHelpID = -1
Private mOldCol As Integer
Private mblnLoad As Boolean '窗体是否已经加载
Private mstrDateCond As String '日期条件
Private mstrAccountCond As String '科目条件
Private mintAmountBanCol As Integer '金额余额列
Private mintQuantityBanCol As Integer '数量余额列
Private mintCurrencyBanCol As Integer '外币余额列
Private mintRemarkCol As Integer '摘要列
Private mintDirectCol As Integer '方向列
Private mintMastDealRow As Integer '已进行数据处理的最大行
Private mstrMonth As String '上一行的月
Private mstrDay As String '上一行的日
Private mintMonthCol As Integer '月对应的列号
Private mintDayCol As Integer '日对应的列号
Private mblnIsOver As Boolean '是否处理到帐册的最后一列
Private mblnIsReLoad As Boolean
Private mblnIsAnaly As Boolean '是否已经生成了数据
Private mstrAccountDataType As String '是财务帐还是业务帐
Private rstTemp As rdoResultset '模块内有效的查询
Private dblAnalyData() As Double '保存参与分析的数据的二维数组
Private dblAnalySum() As Double '保存每列的合计数
Private strGrdDataText() As String '保存表格的标题
Private strRateCols() As String '保存那些属于比率的列
Private strSumData() As String '保存那些属于"合计"的列
Private dblColSumData() As Double
Private dblColPartData() As Double
Private mblnQueryHasRecord As Boolean '查询是否有数据
Private lngOldGridTop As Long '表格原来的顶端位置,备恢复用
Private lngOldGridHeight As Long '表格原来的高度,备恢复用
Private mblnIsReferPeriod As Boolean '是比较期还是报告期起作用
Private mlngReportID As Long '当前报表的ID
Private mlngAnalyFieldID As Long '分析期的ID
Private mstrAnalyDateOP As String '分析期的类型
Private mdtmAnalyDate1 As String '分析期的起始时间
Private mdtmAnalyDate2 As String '分析期的终止时间
Private mlngReferFieldID As Long '比较期的ID
Private mstrReferDateOP As String '比较期的类型
Private mstrOtherReferDateOP As String '比较期2的类型
Private mstrOtherAnalyDateOP As String '分析期2的类型
Private mdtmReferDate1 As String '比较期的起始时间
Private mdtmReferDate2 As String '比较期的终止时间
Private mstrKeyName As String '报告期的类型名称
Private mblnIsPeriodChanged As Boolean '检测当前的期间类型是否改变
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -