沒用管理信息系統(tǒng)上機(jī)實(shí)驗(yàn)報(bào)告

1、. . . . 信息系統(tǒng)開發(fā)與管理實(shí)驗(yàn)報(bào)告學(xué) 期：_專 業(yè)：_姓 名：_指導(dǎo)教師：_第一章圖示管理系統(tǒng)的系統(tǒng)分析31.前言31.1 編寫目的31.2 背景31.3 參考資料32 項(xiàng)目概述32.1系統(tǒng)開發(fā)前提32.2 系統(tǒng)開發(fā)的基本目標(biāo)32.3 經(jīng)濟(jì)目標(biāo)32.4 社會(huì)目標(biāo)32.5 開發(fā)規(guī)模42.6系統(tǒng)流程43 可行性研究的方法與評(píng)價(jià)度44 軟件分析45 軟件技術(shù)分析55.1 設(shè)計(jì)目標(biāo)55.2 設(shè)計(jì)條件55.3 軟件基本工作原理56.軟件的功能56.1 設(shè)備的要求56.2 對(duì)運(yùn)行過程的影響56.3 技術(shù)方面的可行性57 可行性綜合分析58可行性結(jié)論5第二章模塊結(jié)構(gòu)6第三章數(shù)據(jù)庫設(shè)計(jì)7第四章程序界面

2、與編碼8第五章測試報(bào)告10第一章 圖書管理系統(tǒng)分析1. 前言本系統(tǒng)結(jié)構(gòu)分為讀者信息管理模塊，書籍信息管理模塊，借閱信息管理模塊，管理者信息管理模塊。讀者信息管理部分有兩方面的功能，可以瀏覽讀者的信息，可以對(duì)讀者信息進(jìn)行維護(hù)。書籍信息管理可以瀏覽書籍的信息，可以對(duì)書籍信息進(jìn)行維護(hù)。借閱信息管理可以顯示當(dāng)前數(shù)據(jù)庫中書籍借閱情況，可以對(duì)借閱信息進(jìn)行維護(hù)。管理者信息管理可以顯示數(shù)據(jù)庫中管理者的情況，可以對(duì)管理者信息進(jìn)行維護(hù)?？梢姡鞠到y(tǒng)并不復(fù)雜，主要解決的問題是利用關(guān)鍵字對(duì)數(shù)據(jù)庫進(jìn)行查詢。編寫目的系統(tǒng)開發(fā)的總的設(shè)計(jì)目標(biāo)是實(shí)現(xiàn)圖書管理的系統(tǒng)化、規(guī)化和自動(dòng)化，實(shí)現(xiàn)對(duì)圖書資料的集中統(tǒng)一的管理。1.2 背景近

3、年來，隨著圖書館規(guī)模的不斷擴(kuò)大，圖書數(shù)量也相應(yīng)的增加，有關(guān)圖書的各種信息量也成倍增加，面對(duì)著龐大的信息量，傳統(tǒng)的人工方式管理會(huì)導(dǎo)致圖書館管理上的混亂，人力與物力過多浪費(fèi)，圖書館管理費(fèi)用的增加，從而使圖書館的負(fù)擔(dān)過重，影響整個(gè)圖書館的運(yùn)作和控制管理，因此，必須制定一套合理、有效，規(guī)和實(shí)用的圖書管理系統(tǒng)，對(duì)圖書資料進(jìn)行集中統(tǒng)一的管理。 另一方面，IT產(chǎn)業(yè)和Internet獲得了飛速發(fā)展，計(jì)算機(jī)應(yīng)用已滲透到了各個(gè)領(lǐng)域，引起信息管理的革命，實(shí)現(xiàn)了信息的自動(dòng)化處理，提高了處理的與時(shí)性和正確性。 圖書管理工作面對(duì)大量的可模塊化處理的信息，是當(dāng)今信息革命的一個(gè)重要陣地。我們小組開發(fā)圖書管理信息系統(tǒng)就是采用現(xiàn)

4、代化的信息管理方式代替手工管理方式，提高圖書管理工作效率，作到信息的規(guī)管理，科學(xué)統(tǒng)計(jì)和快速查詢，讓圖書館更好的為學(xué)校，社會(huì)服務(wù)。（1）產(chǎn)品名稱：圖書管理系統(tǒng)（2）任務(wù)提出者：電視大學(xué)（3）產(chǎn)品開發(fā)：第三開發(fā)小組（4）產(chǎn)品用戶：圖書管理人員（5）產(chǎn)品所有權(quán)：田亮1.3參考資料 （1）VISUL BASIC 可視化編程（2）VISUL BASIC 程序設(shè)計(jì)（3）信息系統(tǒng)開發(fā)案例分析與課程設(shè)計(jì)2 項(xiàng)目概述2.1系統(tǒng)開發(fā)前提這是一個(gè)圖書管理系統(tǒng)，主要負(fù)責(zé)圖書的采購信息存檔、對(duì)圖書信息的查詢與編輯、對(duì)學(xué)生相關(guān)信息的管理、對(duì)借閱書本情況的管理；2.2系統(tǒng)開發(fā)的基本目標(biāo)A.由于原先圖書管理采用的人工系統(tǒng)，浪

5、費(fèi)人力物力財(cái)力，圖書管理系統(tǒng)可以改善這種情況，只需一臺(tái)電腦和一個(gè)管理員老師就能輕松完成。 B.提高對(duì)新書入庫、借閱圖書以與學(xué)生信心管理的速度。 C.減少人力的投入的同時(shí)提高了信息處理的精度和準(zhǔn)確度，在輸入無誤的基礎(chǔ)上可保證數(shù)據(jù)的正確性。 D.改進(jìn)了管理服務(wù)的質(zhì)量，可由系統(tǒng)對(duì)入庫圖書進(jìn)行自動(dòng)分類、歸類，學(xué)生信息整理、借閱情況登記入檔。 E.改進(jìn)人員的利用率，減少了前臺(tái)操作人員，更多的人員可用于為借閱者服務(wù)、更新采購圖書等其他事物，節(jié)省人力資源。2.3經(jīng)濟(jì)目標(biāo)節(jié)省人力，物力的開支，從而達(dá)到一人一臺(tái)電腦就能完成圖書管理。2.4 社會(huì)目標(biāo)采取的是人工方式，相對(duì)而言耗時(shí)大，效率低。而根據(jù)現(xiàn)有的硬件條件以

6、與工作制度，在辦公室中，管理學(xué)籍的老師都配備電腦。而且電腦的系統(tǒng)軟件都是WINDOWS2000 以上的，所以足夠可以來運(yùn)行我們的軟件；從學(xué)院老師們的文化素質(zhì)來看，我們的軟件操作簡單，運(yùn)行方便。2.5 開發(fā)規(guī)模該系統(tǒng)軟件開發(fā)總?cè)藬?shù)：輔導(dǎo)老師：組長：程序分析：全體開發(fā)人員2.6系統(tǒng)流程是開始連接服務(wù)器發(fā)送登陸信息成功？選擇操作類型圖書借閱管理圖書信息管理讀者信息管理管理員信息管理數(shù)據(jù)統(tǒng)計(jì)管理網(wǎng)絡(luò)連接管理得到返回結(jié)果退出？結(jié)束否是否客戶端程序流程圖3 可行性研究的方法與評(píng)價(jià)度3.1 經(jīng)濟(jì)可行性目標(biāo)系統(tǒng)開發(fā)需求比較低，加上具有成熟的軟硬件環(huán)境，所以在軟硬件的支出上十分有限。而且，目標(biāo)系統(tǒng)并不是十分的復(fù)

