個(gè)人圖書館音像管理系統(tǒng)

1、成 績(jī) 評(píng) 定 表學(xué)生姓名閆靖羿班級(jí)學(xué)號(hào)1309010136專 業(yè)信息與計(jì)算科學(xué)課程設(shè)計(jì)題目個(gè)人圖書音像管理系統(tǒng)評(píng)語(yǔ)組長(zhǎng)簽字：成績(jī)?nèi)掌?015 年 月 日課程設(shè)計(jì)任務(wù)書學(xué) 院理學(xué)院專 業(yè)信息與計(jì)算科學(xué)學(xué)生姓名閆靖羿班級(jí)學(xué)號(hào)1309010136課程設(shè)計(jì)題目個(gè)人圖書音像管理系統(tǒng)實(shí)踐教學(xué)要求與任務(wù): 設(shè)計(jì)為MDI窗體，含有主菜單：文件、圖書管理、音像管理。文件菜單包含以下子菜單及其功能：登陸：登陸主界面注冊(cè)：打開(kāi)“注冊(cè)新用戶”窗體圖書管理 包含以下子菜單：圖書信息瀏覽：顯示圖書信息瀏覽和編輯窗體圖書信息查詢：顯示圖書信息查詢窗體音像管理 包含以下子菜單：音像信息瀏覽：包含子菜單 光盤信息瀏覽：顯示光

2、盤信息瀏覽和編輯窗體 磁帶信息瀏覽：顯示磁帶信息瀏覽和編輯窗體音像信息查詢：包含子菜單 光盤信息查詢：顯示光盤信息查詢窗體 磁帶信息查詢：顯示磁帶信息查詢窗體工作計(jì)劃與進(jìn)度安排:第一周：數(shù)據(jù)庫(kù)設(shè)計(jì)，利用SQL Server創(chuàng)建數(shù)據(jù)庫(kù)及數(shù)據(jù)表。 總體結(jié)構(gòu)設(shè)計(jì)，設(shè)計(jì)調(diào)試系統(tǒng)首頁(yè)、登陸窗體及MDI窗體。第二周：管理功能設(shè)計(jì)，設(shè)計(jì)調(diào)試各種數(shù)據(jù)管理功能窗體及打印報(bào)表功能。 撰寫課程設(shè)計(jì)報(bào)告，驗(yàn)收與答辯。指導(dǎo)教師： 2015年 月 日專業(yè)負(fù)責(zé)人：2015年 月 日學(xué)院教學(xué)副院長(zhǎng)：2015 年 月 日摘 要本系統(tǒng)的主要功能是建立個(gè)人圖書音像管理系統(tǒng)，對(duì)圖書信息、光盤信息、磁帶信息的管理和查詢。本系統(tǒng)的數(shù)據(jù)庫(kù)

3、是用SQL server 2014軟件進(jìn)行創(chuàng)建與設(shè)計(jì)，分別包括圖書信息、光盤信息、磁帶信息、密碼四個(gè)表。通過(guò)系統(tǒng)ODBC數(shù)據(jù)源管理工具把已創(chuàng)建的數(shù)據(jù)源與系統(tǒng)數(shù)據(jù)庫(kù)相連。利用VB軟件對(duì)系統(tǒng)的窗口進(jìn)行設(shè)計(jì)，包括登錄界面、注冊(cè)新用戶界面、主界面、瀏覽窗體和查詢窗體等，可以通過(guò)這些窗體進(jìn)行登錄操作，對(duì)輸入的用戶信息進(jìn)行驗(yàn)證，和注冊(cè)新用戶操作，以及最重要的操作是對(duì)數(shù)據(jù)庫(kù)中信息進(jìn)行修改與查詢。并可以對(duì)數(shù)據(jù)進(jìn)行添加與刪除，做到及時(shí)更新。 關(guān)鍵詞： 個(gè)人圖書音像管理 SQL server 2014 VB6.0+目 錄1 系統(tǒng)功能概述51.1 系統(tǒng)功能51.2 系統(tǒng)結(jié)構(gòu)總圖62 數(shù)據(jù)庫(kù)設(shè)計(jì)62.1 需求分析62

4、-1E-R模型72.3 關(guān)系模型82.4 表結(jié)構(gòu)設(shè)計(jì)83 系統(tǒng)各功能模塊的詳細(xì)設(shè)計(jì)93.1 各窗體的設(shè)計(jì)：93.2登錄窗體103.3MDI主窗體113.4注冊(cè)123.5圖書信息瀏覽143.6圖書信息查詢17總 結(jié)19參考文獻(xiàn)201 系統(tǒng)功能概述1.1 系統(tǒng)功能個(gè)人圖書音像管理系統(tǒng)主要是實(shí)現(xiàn)圖書管理、光盤管理和磁帶管理。設(shè)計(jì)為MDI窗體，含有主菜單：文件、圖書管理、音像管理。文件菜單包含以下子菜單及其功能：登陸：登陸主界面注冊(cè)：打開(kāi)“注冊(cè)新用戶”窗體圖書管理 包含以下子菜單：圖書信息瀏覽：顯示圖書信息瀏覽和編輯窗體圖書信息查詢：顯示圖書信息查詢窗體音像管理 包含以下子菜單：音像信息瀏覽：包含子菜

5、單 光盤信息瀏覽：顯示光盤信息瀏覽和編輯窗體 磁帶信息瀏覽：顯示磁帶信息瀏覽和編輯窗體音像信息查詢：包含子菜單 光盤信息查詢：顯示光盤信息查詢窗體 磁帶信息查詢：顯示磁帶信息查詢窗體1.2 系統(tǒng)結(jié)構(gòu)總圖個(gè)人圖書音像管理系統(tǒng)文件圖書信息的瀏覽圖書信息的查詢音像信息的瀏覽音像信息的查詢圖書信息管理音像信息管理光盤信息的瀏覽磁帶信息的瀏覽光盤信息的查詢磁帶信息的查詢登錄注冊(cè)個(gè)人圖書音像管理系統(tǒng)總圖2 數(shù)據(jù)庫(kù)設(shè)計(jì)2.1 需求分析該系統(tǒng)主要實(shí)現(xiàn)對(duì)個(gè)人的大量的圖書音像資料進(jìn)行規(guī)范化的管理，通過(guò)輔助數(shù)據(jù)庫(kù)的使用來(lái)完成一系列的功能。首先根據(jù)需要在數(shù)據(jù)庫(kù)中建立以下表：密碼表（用戶名，密碼），圖書（書名，作者，價(jià)

6、格，購(gòu)買日期，類別，狀態(tài)），光盤（光盤名，出版社，價(jià)格，購(gòu)買時(shí)間，類別，狀態(tài)），磁帶（供磁帶名，磁帶作者，價(jià)格，購(gòu)買時(shí)間，類別，狀態(tài)）。啟動(dòng)歡迎窗體時(shí)顯示背景和歡迎文字，點(diǎn)擊文字可以顯示MDI主控窗體，利用主控窗體管理所有圖書音像信息。主控窗體主要包含文件、圖書管理、音像管理和系統(tǒng)四個(gè)部分，起初只有文件和系統(tǒng)可用，圖書管理和音像管理兩部分不可用。（1）打開(kāi)系統(tǒng)下的“登錄”子菜單會(huì)打開(kāi)登錄界面，需要正確填寫用戶名和密碼才可以使用圖書管理和音像管理，假如3次輸入的用戶名或密碼有誤，系統(tǒng)關(guān)閉。從登錄界面點(diǎn)擊“注冊(cè)”按鈕可以打開(kāi)注冊(cè)界面進(jìn)行新用戶的注冊(cè)。（2）圖書管理：主要包含對(duì)圖書信息的瀏覽、查詢、

7、修改，瀏覽時(shí)顯示詳細(xì)信息可以逐條瀏覽，查詢可以根據(jù)圖書的不同屬性進(jìn)行查詢，并且支持模糊查詢，查詢完可以統(tǒng)計(jì)查詢到記錄的數(shù)量可總價(jià)格，修改包括單個(gè)記錄的添加、刪除以及屬性的修改。（3）音像管理：包括音像信息的瀏覽、查詢和修改。音像信息的瀏覽分為光盤信息的瀏覽和磁帶信息的瀏覽；音像信息的查詢分為光盤信息的查詢和磁帶信息的查詢，查詢時(shí)都可以進(jìn)行模糊查詢；修改同樣包含光盤信息的修改和磁帶信息的修改。2-1E-R模型 統(tǒng)中主要包含4個(gè)實(shí)體：密碼表、圖書信息、光盤信息和磁帶信息。由于所有的實(shí)體之間不存在明顯的聯(lián)系，所以在這里只給出了單個(gè)實(shí)體及其屬性圖，沒(méi)有完整的實(shí)體聯(lián)系圖。單個(gè)實(shí)體及其屬性圖如下：密碼表用

