/圖書管理系統(tǒng)設(shè)計方案TOC\o"1-8"\h\u目錄引言1需求分析13、系統(tǒng)設(shè)計23.1、設(shè)計圖書管理系統(tǒng)的功能結(jié)構(gòu)23.2、圖書管理系統(tǒng)的用戶管理實體—關(guān)系23.3、圖書管理系統(tǒng)的借閱管理實體—關(guān)系23.4、圖書管理系統(tǒng)的讀者管理實體—關(guān)系33.5、圖書管理系統(tǒng)的圖書庫管理實體—關(guān)系34、系統(tǒng)詳細設(shè)計44.1、數(shù)據(jù)庫的設(shè)計44.2、管理模塊的具體設(shè)計64.3、數(shù)據(jù)庫和管理模塊的連接11軟件調(diào)試12 5.1、管理員權(quán)限操作12 5.2、普通用戶操作17設(shè)計總結(jié)及分析18課程設(shè)計體會188、設(shè)計中所用到的程序代碼匯總19一、引言隨著人們對物質(zhì)需求的逐步滿足.精神文明的追求日益增加.大大小小的書店.圖書館到處可見.特別是一些規(guī)模較大的學(xué)校.圖書館的數(shù)量以及規(guī)模都在增大。隨著各圖書館的圖書的數(shù)量不斷增多和圖書館規(guī)模的不斷擴大.管理這些龐大的體系非常困難的.因為圖書的情況是隨時改變的.因此必需對圖書進行動態(tài)的管理.而這對于一個管理人員來說是一件比較復(fù)雜的事情.存儲、查詢、借閱是必不可少的業(yè)務(wù)。數(shù)據(jù)處理手工操作.工作量大.出錯率高.出錯后不易更改。圖書館采取手工方式對圖書借閱情況進行人工管理.由于信息比較多.圖書借閱信息的管理工作混亂而又復(fù)雜；基于這一點.開發(fā)了這個圖書管理系統(tǒng).它將圖書借還這一傳統(tǒng)方式進行信息化。我們這一系統(tǒng)滿足了對日常的圖書管理；圖書的出租與歸還的管理；圖書的總量；圖書是否借出查詢一數(shù)據(jù)庫系統(tǒng)基本實現(xiàn)了對圖書的數(shù)據(jù)庫管理.大大的提高了工作效率和圖書的遺失率。二、需求分析用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢.這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程.組成一份詳盡的數(shù)據(jù)字典.為以后的具體設(shè)計打下基礎(chǔ)。針對一般圖書館管理信息系統(tǒng)的需求.通過對圖書館管理工作過程的內(nèi)容和數(shù)據(jù)流程分析.設(shè)計如下面所示的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)：1.讀者信息.包括的數(shù)據(jù)項有：讀者編號、讀者姓名、、所屬部門。2.書庫.包括的數(shù)據(jù)項有：書號、書名、作者、出版社、單價、類別、在庫狀態(tài)。3.借閱記錄.包括的數(shù)據(jù)項有：序號、書號、書名、借出時間、歸還時間、讀者姓名。4.系統(tǒng)設(shè)置.包括的數(shù)據(jù)項有：用戶名、密碼、權(quán)限。本系統(tǒng)具有的功能：1、實現(xiàn)讀者的新增、編輯和刪除功能。2、實現(xiàn)圖書的新增、編輯和刪除功能。3、實現(xiàn)圖書的查詢功能。4、實現(xiàn)圖書借出和歸還管理功能。5、實現(xiàn)借閱歷史信息的查詢功能。6、實現(xiàn)兩種不同權(quán)限用戶的登錄功能：普通用戶和管理級用戶。7、實現(xiàn)用戶管理功能.可以通過管理級用戶添加新用戶.具有權(quán)限級別及密碼修改功能。有了上面的數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)項和數(shù)據(jù)流程.就可以進行下面的數(shù)據(jù)庫設(shè)計了。三、系統(tǒng)設(shè)計3.1、設(shè)計圖書管理系統(tǒng)的功能結(jié)構(gòu)：讀者管理圖書查詢圖書借出借閱管理圖書管理系統(tǒng)庫圖書庫管理系統(tǒng)管理用戶管理員讀者管理圖書查詢圖書借出借閱管理圖書管理系統(tǒng)庫圖書庫管理系統(tǒng)管理用戶管理員節(jié)約查詢圖書歸還圖書刪除圖書編輯圖書新增讀者刪除讀者編輯讀者新增退出系統(tǒng)軟件信息2節(jié)約查詢圖書歸還圖書刪除圖書編輯圖書新增讀者刪除讀者編輯讀者新增退出系統(tǒng)軟件信息2用戶管理圖書管理系統(tǒng)的功能結(jié)構(gòu)3.2、圖書管理系統(tǒng)的用戶管理實體—關(guān)系：用戶管理實體—關(guān)系3.3、圖書管理系統(tǒng)的借閱管理實體—關(guān)系：借閱管理實體--關(guān)系3.4、圖書管理系統(tǒng)的讀者管理實體—關(guān)系：讀者管理實體—關(guān)系3.5、圖書管理系統(tǒng)的圖書庫管理實體—關(guān)系：圖示管理實體—關(guān)系如上的實體關(guān)系圖.設(shè)計出功能模塊以及說明：系統(tǒng)管理模塊：用于登錄、增加用戶、修改用戶密碼等操作。讀者管理模塊：用于新增讀者、編輯讀者和刪除讀者的操作。圖書庫管理模塊：用于新增圖書、編輯圖書和刪除圖書操作。圖書查詢管理模塊：用于庫中圖書的查詢操作。圖書借閱管理模塊：用于圖書借出、圖書歸還和圖書借閱記錄查詢操作。系統(tǒng)信息模塊：用于顯示軟件信息和退出操作。四、系統(tǒng)詳細設(shè)計4.1、數(shù)據(jù)庫的設(shè)計數(shù)據(jù)表的設(shè)計。本系統(tǒng)的數(shù)據(jù)表共有四張.分別是"系統(tǒng)設(shè)置"數(shù)據(jù)表、"讀者庫"數(shù)據(jù)表、"書庫"數(shù)據(jù)表和"借閱記錄"數(shù)據(jù)表。數(shù)據(jù)庫表4.1.1、"系統(tǒng)設(shè)置"數(shù)據(jù)表主要用于存儲用戶信息.包括用戶名、密碼、權(quán)限三個字段。4.1.2、"讀者庫"數(shù)據(jù)表主要是用于存儲讀者信息.只有等級的讀者才具有借閱資格。包括：讀者編號、讀者姓名、、所屬部門.四個字段。4.1.3、"書庫"數(shù)據(jù)表主要是用于存儲圖書信息.包括：書號、書名、作者、出版社、單價、類別、在庫狀態(tài).七個字段。4.1.4、"借閱記錄"數(shù)據(jù)表用于存儲讀者借出歸還的歷史記錄.包括：序號、書號、書名、借出時間、歸還時間、讀者編號、讀者姓名.七個字段。4.2、管理模塊的具體設(shè)計4.2.1主窗體模塊設(shè)計主窗體模塊指的是所以模塊的操作界面.在本系統(tǒng)中使用多文檔窗體及菜單方式來實現(xiàn).創(chuàng)建主窗體的步驟：1、在工程中創(chuàng)建MDI窗體.然后在選定的MDI窗體的前提下.從菜單欄中選擇.從而進行菜單編輯。2、在菜單編輯器中依次創(chuàng)建系統(tǒng)管理、新增用戶、修改密碼、分割線、關(guān)于軟件、分割線、退出系統(tǒng)、讀者管理、讀者新增、讀者編輯、讀者刪除、圖書庫管理、圖書新增、圖書編輯、圖書刪除、圖書查詢、借閱管理、圖書接觸、圖書歸還、借閱查詢等菜單。3、菜單設(shè)計完成后.返回MDI窗體.顯示如下圖。4.2.2、系統(tǒng)管理模塊設(shè)計系統(tǒng)管理模塊包括登陸模塊窗體、新增用戶窗體模塊和密碼修改模塊窗體。用戶登錄模塊的功能是防止不合法用戶的登錄；增加用戶窗體模塊用于實現(xiàn)新增用戶功能；密碼修改模塊用于實現(xiàn)合法用戶修改密碼的功能。具體設(shè)計如下：1、在空白的窗體上.添加標簽控件、文本框控件、命令按鈕等并調(diào)整大小及位置然后設(shè)置其各自的屬性.顯示如下。2、對下列事件編程.為登錄窗體調(diào)價啟動事件.為定時器添加timer事件.為登陸窗體添加啟動事件.為登錄窗體添加"登錄"按鈕事件.為在登錄窗體中實現(xiàn)權(quán)限設(shè)置在公共模塊添加代碼。具體代碼見附件3、創(chuàng)建新增用戶窗體.添加標簽控件、文本框控件、文本框控件以及組合框控件以及命令按鈕控件.調(diào)整大小以及位置顯示如下。在窗體中將新用戶、密碼和權(quán)限添加到數(shù)據(jù)庫中。代碼見附件。創(chuàng)建修改密碼窗體模塊.即只要知道用戶名和正確密碼前提下.修改登錄密碼。在窗體上添加各控件并設(shè)置相應(yīng)屬性后顯示如下。6、設(shè)置"提交"按鈕功能.實現(xiàn)修改密碼的目的.代碼見附件4.2.3、讀者管理模塊設(shè)計1、在創(chuàng)建讀者新增窗體模塊.即在一個空白的窗體上添加Frame控件、標簽控件、文本框控件以及命令控件.調(diào)整窗體大小以及其他控件的屬性.顯示如下。設(shè)置窗體啟動事件.主要實現(xiàn)連接數(shù)據(jù)庫并初始化讀者編號等功能.代碼見附件設(shè)置"確定"按鈕.用于實現(xiàn)登錄新的圖紙信息的目的.具體代碼見附件。4、同上創(chuàng)建讀者編輯窗體以及讀者刪除窗體。顯示如下?！泊a見附件4.2.3、圖書庫管理模塊設(shè)計如上述的步驟建立圖書庫管理模塊.顯示如下〔代碼見附件4.2.4、圖書查詢模塊以及圖書借閱管理模塊設(shè)計如上述的步驟建立.顯示如下〔代碼見附件4.3數(shù)據(jù)庫和管理模塊的連接4.3.1、準備工作主要包括ADO庫文件的導(dǎo)入以及模塊中SubMain的設(shè)置.具體操作步驟如下：第一步：新建EXE標準工程.并保存為"圖書管理系統(tǒng)"工程。從菜單欄中選擇[工程]→[引用]命令.彈出[引用]對話框。第二步：在[引用]對話框中的列表框內(nèi)選中MicrosoftActiveXDataObjects2.8Library復(fù)選框。第三步：單擊[確定]按鈕返回集成開發(fā)環(huán)境.即完成ADO庫文件的導(dǎo)入工作。接著在模塊中設(shè)置SubMain.即在工程資源管理窗口中完成模塊的添加操作后.接著便為模塊添加代碼.即在工程資源管理窗口中雙擊新建的模塊圖標.進入模塊的代碼編輯窗口.在其中輸入如下代碼：SubMain<>OnErrorGoToErr‘使用錯誤處理語句Cn.Open"Provider=Microsoft.Jet.oledb.4.0;DataSource="&App.Path&"JXC.mdb"frmLogin.ShowExitSubErr:MsgBox"數(shù)據(jù)庫連接錯誤！",vbCritical,"警告"EndEndSub第四步：在工程屬性中設(shè)置啟動對象.即從菜單欄中選擇[工程]→[屬性]命令.在彈出的[工程屬性]對話框中的[通用]選項下.將"啟動對象"設(shè)置為SubMain.單擊[確定]按鈕.即可完成進圖書系統(tǒng)的數(shù)據(jù)庫連接準備工作。4.3.2、用戶的權(quán)限及實現(xiàn)方法定義權(quán)限.即普通用戶權(quán)限不能增加新用戶、不能使用圖書管理模塊和借閱管理模塊.而管理級用戶可以使用全部功能。第一步在公共模塊中定義一個布爾變量并聲明一個函數(shù).代碼編寫如下：PublicFunctionQuanXian<blnDJAsBoolean>IfblnDJ=TrueThen‘當為True時.即管理級用戶MDIForm1.mnuAddNew=TrueMDIForm1.mnuIn=TrueMDIForm1.mnuOut=TrueElse‘否則為普通用戶MDIForm1.mnuAddNew=False‘響應(yīng)的菜單呈無用狀態(tài)MDIForm1.mnuIn=FalseMDIForm1.mnuOut=FalseEndIfEndFunction第二步在登錄窗體中添加獲取登錄時用戶的應(yīng)有權(quán)限。rs2.Open"Select權(quán)限From系統(tǒng)Where用戶名='"&Combo1.Text&"'",_cn,adOpenKeyset,adLockOptimisticIfrs2.Fields<0>="System"ThenblnDJ=TrueIfrs2.Fields<0>="Guest"ThenblnDJ=Falsers2.Close第三步在主窗體〔MDI窗體下響應(yīng)登錄窗體中用戶權(quán)限的選擇.即在主窗體的啟動事件中添加如下代碼即可。CallQuanxian<blnDJ>軟件的調(diào)試分為兩個部分進行.一是管理員.二是用戶。5.1、管理員權(quán)限登錄操作5.1.1新增用戶5.1.2、修改密碼5.1.3、讀者新增5.1.4、讀者編輯5.1.5、圖書新增5.1.6、圖書編輯5.1.7、圖書刪除5.1.8、圖書搜索5.1.9、圖書借出5.1.10、圖書歸還5.1.11、借閱查詢5.2、普通用戶權(quán)限登錄5.2.1修改密碼5..2.2、搜索設(shè)計總結(jié)及分析6.1.1、功能：軟件基本完成上述所分析要求的功能。6.1.2、界面設(shè)計1.界面友好：本系統(tǒng)的界面很大眾化.功能不復(fù)雜.管理人員和用戶可以較好的把握各自對應(yīng)權(quán)限所有的功能。2.界面美觀：本系統(tǒng)界面比較粗糙.設(shè)計一些大方得體的圖片.圖表等使得界面更加的美麗.給人感覺更親近。七、課程設(shè)計體會圖書管理系統(tǒng)的使用.大大增加了圖書管理員的效率.這次我們設(shè)計的系統(tǒng)雖然完成.但依然存在一定問題：1.功能還比較簡單；2.沒有經(jīng)過大量用戶的實踐檢驗.無法保證完全滿足用戶各方面的要求；3.功能有待在使用過程中完善提高。在程序的設(shè)計過程中.通過各種資料的閱讀.更深一步的了解了圖書館管理信息系統(tǒng)、數(shù)據(jù)庫系統(tǒng)的的概念.為今后開發(fā)和設(shè)計信息系統(tǒng)和數(shù)據(jù)庫系統(tǒng)打下了深厚的基礎(chǔ)。在開發(fā)軟件的過程中.對編程工具VisualBasic從一無所知到能夠簡單的應(yīng)用.不僅新學(xué)會了一種功能強大的編程語言.而且提高了獨立自學(xué)的能力。在學(xué)習(xí)過程中.遇到了許多的問題.經(jīng)過努力.我終于沖破了這些難點。由于每個軟件的自身設(shè)計思路是不一樣的.在各種功能的實現(xiàn)上多存在著差異.這使我走了許多的彎路。但同時使我了解了一種新的思路.使我獲益匪淺。學(xué)到的知識是有限的.面對的實踐應(yīng)用是多種多樣的.所學(xué)很可能無法滿足所用.必須在實踐中、在應(yīng)用中不斷學(xué)習(xí)不斷提高.這次完成畢業(yè)設(shè)計的過程中我學(xué)到了許多從前聞所未聞的知識和技能。八、設(shè)計中所用到的程序代碼匯總OptionExplicitPrivateSubcmdOk_Click<>UnloadMeEndSubPrivateSubForm_Load<>frmAbout.Icon=LoadPicture<App.Path&"\SX.ico">'Image1.Picture=LoadPicture<App.Path&"\PIC\1.jpg">EndSub//背景圖片PrivateSubLabel1_Click<>EndSubOptionExplicitDimrsAsNewADODB.RecordsetPrivateSubcmdNo_Click<>UnloadMeEndSub//標簽PrivateSubcmdOk_Click<>Iftxt<0>.Text=""Ortxt<1>.Text=""OrCombo1.Text=""ThenMsgBox"請輸入完成的信息！"Elsers.Open"Select*From系統(tǒng)設(shè)置Where用戶名='"&txt<0>.Text&"'",cn,adOpenKeyset,adLockOptimisticIfrs.EOF=FalseThen'Ifrs.RecordCount<>0ThenMsgBox"有重名！",vbCritical,"警告"rs.CloseExitSubEndIfrs.CloseIftxt<2>.Text=txt<1>.TextThenrs.Open"系統(tǒng)設(shè)置",cn,adOpenKeyset,adLockOptimisticrs.AddNewrs.Fields<0>=txt<0>.Textrs.Fields<1>=txt<1>.Textrs.Fields<2>=Combo1.Textrs.Updaters.CloseMsgBox"添加新用戶成功！",,"恭喜"txt<0>.Text=""txt<1>.Text=""txt<2>.Text=""Combo1.ListIndex=-1ElseMsgBox"兩次輸入的密碼不相同.請確認后重新輸入",vbCritical,"警告"EndIfEndIfEndSub//注冊PrivateSubForm_Load<>Combo1.AddItem"System"Combo1.AddItem"Guest"cn.Open"Provider=Microsoft.Jet.oledb.4.0;DataSource="&App.Path&"\Library.mdb"Icon=LoadPicture<App.Path&"\SX.ico">EndSub//權(quán)限PrivateSubForm_Unload<CancelAsInteger>cn.CloseEndSubOptionExplicitPrivateSubcmdCancel_Click<>UnloadMeEndSubPrivateSubcmdOk_Click<>DimiAsIntegerIftxt<0>.Text=""Ortxt<1>.Text=""Ortxt<2>.Text=""Ortxt<3>.Text=""ThenMsgBox"請輸入完整的信息！"Elsers1.Open"讀者庫",cn,adOpenKeyset,adLockOptimisticrs1.AddNewFori=0To3rs1.Fields<i>=txt<i>.TextNextirs1.UpdateMsgBox"添加新用戶成功！",,"恭喜"txt<0>.Text=rs1.Fields<0>+1Fori=1To3txt<i>.Text=""NextiEndIfEndSubPrivateSubForm_Load<>cn.Open"Provider=Microsoft.Jet.oledb.4.0;DataSource="&App.Path&"\Library.mdb"rs1.Open"讀者庫",cn,adOpenKeyset,adLockOptimisticIfrs1.RecordCount=0Thentxt<0>.Text=1Elsers1.MoveLasttxt<0>.Text=rs1.Fields<0>+1'自動設(shè)置讀者編號避免讀者編號重復(fù)EndIfrs1.Closetxt<0>.Enabled=FalseIcon=LoadPicture<App.Path&"\SX.ico">EndSubPrivateSubForm_Unload<CancelAsInteger>cn.CloseEndSubOptionExplicitPrivateSubcmdAdd_Click<>DimiAsIntegerIftxt<0>.Text=""Ortxt<1>.Text=""Ortxt<2>.Text=""Ortxt<3>.Text=""Ortxt<4>.Text=""OrCombo1.Text=""ThenMsgBox"請輸入完整的信息！",vbCritical,"警告"ExitSubElsers1.AddNewFori=0To4rs1.Fields<i>=txt<i>.TextNextirs1.Fields<5>=Combo1.Textrs1.Fields<6>="Yes"rs1.UpdateBatchadAffectCurrentEndIfMsgBox"圖書新增成功！",,"提示"txt<0>.Text="ISBN-"&Right<rs1.Fields<0>,1>+1Fori=1To4txt<i>.Text=""NextiCombo1.ListIndex=-1EndSubPrivateSubcmdCancel_Click<>UnloadMeEndSubPrivateSubForm_Load<>cn.Open"Provider=Microsoft.Jet.oledb.4.0;DataSource="&App.Path&"\Library.mdb"rs1.Open"書庫",cn,adOpenKeyset,adLockOptimisticrs1.MoveLasttxt<0>.Text="ISBN-"&Right<rs1.Fields<0>,1>+1txt<0>.Enabled=FalseCombo1.AddItem"技術(shù)類"Combo1.AddItem"非技術(shù)類"Icon=LoadPicture<App.Path&"\SX.ico">EndSubPrivateSubForm_Unload<CancelAsInteger>rs1.Closecn.CloseEndSubOptionExplicitPrivateSubcmdB_Click<>IfText1<0>.Text=""OrText2<0>.Text=""OrText3.Text=""ThenMsgBox"請輸入完整的數(shù)據(jù)！",vbCritical,"警告"ExitSubElsers1.Open"Select*From書庫Where書號='"&Text1<0>.Text&"'",cn,adOpenKeyset,adLockOptimisticIfrs1.Fields<6>="Yes"Thenrs1.CloseDimtemp1AsString,temp2AsStringrs1.Open"Select*From書庫Where書號='"&Text1<0>.Text&"'",cn,adOpenKeyset,adLockOptimistictemp1=rs1.Fields<1>rs1.Closers1.Open"Select*From讀者庫Where讀者編號='"&Text2<0>.Text&"'",cn,adOpenKeyset,adLockOptimistictemp2=rs1.Fields<1>rs1.Closers1.Open"借閱記錄",cn,adOpenKeyset,adLockOptimisticrs1.AddNewrs1.Fields<1>=Text1<0>.Textrs1.Fields<2>=temp1rs1.Fields<3>=Text3.Textrs1.Fields<5>=Text2<0>.Textrs1.Fields<6>=temp2rs1.UpdateBatchadAffectCurrentrs1.Closers1.Open"Select*From書庫Where書號='"&Text1<0>.Text&"'",cn,adOpenKeyset,adLockOptimisticrs1.Fields<6>="No"rs1.UpdateBatchadAffectCurrentrs1.CloseMsgBox"已辦理好借閱手續(xù)！",,"提示"ElseMsgBox"該書已經(jīng)被借出",vbCritical,"提示"rs1.CloseEndIfEndIfEndSubPrivateSubcmdCancel_Click<>UnloadMeEndSubPrivateSubForm_Load<>cn.Open"Provider=Microsoft.Jet.oledb.4.0;DataSource="&App.Path&"\Library.mdb"Text3.Text=DateText3.Enabled=FalseIcon=LoadPicture<App.Path&"\SX.ico">EndSubPrivateSubForm_Unload<CancelAsInteger>cn.CloseEndSubOptionExplicitPrivateSubcmdCancel_Click<>UnloadMeEndSubPrivateSubcmdDelete_Click<>Iftxt<0>.Text=""Ortxt<1>=""Ortxt<2>=""Ortxt<3>=""Ortxt<4>=""OrCombo1.Text=""ThenMsgBox"請單擊行標選擇需要修改的圖書行",vbCritical,"提示"ExitSubElseIftxt<0><>rs1.Fields<0>ThenMsgBox"請單擊行標選擇需要修改的圖書行",vbCritical,"提示"ElseIfMsgBox<"確認刪除讀者么？",vbYesNo,"提示">=vbYesThenrs1.DeleteadAffectCurrent'rs1.UpdateBatchadAffectCurrentrs1.MoveLastDimiAsIntegerFori=0To4txt<i>=""NextiCombo1.ListIndex=-1EndIfMsgBox"刪除成功！",,"提示"EndIfEndIfEndSubPrivateSubDataGrid1_Click<>DimiAsIntegerFori=0To4txt<i>.Text=rs1.Fields<i>NextiCombo1.Text=rs1.Fields<5>EndSubPrivateSubForm_Load<>cn.Open"Provider=Microsoft.Jet.oledb.4.0;DataSource="&App.Path&"\Library.mdb"rs1.CursorLocation=adUseClientrs1.Open"書庫",cn,adOpenKeyset,adLockOptimisticSetDataGrid1.DataSource=rs1txt<0>.Enabled=FalseIcon=LoadPicture<App.Path&"\SX.ico">EndSubPrivateSubForm_Unload<CancelAsInteger>rs1.Closecn.CloseEndSubOptionExplicitPrivateSubcmdCancel_Click<>UnloadMeEndSubPrivateSubcmdEdit_Click<>Iftxt<0>.Text=""Ortxt<1>=""Ortxt<2>=""Ortxt<3>=""Ortxt<4>=""OrCombo1.Text=""ThenMsgBox"請單擊行標選擇需要修改的圖書行",vbCritical,"提示"ExitSubElseIftxt<0><>rs1.Fields<0>ThenMsgBox"請單擊行標選擇需要修改的圖書行",vbCritical,"提示"ElseIfMsgBox<"確認要修改么？",vbYesNo,"提示">=vbYesThenDimiAsIntegerFori=0To4rs1.Fields<i>=txt<i>.TextNextirs1.Fields<5>=Combo1.Textrs1.UpdateBatchadAffectCurrentMsgBox"修改成功",,"提示"EndIfEndIfEndIfEndSubPrivateSubDataGrid1_Click<>DimiAsIntegerFori=0To4txt<i>.Text=rs1.Fields<i>NextiCombo1.Text=rs1.Fields<5>EndSubPrivateSubForm_Load<>cn.Open"Provider=Microsoft.Jet.oledb.4.0;DataSource="&App.Path&"\Library.mdb"rs1.CursorLocation=adUseClientrs1.Open"書庫",cn,adOpenKeyset,adLockOptimisticSetDataGrid1.DataSource=rs1txt<0>.Enabled=FalseIcon=LoadPicture<App.Path&"\SX.ico">EndSubPrivateSubForm_Unload<CancelAsInteger>rs1.Closecn.CloseEndSubOptionExplicitPrivateSubcmdSearch_Click<>OnErrorResumeNextrs1.Closers1.CursorLocation=adUseClientrs1.Open"Select*From書庫Where"&Combo1.Text&"='"&txt_Search.Text&"'",cn,adOpenKeyset,adLockOptimisticSetDataGrid1.DataSource=rs1Ifrs1.RecordCount=0ThenMsgBox"查無此書"EndSubPrivateSubForm_Load<>cn.Open"Provider=Microsoft.Jet.oledb.4.0;DataSource="&App.Path&"\Library.mdb"Combo1.AddItem"書號"Combo1.AddItem"書名"Combo1.AddItem"作者"Combo1.AddItem"出版社"Combo1.AddItem"類別"