【導讀】Delphi進行系統開發(fā)的一般步驟，方法和技巧。料，為圖書館的及時轉換提供一定的支持。本圖書管理系統涵蓋了六個主要的子系統：。掛失注銷，系統設置。標準版本包含一個Borland. DatabaseEngine的局部拷貝，它允許用戶創(chuàng)建能訪問Dbase，Paradox和LocalInterBase服。服務器版本包括BorlandSQLLink,它能直接訪問Oracle，SyBase和MicrosoftSQLServer，Informix等多種數據庫服務器。他們之間的層次結構關系。

　　

【正文】 if =0 then showmessage(39。沒有相關信息 39。)。 :=39。39。 end。 end。 end。 procedure (Sender: TObject。 var Key: Char)。 //查詢字段值輸入 begin if key=13 then //按“ enter鍵，”查詢“按鈕作用，顯示查詢結果 。 end。 procedure (Sender: TObject)。 //辦理新的借書證 begin 。 //添加用戶 showmessage(39。先填寫用戶基本信息 !39。)。 end。 procedure (Sender: TObject)。 //修改 begin try :=true。 //修改用戶信息組框 if messagedlg(39。你確定要修改當前信息嗎？ 39。,mtconfirmation,mbyesnocancel,0)=mryes then begin :=0。 。 end。 except on edatabaseerror do showmessage(39。該借閱證號已經存在，請輸入新的借閱證號 39。)。 end。 end。 procedure (Sender: TObject)。 //查詢相關信息 begin :=1。 end。 procedure (Sender: TObject)。 //顯示所有 begin displayallrecoders。 :=inttostr()。 :=39。39。 end。 procedure (Sender: TObject)。 //掛失 var i:integer。 t:boolean。 s:string。 begin i:=0。 s:=39。039。 if messagedlg(39。確信要掛失？ 39。,mtconfirmation,mbokcancel,0)=mrok then begin repeat t:=inputquery(39。掛失 !39。,39。請輸入丟失人的借書證號： 39。,s)。 if t=false then begin :=1。 exit。 end else with do begin close。 。 (39。select * from 借書證表 where 借閱證號 =39。+s) 。 open。 end。 if =0 then showmessage(39。沒有相關信息 ,請重新輸入 39。) 。 i:= 。 until i0。 if (39。有效標志 39。).Value=true then begin :=0。 。 (39。有效標志 39。).Value :=false。 。 showmessage(39。掛失成功 !39。) end else showmessage(39。該用戶已掛失 !39。)。 :=1。 end。 end。 procedure (Sender: TObject)。//返回上層 begin close。 end。 procedure (Sender: TObject)。 //點擊 39。注銷該借書證‘按鈕 ，永久刪除當前記錄 var s:string。 t:boolean。 begin s:=39。039。 if messagedlg(39。確定要注銷嗎？ 39。,mtconfirmation,mbyesnocancel,0)=mryes then repeat t:=inputquery(39。注銷 !39。,39。請輸入需要注銷的借書證號： 39。,s)。 if t=false then begin :=1。 exit。 end else with ADOQuery1 do begin close。 。 (39。select * from 借書證表 where 借閱證號 =39。+s) 。 open。 if recordcount=0 then showmessage(39。還沒有相關信息 ,請重新輸入 39。) else begin delete。 showmessage(39。注銷成功 !39。)。 search。 := inttostr()。 end。 end。 until 0 end。 procedure (Sender: TObject)。 //修改用戶信息組框中 “確定”按鈕 begin 。 :=false。 :=1。 end。 procedure (Sender: TObject)。 //修改用戶信息組框中 “取消”按鈕 begin 。 :=false。 :=1。 end。 procedure (Sender: TObject)。 begin with ADOQuery1 do case of 0: FieldByName(39?？山钄盗?39。).Value:=3。 1: FieldByName(39?？山钄盗?39。).Value:=5。 2: FieldByName(39?？山钄盗?39。).Value:=7。 end。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin if + 0 then begin := 10 。 := 10。 end else begin := + 。 := 10 。 := 10。 end。 if + 0 then := + 。 [0].Text :=39。 當前操作員： 39。+yhname。 [1].Text :=39。 當前操作： 39。+ 。 [4].Text :=39?，F在時間： 39。+datetostr(date)+39。 39。+timetostr(time)。 end。 procedure (Sender: TObject。 Shift: TShiftState。 X, Y: Integer)。 begin :=false。 end。 procedure (Sender: TObject)。 begin if =dsedit then if messagedlg(39。修改未保存，是否保存？ 39。,mtconfirmation,mbyesnocancel,0)=mryes then else 。 end。 procedure (Sender: TObject)。 begin if =false then :=true。 :=false。 // “修改用戶信息”組框不可用 filldata。 // 。 :=inttostr()。 :=39。39。 (39。圖象 \39。)。 //調用圖片分別到四個image 中 (39。圖象 \39。)。 (39。圖象 \39。)。 (39。圖象 \39。)。 (39。圖象 \39。)。 :=1。 //多選項卡中“記錄查詢”激活 end。 procedure (DataSet: TDataSet)。 begin with adoquery2 do begin close。 。 (39。select * from 借書證表 39。)。 open。 end。 :=inttostr( )。 end。 procedure (Sender: TObject)。 begin :=39。39。 end。 end. 圖書管理 修改圖書的基本信息 這是圖書管理員的權力，包括添加，刪除和修改圖書信息。當有新添加進來的圖書時， 圖書管理員要查看圖書館里是不是已存有這樣的圖書，否則就加入新的圖書信息。學生借出書或歸還圖書時，要及時地修改圖書流通信息表。 unit Utsmain。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, Menus, StdCtrls, Grids, DBGrids, ExtCtrls, DB, ADODB, Mask, DBCtrls。 type TFbook = class(TForm) ADOQuery1: TADOQuery。 DataSource1: TDataSource。 Panel1: TPanel。 DBGrid1: TDBGrid。 GroupBox1: TGroupBox。 btnadd: TButton。 btndelete: TButton。 btnedit: TButton。 btnexit: TButton。 MainMenu1: TMainMenu。 StatusBar1: TStatusBar。 GroupBox2: TGroupBox。 Label1: TLabel。 Label2: TLabel。 Label3: TLabel。 Label4: TLabel。 Label5: TLabel。 Label6: TLabel。 Label7: TLabel。 Label8: TLabel。 Label9: TLabel。 DBEdit1: TDBEdit。 DBEdit2: TDBEdit。 DBEdit3: TDBEdit。 DBEdit4: TDBEdit。 DBEdit5: TDBEdit。 DBEdit6: TDBEdit。 DBEdit9: TDBEdit。 Button6: TButton。 Label10: TLabel。 btnsave: TButton。 Button1: TButton。 PopupMenu1: TPopupMenu。 N1: TMenuItem。 N2: TMenuItem。 N3: TMenuItem。 ADOTable1: TADOTable。 DBEdit7: TDBEdit。 Timer1: TTimer。 DBComboBox1: TDBComboBox。 Button2: TButton。 procedure btnaddClick(Sender: TObject)。 procedure Button6Click(Sender: TObject)。 procedure btndeleteClick(Sender: TObject)。 procedure btneditClick(Sender: TObject)。 procedure btnsaveClick(Sender: TObject)。 procedure btnexitClick(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 procedure DataSource1DataChange(Sender: TObject。 Field: TField)。 procedure Timer1Timer(Sender: TObject)。 procedure FormShow(Sender: TObject)。 procedure GroupBox2Exit(Sender: TObject)。 proced