📄 frmstandardbook.frm
字号:
TabIndex = 32
TabStop = 0 'False
Top = 6480
Width = 4005
End
Begin ListRefer.ListText cboList
Height = 315
Index = 0
Left = 1020
TabIndex = 6
Top = 480
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 GACALENDARLibCtl.Calendar detBegin
Height = 300
Left = 6480
OleObjectBlob = "frmStandardBook.frx":036B
TabIndex = 12
Top = 480
Width = 1305
End
Begin ListRefer.ListText cmbDate
Height = 315
Left = 4800
TabIndex = 10
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 ListRefer.ListText cboMonth
Height = 300
Left = 8040
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 GACALENDARLibCtl.Calendar detStop
Height = 300
Left = 3120
OleObjectBlob = "frmStandardBook.frx":03F4
TabIndex = 8
Top = 480
Visible = 0 'False
Width = 1305
End
Begin ListRefer.ListText cboYear
Height = 300
Left = 6480
TabIndex = 13
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 = 2400
TabIndex = 7
Top = 525
Visible = 0 'False
Width = 990
End
Begin VB.Label lblFrom
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "从"
Height = 180
Left = 6240
TabIndex = 11
Top = 525
Width = 180
End
Begin VB.Label lblTo
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "到"
Height = 180
Left = 7800
TabIndex = 14
Top = 525
Width = 240
End
Begin VB.Label lblD
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "日期(&D)"
Height = 180
Left = 4440
TabIndex = 9
Top = 525
Width = 630
End
Begin VB.Label LblList
Caption = "部门(&1)"
Height = 180
Index = 0
Left = 360
TabIndex = 5
Top = 525
Width = 660
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 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
End
Attribute VB_Name = "frmStandardBook"
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 设置左边距
'
'GRID数据行标志：# 明细数据；~ 结束；$ 汇总数据
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Const lngFormWidth As Long = 8300 '窗体最小宽度
Const lngFormHeight As Long = 5000 '窗体最小高度
Const conSumCount As Integer = 50 '每个分组最大汇总字段数
Private mbytExtraCols As Byte '报表特殊列数
Private mblnStandard As Boolean '是否为标准表
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 mclsCell As FreeCellSet '自由单元对象
Private WithEvents mclsMainControl As MainControl '主控对象
Attribute mclsMainControl.VB_VarHelpID = -1
Private mclsStandard As StandardReportSet '标准表设置对象
Private mclsCross As CrossSet '交叉表设置对象
Private mclsFormCond As FormCond '标准表条件对象
Private WithEvents ABook As ReportBook '标准表报表对象
Attribute ABook.VB_VarHelpID = -1
Private mclsFset As ClsFormatset '格式设置对象
Private mstrCellQueryCond As String '报表查询中文一般条件
Private mstrCellExtraCond As String '报表查询中文特殊条件
Private mstrListCond As String '列表框条件
Private mstrDateCond As String '日期条件
Private mstrNormalCond As String '报表查询一般条件
Private mstrExtraCond As String '报表查询特殊条件
Private mstrLevelCond As String '报表编码层次条件
Private mstrWizardCond As String '报表向导条件
Private mintLevelType As Integer '报表编码层次汇总类型
Private mstrCustomerCond As String '强生：单位条件
Private mstrEmployeeCond As String '强生：职员条件
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 mstrCCXYED As String '信用风险稽查超出信用额度
Private mblnLoaded As Boolean '是否已装载窗体
Private mblnRefresh As Boolean '是否已刷新
Private mintFCIndex As Integer '自由单元索引(右键响应)
Private mstrOldDate As String '日期控件旧文本
Private mblnChanged As Boolean '是否改变报表设置
Private mblnRotate As Boolean '是否旋转显示
Private mblnFatalErr As Boolean '致命错误
Private mintSealCol As Integer '签名列
Private mintSealAddCol As Integer '附加签名列
Private mbytShowSeal As Byte '工资发放表签名方章显示
Private mlngColWidth() As Long '旋转显示保存的列宽
Private mintFixedCols As Integer '固定列数
Private mstrPreStop As String '截止日期失去焦点前的文本
Private mblnSaving As Boolean '报表正在保存
Private mblnAutoRefresh As Boolean '是否自动刷新
Private mblnCrossSameWidth As Boolean '交叉表数据列是否同宽度
Private mlngStyles As Long '强生报表：购买品牌数
Private mlngClients As Long '强生报表：期间总客户数
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 ByVal blnStandard As Boolean = True, Optional clsReportSet As StandardReportSet = Nothing, _
Optional clsCross As CrossSet = Nothing, Optional clsFormCond As FormCond)
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
mblnStandard = blnStandard
Set ABook = New ReportBook
ABook.SetWin PicPaper.hWnd
If ABook.IsInitSuccessed = 0 Then
Unload Me
Unload MsgForm
Exit Sub
End If
ABook.Version = Report.VersionInfo
mblnChanged = False
mblnLoaded = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -