圖書管理組織系統(tǒng)實(shí)驗(yàn)報(bào)告

一、設(shè)計(jì)目的和意義：在信息技術(shù)迅猛發(fā)展及基于Internet網(wǎng)絡(luò)應(yīng)用日益普及的今天，傳統(tǒng)圖書館正在向自動(dòng)化、網(wǎng)絡(luò)化、電子化的數(shù)字化方向發(fā)展，這是目前網(wǎng)絡(luò)信息資源開發(fā)和研究的熱點(diǎn)。圖書管理系統(tǒng)的建設(shè)涉及到信息資源數(shù)字化、多媒體數(shù)據(jù)庫、分布式網(wǎng)絡(luò)、信息管理系統(tǒng)結(jié)構(gòu)等多方面的問題，需要有效地集成和應(yīng)用最新的信息技術(shù)。如何在宏觀上有效地把握和組織，并運(yùn)用到圖書管理系統(tǒng)的開發(fā)建設(shè)上，是圖書管理系統(tǒng)研究的重點(diǎn)；隨著人們知識(shí)水平層次的提高，圖書館成為日常生活中不可缺少的一部分。而圖書館的存書量和業(yè)務(wù)量龐大，僅僅靠傳統(tǒng)的記帳式管理是不可行的。圖書管理系統(tǒng)應(yīng)運(yùn)而生，逐漸成為信息化建設(shè)的重要組成部分。圖書管理系統(tǒng)為學(xué)?；蛏鐣?huì)型圖書館的管理員提供所有借閱者的詳細(xì)信息，以及館內(nèi)庫存的詳細(xì)情況，對借書和還書兩大功能進(jìn)行合理操縱并登記。圖書管理系統(tǒng)是使用計(jì)算機(jī)實(shí)現(xiàn)圖書大量信息處理的電子檔案管理系統(tǒng)，在本系統(tǒng)中主要滿足借書者、系統(tǒng)管理員和一般用戶3方面的需求。對讀者來說主要是查詢個(gè)人信息、查詢圖書信息、讀者借閱的圖書、借閱圖書和歸還圖書等；圖書管理員是系統(tǒng)的主要參與者，負(fù)責(zé)借書處理和還書處理；系統(tǒng)管理員主要負(fù)責(zé)系統(tǒng)的維護(hù)工作，涉及到讀者信息管理，圖書信息管理，系統(tǒng)狀態(tài)維護(hù)；另外這對正在處于蓬勃發(fā)展的華北科技學(xué)院來說，具有很大的意義，“腹有詩書氣自華”——學(xué)院的未來是靠學(xué)院的整體實(shí)力和培養(yǎng)的學(xué)生來衡量的，圖書館的建設(shè)的程度代表著我們所能接觸知識(shí)面的寬廣程度，而一個(gè)好的的圖書館需要配備相應(yīng)的圖書管理系統(tǒng)，這也就是我們開發(fā)設(shè)計(jì)本系統(tǒng)的目的和意義！由于圖書館已經(jīng)成為師生日常生活中不可缺少的一部分，隨著2002年我院晉升為本科院校，近年來我院大量擴(kuò)招，師生隊(duì)伍日益龐大，從而圖書館的存書量和業(yè)務(wù)量日益龐大，僅僅靠傳統(tǒng)的記帳式管理是不可行的。圖書管理系統(tǒng)應(yīng)運(yùn)而生，逐漸成為信息化建設(shè)的重要組成部分。圖書管理系統(tǒng)為學(xué)?；蛏鐣?huì)型圖書館的管理員提供所有借閱者的詳細(xì)信息，以及館內(nèi)庫存的詳細(xì)情況，對借書和還書兩大功能進(jìn)行合理操縱并登記。圖書管理系統(tǒng)是使用計(jì)算機(jī)實(shí)現(xiàn)圖書大量信息處理的電子檔案管理系統(tǒng)，在本系統(tǒng)中主要滿足讀者、系統(tǒng)管理員和一般用戶3方面的需求。對讀者來說主要是查詢個(gè)人信息、查詢圖書信息、借閱圖書和歸還圖書等；所有這些操作全部都是利用計(jì)算機(jī)方便而快捷，而這些都是過去的舊系統(tǒng)無法做到的。精品文檔放心下載二、系統(tǒng)的總體設(shè)計(jì)：主界面退出 登錄超過3次密碼正確？N提示密碼錯(cuò)誤Y切換用戶管理員信息管理

讀者信息管理

書籍信息管理

借閱信息管理

系統(tǒng)維護(hù)添加管刪除管修改管刪查添修刪查查看查看數(shù)圖理員理員理員除詢加改除詢當(dāng)前歷史據(jù)書讀讀圖圖圖備信添加新修改讀者者新書書書借閱借閱份息讀者者信息信信圖信信信信息信息恢統(tǒng)息息書息息息復(fù)計(jì)三、數(shù)據(jù)庫設(shè)計(jì)：由于圖書管理系統(tǒng)是針對管理員管理、圖書管理、讀者管理、讀者借閱管理還有讀者借閱歷史等等，所精品文檔放心下載有這些就要涉及到讀者信息表xs、借閱信息表：jy、書本信息表：book、借閱歷史表：jyls、用戶信息謝謝閱讀表：users。表的具體信息如下1、讀者信息表：xs字段名類型與寬度是否主碼是否允許空值說明xsnoChar(15)是Notnull(主鍵)命名規(guī)則如：200507034244xsnameChar(20)否Notnull讀者姓名departmentChar(15)否Notnull專業(yè)名sexBit否Notnull性別；默認(rèn)是0；0：男；1：女bothDatetime否Notnull出生時(shí)間輸入規(guī)則：yyyy-mm-ddxscountInteger否Notnull借書數(shù)量：默認(rèn)是0xsphotoImage否可空照片filelenBigint否可空儲(chǔ)存讀者照片2、借閱信息表：jy字段名類型與寬度是否主碼是否允許空值說明bnoChar(10)是Notnull索書號(hào)xsnoChar(15)是Notnull借閱證號(hào)ISBNChar(16)是Notnull書籍出版號(hào)bnameChar(20)否可空書本名xsnamechar(20)否可空讀者姓名jydateDatetime否可空借閱時(shí)間（當(dāng)前系統(tǒng)時(shí)間）hsdatedatetime否可空實(shí)際還書時(shí)間3、書本信息表：book字段名類型與寬度是否主碼是否允許空值說明ISBNChar(16)是Notnull書籍出版號(hào)bnameChar(20)否Notnull書本名zuozheChar(15)否Notnull作者chubanChar(20)否Notnull出版社bookleiChar(8)否Notnull書籍類別（默認(rèn)為計(jì)算機(jī)類）bookjgFloat(8)否Notnull書本價(jià)格fubenInteger否可空當(dāng)對書籍進(jìn)行插入、刪除時(shí)，復(fù)本量應(yīng)等kucunInteger否可空于庫存量；默認(rèn)值都是04、借閱歷史表：jyls字段名類型與寬度是否主碼是否允許空值說明xsnoChar(15)是NotnullISBNChar(16)是Notnull用來存放讀者的借閱歷史信息bnoChar(10)是NotnulljydateDatetime否可空hsdatedatetime否可空還書時(shí)間5、用戶信息表：users字段名類型與寬度是否主碼是否允許空值說明yhnumChar(10)是Notnull用戶號(hào)主鍵且不可更改yhnameChar(10)否Notnull用戶名mimaChar(15)否Notnull密碼cfmimaChar(15)否Notnull重復(fù)密碼；判斷是否與密碼一致jibiebit否Notnull級(jí)別默認(rèn)1；0：系統(tǒng)管理員；1：一般用戶以上就是本次數(shù)據(jù)庫所涉及的5個(gè)表，由上表可知，非主屬性都不傳遞依賴于碼，即數(shù)據(jù)庫能夠達(dá)到第三范式。精品文檔放心下載四、詳細(xì)設(shè)計(jì)：圖書管理系統(tǒng)的E-R圖如下：借閱證號(hào) 姓名N用戶號(hào)管理1用戶名 管理員1管理級(jí)別 N

專業(yè) 性別 出生年月讀者N借書時(shí)間借閱還書時(shí)間籍ISBN號(hào) 書本名 作者 價(jià)格圖1系統(tǒng)主界面系統(tǒng)要求登錄時(shí)提供用戶名和密碼，密碼錯(cuò)誤時(shí)會(huì)給出提示，但是如果三次都輸入錯(cuò)誤，系統(tǒng)將自動(dòng)關(guān)閉。另外系統(tǒng)會(huì)根據(jù)用戶名和密碼判斷是系統(tǒng)管理員還是一般用戶，在用戶登錄是，系統(tǒng)根據(jù)用戶級(jí)別給biaohao賦值，從而給出不同權(quán)限，如圖2所示精品文檔放心下載圖2系統(tǒng)登錄界面實(shí)現(xiàn)上圖的部分代碼如下：PrivateSubcmd1_Click()Dimstrtext,MsgTextAsString精品文檔放心下載strtext=Combo1.Textyhm=Combo1.Textsql1="selectyhname,mima,jibiefromuserswhereyhname='"&strtext&"'"感謝閱讀Setmrc=ExecuteSQL(sql1,MsgText)感謝閱讀IfNotmrc.EOFThenIfmrc.Fields(2)ThenOption2.Value=TrueElseOption1.Value=TrueEndIfEndIfIfTrim(mrc.Fields(1))=Trim(text2.Text)AndOption1.Value=TrueThenflag=1謝謝閱讀biaohao=1UnloadMeElseIfTrim(mrc.Fields(1))=Trim(text2.Text)AndOption2.Value=TrueThenflag=1感謝閱讀biaohao=0UnloadMeElseMsgBox"密碼為空或不正確!請重新輸入",,"Login"精品文檔放心下載text2.SetFocustext2.SelStart=0text2.SelLength=Len(text2.Text)精品文檔放心下載EndIfEndIfcnt=cnt+1Ifcnt=3ThenUnloadMeEndIfmrc.CloseEndSub對用戶的信息進(jìn)行更改，只有系統(tǒng)管理員才有的權(quán)限，并且用戶號(hào)是不能修改的，只能更改用戶名和密碼及用戶的級(jí)別，具體操作如圖3所示。感謝閱讀圖3更改用戶信息界面實(shí)現(xiàn)更改用戶信息的代碼如下：PrivateSubcommand1_Click()感謝閱讀……’變量的聲明SelectCaseuflagCase1……’添加用戶信息的代碼Case2yhhm=Combo1.TextIfTrim(yhh)<>Trim(yhhm)Then謝謝閱讀MsgBox"用戶號(hào)碼不能修改",vbOKOnly+vbExclamation,"Warning"謝謝閱讀ExitSubEndIfyhxm=Text1.Textyhmm=Text2.Textcfmim=Text3.TextIfOption1.ValueThenyhdj=0EndIfSetcnn=NewADODB.Connection感謝閱讀cnn.OpenConnectStringcnn.Execute"execuser_update'"&yhh&"','"&yhxm&"','"&yhmm&"','"&cfmim&"','"&yhdj&"'"感謝閱讀cnn.CloseMsgBox"數(shù)據(jù)已更新！",vbOKOnly+vbExclamation,"提示"精品文檔放心下載Case3……’刪除用戶信息的代碼EndSelectEndSubPrivateSubForm_Activate()感謝閱讀

‘Activate()子函數(shù)DimMsgTextAsStringDimftagAsIntegersql1="select*fromusers"精品文檔放心下載Setmrc=ExecuteSQL(sql1,MsgText)謝謝閱讀ftag=0DoWhileNotmrc.EOFCombo1.AddItemTrim(mrc.Fields(0))精品文檔放心下載If(uflag=2Oruflag=3)Andftag=0Thenftag=1精品文檔放心下載

’uflag=2表示修改用戶信息’uflag=3表示修改用戶信息感謝閱讀Combo1.Text=mrc.Fields(0)謝謝閱讀yhh=Combo1.TextText1.Text=mrc.Fields(1)Text2.Text=mrc.Fields(2)Text3.Text=mrc.Fields(3)Ifmrc.Fields(4)ThenOption2.Value=TrueElseOption1.Value=TrueEndIfEndIfmrc.MoveNextLoopmrc.CloseCombo1.SetFocusEndSub在讀者添加、修改、刪除、查詢這一塊，添加時(shí)可以對讀者的借閱證號(hào)進(jìn)行檢查，是否是合法12位數(shù)，借閱證號(hào)必須在200001001101~999999999999之間且不能含英語字母，否則系統(tǒng)將報(bào)錯(cuò)；讀者的借閱證號(hào)和借書數(shù)量是不可以修改的，修改成功系統(tǒng)會(huì)給出提示（如圖4所示）；刪除時(shí)如果讀者的借書數(shù)量不為0，系統(tǒng)是禁止刪除讀者的，并給出不能刪除的原因；在座查詢時(shí)，本來想做成按姓名、借閱證號(hào)、專業(yè)等查詢，既可以模糊查詢也可以綜合查詢，主要原因是因?yàn)樯∽≡簩?dǎo)致時(shí)間不夠，有時(shí)間會(huì)繼續(xù)摸索。謝謝閱讀圖4更改讀者信息界面實(shí)現(xiàn)上圖的代碼如下：PrivateSubcommand1_Click()謝謝閱讀……’變量的聲明SelectCaseflagaddCase1 ……’添加讀者信息的代碼Case2IfNotIsDate(Trim(Text4))Then感謝閱讀MsgBox"請按照yyyy-mm-dd格式輸入登記日期",vbOKOnly+vbExclamation,感謝閱讀"提示"ExitSubElseText4=Format(Text4,"yyyy-mm-dd")感謝閱讀EndIfjyzh1=Combo1.TextIfTrim(jyzh)<>Trim(jyzh1)Then感謝閱讀MsgBox"借閱證號(hào)不能修改",vbOKOnly+vbExclamation,"Warning"謝謝閱讀ExitSubEndIfxm=Text1.Textzym=Text3.Textcssj=CDate(Text4.Text)jss=CInt(Label5.Caption)精品文檔放心下載IfOption2Thenxb=1EndIfSetcnn=NewADODB.Connection謝謝閱讀cnn.OpenConnectStringIfimagechang=0AndCheck1=0Then精品文檔放心下載cnn.Execute"execxs_update'"&jyzh&"','"&xm&"','"&zym&"',"&xb&",'"&cssj&"',"&jss謝謝閱讀ElseIfimagechang=1Thencnn.Execute"execxs_update0'"&jyzh&"','"&xm&"','"&zym&"',"&xb&",'"&cssj&"',"&jss精品文檔放心下載imagechang=0EndIfcnn.Closejyzh1=jyzhCallSaveToDB(filename,jyzh1)精品文檔放心下載EndIfMsgBox"數(shù)據(jù)已經(jīng)更新！",vbOKOnly+vbExclamation,"提示"精品文檔放心下載Case3 ……’刪除用戶信息的代碼EndSelectEndSub作為大學(xué)的圖書館，其藏書量固然龐大，但是圖書館的圖書購買力也是不容忽視的，另外圖書也需要經(jīng)謝謝閱讀常更新；所有新書都要先入庫，之后才能讓讀者借閱，具體添加圖書操作如圖5所示；圖書的更改界面實(shí)質(zhì)也如圖5相似，除了ISBN號(hào)不能作修改以外，其他均可以修改；一旦有圖書過時(shí)或下架后，讀者便不能再借閱該圖書，所以在系統(tǒng)中就要將該圖書刪除，刪除成功給出提示，如果此圖書尚有外借，則系統(tǒng)提示不能刪除圖書。精品文檔放心下載圖5添加圖書信息界面實(shí)現(xiàn)上圖的部分代碼如下：PrivateSubcommand1_Click()精品文檔放心下載…… ’定義變量SelectCasebflagaddCase1IfTrim(Combo1.Text&"")=""Then謝謝閱讀MsgBox"對不起，書籍的ISBN號(hào)不能為空！",vbOKOnly+vbExclamation,""感謝閱讀Combo1.SetFocusExitSubEndIfIfTrim(Text7.Text&"")=""Then精品文檔放心下載MsgBox"對不起，書籍的類別不能為空！",vbOKOnly+vbExclamation,""精品文檔放心下載Text7.SetFocusExitSubEndIfIfTrim(Text1.Text)=""Then謝謝閱讀MsgBox"書本名不能為空！請重新輸入。",vbOKOnly+vbExclamation,""謝謝閱讀Text1.SetFocusExitSubEndIfIfTrim(text2.Text)=""Then精品文檔放心下載MsgBox"作者的姓名不能為空！請重新輸入。",vbOKOnly+vbExclamation,""謝謝閱讀text2.SetFocusExitSubEndIfIfTrim(Text3.Text)=""Then精品文檔放心下載MsgBox"出版社名不能為空！請重新輸入。",vbOKOnly+vbExclamation,""謝謝閱讀Text3.SetFocusExitSubEndIfIfTrim(Text4.Text)=""Then謝謝閱讀MsgBox"書籍的價(jià)格不能為空！請重新輸入。",vbOKOnly+vbExclamation,""謝謝閱讀Text4.SetFocusExitSubEndIfisbn=Combo1.TextCombo1.AddItemTrim(isbn)shum=Text1.Textzuoz=text2.Textchubs=Text3.Textshul=Text7.Textjiag=CDbl(Text4.Text)fbl=CInt(Text5.Text)kcl=CInt(Text6.Text)sql1="select*frombookwhereisbn='"&Trim(Combo1.Text)&"'"謝謝閱讀Setmrcc=ExecuteSQL(sql1,MsgText)感謝閱讀Ifmrcc.EOF=FalseThenMsgBox"此ISBN號(hào)已經(jīng)存在，書籍的ISBN號(hào)不能重復(fù)！",vbOKOnly+vbExclamation,"Warning"精品文檔放心下載Combo1.SetFocusmrcc.CloseElseSetcnn=NewADODB.Connection精品文檔放心下載cnn.OpenConnectStringcnn.Execute"execbook_insert'"&isbn&"','"&shum&"','"&zuoz&"','"&chubs&"','"&shul&"',"&jiag&","&fbl&","&kcl謝謝閱讀cnn.CloseEndIf'CallSaveToDB(filename,isbn1)精品文檔放心下載MsgBox"數(shù)據(jù)已經(jīng)成功保存！",vbOKOnly+vbExclamation,"提示"精品文檔放心下載Combo1.Text=""Text7.Text=""Text1.Text=""text2.Text=""Text4.Text=""Text3.Text=""Text5.Text=""Text6.Text=""Case2Case3EndSelectEndSub

