?? database.bas
字號:
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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -