本科--圖書管理信息系統(tǒng)-資料下載頁

【導(dǎo)讀】客戶端應(yīng)用程序的開發(fā)等兩個方面。對于數(shù)據(jù)庫的設(shè)計與維護要求所建立的數(shù)據(jù)。求程序界面友好、功能完備、使用容易等特點。本系統(tǒng)使用Borland公司的。實現(xiàn)了該系統(tǒng)在實際中所應(yīng)該具備的功能。圖書、管理、數(shù)據(jù)庫管理系統(tǒng)、信息管理系統(tǒng)、Delphi、SQLServer2021。2．1管理信息系統(tǒng)簡介-----------------------------------------------------------6. 2．1．1MIS的定義----------------------------------------------------------6. 2．1．3MIS的結(jié)構(gòu)------------------------------------------------------------6. 2．3Delhi的數(shù)據(jù)庫特性及功能簡介---------------------------------------------7. 3．1功能需求-----------------------------------------------------------------------------8. 4．1系統(tǒng)模塊設(shè)計----------------------------------------------------------------------9. 4．2數(shù)據(jù)庫設(shè)計-------------------------------------------------------------------------9. 4．2．1數(shù)據(jù)字典---------------------------------------------------------------------9. 4．2．2數(shù)據(jù)庫結(jié)構(gòu)設(shè)計----------------------------------------------------------10. 5．2主窗體設(shè)計--------------------------------------------------------------------------13. 5．3登錄窗體-----------------------------------------------------------------------------14. 5．4數(shù)據(jù)模塊設(shè)計-----------------------------------------------------------------------17. 5．5．1新書入庫--------------------------------------------------------------------18. 5．6讀者管理窗體設(shè)計---------------------------------------------------------------24. 5．9系統(tǒng)測試與性能分析------------------------------------------------------------34

　　