……’修改圖書信息的代碼……’刪除圖書信息的代碼圖書管理系統(tǒng)最重要的就是要進(jìn)行圖書的借閱歸還業(yè)務(wù)了，借書還書是圖書館最為頻繁的操作，所有的借閱操作都需要給出一個(gè)唯一的索書號(hào)，而且借閱的前提是該數(shù)的庫存量大于零，圖6就是對某個(gè)讀者進(jìn)行圖書借閱操作；感謝閱讀圖6讀者借閱運(yùn)行界面實(shí)現(xiàn)該操作的主要代碼如下：PrivateSubcmd_Click()……’定義變量SelectCasebrflagaddCase1

’借書IfTrim(Combo1.Text&"")=""Then感謝閱讀sMeg="書籍的ISBN編號(hào)"MsgBoxsMeg,vbOKOnly+vbExclamation,"警告"感謝閱讀EndIfIfTrim(Combo2.Text&"")=""Then謝謝閱讀sMeg="借書證號(hào)不能為空"MsgBoxsMeg,vbOKOnly+vbExclamation,"警告"感謝閱讀EndIfIfTrim(txtItem(10).Text&"")=""Then感謝閱讀sMeg="索書號(hào)不能為空"MsgBoxsMeg,vbOKOnly+vbExclamation,"警告"精品文檔放心下載ExitSubElsesql1="select*fromjywherebno='"&Trim(txtItem(10).Text)&"'"謝謝閱讀Setmrcc=ExecuteSQL(sql1,MsgText)謝謝閱讀Ifmrcc.EOF=FalseThenMsgBox"此索書號(hào)的書已借出！",vbOKOnly+vbExclamation,"警告"謝謝閱讀mrcc.CloseExitSubEndIfEndIfisbn=Combo1.Textjyzh=Combo2.Textssh=Trim(txtItem(10).Text)精品文檔放心下載jssj=DateSetcnn=NewADODB.Connection謝謝閱讀cnn.OpenConnectStringSetcmddele.ActiveConnection=cnn精品文檔放心下載cmddele.CommandText="jy_insert"感謝閱讀cmddele.CommandType=adCmdStoredProc感謝閱讀cmddele.Parameters.Appendcmddele.CreateParameter("ssh",adChar,adParamInput,10,ssh)cmddele.Parameters.Appendcmddele.CreateParameter("jyzh",adChar,adParamInput,15,jyzh)cmddele.Parameters.Appendcmddele.CreateParameter("isbn",adChar,adParamInput,16,isbn)cmddele.Parameters.Appendcmddele.CreateParameter("jssj",adVarChar,adParamInput,10,[jssj])cmddele.Parameters.Appendcmddele.CreateParameter("flag",adInteger,adParamOutput)cmddele.Execute謝謝閱讀Ifcmddele("flag")>0Then精品文檔放心下載MsgBox"借書成功！",vbOKOnly+vbExclamation,"提示"精品文檔放心下載isbn=Combo1.Textsql1="select* frombookwhereisbn='"&isbn&"'"謝謝閱讀Setmrcc=ExecuteSQL(sql1,MsgText)感謝閱讀IfNotmrcc.EOFThentxtItem(0).Text=mrcc.Fields(1)謝謝閱讀txtItem(1).Text=mrcc.Fields(2)謝謝閱讀txtItem(2).Text=mrcc.Fields(3)感謝閱讀txtItem(3).Text=CDbl(mrcc.Fields(5))精品文檔放心下載txtItem(4).Text=CInt(mrcc.Fields(6))感謝閱讀txtItem(5).Text=CInt(mrcc.Fields(7))感謝閱讀EndIfmrcc.Closejyzh=Combo2.Textsql1="select* fromxswherexsno='"&jyzh&"'"精品文檔放心下載Setmrcc=ExecuteSQL(sql1,MsgText)精品文檔放心下載IfNotmrcc.EOFThentxtItem(6).Text=mrcc.Fields(1)精品文檔放心下載txtItem(7).Text=mrcc.Fields(2)精品文檔放心下載txtItem(8).Text=mrcc.Fields(4)感謝閱讀txtItem(9).Text=CStr(mrcc.Fields(5))感謝閱讀Ifmrcc.Fields(3)ThenOption1(1).Value=TrueElseOption1(0).Value=TrueEndIfEndIfmrcc.ClosetxtItem(10).Text=""txtItem(10).SetFocusElseMsgBox"無可借的書！",vbOKOnly+vbExclamation,"提示"感謝閱讀EndIfcnn.CloseCase2

