stdrptdata.bas

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

Attribute VB_Name = "StdRptData"
Option Explicit

'//系统信息
Private Type SystemBaseInfo
 XmlFile As String
 MsgInfo As String
 Title As String
 Author As String
 Version As String
 LoginID As String
End Type

'//数据库信息
Private Type SystemDataInfo
 Name As String
 Data As String
 User As String
 Pass As String
End Type

'//初始信息描述
Private Type SystemInfo
 Base As SystemBaseInfo
 Data As SystemDataInfo
End Type

'//系统表描述
Public Type SysTable
 FinterID As Long
 FieldName As String
 FieldText As String
 TableName As String
 TableDesc As String
End Type

'//导入用户时需要
Public Type UserStruct
 Js_UserID As Long
 Js_UserNumber As String
 Js_UserName As String
 Js_UserPass As String
 Js_UserGroupList 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
 Js_RightList As String
End Type

Public Type UserGroupStruct
 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
End Type


Public ConStr As String
Public UserID As Long
Public ClassID As Long
Public SysInfo As SystemInfo
Public SqlList As New Collection