【正文】 張老師淵博的知識(shí)和誨人不倦的教誨使我受益匪淺，嚴(yán)謹(jǐn)?shù)膽B(tài)度及孜孜不倦的研究作風(fēng)是我今后工作和學(xué)習(xí)的楷模。本次設(shè)計(jì)使我對(duì)已學(xué)過(guò)的基礎(chǔ)知識(shí)有了更深入的理解，在設(shè)計(jì)時(shí)也遇到了各種各樣的問(wèn)題，通過(guò)在圖書館查閱書籍資料，上網(wǎng)搜索相關(guān)信息，以及向老師和同學(xué)的請(qǐng)教，我基本解決了這些問(wèn)題。對(duì)于數(shù)據(jù)的一致性的問(wèn)題也通過(guò)程序進(jìn)行了有效的解決。頭命令 ClientData, vbStringtou = Val(Left(ClientData, 2))Select Case touCase 1’代碼省略Case 2’代碼省略……End SelectEnd Sub服務(wù)器和客戶端之間的連接：其中winsock控件需要正確設(shè)置服務(wù)器的IP地址(這里仍假設(shè)為本機(jī)) ,設(shè)置服務(wù)器端口為客戶端中所要求的遠(yuǎn)程端口號(hào) , 這樣才能保證通訊。主Winsock——Winsock(0)發(fā)生消息 I = 1 While I = maxconnext And nowconnext(I) 39。標(biāo)簽欄接收并顯示服務(wù)器發(fā)來(lái)的通告信息。 .txt For Input As 1Do Until EOF(1) Input 1, str t = t amp。 (2).Text amp。 時(shí) amp。 \CopyFile strSource, strDestination, FalseMsgBox 數(shù)據(jù)初始化完畢，請(qǐng)按“確定”返回, vbInformationEnd If界面圖如下： 數(shù)據(jù)備份和還原模塊數(shù)據(jù)需要定期備份，并且具有還原的功能，以保證數(shù)據(jù)的穩(wěn)定性，所以數(shù)據(jù)備份還原的模塊是必須有的。Winsock控件屬性：Protocol∥值為sckTCPProtocol時(shí)使用TCP/ IP協(xié)議,sckUDPProtocol使用UDP協(xié)議RemoteHost ∥準(zhǔn)備連接遠(yuǎn)程機(jī)的 IP地址RemotePort ∥連接遠(yuǎn)程機(jī)的 IP端口號(hào)LocalPort 　∥本地機(jī) IP端口號(hào)Winsock控件方法:Connect 　 ∥申請(qǐng)連接遠(yuǎn)程機(jī)Listen　　 ∥設(shè)置監(jiān)聽(tīng)Accept 　 　∥建立實(shí)際連接Senddata　 ∥發(fā)送數(shù)據(jù)Getdata 　 ∥接收數(shù)據(jù)(用文本框接收時(shí)應(yīng)加上參數(shù)Vbstring)Close 　 　 ∥關(guān)閉連接Winsock控件事件:Connectionrequest ∥一方請(qǐng)求連接時(shí)另一方產(chǎn)生Connect ∥一方接受連接時(shí)另一方產(chǎn)生Close 　　 ∥一方關(guān)閉連接時(shí)另一方產(chǎn)生DataArrival ∥一方發(fā)送數(shù)據(jù)另一方產(chǎn)生Error 　　 ∥請(qǐng)求連接失敗時(shí)產(chǎn)生第6章 詳細(xì)設(shè)計(jì) 數(shù)據(jù)庫(kù)設(shè)計(jì) 本系統(tǒng)采用的Access數(shù)據(jù)庫(kù)是Microsoft公司始于1994年發(fā)表的微機(jī)數(shù)據(jù)庫(kù)管理系統(tǒng)?？蛻舳酥恍枰粋€(gè) Winsock控件，應(yīng)具有隨時(shí)連接、斷開(kāi)服務(wù)器的功能，也應(yīng)具有對(duì)接收到的信息做出正確分析、處理的能力。本即時(shí)通訊軟件采用的是原型法。（7） 用戶上線通知。同樣，由于無(wú)連接客戶程序沒(méi)有和遠(yuǎn)地主機(jī)建立直接連接，所以它也必須對(duì)協(xié)議端口進(jìn)行偵聽(tīng)，以便接收以對(duì)它服務(wù)請(qǐng)求產(chǎn)生的數(shù)據(jù)報(bào)應(yīng)答。服務(wù)程序通常在一個(gè)眾所周知的地址監(jiān)聽(tīng)對(duì)服務(wù)的請(qǐng)求，也就是說(shuō)，服務(wù)進(jìn)程一直處于休眠狀態(tài)，直到一個(gè)客戶程序提出了請(qǐng)求信息。PC機(jī)給它的端口命名和編號(hào)。連接的接收方可以按每次20字節(jié)讀數(shù)據(jù)(要讀5次)。其次，為了確保傳輸?shù)臄?shù)據(jù)有效，可靠協(xié)議在每次傳輸時(shí)，都包含一個(gè)或更多的校驗(yàn)和（CRC）。第3章 網(wǎng)絡(luò)通訊程序的設(shè)計(jì)原理 TCP/IP協(xié)議TCP/IP是國(guó)際互聯(lián)網(wǎng)所采用進(jìn)行網(wǎng)際互連的通信協(xié)議。此外，通過(guò)動(dòng)態(tài)鏈接庫(kù)，還可以調(diào)用Windows應(yīng)用程序接口（API）函數(shù)，實(shí)現(xiàn)SDK所具有的功能[6]。一個(gè)對(duì)象可能會(huì)產(chǎn)生多個(gè)事件，每個(gè)事件都可以通過(guò)一段程序來(lái)響應(yīng)。第2章 開(kāi)發(fā)工具介紹 VB簡(jiǎn)介Visual Basic是一個(gè)功能強(qiáng)大的應(yīng)用程序開(kāi)發(fā)工具，在世界范圍內(nèi)得到了廣泛的應(yīng)用。t meet the need of modern life. Instant messenger software as a convenient contact between the practical tools brought great convenience to our study and work, greatly improving the efficiency of work and study. Because of its friendly outward appearance, the formidable function, the use convenience, the relation prompt and so on the characteristic wins modern people39。過(guò)去的種種陳舊的通訊方式，已經(jīng)不能滿足現(xiàn)代生活的需要。于是，就想到做一個(gè)適用于局域網(wǎng)(校園網(wǎng))的聊天工具，在局域網(wǎng)里，我們可以通過(guò)它實(shí)現(xiàn)局域網(wǎng)內(nèi)方便的聯(lián)絡(luò)、進(jìn)行消息的發(fā)布。Visual Basic提供了可視化設(shè)計(jì)工具，把Windows界面設(shè)計(jì)的復(fù)雜性“封裝”起來(lái)，開(kāi)發(fā)人員不必為界面設(shè)計(jì)而編寫大量程序代碼。同時(shí)，Visual Basic還能直接編輯和訪問(wèn)其他外部數(shù)據(jù)庫(kù)，如DBase，F(xiàn)oxPro，Paradox等，這些數(shù)據(jù)庫(kù)格式都可以用Visual Basic編輯和處理。后來(lái)微軟公司通過(guò)大量地改進(jìn)，將Access的新版本功能變得更加強(qiáng)大。ICMP互連網(wǎng)控制報(bào)文協(xié)議（Internet Control Message Protocol），處理主機(jī)間的差錯(cuò)和傳送控制。協(xié)議試圖傳輸數(shù)據(jù)，但不保證成功。如果接收方應(yīng)用程序要求數(shù)據(jù)順序一致，應(yīng)用程序必須在數(shù)據(jù)到達(dá)后，校對(duì)這些數(shù)據(jù)。多年來(lái)，程序員編寫PC程序時(shí)都假定LPT1表示并行打印端口1。這方面的一個(gè)典型例子就是提供Internet從域名到IP地址映射服務(wù)的DNS服務(wù)器。因此無(wú)連接客戶程序必須在一個(gè)協(xié)議端口，對(duì)應(yīng)答數(shù)據(jù)報(bào)進(jìn)行偵聽(tīng)。生命周期法：把一個(gè)信息系統(tǒng)從其提出、分析、設(shè)計(jì)和使用，直到停止使用的整個(gè)生存期視為一個(gè)生命周期。（3） 對(duì)初始原型進(jìn)行需求迭代，不斷進(jìn)行修正或改進(jìn)，直至得到一個(gè)用戶滿意的原型，從而終止原型迭代過(guò)程。使用TCP協(xié)議來(lái)實(shí)現(xiàn)服務(wù)器 N 客戶模式。在一個(gè)工作組級(jí)別的網(wǎng)絡(luò)環(huán)境中，使用Access開(kāi)發(fā)的多用戶數(shù)據(jù)庫(kù)管理系統(tǒng)具有傳統(tǒng)的XBASE數(shù)據(jù)庫(kù)系統(tǒng)所無(wú)法比擬的客戶服（Client/Server）結(jié)構(gòu)和相應(yīng)的數(shù)據(jù)庫(kù)安全機(jī)制。 \ strDestination = amp。 \ CopyFile strSource, strDestination, False MsgBox 本地?cái)?shù)據(jù)庫(kù)已被成功恢復(fù)！, vbInformation + vbOKOnly, 系統(tǒng)提示 End IfEnd Sub對(duì)話框如圖69和610： 查看服務(wù)器信息作為服務(wù)器需要對(duì)服務(wù)器本身運(yùn)行的信息有準(zhǔn)確的掌握，而且還記錄用戶注冊(cè)和登陸的信息。 vbCrLf 保存記錄以及查看記錄對(duì)于保存的聊天和日志信息，服務(wù)器必須能夠很方便的顯示出任意一天的信息，實(shí)現(xiàn)快速查看。通知的內(nèi)容存放在tongz = GetSetting(即時(shí)通訊軟件服務(wù)器, tongz, tongz)，其中tongz鍵值位置在HKEY_CURRENT_USER\Software\VB and VBA Program Settings\即時(shí)通訊軟件服務(wù)器\server。slIf = True Then = TrueEnd IfEnd SubPrivate Sub sendmsg_click() If sckConnected Then MsgBox 你還沒(méi)登陸!, vbOKOnly + 64, 提示 ein_Click Exit Sub End If If Then 03| amp。Winsock（i）被占用 Else 39。自動(dòng)重連 = 1 39。在調(diào)試程序的時(shí)候,遇到了很多問(wèn)題。（2） 要養(yǎng)成良好的存盤和備份的習(xí)慣。學(xué)生簽名：日 期：37 2009屆本科生畢業(yè)設(shè)計(jì)（論文）資料第二部分 外文資料翻譯Windows Sockets : Write Scalable Winsock Apps Using Completion Ports(excerpts)One of the most mon things a server does is accept connections from clients. The AcceptEx function is the only Winsock API capable of using overlapped I/O to accept connections on a socket. The interesting thing about AcceptEx is that it requires an additional socket as one of the parameters to the API. In a normal, synchronous accept function call, the new socket is the return value from the API. However, since AcceptEx is an overlapped operation, the accepted socket must be created (but not bound or connected) in advance, and passed to the API. A typical psuedocode snippet that uses AcceptEx might look like the following: do { Wait for a previous AcceptEx to plete Create a new socket and associate it with the pletion port Allocate context structure etc. Post an AcceptEx request.}while(TRUE)。參考文獻(xiàn) [1]汪保平. 用VB實(shí)現(xiàn)聊天討論室和點(diǎn)對(duì)點(diǎn)會(huì)話［Ｊ］. 電腦編程技巧與維護(hù), 1999：13.[2] Basic ［Ｍ］.人民郵電出版社 2002：3538，71.[3] Basic 程序設(shè)計(jì)教程［Ｍ］.清華大學(xué)出版社 2000：1921.[4]Jeffrey P. Mc Manu. Visual Basic6數(shù)據(jù)庫(kù)訪問(wèn)技術(shù)［Ｍ］.機(jī)械工業(yè)出版社. 2000：25.[5]郭振波. 深入淺出Visual Basic ［Ｍ］.人民郵電出版社2003：4546.[6] ［Ｍ］.清華大學(xué)出版社2002：6466.[7]鄭小玲. Access2003中文版實(shí)用教程［Ｍ］.清華大學(xué)出版社 2004：5559.[8]查普爾. TCP/IP協(xié)議原理與應(yīng)用［Ｍ］. 清華大學(xué)出版社. 2005：1718.[9]俞承杭. 用VB開(kāi)發(fā)基于Winsock的聊天程序［Ｊ］. 計(jì)算機(jī)時(shí)代. 2000：2.[10] Basic 高級(jí)編程技巧［Ｍ］.電子工業(yè)出版社 1999：41.[11]王留洋. VB中利用Winsock控件實(shí)現(xiàn)局域網(wǎng)通信［Ｊ］.淮陰工學(xué)院學(xué)報(bào),2005：1 .[12] Basic數(shù)據(jù)庫(kù)開(kāi)發(fā)關(guān)鍵技術(shù)［Ｍ］.人民郵電出版社 2004:2930.附 錄 Timer控件的靈活使用:Timer控件可以用作事件的循環(huán)，用以檢查連接狀態(tài)，一旦連接斷開(kāi)，可以自動(dòng)進(jìn)行重連。而且，由于時(shí)間關(guān)系，客戶端的功能還不完全。 | amp。客戶端：發(fā)送連接，是靠服務(wù)器回復(fù)的標(biāo)志變量，來(lái)判別連接狀態(tài)的。 vbCrLfForm_LoadEnd Sub點(diǎn)擊登陸后會(huì)顯示以下登陸窗口，用戶ID六位數(shù)后自動(dòng)轉(zhuǎn)到密碼欄，回車即完成登陸操作。 amp。 .txt For Input As 1Do Until EOF(1) Input 1, str t = t amp。 vbCrLf = (3).Text amp。 Yue amp。登陸界面和登陸流程圖如下： 登陸流程圖 數(shù)據(jù)初始化模塊數(shù)據(jù)庫(kù)需要初始化的功能，實(shí)現(xiàn)清空數(shù)據(jù)庫(kù)的功能，實(shí)現(xiàn)的方法就是用原始的數(shù)據(jù)庫(kù)文件覆蓋替換現(xiàn)有的數(shù)據(jù)庫(kù)文件。當(dāng)客戶機(jī)需要連接時(shí)（connect），就會(huì)發(fā)生 ConnectionRequest 事件。對(duì)應(yīng)于原型的工作模型可以進(jìn)行必要的剪裁和組織，以便更接近目標(biāo)系統(tǒng)。適用于開(kāi)發(fā)需求不夠明確或不斷變化的軟件。（2） 可以同時(shí)發(fā)送同一個(gè)消息給一個(gè)人，通過(guò)輸入對(duì)方信息。當(dāng)服務(wù)器配置socket接口時(shí)，它使用bind()函數(shù)讓Socket執(zhí)行體登記一個(gè)協(xié)議端口。Telnet的通用口分配是端口號(hào)23[8]。在TCP/IP術(shù)語(yǔ)中，端口（Port）類似于IP地址，IP地址與主機(jī)地址是相聯(lián)系的，端口和協(xié)議相聯(lián)系。使用字節(jié)流的協(xié)議將信息看作一串字節(jié)流進(jìn)行傳輸?？煽康膮f(xié)議意味著當(dāng)數(shù)據(jù)通過(guò)協(xié)議傳遞時(shí)，協(xié)議保證數(shù)據(jù)正確傳輸。例如，假設(shè)您的數(shù)據(jù)跨越各種不同的源分布：包括內(nèi)部 SQL server、Excel 電子表格以及諸如 SAP 的其他數(shù)據(jù)提供程序。對(duì)象的鏈接與嵌入（OLE）將每個(gè)應(yīng)用程序都看作是一個(gè)對(duì)象（object