mdlparameter.bas

一个把自己的东西刻成光盘后自动查询和启动的原代码

Attribute VB_Name = "MdlParameter"

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

'DAO变量
Public gWrks As Workspace
Public gDbs As Database
Public gRst As Recordset

'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 gCDPath As String '光驱路径
Public gIsPath As Boolean 'gcdpath是否可用,包含diskdb.mdb
Public gTreeDef As Boolean '目录树是否自定义过

Public Const gRegSubKey = "SOFTWARE\方正奥德计算机系统有限公司\单机查询" '注册表子键
Public Const XTTS = "系统提示" '提示信息
Public Const LXGLY = "请立即与管理员联系！" '提示信息

'用户登录模块使用
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 Const gTableSpace = "USERDATA"
Public Const gReplaceChar = "$" '替代'的字符

Public gConvert_To_Dict As Boolean '是否转换数据字典
Public gMax_Convert_Rec As Integer '转换数据字典最多记录数
Public gRfshNode As Boolean '是否单击节点即刷新

Type NodeInfo
    Node_ID As String
    Field_En_Name As String
    Where_Str As String
    Tree_Type As Integer
    Tree_Name As String
    Tree_User_Name As String
    Parent_Node_ID As Integer
    Node_Level_Index As Integer
    Field_Cn_Name As String
    Is_Root As Integer
    Field_Value As String
    Table_Name As String
    Node_Type As Integer
    View_List As Integer
End Type

Public Type Def_Info
    Type_Code As String
    Field_Name As String
    Display_Name As String
    Data_Type As Integer
    Data_Length As Integer
    Data_Scale As Integer
    System_Dict_Type As String
    VScale As Integer
    HScale As Integer
    Is_Null As String
End Type
Public gDef_Info As Def_Info

Type Tran_Des_Reg
    Flag As Integer '移交销毁
    Operator As String '操作人
    Operate_Date As Date '操作时间
    Accept_Person As String '接收人
    Accept_Date As Date '接收时间
    Remark As String '备注
    IsCancel As Boolean '取消标志
End Type
Public g_Tran_Des_Reg  As Tran_Des_Reg '移交销毁对象全局变量

'自定义目录树结构
Type Tree_Defination
    Node_ID As Integer
    Tree_Type As Integer
    Tree_Name As String
    Tree_User_Name As String
    Parent_Node_ID As Integer
    Node_Level_Index As Integer
    Field_En_Name As String
    Field_Cn_Name As String
    Is_Root As Boolean
    Field_Value As String
    Table_Name As String
    Node_Type As Integer
    View_List As Boolean
    Where_String As String
    Type_Code As String
    Data_Type As Integer
    System_Dict_Type As Integer
    Is_Init As Boolean '是否初始化
End Type
Public g_Parent_Tree_Node As Tree_Defination
Public g_Tree_Node As Tree_Defination

Public g_Root_Path As String '文件实体存储根路径
Public g_IE_Path As String 'IE浏览器的安装路径
Public gDiskCapacity As Long '每张光盘容量