rptgroupdatabas.bas

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

Attribute VB_Name = "RptGroupDataBas"
Option Explicit
Private Type CellData
 Js_GroupID As Long
 Js_ParentID As Long
 Js_Number As String
 Js_GroupName As String
 Js_UserList As String
 Js_Admin As Long
 Js_RightID As Long
 Js_Desc As String
 Js_Level As Long
 Js_Detail As Long
 Js_UseSign As Long
 Js_UserID As Long
 Js_Date As String
 Js_Time As String
 '//
 MaxRows As Long
 MaxCols As Long
 MaxColTitle As String
 ListSql As String
End Type

Public meObj As New RptGroup.RptGroupCls
Public meCell As CellData
Public SelUserIDList As String
Public SelUserNameList As String
Public Const TitleText = "报表组"