本科--圖書管理信息系統(編輯修改稿)

　

【文章內容簡介】 Items 制作一些菜單項 菜單制作最后效果圖為： 在主窗體中通過單擊菜單項按鈕來選擇所需的窗體，每個菜單 項的功能就是顯示對應的窗體。它們的單擊事件的程序代碼如下： 昆明冶金高等專科學校計信系 畢業論文 第 14 頁 procedure (Sender: TObject)。 begin 。 //顯示圖書管理窗體 end。 procedure (Sender: TObject)。 begin 。 //顯示讀者管理窗體 end。 procedure (Sender: TObject)。 begin 。 //顯示借閱管理窗體 end。 procedure (Sender: TObject)。 begin close。 //關閉主窗體 end。 procedure (Sender: TObject)。 begin 。 //顯示信息查詢窗體 end。 5． 3 登錄窗體 其界面如圖所示： 用戶登錄窗體運行時是讓用戶輸 入密碼，以確定用戶是否合法，能否進入系統。用戶登錄是最多可輸入三次密碼，如果密碼仍不正確系統將關閉，所以我們可以定義一個變量來記錄密碼輸入次數，在 LoginForm 窗體的變量定義部分定義：entertime:integer。并在 LoginForm 窗體的 Oncreate 事件的處理過程中初始化該變量。程序代碼如下： procedure (Sender: TObject)。 昆明冶金高等專科學校計信系 畢業論文 第 15 頁 begin entertime:=0。 end。 ? 確定按鈕功能的實現 確定按鈕的功能是用來檢測用戶 輸入的密碼是否正確。其單擊事件OnClick 的處理代碼如下： procedure (Sender: TObject)。 var pwfile:textfile。 possword:string。 begin Assignfile(pwfile,39。39。)。 //從文件 中讀取密碼 reset(pwfile)。 readln(pwfile,possword)。 closefile(pwfile)。 inc(entertime)。 //密碼輸入次數增加 1 if =possword then close else begin :=39。密碼輸入錯誤，請重新輸入 :39。 if entertime=3 then //超過輸入次數 begin messagebox(handle,39。輸入密碼錯誤超過三次，程序退出 !39。,39。信息 39。,MB_OK)。 close。 。 //應用程序結束 end else begin :=39。39。 。 end。 end。 end。 其中 文件用記事本來創建，保存時必須以 .sys 作為擴展名。 登錄窗體它將在主窗體初次激活之前被顯示，這樣才能起到合法性檢查的作用。所以在主窗體（ MainForm）變量定義部分定義變量 HaveLogin,它的作用是判斷是否已經登錄。在主窗體的 OnCreate 事件的處理過程中初始化變量 HaveLogin,OnActivate 事件的處理過程中顯示用戶登錄窗體，代碼實現為： procedure (Sender: TObject)。 begin havelogin:=false。 //初始化，說明還沒有登錄 end。 昆明冶金高等專科學校計信系 畢業論文 第 16 頁 procedure (Sender: TObject)。 begin if not havelogin then //還沒有登錄 begin 。 havelogin:=true。 end。 end。 ? 修改按鈕的實現： 建立一個窗體 (PsForm)用來實現修改密碼，從而維護系統。它要求原密碼輸入正確并且新密碼與確認密碼 相同。其界面如圖所示： 其中“確認”按鈕單擊事件的代碼為： procedure (Sender: TObject)。 var pwfile:textfile。 possword:string。 begin assignfile(pwfile,39。39。)。 reset(pwfile)。 readln(pwfile,possword)。 closefile(pwfile)。 if possword then showmessage(39。原密碼不對，不能修改密碼 !39。) else if = then begin assignfile(pwfile,39。39。)。 rewrite(pwfile)。 writeln(pwfile,)。 昆明冶金高等專科學校計信系 畢業論文 第 17 頁 closefile(pwfile)。 showmessage(39。密碼修改成功 !39。)。 end else begin showmessage(39。新密碼和確認密碼不一致 !39。)。 。 end。 end。 5． 4 數據模塊設計 ? ADO (ActiveX Data Objects)是微軟提供的一項技術，它是訪問數據庫的一種接口方式，可以發表訪問各種類型的數據庫，特別是 OLEDB 數據庫。ADO 已成為訪問數據庫的新的標準接口。從版本 6 開始， Delphi 增添了對 ADO 的支持，以便讓用戶能迅速實現對終端用戶用來做商 業決策的數據的一致性訪問，結合 Delphi 本身的開放式數據組件結構，程序員可以很快地建立應用程序，用來把自己的商業數據通過 Inter 發送給客戶、最終用戶以及整個銷售環節。通過 ADO， Delphi7 也能讓用戶快速訪問關系或非關系數據庫以及 E— Mail 和商務文件系統。 ? ADO 同時支持訪問本地數據庫和遠程數據庫，訪問本地數據庫時 ADO的一般處理方法如下： (1) 連接到數據源，開始一個事務。 (2) 執行 SQL 命令。 (3) 如果命令返回數據集，則將數據存儲在緩存中 (4) 對數據進行操作 (5) 用緩存中的數據更新數據集 (6) 接受或者拒絕對數據 庫的修改，結束事務 訪問遠程數據庫時 ADO 的一般處理方法如下： (1) 指定服務器上被調用的程序和調用途徑 (2) 調用服務程序，通過服務程序從數據源中獲得數據集，并將數據集返回到客戶應用程序 (3) 在客戶端將服務程序返回的數據集顯示給用戶 ? BDE(Borland Database Engine)是 Delphi 頗具特色的數據庫連接管理技術。憑借窗體和報表， BDE 可以訪問諸如 Paradox、 Dbase 、本地 InterBase服務器的數據庫，也可以訪問遠程數據庫服務器上的數據庫，如Oracle,SyBase,Informix 等 客戶 /服務器數據庫中的數據庫，也可以訪問經ODBC 可訪問的數據庫管理系統中的數據庫。 ? BDE 與 ADO 數據連接技術的比較： BDE 現在已經停止發展了，其性能被超越是遲早的事，因此，在開發長期應用產品時，我們應該采用 ADO技術。這樣做另外一個好處是，在進行產品分發時，可以避開大量 BDE的鏈接庫 DLL 的分發，而且讓程序自動安裝 BDE 不是件容易的事情。 5． 4． 2 ADO 常用的組件 ? ADOConnection 組件：它起到一個橋梁作用，其他 5 個組件都可以通過它來操作數據庫，它相對于其他 5 個組件來說就相當于數據庫別名 。它有兩個重要屬性： ConnectionString 和 LoginPrompt.。 ConnectionString 屬性可以指定一個到數據庫的連接。其使用方法參考有關書籍。 LoginPromt 屬性昆明冶金高等專科學校計信系 畢業論文 第 18 頁 決定是否彈出密碼輸入框。 ? ADODataSet 組件：通過它可以直接與一個表進行連接，也可以執行 SQL語 句 ，還 可以 執行 存儲 過程 。 可以 說集 ADOTable ADOQuery ADOStoredProc 三者的功能于一身。只要用于返回并操縱數據。 ? ADOComand 組件：主要用于執行 SQL 語句 ,例如 Insert,Delete\Drop 等，如果要使用 SELECT 語句建議使用 TADOQuery 組件。 ? ADOTable 組件：與 BDE 中的 Table 組件非常類似，許多屬性、事件和方法也一用。它的作用是從一個數據表中獲得并操縱數據， ADOTable 和Ttable 組件的使用方法大致相同。 ? ADOQuery 組件：用來對數據庫中的數據進行查詢。在后面將介紹。 在這里我們建立數據模塊 (Data Module)來存放 ADO 組件對象，這樣既便于窗體統一使用 ADO 組件對象訪問數據庫，也使維護修改更加簡單。在Delphi7 新建一個數據模塊 DataModuleADO, 并在數據模塊中放置ADOConection 組件對象、 ADOQuery 組件對象和 ADOTable 各一個，然后設置它們的屬性，如圖所示： 在數據模塊 DataModuleADO 創建時完成對三個 ADO 組件對象的初始化，這在 DataModuleADO 的 OnCreate 事件的處理程序中實現，代碼如下： procedure (Sender:Tobject)。 begin :=’Provider=。DataSource=’+Mypath+’Data\。Jet OLEDB: Database Password=’+MyPassw+’。Persist Security Info=False’。 :=ADOConnection1。 :=ADOConnection1。 圖書管理窗體設計 圖書 管理窗體包括新書入庫和圖書管理兩個功能。在工程中選中 BookForm窗體，然后添加一個 TpageControl 組件對象，在改對象上建立兩個界面 (Tabsheet),用到的組件和屬性設置參考界面。 5． 5． 1 新書入庫 昆明冶金高等專科學校計信系 畢業論文 第 19 頁 新書入庫的界面如圖所示，其中用到的組件對象可以從圖中看出：主要是Lable,Edit 組件。 在新書入庫頁顯示時，需要清空幾個編輯框并將輸入焦點放在輸入書號的編輯框CodeEdit 上，這在 TabSheet1(新書入庫頁 )的 OnShow 事件的處理程序中實現，代 碼如下： procedure (Sender: TObject)。 begin 。 。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 。 end。 單擊“入庫”按鈕將在幾個編輯框中填入的新書的數據加入到數 據庫中，其只要內容有： (1) 檢查新書書號是否正確，如果不正確則退出入庫操作； (2) 檢測此書號是否已經存在，如存在則退出入庫操作； (3) 將新書的數據假如到數據庫中。 在這里我們用到 SQL 語言來向數據庫中插入數據，其語法為： insert into 表名 [字段名，字段名 ] values (值表 ) Query 組件的賦值語句為 : ParamByname(‘FieldName’).Value:=s1。 而 ADOQuery 組件的賦值語句為 : (‘FieldName’).Value:=s1。 昆明冶金高等專科學校計信系 畢業論文 第 20 頁 綜上知識，可以得出入庫按鈕的 Onclick 事件的代碼： procedure (Sender: TObject)。 begin if length()10 then //新書書號長度是否 10 begin messagedlg(39。書號不正確 39。,mterror,[mbok],0)。 。 exit。 end。 with do //檢 查新書的書號是否已經存在 begin 。 (39。select Code from Book where Code =:Code39。)。 (39。Code39。).Value :=。 Open。 if RecordCount 0 then //此書號已經存在 begin MessageDlg(39。書號 39。++39。已經存在 39。,mtError,[mbok],0)。 。 Exit。 end。 Close。 end。 try