圖書管理系統(tǒng)設(shè)計方案

1、 圖書管理系統(tǒng)設(shè)計方案目錄1、 引言.12、 需求分析.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)詳細(xì)設(shè)計.4 4.1、數(shù)據(jù)庫的設(shè)計.44.2、管理模塊的具體設(shè)計.64.3、數(shù)據(jù)庫和管理模塊的連接.115、 軟件調(diào)試.12 5.1、管理員權(quán)限操作.12 5.2、普通用戶操作.176、 設(shè)計總結(jié)及分析.187、 課程設(shè)計體會.188、設(shè)計中所用到的程序代碼匯總.19一、引言隨著人們對物質(zhì)需求的逐步滿足，精神

2、文明的追求日益增加，大大小小的書店，圖書館到處可見，特別是一些規(guī)模較大的學(xué)校，圖書館的數(shù)量以及規(guī)模都在增大。隨著各圖書館的圖書的數(shù)量不斷增多和圖書館規(guī)模的不斷擴(kuò)大，管理這些龐大的體系非常困難的，因為圖書的情況是隨時改變的，因此必需對圖書進(jìn)行動態(tài)的管理，而這對于一個管理人員來說是一件比較復(fù)雜的事情，存儲、查詢、借閱是必不可少的業(yè)務(wù)。數(shù)據(jù)處理手工操作，工作量大，出錯率高，出錯后不易更改。圖書館采取手工方式對圖書借閱情況進(jìn)行人工管理，由于信息比較多，圖書借閱信息的管理工作混亂而又復(fù)雜；基于這一點，開發(fā)了這個圖書管理系統(tǒng)，它將圖書借還這一傳統(tǒng)方式進(jìn)行信息化。我們這一系統(tǒng)滿足了對日常的圖書管理；圖書的出

3、租與歸還的管理；圖書的總量；圖書是否借出查詢一數(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ù)項有：讀者編號、讀者姓名、聯(lián)系電話、所屬部門。2.書庫，包括的數(shù)據(jù)項有：書號、書名、作者、出版社、單價、類別、在庫狀態(tài)。3.借閱記錄

4、，包括的數(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ù)流程，就可以進(jìn)行下面的數(shù)據(jù)庫設(shè)計了。 三、系統(tǒng)設(shè)計 3.1、設(shè)計圖書管理系統(tǒng)的功能結(jié)構(gòu)：讀者管理圖書查詢圖書借出借閱管理圖書管理系統(tǒng)庫

5、圖書庫管理系統(tǒng)管理 用戶 管理員 節(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è)計出功能模塊以及說明：1. 系統(tǒng)管理模塊：用于登錄、增加用戶、修改用戶密碼等操作。2. 讀者管理模塊：用于新增讀者、編輯讀者和刪除讀者的操作。3. 圖書庫管理模塊：用于新增圖書、編輯圖書和刪除圖書操作

6、。4. 圖書查詢管理模塊：用于庫中圖書的查詢操作。5. 圖書借閱管理模塊：用于圖書借出、圖書歸還和圖書借閱記錄查詢操作。6. 系統(tǒng)信息模塊：用于顯示軟件信息和退出操作。四、系統(tǒng)詳細(xì)設(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ù)表主要是用于存儲讀者信息，只有等級的讀者才具有借閱資格。包括：讀者編號、讀者姓名、聯(lián)系電話、所屬部門，四個字段。 4.1.3、“書庫”數(shù)據(jù)表主要是用于存

7、儲圖書信息，包括：書號、書名、作者、出版社、單價、類別、在庫狀態(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窗體的前提下，從菜單欄中選擇，從而進(jìn)行菜單編輯。 2、在菜單編輯器中依次創(chuàng)建系統(tǒng)管理、新增用戶、修改密碼、分割線、關(guān)于軟件、分割線、退出系統(tǒng)、讀者管理、讀者新增、讀者編輯、讀者刪除、圖書庫管

8、理、圖書新增、圖書編輯、圖書刪除、圖書查詢、借閱管理、圖書接觸、圖書歸還、借閱查詢等菜單。 3、菜單設(shè)計完成后，返回MDI窗體，顯示如下圖。4.2.2、系統(tǒng)管理模塊設(shè)計 系統(tǒng)管理模塊包括登陸模塊窗體、新增用戶窗體模塊和密碼修改模塊窗體。用戶登錄模塊的功能是防止不合法用戶的登錄；增加用戶窗體模塊用于實現(xiàn)新增用戶功能；密碼修改模塊用于實現(xiàn)合法用戶修改密碼的功能。具體設(shè)計如下： 1、在空白的窗體上，添加標(biāo)簽控件、文本框控件、命令按鈕等并調(diào)整大小及位置然后設(shè)置其各自的屬性，顯示如下。 2、對下列事件編程，為登錄窗體調(diào)價啟動事件，為定時器添加timer事件，為登陸窗體添加啟動事件，為登錄窗體添加“登錄”

9、按鈕事件，為在登錄窗體中實現(xiàn)權(quán)限設(shè)置在公共模塊添加代碼。具體代碼見附件3、創(chuàng)建新增用戶窗體，添加標(biāo)簽控件、文本框控件、文本框控件以及組合框控件以及命令按鈕控件，調(diào)整大小以及位置顯示如下。4、 在窗體中將新用戶、密碼和權(quán)限添加到數(shù)據(jù)庫中。代碼見附件。5、 創(chuàng)建修改密碼窗體模塊，即只要知道用戶名和正確密碼前提下，修改登錄密碼。在窗體上添加各控件并設(shè)置相應(yīng)屬性后顯示如下。6、設(shè)置“提交”按鈕功能，實現(xiàn)修改密碼的目的，代碼見附件4.2.3、讀者管理模塊設(shè)計1、在創(chuàng)建讀者新增窗體模塊，即在一個空白的窗體上添加Frame控件、標(biāo)簽控件、文本框控件以及命令控件，調(diào)整窗體大小以及其他控件的屬性，顯示如下。2、

10、 設(shè)置窗體啟動事件，主要實現(xiàn)連接數(shù)據(jù)庫并初始化讀者編號等功能，代碼見附件3、 設(shè)置“確定”按鈕，用于實現(xiàn)登錄新的圖紙信息的目的，具體代碼見附件。4、同上創(chuàng)建讀者編輯窗體以及讀者刪除窗體。顯示如下。（代碼見附件）4.2.3、圖書庫管理模塊設(shè)計如上述的步驟建立圖書庫管理模塊，顯示如下（代碼見附件）4.2.4、圖書查詢模塊以及圖書借閱管理模塊設(shè)計如上述的步驟建立，顯示如下（代碼見附件）4.3數(shù)據(jù)庫和管理模塊的連接4.3.1、準(zhǔn)備工作主要包括ADO庫文件的導(dǎo)入以及模塊中Sub Main的設(shè)置，具體操作步驟如下：第一步：新建EXE標(biāo)準(zhǔn)工程，并保存為“圖書管理系統(tǒng)”工程。從菜單欄中選擇【工程】【引用】命令

11、，彈出【引用】對話框。第二步：在【引用】對話框中的列表框內(nèi)選中Microsoft ActiveX Data Objects 2.8Library復(fù)選框。第三步：單擊【確定】按鈕返回集成開發(fā)環(huán)境，即完成ADO庫文件的導(dǎo)入工作。接著在模塊中設(shè)置 Sub Main，即在工程資源管理窗口中完成模塊的添加操作后，接著便為模塊添加代碼，即在工程資源管理窗口中雙擊新建的模塊圖標(biāo)，進(jìn)入模塊的代碼編輯窗口，在其中輸入如下代碼：Sub Main() On Error GoTo Err 使用錯誤處理語句 Cn.Open “Provider=Microsoft.Jet.oledb.4.0;Data Source=”&

12、amp; App.Path&”JXC.mdb” frmLogin.Show Exit SubErr: MsgBox”數(shù)據(jù)庫連接錯誤！”,vbCritical,”警告” EndEnd Sub第四步：在工程屬性中設(shè)置啟動對象，即從菜單欄中選擇【工程】【屬性】命令，在彈出的【工程屬性】對話框中的【通用】選項下，將“啟動對象”設(shè)置為Sub Main，單擊【確定】按鈕，即可完成進(jìn)圖書系統(tǒng)的數(shù)據(jù)庫連接準(zhǔn)備工作。4.3.2、用戶的權(quán)限及實現(xiàn)方法定義權(quán)限，即普通用戶權(quán)限不能增加新用戶、不能使用圖書管理模塊和借閱管理模塊，而管理級用戶可以使用全部功能。第一步 在公共模塊中定義一個布爾變量并聲明一個函數(shù)，

13、代碼編寫如下：Public Function QuanXian(blnDJ As Boolean) If blnDJ = True Then 當(dāng)為True時，即管理級用戶 MDIForm1.mnuAddNew = True MDIForm1.mnuIn = True MDIForm1.mnuOut = True Else 否則為普通用戶 MDIForm1.mnuAddNew = False 響應(yīng)的菜單呈無用狀態(tài) MDIForm1.mnuIn = False MDIForm1.mnuOut = False End IfEnd Function第二步 在登錄窗體中添加獲取登錄時用戶的應(yīng)有權(quán)限。rs

14、2.Open "Select 權(quán)限 From 系統(tǒng) Where 用戶名='" & Combo1.Text & "' ", _ cn, adOpenKeyset, adLockOptimistic If rs2.Fields(0) = "System" Then blnDJ = True If rs2.Fields(0) = "Guest" Then blnDJ = False rs2.Close 第三步 在主窗體（MDI）窗體下響應(yīng)登錄窗體中用戶權(quán)限的選擇，即在主窗體的啟動事件中添加

15、如下代碼即可。Call Quanxian(blnDJ)5、 軟件的調(diào)試分為兩個部分進(jìn)行，一是管理員，二是用戶。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、搜索6、 設(shè)計總結(jié)及分析6.1.1、功能 ：軟件基本完成上述所分析要求的功能。6.1.2、界面設(shè)計1.界面友好：本系統(tǒng)的界面很大眾化，功能不復(fù)雜，管理人員和用戶可以較好的把握各自對應(yīng)權(quán)限所

16、有的功能。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ā)軟件的過程中，對編程工具 Visual Basic從一無所知到能夠簡單的應(yīng)用，不僅新學(xué)會了一種功能強(qiáng)

