rptdatabas.bas

本系统是一个报表分析查询系统

Attribute VB_Name = "RptDataBas"
Option Explicit

Private Type RptParam
 Js_RptID As Long
 Js_GroupID As Long
 Js_RptName As String
 Js_RptDesc As String
 Js_RptCallName As String
 Js_RptWidth As Long
 Js_RptHeight As Long
 Js_RightID As Long
 Js_FiltrateRightID As Long
 Js_ExportRightID As Long
 Js_PrintRightID As Long
 Js_UserID As Long
 Js_Date As String
 Js_Time As String
 '//
 Js_GroupName As String
 Js_RightName As String
 Js_FiltrateRightName As String
 Js_ExportRight As String
 Js_PrintRightName As String
End Type

Private Type RptHdFr
 Js_HeaderFooterID As Long
 Js_RptID As Long
 Js_hfTypeID As Long
 Js_hfText As String
 Js_hfFontName As String
 Js_hfFontSize As Long
 Js_hfFontBold As Long
 Js_hfFontItalic As Long
 Js_hfFontUnderline As Long
 Js_HeaderFooterOrderID As Long
End Type

Private Type RptHeaderOpertion
 Header As Boolean '//为True 当前正在设计页眉
 Footer As Boolean '//为True 当前正在设计页脚
 Text As String '//当前输入的内容
 CurRow As Long '//当前的行
 hCount As Integer '//当前的页眉数量
 fCount As Integer '//当前的页脚数量
 SelRow As Long '//删除时，修改时要选择的行
End Type

Private Type RptColsDesc
 Js_FieldControlID As Long
 Js_RptID As Long
 Js_FieldName As String
 Js_FieldDsecID As Long
 Js_FieldDsec As String
 Js_FieldLen As Long
 Js_FieldWidth As Long
 Js_FieldAlign As Long
 Js_FieldShowSign As Long
 Js_RightID As Long
 Js_FieldOrderID As Long
 Js_FieldOrderSign As Long
End Type

Private Type RptFil
 Js_FiltID As Long
 Js_RptID As Long
 Js_FieldControlID As Long
 Js_LinkSign As Long
 Js_Desc As String
 Js_OrderID As Long
End Type

Private Type RptTitle
 Js_TitleID As Long
 Js_RptID As Long
 Js_SRow As Long
 Js_ERow As Long
 Js_SCol As Long
 Js_ECol As Long
 Js_Text As String
End Type

Private Type SelFont
 Name As String
 Size As Long
 Bold As Long '//2
 Italic As Long '//4
 Strikethru As Long '//16
 Underline As Long '//8
End Type

Private Type RptInfo
 Param As RptParam '//报表参数
 HdFt As RptHdFr '//页眉页脚参数
 DescCols As RptColsDesc '//报表每列的描述
 hOper As RptHeaderOpertion '//报表页眉页脚
 Filter As RptFil '//报表搜索条件
 rTitle As RptTitle '//报表标题
 ProName As String '//存储过程名字
 FieldID As Long '//搜索条件类型内码
 FieldName As String '//搜索条件类型名称
End Type

Private Type SelRange
 sCol As Long
 sRow As Long
 eCol As Long
 eRow As Long
End Type

Private Type ScanRange
 MaxCol As Integer
 MaxRow As Integer
 CurValue As String
 sRan As SelRange
End Type

Public meObj As New Rpt.RptCls
Public meColCls As New Collection
Public meRptTitle As New Collection
Public meRpt As RptInfo
Public meFont As SelFont
Public eRptID As Long
Public meSel As ScanRange
Public meFnd As New Collection
Public meTitle As New Collection
Public Const TitleText = "设计报表"
Public Const fLeft = 80
Public Const TitleStr = "标题名称|Sql 类型|文本长度|小数位数|标题宽度|对齐方式|显示标志|访问权限|标题描述|权限内码|字段类型"
Public Const AlignDesc = "左对齐" & vbCrLf & "右对齐" & vbCrLf & "居中对齐" & vbCrLf
Public Const ShowSign = "显示" & vbCrLf & "隐藏" & vbCrLf
Public Const FilStr = "标题名称|Sql 名称|Sql 类型|来源类型|来源内码"
Public Const MaxTitleRow = 10