【正文】 讀者信息從數(shù)據(jù)庫中刪除。其中，在刪除之前需要查看該讀者所借的圖書是否全部歸還，“刪除”按鈕的 Button Onclick 事件的只要處理代碼是：對于兩個變量： var i:integer。Checked:integer。 ? 判斷當(dāng)前行是否被選中： ? 圖書歸還判斷： if RecordCount = 0 then //該讀者所借圖書已全部歸還 Checked := IDYES else begin //還有圖書沒有歸還 if MessageDlg(39。此讀者還有圖書沒有歸還，是否刪除 ?39。, mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin 昆明冶金高等專科學(xué)校計信系 畢業(yè)論文 第 26 頁 。 (39。delete from Lend where ReaderID=:ReaderID39。)。 ? (39。ReaderID39。).Value := [i].Caption。 ExecSQL。 Checked := IDYES。 end else Checked := IDNO。 ? 從數(shù)據(jù)表中刪除讀者數(shù)據(jù)表： if Checked = IDYES then begin with do // delete reader begin 。 (39。delete from Reader where ReaderID=:ReaderID39。)。 (39。ReaderID39。).Value :=[i].Caption。 ExecSQL。 end。 (i)。 end else if Checked = IDNO then Exit。 3． 添加讀者的實現(xiàn)過程可以參考圖書入庫的實現(xiàn)。 4． 修改讀者信息：當(dāng)讀者信息發(fā)生變化時，可以在系統(tǒng)中對其進行修改。首先在讀者列表 ListView1 中選 中需要修改信息的讀者，該讀者的信息將在讀者信息欄的相應(yīng)編輯框中顯示，對其進行修改后單擊“確定”按鈕提交修改后的數(shù)據(jù)。其實現(xiàn)代碼可以參考源代碼中的具體實現(xiàn)！ 5． 7 借閱管理窗體設(shè)計 借閱管理窗體可以完成圖書的借出和歸還操作。在這里我們用到了兩個ADOQuery 組件，和一個 Tdatasource 組件，最終于界面如圖所示： 昆明冶金高等專科學(xué)校計信系 畢業(yè)論文 第 27 頁 用到的組件可以從圖中簡單的看出，具體功能的實現(xiàn)可以分為以下幾步： ? 選擇需要借出 /歸還的圖書 用戶可以從 ComboBox1 的下拉列表中選擇 書號或直接在 ComboBox1的編輯框中輸入書號。 ComboBox1 的編輯框中的書號發(fā)生變化時觸發(fā)OnChange 事件，在該事件完成以下操作： (1) 初始化顯示數(shù)據(jù)的幾個組件對象； (2) 將幾個數(shù)據(jù)感知組件對象與圖書數(shù)據(jù)表 Book 中的相應(yīng)字段連接； (3) 在圖書數(shù)據(jù)表 Book 中查詢 ComboBox1 的編輯框中的書號； (4) 如果該圖書已借出，則在借閱數(shù)據(jù)表中查詢借書證號并計算該借書證號所持有書籍的數(shù)目、持有時間和應(yīng)交納的罰金。 ComboBox1 組件對象的 OnChange 事件處理程序代碼在源代碼中可以具體的看出。 procedure (Sender: TObject)。 var FDate : TDate。 OwnTime : TDate。 begin :=39。39。 :=39。39。 :=39。39。 :=39。39。 if Length() = 10 then begin try with do begin TableName:=39。book39。 := 39。OutDate39。 昆明冶金高等專科學(xué)校計信系 畢業(yè)論文 第 28 頁 := 39。Name39。 := 39。Author39。 := 39。Press39。 := 39。Cost39。 := 39。Memo39。 Active:=True。 if not Locate(39。code39。,[])then begin MessageDlg(39。沒有數(shù)據(jù)或數(shù)據(jù)庫操作失敗 39。,mtError,[mbok],0)。 := False。 Exit。 end。 := True。 end。 except MessageDlg(39。數(shù)據(jù)操作出錯 39。,mtError,[mbok],0)。 end。 try with do begin 。 (39。select * from Lend where Code = :Code39。)。 (39。Code39。).Value := 。 Open。 if RecordCount 0 then begin FDate := FieldByName(39。OutDate39。).AsDateTime。 OwnTime := Date FDate。 := FloatToStr(OwnTime)。 := FieldByName(39。ReaderID39。).AsString。 := True。 := True。 if StrToInt()60 then begin := True。 := True。 := FloatToStr((StrToInt()60)*)。 end。 昆明冶金高等專科學(xué)校計信系 畢業(yè)論文 第 29 頁 := False。 := True。 。 Close。 end else begin 。 := True。 := False。 end。 end。 except 。 end。 end。 end。 ? 借出圖書的實現(xiàn) 用戶選擇圖書后，如果該圖書沒有被借出，用于輸入借書證號的ReaderIDEdit 組件對象將被設(shè)置為焦點，等待用 戶輸入借此書的讀者的借書證號。在 ReaderIDEdit 組件對象的 OnChange 事件處理中檢查輸入的借書證的正確性，并統(tǒng)計該借書證所借書的數(shù)目，主要的代碼實現(xiàn)為： Length() = 10 用來判斷借書證號的有效長度； 。 (39。select ReaderID from Reader where ReaderID =:ReaderID39。)。 (39。ReaderID39。).Value := 。 Open。 此段代碼用來檢束借書證號； 輸入正確的借書證號后單擊借出按鈕將向借閱數(shù)據(jù)表 Lend 提交借書數(shù)據(jù)。在提交之前要檢查該借書證是否有超期的圖書沒有歸還。定義了一個記錄TownBook 來臨時保存該借書證所借圖書的信息，內(nèi)容如下： Townbook=record Code:String。 Name:String。 Price:String。 OwnDays:integer。 新建一個窗體用來顯示該借書證所借的已超期圖書的信息，該窗體 Name 屬性設(shè)置為 OwnBookForm。 OwnBookForm窗體的界面如圖所示：其中包含一個 ListView組件對象。 昆明冶金高等專科學(xué)校計信系 畢業(yè)論文 第 30 頁 用兩個臨時的 ADOQuery 組件對象： tempADOQery1 和 tempADOQery2 輔助檢 查 該借 書證 是 否有 超期 的圖 書 沒有 歸還 ， Connection 屬 性設(shè)置為。其具體實現(xiàn)的代碼在源代碼中。 5． 8 信息查詢窗體設(shè)計 信息查詢窗體包括圖書信息查詢、讀者信息查詢和借閱信息查詢 3 個功能。，在 QueryForm 空白窗體上添加一個 TpageControl 組件對象，并在其上建立三個頁面 (TabSheet)的 Caption 屬性的值分別設(shè)置為“查詢圖書基本信息”、“查詢讀者基本信息”和“查詢借閱基本信息”。 ? 查詢圖書基本信息 查詢圖書基本信息頁面的界面為： 昆明冶金高等專科學(xué)校計信系 畢業(yè)論文 第 31 頁 在查詢輸入項輸入查詢內(nèi)容后單擊“查詢”按鈕進行查詢。在查詢時 需完成以下工作： (1) 將編輯框中的內(nèi)容存放在字符串變量 Content 中； (2) 如果“模糊查詢 ”按鈕復(fù)選框 (CheckBox1)被選中，則查詢內(nèi)容變?yōu)?”’%’+Conten+’%’”。 模糊查詢是一種重要的查詢方式，這種查詢方式大多是在不知道準確的查詢條件，而只知道部分信息的時候使用。在 SQL 語言中，符號“ %”可以代替任何長度的字符串，另外符號“ _”可以替代一個字符。此處，將查詢內(nèi)容放在兩個“ %”符號之間，表示如果一個字符串的開頭或中間或結(jié)尾包含了查詢內(nèi)容，則此字符串是符合查詢條件的查詢結(jié)果。 (3) 根據(jù) 4 個 Radio 按鈕 的選中情況決定在圖書數(shù)據(jù)表 Book 中查詢時所對應(yīng)的字段并生成 SQL 語句。其中，選擇按書號查詢(RadioButton1)對應(yīng)圖書數(shù)據(jù)表 BOOK 中的 Code 字段；選擇按書名查詢 (RadioButton2) 對應(yīng) Name 字段；選擇按出版社查詢(RadioButton3)對應(yīng) Press 字段；選擇按作者查詢 (RadioButton4)對應(yīng) Author 字段。 (4) 將查詢結(jié)果加入到列表 ListView 中； (5) 顯示查詢到的記錄數(shù)。 查詢按鈕的 OnClick 事件的處理代碼如下： procedure (Sender: TObject)。 var content:string。 begin try 。 with do begin content:=。 if then content:=39。%39。+content+39。%39。 。 if then begin (39。select * from book where code like :code39。) 。 (39。code39。).Value:=content。 end。 if then begin (39。select * from book where name like :name39。) 。 (39。name39。).Value:=content。 end。 if then begin (39。select * from book where press like :press39。) 。 昆明冶金高等專科學(xué)校計信系 畢業(yè)論文 第 32 頁 (39。press39。).Value:=content。 end。 if then begin (39。select * from book where author like :author39。) 。 (39。author39。).Value:=content。 end。 open。 while not eof do begin with do