【正文】 author39。 昆明冶金高等?？茖W校計信系 畢業(yè)論文 第 32 頁 (39。) 。select * from book where code like :code39。 begin try 。 模糊查詢是一種重要的查詢方式，這種查詢方式大多是在不知道準確的查詢條件，而只知道部分信息的時候使用。 新建一個窗體用來顯示該借書證所借的已超期圖書的信息，該窗體 Name 屬性設置為 OwnBookForm。).Value := 。 end。 end else begin 。 if StrToInt()60 then begin := True。).AsDateTime。select * from Lend where Code = :Code39。 := True。 if not Locate(39。Author39。39。 OwnTime : TDate。 4． 修改讀者信息：當讀者信息發(fā)生變化時，可以在系統(tǒng)中對其進行修改。 (39。).Value := [i].Caption。 ? 判斷當前行是否被選中： ? 圖書歸還判斷： if RecordCount = 0 then //該讀者所借圖書已全部歸還 Checked := IDYES else begin //還有圖書沒有歸還 if MessageDlg(39。).AsString)。139。ReaderID39。在該組件里可以放置其他組件如 Radiobutton 組件、 Checkbox 組件等。 var Key: Word。 except MessageDlg(39。 //DBCost 連接數(shù)據(jù)表中 OutDate 字段 := 39。 := 39。 end。 Open。 ? ShowHint 與 Hints 屬性： ShowHint 屬性決定是否顯示 TDBNavigator 組件中各按鈕的提示信息， Hints 屬性是用來設置提示信息。 5． 5． 2 圖書管理的實現(xiàn) 圖書管理頁主要完成對數(shù)據(jù)庫中圖書數(shù)據(jù)的修改，其界面如圖所示： 其中我們用到的主要組件是： 組件對象名 屬性 屬性值 說明 DataSource1 DataSet Label1 Caption 書號 顯示“書號” ComboBox1 用于輸入或顯示書號 DBName DataSorce DataSource1 DBEdit 組件，連接數(shù)據(jù)表字段 按圖可以知道所用的組件，在這里我們用到 TDataSource 和 TDBNavigator 組件， TdataSource 組件是聯(lián)系數(shù)據(jù)集組件與數(shù)據(jù)控制組件的橋梁。 ExecSQL。 昆明冶金高等?？茖W校計信系 畢業(yè)論文 第 21 頁 try (39。 try (39。Author39。)。 end。 Open。 end。 在這里我們用到 SQL 語言來向數(shù)據(jù)庫中插入數(shù)據(jù)，其語法為： insert into 表名 [字段名，字段名 ] values (值表 ) Query 組件的賦值語句為 : ParamByname(‘FieldName’).Value:=s1。39。 在新書入庫頁顯示時，需要清空幾個編輯框并將輸入焦點放在輸入書號的編輯框CodeEdit 上，這在 TabSheet1(新書入庫頁 )的 OnShow 事件的處理程序中實現(xiàn)，代 碼如下： procedure (Sender: TObject)。DataSource=’+Mypath+’Data\。 ? ADOComand 組件：主要用于執(zhí)行 SQL 語句 ,例如 Insert,Delete\Drop 等，如果要使用 SELECT 語句建議使用 TADOQuery 組件。 5． 4． 2 ADO 常用的組件 ? ADOConnection 組件：它起到一個橋梁作用，其他 5 個組件都可以通過它來操作數(shù)據(jù)庫，它相對于其他 5 個組件來說就相當于數(shù)據(jù)庫別名 。從版本 6 開始， Delphi 增添了對 ADO 的支持，以便讓用戶能迅速實現(xiàn)對終端用戶用來做商 業(yè)決策的數(shù)據(jù)的一致性訪問，結合 Delphi 本身的開放式數(shù)據(jù)組件結構，程序員可以很快地建立應用程序，用來把自己的商業(yè)數(shù)據(jù)通過 Inter 發(fā)送給客戶、最終用戶以及整個銷售環(huán)節(jié)。 end else begin showmessage(39。39。39。 end。 登錄窗體它將在主窗體初次激活之前被顯示，這樣才能起到合法性檢查的作用。 。 //密碼輸入次數(shù)增加 1 if =possword then close else begin :=39。 possword:string。用戶登錄是最多可輸入三次密碼，如果密碼仍不正確系統(tǒng)將關閉，所以我們可以定義一個變量來記錄密碼輸入次數(shù)，在 LoginForm 窗體的變量定義部分定義：entertime:integer。 //顯示借閱管理窗體 end。它們的單擊事件的程序代碼如下： 昆明冶金高等專科學校計信系 畢業(yè)論文 第 14 頁 procedure (Sender: TObject)。根據(jù)圖書實體得到圖書數(shù)據(jù)表 (Book),根據(jù)讀者實體得到讀者個人數(shù)據(jù)表 (Reader),根據(jù)借閱聯(lián)系得到借閱表 (Lend).在 這里我們用 SQL Server2021 數(shù)據(jù)庫管理系統(tǒng)來設計數(shù)據(jù)庫。它的另外一個任務是設計軟件的結構，也就是要確定系統(tǒng)中的每個程序是有那些模塊組成的，以及這些模塊相互之間的關系。 ? 圖書借還管理：實現(xiàn)對圖書的借出和歸 還的信息管理。 三、需求分析 需求分析：為了開發(fā)出真正滿足用戶需求的軟件產(chǎn)品，首先必須知道用戶的需求。規(guī)范化程度過低的數(shù)據(jù)庫，可能會存在插入 /刪除異常、修改復雜、數(shù)據(jù)冗余等問題，解決的方法就是對關系模式進行分解或合并，轉換成高級范式。 完整性原則：數(shù)據(jù)庫的完整性是指數(shù)據(jù)的正確性和相容性。軟件設計應盡可能模塊化、組織化，使應用系統(tǒng)可靈活配置，適應不同的情況。 ? 物理結構：物理組成、處理功能、用戶需要的輸出。 2． 1． 1 MIS 的定義 MIS 的定義有很多種，研究者們從各自的角度出發(fā)給出了不同的定義。 ? 在這里我們主要介紹下本案例所要用到的 SQL 命令，其他則可以參考有關書籍。 ? 簡單、友好的操作方式 ? 數(shù)據(jù)倉庫支持 SQL 語言介紹 ? 在這里我們 用到了 SQL結構化查詢語言，所以在這里插入篇幅來介紹下 SQL結構化查詢語言，因為這在以后的設計過程中經(jīng)常要用到它。因此，開發(fā)一個圖書信息管理系統(tǒng)，是高校非常必要的，也是必不可缺少的。對于數(shù)據(jù)庫的設計與維護要求所建立的數(shù)據(jù)庫具有完整性和一致性，如用戶需要密碼才能使用等，而對應用程序的開發(fā)則要求程序界面友好、功能完備、使用容易等特點。但是，隨著科學技術的發(fā)展，目前大多數(shù)的高校已經(jīng)有了自己的圖書管理系統(tǒng)，而一些中、小學的圖書管理仍然是人工管理，歷史證明，這種管理制度不能適應時代的發(fā)展，因為這種管理制度將浪費許多物力、人力、及時間。其特點體現(xiàn)在 以下幾個方面： ? 與 Inter 的緊密結合 SQL Server2021 的數(shù)據(jù)庫引擎集成了對 XML 的支持，同時可以擴展、易于使用和安全的特點。 2. SQL 語言是非過程化查詢語言。 昆明冶金高等?？茖W校計信系 畢業(yè)論文 第 6 頁 二、 管理信息系統(tǒng)的基本概念 管理信息系統(tǒng)是 用來為管理人員和決策者提供計算機硬件、系統(tǒng)軟件、數(shù)據(jù)庫、通信、人員和應用程序的集合。 2. 輔助事務處理和輔助組織管理 輔助事務處理，包括具有通用性的事務處理 (如計劃的制定與管理、人事管理、財務管理等 )和各類特殊事務處理 (如物資管理、銷售規(guī)律 教學管理、群眾來信來訪管理等 )。具體的設計原則如下： ? 實用性原則 要力求最大限度得滿足實際工作 的需要，考慮各業(yè)務層次、各管理環(huán) 節(jié)數(shù)據(jù)處理的實用性，把滿足用戶生產(chǎn)的和管理業(yè)務作為第一要素進行考慮。用戶界面應當直觀、明了、條理清晰。 可伸縮性原則：數(shù)據(jù)庫的設計應充分考慮發(fā)展的需要、移植的需要，應具有良好的擴展性。這兩個體系的發(fā)展都及為迅猛，但是二者并沒有出現(xiàn)混合滲透跡象。圖書信息管理包括圖書入庫、圖書增刪、圖書借還和查詢操作，系統(tǒng)管理主要是用戶密碼管理，讀者數(shù)據(jù)管理包括讀者類別管理和讀者個人數(shù)據(jù)的錄入、修改、刪除、借書和還書等。 ? 內(nèi)存：不小于 64MB； ? 硬盤空間：不小于 。 ? 查詢：圖書基本信息、讀者基本信息、借閱基本信息查詢。 圖書管理信息系統(tǒng)工程 主窗體 登錄窗體 圖書管理窗體 借閱管理窗體 信息查詢窗體 昆明冶金高等專科學校計信系 畢業(yè)論文 第 13 頁 5． 2 主窗體設計 主窗體 MainForm 是應用程序的控制核 心，在主窗體中可完成其他窗體之間的切換。 //顯示讀者管理窗體 end。 begin 。 ? 確定按鈕功能的實現(xiàn) 確定按鈕的功能是用來檢測用戶 輸入的密碼是否正確。 readln(pwfile,possword)。信息 39。 end。 昆明冶金高等專科學校計信系 畢業(yè)論文 第 16 頁 procedure (Sender: TObject)。 var pwfile:textfile。 if possword then showmessage(39。 showmessage(39。 end。憑借窗體和報表， BDE 可以訪問諸如 Paradox、 Dbase 、本地 InterBase服務器的數(shù)據(jù)庫，也可以訪問遠程數(shù)據(jù)庫服務器上的數(shù)據(jù)庫，如Oracle,SyBase,Informix 等 客戶 /服務器數(shù)據(jù)庫中的數(shù)據(jù)庫，也可以訪問經(jīng)ODBC 可訪問的數(shù)據(jù)庫管理系統(tǒng)中的數(shù)據(jù)庫。 ? ADODataSet 組件：通過它可以直接與一個表進行連接，也可以執(zhí)行 SQL語 句 ，還 可以 執(zhí)行 存儲 過程 。 在這里我們建立數(shù)據(jù)模塊 (Data Module)來存放 ADO 組件對象，這樣既便于窗體統(tǒng)一使用 ADO 組件對象訪問數(shù)據(jù)庫，也使維護修改更加簡單。 圖書管理窗體設計 圖書 管理窗體包括新書入庫和圖書管理兩個功能。 :=39。 。,mterror,[mbok],0)。 (39。,mtError,[mbok],0)。insert into book(Code,Name,Author,Press,OutDate,Cost,Num)39。Name39。 (39。,mtError,[mbok],0)。,mtError,[mbok],0)。,mtError,[mbok],0)。它包含一組控制按鈕，如圖所示： 單擊其中的按鈕可以向前或向后移動記錄指針、插入記錄、修改現(xiàn)存記錄、提交對記錄的修改、取消修改、刪除記錄以及刷新記錄的顯示等。 (39。 Next。book39。Press39。,[])。 end。下面介紹讀者管理窗體的設計。 ? 然后是把查詢到的記錄加入到 ListView1 中并把有關記錄顯示出來，用 ()方法就可實現(xiàn)。 if FieldByName(39。)。 2． 刪除讀者信息：單擊“刪除”按鈕將讀者列表 ListView1 中當前選中的讀者信息從數(shù)據(jù)庫中刪除。)。 (39。 (i)。 ComboBox1 組件對象的 OnChange 事件處理程序代碼在源代碼中可以具體的看出。 :=39。 昆明冶金高等?？茖W校計信系 畢業(yè)論文 第 28 頁 := 39。 := 39。 := False。 end。 Open。).AsString。 := True。 except 。)。