7、雜，開發(fā)的周期較短，人員經(jīng)濟(jì)支出有限。當(dāng)系統(tǒng)開發(fā)完實(shí)際運(yùn)行后，將很大程度上提高計(jì)算機(jī)的功能，在為使用者帶來便利的同時(shí)，也為系統(tǒng)的進(jìn)一步推廣創(chuàng)造了條件。這帶來的經(jīng)濟(jì)回報(bào)將遠(yuǎn)超過支出，并且最重要的一點(diǎn)是該軟件的開發(fā)可以給我們對(duì)系統(tǒng)的開發(fā)有個(gè)全面的認(rèn)識(shí)。從經(jīng)濟(jì)角度考慮，此信息系統(tǒng)開發(fā)可行。3.2技術(shù)可行性就技術(shù)力量來說，我們小組可以完成此次開發(fā)工作。開發(fā)過程中會(huì)出現(xiàn)許多問題，有我們預(yù)想之中的，也有一些沒有我們預(yù)想到，但，我們有信心克服一切困難。該學(xué)期，我們小組各成員已經(jīng)學(xué)習(xí)了SQL SERVER，對(duì)網(wǎng)絡(luò)技術(shù)和操作系統(tǒng)也有系統(tǒng)的了解，有些成員熟悉計(jì)算機(jī)原理，能解決常見的硬件故障和硬件選擇。目前，圖書管

8、理信息系統(tǒng)已得到了大量應(yīng)用，有許多可供參考的成功系統(tǒng)。而且，網(wǎng)上有許多關(guān)于VISUL BASIC編程的資料和SQL SERVER方面的資料。 從技術(shù)角度考慮，此信息系統(tǒng)開發(fā)可行3.3 法律可行性由于是自行開發(fā)，自行使用，所以系統(tǒng)本身不存在法律上的爭議。在服務(wù)器軟件方面，應(yīng)該使用正版軟件，如果不是正版軟件，將不得不面臨民事訴訟的風(fēng)險(xiǎn)。4 可行性分析結(jié)論根據(jù)以上的可行性研究，我們小組認(rèn)為開發(fā)此系統(tǒng)的條件已經(jīng)具備，可以開始進(jìn)行開發(fā)5 軟件分析（1）. 由于原先圖書管理采用的人工系統(tǒng)，浪費(fèi)人力物力財(cái)力，圖書管理系統(tǒng)可以改善這種情況，只需一臺(tái)電腦和一個(gè)管理員老師就能輕松完成。 （2）. 提高對(duì)新書入庫、

9、借閱圖書以與學(xué)生信心管理的速度。 （3）. 減少人力的投入的同時(shí)提高了信息處理的精度和準(zhǔn)確度，在輸入無誤的基礎(chǔ)上可保證數(shù)據(jù)的正確性。 （4）. 改進(jìn)了管理服務(wù)的質(zhì)量，可由系統(tǒng)對(duì)入庫圖書進(jìn)行自動(dòng)分類、歸類，學(xué)生信息整理、借閱情況登記入檔。 （5）. 改進(jìn)人員的利用率，減少了前臺(tái)操作人員，更多的人員可用于為借閱者服務(wù)、更新采購圖書等其他事物，節(jié)省人力資源。5.1硬件需求（1）服務(wù)器最低配置：Pentium 4 2.4 GHZ存256MB以上硬盤 30GB以上。（2）客戶端最低配置：Pentium 3 633MHZ 存256MB以上硬盤 30GB以上5.2軟件需求 系統(tǒng)：Windows2000或Wi

10、ndows XP，Visual Basic 6.0 數(shù)據(jù)庫：Access(Office2000或Office2003)5.3功能需求（1）網(wǎng)絡(luò)連接模塊：用于連接服務(wù)器。（2）圖書借閱管理模塊：用于實(shí)現(xiàn)圖書借閱信息的管理，包括借閱圖書、歸還圖書、續(xù)借圖書、繳納罰款等功能（3）圖書信息管理模塊：管理圖書資料，主要有圖書類別管理、圖書信息管理兩部分，每部分都有查詢、添加、維護(hù)等功能。（4）讀者信息管理模塊：用于實(shí)現(xiàn)讀者資料數(shù)據(jù)的管理，主要包括查詢讀者信息、添加讀者信息、刪除讀者信息、維護(hù)讀者信息等功能。（5）管理員信息管理模塊：用于實(shí)現(xiàn)管理員資料數(shù)據(jù)的管理，主要包括查詢管理員信息、添加管理員信息、刪

