moddefine.bas

计算机网络与通信的知识

Attribute VB_Name = "modDefine"
Option Explicit
'======================================
'数据库记录集字符串中的分隔符
'======================================
Public Const strFdRd = "#"    '字符串中字段名称之间、记录内容各字段之间的分隔符
Public Const strFdDivRst = "`" '字符串中字段名称和记录内容的分隔符

'======================================
' 客户端送来的命令字符串中的各项分隔符
'======================================
Public Const strCommandDiv = "%"

'=======================================
'      客户端送来命令操作码
'
' *注意：客户端送来命令格式
'   [待操作的数据库标号] [命令分隔符] [命令操作码] [命令分隔符] [命令操作数][命令分隔符][命令结果要送给的用户号]
'=======================================
Public Const ClientLogin = "LOGIN"        '用户登录
Public Const ClientRegister = "REGISTER"  '用户注册
Public Const ClientExit = "EXIT"          '用户退出
Public Const ClientSend = "SEND"          '发送字符串
Public Const ClientOnlineUser = "ONLINE"  '在线用户查询
Public Const ClientUpdatePwd = "UPDATE"   '用户更改密码


'=====================================
' 服务器返回的命令执行结果标志位数
Public Const CmdResultFlagNum = 1
' 服务器返回的命令执行结果各项分隔符
Public Const CmdResultDiv = "~"
'=====================================
'       服务器返回的命令执行结果标志
'
'  *注意：服务器返回的命令执行结果格式
'         [命令执行结果标志][命令执行结果]
'
'=====================================
   '用户登录服务器，返回执行结果标志
Public Const UserOnline = "A"      '用户已经登录
Public Const UserNoExist = "B"     '用户不存在
Public Const UserLogin = "C"       '用户成功登录
Public Const UserPwdErr = "D"      '密码不符

Public Const UserRegister = "E"         '用户注册成功
Public Const UserNoRegister = "F"       '用户注册失败
Public Const UserRegisterAccount = "G"  '用户注册帐号

Public Const UserSendString = "H" '用户转发字符串
Public Const UserNotOnline = "I"   '转发字符串时，对方用户不在线

Public Const UserAccessDB = "J" '用户操作数据库

Public Const UserOnlineRst = "K"   '在线用户查看用户

Public Const UserUpdatePwd = "L"     '用户更改密码成功
Public Const UserNoUpdatePwd = "M"   '用户更改密码失败

Public Const UserExit = "N"   '在线用户退出