【正文】 為了能正確接收并區(qū)分這些信息 ,系統(tǒng)采用了信息前加不同的首字符的方法 ，也就是前文所說的頭命令， 從而有效地解決了客戶端的接收問題。在當前裝載的 Socket 中沒發(fā)現(xiàn)有用戶離開 maxconnext = maxconnext + 1 39。發(fā)送數(shù)據(jù)使用的是多個端口，設置數(shù)組控件會使程序具有很大的靈活性，發(fā)送端口會自動定義，而且不重復使用同一端口，所以端口是多少都無所謂，這不是我們需要關(guān)心的，在某用戶斷開連接時候，空閑的 winsock 還可以接收新的用戶。 Text2 Text2 = Else If = 無 Or Left(Right(, 7), 6) = id Or = Then = 0: MsgBox 私聊對象錯誤 , vbOKOnly + 64, 提示 : Exit Sub 07| amp。 tongz amp。 關(guān)鍵核心代碼介紹： Dim I As Integer tongz = InputBox(vbCrLf amp。 amp。 其中“選擇日期”是 mand1，“日志信息”是 mand2，“聊天信息”是 mand3。 人 amp。點擊文件菜單的查看服務器信息按鈕就可以顯示以下的窗口，如圖 ： 圖 服務器信息界面圖 關(guān)鍵代碼如下： = 本機 IP 地址是 : amp。 日 amp。 \bat\ CopyFile strSource, strDestination, False MsgBox 本地數(shù)據(jù)庫已被成功備份到當前程序所在文件夾的 bat 子文件夾中??！ , vbInformation + vbOKOnly, 系統(tǒng)提示 End If Exit Sub 長沙學院 畢業(yè)設計 (論文 ) 18 finish: MsgBox 本地數(shù)據(jù)庫備份失??！ , vbOKOnly + vbInformation, 提示 圖 數(shù)據(jù)庫備份后被保存到程序鎖在文件夾的 BAT 子文件夾中，如圖所示： 圖 數(shù)據(jù)還原關(guān)鍵程序代碼： Dim strSource, strDestination As String Dim I As Integer Dim FileNames As String Dim ServerName As String Dim Nian As String Dim Yue As String Dim Ri As String Dim Shi As String Dim Fen As String FileNames = Dir( amp。 If FileNames = Then MsgBox 數(shù)據(jù)初始化失敗 , vbInformation Exit Sub End If Dim a As Long 長沙學院 畢業(yè)設計 (論文 ) 16 Dim str_tem As String Dim str As String Dim rs As Dim intAnswer As Integer intAnswer = MsgBox(真的要初始化數(shù)據(jù)嗎？請確認！ , vbOKCancel + vbQuestion, 確認框 ) If intAnswer = vbOK Then strSource = amp。 系統(tǒng)數(shù)據(jù)流程圖 數(shù)據(jù)流圖 (Data Flow Diagram,簡稱 DFD)是新系統(tǒng)邏輯模型的主要組成部分，它可以反映出系統(tǒng)的主要功能、系統(tǒng)與外部環(huán)境見的輸入輸出、系統(tǒng)內(nèi)部的處理、數(shù)據(jù)傳送、數(shù)據(jù)存儲等的情況。如果要發(fā)送數(shù)據(jù)，需調(diào)用 SendData 方法。 UDP 可以實現(xiàn)點對點無服務器通訊。作為即時通訊軟件系統(tǒng)，客戶端信息全部來 自于服務器，服務器端能實時掌握所有客戶登錄、退出、對話情況，并能實時轉(zhuǎn)發(fā)、廣播給相應客戶。 （ 4） 如果需要，可寫出系統(tǒng)必要成分的嚴格、詳細的說明。其特征主要有模塊性，繼承性和類比性，動態(tài)連接性。整個生命周期劃分為五個主要工作階段：可行性分析階段、系統(tǒng)分析階段、系統(tǒng)設計階段、系統(tǒng)實施階段和系統(tǒng)運行、維護與評價階段。 （ 5） 提供消息、聊天的歷史記錄，方便對信息的查看和管理。與服務器程序一樣，無連接客戶程序也使用 bind()函數(shù)讓 Socket 執(zhí)行體登記協(xié)議端口。 使用無連接協(xié)議的程序和使用面向連接協(xié)議的服務器程序之間的主要相似之處是它們都必須對一個協(xié)議端口進行偵聽。 為了充分理解 TCP/IP 協(xié)議族，必須理解幾個重要術(shù)語?？蛻舴綄Ψ掌鞣桨l(fā)送信息請求，服務器方對其做出相應回答，提供服務。同樣，程序員將每個 Inter 協(xié)議端口與一個特定的應用程序和功能聯(lián)系在一起。你可能編寫過往硬件端口送數(shù)據(jù)的程序。用戶數(shù)據(jù)報協(xié)議和互連網(wǎng)協(xié)議使用數(shù)據(jù)報傳輸數(shù)據(jù)。協(xié)議單獨發(fā)送每個數(shù)據(jù)報 ——數(shù)據(jù)報之間不相互依賴。而且，不可靠協(xié)議在傳輸失敗后，并不通知發(fā)送方應用程序 。也就是說，程序每次發(fā)送一個報文時，都期望對方發(fā)送一個相 當于說： “我得到這個報文 ”的確認信息。ARP 地址解析協(xié)議（ Address Resolution Protocol），負責將網(wǎng)絡層地址轉(zhuǎn)換成鏈路層地址。Access 可通過一種標準一致的方式，便捷地描述豐富的結(jié)構(gòu)化 XML 數(shù)據(jù)，同時也便于與其他應用程序間實現(xiàn)數(shù)據(jù)傳輸。不管是處理公司的客戶訂單數(shù)據(jù)；管理自己的個人通訊錄；還是大量科研數(shù)據(jù)的記錄和處理，人們都可以利 用它來解決大量數(shù)據(jù)的管理工作。 Visual Basic 是一種高級程序設計 語言，不具備低級語言的功能，對訪問機器硬件的長沙學院 畢業(yè)設計 (論文 ) 4 操作不太容易實現(xiàn)。 Visual Basic 提供開放式數(shù)據(jù)連接，即 ODBC 功能，可通過直接訪問或建立連接的方式使用并操作后臺大型網(wǎng)絡數(shù)據(jù)庫，如 SQL Server， Oracle 等。在設計 Visual Basic 程序的過長沙學院 畢業(yè)設計 (論文 ) 3 程中，隨時可以運行程序，而在整個程序設計好之后，可以編譯生成可執(zhí)行文件（ EXE），脫離 Visual Basic 環(huán)境，直接在 Windows 環(huán)境下運行，直接方便了通訊軟件的獨立運行。只需要按設計要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫出各種 “部件 ”，即圖形對象，并設置這些圖形對象的屬性。采用原型法設計可以使設計過程由淺入深，方便以后在功能上拓展軟件。在學校的校園網(wǎng)里，這軟件可以起到方便同學之間、教師之間、師生之間相互聯(lián)絡的作用。 關(guān)鍵詞： VB， Winsock， Access， 即時 通訊軟件 長沙學院 畢業(yè)設計 (論文 ) II ABSTRACT In recent years, along with the fast development of puter technology, especially the development of puter work, the life of people get a plete change, people can use more convenient and more practical work munication software with very low price, even no money. Now, there are kinds of online service system,which have changed people39。即時通訊軟件作為一種方便人與人之間聯(lián)系的實用工具應運而生，為我們的學習和工作，帶來了極大的方便，很大程度的提高了學習和工作效率。由于即時通訊軟件的外觀友好、使用非常方便，而且使用者之間的通訊是即時互 動的特點，受到大多數(shù)人的喜歡，這一類通訊軟件的應用市場特別廣闊。s contact and munication, and make people can realtime munication over thousands of miles away. The past, old munication can39。這樣，不用上 Inter，可以節(jié)省資源，在學校這個大環(huán)境里，就可以同學之間聯(lián) 系，聯(lián)絡感情，促進同學之間的友誼，學生可以通過它來與不同寢室的同學，教師討論問題，并能最大限度地利用現(xiàn)有的網(wǎng)絡資源，極大地提高工作效率 [1]。本軟件在需求分析后，進行初步設計，再經(jīng)過反復調(diào)試，實現(xiàn)了聊天的基本功能。 Visual Basic 自動產(chǎn)生界 面設計代碼，程序設計人員只需要編寫實現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設計的效率，這就為開發(fā)通訊軟件提供了很大的便利。 Visual Basic 通過事件來執(zhí)行對象的操作。在應用程序中，可以使用結(jié)構(gòu)化查詢語言 SQL 數(shù)據(jù)標準，直接訪問服務器上的數(shù)據(jù)庫，并提供了簡單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)據(jù)庫訪問的加鎖機制和網(wǎng)絡數(shù)據(jù)庫的 SQL的編程技術(shù)，為單機上運行的數(shù)據(jù)庫提供了 SQL 網(wǎng)絡接口，以便在分布式環(huán)境中快速而有效地實現(xiàn)客戶 /服 務器（ Client/Server）方案 [4]。但它可以通過動態(tài)鏈接庫的技術(shù)將 C/C++或匯編語言編寫的程序加入到 Visual Basic 應用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。 除了成為 Web 上數(shù)據(jù)交換的標準技術(shù)外，擴展標記語言（ XML）也正迅速成為商務軟件應用程序間交換數(shù)據(jù)時的首選技術(shù)方案。例如，可以使用 Access 創(chuàng)建描述數(shù)據(jù)結(jié)構(gòu)的架構(gòu)，然后將 該架構(gòu)發(fā)送給自己的供應商，以便他們準確了解您所期望的發(fā)票數(shù)據(jù)格式 [7]。RARP 反向地址解析協(xié)議（ Reverse Address Resolution Protocol），負責將鏈路層 地址轉(zhuǎn)換成網(wǎng)絡層地址。如果發(fā)送程序沒有收到這樣一個確認信息，程序?qū)⒆詣又匦掳l(fā)送此報文，直到得到應答信息為止?？蓪⒉豢煽繑?shù)據(jù)傳輸比作沒有返回地址的信件。例如，假設你使用字節(jié)流協(xié)議發(fā)送 5 個數(shù)據(jù)段（每個有 10 字節(jié)）和一個包含 50 字節(jié)的數(shù)據(jù)段（總共 100字節(jié)）。數(shù)據(jù)報類似于信件。例如為了打印，如果沒有其它程序的話，必須向串或并端口發(fā)送數(shù)據(jù)。 Inter 包括像 FTP、 Tel 和 Mail 這樣廣泛使用的應用程序采用的應用協(xié)議，在Inter 上，這些應用程序使用一種叫做 “通用口分配 ”的端口。在 TCP/IP 網(wǎng)絡應用中，多數(shù)網(wǎng)絡應用程序是使用客 戶機 /服務器模型設計的。這些術(shù)語指出了兩個 TCP/IP傳輸協(xié)議：用戶數(shù)據(jù)包協(xié)議（ UDP）和傳輸控制協(xié)議（ TCP）之間的區(qū)別。例如，無連接和連接服務器程序必須在協(xié)議端口偵聽客戶請求。也就是說，類似服務器程序，無連接客戶程序告訴 Socket 執(zhí)行體使用哪個協(xié)議端口進行數(shù)據(jù)傳輸。 （ 6） 提供查看在線的人的功能。通常采用結(jié)構(gòu)化系統(tǒng)分析和系統(tǒng)設計方法，自上而下分析、設計、強調(diào)開發(fā)過程的整體性和全局性；開發(fā)過程在時間上基本按階段進行，任務明確；結(jié)合用戶需求進行開發(fā)；開發(fā)周期長，維護不方便。 其中原型法是近幾年發(fā)展起來的一種開發(fā)方法，該方法 從一個初始信息要求的集合出發(fā)，在發(fā)展中逐步完善信息系統(tǒng)。 （ 5） 原型效果考察。由于服務器要和多個客戶聯(lián)系，所以在設計中采用了 Winsock 控件數(shù)組的形式，其中下標為 0 的元素作為監(jiān)聽控件，當有客戶登錄、退出或者相互間發(fā)送消息時，能正確接收并作相應處理，其余控件數(shù)組元素當有客戶連接時自動裝入。 TCP 協(xié)議即數(shù)據(jù)傳輸協(xié)議，允許創(chuàng)建和維護與遠程計算機的連接，使彼此 可以進行數(shù)據(jù)傳輸。當接收到數(shù)據(jù)時，會發(fā)生 DataArrival 事件，調(diào)用 DataArrival 事件中的 GetData 方法就可以獲得對方傳送的數(shù)據(jù) [11]。它的繪制依據(jù)是現(xiàn)行系統(tǒng)流程圖，數(shù)據(jù)流程圖是 管理信息系統(tǒng)的總體設計圖 [12]。 \qk\ strDestination = amp。 \bat\*.mdb, vbNormal + vbDirectory) If FileNames = Then MsgBox 找不到備份文件，請重新備份！！ , vbInformation + vbOKOnly, 系統(tǒng)提示 Exit Sub End If Dim a As Long Dim str_tem As String str_tem = Space$(20) 長沙學院 畢業(yè)設計 (論文 ) 19 a = GetPrivateProfileString(DataSet, SID, , str_tem, 20, amp。 Shi amp。 (0).LocalIP amp。 vbCrLf = 當前 amp。 選擇日期的界面在類模塊已經(jīng)定義了 Dim Calendar As Class1 長沙學院 畢業(yè)設計 (論文 ) 21 關(guān)鍵代碼如下： Private Sub Command1_Click() c1 = Not c1 If c1 Then Else End If End Sub Private Sub Command2_Click() On Error GoTo 30 Dim t, str As String c1 = False Open amp。 amp。 vbCrLf amp。 vb