11、除管理員信息等功能。（6）數(shù)據(jù)統(tǒng)計(jì)模塊：用于實(shí)現(xiàn)統(tǒng)計(jì)系統(tǒng)的基本數(shù)據(jù)，以便于系統(tǒng)的管理，主要包括圖書借閱統(tǒng)計(jì)、未還圖書統(tǒng)計(jì)、過期讀者統(tǒng)計(jì)等功能。管理員信息管理員51核查信息用戶1管理員信息52信息登陸53信息查詢管理員信息檢索條件管理員信息管理員信息管理員信息第二章 模塊結(jié)構(gòu)管理員信息管理模塊：用于實(shí)現(xiàn)管理員資料數(shù)據(jù)的管理，主要包括查詢管理員信息、添加管理員信息、刪除管理員信息等功能。（1）添加管理員：“Usr , 01 , Usr _ID ，Usr _Name”幀頭“Usr”，類型號(hào)為01，接著是協(xié)議的具體容, Usr_ID，Usr_Name要添加的管理員相關(guān)信息。（2）刪除管理員：“Usr

12、, 02 , Usr _ID”幀頭“Usr”，類型號(hào)為02，接著是協(xié)議的具體容,只有Usr_ID一項(xiàng) ，是需要?jiǎng)h除的管理員ID。（3）查詢管理員：“Usr , 03 , Usr _ID”幀頭“Usr”，類型號(hào)為03，接著是協(xié)議的具體容,只有Usr_ID一項(xiàng) ，是需要查詢的管理員ID關(guān)鍵字。權(quán) 限 管 理管 理 員 管 理 模 塊圖書館管理系統(tǒng)客戶端數(shù) 據(jù) 統(tǒng) 計(jì) 模 塊管 理 員 管 理連 接 服 務(wù) 器添加管理員信息查詢管理員信息刪除管理員信息第三章 數(shù)據(jù)庫設(shè)計(jì)表結(jié)構(gòu)設(shè)計(jì)，字段定義。數(shù)據(jù)關(guān)系模式：管理員資料數(shù)據(jù)表（管理員ID，管理員，管理員密碼，權(quán)限類型，備注）管理員資料數(shù)據(jù)表（User_I

13、nfo）名稱類型寬度用途索引Usr_ID文本8管理員ID主索引Usr_Name文本20管理員Usr_Pwd文本16管理員密碼Usr_Type數(shù)字整型權(quán)限類型Usr_Remark文本255備注管理員資料數(shù)據(jù)表。管理員資料數(shù)據(jù)表記錄了所有管理員的基本資料，管理員可添加、刪除和查詢?cè)摫怼Ｔ摫戆ü芾韱TID、密碼和權(quán)限類型（系統(tǒng)管理員、高級(jí)管理員、普通管理員）等資料。第四章 程序界面與編碼一 圖書管理信息系統(tǒng)主窗體界面簡介：管理員可以在主窗體上選擇要操作的功能。此窗體屬于功能一覽的界面。圖書管理系統(tǒng)登錄界面登錄界面的代碼為：Private Sub mnuViewStatusBar_Click() St

14、atusBar1.Visible = True - StatusBar1.Visible mnuViewStatusBar.Checked = StatusBar1.VisibleEnd Sub'菜單欄的點(diǎn)擊事件Private Sub mnuViewToolbar_Click() Toolbar1.Visible = True - Toolbar1.Visible mnuViewToolbar.Checked = Toolbar1.VisibleEnd Sub' winsock的關(guān)閉Private Sub winsock_Close() main.StatusBar1.Pane