17、大的編程語言，而且提高了獨立自學(xué)的能力。在學(xué)習(xí)過程中，遇到了許多的問題，經(jīng)過努力，我終于沖破了這些難點。由于每個軟件的自身設(shè)計思路是不一樣的，在各種功能的實現(xiàn)上多存在著差異，這使我走了許多的彎路。但同時使我了解了一種新的思路，使我獲益匪淺。學(xué)到的知識是有限的，面對的實踐應(yīng)用是多種多樣的，所學(xué)很可能無法滿足所用，必須在實踐中、在應(yīng)用中不斷學(xué)習(xí)不斷提高，這次完成畢業(yè)設(shè)計的過程中我學(xué)到了許多從前聞所未聞的知識和技能。八、設(shè)計中所用到的程序代碼匯總Option ExplicitPrivate Sub cmdOk_Click() Unload MeEnd SubPrivate Sub Form_Load

18、() frmAbout.Icon = LoadPicture(App.Path & "SX.ico")' Image1.Picture = LoadPicture(App.Path & "PIC1.jpg")End Sub /背景圖片Private Sub Label1_Click()End SubOption ExplicitDim rs As New ADODB.RecordsetPrivate Sub cmdNo_Click() Unload MeEnd Sub /標(biāo)簽Private Sub cmdOk_Click() If

19、 txt(0).Text = "" Or txt(1).Text = "" Or Combo1.Text = "" Then MsgBox "請輸入完成的信息！" Else rs.Open "Select * From 系統(tǒng)設(shè)置 Where 用戶名='" & txt(0).Text & "'", cn, adOpenKeyset, adLockOptimistic If rs.EOF = False Then ' If rs.Recor

20、dCount <> 0 Then MsgBox "有重名！", vbCritical, "警告" rs.Close Exit Sub End If rs.Close If txt(2).Text = txt(1).Text Then rs.Open "系統(tǒng)設(shè)置", cn, adOpenKeyset, adLockOptimistic rs.AddNew rs.Fields(0) = txt(0).Text rs.Fields(1) = txt(1).Text rs.Fields(2) = Combo1.Text rs.Up

21、date rs.Close MsgBox "添加新用戶成功！", , "恭喜" txt(0).Text = "" txt(1).Text = "" txt(2).Text = "" Combo1.ListIndex = -1 Else MsgBox "兩次輸入的密碼不相同，請確認(rèn)后重新輸入", vbCritical, "警告" End If End IfEnd Sub /注冊Private Sub Form_Load() Combo1.AddItem &q

22、uot;System" Combo1.AddItem "Guest" cn.Open "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & App.Path & "Library.mdb" Icon = LoadPicture(App.Path & "SX.ico")End Sub /權(quán)限Private Sub Form_Unload(Cancel As Integer) cn.CloseEnd SubOption ExplicitPr

