【正文】 ton2: TButton。 Panel2: TPanel。 Bevel1: TBevel。 StaticText1: TStaticText。 Panel1: TPanel。 Bevel2: TBevel。 StaticText2: TStaticText?！? procedure FormShow(Sender: TObject)。 procedure ComboBox1Change(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 procedure ReaderIDEditChange(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 procedure ComboBox1KeyDown(Sender: TObject。 var Key: Word。 Shift: TShiftState)。 procedure Button3Click(Sender: TObject)。 private { Private declarations } public { Public declarations } CanLand : boolean。 end?！? procedure (Sender: TObject)。begin Close。end。 信息查詢系統(tǒng)通過信息查詢功能主要實現(xiàn)對于圖書信息，讀者信息，以及書籍借閱信息的查詢。其運(yùn)行結(jié)果如圖 圖 圖 9 所示查詢圖書基本信息，見圖 7圖 7 信息查詢截圖（1）查詢讀者基本信息，見圖 8 圖 8 信息查詢截圖（2）查詢借閱基本信息，見圖 9圖 9 信息查詢截圖（3） 查詢功能實現(xiàn)部分代碼如下unit InfoQuery。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ComCtrls, ADODB。type TQueryForm = class(TForm) PageControl1: TPageControl。 TabSheet1: TTabSheet。 GroupBox1: TGroupBox。 RadioButton1: TRadioButton。 RadioButton2: TRadioButton。 RadioButton3: TRadioButton。 RadioButton4: TRadioButton。 CheckBox1: TCheckBox。 StaticText1: TStaticText。 Button2: TButton。 StaticText2: TStaticText。 ListView1: TListView。 TabSheet2: TTabSheet。 GroupBox2: TGroupBox。 RadioButton5: TRadioButton。 RadioButton6: TRadioButton。 CheckBox2: TCheckBox。 StaticText3: TStaticText。 Edit1: TEdit。 Button3: TButton?！? private { Private declarations } public { Public declarations } end。begin with do begin Caption := FieldByName(39。ReaderID39。).AsString。 (FieldByName(39。Name39。).AsString)。 if FieldByName(39。Sex39。).AsString = 39。139。 then (39。女39。) else (39。男39。)。 (FieldByName(39。Code39。).AsString)。 (FieldByName(39。OutDate39。).AsString)。 (FloatToStr(DateFieldByName(39。OutDate39。).AsDateTime))。 (FieldByName(39。IDCardNo39。).AsString)。 if DateFieldByName(39。OutDate39。).AsDateTime 60 then (FloatToStr((DateFieldByName(39。OutDate39。).AsDateTime60)*)) else (39。039。) end。 總結(jié)本圖書管理系統(tǒng)實現(xiàn)了圖書管理的基本功能，經(jīng)過調(diào)試運(yùn)行，表明該系統(tǒng)具有可行性和可擴(kuò)充性。但操作系統(tǒng)還有待于進(jìn)一步的改善，數(shù)據(jù)庫也還有待進(jìn)一步的完善與規(guī)劃，使系統(tǒng)更加高效，更加人性化。通過幾周的設(shè)計練習(xí)，從系統(tǒng)的需求分析開始，到邏輯結(jié)構(gòu)設(shè)計，再到最后的系統(tǒng)實施與維護(hù)，一步步走下來雖然感覺有點累，但每一步都獲益匪淺。從這個設(shè)計中，不僅僅從實踐中鞏固提高了 Delphi 軟件的應(yīng)用和 Access 數(shù)據(jù)庫的相關(guān)知識，體會了設(shè)計一個系統(tǒng)的過程，更學(xué)到了一種設(shè)計分析的思想，一種能力。在這幾周的課程設(shè)計中，遇到了各種各樣的問題，特別是數(shù)據(jù)庫實現(xiàn)，與系統(tǒng)前臺的實現(xiàn)階段。為了解決這樣那樣的問題，我翻閱了不同的書籍，在網(wǎng)上搜索了大量的資料，一個一個的將問題解決掉。在這期間，無形中鍛煉了我分析問題，解決問題的能里，鍛煉了我自主學(xué)習(xí)的能力。同時也體會到了學(xué)習(xí)的樂趣和收獲的喜悅。 參考文獻(xiàn)[1]張世明．Delphi 程序設(shè)計基礎(chǔ)教程、實驗、習(xí)題．北京：電子工業(yè)出版社，2022[2]梁水．Delphi 程序開發(fā)范例寶典 第二版．北京：人民郵電出版社，2022 [3]席一凡．Delphi 程序設(shè)計．北京：中國鐵道出版社，2022[4]段興．Delphi7 實用程序設(shè)計 100 例．北京：人民郵電出版社，2022[5]李俊德．Access 2022 入門與實例演練．北京：中國青年出版社，2022[6] 陳光軍，張秀芝．Access 2022 實驗案例教程．北京：中國水利出版社，2022[7]馬義玲．Access 數(shù)據(jù)庫與程序設(shè)計教程．成都：四川大學(xué)出版社，2022[8]程偉淵．?dāng)?shù)據(jù)庫基礎(chǔ)：Access 2022 應(yīng)用教程．北京：中國水利水電出版社，202