userdatabas.bas

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

Attribute VB_Name = "UserDataBas"
Option Explicit
Private Type CellData
 Js_UserID As Long
 Js_UserNumber As String
 Js_UserName As String
 Js_UserPass As String
 Js_UserGroupList As String
 Js_UserList As String
 Js_LogonPreceptID As Long
 Js_RightID As Long
 Js_Desc As String
 Js_UseSign As Long
 Js_HandsetCode As String
 Js_EMailAddr As String
 Js_PhoneCode As String
 Js_WebAddr As String
 Js_UserAdrr As String
 Js_MailCode As String
 Js_AddUserID As Long
 Js_AddDate As String
 Js_AddTime As String
 '//
 MaxRows As Long
 MaxCols As Long
 MaxColTitle As String
 ListSql As String
End Type

Public meObj As New User.UserCls
Public meCell As CellData
Public UserPass As String
Public SelUserIDList As String
Public SelUserNameList As String
Public Const TitleText = "系统用户"