…… '還書EndSelectExitSubEndSub由于圖書館藏書數(shù)目龐大，需要定時(shí)查看，以確保圖書館的工作能正常運(yùn)行；該窗體可以顯示圖書館中的圖書種類，總的藏書量、目前藏書量（總的藏書量減去已經(jīng)外借數(shù)目數(shù)量）、已經(jīng)各類圖書的復(fù)本量、庫存量和外借數(shù)量。顯示的結(jié)果如圖7所示謝謝閱讀圖7圖書館各類圖書統(tǒng)計(jì)界面實(shí)現(xiàn)上圖的代碼如下：PrivateSubCombo1_Click()謝謝閱讀Dimstrtext,MsgTextAsString謝謝閱讀strtext=Combo1.Textshubenlei=Combo1.Textsql1="selectdistinctbooklei,sum(fuben),sum(kucun)frombookwherebooklei='"&strtext&"'groupbybooklei"精品文檔放心下載Setmrc=ExecuteSQL(sql1,MsgText)謝謝閱讀IfNotmrc.EOFThenText1.Text=CInt(mrc.Fields(1))感謝閱讀Text2.Text=CInt(mrc.Fields(2))感謝閱讀Text3.Text=Val(Text1.Text)-Val(Text2.Text)精品文檔放心下載EndIfmrc.CloseCombo1.SetFocusEndSubPrivateSubForm_Activate()精品文檔放心下載DimMsgTextAsStringDimftagAsIntegersql1="selectdistinctbooklei,sum(fuben),sum(kucun)frombookgroupbybooklei"感謝閱讀Setmrc=ExecuteSQL(sql1,MsgText)精品文檔放心下載ftag=0DoWhileNotmrc.EOFCombo1.AddItemTrim(mrc.Fields(0))感謝閱讀Ifftag=0Thenftag=1Combo1.Text=mrc.Fields(0)感謝閱讀shubenlei=Combo1.TextText1.Text=CInt(mrc.Fields(1))精品文檔放心下載Text2.Text=CInt(mrc.Fields(2))精品文檔放心下載EndIfmrc.MoveNextLoopmrc.CloseCombo1.SetFocusEndSub數(shù)據(jù)庫存儲(chǔ)著有關(guān)管理員、讀者、圖書及讀者的借閱信息，所以數(shù)據(jù)庫的安全性不容忽視，如果數(shù)據(jù)庫處于不安全狀態(tài)，將影響著圖書館的日常工作！故就要經(jīng)常給數(shù)據(jù)庫作備份，在實(shí)際的應(yīng)用領(lǐng)域，圖書管理系統(tǒng)的數(shù)據(jù)是龐大的，每次都作完全備份也是沒有必要的，如果每次都作完全備份既費(fèi)時(shí)費(fèi)力，而且在操作過程中如果出現(xiàn)意外情況，那么損失也是無法估計(jì)的。在完全備份的基礎(chǔ)上作差異備份能夠做到省時(shí)省力，故此系統(tǒng)做成具有完全備份、差異備份和恢復(fù)等諸多功能，完全備份操作如圖8所示。謝謝閱讀圖8 數(shù)據(jù)備份實(shí)現(xiàn)這部分代碼如下：PrivateSubcommand1_Click()謝謝閱讀DimMsgTextAsStringDimmrcAsADODB.Recordset精品文檔放心下載SetCn=NewADODB.Connection謝謝閱讀strcon="Provider=SQLOLEDB.1;Password=sa;PersistSecurityInfo=True;UserID=sa;InitialCatalog=XSBOOK230;DataSource="+ServerIp+";"+"useprocedureforprepare=1;autotranslate=true;"_+"useencryptionfordata=false;tagwithcolumncollationwhenpossible=false"感謝閱讀Cn.ConnectionString=strcon感謝閱讀OnErrorResumeNextCn.OpenIfOption1.Value=TrueThen'完全備份數(shù)據(jù)庫KillApp.Path&"\backup\XSBOOK230_all.bak"謝謝閱讀sql1="backupdatabaseXSBOOK230todisk='"+App.Path+"\backup\XSBOOK230_all.bak'withname='XSBOOK230backupall',description='FullBackupOfXSBOOK230'"精品文檔放心下載Setmrc=ExecuteSQL(sql1,MsgText)精品文檔放心下載MsgBox"數(shù)據(jù)完全備份已經(jīng)完成",vbOKOnly+vbInformation,"提醒"謝謝閱讀ElseIfOption3.Value=TrueThen '差異備份數(shù)據(jù)庫感謝閱讀KillApp.Path&"\backup\XSBOOK230_dif.bak"感謝閱讀sql1 = "backup database XSBOOK230 to disk='" + App.Path +精品文檔放心下載"\backup\XSBOOK230_dif.bak' with differential ,noinit,name='XSBOOK230 backup精品文檔放心下載dif',description='DifferentialBackupOfXSBOOK230'"謝謝閱讀Setmrc=ExecuteSQL(sql1,MsgText)感謝閱讀MsgBox"數(shù)據(jù)差異備份已經(jīng)完成",vbOKOnly+vbInformation,"提醒"精品文檔放心下載ElseIfOption2.Value=TrueThen感謝閱讀

