1、計算機學院軟件工程課程設計PAGE PAGE 45目錄(ml) TOC o 1-3 h z u HYPERLINK l _Toc186375601 第一章 系統(xtng)概述 PAGEREF _Toc186375601 h 1 HYPERLINK l _Toc186375602 1.1 系統(xtng)開發背景和意義 PAGEREF _Toc186375602 h 1 HYPERLINK l _Toc186375603 1.2 開發環境 PAGEREF _Toc186375603 h 1 HYPERLINK l _Toc186375604 第二章 系統需求分析 PAGEREF _Toc186

2、375604 h 2 HYPERLINK l _Toc186375605 2.1 任務概述 PAGEREF _Toc186375605 h 2 HYPERLINK l _Toc186375606 2.2 數據描述(數據流圖+數據字典) PAGEREF _Toc186375606 h 2 HYPERLINK l _Toc186375607 2.3 功能需求 PAGEREF _Toc186375607 h 6 HYPERLINK l _Toc186375608 2.4性能需求 PAGEREF _Toc186375608 h 6 HYPERLINK l _Toc186375609 第三章 系統總體設

3、計 PAGEREF _Toc186375609 h 8 HYPERLINK l _Toc186375610 3.1 新的業務流程 PAGEREF _Toc186375610 h 8 HYPERLINK l _Toc186375611 3.2 系統功能模塊圖 PAGEREF _Toc186375611 h 8 HYPERLINK l _Toc186375612 3.3 系統的流程圖 PAGEREF _Toc186375612 h 9 HYPERLINK l _Toc186375613 第四章 詳細設計 PAGEREF _Toc186375613 h 11 HYPERLINK l _Toc1863

4、75614 4.1 程序流程圖 PAGEREF _Toc186375614 h 11 HYPERLINK l _Toc186375615 4.2 程序輸入輸出描述 PAGEREF _Toc186375615 h 13 HYPERLINK l _Toc186375616 4.2.1 主模塊 PAGEREF _Toc186375616 h 13 HYPERLINK l _Toc186375617 4.2.1 學生管理模塊 PAGEREF _Toc186375617 h 13 HYPERLINK l _Toc186375618 4.2.2 圖書管理模塊 PAGEREF _Toc186375618 h

5、 13 HYPERLINK l _Toc186375619 4.2.3 借閱管理模塊 PAGEREF _Toc186375619 h 13 HYPERLINK l _Toc186375620 4.2.4 歸還管理模塊 PAGEREF _Toc186375620 h 13 HYPERLINK l _Toc186375621 4.2.5 管理措施設置模塊 PAGEREF _Toc186375621 h 13 HYPERLINK l _Toc186375622 4.3 程序接口描述 PAGEREF _Toc186375622 h 14 HYPERLINK l _Toc186375623 4.3.1

6、外部接口 PAGEREF _Toc186375623 h 14 HYPERLINK l _Toc186375624 4.3.2 內部接口 PAGEREF _Toc186375624 h 14 HYPERLINK l _Toc186375625 4.4 數據庫的設計 PAGEREF _Toc186375625 h 14 HYPERLINK l _Toc186375626 4.4.1 數據庫的邏輯設計 PAGEREF _Toc186375626 h 14 HYPERLINK l _Toc186375627 4.4.2 數據庫的物理設計 PAGEREF _Toc186375627 h 16 HYPE

7、RLINK l _Toc186375628 第五章 編碼(bin m)實現 PAGEREF _Toc186375628 h 19 HYPERLINK l _Toc186375629 5.1 程序(chngx)編碼 PAGEREF _Toc186375629 h 19 HYPERLINK l _Toc186375630 第六章 測試分析(fnx)報告 PAGEREF _Toc186375630 h 37 HYPERLINK l _Toc186375631 6.1 測試計劃和要點 PAGEREF _Toc186375631 h 37 HYPERLINK l _Toc186375632 6.1.1

8、主模塊測試要點 PAGEREF _Toc186375632 h 37 HYPERLINK l _Toc186375633 6.1.2 借閱模塊測試要點 PAGEREF _Toc186375633 h 37 HYPERLINK l _Toc186375634 6.1.3 學生查詢模塊測試要點 PAGEREF _Toc186375634 h 37 HYPERLINK l _Toc186375635 6.1.4 圖書查詢模塊測試要點 PAGEREF _Toc186375635 h 38 HYPERLINK l _Toc186375636 6.1.5 圖書歸還模塊測試要點 PAGEREF _Toc18

9、6375636 h 38 HYPERLINK l _Toc186375637 6.2 測試用例 PAGEREF _Toc186375637 h 38 HYPERLINK l _Toc186375638 6.2.1 主模塊測試用例 PAGEREF _Toc186375638 h 39 HYPERLINK l _Toc186375639 6.2.2 借閱模塊測試用例 PAGEREF _Toc186375639 h 39 HYPERLINK l _Toc186375640 6.2.3 學生查詢模塊測試用例 PAGEREF _Toc186375640 h 40 HYPERLINK l _Toc1863

10、75641 6.2.4 圖書查詢模塊測試用例 PAGEREF _Toc186375641 h 40 HYPERLINK l _Toc186375642 6.2.5 圖書歸還模塊測試用例 PAGEREF _Toc186375642 h 40 HYPERLINK l _Toc186375643 6.3 測試結果及結論 PAGEREF _Toc186375643 h 41 HYPERLINK l _Toc186375644 6.3.1 測試的結果 PAGEREF _Toc186375644 h 41 HYPERLINK l _Toc186375645 6.3.2 缺陷分析及改進 PAGEREF _T

11、oc186375645 h 42 HYPERLINK l _Toc186375646 6.3.3 測試結論 PAGEREF _Toc186375646 h 43 HYPERLINK l _Toc186375647 總結 PAGEREF _Toc186375647 h 44 HYPERLINK l _Toc186375648 參考文獻 PAGEREF _Toc186375648 h 45第一章 系統(xtng)概述1.1 系統開發背景(bijng)和意義圖書管理是高校內每一個系部或院部都必須切實面對的工作，但一直以來(yli)人們使用傳統的人工方式管理圖書資料。這種方式存在著許多缺點，如效率低、

12、保密性差且較為繁瑣。另外，隨著圖書資料數量的增加，其工作量也將大大增加，這必將增加圖書資料管理者的工作量和勞動強度，這將給圖書資料信息的查找、更新和維護都帶來了很多困難。經過詳細的調查，目前我國各類高等學校中有相當一部分單位圖書資料管理還停留在人工管理的基礎上。這樣的管理機制已經不能適應時代的發展，其管理方法將浪費許多人力和物力。隨著科學技術的不斷提高，這種傳統的手工管理方法必然被以計算機為基礎的信息管理方法所取代。圖書管理作為計算機應用的一個分支，有著手工管理無法比擬的優點，如檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優點能夠極大地提高圖書管理的效率。因此，開發

13、一套能夠為用戶提供充足的信息和快捷的查詢手段的圖書管理系統，將是非常必要的，也是十分及時的。1.2 開發環境開發環境的選擇會影響到數據庫的設計，所以在這里給出圖書管理系統開發與運行環境的選擇如下：開發環境：Windows 2000開發工具：Visual Basic 6.0數據庫管理系統： SQL Server 2000數據庫服務器： SQL Server 2000 桌面引擎第二章 系統需求分析2.1 任務概述經過對我校詳細調查，并多次與負責圖書管理的老師進行研討后，加深了對現行圖書管理業務的深刻了解，與此同時，將整個圖書管理的業務流程抽象描述如下：1.新的圖書購進后，分門別類地進行歸并并匯總，

