圖書(shū)查詢管理系統(tǒng)

圖書(shū)館管理信息系統(tǒng)圖書(shū)查詢管理系統(tǒng).2.6實(shí)體之間相互關(guān)系的E-R圖書(shū)籍類別信息書(shū)籍類別信息讀者類別信息書(shū)籍信息登記讀者信息登記書(shū)籍信息管理讀者信息管理借閱書(shū)籍借閱信息管理5.3邏輯結(jié)構(gòu)設(shè)計(jì)圖書(shū)館管理信息系統(tǒng)數(shù)據(jù)庫(kù)中各個(gè)表格的設(shè)計(jì)是在Access中建立的，各個(gè)表的建立如下所示。5.4數(shù)據(jù)庫(kù)邏輯設(shè)計(jì)該圖書(shū)館管理信息系統(tǒng)的數(shù)據(jù)庫(kù)主要是采用ACCESS數(shù)據(jù)庫(kù)建表。數(shù)據(jù)庫(kù)所涉及的表包括：讀者類別表、讀者信息表、圖書(shū)類別表、圖書(shū)信息表、借閱信息表、系統(tǒng)管理表。5.4.1讀者類別數(shù)據(jù)庫(kù)表。讀者類別信息表包括讀者的種類名稱、借書(shū)數(shù)量、借書(shū)期限和有限期限四個(gè)字段。打開(kāi)Access數(shù)據(jù)庫(kù)中的“文件/新建”菜單，選擇空數(shù)據(jù)庫(kù)項(xiàng)后點(diǎn)擊打開(kāi)，在空數(shù)據(jù)庫(kù)表中選擇“通過(guò)輸入數(shù)據(jù)創(chuàng)建表”，根據(jù)調(diào)查和掌握的資料輸入數(shù)據(jù)創(chuàng)建讀者類別信息表。表設(shè)計(jì)結(jié)果如圖所示：讀者類別種類名稱借書(shū)數(shù)量借書(shū)期限有效期限001187700211012003745004744005110105.4.2創(chuàng)建讀者信息數(shù)據(jù)庫(kù)表。讀者姓名讀者編號(hào)書(shū)籍編號(hào)書(shū)籍名稱書(shū)籍類別書(shū)籍頁(yè)碼出版社借書(shū)日期張宇001G-120VisualC++計(jì)算機(jī)243計(jì)算機(jī)出版社2003-王明002E-172世界足球體育53陜西出版社2004-5-5黃毅003D-055世界軍事軍事123美術(shù)出版社2005-讀者信息數(shù)據(jù)庫(kù)表包括的字段名有：讀者姓名、讀者編號(hào)、書(shū)籍編號(hào)、書(shū)籍編號(hào)、書(shū)籍名稱、書(shū)籍類別、書(shū)籍頁(yè)碼、出版社以及借書(shū)日期。具體創(chuàng)建信息表的過(guò)程同讀者類別表，根據(jù)資料輸入數(shù)據(jù)。讀者信息表的設(shè)計(jì)結(jié)果如圖所示：5.4.3創(chuàng)建圖書(shū)類別數(shù)據(jù)庫(kù)表。讀者類別數(shù)據(jù)庫(kù)表包括類別名稱和類別名稱兩個(gè)字段，創(chuàng)建信息表的過(guò)程同上。根據(jù)資料輸入數(shù)據(jù)，設(shè)計(jì)的圖書(shū)類別信息表如圖所示：圖書(shū)類別類別名稱類別編號(hào)體育A歷史B文學(xué)C軍事D體育E外語(yǔ)F計(jì)算機(jī)G人物傳H5.4.4創(chuàng)建圖書(shū)信息數(shù)據(jù)庫(kù)表圖書(shū)信息數(shù)據(jù)庫(kù)表包括的字段有圖書(shū)編號(hào)、書(shū)名、類別、作者、出版社、登記日期以及是否被借出。具體創(chuàng)建信息表的過(guò)程同上。根據(jù)資料輸入數(shù)據(jù)完成圖書(shū)信息數(shù)據(jù)庫(kù)表。信息表的設(shè)計(jì)結(jié)果如圖所示：圖書(shū)信息圖書(shū)編號(hào)書(shū)名類別作者出版社出版日期登記日期是否被借出G-312計(jì)算機(jī)模擬物理計(jì)算機(jī)黃文大學(xué)出版社2002-2003-否G-313VisualBasic計(jì)算機(jī)黃文大學(xué)出版社2002-2003-是G-314VisualC++計(jì)算機(jī)劉登富計(jì)算機(jī)出版社2003-2003-是C-414世界文學(xué)文學(xué)高明大學(xué)出版社2002-2003-否F-21計(jì)算機(jī)基礎(chǔ)英語(yǔ)英語(yǔ)楊通大學(xué)出版社2001-2002-否5.4.5創(chuàng)建借閱信息表。借閱信息數(shù)據(jù)庫(kù)表包括借閱編號(hào)、讀者編號(hào)、讀者姓名、圖書(shū)編號(hào)、書(shū)名、出借日期和還書(shū)日期等幾個(gè)字段。具體創(chuàng)建表的過(guò)程相同，根據(jù)資料輸入數(shù)據(jù)完成借閱信息表的創(chuàng)建。信息表的設(shè)計(jì)結(jié)果如圖：借閱信息借閱編號(hào)讀者編號(hào)讀者姓名書(shū)籍編號(hào)書(shū)籍名稱出借日期還書(shū)日期7002王明E-172世界足球2004-5-52004-6-76001張宇G-120VisualC++2003-2003-12-208003黃毅D-055世界軍事2005-2005.4.6創(chuàng)建系統(tǒng)設(shè)置。系統(tǒng)設(shè)置包括基本設(shè)置和圖書(shū)類別兩部分?；驹O(shè)置的設(shè)計(jì)結(jié)果如圖：圖書(shū)類別設(shè)計(jì)結(jié)果如圖：第六章主窗體的創(chuàng)建6.1創(chuàng)建工程項(xiàng)目—1-MIS打開(kāi)VisualBasic后，單擊FileNewProject菜單，在工程模板中選擇StandardEXE，VisualBasic將自動(dòng)產(chǎn)生一個(gè)form窗體，屬性都是缺省設(shè)置。這里我們刪除這個(gè)窗體，單擊FileSaveProject菜單，將這個(gè)項(xiàng)目命名為1—MIS。6.1.1創(chuàng)建主窗體這個(gè)項(xiàng)目我們使用多文檔界面，單擊工具欄中的ADDMDIForm按鈕，生成一個(gè)窗體。在這個(gè)窗體上添加所需的控件，通過(guò)設(shè)置屬性，就可以建好主窗體，建好的主窗體如下圖。6.1.2創(chuàng)建主窗體的菜單在主窗體中，單擊鼠標(biāo)右鍵，選擇彈出式菜單中的“菜單編輯器”，創(chuàng)建如下的菜單結(jié)構(gòu)。書(shū)庫(kù)管理……..添加圖書(shū)信息……..修改圖書(shū)信息……..刪除圖書(shū)信息……..查詢圖書(shū)信息系統(tǒng)查詢……..書(shū)庫(kù)查詢……..借閱查詢圖書(shū)類別……..添加新類別……..修改舊類別……..刪除舊類別圖書(shū)借閱管理….借書(shū)管理……..添加借書(shū)信息……..查詢借書(shū)信息….續(xù)借圖書(shū)……..添加續(xù)借信息….還書(shū)信息……..添加還書(shū)信息6.2主要界面的設(shè)計(jì)我們主要介紹圖書(shū)管理和讀者管理中主要界面的設(shè)計(jì)，其具體設(shè)計(jì)的界面如下所示。6.2.1修改圖書(shū)類別界面在設(shè)計(jì)該界面時(shí)，我們添加了datagrid空間和四個(gè)command控件，command控件的caption分別為“添加新類別”“修改舊類別”、“刪舊除類別”、“保存”和“取消”，點(diǎn)擊“修改舊類別”可以對(duì)datagrid中的記錄進(jìn)行修改，點(diǎn)擊“保存”，顯示“修改成功”對(duì)話框，表示修改圖書(shū)類別成功（添加及刪除同修改）。如下圖所示：6.2.2添加圖書(shū)信息界面在該界面上，用戶可以在文本框中輸入圖書(shū)的信息，如：書(shū)籍編號(hào)、書(shū)籍名稱、書(shū)籍類別、出版社、作者姓名、登記日期等基本信息，單擊“確定”按鈕，出現(xiàn)“添加圖書(shū)信息成功”窗口，表示添加成功，單擊“關(guān)閉”取消該窗口（此交易只可用于新增書(shū)籍信息）。書(shū)庫(kù)管理中可新增、修改、刪除圖書(shū)信息，如下圖所示：6.2.3查詢圖書(shū)信息界面在設(shè)計(jì)該界面時(shí)，我們用到了復(fù)選框（checkbox），它表示選中該項(xiàng)，用戶就可在該項(xiàng)后面的文本框中輸入所要查詢的圖書(shū)的信息，如：書(shū)名、編號(hào)、出版社等。點(diǎn)擊“確定”，所要查詢的圖書(shū)信息就會(huì)在數(shù)據(jù)表格中顯示。6.2.4正常借書(shū)界面在該界面上，我們使用了分組框（frame）控件，使界面直觀、簡(jiǎn)單。用戶點(diǎn)擊“正?！保涂梢詫?duì)數(shù)據(jù)表格中的讀者信息進(jìn)行修改，輸入讀者編號(hào)，書(shū)籍編號(hào)，點(diǎn)擊“借出當(dāng)前圖書(shū)”，即表示該讀者借閱此書(shū)，若要取消，點(diǎn)擊其它窗口。6.2.5續(xù)借圖書(shū)界面在該界面上，也是使用了最基本的控件，使界面很直觀，也操作非常方便。（用于該讀者借閱到期后續(xù)借圖書(shū)）6.2.6還書(shū)界面在該界面上，也是使用了最基本的控件，使界面很直觀，也操作非常方便。（用于讀者借閱到期后還書(shū)）6.2.7查詢讀者信息界面在界面設(shè)計(jì)時(shí)，在文本框中輸入讀者編號(hào)、讀者姓名、書(shū)籍編號(hào)等任何一項(xiàng)信息，點(diǎn)擊“開(kāi)始查詢”即可查詢所需信息。6.3連接界面裝置在主窗體form1的代碼窗口中編寫(xiě)以下代碼，就可以將各個(gè)窗體連接起來(lái)，實(shí)現(xiàn)界面的連接。PrivateSubadd_admin_Click()frmadduser.ShowEndSubPrivateSubadd_back_book_Click()frmbackbookinfo.ShowEndSubPrivateSubadd_book_info_Click()frmaddbookinfo.ShowEndSubPrivateSubadd_book_style_Click()frmaddbookstyle.ShowEndSubPrivateSubadd_lend_book_Click()frmborrowbook.ShowEndSubPrivateSubadd_reader_info_Click()frmaddreaderinfo.ShowEndSubPrivateSubadd_reader_style_Click()frmaddreaderstyle.ShowEndSubPrivateSubchange_pwd_Click()frmchangepwd.ShowEndSubPrivateSubdel_book_info_Click()frmmodifybookinfo.ShowEndSubPrivateSubdel_book_style_Click()frmmodifybookstyle.ShowEndSubPrivateSubdel_reader_info_Click()frmreaderinfo.ShowEndSubPrivateSubdel_reader_style_Click()frmmodifyreaderstyle.ShowEndSubPrivateSubexit_sys_Click()EndEndSubPrivateSubfind_book_info_Click()frmfindbook.ShowEndSubPrivateSubfind_lend_book_Click()frmfindborrowinfo.ShowEndSubPrivateSubfind_reader_info_Click()frmfindreader.ShowEndSubPrivateSubForm_Load()EndSubPrivateSubmodify_book_info_Click()frmmodifybookinfo.ShowEndSubPrivateSubmodify_book_style_Click()frmmodifybookstyle.ShowEndSubPrivateSubmodify_reader_info_Click()frmreaderinfo.ShowEndSubPrivateSubmodify_reader_style_Click()frmmodifyreaderstyle.ShowEndSub第七章系統(tǒng)開(kāi)發(fā)環(huán)境圖書(shū)館管理信息系統(tǒng)是在WINDOWS95、98、環(huán)境下開(kāi)發(fā)的，使用VisualBasic6.0軟件工具，以Acess做為后臺(tái)開(kāi)發(fā)的一個(gè)小型系統(tǒng)。該系統(tǒng)軟件針對(duì)圖書(shū)館的工作范圍及特點(diǎn)，建立了圖書(shū)管理、讀者管理、借閱管理和系統(tǒng)管理幾個(gè)系統(tǒng)，這幾個(gè)系統(tǒng)實(shí)現(xiàn)了圖書(shū)館的主要業(yè)務(wù)工做，該系統(tǒng)需在VisualBasic的支持下，以Access做后臺(tái)的情況下才能運(yùn)行和使用。SummaryThisthesishasintroducedhowtouseVisualBasictodevelopthecommonlyuseddatabasesystem-themanagementinformationsystemofthelibrarymainly.ThissystemadoptsprogramminglanguageVisualBasicincommonuse,itiswithhighefficiencytonotmerelyprogramme,andthedatabasethatcanoperatemanykindssuchasAccess.MicrosoftAccessisthedatabaseapplicationprogram,setupnecessarydatabaseformwithit,passtheoperationofAccesscorrectly,Thissystemhasrealizedthedailymanagementforsmall-sizedlibrary.thebasicskillofitsrealizationcanbe:booksinformationmanagementandreaderinformationmanagement,borrowreadinformationmanagementand4systematicmanagementbigmodulars.everymodularalsohavethefunctionofindependence,forexample:includeinbooksinformationmanagementforbooksinformationadd,mayrealizereaderinformationadd,modify,delete,aswellasinquire.therefore,thispaperdetailedhaveintroducedthissystematicdevelopmentprocessaswellastherealizationoffunction,isacopyofsystematic,completesystem.keyword:VisualBasic,MicrosoftAccessandlibrarymanagementinformationsystem結(jié)束語(yǔ)通過(guò)本次畢業(yè)設(shè)計(jì)不僅是我對(duì)VisualBasic有了更深刻的了解，而且學(xué)會(huì)了怎樣用VisualBasic來(lái)操作數(shù)據(jù)庫(kù)Access。VisualBasic強(qiáng)大的數(shù)據(jù)庫(kù)操作功能，以及所提供的數(shù)據(jù)控件，使我們非常方便地對(duì)數(shù)據(jù)庫(kù)數(shù)據(jù)的錄入、修改、查詢等常規(guī)的數(shù)據(jù)庫(kù)操作。我們所開(kāi)發(fā)的圖書(shū)館管理信息系統(tǒng)主要功能是：對(duì)書(shū)籍管理的要求；對(duì)讀者管理的要求；對(duì)借閱信息的管理。我在本次設(shè)計(jì)中主要完成對(duì)書(shū)籍管理的要求和對(duì)讀者管理的要求兩大部分。在做設(shè)計(jì)的過(guò)程中，我們所用的的數(shù)據(jù)庫(kù)是Access，在它中建立所需的數(shù)據(jù)庫(kù)表，既方便又簡(jiǎn)單。在建立界面時(shí)只需在VisualBasic中使用工具欄中的基本控件就可以，但還需要添加一個(gè)重要的的控件—數(shù)據(jù)表格（DataGrid）。在編寫(xiě)代碼時(shí)，我們會(huì)經(jīng)常出現(xiàn)很多錯(cuò)誤，比如：未定義類型、語(yǔ)法錯(cuò)誤等，使整個(gè)程序無(wú)法運(yùn)行，這也是做設(shè)計(jì)中遇到的最大困難，通過(guò)查閱資料，老師和同學(xué)的指正，才使整個(gè)系統(tǒng)可以順利的運(yùn)行。因此，在編寫(xiě)源代碼過(guò)程中，我不僅掌握了vb的基本編程語(yǔ)句，而且也使我熟悉了怎樣使用結(jié)構(gòu)化查詢語(yǔ)言SQL來(lái)操作數(shù)據(jù)表，以及如何正確的使用Select語(yǔ)句。以上都是在開(kāi)發(fā)系統(tǒng)時(shí)的總結(jié)和收獲，而在編寫(xiě)論文時(shí)，我也有所收獲，不僅使我更加熟悉了軟件開(kāi)發(fā)的一般過(guò)程以及各階段的工作概況，還使我學(xué)會(huì)了怎樣去畫(huà)軟件開(kāi)發(fā)過(guò)程中所需的數(shù)據(jù)流圖和E-R圖。圖書(shū)館管理信息系統(tǒng)是一個(gè)小型的開(kāi)發(fā)系統(tǒng)，它適用于現(xiàn)代化的圖書(shū)管理，不僅方便學(xué)生的借閱，而且有利于管理員的管理。因此，我們所開(kāi)發(fā)的系統(tǒng)是一個(gè)很有價(jià)值，很有意義的管理系統(tǒng)。當(dāng)然，由于我們水平有限，開(kāi)發(fā)過(guò)程中及寫(xiě)論文中，難免出現(xiàn)不足和錯(cuò)誤，望老師和同學(xué)批評(píng)指正。致謝我在電大學(xué)習(xí)了將近三年時(shí)間，通過(guò)學(xué)習(xí)，使我對(duì)專業(yè)知道從無(wú)到有，更重要的是我學(xué)到了學(xué)習(xí)知識(shí)的方法，增強(qiáng)了掌握知識(shí)的能力，這將使我受益終生。在本次設(shè)計(jì)中我從指導(dǎo)老師身上學(xué)到了很多東西，老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我受益匪淺。他無(wú)論是理論上還是實(shí)踐中，都給我很大幫助，幫助我解決不少難題，使得系統(tǒng)能夠及時(shí)開(kāi)發(fā)完成；我通過(guò)開(kāi)發(fā)這個(gè)管理信息系統(tǒng)，鞏固了以前所學(xué)的知識(shí)，提高了應(yīng)用能力；借此機(jī)會(huì)，深深地感謝我的指導(dǎo)老師—史永哲老師及支持、幫助過(guò)我的老師們、同學(xué)們。最后，讓我再次向?qū)W校，向老師表達(dá)深深的謝意！謝謝！附錄1、添加新圖書(shū)代碼：PrivateSubcmdClose_Click()FrmBookManage.Adodc1.RefreshUnloadMeEndSubPrivateSubcmdSave_Click()Setg_rs=g_db.OpenRecordset("SELECT*FROMbookInfo",dbOpenDynaset)'添加記錄g_rs.AddNew'設(shè)置記錄的字段值g_rs!書(shū)籍編號(hào)=txtBookID.Textg_rs!書(shū)籍名稱=txtBookName.Textg_rs!類別代碼=Mid(cboType.Text,1,1)g_rs!出版社=txtBookConcern.Textg_rs!作者姓名=txtWriter.Textg_rs!書(shū)籍價(jià)格=txtBookPrice.Textg_rs!書(shū)籍頁(yè)碼=txtPage.Textg_rs!登記日期=dtpRigDate.Valueg_rs!是否借出=False'保存修改?。。_rs.UpdateSetg_rs=NothingMsgBox"新書(shū)添加完畢",vbOKOnly,"提示"EndSubPrivateSubForm_Load()dtpRigDate.Value=DateSetg_rs=g_db.OpenRecordset("bookType",dbOpenTable)cboType.ClearIfg_rs.RecordCount>0Theng_rs.MoveFirstDoWhileNotg_rs.EOFcboType.AddItemg_rs!類別代碼+"-"+g_rs!書(shū)籍類別g_rs.MoveNextLoopEndIfSetg_rs=NothingEndSub2、書(shū)庫(kù)管理（添加、修改、刪除圖書(shū)）代碼PrivateSubcmdAdd_Click()FrmAddnew.ShowEndSubPrivateSubcmdClose_Click()UnloadMeEndSubPrivateSubcmdDel_Click()DimstrBookIDAsStringDimintResponseAsIntegerDataGrid1.Col=0strBookID=DataGrid1.TextintResponse=MsgBox("是否真的要?jiǎng)h除編號(hào)為"+strBookID+"的書(shū)籍信息?",vbOKCancel,"提示")IfintResponse=vbOKTheng_strSql="select*frombookInfowhere書(shū)籍編號(hào)='"&strBookID&"'"Setg_rs=g_db.OpenRecordset(g_strSql)g_rs.DeleteSetg_rs=NothingAdodc1.RefreshCallForm_LoadMsgBox"刪除完畢!",vbOKOnly,"提示"EndIfEndSubPrivateSubcmdModify_Click()FrmUpdateBook.ShowEndSubPrivateSubForm_Load()strDataSource="selectbookInfo.書(shū)籍編號(hào),bookInfo.書(shū)籍名稱,bookType.書(shū)籍類別,bookInfo.出版社,"_&"bookInfo.作者姓名,bookInfo.書(shū)籍價(jià)格,bookInfo.書(shū)籍頁(yè)碼,bookInfo.登記日期,bookInfo.是否借出"_&"frombookInfo,bookTypewherebookType.類別代碼=bookInfo.類別代碼"Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\圖書(shū)館查詢管理系統(tǒng).mdb;PersistSecurityInfo=False"Adodc1.CursorLocation=adUseClientAdodc1.CommandType=adCmdTextAdodc1.RecordSource=strDataSourceAdodc1.RefreshEndSub3、書(shū)庫(kù)查詢代碼PrivateSubCheck1_Click()EndSubPrivateSubchkRigDate_Click()IfchkRigDate.Value=1ThendtpRigDate.Enabled=TrueElsedtpRigDate.Enabled=FalseEndIfEndSubPrivateSubcmdClear_Click()txtBookID.Text=""txtBookName.Text=""cboType.Text=""txtBookConcern.Text=""txtBookPrice.Text=""EndSubPrivateSubcmdClose_Click()UnloadMeEndSubPrivateSubcmdFind_Click()DimstrSQLAsStringDimstrCon(6)AsStringDimintCountAsIntegerDimiAsIntegerintCount=0'獲得所有得查詢條件IftxtBookID.Text<>""ThenIfchkMoHu.Value=1ThenstrCon(1)="書(shū)籍編號(hào)like'%"&txtBookID.Text&"%'"ElsestrCon(1)="書(shū)籍編號(hào)='"&txtBookID.Text&"'"EndIfElsestrCon(1)=""EndIfIftxtBookName.Text<>""ThenIfchkMoHu.Value=1ThenstrCon(2)="書(shū)籍名稱like'%"&txtBookName.Text&"%'"ElsestrCon(2)="書(shū)籍名稱='"&txtBookName.Text&"'"EndIfElsestrCon(2)=""EndIfIfcboType.Text<>""ThenIfchkMoHu.Value=1ThenstrCon(3)="類別代碼like'%"&Mid(cboType.Text,1,1)&"%'"ElsestrCon(3)="類別代碼='"&Mid(cboType.Text,1,1)&"'"EndIfElsestrCon(3)=""EndIfIftxtBookConcern.Text<>""ThenIfchkMoHu.Value=1ThenstrCon(4)="出版社like'%"&txtBookConcern.Text&"%'"ElsestrCon(4)="出版社='"&txtBookConcern.Text&"'"EndIfElsestrCon(4)=""EndIfIftxtBookPrice.Text<>""ThenIfchkMoHu.Value=1ThenstrCon(5)="書(shū)籍價(jià)格like%"&CInt(txtBookPrice.Text)&"%"ElsestrCon(5)="書(shū)籍價(jià)格="&CInt(txtBookPrice.Text)&""EndIfElsestrCon(5)=""EndIfIfchkRigDate.Value=1ThenIfchkMoHu.Value=1ThenstrCon(6)="登記日期like#"&dtpRigDate.Value&"#"ElsestrCon(6)="登記日期=#"&dtpRigDate.Value&"#"EndIfElsestrCon(6)=""EndIfIfstrCon(1)=""AndstrCon(2)=""AndstrCon(3)=""AndstrCon(4)=""AndstrCon(5)=""AndstrCon(6)=""ThenstrSQL="select*frombookInfo"ElsestrSQL="select*frombookInfowhere"Fori=1To6IfstrCon(i)<>""ThenintCount=intCount+1IfintCount=1ThenstrSQL=strSQL+strCon(i)ElsestrSQL=strSQL+"and"+strCon(i)EndIfEndIfNextEndIfAdodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\圖書(shū)館查詢管理系統(tǒng).mdb;PersistSecurityInfo=False"Adodc1.CursorLocation=adUseClientAdodc1.CommandType=adCmdTextAdodc1.RecordSource=strSQLAdodc1.RefreshEndSubPrivateSubForm_Load()dtpRigDate.Value=DateSetg_rs=g_db.OpenRecordset("bookType",dbOpenTable)cboType.ClearIfg_rs.RecordCount>0Theng_rs.MoveFirstDoWhileNotg_rs.EOFcboType.AddItemg_rs!類別代碼+"-"+g_rs!書(shū)籍類別g_rs.MoveNextLoopEndIfSetg_rs=NothingEndSub4、借閱信息查詢代碼PrivateSubcmdClear_Click()txtBookID.Text=""txtBookName.Text=""txtReaderID.Text=""txtReaderName.Text=""EndSubPrivateSubcmdClose_Click()UnloadMeEndSubPrivateSubcmdFind_Click()DimstrSQLAsStringDimstrCon(5)AsStringDimiAsInteger'獲得所有得查詢條件IftxtBookID.Text<>""ThenIfchkMoHu.Value=1ThenstrCon(1)="lentInfo.書(shū)籍編號(hào)like'%"&txtBookID.Text&"%'"ElsestrCon(1)="lentInfo.書(shū)籍編號(hào)='"&txtBookID.Text&"'"EndIfElsestrCon(1)=""EndIfIftxtBookName.Text<>""ThenIfchkMoHu.Value=1ThenstrCon(2)="bookInfo.書(shū)籍名稱like'%"&txtBookName.Text&"%'"ElsestrCon(2)="bookInfo.書(shū)籍名稱='"&txtBookName.Text&"'"EndIfElsestrCon(2)=""EndIfIftxtReaderID.Text<>""ThenIfchkMoHu.Value=1ThenstrCon(3)="lentInfo.讀者編號(hào)like'%"&txtReaderID.Text&"%'"ElsestrCon(3)="lentInfo.讀者編號(hào)='"&txtReaderID.Text&"'"EndIfElsestrCon(3)=""EndIfIftxtReaderName.Text<>""ThenIfchkMoHu.Value=1ThenstrCon(4)="readerInfo.讀者姓名like'%"&txtReaderName.Text&"%'"ElsestrCon(4)="readerInfo.讀者姓名='"&txtReaderName.Text&"'"EndIfElsestrCon(4)=""EndIfIfdtpLendDate.Value=1ThenIfchkMoHu.Value=1ThenstrCon(5)="lentInfo.借書(shū)日期like#"&dtpLendDate.Value&"#"ElsestrCon(5)="lentInfo.借書(shū)日期=#"&dtpLendDate.Value&"#"EndIfElsestrCon(5)=""EndIfstrSQL="selectlentInfo.讀者編號(hào),readerInfo.讀者姓名,lentInfo.書(shū)籍編號(hào),"_&"bookInfo.書(shū)籍名稱,bookType.書(shū)籍類別,bookInfo.出版社,bookInfo.書(shū)籍頁(yè)碼,lentInfo.借書(shū)日期,"_&"lentInfo.還書(shū)日期,lentInfo.超出天數(shù),lentInfo.罰款金額fromreaderInfo,bookInfo,lentInfo,bookType"_&"wherereaderInfo.讀者編號(hào)=lentInfo.讀者編號(hào)andbookInfo.書(shū)籍編號(hào)=lentInfo.書(shū)籍編號(hào)"_&"andbookType.類別代碼=bookInfo.類別代碼"Fori=1To5IfstrCon(i)<>""ThenstrSQL=strSQL+"and"+strCon(i)EndIfNextAdodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\圖書(shū)館查詢管理系統(tǒng).mdb;PersistSecurityInfo=False"Adodc1.CursorLocation=adUseClientAdodc1.CommandType=adCmdTextAdodc1.RecordSource=strSQLAdodc1.RefreshEndSub5、還書(shū)代碼PrivateSubchkQuery_Click()IfchkQuery.Value=1ThentxtQueryBookID.Enabled=TrueElsetxtQueryBookID.Enabled=FalseEndIfEndSubPrivateSubcmdLendBook_Click()IftxtReaderID.Text<>""ThenIflblRemain.Caption<>"0"Then'判斷是否已經(jīng)借滿Setg_rs=g_db.OpenRecordset("lentInfo",dbOpenTable)Withg_rs.AddNew.Fields("讀者編號(hào)")=txtReaderID.Text.Fields("書(shū)籍編號(hào)")=txtBookID.Text.Fields("借書(shū)日期")=dtpLendDate.Value.UpdateEndWithSetg_rs=Nothing'更新bookInfo表,設(shè)置該書(shū)是否借出屬性為"借出"g_strSql="select*frombookInfowhere書(shū)籍編號(hào)='"&txtBookID.Text&"'"Setg_rs=g_db.OpenRecordset(g_strSql)g_rs.Editg_rs.Fields("是否借出").Value=Trueg_rs.UpdateSetg_rs=NothingMsgBox"借出完畢!",vbOKOnly,"提示"txtBookID.Text=""txtBookName.Text=""txtBookPrice.Text=""txtBookLeibie.Text=""txtBookConcern.Text=""txtBookPage.Text=""InitDataGrid(False)ElseMsgBox"您的書(shū)已經(jīng)借滿,不能再借!",vbOKOnly,"提示"EndIfElseMsgBox"請(qǐng)先輸入讀者編號(hào)!",vbOKOnly,"提示"EndIfEndSubPrivateSubcmdOK_Click()g_strSql="select*fromlentInfowhere書(shū)籍編號(hào)='"&txtBookIDRenew.Text&"'and讀者編號(hào)='"&txtReaderIDRenew.Text&"'and借書(shū)日期=#"&txtLendDate.Text&"#"Setg_rs=g_db.OpenRecordset(g_strSql)g_rs.Editg_rs.Fields("借書(shū)日期").Value=dtpLendDateChange.Valueg_rs.UpdateSetg_rs=NothingAdodc1.Recordset.UpdateMsgBox"續(xù)借完畢!",vbOKOnly,"提示"EndSubPrivateSubcmdReturn_Click()g_strSql="select*fromlentInfowhere書(shū)籍編號(hào)='"&txtBookIDReturn.Text&"'and讀者編號(hào)='"&txtReadIDReturn.Text&"'and借書(shū)日期=#"&txtLendDateReturn.Text&"#"Setg_rs=g_db.OpenRecordset(g_strSql)g_rs.Editg_rs.Fields("還書(shū)日期").Value=txtReturnDate.Textg_rs.Fields("超出天數(shù)").Value=txtDayCount.Textg_rs.Fields("罰款金額").Value=txtFakuan.Textg_rs.UpdateSetg_rs=Nothingg_strSql="select*frombookInfowhere書(shū)籍編號(hào)='"&txtBookIDReturn.Text&"'"Setg_rs=g_db.OpenRecordset(g_strSql)g_rs.Editg_rs.Fields("是否借出").Value=Falseg_rs.UpdateSetg_rs=NothingtxtBookIDReturn.Text=""txtBookNameReturn.Text=""txtBookPriceReturn.Text=""txtBookLeibieReturn.Text=""txtBookPageReturn.Text=""txtReadIDReturn.Text=""txtReaderNameReturn.Text=""txtLendDateReturn.Text=""txtDay.Text=""txtReturnDate.Text=""txtFactDay.Text=""txtDayCount.Text=""cmdReturn.Enabled=FalseMsgBox"歸還完畢!",vbOKOnly,"提示"EndSubPrivateSubForm_Load()dtpLendDate.Value=DatedtpLendDateChange.Value=DateSetg_ws=DBEngine.Workspaces(0)Setg_db=g_ws.OpenDatabase(App.Path+"\圖書(shū)館查詢管理系統(tǒng).mdb")EndSubPrivateSubForm_Unload(CancelAsInteger)g_db.CloseSetg_db=Nothingg_ws.CloseSetg_ws=NothingEndEndSubPrivateSubmnuBookManage_Click()FrmBookManage.ShowEndSubPrivateSubmnuBookQuery_Click()FrmBookQuery.ShowEndSubPrivateSubmnuLendQuery_Click()FrmLendQuery.ShowEndSubPrivateSubmnuSetBasic_Click()FrmSetBasic.ShowEndSubPrivateSubmnuSetBook_Click()FrmSetBook.ShowEndSubPrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)'根據(jù)點(diǎn)擊工具欄按鈕的caption屬性值進(jìn)行不同的操作SelectCaseButton.CaptionCase"書(shū)庫(kù)管理"FrmBookManage.ShowCase"新書(shū)"FrmAddnew.ShowCase"借閱列表"FrmLendList.ShowCase"書(shū)庫(kù)查詢"FrmBookQuery.ShowCase"圖書(shū)類別"FrmSetBook.ShowCase"退出"CallForm_Unload(0)EndSelectEndSubPrivateSubtxtBookID_KeyPress(KeyAsciiAsInteger)'判斷用戶按下回車(chē)鍵并且是否輸入讀者編號(hào)和書(shū)籍編號(hào)IfKeyAscii="13"AndtxtReaderID.Text<>""AndtxtBookID.Text<>""Theng_strSql="selectbookInfo.書(shū)籍名稱,bookInfo.書(shū)籍價(jià)格,bookInfo.出版社,bookInfo.書(shū)籍頁(yè)碼,"_&"bookInfo.是否借出,bookType.書(shū)籍類別frombookInfo,bookTypewhere書(shū)籍編號(hào)='"&txtBookID.Text&"'"_&"andbookInfo.類別代碼=bookType.類別代碼"Setg_rs=g_db.OpenRecordset(g_strSql)IfNotg_rs.EOFThentxtBookName.Text=g_rs!書(shū)籍名稱txtBookPrice.Text=g_rs!書(shū)籍價(jià)格txtBookLeibie.Text=g_rs!書(shū)籍類別txtBookConcern.Text=g_rs!出版社txtBookPage.Text=g_rs!書(shū)籍頁(yè)碼Ifg_rs!是否借出=TrueThenMsgBox"該書(shū)已經(jīng)借出,請(qǐng)選擇其它圖書(shū)!",vbOKOnly,"提示"cmdLendBook.Enabled=FalseElsecmdLendBook.Enabled=TrueEndIfElseMsgBox"沒(méi)有該書(shū)信息!",vbOKOnly,"提示"txtBookName.Text=""txtBookPrice.Text=""txtBookLeibie.Text=""txtBookConcern.Text=""txtBookPage.Text=""EndIfSetg_rs=NothingElseIfKeyAscii="13"AndtxtReaderID.Text=""ThenMsgBox"請(qǐng)先輸入讀者編號(hào)",vbOKOnly,"提示"ElseIfKeyAscii="13"AndtxtReaderID.Text<>""AndtxtBookID.Text=""ThenMsgBox"請(qǐng)先輸入書(shū)籍編號(hào)",vbOKOnly,"提示"EndIfEndSubPrivateSubtxtBookIDReturn_KeyPress(KeyAsciiAsInteger)DimstrSQLAsString'判斷用戶按下回車(chē)鍵并且是否輸入讀者編號(hào)和書(shū)籍編號(hào)IfKeyAscii="13"AndtxtBookIDReturn.Text<>""ThenstrSQL="selectlentInfo.讀者編號(hào),readerInfo.讀者姓名,lentInfo.書(shū)籍編號(hào),bookInfo.書(shū)籍價(jià)格,"_&"bookInfo.書(shū)籍名稱,bookInfo.書(shū)籍頁(yè)碼,lentInfo.借書(shū)日期,bookType.書(shū)籍類別,bookType.借出天數(shù)"_&"fromreaderInfo,bookInfo,lentInfo,bookTypewherereaderInfo.讀者編號(hào)=lentInfo.讀者編號(hào)"_&"andbookInfo.書(shū)籍編號(hào)=lentInfo.書(shū)籍編號(hào)andbookInfo.書(shū)籍編號(hào)='"&txtBookIDReturn.Text&"'"_&"andbookInfo.類別代碼=bookType.類別代碼"g_strSql=strSQLSetg_rs=g_db.OpenRecordset(g_strSql)IfNotg_rs.EOFThencmdLendBook.Enabled=TruetxtBookNameReturn.Text=g_rs!書(shū)籍名稱txtBookPriceReturn.Text=g_rs!書(shū)籍價(jià)格txtBookLeibieReturn.Text=g_rs!書(shū)籍類別txtBookPageReturn.Text=g_rs!書(shū)籍頁(yè)碼txtReadIDReturn.Text=g_rs!讀者編號(hào)txtReaderNameReturn.Text=g_rs!讀者姓名txtLendDateReturn.Text=g_rs!借書(shū)日期txtDay.Text=g_rs!借出天數(shù)txtReturnDate.Text=DatetxtFactDay.Text=CStr(Date-g_rs!借書(shū)日期)IfCInt(txtFactDay.Text)-CInt(txtDay.Text)>0ThentxtDayCount.Text=CStr(CInt(txtFactDay.Text)-CInt(txtReturnDate.Text))ElsetxtDayCount.Text="0"EndIfSetg_rs=Nothingg_strSql=strSQLSetg_rs=g_db.OpenRecordset("select*frombasicSet")txtFakuan.Text=g_rs!罰款*CInt(txtDayCount.Text)Setg_rs=NothingcmdReturn.Enabled=TrueElseSetg_rs=NothingMsgBox"沒(méi)有該書(shū)信息!",vbOKOnly,"提示"txtBookNameReturn.Text=""txtBookPriceReturn.Text=""txtBookLeibieReturn.Text=""txtBookPageReturn.Text=""txtReadIDReturn.Text=""txtReaderNameReturn.Text=""txtLendDateReturn.Text=""txtDay.Text=""txtReturnDate.Text=""txtFactDay.Text=""txtDayCount.Text=""cmdReturn.Enabled=FalseEndIfElseIfKeyAscii="13"AndtxtBookIDReturn.Text=""ThenMsgBox"請(qǐng)先輸入書(shū)籍編號(hào)",vbOKOnly,"提示"EndIfEndSubPrivateSubtxtReaderID_KeyPress(KeyAsciiAsInteger)'判斷用戶按下回車(chē)鍵并且是否輸入讀者編號(hào)IfKeyAscii="13"AndtxtReaderID.Text<>""Then'根據(jù)輸入的讀者編號(hào),查找讀者姓名g_strSql="select*fromreaderInfowhere讀者編號(hào)='"&txtReaderID.Text&"'"Setg_rs=g_db.OpenRecordset(g_strSql)'進(jìn)行數(shù)據(jù)庫(kù)的查詢'判斷是否找到IfNotg_rs.EOFThentxtReaderName.Text=g_rs!讀者姓名InitDataGrid(False)'初始化DataGrid控件信息ElseMsgBox"沒(méi)有該讀者信息!",vbOKOnly,"提示"txtReaderName.Text=""EndIfSetg_rs=NothingElseIfKeyAscii="13"AndtxtReaderID.Text=""ThenMsgBox"請(qǐng)先輸入讀者編號(hào)",vbOKOnly,"提示"EndIfEndSubPublicFunctionInitDataGrid(blnRenewAsBoolean)'初始化DataGrid控件信息,其中得參數(shù)用來(lái)區(qū)分是正常借書(shū)頁(yè)面還是續(xù)借頁(yè)面DimstrDataSourceAsStringDimintCountAsIntegerDimstrReaderIDAsStringIfblnRenew=FalseThenstrReaderID=txtReaderID.TextElsestrReaderID=txtReaderIDRenew.TextEndIfstrDataSource="selectlentInfo.讀者編號(hào),readerInfo.讀者姓名,lentInfo.書(shū)籍編號(hào),"_&"bookInfo.書(shū)籍名稱,bookType.書(shū)籍類別,bookInfo.出版社,bookInfo.書(shū)籍頁(yè)碼,lentInfo.借書(shū)日期,"_&"lentInfo.還書(shū)日期,lentInfo.超出天數(shù),lentInfo.罰款金額fromreaderInfo,bookInfo,lentInfo,bookType"_&"wherereaderInfo.讀者編號(hào)=lentInfo.讀者編號(hào)andbookInfo.書(shū)籍編號(hào)=lentInfo.書(shū)籍編號(hào)and"_&