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

...wd......wd......wd...成績評定表學(xué)生姓名閆靖羿班級學(xué)號1309010136專業(yè)信息與計算科學(xué)課程設(shè)計題目個人圖書音像管理系統(tǒng)評語組長簽字：成績?nèi)掌?015年月日課程設(shè)計任務(wù)書學(xué)院理學(xué)院專業(yè)信息與計算科學(xué)學(xué)生姓名閆靖羿班級學(xué)號1309010136課程設(shè)計題目個人圖書音像管理系統(tǒng)實踐教學(xué)要求與任務(wù):設(shè)計為MDI窗體，含有主菜單：[文件]、[圖書管理]、[音像管理]。[文件]菜單包含以下子菜單及其功能：[登陸]：登陸主界面[注冊]：翻開“注冊新用戶〞窗體[圖書管理]包含以下子菜單：[圖書信息瀏覽]：顯示圖書信息瀏覽和編輯窗體[圖書信息查詢]：顯示圖書信息查詢窗體[音像管理]包含以下子菜單：[音像信息瀏覽]：包含子菜單[光盤信息瀏覽]：顯示光盤信息瀏覽和編輯窗體[磁帶信息瀏覽]：顯示磁帶信息瀏覽和編輯窗體[音像信息查詢]：包含子菜單[光盤信息查詢]：顯示光盤信息查詢窗體[磁帶信息查詢]：顯示磁帶信息查詢窗體工作方案與進度安排:第一周：數(shù)據(jù)庫設(shè)計，利用SQLServer創(chuàng)立數(shù)據(jù)庫及數(shù)據(jù)表。總體構(gòu)造設(shè)計，設(shè)計調(diào)試系統(tǒng)首頁、登陸窗體及MDI窗體。第二周：管理功能設(shè)計，設(shè)計調(diào)試各種數(shù)據(jù)管理功能窗體及打印報表功能。撰寫課程設(shè)計報告，驗收與辯論。指導(dǎo)教師：2015年月日專業(yè)負(fù)責(zé)人：2015年月日學(xué)院教學(xué)副院長：2015年月日摘要本系統(tǒng)的主要功能是建設(shè)個人圖書音像管理系統(tǒng)，對圖書信息、光盤信息、磁帶信息的管理和查詢。本系統(tǒng)的數(shù)據(jù)庫是用SQLserver2014軟件進展創(chuàng)立與設(shè)計，分別包括圖書信息、光盤信息、磁帶信息、密碼四個表。通過系統(tǒng)ODBC數(shù)據(jù)源管理工具把已創(chuàng)立的數(shù)據(jù)源與系統(tǒng)數(shù)據(jù)庫相連。利用VB軟件對系統(tǒng)的窗口進展設(shè)計，包括登錄界面、注冊新用戶界面、主界面、瀏覽窗體和查詢窗體等，可以通過這些窗體進展登錄操作，對輸入的用戶信息進展驗證，和注冊新用戶操作，以及最重要的操作是對數(shù)據(jù)庫中信息進展修改與查詢。并可以對數(shù)據(jù)進展添加與刪除，做到及時更新。關(guān)鍵詞：個人圖書音像管理SQLserver2014VB6.0+目錄TOC\o"1-2"\u1系統(tǒng)功能概述51.1系統(tǒng)功能51.2系統(tǒng)構(gòu)造總圖62數(shù)據(jù)庫設(shè)計62.1需求分析62-1E-R模型72.3關(guān)系模型82.4表構(gòu)造設(shè)計83系統(tǒng)各功能模塊的詳細設(shè)計93.1各窗體的設(shè)計：93.2登錄窗體103.3MDI主窗體113.4注冊123.5圖書信息瀏覽143.6圖書信息查詢17總結(jié)19參考文獻201系統(tǒng)功能概述1.1系統(tǒng)功能個人圖書音像管理系統(tǒng)主要是實現(xiàn)圖書管理、光盤管理和磁帶管理。設(shè)計為MDI窗體，含有主菜單：[文件]、[圖書管理]、[音像管理]。[文件]菜單包含以下子菜單及其功能：[登陸]：登陸主界面[注冊]：翻開“注冊新用戶〞窗體[圖書管理]包含以下子菜單：[圖書信息瀏覽]：顯示圖書信息瀏覽和編輯窗體[圖書信息查詢]：顯示圖書信息查詢窗體[音像管理]包含以下子菜單：[音像信息瀏覽]：包含子菜單[光盤信息瀏覽]：顯示光盤信息瀏覽和編輯窗體[磁帶信息瀏覽]：顯示磁帶信息瀏覽和編輯窗體[音像信息查詢]：包含子菜單[光盤信息查詢]：顯示光盤信息查詢窗體[磁帶信息查詢]：顯示磁帶信息查詢窗體1.2系統(tǒng)構(gòu)造總圖個人圖書音像管理系統(tǒng)個人圖書音像管理系統(tǒng)文件圖書信息的瀏覽圖書信息的查詢音像信息的瀏覽音像信息的查詢圖書信息管理音像信息管理光盤信息的瀏覽磁帶信息的瀏覽光盤信息的查詢磁帶信息的查詢登錄注冊個人圖書音像管理系統(tǒng)總圖2數(shù)據(jù)庫設(shè)計2.1需求分析該系統(tǒng)主要實現(xiàn)對個人的大量的圖書音像資料進展標(biāo)準(zhǔn)化的管理，通過輔助數(shù)據(jù)庫的使用來完成一系列的功能。首先根據(jù)需要在數(shù)據(jù)庫中建設(shè)以下表：密碼表〔用戶名，密碼〕，圖書〔書名，作者，價格，購置日期，類別，狀態(tài)〕，光盤〔光盤名，出版社，價格，購置時間，類別，狀態(tài)〕，磁帶〔供磁帶名，磁帶作者，價格，購置時間，類別，狀態(tài)〕。啟動歡送窗體時顯示背景和歡送文字，點擊文字可以顯示MDI主控窗體，利用主控窗體管理所有圖書音像信息。主控窗體主要包含文件、圖書管理、音像管理和系統(tǒng)四個局部，起初只有文件和系統(tǒng)可用，圖書管理和音像管理兩局部不可用?！?〕翻開系統(tǒng)下的“登錄〞子菜單會翻開登錄界面，需要正確填寫用戶名和密碼才可以使用圖書管理和音像管理，假設(shè)3次輸入的用戶名或密碼有誤，系統(tǒng)關(guān)閉。從登錄界面點擊“注冊〞按鈕可以翻開注冊界面進展新用戶的注冊?！?〕圖書管理：主要包含對圖書信息的瀏覽、查詢、修改，瀏覽時顯示詳細信息可以逐條瀏覽，查詢可以根據(jù)圖書的不同屬性進展查詢，并且支持模糊查詢，查詢完可以統(tǒng)計查詢到記錄的數(shù)量可總價格，修改包括單個記錄的添加、刪除以及屬性的修改?！?〕音像管理：包括音像信息的瀏覽、查詢和修改。音像信息的瀏覽分為光盤信息的瀏覽和磁帶信息的瀏覽；音像信息的查詢分為光盤信息的查詢和磁帶信息的查詢，查詢時都可以進展模糊查詢；修改同樣包含光盤信息的修改和磁帶信息的修改。2-1E-R模型統(tǒng)中主要包含4個實體：密碼表、圖書信息、光盤信息和磁帶信息。由于所有的實體之間不存在明顯的聯(lián)系，所以在這里只給出了單個實體及其屬性圖，沒有完整的實體聯(lián)系圖。單個實體及其屬性圖如下：密碼表用戶名密碼表用戶名密碼圖書信息類別購置日期狀態(tài)作者書名價格圖a：密碼表及其屬性圖圖b：圖書實體及其屬性圖磁帶信息購置時間類別狀態(tài)磁帶信息購置時間類別狀態(tài)磁帶作者磁帶名價格光盤信息出版社購置時間光盤名價格類別狀態(tài)2.3關(guān)系模型〔1〕密碼表〔用戶名，密碼〕〔2〕圖書信息〔書名，作者，價格，購置日期，類別，狀態(tài)〕〔3〕光盤信息〔光盤名，出版社，價格，購置時間，類別，狀態(tài)〕〔4〕磁帶信息〔磁帶名，磁帶作者，價格，購置時間，類別，狀態(tài)〕2.4表構(gòu)造設(shè)計啟動SQLServer2000建設(shè)數(shù)據(jù)庫課程設(shè)計，在該數(shù)據(jù)庫中，用可視化的方法進展建表，要建的表有密碼表、圖書信息、光盤信息和磁帶信息四個表，所建各表的表信息如下：表1：密碼表：表2：圖書信息：表3：光盤信息：表4：磁帶信息：3系統(tǒng)各功能模塊的詳細設(shè)計3.1各窗體的設(shè)計：個人圖書音像管理系統(tǒng)分為登錄，注冊新用戶，圖書信息查詢，音像信息查詢MDI窗體等。其中主窗體為MDI窗體。下面介紹各個窗體的設(shè)計語句及實現(xiàn)功能。3.2登錄窗體翻開登錄界面后，輸入用戶名和密碼，點擊登陸按鈕，進入MDI主窗體，如以下列圖所示PrivateSubCommand1_Click()StaticmiCountAsIntegerDimsqlstrAsStringsqlstr="Select*from密碼表Where用戶名='"&Text1&"'"Adodc1.RecordSource=sqlstrAdodc1.RefreshIfAdodc1.Recordset.BOFThenMsgBox"用戶名錯誤,請重新輸入",vbExclamation,"警告"Text1.Text="":Text1.SetFocusElseIfAdodc1.Recordset.Fields("密碼")=Text2.TextThenMDIForm1.ShowUnloadMeElseMsgBox"密碼錯誤，請重新輸入",vbExclamation,"警告"Text2.Text="":Text2.SetFocusEndIfEndIfmiCount=miCount+1IfmiCount=3ThenUnloadMeEndSubPrivateSubCommand2_Click()Form2.ShowUnloadMeEndSubPrivateSubForm_Load()EndSub3.3MDI主窗體設(shè)計為MDI窗體，含有主菜單：[文件]、[圖書管理]、[音像管理]OptionExplicitPrivateSubMDIForm_Load()EndSubPrivateSub磁帶信息的查詢_Click()Form8.ShowEndSubPrivateSub磁帶信息的瀏覽_Click()Form6.ShowEndSubPrivateSub登錄_Click()Form1.ShowEndSubPrivateSub光盤信息的查詢_Click()Form7.ShowEndSubPrivateSub光盤信息的瀏覽_Click()Form5.ShowEndSubPrivateSub圖書信息查詢_Click()Form4.ShowEndSubPrivateSub圖書信息瀏覽_Click()Form3.ShowEndSubPrivateSub注冊_Click()Form2.ShowEndSub3.4注冊在上面主窗體點擊菜單文件下的注冊，進入注冊界面，輸入用戶名、密碼、再次輸入密碼確認(rèn)，注冊成功。如以下列圖所示PrivateSubCommand1_Click()DimsqlstrAsStringIfText1=""ThenMsgBox"請輸入用戶名！",vbExclamation,"確認(rèn)用戶名"Text1.SetFocusExitSubElsesqlstr="Select*from密碼表where用戶名='"&Text1&"'"Adodc1.RecordSource=sqlstrAdodc1.RefreshIfAdodc1.Recordset.EOF=FalseThenMsgBox"用戶名已存在，請重新輸入！",vbExclamation,"檢驗用戶名"Text1=""Text1.SetFocusExitSubEndIfEndIf'判斷二次輸入密碼是否一致：IfText2<>Text3ThenMsgBox"二次輸入的密碼不一致，請重新輸入",vbExclamation,"檢驗密碼"Text2="":Text3=""Text2.SetFocusExitSubElseIfText2=""ThenMsgBox"密碼不能為空！",vbExclamation,"檢驗密碼"Text2.SetFocusElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("用戶名")=Trim(Text1)Adodc1.Recordset.Fields("密碼")=Trim(Text2)Adodc1.Recordset.UpdateMe.HideMsgBox"成功注冊新用戶！",vbInformation,"添加用戶"EndIfEndSubPrivateSubCommand2_Click()'單擊取消按鈕UnloadMeEndSubPrivateSubForm_Load()EndSub3.5圖書信息瀏覽點擊MDI主窗體的管理社保信息菜單下的圖書信息，出現(xiàn)圖書信息瀏覽界面，可以進展增加，刪除，修改，前移后移等功能。如以下列圖所示PrivateSubCmdFirst_Click()Adodc1.Recordset.MoveFirstCmdFirst.Enabled=FalseCmdPre.Enabled=FalseCmdNext.Enabled=TrueCmdLast.Enabled=TrueLabel7.Caption="記錄："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdPre_Click()Adodc1.Recordset.MovePreviousCmdNext.Enabled=TrueCmdLast.Enabled=TrueIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirstCmdFirst.Enabled=FalseCmdPre.Enabled=FalseEndIfLabel7.Caption="記錄："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdNext_Click()Adodc1.Recordset.MoveNextCmdFirst.Enabled=TrueCmdPre.Enabled=TrueIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastCmdNext.Enabled=FalseCmdLast.Enabled=FalseEndIfLabel7.Caption="記錄："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdLast_Click()Adodc1.Recordset.MoveLastCmdFirst.Enabled=TrueCmdPre.Enabled=TrueCmdNext.Enabled=FalseCmdLast.Enabled=FalseLabel7.Caption="記錄："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdN_Click()DimnAsIntegern=Text7.TextAdodc1.Recordset.MovenLabel7.Caption="記錄："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubForm1_Load()CmdFirst.Enabled=FalseCmdPre.Enabled=FalseCmdNext.Enabled=TrueCmdLast.Enabled=TrueLabel7.Caption="記錄："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdAdd_Click()Adodc1.Recordset.AddNewCmdAdd.Enabled=FalseCmdDel.Enabled=FalseCmdOk.Enabled=TrueCmdEsc.Enabled=TrueEndSubPrivateSubCmdDel_Click()x=MsgBox("確實要刪除當(dāng)前記錄嗎",vbYesNo+vbQuestion,"確認(rèn)")Ifx=vbYesThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfElseAdodc1.RefreshEndIfEndSubPrivateSubCmdOk_Click()Adodc1.Recordset.UpdateCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseEndSubPrivateSubCmdEsc_Click()Adodc1.RefreshCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseEndSubPrivateSubForm_Load()EndSub光盤信息瀏覽界面由于光盤信息的瀏覽和圖書信息的瀏覽及其類似，所以在這里不再贅述。磁帶信息瀏覽界面和圖書瀏覽的功能和界面都類似，所以也不再給出。3.6圖書信息查詢點擊MDI主窗體的圖書信息菜單下的圖書信息查詢?nèi)缫韵铝袌D所示，可以進展單條件查詢PrivateSubCommand