【正文】 性設(shè)置為,右擊該控件,彈出如圖84所示窗口ProPerty Pages,選擇Image Lists頁,在 Normal和 Small中都選定ilsIcons,這里就不再贅述了.圖84 lvwUsers控件屬性窗口表82 客戶端主窗體控件屬性控件屬性屬性取值frmClient(Form)NamefrmClientCaption聊天程序ilsIconsNameilsIconsadoMessagesNameadoMessagesCaption新消息tmrMessagesNametmrMessagesInterval300cmdMenuNamecmdMenuCaption菜單cmdStatusNamecmdStatusCaption離線cmdBadboysNamecmdBadboysCaption黑名單cmdFriendsNamecmdFriendsCaption我的好友wskClientNamewskClientlvwUsersNamelvwUsers除了這些控件外,打開菜單設(shè)計器,設(shè)計菜單如圖85所示. 好友 黑名單 任務(wù)欄菜單 …添加好友 …添加黑名單 …顯示新消息 …刪除好友 …刪除黑名單 …顯示歷史消息 …發(fā)送消息 …退出圖85 客戶端主窗體菜單,新用戶的注冊,已有用戶的檢測是否上線,好友列表和黑名單列表在lvwUsers控件中的顯示,好友和黑名單的添加與刪除,發(fā)送信息,顯示新消息和歷史消息,響應(yīng)服務(wù)器發(fā)送過來的消息.Private Sub Form_Load() = ServerIP = 50400 = Provider=。 vbNullChar .uFlags = NIF_TIP End With Shell_NotifyIcon NIM_MODIFY, IconDataEnd Sub Ini 文件存取模塊,:Public Sub ReadFriendsFromFile() intFriend = GetPrivateProfileInt(CStr() amp。 strUserID amp。 amp。 strCommandContent ReceivedID= amp。 strUserID strCommandContent = Do While Not strCommandContent = strCommandContent amp。 amp。 Data Source= amp。 Persist Security Info=False。摘 要隨著網(wǎng)絡(luò)技術(shù)的不斷進(jìn)步和網(wǎng)絡(luò)成本的不斷降低,大多數(shù)企業(yè)都在鋪設(shè)網(wǎng)絡(luò),購置終端和服務(wù)器,發(fā)揮網(wǎng)絡(luò)優(yōu)勢,促進(jìn)信息交流,、方便、充分、,在客戶機(jī)端程序完成用戶的注冊、登錄、發(fā)送消息、接受消息等；在服務(wù)器端程序完成客戶端信息的處理,包括注冊、登錄、,用Visual Basic[1]創(chuàng)建了系統(tǒng)所需的各模塊.關(guān)鍵詞：中間件 客戶機(jī)/服務(wù)器 尋呼 The Design and Implementation of Seekcalling System on the Enterprise NetAbstract:With the improvement of the network technique and the reducement of network cost continuously,majority business enterprises are all building the network,purchasing the terminal and the server in order to realize net conjunction with each the enterprise seekcalling system on the net,developping the network advantage,promoting the information exchanges,making the information of the business enterprise are very important parts in the course of the information construction. Seekcalling system on the net is based on the foundation of enterprise network system and the maturity of the network technique which is favor to the munication between the purpose of the implementation of the seekcalling system on the net is to save the time on information exchanges,convenience,well,so that it can increase the business enterprise efficiency of transacts .The system is a typical client/server system. At the user side,the system plete the user’s registration,login,send out the information and accept information the server side,the system plete the management of the user’s information which includes the registration,login,send the information from different person system establishes the database for needing with the Access and take the Visual Basic puter languages development tool. KeyWords:MiddleWare a client/server machine seekcalling目 錄中文摘要、關(guān)鍵詞…………………………………………（1）引言 ……………………………………………………（2）系統(tǒng)介紹 ………………………………………………（2） 客戶機(jī)服務(wù)器模型介紹………………………………（2） Winsock編程原理……………………………………（5）需求分析………………………………………………（9）系統(tǒng)設(shè)計………………………………………………（10） 功能分析 ……………………………………………（10） 模塊設(shè)計 ……………………………………………（11）數(shù)據(jù)庫設(shè)計……………………………………………（12） 服務(wù)器數(shù)據(jù)庫 ………………………………………（12） 客戶端數(shù)據(jù)庫 ………………………………………（14）通信模塊設(shè)計…………………………………………（14）服務(wù)器端設(shè)計…………………………………………（16）客戶端設(shè)計……………………………………………（23）系統(tǒng)運(yùn)行………………………………………………（36）總結(jié)致謝 …………………………………………………（38）參考文獻(xiàn) …………………………………………………（40）英文摘要、關(guān)鍵詞 ………………………………………（42）1 序言20世紀(jì)70年代至80年代,計算機(jī)網(wǎng)絡(luò)的應(yīng)用只局限于一些大型企業(yè)、公司、,人們才看到微型計算機(jī)聯(lián)網(wǎng)后所產(chǎn)生的重大影響,以Internet為代表的信息技術(shù)革命深刻地改變了人們傳統(tǒng)的生活方式,采用電路交換技術(shù)的數(shù)據(jù)通信模式已不能很好地滿足信息時代的需求,而新一代的可持續(xù)發(fā)展的網(wǎng)絡(luò)數(shù)據(jù)通信系統(tǒng)才是人們的首選,通過網(wǎng)絡(luò)互連實現(xiàn)的數(shù)據(jù)通信模式已成為當(dāng)代信息傳遞的主流.隨著計算機(jī)網(wǎng)絡(luò)和數(shù)據(jù)庫技術(shù)的高速發(fā)展,特別是客戶端服務(wù)器體系結(jié)構(gòu)的逐步成熟,進(jìn)行全面的統(tǒng)一的總體規(guī)劃,構(gòu)筑實用可靠的計算機(jī)網(wǎng)絡(luò)數(shù)據(jù)通信系統(tǒng),已經(jīng)成為每個大型企業(yè)、機(jī)關(guān)、院校必不可少的重要組成部分。 amp。 amp。 strUserID If Then wskServer(Index).SendData Login3:該用戶不存在! Else If (Password).Value = strCommandContent If (Status).Value = 0 Then wskServer(Index).SendData Login2。 CStr((UserFace).Value) (Status).Value = 1 wskServer(Index).Tag = strUserID Else wskServer(Index).SendData Login3: 該用戶已經(jīng)登錄! End If Else wskServer(Inde