14、加以編號。2.新書編號后，上到書架以備學生借閱。3.如某學生需要借閱圖書，則在其本人的借閱登記表上進行登記，記錄(jl)相關借閱信息與借閱日期。4.學生借閱圖書后，應及時歸還圖書，并在本人的借閱登記表上注明(zh mn)還書日期和時間。根據以上(yshng)調查分析，可以給出其現行業務流程圖如圖2.1所示。圖2.1 現行圖書管理業務流程圖2.2 數據描述(數據流圖+數據字典)經過詳細的調查，我們已經清楚了解了現行的業務流程，接下來給出系統的邏輯模型。構造系統邏輯模型的工具是數據流圖和數據字典。根據現行圖書管理的業務流程，首先把數據流圖中的源點和終點都選定為學生，因此可以得到圖書管理系統的基本系

15、統模型，如圖2.2所示。圖2.2 圖書管理系統的基本系統模型根據基本系統模型，對其逐步細化，得到描述邏輯系統細化后的數據流圖，如圖2.3所示。圖2.3 圖書(tsh)管理系統數據流圖（頂層DFD圖）對頂層DFD圖中的一個(y )加工“學生(xu sheng)管理”進行展開，如圖2.4。圖2.4 細化后數據流圖對頂層DFD圖中的一個加工“圖書管理”進行展開，如圖2.5。圖2.5 “圖書管理”展開對第1層DFD圖中的加工進一步進行展開，如圖2.6。(1)(2)圖2.6 進一步細化數據流圖有了系統的數據流圖后，還有相當多的數據信息如圖書、借閱、歸還等信息需要進一步描述，這就是需要定義數據字典，才能把

16、現有的系統描述清楚(qng chu)。圖2.7列出了系統的主要數據字典。圖2.7 系統(xtng)主要數據字典2.3 功能(gngnng)需求經過以上詳細的用戶調查，在現行業務流程和數據分析的基礎上，基本可以確定(qudng)系統設計必須達到的目標。 以下是圖書管理系統必須具備的功能：1.新進圖書的登記功能：對于購進的新書，系統必須具備圖書信息資料的錄入功能。2.圖書的查詢修改功能：當圖書資料發生變化，如圖書丟失或有錯誤信息輸入時，則應能夠及時對數據進行修改和補充。3.借閱的登記，歸還的登記功能：系統的主要(zhyo)功能之一，供本校學生借閱圖書、歸還圖書，并進行登記。4.學生信息(xnx)的

17、增加、刪除和修改功能：系統主要功能之一，建立學生信息，并對其進行維護。2.4性能需求為了保證系統能夠長期、安全、穩定、可靠、高效的運行，圖書管理系統應該滿足(mnz)以下的性能需求：1、系統處理的準確性和及時性系統處理的準確性和及時性是系統的必要性能。在系統設計和開發過程中，要充分考慮系統當前和將來可能承受的工作量，使系統的處理能力和響應時間能夠滿足學校對信息處理的需求。2、系統的開放性和系統的可擴充性圖書管理系統在開發過程中，應該充分考慮以后的可擴充性。例如用戶查詢的需求也會不斷的更新和完善。所有這些，都要求系統提供足夠的手段進行功能的調整和擴充。而要實現這一點，應通過系統的開放性來完成，既

18、系統應是一個開放系統，只要符合一定的規范，可以簡單的加入和減少系統的模塊，配置系統的硬件。通過軟件的修補、替換完成系統的升級和更新換代。3、系統的易用性和易維護性圖書管理系統是直接面對使用人員的，而使用人員往往對計算機并不時非常熟悉。這就要求系統能夠提供良好的用戶接口，易用的人機交互界面。要實現這一點，就要求系統應該盡量使用用戶熟悉的術語和中文信息的界面；針對用戶可能出現的使用問題，要提供足夠的在線幫助，縮短用戶對系統熟悉的過程。4、系統的標準性系統在設計開發使用過程中都要涉及到很多計算機硬件、軟件。所有這些都要符合主流國際、國家和行業標準。5、系統的先進性目前計算系統的技術發展相當快，做為圖

19、書管理系統工程，在系統的生命周期盡量做到系統的先進，充分完成企業信息處理的要求而不至于落后。這一方面通過系統的開放性和可擴充性，不斷改善系統的功能完成。另一方面，在系統設計和開發的過程中，應在考慮成本的基礎上盡量采用當前主流并先進且有良好發展前途的產品。6、系統的響應速度圖書管理系統系統在日常處理中的響應速度為秒級，達到實時要求，以及時反饋信息。在進行統計分析時，根據所需數據量的不同而從秒級到分鐘級,原則是保證操作人員不會因為速度問題而影響工作效率。第三章 系統(xtng)總體設計3.1 新的業務流程根據需求分析(fnx)的得到的現行業務處理流程，在用戶反復研究后，首先確定目標系統的業務流程，

20、其處理流程如圖3.1。圖3.1 圖書(tsh)管理系統的業務流程針對新的業務流程，現具體描述其功能如下：1.用戶登錄：系統對用戶合法性進行檢查。2.圖書入庫：對新購進的圖書分類進行編號，并把圖書基本信息錄入計算機。3.圖書借閱：對已入庫的圖書，學生可以借閱，并進行登記。4.圖書歸還：對學生已歸還的圖書進行歸還登記。 5.信息查詢：即對所有圖書的借閱情況，或學生的基本情況和借閱情況進行查詢。6.管理措施：定義系統規定的借閱圖書超期時間、超期處罰辦法和丟失賠償辦法。3.2 系統功能模塊圖依據需求分析階段得到的數據流圖，采用軟件工程中軟件設計的概念和原理，與用戶成分協商后，在保證系統基本功能要求的前

21、提下，結合系統新的業務流程確定系統必須具備的所有功能，由此給出圖書管理系統的系統功能模塊圖如圖3.2所示。圖3.2 圖書(tsh)管理系統功能模塊圖3.3 系統(xtng)的流程圖依據軟件工程的基本原理，綜合以上分析(fnx)給出系統流程圖如圖3.4所示。圖3.4 系統(xtng)流程圖第四章 詳細(xingx)設計4.1 程序(chngx)流程圖依據軟件工程的基本原理，詳細設計階段的根本任務是確定應該怎樣具體(jt)實現所要求的系統，也就是說，經過這個階段的設計工作，應該得出對目標系統的精確描述，從而在系統實現階段可以把這個描述直接翻譯成用某種程序設計語言書寫的程序。具體來說就是把經過總體設

22、計得到的各個模塊詳細的加以描述。由于本系統采用支持面向對象的Visual Basic 6.0作為開發工具，而Visual Basic 6.0采用事件驅動的編程機制，所以在此給出軟件系統的主程序流程圖，如圖4.1所示。圖4.1 主程序流程圖根據以上主程序的流程圖，我們可以得出下面的關于各個模塊的程序流程圖，如圖4.2所示。 圖4.2 程序(chngx)流程圖4.2 程序(chngx)輸入輸出描述4.2.1 主模塊(m kui)1.輸入項目：操作系統傳遞至的各種消息以及用戶的輸入數據。2.輸出項目：用戶界面(yn h ji min)顯示。4.2.1 學生(xu sheng)管理模塊1.輸入項目：與

23、學生管理(gunl)操作子對話框有關的用戶輸入及系統消息。2.輸出項目：操作結果顯示。4.2.2 圖書管理模塊1.輸入項目：用戶口令。2.輸出項目：相應的界面。4.2.3 借閱管理模塊1.輸入項目：學生學號、圖書編號。2.輸出項目：學生信息、相關借書信息。4.2.4 歸還管理模塊1.輸入項目：圖書編號。2.輸出項目：相關學生信息。4.2.5 管理措施設置模塊1.輸入項目：用戶的輸入。2.輸出項目：根據用戶的輸入顯示相應的對話框。4.3 程序接口描述4.3.1 外部接口按Windows應用軟件用戶界面的規范來設計，使用以對話框為主的用戶界面，便于用戶使用。4.3.2 內部接口模塊間接口采用數據耦

24、合方式，通過參數表傳送數據，交換信息。4.4 數據庫的設計(shj)4.4.1 數據庫的邏輯設計在需求分析階段已完成該系統所有的數據分析。根據該階段所建立的概念模型，已經得出滿足系統設計(shj)要求的幾個關系描述，該階段的主要工作就是把前一階段的成果轉化為具體的數據庫。下面給出概念結構設計得E-R圖如圖4.3所示。(1) 分E-R圖(2) 總E-R圖圖4.3 概念(ginin)結構設計E-R圖實體：圖書（圖書編號，書名，作者，出版社，定價，圖書類別(libi)，圖書ISBN號，圖書數量） 學生（學生學號，學生姓名，性別(xngbi)，入校時間，畢業時間） 管理員（編號，名字，密碼，加入時間）

25、聯系：學生管理（圖書管理員，學生姓名，學生密碼） 圖書管理（圖書管理員，借閱號，歸還號） 查詢（圖書編號，借閱證號，圖書管理員，學生）4.4.2 數據庫的物理設計依據數據庫的原理，并結合以上E-R圖，經過轉化，即可進行數據庫的物理設計。基于以上數據庫的邏輯設計，考慮程序設計的簡易性，同時考慮題目的時間，該系統的數據庫采用Microsoft SQL Server 2000。本系統決定采用一個數據庫，在其下創建5個數據表，其結構分別如下：1.圖書信息表（tBook），其字段列表如表4-1所示。表4-1 圖書信息表的結構序號字段名稱字段說明類型位數屬性備注1cBooksID圖書編號文本7必須非空2c

26、BooksName圖書名稱文本20必須非空3cBooksISBN圖書ISBN號文本15可為空4cBooksAuthor圖書作者文本10可為空5cBooksPublisher圖書出版社文本20可為空6cBooksType圖書類型文本16可為空7smBooksPrice圖書價格貨幣可為空8iBooksStoreQuan圖書庫存量整數可為空9iBooksLeftQuant圖書副本數量整數可為空10iBooksTotalQuan圖書總數整數可為空2.圖書借閱(ji yu)登記表（tBorrow），其字段列表如表4-2所示。表4-2 圖書借閱(ji yu)登記表的結構序號字段名稱字段說明類型位數屬性備注

27、1cBorrowID借書編號文本6必須非空2cVipID學生編號文本6必須非空3cBooksID圖書編號文本7必須非空4cBorrwTime借書時間時間日期可為空5cReturnTime還書時間時間日期可為空6cReturn是否歸還文本1可為空3.圖書(tsh)歸還登記表（tReturn），其字段列表如表4-3所示。表4-3 圖書歸還登記表的結構序號字段名稱字段說明類型位數屬性備注1cBorrowID借書編號文本6必須非空2cVipID學生編號文本6必須非空3cBooksID圖書編號文本7必須非空4cBorrwTime借書時間時間日期可為空5cReturnTime還書時間時間日期必須非空6cR

28、eturn是否歸還文本1必須非空7cNoReturn歸還異常文本8可為空4.學生信息表（tVip），其字段列表如表4-4所示。表4-4 學生信息表的結構序號字段名稱字段說明類型位數屬性備注1cVipID學生編號文本6必須非空2cVipName學生姓名文本10必須非空4cVipSex學生性別文本1可為空5vipAddTime學生入學時間時間日期必須非空6vipEndTime學生畢業時間時間日期必須非空5.管理員信息表（tOperators），其字段列表如表4-5所示。表4-5 管理員信息(xnx)表的結構序號字段名稱字段說明類型位數屬性備注1cOperatorID管理員編號文本5必須非空2cOp