'恢復(fù)指定路徑下的數(shù)據(jù)庫sql1="restoredatabaseXSBOOK230fromdisk='"+App.Path+"\backup\XSBOOK230_all.bak'withFILE=1"感謝閱讀Setmrc=ExecuteSQL(sql1,MsgText)精品文檔放心下載MsgBox"數(shù)據(jù)恢復(fù)已經(jīng)完成",vbOKOnly+vbInformation,"提醒"感謝閱讀EndIfEndIfEndIfEndSub附加部分SQL代碼：在借閱查詢的時(shí)候由于涉及到多個(gè)表，所以創(chuàng)建了視圖borrowbook，代碼如下：謝謝閱讀useXSBOOK230gocreateviewborrowbookwithencryption謝謝閱讀asselectbook.ISBN,book.bname,book.zuozhe,chuban,bookjg,fuben,kucun,xs.xsno,xs.xsname,department,sex,both,xscount,jy.bno精品文檔放心下載fromxs,book,jywherejy.xsno=xs.xsnoandjy.ISBN=book.ISBN精品文檔放心下載go考慮到在對數(shù)據(jù)庫操作過程中，有對多個(gè)表的級(jí)聯(lián)操作，建立觸發(fā)器，由觸發(fā)器實(shí)現(xiàn)數(shù)據(jù)的完整性，觸發(fā)器的代碼如下：精品文檔放心下載createtriggertjy_insertonjy精品文檔放心下載forinsertasbeginupdatexssetxscount=xscount+1wherexs.xsnoin(selectinserted.xsnofrominserted)精品文檔放心下載updatebooksetkucun=kucun-1wherebook.ISBNin(selectinserted.ISBNfrominserted)謝謝閱讀endgocreatetriggertjy_deleteonjy精品文檔放心下載fordeleteasbeginupdatexssetxscount=xscount+1wherexs.xsnoin(selectdeleted.