mdlvar.bas

This article introduces how to construct a Hospital Ward Information System with three-tiered techno

Attribute VB_Name = "mdlVar"
Option Explicit
'远程主机名和端口号
Public g_strRemoteHost As String
Public g_intPort As Long
'用户注册详细信息
Public g_selfName As String
Public g_selfPwd As String
Public g_strName As String
Public g_strPwd As String
Public g_intImg As Integer
Public g_intAge As Integer
Public g_intSex As Integer
Public g_strEmail As String
Public g_strAddress As String
Public g_strIntroduce As String
Public g_strNickName As String
Public g_intState As Integer
'连接状态
Public g_ConnectState As String
Public g_Control As Integer

Public Const LOGINSERVER = 0
Public Const REGCONTROL = 1
'好友信息
Public Type FriendInfo
    username As String
    nickname As String
    img As Integer
    state As Integer
    ip As String
End Type
'好友数组
Public arrFriends() As FriendInfo
Public FriendCount As Integer
'聊天的信息
Public Type ConInfo
    username As String
    ip As String
    port As Long
End Type
'连接数组
Public arrCon() As ConInfo
Public ConCount As Integer
'二人世界窗口数组
Public frmNewTwo() As frmTwo
Public TwoCount As Integer

'图像选择
Public selectIndex As Integer


Public Sub ConnectRemoteHost(HostName As String, port As Long)
    On Error GoTo errhandle1
    If frmClient.wskClient.state <> sckClosed Then frmClient.wskClient.Close
    frmClient.wskClient.Connect HostName, port
    Exit Sub
errhandle1:
    frmClient.wskClient.Close
End Sub

Public Sub ShowError()
    
End Sub

Public Sub AddFrd(strName As String)
    '增加好友
    frmClient.wskClient.SendData "QICQFAD" + strName
End Sub
Public Sub AddHate(strName As String)
    '增加坏人
    frmClient.wskClient.SendData "QICQHAD" + strName
    MsgBox "此功能和“增加好友”的功能一样！"
End Sub