mdlparameter.bas

管理文档的原代码,可以把扫描的文档归类,便于查询

Attribute VB_Name = "MdlParameter"
Option Explicit

'####################################################################
' 全局变量、常量定义区

'RDO变量
Public GblRdoEnv As rdoEnvironment
Public GblRdoCon As New rdoConnection
Public GblRdoRes As rdoResultset
Public GblRdoTable As rdoTable

'DSN变量
Public gDSN As String
Public gUserID As String
Public gPwd As String
Public gDbName As String

'工作环境状态变量
Public gLoginTime
Public gWorkDate
Public gComputerName
Public gUserName As String
Public gUserPwd As String

Public gErrDescription As String '错误描述
Public gLoginSuccess As Boolean '登录成功标志
Public gTableSpace As String

Public Const gRegSubKey = "SOFTWARE\方正奥德计算机系统有限公司\文件管理" '注册表子键
Public Const XTTS = "系统提示" '提示信息
Public Const LXGLY = "请立即与管理员联系！" '提示信息
Public gMakeCDExe As String '刻盘程序路径

'用户登录模块使用
Global inkey(0 To 7), source(0 To 7), dest(0 To 7) As Byte
Type User_Info
    User_ID As Integer
    Login_Name As String
    User_Name As String
    Password As String
    Expire_Time As Date
    Retry_Time As Integer
    Lock_Status As Integer
    Branch_ID As Integer
    Department_ID As Integer
    Level_ID As Integer
End Type
Public g_User_Info As User_Info '登录用户信息

Public gLVMainView As Integer
Public g_IE_Path As String 'IE浏览器的安装路径
'Public Title As String '打印标题
'Public CurPosY As Long '打印X坐标
'Public CurPosX As Long '打印Y坐标

Public gRootUser As String
Public gRootPwd As String
Public gRootCancel As Boolean

Public gUser As String ' 全局访问用户名
Public gDiskCapacity As Long '每张光盘容量