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

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