📄 frmreportsumbook.frm
字号:
Width = 315
End
Begin VB.CommandButton CmdPage
Height = 255
Index = 3
Left = 9150
Picture = "frmReportSumBook.frx":0342
Style = 1 'Graphical
TabIndex = 26
ToolTipText = "跳至尾页"
Top = 6225
Width = 315
End
Begin ListRefer.ListText cboList
Height = 315
Index = 0
Left = 1020
TabIndex = 6
Top = 480
Visible = 0 'False
Width = 1665
_ExtentX = 2937
_ExtentY = 556
CodeSort = -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
End
Begin ListRefer.ListText cmbDate
Height = 315
Left = 4920
TabIndex = 11
Top = 480
Width = 1455
_ExtentX = 2566
_ExtentY = 556
Locked = -1 'True
BackColor = -2147483643
RMenu = "1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin GACALENDARLibCtl.Calendar detEnd
Height = 300
Left = 8160
OleObjectBlob = "frmReportSumBook.frx":03F4
TabIndex = 15
Top = 480
Width = 1305
End
Begin GACALENDARLibCtl.Calendar detBegin
Height = 300
Left = 6600
OleObjectBlob = "frmReportSumBook.frx":047D
TabIndex = 13
Top = 480
Width = 1305
End
Begin ListRefer.ListText cboMonth
Height = 300
Left = 8160
TabIndex = 16
Top = 480
Visible = 0 'False
Width = 1305
_ExtentX = 2302
_ExtentY = 529
AutoPop = 0 'False
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
End
Begin VB.Label LblStop
AutoSize = -1 'True
Caption = "截止日期(&J)"
Height = 180
Left = 2460
TabIndex = 7
Top = 525
Visible = 0 'False
Width = 990
End
Begin MSForms.CommandButton CmdZoom
Height = 345
Left = 2700
TabIndex = 30
Top = 6480
Width = 1215
Caption = "缩放"
PicturePosition = 196613
Size = "2143;609"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton CmdPaper
Height = 345
Left = 3930
TabIndex = 31
Top = 6480
Width = 1215
Caption = "纸张"
PicturePosition = 196613
Size = "2143;609"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin VB.Label LblList
AutoSize = -1 'True
Caption = "部门(&1)"
Height = 180
Index = 0
Left = 390
TabIndex = 5
Top = 510
Visible = 0 'False
Width = 630
End
Begin VB.Label lblD
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "日期(&D)"
Height = 180
Left = 4560
TabIndex = 9
Top = 525
Width = 630
End
Begin VB.Label lblTo
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "到"
Height = 180
Left = 7920
TabIndex = 14
Top = 525
Width = 195
End
Begin VB.Label lblFrom
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "从"
Height = 180
Left = 6400
TabIndex = 12
Top = 525
Width = 195
End
End
Attribute VB_Name = "frmReportSumBook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' 汇总表查询(真实报表：综合)
'
' 作者：邓强
' 功能：根据用户选择汇总表项目组织数据显示（真实纸页效果）
' 时间：98.7.17
'
' 公共过程:
' ResponseMessage 响应消息,刷新纪录
' ShowAcntBook 显示报表
'
' 相关报表对象子过程 :
' SetCell 设置单元数据
' SetFreeCell 设置自由单元数据'
'SetColumnInfo 设置列信息
'SetRowInfo 设置行信息
'setDataFont 设置数据区字体
'GetGridTop 获得数据区Top位置
'SetGridTop 设置数据区Top位置
'GetGridheight 获得数据区高度
'GetGridWidth 获得数据区宽度
'setMaxRow 设置最大显示行
'setMaxCol 设置最大显示列
'GetDefRowheight 获得缺省行高
'SetDefRowheight 设置缺省行高
'GetDefColWidth 获得缺省列宽
'SetDefColWidth 设置缺省列宽
'GetRowHeight 获得指定行高
'GetColumnWidth 获得指定列宽
'SetFixRow 设置标题行数
'SetTableLeftMargin 设置左边距
'''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Const lngFormWidth As Long = 8500 '窗体最小宽度
Const lngFormHeight As Long = 5000 '窗体最小高度
Private mintPageRows As Integer '一页的最大行数
Private mlngPageWidth As Long '一页的最大宽度
Private mlngPages As Integer '总页数=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 mlngCurPage As Integer '当前页
Private mstrHF(6) As String
Private WithEvents mclsMainControl As MainControl '主控对象
Attribute mclsMainControl.VB_VarHelpID = -1
Private mclsSum As ReportSumSet '汇总表设置对象
Private mclsFormCond As FormCond '汇总表条件对象
Private mclsFormFilt As clsFilter '汇总表过滤条件对象
Private WithEvents ABook As ReportBook '汇总表报表对象
Attribute ABook.VB_VarHelpID = -1
Private mclsFset As ClsFormatset '格式设置对象
Private mclsCell As FreeCellSet '自由单元对象
Private mstrCellQueryCond As String '报表查询中文一般条件
Private mstrCellExtraCond As String '报表查询中文特殊条件
Private mstrCellFilterCond As String '报表过滤中文条件
Private mstrExtraCond As String '报表查询特殊条件
Private mstrListCond As String '列表框条件
Private mstrDateCond As String '日期条件
Private mstrNormalCond As String '报表查询一般条件
Private mstrGroupCond As String '报表查询分组条件
Private mstrLevelCond As String '报表编码层次条件
Private mstrWizardCond As String '报表向导条件
Private mintLevelType As Integer '报表编码层次汇总类型
Private mintCurContents As Integer '当前目录
Private mbResizeing As Boolean '移动标志
Private ZoomIndex As Integer
Private PaperWidth As Long
Private PaperHeight As Long
Private mblnOrient As Boolean '纵向打印
'Private mintAddTail As Integer '在表格尾部添加的行数，用来控制查找循环的结束
Private mlngDayCount As Long '天数
Private mintCurrCol As Integer '币种列
'Private mstrCCXYED As String '信用风险稽查超出信用额度
Private mintPayLoc As Integer '工程核算实际支付列位置
Private mintPayCount As Integer '工程核算实际支付列数
Private mblnLoaded As Boolean '是否已装载窗体
Private mblnRefresh As Boolean '是否已刷新
Private mintFCIndex As Integer '自由单元索引(右键响应)
Private mstrOldDate As String '日期控件旧文本
Private mblnChanged As Boolean '是否改变报表设置
Private mblnFatalErr As Boolean '致命错误
Private mintIndex As Integer '序号列
Private mstrPreStop As String '截止日期失去焦点前的文本
Private mblnSaving As Boolean '报表正在保存
Private mblnAutoRefresh As Boolean '是否自动刷新
Private mlngCellTop As Long '新增自由单元TOP
Private mlngCellLeft As Long '新增自由单元TOP
Private mbytCellType As Byte '新增自由单元类型
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' * 公共过程 *
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 响应消息,刷新纪录
Public Sub ResponseMessage()
Dim vntMessage As Variant
' For Each vntMessage In mclsMainControl.Messages
' Select Case vntMessage
' ' 单位 部门 科目 摘要
' Case Message.msgCustomer, Message.msgDepartment, Message.msgAccount, Message.msgRemark
' RefreshData '刷新纪录
' Case Else
' RefreshData '刷新纪录
' End Select
' Next
' mclsMainControl.Messages.Clear
End Sub
'显示报表
Public Sub ShowAcntBook(ByVal lngReportID As Long, ByVal ViewId As Long, Optional clsReportSet As ReportSumSet = Nothing, _
Optional clsFormCond As FormCond, Optional clsFormFilt As clsFilter)
Dim str As String, strCap As String
Dim blnLoad As Boolean
Dim edtErrReturn As ErrDealType
#If conDebug = 0 Then
On Error GoTo ErrHandle
#End If
Set ABook = New ReportBook
mblnLoaded = False
mblnChanged = False
mblnRefresh = False
mblnFatalErr = False
mintPayLoc = -1
ABook.SetWin PicPaper.hWnd
If ABook.IsInitSuccessed = 0 Then
Unload Me
Unload MsgForm
Exit Sub
End If
ABook.Version = Report.VersionInfo
'显示已存盘的帐表
If clsReportSet Is Nothing Then
Set mclsSum = New ReportSumSet
Set mclsFormCond = New FormCond
Set mclsFormFilt = New clsFilter
mclsFormCond.InitCondArr lngReportID, ViewId, 2, 64, "日期"
mclsFormFilt.InitCondArr lngReportID, ViewId
blnLoad = mclsSum.GetReportSet(lngReportID)
If blnLoad = False Then
Unload MsgForm
Unload Me
Exit Sub
End If
'显示才由向导生成的帐表
Else
Set mclsSum = clsReportSet
Set mclsFormFilt = clsFormFilt
Set mclsFormCond = clsFormCond
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -