1、VB課程設計報告題目：圖書管理系統學院：信息工程學院專業：信息工程信息安全方向班級：1132101：賴玉蕾學號: 201130210102指導老師：魏樹權目 錄摘要關鍵字一 系統規劃1.1系統功能描述1.2功能模塊劃分1.3 E-R圖二 系統界面的開發2.1登錄界面2.2用戶管理界面三 系統的詳細設計3.1登錄界面代碼3.2各功能代碼四 心得體會及認識致謝摘要隨著人類社會的發展，人類對知識的需求也不斷地增長。在這種形勢下，書籍就漸漸地成為人們獲取并增長知識的主要途徑，而圖書館就自然而然地在人們的生活中占據了一定的位置。如何科學地管理圖書館不但關系到讀者求知的方便程度，也關系到繪本館的發展，因此

2、，開發一套完善的圖書管理系統就必不可少了，圖書管理系統是典型的信息管理系統(MIS)，其開發主要包括后臺數據庫的建立和維護以及前端應用程序的開發兩個方面。經過分析，使用 Microsoft公司的Visual Basic6.0為開發工具，利用其提供的各種面向對象的可視化開發平臺作為開發工具，采用面向對象技術，圖形化的應用開發環境，尤其是它有一個功能極其強大的集成環境提供應開發人員，使得開發人員可通過菜單、界面、圖形瀏覽工具、對話框以及嵌入的各種生成器來輕松地完成各種復雜的操作。開發過程中不斷修正和改良，直到形成用戶滿意的可行系統。本文介紹了在Visual Basic6.0環境下采用"自

3、上而下地總體規劃，自下而上地應用開發"的策略開發本系統的詳細過程，提出實現圖書信息管理、資源共享的基本目標，從而推動邁向數字化圖書館的步伐，并闡述系統結構設計和功能設計，從圖書的入庫登記、借閱登記到查詢瀏覽，形成了一個整體自動化管理模式，從軟件工程的角度進行了科學而嚴謹的闡述。關鍵詞：圖書管理系統；借閱；瀏覽；編輯；Visual Basic 6.0一系統規劃1.1主要功能錄入、刪除、修改及查詢1.2模塊結構劃分此功能分為幾個模塊讀者種類信息：讀者基本信息書籍信息借書信息還書信息1.3建立如下E-R圖圖書管理系統基礎信息維護用戶信息用戶登錄退出更改密碼讀者管理讀者信息圖書管理圖書信息期

4、刊管理期刊信息查詢讀者查詢用戶借閱與借閱信息統計分析管理統計管理刷新添加刪除修改添加刷新修改書號書名作者出版社狀態二 系統界面的開發2.1 用戶登錄用戶登錄界面 1、輸入賬號與密碼點擊“登錄” 直接登錄進入管理界面。2、輸入賬號與密碼，點擊“注冊”，獲得新的賬號和密碼，然后點擊“登錄”即可進入管理界面。2.2 用戶管理界面編輯圖書信息界面查詢圖書信息界面：三 系統的詳細設計3.1登錄界面代碼Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim flag As Bool

5、eanDim cn_str As String, sql_str As Stringcn_str = "DRIVER=SQL SERVER;SERVER=WTOLSDRD7SHRABT;DATABASE=library"cn.Open cn_strsql_str = "select * from userinfo"rs.Open sql_str, cnWhile Not rs.EOFIf Text1.Text = Trim(rs(0) And Text2.Text = Trim(rs(1) Thenflag = TrueForm2.ShowExit Su

6、bElsers.MoveNextflag = FalseEnd IfWendIf flag = False ThenMsgBox "輸入有誤，請輸入正確的密碼和賬號！", vbCritical + vbOKOnly, "錯誤"rs.CloseEnd IfEnd SubPrivate Sub Command2_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim flag As BooleanDim cn_str As String, sql_str As Stringc

7、n_str = "DRIVER=SQL SERVER;SERVER=WTOLSDRD7SHRABT;DATABASE=library"cn.Open cn_strsql_str = "select *from userinfo"rs.Open sql_str, cn, adOpenDynamic, adLockOptimisticrs.AddNewrs("username") = Trim(Text1.Text)rs("userpassword") = Trim(Text2.Text)rs.Updaters.Clo

8、seMsgBox "注冊成功!", vbExclamation + vbOKOnly, "提示"End SubPrivate Sub Label1_Click()End Sub僅供參考3.2各功能代碼圖書信息的編輯：Private Sub Command1_Click()Adodc1.Recordset.AddNewAdodc1.RefreshMsgBox "錄入信息成功!", vbExclamation + vbOKOnly, "提示"End SubPrivate Sub Command2_Click()Adod

9、c1.Recordset.DeleteAdodc1.RefreshMsgBox "刪除信息成功!", vbExclamation + vbOKOnly, "提示"End SubPrivate Sub Command3_Click()Adodc1.Recordset.UpdateAdodc1.RefreshMsgBox "修改信息成功!", vbExclamation + vbOKOnly, "提示"End SubPrivate Sub Command4_Click()Text1.Text = ""

10、;Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text8.Text = ""End Sub圖書信息的查詢：Private Sub Command1_Click()Adodc1.RecordSource = " select * from bookinfo where book_id='" &am

11、p; Trim(Text1) & " ' "Adodc1.RefreshEnd Sub借閱信息的編輯：Private Sub Command1_Click()Adodc1.Recordset.AddNewAdodc1.RefreshMsgBox "錄入信息成功!", vbExclamation + vbOKOnly, "提示"End SubPrivate Sub Command2_Click()Adodc1.Recordset.UpdateAdodc1.RefreshMsgBox "修改信息成功!"

12、, vbExclamation + vbOKOnly, "提示"End SubPrivate Sub Command3_Click()Adodc1.Recordset.DeleteAdodc1.RefreshMsgBox "刪除信息成功!", vbExclamation + vbOKOnly, "提示"End SubPrivate Sub Command4_Click()text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Te

13、xt = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text8.Text = ""End Sub僅供參考借閱信息的查詢：僅供參考Private Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.T

14、ext = ""Text7.Text = ""Text8.Text = ""End SubPrivate Sub Command1_Click()Adodc1.RecordSource = " select * from personinfo where card_number='" & Trim(Text1) & " ' "Adodc1.RefreshEnd Sub還書信息的編輯：Private Sub Command1_Click()Adodc1.Recordset.AddNewAdodc1.RefreshMsgBox "登記信息成功!", vbExclamation + vbOKOnly, "提示"End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text =