8、戶名密碼 圖書信息類別購(gòu)買日期狀態(tài)作者書名價(jià)格圖a：密碼表及其屬性圖 圖b：圖書實(shí)體及其屬性圖磁帶信息購(gòu)買時(shí)間類別狀態(tài)磁帶作者磁帶名價(jià)格圖c：光盤實(shí)體及其屬性圖光盤信息出版社購(gòu)買時(shí)間光盤名價(jià)格類別狀態(tài) 圖d：磁帶實(shí)體及其屬性圖2.3 關(guān)系模型（1）密碼表（用戶名，密碼）（2）圖書信息（書名，作者，價(jià)格，購(gòu)買日期，類別，狀態(tài)）（3）光盤信息（光盤名，出版社，價(jià)格，購(gòu)買時(shí)間，類別，狀態(tài)）（4）磁帶信息（磁帶名，磁帶作者，價(jià)格，購(gòu)買時(shí)間，類別，狀態(tài)）2.4 表結(jié)構(gòu)設(shè)計(jì)啟動(dòng)SQL Server 2000建立數(shù)據(jù)庫(kù)課程設(shè)計(jì)，在該數(shù)據(jù)庫(kù)中，用可視化的方法進(jìn)行建表，要建的表有密碼表、圖書信息、光盤信息和磁帶

9、信息四個(gè)表，所建各表的表信息如下：表1：密碼表：表2：圖書信息：表3：光盤信息：表4：磁帶信息：3 系統(tǒng)各功能模塊的詳細(xì)設(shè)計(jì)3.1 各窗體的設(shè)計(jì)：個(gè)人圖書音像管理系統(tǒng)分為登錄，注冊(cè)新用戶，圖書信息查詢，音像信息查詢MDI窗體等。其中主窗體為MDI窗體。下面介紹各個(gè)窗體的設(shè)計(jì)語(yǔ)句及實(shí)現(xiàn)功能。3.2登錄窗體打開(kāi)登錄界面后，輸入用戶名和密碼，點(diǎn)擊登陸按鈕，進(jìn)入MDI主窗體，如下圖所示Private Sub Command1_Click()Static miCount As IntegerDim sqlstr As Stringsqlstr = Select * from 密碼表 Where 用戶名=

10、 & Text1 & Adodc1.RecordSource = sqlstrAdodc1.RefreshIf Adodc1.Recordset.BOF Then MsgBox 用戶名錯(cuò)誤,請(qǐng)重新輸入 , vbExclamation, 警告 Text1.Text = : Text1.SetFocusElse If Adodc1.Recordset.Fields(密碼) = Text2.Text Then MDIForm1.Show Unload Me Else MsgBox 密碼錯(cuò)誤，請(qǐng)重新輸入 , vbExclamation, 警告 Text2.Text = : Text2.SetFocus

11、 End IfEnd IfmiCount = miCount + 1If miCount = 3 Then Unload MeEnd SubPrivate Sub Command2_Click()Form2.ShowUnload MeEnd SubPrivate Sub Form_Load()End Sub3.3MDI主窗體設(shè)計(jì)為MDI窗體，含有主菜單：文件、圖書管理、音像管理Option ExplicitPrivate Sub MDIForm_Load()End SubPrivate Sub 磁帶信息的查詢_Click()Form8.ShowEnd SubPrivate Sub 磁帶信息的瀏

12、覽_Click()Form6.ShowEnd SubPrivate Sub 登錄_Click()Form1.ShowEnd SubPrivate Sub 光盤信息的查詢_Click()Form7.ShowEnd SubPrivate Sub 光盤信息的瀏覽_Click()Form5.ShowEnd SubPrivate Sub 圖書信息查詢_Click()Form4.ShowEnd SubPrivate Sub 圖書信息瀏覽_Click()Form3.ShowEnd SubPrivate Sub 注冊(cè)_Click()Form2.ShowEnd Sub3.4注冊(cè)在上面主窗體點(diǎn)擊菜單文件下的注冊(cè)，

