logondatabas.bas

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

Attribute VB_Name = "LogonDataBas"
Option Explicit
Private Type CellData
  Js_LogonPreceptID As Long
  Js_LogonPreceptParentID As Long
  Js_LogonPreceptNumber As String
  Js_LogonPreceptType As Long
  Js_LogonPreceptValue As String
  Js_LogonPreceptDesc As String
  Js_LogonPreceptLevel As Long
  Js_LogonPreceptDetail As Long
  Js_LogonPreceptUseSign As Long
  Js_LogonPreceptUserID As Long
  Js_LogonPreceptDate As String
  Js_LogonPreceptTime As String
  '//
  MaxRows As Long
  MaxCols As Long
  MaxColTitle As String
  ListSql As String
End Type

Public meObj As New LogonPrecept.BaseCls
Public meCell As CellData
Public SelUserIDList As String
Public SelUserNameList As String
Public Const TitleText = "系统登录方案"