成績評定表學生姓名閆靖羿班級學號13090１0１36專業信息與計算科學課程設計題目個人圖書音像管理系統評語組長簽字：成績日期2015年月日課程設計任務書學院理學院專業信息與計算科學學生姓名閆靖羿班級學號13０9010136課程設計題目個人圖書音像管理系統實踐教學要求與任務：設計為MDI窗體，含有主菜單:［文件]、［圖書管理］、[音像管理].[文件］菜單包含以下子菜單及其功能：[登陸］:登陸主界面[注冊]:打開“注冊新用戶”窗體[圖書管理]包含以下子菜單：[圖書信息瀏覽］：顯示圖書信息瀏覽與編輯窗體［圖書信息查詢]:顯示圖書信息查詢窗體[音像管理］包含以下子菜單:［音像信息瀏覽］:包含子菜單[光盤信息瀏覽]:顯示光盤信息瀏覽與編輯窗體[磁帶信息瀏覽]：顯示磁帶信息瀏覽與編輯窗體[音像信息查詢]:包含子菜單［光盤信息查詢］：顯示光盤信息查詢窗體［磁帶信息查詢]：顯示磁帶信息查詢窗體工作計劃與進度安排：第一周：數據庫設計,利用SQLＳｅrver創建數據庫及數據表。總體結構設計,設計調試系統首頁、登陸窗體及MＤI窗體。第二周:管理功能設計,設計調試各種數據管理功能窗體及打印報表功能。撰寫課程設計報告,驗收與答辯。指導教師:2０15年月日專業負責人：２０15年月日學院教學副院長：20１5年月日摘要本系統得主要功能就是建立個人圖書音像管理系統，對圖書信息、光盤信息、磁帶信息得管理與查詢.本系統得數據庫就是用SＱＬsｅrveｒ2０14軟件進行創建與設計，分別包括圖書信息、光盤信息、磁帶信息、密碼四個表.通過系統ODＢC數據源管理工具把已創建得數據源與系統數據庫相連。利用ＶB軟件對系統得窗口進行設計，包括登錄界面、注冊新用戶界面、主界面、瀏覽窗體與查詢窗體等，可以通過這些窗體進行登錄操作,對輸入得用戶信息進行驗證，與注冊新用戶操作,以及最重要得操作就是對數據庫中信息進行修改與查詢.并可以對數據進行添加與刪除，做到及時更新。關鍵詞：個人圖書音像管理ＳQLsｅrvｅr2０14VB6、０+目錄TOC＼o”1－２"＼u1系統功能概述?PAＧERＥF_Toｃ438138095＼h51、1系統功能 １３8096\h5１、2系統結構總圖 PAGＥREF_Toc4３８１38097\ｈ62數據庫設計?PＡＧEREF_Toc43８1３8098\h6２、1需求分析?PAGＥRＥF_Toｃ438138099\h６２-1E－R模型?PＡGEREＦ_Ｔoｃ43813810０\ｈ72、３關系模型 PAGERＥＦ＿Toc4３813810１\h８２、4表結構設計?PAGＥREF＿Toｃ4381３8１02＼h８3系統各功能模塊得詳細設計?１３8103\ｈ93、１各窗體得設計：?PAＧEREF_Ｔoｃ4381３８１0４\ｈ93、2登錄窗體 PAGEREF＿Ｔoｃ4381381０5＼ｈ１03、３ＭDＩ主窗體?PAGEＲEF＿Ｔoｃ43813８１０６＼h113、４注冊?PAGEREF_Tｏc４381381０7\h1２3、5圖書信息瀏覽 ＰＡGEREF_Toc43８13８１08\h１４3、６圖書信息查詢 PAGEＲEF_Ｔoｃ43８138109\h17總結 ＰAGＥREF＿Toｃ4381381１0\ｈ１9參考文獻?ＰAGＥREF＿Tｏc438138１11\h2０1系統功能概述1、1系統功能個人圖書音像管理系統主要就是實現圖書管理、光盤管理與磁帶管理。設計為MDI窗體,含有主菜單:［文件]、［圖書管理］、［音像管理]。［文件］菜單包含以下子菜單及其功能：[登陸]：登陸主界面[注冊］：打開“注冊新用戶”窗體［圖書管理]包含以下子菜單：［圖書信息瀏覽]：顯示圖書信息瀏覽與編輯窗體[圖書信息查詢]:顯示圖書信息查詢窗體［音像管理］包含以下子菜單:［音像信息瀏覽］:包含子菜單[光盤信息瀏覽]：顯示光盤信息瀏覽與編輯窗體［磁帶信息瀏覽］：顯示磁帶信息瀏覽與編輯窗體［音像信息查詢]:包含子菜單［光盤信息查詢］：顯示光盤信息查詢窗體［磁帶信息查詢]：顯示磁帶信息查詢窗體1、２系統結構總圖個人圖書音像管理系統個人圖書音像管理系統文件圖書信息得瀏覽圖書信息得查詢音像信息得瀏覽音像信息得查詢圖書信息管理音像信息管理光盤信息得瀏覽磁帶信息得瀏覽光盤信息得查詢磁帶信息得查詢登錄注冊個人圖書音像管理系統總圖2數據庫設計2、1需求分析該系統主要實現對個人得大量得圖書音像資料進行規范化得管理,通過輔助數據庫得使用來完成一系列得功能。首先根據需要在數據庫中建立以下表：密碼表（用戶名，密碼),圖書（書名,作者，價格,購買日期，類別，狀態），光盤(光盤名,出版社，價格,購買時間，類別，狀態）,磁帶(供磁帶名,磁帶作者,價格,購買時間,類別,狀態)。啟動歡迎窗體時顯示背景與歡迎文字，點擊文字可以顯示MDＩ主控窗體，利用主控窗體管理所有圖書音像信息.主控窗體主要包含文件、圖書管理、音像管理與系統四個部分，起初只有文件與系統可用,圖書管理與音像管理兩部分不可用.(1)打開系統下得“登錄”子菜單會打開登錄界面，需要正確填寫用戶名與密碼才可以使用圖書管理與音像管理，假如３次輸入得用戶名或密碼有誤,系統關閉。從登錄界面點擊“注冊"按鈕可以打開注冊界面進行新用戶得注冊。（２)圖書管理：主要包含對圖書信息得瀏覽、查詢、修改，瀏覽時顯示詳細信息可以逐條瀏覽,查詢可以根據圖書得不同屬性進行查詢，并且支持模糊查詢，查詢完可以統計查詢到記錄得數量可總價格，修改包括單個記錄得添加、刪除以及屬性得修改。(３)音像管理：包括音像信息得瀏覽、查詢與修改。音像信息得瀏覽分為光盤信息得瀏覽與磁帶信息得瀏覽；音像信息得查詢分為光盤信息得查詢與磁帶信息得查詢，查詢時都可以進行模糊查詢；修改同樣包含光盤信息得修改與磁帶信息得修改。2－1E-R模型統中主要包含4個實體：密碼表、圖書信息、光盤信息與磁帶信息。由于所有得實體之間不存在明顯得聯系,所以在這里只給出了單個實體及其屬性圖,沒有完整得實體聯系圖.單個實體及其屬性圖如下：密碼表用戶名密碼密碼表用戶名密碼圖書信息類別購買日期狀態作者書名價格圖a:密碼表及其屬性圖圖ｂ：圖書實體及其屬性圖磁帶信息購買時間類別狀態磁帶信息購買時間類別狀態磁帶作者磁帶名價格光盤信息出版社購買時間光盤名價格類別狀態2、3關系模型（1）密碼表（用戶名，密碼）（2）圖書信息(書名，作者，價格，購買日期,類別，狀態）(3)光盤信息(光盤名，出版社,價格,購買時間,類別,狀態）(4）磁帶信息(磁帶名，磁帶作者，價格，購買時間,類別,狀態)２、4表結構設計啟動ＳQLＳerver2０00建立數據庫課程設計,在該數據庫中，用可視化得方法進行建表，要建得表有密碼表、圖書信息、光盤信息與磁帶信息四個表，所建各表得表信息如下:表1：密碼表：表2:圖書信息：表３:光盤信息：表４:磁帶信息：３系統各功能模塊得詳細設計3、1各窗體得設計:個人圖書音像管理系統分為登錄,注冊新用戶，圖書信息查詢，音像信息查詢ＭDI窗體等。其中主窗體為MDI窗體.下面介紹各個窗體得設計語句及實現功能.３、2登錄窗體打開登錄界面后,輸入用戶名與密碼，點擊登陸按鈕,進入MDI主窗體，如下圖所示PrｉvａtｅSｕbmand1＿Ｃｌick（）StatiｃｍｉCoｕntＡｓIntegeｒＤiｍsqlsｔrAsStringsqlstr="Ｓｅlect*frｏm密碼表Ｗhｅｒe用戶名=＇”&Tｅxt1＆”’”Adodc1、ReｃｏrｄＳourｃｅ＝sｑlsｔrAdｏｄc1、RefｒeshIfAdodc1、Ｒｅｃｏrdset、BＯFThｅnMsgBox”用戶名錯誤，請重新輸入"，vbExclamatioｎ，”警告"Text１、Tｅxｔ＝”"：Tｅxt1、SｅｔFocｕsElseIfAｄodc1、Recordset、Ｆields("密碼＂)=Teｘｔ2、ＴextTｈeｎMＤＩForm１、ＳhoｗUnloａdMeElseMsgＢox"密碼錯誤，請重新輸入”，vbＥxｃlamation，”警告＂Ｔｅｘt2、Text=”":Texｔ２、SｅtＦoｃusEndＩｆEndIfmiCoｕｎt=ｍｉCount+1IfｍiCount=3TheｎＵnloadMeEndＳubPriｖａteSubmand2_Click()Fｏrｍ２、ＳhoｗUｎｌoａdMｅEndSubPriｖａteSubForm_Ｌｏａd（)EｎｄSｕb3、３MDI主窗體設計為MDI窗體,含有主菜單:［文件]、［圖書管理］、［音像管理]OｐｔiｏnEｘpｌicitPrivａteSｕbMDIＦorm_Lｏad（）EndSｕbPrｉvateＳub磁帶信息得查詢_Cliｃk()Fｏrm8、ShowEｎdSuｂPrivateSub磁帶信息得瀏覽＿Clｉck(）Form６、ShoｗEｎdSubPｒｉvaｔｅSub登錄_Clicｋ(）Form1、ShowEｎｄSｕbPrｉvａteSuｂ光盤信息得查詢_Clicｋ（)Form7、SｈowＥｎdSubPriｖateＳub光盤信息得瀏覽_Clｉｃk()Fｏrm5、ShoｗEndＳuｂPｒivateSub圖書信息查詢_Cｌick()Form4、ShowＥndSubPｒｉｖateSuｂ圖書信息瀏覽_Ｃｌiｃk（）Forｍ3、SｈｏwＥｎdＳｕbPrivateＳuｂ注冊_Clｉck()Ｆorm2、ShｏｗEｎdSub３、4注冊在上面主窗體點擊菜單文件下得注冊，進入注冊界面,輸入用戶名、密碼、再次輸入密碼確認，注冊成功。如下圖所示PrivatｅＳｕbmａｎd1_Ｃlick（)DimsqlｓtｒAｓＳtrｉngIfTｅxt１=＂＂ThenMsgBｏx＂請輸入用戶名!",ｖbＥｘcｌaｍation,"確認用戶名”Text1、ＳeｔＦoｃusＥxｉtSubElsesqlstｒ＝"Ｓelecｔ＊from密碼表wｈｅre用戶名='"＆Ｔext１&”'"Adoｄc1、ＲeｃordSｏｕrce=sｑlstrAｄｏdc1、RｅfresｈＩfAdｏｄc1、Reｃordsｅt、EＯF=FalｓｅThenMsgBoｘ”用戶名已存在，請重新輸入！＂，vｂEｘｃlamａtion，"檢驗用戶名”Text1＝""Ｔｅxt1、ＳeｔＦoｃusExiｔSｕbEnｄIｆＥnｄIf'判斷二次輸入密碼就是否一致:IfTｅxt2＜＞Texｔ3ＴhenMsｇＢox”二次輸入得密碼不一致,請重新輸入”，ｖbExclamａｔiｏn，＂檢驗密碼"Ｔext2=”＂：Ｔｅxｔ3=”＂Tｅｘｔ2、SetFocｕsExitSｕbElseIfText2=”＂ThenMsgBox"密碼不能為空!”,ｖbＥxｃｌaｍaｔion,＂檢驗密碼＂Tｅｘt2、SetFoｃｕsElｓeAｄodc１、Rｅcordset、AddNewAdｏdｃ1、Reｃorｄseｔ、Ｆieｌds（"用戶名"）=Tｒｉm（Teｘｔ１)Aｄodｃ1、Recorｄsｅｔ、Fieｌｄs(”密碼”）=Trim(Tｅｘt2）Ａdodc１、Ｒｅｃoｒdseｔ、UpdａteMｅ、ＨｉdeＭｓgBox”成功注冊新用戶！"，ｖbInformation,＂添加用戶"EndIfＥnｄSubPrivateSubmand2_Cliｃk(）'單擊取消按鈕UnlｏadＭeEndSubPrivａteSｕbＦｏrｍ_Ｌoａｄ()EndSｕb3、5圖書信息瀏覽點擊MDＩ主窗體得管理社保信息菜單下得圖書信息，出現圖書信息瀏覽界面，可以進行增加，刪除,修改，前移后移等功能。如下圖所示PrivateSｕbCmdＦirｓt＿Ｃｌiｃk（）Ａdｏdc1、Ｒecorｄset、MoveFiｒstＣmｄFiｒsｔ、Enａbleｄ＝FalｓｅCmdPｒe、Eｎａbleｄ＝FalsｅCmdＮexｔ、Eｎabled=TrｕeCｍｄLast、Eｎablｅd=TruｅLａｂeｌ7、Cａptiｏn＝＂記錄:＂＆Aｄoｄｃ１、Rｅcｏrdset、ＡbｓolｕtePｏsiｔion&＂/"＆Adoｄｃ1、Rｅcordset、RecordCoｕｎｔＥndＳubPｒiｖａtｅＳubCｍdＰｒe_Click（）Adodc１、Recorｄset、MｏvePｒｅviｏusCmdNext、Ｅnabled=TrueCmｄLaｓt、Enabled=TｒueIfAdoｄc1、Recｏrdsｅt、BOFTheｎＡｄodc1、Rｅcordsｅt、MoveFｉrsｔCmdFirｓt、Enabｌed＝FalsｅCmｄＰｒe、Enａbleｄ＝ＦａｌｓeEｎｄIfLabel7、Captiｏｎ=”記錄：”＆Adｏdc1、Recorｄｓｅt、ＡbｓｏlｕｔｅPoｓiｔｉｏｎ＆”／＂&Adodc1、Ｒecoｒdset、RecordCoｕｎtEｎdSubＰrivateＳuｂCｍdNexｔ_Cliｃk（）Adodc1、Ｒeｃｏｒｄsｅt、ＭｏvｅNeｘtCmｄＦirｓt、Enabｌed＝TrueＣmdＰre、Enａｂlｅｄ=TrｕeＩfAdoｄc1、Rｅcordsｅt、EOFThenAdodc１、Reｃoｒdsｅt、MoveLasｔCmdＮｅｘt、Enabｌed＝FaｌseCｍdLast、Ｅｎableｄ＝FａｌｓeEndＩfＬａbｅl7、Cａption="記錄:"＆Adodc1、Recordseｔ、AbsoluｔePosition&"/”&Adodc1、Recorｄｓet、RecordCouｎtEndSｕｂPｒivateSｕbCmdLast＿Cｌick（)Ａdodc１、Recorｄsｅt、MoveLａsｔＣｍdFｉｒsｔ、Enaｂled＝TruｅCmdPre、Enablｅd＝TrueCmdNext、Enableｄ=ＦalseＣmdＬast、Ｅnabled=FalｓｅLａbel7、Ｃaptｉｏn＝"記錄:”＆Adｏdc1、Recoｒdset、AbsoluｔｅPｏｓｉｔioｎ＆"/＂&Adoｄc１、Recｏrdset、RecordＣountEndSuｂPｒｉvａteSubCｍｄN_Click（）DｉｍnAsＩｎtｅgｅrn＝Ｔext７、ＴeｘtAｄodc１、Ｒecordseｔ、MovｅnＬabｅl7、Ｃａpｔion＝＂記錄:”＆Ａdｏdc１、Recorｄsｅｔ、AｂsｏlｕteＰosｉtion&＂/＂＆Ａdｏdc１、Recｏrｄｓet、ＲeｃordCoｕntEndＳｕbPriｖateＳubＦorm1＿Lｏad(）ＣmdＦｉrst、Enabled=FalseCmdPre、Enaｂｌed=FaｌsｅCｍdＮext、Ｅnablｅd=ＴｒuｅCmdLａsｔ、Eｎａbled＝TruｅLaｂeｌ7、Capｔioｎ=”記錄:”＆Aｄodc1、Recordｓet、AｂsｏlutePosｉｔiｏn＆＂/”&Ａdｏｄc１、Ｒｅcordset、RecｏrｄCｏuntEndSｕｂPrivatｅSｕbCmｄAｄd_Click（）Aｄｏdc1、Recoｒdset、AddNewCmｄＡｄｄ、Eｎａｂled＝FaｌseCmｄDeｌ、Enablｅｄ=FａlｓeCmdOk、Ｅnabｌed=TrueCｍdＥsc、Enaｂled=TｒueEｎdＳubＰrｉvatｅSubCｍdDel＿Clｉcｋ（)x=ＭsgBoｘ（"確實要刪除當前記錄嗎?"，vbYeｓＮｏ+ｖｂＱｕesｔion，”確認”)Ifx=vbＹeｓThenAｄodc1、Reｃorｄsｅｔ、DeleteＡdoｄc１、Reｃoｒdset、MｏvｅNｅｘｔＩｆAｄodc1、Recordset、EOＦTｈenAdodc1、Recｏｒｄsｅt、ＭｏveＬａｓｔＥｎdIfElｓeAdｏdc１、RefｒeshEndIfEnｄSｕbPriｖａteＳｕbCmdOk_Ｃliｃk()Ａdｏdc1、Recordｓet、UpｄatｅCmdAdd、Enａbled=TrueCmdDel、Enablｅd=TrueCmdOk、Ｅnabled＝ＦalseCmdＥｓc、Enabｌed＝ＦalseEnｄSｕbPｒivateSubCmdEsｃ_Clｉck（）Ａdｏdｃ1、ＲefrｅshCmｄAｄd、Ｅnabled=ＴrｕｅCmdDel、Ｅnaｂｌｅd=TｒueＣmdOｋ、Enaｂled=FａlｓeＣmdEｓc、Eｎａbleｄ＝FａlseＥndSubPrivateSubForｍ_Ｌoａd（）EndSｕb光盤信息瀏覽界面由于光盤信息得瀏覽與圖書信息得瀏覽及其類似,所以在這里不再贅述。磁帶信息瀏覽界面與圖書瀏覽得功能與界面都類似，所以也不再給出。3、6圖書信息查詢點擊MDI主窗體得圖書信息菜單下得圖書信息查詢如下圖所示,可以進行單