29、eratorName管理員姓名文本10必須非空3cOperatorPassword密碼文本6必須非空4cOperatorAddTime管理員加入時間時間日期10必須非空第五章 編碼(bin m)實現5.1 程序(chngx)編碼登陸界面如圖5.1所示。圖5.1 登陸(dng l)界面程序代碼如下(rxi)：Function Check_Password(ByVal UserName As String, ByVal UserPassword As String) As Integer On Error GoTo ER2: If ConnectToServer = True Then Set o

30、bjRs = New Recordset StrSql = select cOperatorPassword from tOperators where cOperatorName= & Trim(cboName.Text) & GetData StrSql Reference function to get data If objRs.EOF Then Check_Password = 0 This Operator not exist Else If txtPassword.Text Trim(objRs.Fields(cOperatorPassword).Value) Then Chec

31、k_Password = 1 password error Else Check_Password = 2 password ok CurrentOpname = Trim(cboName.Text) CurrentOppassword = objRs.Fields(cOperatorPassword).Value Here can save a operator grade for expand End If End If objCon.Close Exit FunctionER2: MsgBox Err.Description Check_Password = 255 End IfEnd

32、FunctionPrivate Sub cmdCancel_Click() Unload Me EndEnd SubPrivate Sub cmdOK_Click() Dim intCheck As Integer Static intLogTimes to save user login times Static intLogTimes As Integer intLogTimes = intLogTimes + 1 Save login times If intLogTimes MaxLogTimes Then Over allowed login times then list info