15、ls(1).Text = "服務(wù)器連接狀態(tài)：斷開。"End Sub' winsock的連接Private Sub winsock_Connect()Dim str As String str = "Cnn," & UserNow.ID & "," & UserNow.Pwd & "," & winsock.LocalIP If main.winsock.State <> sckConnected Then MsgBox "還沒有連接數(shù)據(jù)庫，不能發(fā)

16、送請(qǐng)求！" Exit Sub End If Me.winsock.SendData str 'MsgBox strEnd Sub' winsock傳遞數(shù)據(jù)的數(shù)組Private Sub winsock_DataArrival(ByVal bytesTotal As Long)Dim StrArrival, a As String, StrGet() As String, StrGet1() As StringDim Start As IntegerDim i As Integer, j As Integer, k As IntegerDim LtItm As ListI

17、temDim ss As StringDim As StringDim ww As StringMe.winsock.GetData StrArrival, vbString If Len(StrArrival) < 1 Then Exit Sub'數(shù)組中數(shù)據(jù)的操作 StrGet() = Split(StrArrival, ",", -1) Select Case StrGet(0) Case "abc" MsgBox StrGet(1), , "服務(wù)器廣播" Case "Usr" Select Ca

18、se StrGet(1) Case "01" main.StatusBar1.Panels(1).Text = "服務(wù)器連接狀態(tài)：響應(yīng)添加管理員。" MsgBox StrGet(2), , "服務(wù)器響應(yīng)" Case "02" main.StatusBar1.Panels(1).Text = "服務(wù)器連接狀態(tài)：響應(yīng)刪除管理員。" MsgBox StrGet(2), , "服務(wù)器響應(yīng)" Case "03" a = StrGet(2) If a = "

19、超出權(quán)限！查詢管理員信息失敗！" Then MsgBox StrGet(2), , "服務(wù)器響應(yīng)" ElseIf a = "該管理員不存在！查詢管理員失?。?quot; Then MsgBox StrGet(2), , "服務(wù)器響應(yīng)" Else main.StatusBar1.Panels(1).Text = "服務(wù)器連接狀態(tài)：響應(yīng)查詢管理員。" usrquery.lvquery.ListItems.Clear For i = 0 To UBound(StrGet) - 2 StrGet1() = Split(St

20、rGet(i + 2), "/", -1) Set LtItm = usrquery.lvquery.ListItems.Add() LtItm.Text = i + 1 LtItm.SubItems(1) = StrGet1(0) LtItm.SubItems(2) = StrGet1(1) LtItm.SubItems(3) = StrGet1(2) LtItm.SubItems(4) = StrGet1(3) Next i End If Case "04" a = StrGet(2) If a = "超出權(quán)限！查詢管理員信息失?。?quo

21、t; Then MsgBox StrGet(2), , "服務(wù)器響應(yīng)" Else main.StatusBar1.Panels(1).Text = "服務(wù)器連接狀態(tài)：響應(yīng)查詢所有管理員。" usrquery.lvquery.ListItems.Clear For i = 0 To UBound(StrGet) - 2 StrGet1() = Split(StrGet(i + 2), "/", -1) Set LtItm = usrquery.lvquery.ListItems.Add() LtItm.Text = i + 1 LtIt

22、m.SubItems(1) = StrGet1(0) LtItm.SubItems(2) = StrGet1(1) LtItm.SubItems(3) = StrGet1(2) LtItm.SubItems(4) = StrGet1(3) Next i End If End Select Case "Cnn" main.StatusBar1.Panels(1).Text = "服務(wù)器連接狀態(tài)：響應(yīng)連接信息。" MsgBox StrGet(1), , "服務(wù)器響應(yīng)" If StrGet(1) = "該管理員名不存在！請(qǐng)重新輸入