13、進(jìn)入注冊(cè)界面，輸入用戶名、密碼、再次輸入密碼確認(rèn)，注冊(cè)成功。如下圖所示Private Sub Command1_Click()Dim sqlstr As StringIf Text1 = Then MsgBox 請(qǐng)輸入用戶名！, vbExclamation, 確認(rèn)用戶名 Text1.SetFocus Exit SubElse sqlstr = Select * from 密碼表 where 用戶名= & Text1 & Adodc1.RecordSource = sqlstr Adodc1.Refresh If Adodc1.Recordset.EOF = False Then MsgBox

14、用戶名已存在，請(qǐng)重新輸入！, vbExclamation, 檢驗(yàn)用戶名 Text1 = Text1.SetFocus Exit Sub End IfEnd If判斷二次輸入密碼是否一致：If Text2 Text3 Then MsgBox 二次輸入的密碼不一致，請(qǐng)重新輸入, vbExclamation, 檢驗(yàn)密碼 Text2 = : Text3 = Text2.SetFocus Exit SubElseIf Text2 = Then MsgBox 密碼不能為空！, vbExclamation, 檢驗(yàn)密碼 Text2.SetFocusElse Adodc1.Recordset.Fields(用戶

15、名) = Trim(Text1) Adodc1.Recordset.Fields(密碼) = Trim(Text2) Me.Hide MsgBox 成功注冊(cè)新用戶！, vbInformation, 添加用戶End IfEnd SubPrivate Sub Command2_Click() 單擊取消按鈕Unload MeEnd SubPrivate Sub Form_Load()End Sub3.5圖書信息瀏覽 點(diǎn)擊MDI主窗體的管理社保信息菜單下的圖書信息，出現(xiàn)圖書信息瀏覽界面，可以進(jìn)行增加，刪除，修改，前移后移等功能。如下圖所示Private Sub CmdFirst_Click()CmdF

16、irst.Enabled = FalseCmdPre.Enabled = FalseCmdNext.Enabled = TrueCmdLast.Enabled = TrueLabel7.Caption = 記錄：End SubPrivate Sub CmdPre_Click()CmdNext.Enabled = TrueCmdLast.Enabled = TrueIf Adodc1.Recordset.BOF ThenCmdFirst.Enabled = FalseCmdPre.Enabled = FalseEnd IfLabel7.Caption = 記錄：End SubPrivate Su

17、b CmdNext_Click()CmdFirst.Enabled = TrueCmdPre.Enabled = TrueIf Adodc1.Recordset.EOF ThenCmdNext.Enabled = FalseCmdLast.Enabled = FalseEnd IfLabel7.Caption = 記錄：End SubPrivate Sub CmdLast_Click()CmdFirst.Enabled = TrueCmdPre.Enabled = TrueCmdNext.Enabled = FalseCmdLast.Enabled = FalseLabel7.Caption

18、= 記錄：End SubPrivate Sub CmdN_Click()Dim n As Integern = Text7.TextAdodc1.Recordset.Move nLabel7.Caption = 記錄：End SubPrivate Sub Form1_Load()CmdFirst.Enabled = FalseCmdPre.Enabled = FalseCmdNext.Enabled = TrueCmdLast.Enabled = TrueLabel7.Caption = 記錄：End SubPrivate Sub CmdAdd_Click()CmdAdd.Enabled =

19、FalseCmdDel.Enabled = FalseCmdOk.Enabled = TrueCmdEsc.Enabled = TrueEnd SubPrivate Sub CmdDel_Click()x = MsgBox(確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？, vbYesNo + vbQuestion, 確認(rèn))If x = vbYes Then If Adodc1.Recordset.EOF Then End IfElse Adodc1.RefreshEnd IfEnd SubPrivate Sub CmdOk_Click()CmdAdd.Enabled = TrueCmdDel.Enabled = Tr

20、ueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd SubPrivate Sub CmdEsc_Click()Adodc1.RefreshCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd SubPrivate Sub Form_Load()End Sub光盤信息瀏覽界面由于光盤信息的瀏覽和圖書信息的瀏覽及其類似，所以在這里不再贅述。磁帶信息瀏覽界面和圖書瀏覽的功能和界面都類似，所以也不再給出。3.6圖書信息查詢點(diǎn)擊MDI主窗體的圖書信息菜單下的圖書信息查詢 如下圖所示，可以進(jìn)行單條件查詢Private Sub Command1_Click()Dim str As Stringstr = Select * From 圖書信息 Where 書名= & Text1 & Adodc1.RecordSource = strAdodc1.