database.bas

智能邮件管理信息系统

Attribute VB_Name = "Database"
'******************************************************************************
' -概要定义-
'  系统名称
'                   Copyright(C) 2004
'  程序名称         Database.bas
'  功能概要         常量定义
'  日期             2004.05.18
'  作成者
'  备注
'******************************************************************************
'修改简历
'******************************************************************************
Option Explicit

'******************************************************************************
'全局变量的声明
'******************************************************************************

'错误消息定义(Used by cmnsErrMessage())
Public Const gsEMSG_INISEARCH         As String = "系统初始化文件不存在"
Public Const gsEMSG_INIDRIVER         As String = "系统初始化文件中数据库驱动不存在"
Public Const gsEMSG_INISERVER         As String = "系统初始化文件中数据库服务器地址不存在"
Public Const gsEMSG_INIINSTANCE       As String = "系统初始化文件中数据实例名不存在"
Public Const gsEMSG_INIDATABASE       As String = "系统初始化文件中数据库名称不存在"
Public Const gsEMSG_INIDNS            As String = "系统初始化文件中数据源名称不存在"
Public Const gsEMSG_INILOGIN          As String = "系统初始化文件中数据用户名称不存在"
Public Const gsEMSG_INIPASSWORD       As String = "系统初始化文件中数据用户口令不存在"
Public Const gsEMSG_INITCOMPORT       As String = "系统初始化文件中COM口不存在"
Public Const gsEMSG_INITUDPPORT       As String = "系统初始化文件中UDP端口不存在"

Public Const gsEMSG_OPENDATABASE      As String = "不能打开数据库连接"

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 = "客户机登录服务器失败"

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