33、rmation MsgBox You have over allowed loghin times,login failure !, vbCritical, LoginError Unload Me Else intCheck = Check_Password(Trim(txtPassword), Trim(cboName) Select Case intCheck Case 0 MsgBox Your are not a system user !, vbInformation + vbOKOnly, LoginError Case 1 MsgBox Password error ,plea

34、se check your password !, vbInformation + vbOKOnly, LoginError Case 2 Unload Me If CurrentOpname = Admin And CurrentOppassword = 1 Then MainWin.mnuOp.Visible = True Else MainWin.mnuOp.Visible = False End If Load MainWin MainWin.Show End Select End IfEnd Sub主界面(jimin)如圖5.2所示。圖5.2 程序(chngx)主界面程序代碼如下(r

35、xi)：Option ExplicitPrivate Sub MDIForm_Activate() If CurrentOpname = Admin Then StatusBar2.Panels(1).Text = 管理員： & CurrentOpname Toolbar1.Buttons(1).Visible = True Toolbar1.Buttons(2).Visible = True Else StatusBar2.Panels(1).Text = 操作員： & CurrentOpname Toolbar1.Buttons(1).Visible = False Toolbar1.Bu

36、ttons(2).Visible = False End IfEnd SubPrivate Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbRightButton Then PopupMenu mnuOperation Design popup menu End IfEnd SubPrivate Sub MDIForm_Unload(Cancel As Integer) CheckConnect Reference function to mak

37、e objcon break if connection is openEnd SubPrivate Sub mnuAbout_Click() frmAbout.ShowEnd SubPrivate Sub mnuBookQuery_Click() CheckConnect Reference function to make objcon break if connection is open Load frmBookQuery frmBookQuery.ShowEnd SubPrivate Sub mnuBookRegist_Click() CheckConnect Reference f

38、unction to make objcon break if connection is open Load frmBookReg frmBookReg.ShowEnd SubPrivate Sub mnuBorrowQuery_Click() CheckConnect Reference function to make objcon break if connection is open Load frmReadQuery frmReadQuery.ShowEnd SubPrivate Sub mnuExit_Click() CheckConnect Reference function

39、 to make objcon break if connection is open Unload Me EndEnd SubPrivate Sub mnuReLogin_Click() CheckConnect Reference function to make objcon break if connection is open Unload Me Load frmLogin frmLogin.ShowEnd SubPrivate Sub mnuVipQuery_Click() CheckConnect Reference function to make objcon break i

40、f connection is open Load frmVipQuery frmVipQuery.ShowEnd SubPrivate Sub mnuVipRegist_Click() CheckConnect Reference function to make objcon break if connection is open Load frmVipReg frmVipReg.ShowEnd SubPrivate Sub munReadRegist_Click() CheckConnect Reference function to make objcon break if conne

41、ction is open Load frmReadRegist frmReadRegist.ShowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Key Case operatorReg CheckConnect Reference function to make objcon break if connection is open Load frmAdmin frmAdmin.Show Case vipReg CheckConnect Refere

42、nce function to make objcon break if connection is open Load frmVipReg frmVipReg.Show Case vipQuery CheckConnect Reference function to make objcon break if connection is open Load frmVipQuery frmVipQuery.Show Case BookReg CheckConnect Reference function to make objcon break if connection is open Loa

43、d frmBookReg frmBookReg.Show Case bookQuery CheckConnect Reference function to make objcon break if connection is open Load frmBookQuery frmBookQuery.Show Case readReg CheckConnect Reference function to make objcon break if connection is open Load frmReadRegist frmReadRegist.Show Case readQuery Chec

44、kConnect Reference function to make objcon break if connection is open Load frmReadQuery frmReadQuery.ShowEnd SelectEnd Sub操作員管理(gunl)界面如圖5.3所示。圖5.3 操作員管理(gunl)界面代碼(di m)如下：Option ExplicitSub SetTextEmpty()This function is set all text to empty txtOpID.Text = txtOpName.Text = txtOpPwd.Text = cboOpGr

45、ade.Text = txtOpAddTime.Text = End SubSub RefreshOperator()This function is to Refresh text txtOpID.Text = objRs.Fields(0).Value txtOpName.Text = objRs.Fields(1).Value txtOpPwd.Text = objRs.Fields(2).Value cboOpGrade.Text = objRs.Fields(3).Value txtOpAddTime.Text = objRs.Fields(4).ValueEnd SubPrivat

46、e Sub cmdAdd_Click() txtOpID.Enabled = True You dont change datagrid untill you add data finish dgdOp.Enabled = False If cmdAdd.Caption = 添加(tin ji) Then cmdAdd.Caption = 確定(qudng) SetTextEmpty reference settextempty founction to set empty cmdDel.Enabled = False cmdModify.Enabled = False cmdRefresh.

47、Enabled = False txtOpID.SetFocus Else If Trim(txtOpName.Text) = Then MsgBox Operator name must not null ,please input operator name !, vbInformation + vbOKOnly txtOpName.SetFocus Exit Sub ElseIf Trim(txtOpID.Text) = Then MsgBox Operator ID must not null ,please input operator ID !, vbInformation + v

48、bOKOnly txtOpID.SetFocus Exit Sub ElseIf Trim(txtOpPwd.Text) = Then MsgBox Operator password must not null ,please input operator password !, vbInformation + vbOKOnly txtOpPwd.SetFocus Exit Sub Else With objRs checkAddNew = True .Filter = cOperatorID= & Trim(txtOpID.Text) & If .RecordCount 0 Then Ms

49、gBox This operator has been exist ! txtOpID.Text = txtOpID.SetFocus .Filter = cOperatorID cmdRefresh.Value = True To executer refresh once checkAddNew = False cmdDel.Enabled = True cmdModify.Enabled = True cmdAdd.Caption = 添加(tin ji)(&A) txtOpID.Enabled = False cmdRefresh.Enabled = True dgdOp.Enable

50、d = True checkAddNew = False Exit Sub End If checkAddNew = True .AddNew .Fields(0).Value = Trim(txtOpID.Text) .Fields(1).Value = Trim(txtOpName.Text) .Fields(2).Value = Trim(txtOpPwd.Text) .Fields(3).Value = Trim(cboOpGrade.Text) .Fields(4).Value = Trim(txtOpAddTime.Text) .Update MsgBox Operator add

51、 success !, vbInformation + vbOKOnly .Filter = cOperatorID cmdRefresh.Value = True To executer refresh once End With checkAddNew = False There will reference a founction to set empty txtOpID.Enabled = False cmdDel.Enabled = True cmdModify.Enabled = True cmdRefresh.Enabled = True cmdAdd.Caption = 添加(

52、tin ji) dgdOp.Enabled = True You can use datagrid after add finish End If End IfEnd SubPrivate Sub cmdDel_Click() If Empty_Check = True Then Exit Sub Reference function to check if your database is null If Not objRs.EOF And objRs.RecordCount 0 Then If MsgBox(The : & txtOpName & s data will delete co

53、ntinue ?, vbYesNo + vbInformation) = vbYes Then objRs.Delete End If End IfEnd SubPrivate Sub cmdModify_Click() If Empty_Check = True Then Exit Sub Reference function to check if your database is null dgdOp.Enabled = False If txtOpID.Text objRs.Fields(0).Value Then Exit Sub To check operator ID If cm

54、dModify.Caption = 修改(xigi) Then cmdModify.Caption = 確定(qudng) cmdDel.Enabled = False cmdAdd.Enabled = False Else With objRs .Fields(0).Value = Trim(txtOpID.Text) .Fields(1).Value = Trim(txtOpName.Text) .Fields(2).Value = Trim(txtOpPwd.Text) .Fields(3).Value = Trim(cboOpGrade.Text) .Update End With c

55、mdModify.Caption = 修改(xigi) cmdDel.Enabled = True cmdAdd.Enabled = True dgdOp.Enabled = True End IfEnd SubPrivate Sub cmdExit_Click() Unload MeEnd SubPrivate Sub cmdRefresh_Click() RefreshOperator Reference function is to Refresh textEnd SubPrivate Sub dgdOp_RowColChange(LastRow As Variant, ByVal La

56、stCol As Integer) If checkAddNew = True Then Exit Sub cmdRefresh.Value = TrueEnd SubPrivate Sub Form_Activate() FormMiddle frmAdmin Reference function to make form in MDIFormmddile cboOpGrade.ListIndex = 1 If ConnectToServer = True Then Set objRs = New ADODB.Recordset StrSql = select * from tOperato

57、rs GetData StrSql Reference function to get data Set dgdOp.DataSource = objRs cmdRefresh.Value = True End If End SubPrivate Sub txtOpAddTime_KeyPress(KeyAscii As Integer) CheckInputNum Reference function to check input If Not (KeyAscii = vbKey0 And KeyAscii = vbKey0 And KeyAscii 0 Then MsgBox This v

58、ip has been exist ! txtVipID.Text = txtVipID.SetFocus .Filter = cVipID cmdRefresh.Value = True checkAddNew = False cmdDel.Enabled = True cmdModify.Enabled = True cmdAdd.Caption = 添加(tin ji)(&A) txtVipID.Enabled = False cmdRefresh.Enabled = True dgdVip.Enabled = True checkAddNew = False Exit Sub End

59、If checkAddNew = True .AddNew .Fields(0).Value = Trim(txtVipID) .Fields(1).Value = Trim(txtVipName) .Fields(2) = vipsex .Fields(3) = Trim(txtVipID_card.Text) .Fields(4) = Trim(txtVipPhone.Text) .Fields(5) = Trim(txtVipAddress.Text) .Fields(6) = Trim(txtVipAddTime.Text) .Fields(7) = Trim(txtVipEndTim

60、e.Text) .Update MsgBox Vip add success !, vbInformation + vbOKOnly .Filter = cVipID cmdRefresh.Value = True End With checkAddNew = False cmdDel.Enabled = True cmdModify.Enabled = True cmdAdd.Caption = 添加(tin ji)(&A) txtVipID.Enabled = False cmdRefresh.Enabled = True dgdVip.Enabled = True End If End