vb圖書(shū)管理系統(tǒng)課程設(shè)計(jì)

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

2、，開(kāi)發(fā)一套完善的圖書(shū)管理系統(tǒng)就必不可少了，圖書(shū)管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS)，其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。經(jīng)過(guò)分析，使用 Microsoft公司的Visual Basic6.0為開(kāi)發(fā)工具，利用其提供的各種面向?qū)ο蟮目梢暬_(kāi)發(fā)平臺(tái)作為開(kāi)發(fā)工具，采用面向?qū)ο蠹夹g(shù)，圖形化的應(yīng)用開(kāi)發(fā)環(huán)境，尤其是它有一個(gè)功能極其強(qiáng)大的集成環(huán)境提供應(yīng)開(kāi)發(fā)人員，使得開(kāi)發(fā)人員可通過(guò)菜單、界面、圖形瀏覽工具、對(duì)話框以及嵌入的各種生成器來(lái)輕松地完成各種復(fù)雜的操作。開(kāi)發(fā)過(guò)程中不斷修正和改良，直到形成用戶滿意的可行系統(tǒng)。本文介紹了在Visual Basic6.0環(huán)境下采用"自

3、上而下地總體規(guī)劃，自下而上地應(yīng)用開(kāi)發(fā)"的策略開(kāi)發(fā)本系統(tǒng)的詳細(xì)過(guò)程，提出實(shí)現(xiàn)圖書(shū)信息管理、資源共享的基本目標(biāo)，從而推動(dòng)邁向數(shù)字化圖書(shū)館的步伐，并闡述系統(tǒng)結(jié)構(gòu)設(shè)計(jì)和功能設(shè)計(jì)，從圖書(shū)的入庫(kù)登記、借閱登記到查詢?yōu)g覽，形成了一個(gè)整體自動(dòng)化管理模式，從軟件工程的角度進(jìn)行了科學(xué)而嚴(yán)謹(jǐn)?shù)年U述。關(guān)鍵詞：圖書(shū)管理系統(tǒng)；借閱；瀏覽；編輯；Visual Basic 6.0一系統(tǒng)規(guī)劃1.1主要功能錄入、刪除、修改及查詢1.2模塊結(jié)構(gòu)劃分此功能分為幾個(gè)模塊讀者種類(lèi)信息：讀者基本信息書(shū)籍信息借書(shū)信息還書(shū)信息1.3建立如下E-R圖圖書(shū)管理系統(tǒng)基礎(chǔ)信息維護(hù)用戶信息用戶登錄退出更改密碼讀者管理讀者信息圖書(shū)管理圖書(shū)信息期

4、刊管理期刊信息查詢讀者查詢用戶借閱與借閱信息統(tǒng)計(jì)分析管理統(tǒng)計(jì)管理刷新添加刪除修改添加刷新修改書(shū)號(hào)書(shū)名作者出版社狀態(tài)二 系統(tǒng)界面的開(kāi)發(fā)2.1 用戶登錄用戶登錄界面 1、輸入賬號(hào)與密碼點(diǎn)擊“登錄” 直接登錄進(jìn)入管理界面。2、輸入賬號(hào)與密碼，點(diǎn)擊“注冊(cè)”，獲得新的賬號(hào)和密碼，然后點(diǎn)擊“登錄”即可進(jìn)入管理界面。2.2 用戶管理界面編輯圖書(shū)信息界面查詢圖書(shū)信息界面：三 系統(tǒng)的詳細(xì)設(shè)計(jì)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 "輸入有誤，請(qǐng)輸入正確的密碼和賬號(hào)！", vbCritical + vbOKOnly, "錯(cuò)誤"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 "注冊(cè)成功!", vbExclamation + vbOKOnly, "提示"End SubPrivate Sub Label1_Click()End Sub僅供參考3.2各功能代碼圖書(shū)信息的編輯：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圖書(shū)信息的查詢：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還書(shū)信息的編輯：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 =