23、ivate Sub cmdCancel_Click() Unload MeEnd SubPrivate Sub cmdOk_Click() Dim i As Integer If txt(0).Text = "" Or txt(1).Text = "" Or txt(2).Text = "" Or txt(3).Text = "" Then MsgBox "請輸入完整的信息！" Else rs1.Open "讀者庫", cn, adOpenKeyset, adLockOpti

24、mistic rs1.AddNew For i = 0 To 3 rs1.Fields(i) = txt(i).Text Next i rs1.Update MsgBox "添加新用戶成功！", , "恭喜" txt(0).Text = rs1.Fields(0) + 1 For i = 1 To 3 txt(i).Text = "" Next i End IfEnd SubPrivate Sub Form_Load() cn.Open "Provider=Microsoft.Jet.oledb.4.0;Data Sourc

25、e=" & App.Path & "Library.mdb" rs1.Open "讀者庫", cn, adOpenKeyset, adLockOptimistic If rs1.RecordCount = 0 Then txt(0).Text = 1 Else rs1.MoveLast txt(0).Text = rs1.Fields(0) + 1 '自動設(shè)置讀者編號 避免讀者編號重復(fù) End If rs1.Close txt(0).Enabled = False Icon = LoadPicture(App.Path

26、& "SX.ico")End SubPrivate Sub Form_Unload(Cancel As Integer) cn.CloseEnd SubOption ExplicitPrivate Sub cmdAdd_Click() Dim i As Integer If txt(0).Text = "" Or txt(1).Text = "" Or txt(2).Text = "" Or txt(3).Text = "" Or txt(4).Text = "" O

27、r Combo1.Text = "" Then MsgBox "請輸入完整的信息！", vbCritical, "警告" Exit Sub Else rs1.AddNew For i = 0 To 4 rs1.Fields(i) = txt(i).Text Next i rs1.Fields(5) = Combo1.Text rs1.Fields(6) = "Yes" rs1.UpdateBatch adAffectCurrent End If MsgBox "圖書新增成功！", , "

28、;提示" txt(0).Text = "ISBN-" & Right(rs1.Fields(0), 1) + 1 For i = 1 To 4 txt(i).Text = "" Next i Combo1.ListIndex = -1End SubPrivate Sub cmdCancel_Click() Unload MeEnd SubPrivate Sub Form_Load() cn.Open "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & App.P

29、ath & "Library.mdb" rs1.Open "書庫", cn, adOpenKeyset, adLockOptimistic rs1.MoveLast txt(0).Text = "ISBN-" & Right(rs1.Fields(0), 1) + 1 txt(0).Enabled = False Combo1.AddItem "技術(shù)類" Combo1.AddItem "非技術(shù)類" Icon = LoadPicture(App.Path & "S

30、X.ico")End SubPrivate Sub Form_Unload(Cancel As Integer) rs1.Close cn.CloseEnd SubOption ExplicitPrivate Sub cmdB_Click() If Text1(0).Text = "" Or Text2(0).Text = "" Or Text3.Text = "" Then MsgBox "請輸入完整的數(shù)據(jù)！", vbCritical, "警告" Exit Sub Else rs1.

31、Open "Select * From 書庫 Where 書號='" & Text1(0).Text & "'", cn, adOpenKeyset, adLockOptimistic If rs1.Fields(6) = "Yes" Then rs1.Close Dim temp1 As String, temp2 As String rs1.Open "Select * From 書庫 Where 書號='" & Text1(0).Text & "

32、;'", cn, adOpenKeyset, adLockOptimistic temp1 = rs1.Fields(1) rs1.Close rs1.Open "Select * From 讀者庫 Where 讀者編號= '" & Text2(0).Text & "'", cn, adOpenKeyset, adLockOptimistic temp2 = rs1.Fields(1) rs1.Close rs1.Open "借閱記錄", cn, adOpenKeyset, adLoc

33、kOptimistic rs1.AddNew rs1.Fields(1) = Text1(0).Text rs1.Fields(2) = temp1 rs1.Fields(3) = Text3.Text rs1.Fields(5) = Text2(0).Text rs1.Fields(6) = temp2 rs1.UpdateBatch adAffectCurrent rs1.Close rs1.Open "Select * From 書庫 Where 書號='" & Text1(0).Text & "'", cn, ad

34、OpenKeyset, adLockOptimistic rs1.Fields(6) = "No" rs1.UpdateBatch adAffectCurrent rs1.Close MsgBox "已辦理好借閱手續(xù)！", , "提示" Else MsgBox "該書已經(jīng)被借出", vbCritical, "提示" rs1.Close End If End IfEnd SubPrivate Sub cmdCancel_Click() Unload MeEnd SubPrivate Sub For

35、m_Load() cn.Open "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & App.Path & "Library.mdb" Text3.Text = Date Text3.Enabled = False Icon = LoadPicture(App.Path & "SX.ico")End SubPrivate Sub Form_Unload(Cancel As Integer) cn.CloseEnd SubOption ExplicitPrivate

36、 Sub cmdCancel_Click() Unload MeEnd SubPrivate Sub cmdDelete_Click()If txt(0).Text = "" Or txt(1) = "" Or txt(2) = "" Or txt(3) = "" Or txt(4) = "" Or Combo1.Text = "" Then MsgBox "請單擊行標(biāo)選擇需要修改的圖書行", vbCritical, "提示" Exit

37、 SubElse If txt(0) <> rs1.Fields(0) Then MsgBox "請單擊行標(biāo)選擇需要修改的圖書行", vbCritical, "提示" Else If MsgBox("確認(rèn)刪除讀者么？", vbYesNo, "提示") = vbYes Then rs1.Delete adAffectCurrent ' rs1.UpdateBatch adAffectCurrent rs1.MoveLast Dim i As Integer For i = 0 To 4 txt(i

38、) = "" Next i Combo1.ListIndex = -1 End If MsgBox "刪除成功！", , "提示" End IfEnd IfEnd SubPrivate Sub DataGrid1_Click() Dim i As Integer For i = 0 To 4 txt(i).Text = rs1.Fields(i) Next i Combo1.Text = rs1.Fields(5)End SubPrivate Sub Form_Load() cn.Open "Provider=Microso

