rptdatabas.bas

来自「本系统是一个报表分析查询系统」· BAS 代码 · 共 34 行

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