rightdatabas.bas

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

Attribute VB_Name = "RightDataBas"
Option Explicit
Private Type CellData
  Js_RightID As Long
  Js_RightParentID As Long
  Js_RightNumber As String
  Js_RightName As String
  Js_RightDesc As String
  Js_RightLevel As Long
  Js_RightDetail As Long
  Js_RightUseSign As Long
  Js_RightUserID As Long
  Js_RightDate As String
  Js_RightTime As String
  '//
  MaxRows As Long
  MaxCols As Long
  MaxColTitle As String
  ListSql As String
End Type

Public meObj As New Right.RightCls
Public meCell As CellData
Public SelUserIDList As String
Public SelUserNameList As String
Public Const TitleText = "系统权限方案"