Attribute VB_Name = "Database"
'******************************************************************************
' -概要定義-
'  系統(tǒng)名稱
'                   Copyright(C) 2004
'  程序名稱         Database.bas
'  功能概要         常量定義
'  日期             2004.05.18
'  作成者
'  備注
'******************************************************************************
'修改簡歷
'******************************************************************************
Option Explicit

'******************************************************************************
'全局變量的聲明
'******************************************************************************

'錯誤消息定義(Used by cmnsErrMessage())
Public Const gsEMSG_INISEARCH         As String = "系統(tǒng)初始化文件不存在"
Public Const gsEMSG_INIDRIVER         As String = "系統(tǒng)初始化文件中數(shù)據(jù)庫驅(qū)動不存在"
Public Const gsEMSG_INISERVER         As String = "系統(tǒng)初始化文件中數(shù)據(jù)庫服務(wù)器地址不存在"
Public Const gsEMSG_INIINSTANCE       As String = "系統(tǒng)初始化文件中數(shù)據(jù)實例名不存在"
Public Const gsEMSG_INIDATABASE       As String = "系統(tǒng)初始化文件中數(shù)據(jù)庫名稱不存在"
Public Const gsEMSG_INIDNS            As String = "系統(tǒng)初始化文件中數(shù)據(jù)源名稱不存在"
Public Const gsEMSG_INILOGIN          As String = "系統(tǒng)初始化文件中數(shù)據(jù)用戶名稱不存在"
Public Const gsEMSG_INIPASSWORD       As String = "系統(tǒng)初始化文件中數(shù)據(jù)用戶口令不存在"
Public Const gsEMSG_INITCOMPORT       As String = "系統(tǒng)初始化文件中COM口不存在"
Public Const gsEMSG_INITUDPPORT       As String = "系統(tǒng)初始化文件中UDP端口不存在"

Public Const gsEMSG_OPENDATABASE      As String = "不能打開數(shù)據(jù)庫連接"

Public Const gsEMSG_USER_CHGPWD       As String = "用戶修改密碼失敗"
Public Const gsEMSG_USER_LOGIN        As String = "用戶登錄失敗"
Public Const gsEMSG_USER_LOGOUT       As String = "用戶注銷失敗"
Public Const gsEMSG_USER_REGISTER     As String = "客戶機(jī)登錄服務(wù)器失敗"

Public Const glRC_LOGIN_OK            As Long = 1
Public Const glRC_LOGIN_FAIL          As Long = 2
Public Const glRC_CHGPWD_OK           As Long = 3
Public Const glRC_CHGPWD_FAIL         As Long = 4