23、！" Then Me.winsock.Close ElseIf StrGet(1) = "密碼錯(cuò)誤！請(qǐng)重新輸入！" Then Me.winsock.Close End If End SelectEnd Sub'顯示管理員添加畫面Private Sub Usr_Add_Click() usradd.ShowEnd Sub'顯示刪除管理員畫面Private Sub Usr_Delete_Click() usrdel.ShowEnd Sub'顯示管理員查詢畫面Private Sub Usr_Query_Click() usrquery.ShowE

24、nd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Key'系統(tǒng)的連接 Case "Sys_Cnn" Call Sys_Connect_Click'系統(tǒng)的退出 Case "Sys_Exit" Call Sys_Exit_Click'添加管理員 Case "Usr_Add" Call Usr_Add_Click'刪除管理員 Case "Usr_Del"

25、Call Usr_Delete_Click'管理員查詢 Case "Usr_Query" Call Usr_Query_Click End SelectEnd Sub'畫面初期化事件Private Sub Form_Load() Scale (-7.57, 5.2)-(2.4, -5) main.Caption = "圖書館管理系統(tǒng)客戶端"End SubPrivate Sub Sys_Connect_Click()cnn.ShowEnd Sub'退出系統(tǒng)事件Private Sub Sys_Exit_Click() myexit =

26、 MsgBox("是否要退出程序？", vbYesNo, "退出") If myexit = vbYes Then EndEnd Sub二 客戶端連接服務(wù)器的連接窗體界面簡介：此界面是客戶端連接服務(wù)器的登陸窗體，管理員通過輸入正確的ID和密碼，等服務(wù)器驗(yàn)證通過后，畫面遷移到主窗體。連接服務(wù)器頁面的代碼為：Option Explicit'取消連接事件Private Sub CmdCancel_Click() Unload MeEnd Sub'連接服務(wù)器事件Private Sub CmdCnn_Click()'用戶ID為空的判斷If

