【正文】 高成本的SQL Server等大中型數(shù)據(jù)庫. 功能分析 客戶端功能⒈ 在主界面中通過菜單調(diào)用新消息處理界面.⒉ 在主界面中通過菜單調(diào)用歷史消息處理界面.⒊ 消息中可以包含圖標(biāo)和文本.⒋ 給在線用戶發(fā)送即時消息.⒌ 給不在線用戶發(fā)送暫存消息.⒍ 用ADO控件讀寫包含rtf文檔的數(shù)據(jù)庫.⒎ 在狀態(tài)欄中顯示圖標(biāo).⒏ 通過狀態(tài)欄圖標(biāo)可以調(diào)用菜單,并且以動畫形式醒目地提示用戶收到新消息.⒐ 可以設(shè)置消息文本的顏色和字體.⒑ 屏蔽黑名單的消息. 服務(wù)器端功能⒈ 主界面中顯示所有用戶的注冊消息.⒉ 主界面中顯示所有用戶的在線狀態(tài).⒊ 顯示不在線用戶留言消息.⒋ 可以修改用戶的注冊信息.⒌ 可以修改用戶的留言信息. 模塊設(shè)計整個項目分成兩部分：,　.服務(wù)器只有一個窗體,完成服務(wù)器的通信機制,顯示服務(wù)器的主界面.客戶端可分為４個Module模塊和５個Form窗體.⒈ 主模塊：定義公用參數(shù),啟動窗體.⒉ 文件讀取模塊：從配置文件中讀取消息到內(nèi)存,把內(nèi)存存儲到配置文件中.⒊ 狀態(tài)欄操作模塊：狀態(tài)欄添加、刪除、改變圖標(biāo)等.⒋ 服務(wù)器查找模塊：得到服務(wù)器地址.⒌ 主窗體：完成通信機制,顯示主界面.⒍ 登錄注冊窗體：完成用戶登錄,沒有注冊的用戶完成注冊.⒎ 消息發(fā)送窗體：完成消息的編輯與發(fā)送.⒏ 最新消息窗體：接收顯示最新消息.⒐ 歷史消息窗體：查詢歷史消息.數(shù)據(jù)庫設(shè)計　　企業(yè)網(wǎng)上尋呼系統(tǒng)需要數(shù)據(jù)庫的支持,在服務(wù)器端要存儲用戶的注冊信息,以及暫存給不在線用戶的留言,系統(tǒng)需要設(shè)計兩個Access數(shù)據(jù)庫,[2],文件保存在客戶端應(yīng)用程序路徑下面,用來記錄好友名單和黑名單. 服務(wù)器數(shù)據(jù)庫服務(wù)器數(shù)據(jù)庫分為兩個實體,一個數(shù)據(jù)庫記錄用戶的注冊信息,、昵稱、密碼、電子郵件等,不在線用戶的留言包括發(fā)消息用戶號碼、接收消息用戶號碼、,首先在Access中創(chuàng)建數(shù)據(jù)庫[11] ,接著建立UserInfo表來記錄用戶信息,Messages來記錄留言消息,具體如下面表51和表52所示: 客戶端數(shù)據(jù)庫 客戶端數(shù)據(jù)庫也有兩個實體,兩個實體分別存放在兩個表里面,記錄接收消息用戶號碼、發(fā)送消息用戶號碼、消息內(nèi)容、,接著建立表NewMsg和OldMsg,兩表都是存儲消息,所以表的結(jié)構(gòu)和服務(wù)器消息Messages消息表相同,這里不再贅述.表51 UserInfo用戶信息表　列名　數(shù)據(jù)類型　可否為空　　說明UserID　　數(shù)字　　否　用戶號碼Password　　文本　　可　用戶密碼NickName　　文本　　可　用戶昵稱Mail　　文本　　可　電子郵件Status　　數(shù)字　　可　是否在線UserFace　　數(shù)字　　可　用戶頭像表52 Messages消息表　列名　數(shù)據(jù)類型　可否為空　　說明ReceivedID　　數(shù)字　　否接收消息用戶號碼SentID　　數(shù)字　　否發(fā)送消息用戶號碼 Content　　備注　　可　消息內(nèi)容 Time　　時間　　否　發(fā)送時間 ,該文本文件的格式如下.[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=無該文件中存儲了用戶的好友和黑名單,當(dāng)客戶端運行時,系統(tǒng)將從該文件中讀取數(shù)據(jù),加載到程序中,用戶添加或刪除好友及黑名單中的聯(lián)系人時,系統(tǒng)就在該文件中添加或刪除信息.通信模塊設(shè)計 本系統(tǒng)為客戶機/服務(wù)器系統(tǒng),客戶機與服務(wù)器的通信Visual Basic 提供了WinSock控件,利用WinSock控件,可以方便地實現(xiàn)系統(tǒng)通信. 通信格式 由于客戶機/服務(wù)器系統(tǒng)通信內(nèi)容很多,包括用戶注冊、用戶登錄、用戶查詢留言、用戶發(fā)送消息、用戶接收消息,這些內(nèi)容的性質(zhì)不同,性質(zhì)不同的消息要進行不同的處理,為了區(qū)分這些不同的消息,較好地完成通信功能,需要對程序通信信息加上識別碼,都可以通過識別碼進行通信,發(fā)送端在發(fā)送信息的前面加上識別碼,接受端收到信息后,首先得到識別碼,然后在依照識別碼對其進行相應(yīng)處理. 每幀信息的總體格式[9]如下所示.識別碼：內(nèi)容1 內(nèi)容2 內(nèi)容3 通信過程 ,服務(wù)器的WinSock控件就形成了DataArrival事件,在該事件中,調(diào)用WinSock控件的GetData方法就能夠得到客戶端發(fā)送的消息,程序通過Select Case 語句完成識別碼的查詢,從而區(qū)別不同的消息,.代碼形式如下.Private Sub wskServer_DataArrival(ByVal bytesTotal As Long) wskServer(Index).GetData strReceivedSelect Case intCommandID‘申請一個新用戶‘命令號：AddNewUser1‘內(nèi)容：“用戶昵稱；用戶密碼；用戶電子郵箱地址”Case AddNewUser1:‘取指定用戶的信息‘命令號：UserInfo1‘內(nèi)容：“用戶ID”Case UserInfo1:‘申請?zhí)砑右幻糜选钐枺骸癆ddNewFriend1”‘內(nèi)容：“客戶ID；好友ID”Case AddNewFriend1:‘登錄服務(wù)器‘命令號：Login1‘內(nèi)容：用戶ID；用戶密碼Case Login1:‘申請?zhí)砑右幻诿麊巍钐枺骸癆ddbadboy1‘內(nèi)容：客戶ID；黑名單ID；Case AddBadboy1:‘從服務(wù)器獲得留言‘命令號：GetMsg1‘內(nèi)容：““Case GetMsg1:‘發(fā)送消息給指定用戶的申請‘命令號：ToServer1‘內(nèi)容：用戶ID=消息內(nèi)容Case ToServer1:End select End sub服務(wù)器端設(shè)計 根據(jù)系統(tǒng)模塊設(shè)計,服務(wù)器端主要的任務(wù)是用戶信息、留言信息的顯示,以及對客戶端發(fā)送的不同消息進行處理,如客戶端用戶登錄、注冊、發(fā)送消息、接收消息、添加好友、添加黑名單等,對這些不同的消息,服務(wù)器應(yīng)進行不同的處理. 界面設(shè)計服務(wù)器主界面有兩個Frame控件、兩個DataGrid控件、兩個Adodc控件、一個RichTextBox控件、一個WinSock控件、一個Timer控件組成,如圖71所示,這些控件屬性如表71所示: 部分代碼實現(xiàn)1. 首先進行服務(wù)器的初始化,首先得到程序當(dāng)前地址,接著進行數(shù)據(jù)庫連接,初始化adoMsg控件使其指向數(shù)據(jù)庫Users的表Messages,初始化圖71 服務(wù)器程序主界面.Private Sub Form_Load()/使adoMsg指向Messages表 = Provider=。 。隨著網(wǎng)絡(luò)技術(shù)的不斷進步和網(wǎng)絡(luò)成本的不斷降低,大多數(shù)企業(yè)都在鋪設(shè)網(wǎng)絡(luò),購置終端和服務(wù)器,發(fā)揮網(wǎng)絡(luò)優(yōu)勢,促進信息交流,、方便、充分、,在客戶機端程序完成用戶的注冊 登錄隨著網(wǎng)絡(luò)技術(shù)的不斷進步和網(wǎng)絡(luò)成本的不斷降低,大多數(shù)企業(yè)都在鋪設(shè)網(wǎng)絡(luò),購置終端和服務(wù)器,發(fā)揮網(wǎng)絡(luò)優(yōu)勢,促進信息交流,、方便、充分、,在客戶機端程序完成用戶的注冊、登錄、發(fā)送消息、接受消息等。機械自動化在改善勞動環(huán)境、促進產(chǎn)品的更新進度、帶動產(chǎn)品相關(guān)技術(shù)的發(fā)展也有一定效果。 amp。 amp。 strPath amp。 amp。 strUserID amp。 (Mail).Value amp。 (SentID).Value amp。 (Content).Value amp。 strUserID Do While Not ReceivedID= amp。 strUserID amp。 wskServer(Index).Tag amp。 strCommandContent amp。 。 Unable to successfully get Host Name. SocketsCleanup Exit Function End If CopyMemory HOST, lpHost, Len(HOST) CopyMemoty dwIPAddr, , 4 ReDim tmpIPAddr(1 To ) CopyMemory tmpIPAddr(1), dwIPAddr, For i = 1 To sIPAddr = sIPAddr amp。 _Friends, Count, 0, fileName) For i = 0 To UBound(Friends)=GetPrivateProfileInt(CStr()amp。 LTrim(Str(i)), UserNickName, , strTempValue, 256, fileName) Friends(i) = tmpItem NextEnd SubPublic Sub WriteFriendsToFile() Call WritePrivateProfileString(CStr()amp。 amp。Persist Security Info=False = adCmdText = Select *from NewMsg Where ReceivedID=