39、ft.Jet.oledb.4.0;Data Source=" & App.Path & "Library.mdb" rs1.CursorLocation = adUseClient rs1.Open "書庫", cn, adOpenKeyset, adLockOptimistic Set DataGrid1.DataSource = rs1 txt(0).Enabled = False Icon = LoadPicture(App.Path & "SX.ico")End SubPrivate Sub

40、Form_Unload(Cancel As Integer) rs1.Close cn.CloseEnd SubOption ExplicitPrivate Sub cmdCancel_Click() Unload MeEnd SubPrivate Sub cmdEdit_Click()If txt(0).Text = "" Or txt(1) = "" Or txt(2) = "" Or txt(3) = "" Or txt(4) = "" Or Combo1.Text = "&qu

41、ot; Then MsgBox "請單擊行標(biāo)選擇需要修改的圖書行", vbCritical, "提示" Exit SubElse If txt(0) <> rs1.Fields(0) Then MsgBox "請單擊行標(biāo)選擇需要修改的圖書行", vbCritical, "提示" Else If MsgBox("確認(rèn)要修改么？", vbYesNo, "提示") = vbYes Then Dim i As Integer For i = 0 To 4 rs1.Fiel

42、ds(i) = txt(i).Text Next i rs1.Fields(5) = Combo1.Text rs1.UpdateBatch adAffectCurrent MsgBox "修改成功", , "提示" End If End IfEnd IfEnd SubPrivate Sub DataGrid1_Click() Dim i As Integer For i = 0 To 4 txt(i).Text = rs1.Fields(i) Next i Combo1.Text = rs1.Fields(5)End SubPrivate Sub Fo

43、rm_Load() cn.Open "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & App.Path & "Library.mdb" rs1.CursorLocation = adUseClient rs1.Open "書庫", cn, adOpenKeyset, adLockOptimistic Set DataGrid1.DataSource = rs1 txt(0).Enabled = False Icon = LoadPicture(App.Path &

44、; "SX.ico")End SubPrivate Sub Form_Unload(Cancel As Integer) rs1.Close cn.CloseEnd SubOption ExplicitPrivate Sub cmdSearch_Click() On Error Resume Next rs1.Close rs1.CursorLocation = adUseClient rs1.Open "Select * From 書庫 Where " & Combo1.Text & " ='" &

45、txt_Search.Text & "'", cn, adOpenKeyset, adLockOptimistic Set DataGrid1.DataSource = rs1 If rs1.RecordCount = 0 Then MsgBox "查無此書" End SubPrivate Sub Form_Load() cn.Open "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & App.Path & "Library.mdb" Combo1.AddItem "書號" Combo1.AddItem "書名" Combo1.AddItem "作者&