27、Len(Trim(Me.Text1.Text) <= 0 Then MsgBox "請(qǐng)輸入用戶ID！" Exit SubElseIf Len(Trim(Me.Text1.Text) > 16 Then MsgBox "您輸入的用戶ID過長！" Exit SubElse UserNow.ID = Trim(Me.Text1.Text)End If'密碼為空的判斷If Len(Trim(Me.Text2.Text) <= 0 Then MsgBox "請(qǐng)輸入密碼！" Exit SubElseIf Len(Trim

28、(Me.Text2.Text) > 16 Then MsgBox "您輸入的密碼過長！" Exit SubElse UserNow.Pwd = Trim(Me.Text2.Text)End If'IP地址的判斷If Len(Trim(Me.Text3.Text) <= 0 Then MsgBox "請(qǐng)輸入服務(wù)器IP！" Exit SubElseIf Len(Trim(Me.Text3.Text) > 15 Then MsgBox "您輸入的IP地址過長！" Exit SubElseIf Len(Trim(Me

29、.Text3.Text) < 7 Then MsgBox "您輸入的IP地址過短！" Exit SubElse' winsock的設(shè)置 main.winsock.RemoteHost = Trim(Me.Text3.Text) main.winsock.RemotePort = 12345 main.winsock.Connect'設(shè)置連接后狀態(tài)條的顯示信息main.StatusBar1.Panels(1).Text = "服務(wù)器連接狀態(tài)：正在連接"'畫面的關(guān)閉Unload MeEnd IfEnd Sub'頁面加載事

30、件Private Sub Form_Load()' winsock的狀態(tài)判斷If main.winsock.State <> sckClosed Then'關(guān)閉winsock的連接 main.winsock.CloseEnd IfEnd Sub管理員信息登陸畫面管理員信息登陸畫面的代碼為：'管理員信息添加事件Private Sub CmdAddOk_Click()Dim str As String'管理員ID為空的判斷If Len(Trim(Me.TextID.Text) <= 0 Then MsgBox "請(qǐng)輸入管理員ID！&quo

31、t; Exit SubElseIf Len(Trim(Me.TextID.Text) > 16 Then MsgBox "您輸入的管理員ID過長！" Exit SubEnd If'管理員為空的判斷If Len(Trim(Me.TextName.Text) <= 0 Then MsgBox "請(qǐng)輸入管理員！" Exit Sub'管理員長度的判斷ElseIf Len(Trim(Me.TextName.Text) > 20 Then MsgBox "您輸入的過長！" Exit SubEnd If'密

32、碼為空過的判斷If Len(Trim(Me.TextAddPwd1.Text) <= 0 Then MsgBox "請(qǐng)輸入密碼！" Exit Sub'密碼長度的判斷ElseIf Len(Trim(Me.TextAddPwd1.Text) > 16 Then MsgBox "您輸入密碼過長！" Exit SubEnd If'密碼和確認(rèn)密碼不一致的判斷If Trim(Me.TextAddPwd1.Text) <> Trim(Me.TextAddPwd2.Text) Then MsgBox "兩次輸入的密碼不一

33、致！" Exit SubEnd Ifstr = "Usr,01,"str = str & Me.TextID.Text & ","str = str & Me.TextName.Text & ","str = str & Me.TextAddPwd1.Text & ","str = str & Val(Me.CbType.Text) & ","str = str & Me.useremark.Text' w

34、insock狀態(tài)的判斷If main.winsock.State <> sckConnected Then MsgBox "還沒有連接數(shù)據(jù)庫，不能發(fā)送請(qǐng)求！" Exit SubEnd If'數(shù)據(jù)向服務(wù)器的傳送main.winsock.SendData str'關(guān)閉窗體Unload MeEnd Sub'退出窗體的事件Private Sub CmdCancel_Click() Unload MeEnd Sub'頁面加載的事件Private Sub Form_Load()Dim str As String' winsock狀態(tài)的

35、判斷If main.winsock.State <> sckConnected Then MsgBox "還沒有連接數(shù)據(jù)庫，不能發(fā)送請(qǐng)求！" '退出過程 Exit Sub End If'數(shù)據(jù)向服務(wù)器的傳送 main.winsock.SendData strEnd Sub管理員信息刪除畫面（下圖）管理員信息刪除畫面的代碼為：'關(guān)閉窗體的操作Private Sub CmdCancel_Click()'關(guān)閉窗體Unload MeEnd Sub'刪除管理員的事件Private Sub CmdDel_Click()Dim str A

36、s String'管理員ID為空的判斷If Len(Trim(Me.TextID.Text) <= 0 Then MsgBox "請(qǐng)輸入管理員ID！" Exit SubElseIf Len(Trim(Me.TextID.Text) > 16 Then MsgBox "您輸入的ID過長！" Exit SubEnd Ifstr = "Usr," & "02," & Me.TextID.Text' winsock狀態(tài)的判斷 If main.winsock.State <&

37、gt; sckConnected Then MsgBox "還沒有連接數(shù)據(jù)庫，不能發(fā)送請(qǐng)求！" Exit SubEnd If'向服務(wù)器傳遞數(shù)據(jù)main.winsock.SendData str'關(guān)閉窗體Unload MeEnd Sub'頁面的加載事件Private Sub Form_Load()Dim str As String' winsock狀態(tài)的判斷If main.winsock.State <> sckConnected Then MsgBox "還沒有連接數(shù)據(jù)庫，不能發(fā)送請(qǐng)求！" Exit Sub End If'向服務(wù)器傳遞數(shù)據(jù) main.winsock.SendData strEnd Sub管理員信息檢索畫面（下圖）管理員信息刪除畫面的代碼為：'窗體的關(guān)閉事件Private Sub CmdCancel_Click() '關(guān)閉窗體 Unload MeEnd Sub'管理員的查詢事件Private Sub CmdQuery_Click()Dim str