📄 rptdatabas.bas
字号:
Attribute VB_Name = "RptDataBas"
Option Explicit
Private Type CmdBt
FilCmd As Boolean '//是否有过滤权限
ExpCmd As Boolean '//是否有导出权限
PrtCmd As Boolean '//是否有打印权限
PagCmd As Boolean '//是否打印页号
End Type
Private Type CurRptParam
FixRows As Integer '//报表标题
MaxCols As Integer '//报表列数
TitleStr() As String '//标题字符串
FilterStr() As String '//搜索字符串
ExecSql As String
End Type
'//类属性定义
Public RptID As Long '//报表内码
Public ShowSign As Boolean '//是否显示
'//公共数据定义
Public meObj As New RptData.RptDataCls '//报表展示对象
Public Cmd As CmdBt '//报表命令按钮类型
Public Crp As CurRptParam '//报表参数类型
Public meRpt As Object '//报表数据对象
Public meFilter As New Collection '//保存搜索条件
Public meColCls As New Collection '//存储过程参数表
Public Const TitleText = "报表数据"
Public ExeSign As Boolean
Public CmdExeSign As Boolean
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -