【正文】 似,這里不再贅述. Case Login1: intPos = InStr(1, strCommandContent, :, vbBinaryCompare) strUserID = Left(strCommandContent, intPos 1) strCommandContent = Mid(strCommandContent, intPos + 1) UserID = amp。 Persist Security Info=False。⒏ 系統(tǒng)應(yīng)該有很好的可擴(kuò)展性. 需求分析本系統(tǒng)的開發(fā)宗旨是實(shí)現(xiàn)企業(yè)局域網(wǎng)內(nèi)員工之間方便的信息交流功能,實(shí)現(xiàn)企業(yè)員工之間信息交流更加省時(shí)、方便、充分,可以描述出網(wǎng)上尋呼系統(tǒng)的功能,網(wǎng)上尋呼系統(tǒng)的用例包括：用戶管理、消息發(fā)送、消息接收、聊伴管理.其中,、刪除和黑名單用戶的添加、刪除.系統(tǒng)設(shè)計(jì)根據(jù)需求分析狀況,本系統(tǒng)應(yīng)采用客戶端／,總體構(gòu)架復(fù)雜,／服務(wù)器系統(tǒng)便于系統(tǒng)管理,將一個(gè)應(yīng)用程序分別運(yùn)行在網(wǎng)絡(luò)互聯(lián)的服務(wù)器與客戶機(jī)上,可以充分發(fā)揮客戶機(jī)與服務(wù)器雙方的功能,可以使數(shù)據(jù)具有很好的獨(dú)立性,將數(shù)據(jù)存放在服務(wù)器中,服務(wù)器可以對(duì)數(shù)據(jù)訪問實(shí)現(xiàn)有效地管理與控制,未授權(quán)用戶無法對(duì)數(shù)據(jù)進(jìn)行非法訪問,系統(tǒng)數(shù)據(jù)的完整性得到了很好的保護(hù).　　本系統(tǒng)開發(fā)環(huán)境選擇Visual Basic開發(fā)平臺(tái),并通過ADO技術(shù)[3],應(yīng)該把主要精力放在系統(tǒng)的實(shí)現(xiàn)上,而不是平臺(tái)的挑選上,系統(tǒng)沒有較為復(fù)雜的算法和耗時(shí)的操作,所以選用Visual ,對(duì)于一般企業(yè)來說,用Access數(shù)據(jù)庫已經(jīng)足夠,不必使用高成本的SQL Server等大中型數(shù)據(jù)庫. 功能分析 客戶端功能⒈ 在主界面中通過菜單調(diào)用新消息處理界面.⒉ 在主界面中通過菜單調(diào)用歷史消息處理界面.⒊ 消息中可以包含圖標(biāo)和文本.⒋ 給在線用戶發(fā)送即時(shí)消息.⒌ 給不在線用戶發(fā)送暫存消息.⒍ 用ADO控件讀寫包含rtf文檔的數(shù)據(jù)庫.⒎ 在狀態(tài)欄中顯示圖標(biāo).⒏ 通過狀態(tài)欄圖標(biāo)可以調(diào)用菜單,并且以動(dòng)畫形式醒目地提示用戶收到新消息.⒐ 可以設(shè)置消息文本的顏色和字體.⒑ 屏蔽黑名單的消息. 服務(wù)器端功能⒈ 主界面中顯示所有用戶的注冊(cè)消息.⒉ 主界面中顯示所有用戶的在線狀態(tài).⒊ 顯示不在線用戶留言消息.⒋ 可以修改用戶的注冊(cè)信息.⒌ 可以修改用戶的留言信息. 模塊設(shè)計(jì)整個(gè)項(xiàng)目分成兩部分：,　.服務(wù)器只有一個(gè)窗體,完成服務(wù)器的通信機(jī)制,顯示服務(wù)器的主界面.客戶端可分為４個(gè)Module模塊和５個(gè)Form窗體.⒈ 主模塊：定義公用參數(shù),啟動(dòng)窗體.⒉ 文件讀取模塊：從配置文件中讀取消息到內(nèi)存,把內(nèi)存存儲(chǔ)到配置文件中.⒊ 狀態(tài)欄操作模塊：狀態(tài)欄添加、刪除、改變圖標(biāo)等.⒋ 服務(wù)器查找模塊：得到服務(wù)器地址.⒌ 主窗體：完成通信機(jī)制,顯示主界面.⒍ 登錄注冊(cè)窗體：完成用戶登錄,沒有注冊(cè)的用戶完成注冊(cè).⒎ 消息發(fā)送窗體：完成消息的編輯與發(fā)送.⒏ 最新消息窗體：接收顯示最新消息.⒐ 歷史消息窗體：查詢歷史消息.數(shù)據(jù)庫設(shè)計(jì)　　企業(yè)網(wǎng)上尋呼系統(tǒng)需要數(shù)據(jù)庫的支持,在服務(wù)器端要存儲(chǔ)用戶的注冊(cè)信息,以及暫存給不在線用戶的留言,系統(tǒng)需要設(shè)計(jì)兩個(gè)Access數(shù)據(jù)庫,[2],文件保存在客戶端應(yīng)用程序路徑下面,用來記錄好友名單和黑名單. 服務(wù)器數(shù)據(jù)庫服務(wù)器數(shù)據(jù)庫分為兩個(gè)實(shí)體,一個(gè)數(shù)據(jù)庫記錄用戶的注冊(cè)信息,、昵稱、密碼、電子郵件等,不在線用戶的留言包括發(fā)消息用戶號(hào)碼、接收消息用戶號(hào)碼、,首先在Access中創(chuàng)建數(shù)據(jù)庫[11] ,接著建立UserInfo表來記錄用戶信息,Messages來記錄留言消息,具體如下面表51和表52所示: 客戶端數(shù)據(jù)庫 客戶端數(shù)據(jù)庫也有兩個(gè)實(shí)體,兩個(gè)實(shí)體分別存放在兩個(gè)表里面,記錄接收消息用戶號(hào)碼、發(fā)送消息用戶號(hào)碼、消息內(nèi)容、,接著建立表NewMsg和OldMsg,兩表都是存儲(chǔ)消息,所以表的結(jié)構(gòu)和服務(wù)器消息Messages消息表相同,這里不再贅述.表51 UserInfo用戶信息表　列名　數(shù)據(jù)類型　可否為空　　說明UserID　　數(shù)字　　否　用戶號(hào)碼Password　　文本　　可　用戶密碼NickName　　文本　　可　用戶昵稱Mail　　文本　　可　電子郵件Status　　數(shù)字　　可　是否在線UserFace　　數(shù)字　　可　用戶頭像表52 Messages消息表　列名　數(shù)據(jù)類型　可否為空　　說明ReceivedID　　數(shù)字　　否接收消息用戶號(hào)碼SentID　　數(shù)字　　否發(fā)送消息用戶號(hào)碼 Content　　備注　　可　消息內(nèi)容 Time　　時(shí)間　　否　發(fā)送時(shí)間 ,該文本文件的格式如下.[1001_Friends]Count=3[1001_Friends_Item0]UserID=1003UserFace=2UserNickName=44UserMail=無[1001_Friends_Item1]UserID=1002UserFace=5UserNickName=33UserMail=無[1002_Badboys]Count=1[1002_Badboys_Item0]UserID=1000UserFace=1UserNickName=11UserMail=無該文件中存儲(chǔ)了用戶的好友和黑名單,當(dāng)客戶端運(yùn)行時(shí),系統(tǒng)將從該文件中讀取數(shù)據(jù),加載到程序中,用戶添加或刪除好友及黑名單中的聯(lián)系人時(shí),系統(tǒng)就在該文件中添加或刪除信息.通信模塊設(shè)計(jì) 本系統(tǒng)為客戶機(jī)/服務(wù)器系統(tǒng),客戶機(jī)與服務(wù)器的通信Visual Basic 提供了WinSock控件,利用WinSock控件,可以方便地實(shí)現(xiàn)系統(tǒng)通信. 通信格式 由于客戶機(jī)/服務(wù)器系統(tǒng)通信內(nèi)容很多,包括用戶注冊(cè)、用戶登錄、用戶查詢留言、用戶發(fā)送消息、用戶接收消息,這些內(nèi)容的性質(zhì)不同,性質(zhì)不同的消息要進(jìn)行不同的處理,為了區(qū)分這些不同的消息,較好地完成通信功能,需要對(duì)程序通信信息加上識(shí)別碼,都可以通過識(shí)別碼進(jìn)行通信,發(fā)送端在發(fā)送信息的前面加上識(shí)別碼,接受端收到信息后,首先得到識(shí)別碼,然后在依照識(shí)別碼對(duì)其進(jìn)行相應(yīng)處理. 每幀信息的總體格式[9]如下所示.識(shí)別碼：內(nèi)容1 內(nèi)容2 內(nèi)容3 通信過程 ,服務(wù)器的WinSock控件就形成了DataArrival事件,在該事件中,調(diào)用WinSock控件的GetData方法就能夠得到客戶端發(fā)送的消息,程序通過Select Case 語句完成識(shí)別碼的查詢,從而區(qū)別不同的消息,.代碼形式如下.Private Sub wskServer_DataArrival(ByVal bytesTotal As Long) wskServer(Index).GetData strReceivedSelect Case intCommandID‘申請(qǐng)一個(gè)新用戶‘命令號(hào)：AddNewUser1‘內(nèi)容：“用戶昵稱；用戶密碼；用戶電子郵箱地址”Case AddNewUser1:‘取指定用戶的信息‘命令號(hào)：UserInfo1‘內(nèi)容：“用戶ID”Case UserInfo1:‘申請(qǐng)?zhí)砑右幻糜选钐?hào)：“AddNewFriend1”‘內(nèi)容：“客戶ID；好友ID”Case AddNewFriend1:‘登錄服務(wù)器‘命令號(hào)：Login1‘內(nèi)容：用戶ID；用戶密碼Case Login1:‘申請(qǐng)?zhí)砑右幻诿麊巍钐?hào)：“Addbadboy1‘內(nèi)容：客戶ID；黑名單ID；Case AddBadboy1:‘從服務(wù)器獲得留言‘命令號(hào)：GetMsg1‘內(nèi)容：““Case GetMsg1:‘發(fā)送消息給指定用戶的申請(qǐng)‘命令號(hào)：ToServer1‘內(nèi)容：用戶ID=消息內(nèi)容Case ToServer1:End select End sub服務(wù)器端設(shè)計(jì) 根據(jù)系統(tǒng)模塊設(shè)計(jì),服務(wù)器端主要的任務(wù)是用戶信息、留言信息的顯示,以及對(duì)客戶端發(fā)送的不同消息進(jìn)行處理,如客戶端用戶登錄、注冊(cè)、發(fā)送消息、接收消息、添加好友、添加黑名單等,對(duì)這些不同的消息,服務(wù)器應(yīng)進(jìn)行不同的處理. 界面設(shè)計(jì)服務(wù)器主界面有兩個(gè)Frame控件、兩個(gè)DataGrid控件、兩個(gè)Adodc控件、一個(gè)RichTextBox控件、一個(gè)WinSock控件、一個(gè)Timer控件組成,如圖71所示,這些控件屬性如表71所示: 部分代碼實(shí)現(xiàn)1. 首先進(jìn)行服務(wù)器的初始化,首先得到程序當(dāng)前地址,接著進(jìn)行數(shù)據(jù)庫連接,初始化adoMsg控件使其指向數(shù)據(jù)庫Users的表Messages,初始化圖71 服務(wù)器程序主界面.Private Sub Form_Load()/使adoMsg指向Messages表 = Provider=。隨著網(wǎng)絡(luò)技術(shù)的不斷進(jìn)步和網(wǎng)絡(luò)成本的不斷降低,大多數(shù)企業(yè)都在鋪設(shè)網(wǎng)絡(luò),購置終端和服務(wù)器,發(fā)揮網(wǎng)絡(luò)優(yōu)勢(shì),促進(jìn)信息交流,、方便、充分、,在客戶機(jī)端程序完成用戶的注冊(cè) 登錄隨著網(wǎng)絡(luò)技術(shù)的不斷進(jìn)步和網(wǎng)絡(luò)成本的不斷降低,大多數(shù)企業(yè)都在鋪設(shè)網(wǎng)絡(luò),購置終端和服務(wù)器,發(fā)揮網(wǎng)絡(luò)優(yōu)勢(shì),促進(jìn)信息交流,、方便、充分、,在客戶機(jī)端程序完成用戶的注冊(cè)、登錄、發(fā)送消息、接受消息等。 amp。 strPath amp。 strUserID amp。 (SentID).Value amp。 strUserID Do While Not ReceivedID= amp。 wskServer(Index).Tag amp。 。 _Friends, Count, 0, fileName) For i = 0 To UBound(Friends)=GetPrivateProfileInt(CStr()amp。