delphiaccess圖書管理系統(tǒng)-資料下載頁(yè)
2025-04-07 05:31本頁(yè)面
【正文】 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)通過(guò)信息查詢功能主要實(shí)現(xiàn)對(duì)于圖書信息，讀者信息，以及書籍借閱信息的查詢。其運(yùn)行結(jié)果如圖 圖 圖 9 所示查詢圖書基本信息，見(jiàn)圖 7圖 7 信息查詢截圖（1）查詢讀者基本信息，見(jiàn)圖 8 圖 8 信息查詢截圖（2）查詢借閱基本信息，見(jiàn)圖 9圖 9 信息查詢截圖（3） 查詢功能實(shí)現(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)實(shí)現(xiàn)了圖書管理的基本功能，經(jīng)過(guò)調(diào)試運(yùn)行，表明該系統(tǒng)具有可行性和可擴(kuò)充性。但操作系統(tǒng)還有待于進(jìn)一步的改善，數(shù)據(jù)庫(kù)也還有待進(jìn)一步的完善與規(guī)劃，使系統(tǒng)更加高效，更加人性化。通過(guò)幾周的設(shè)計(jì)練習(xí)，從系統(tǒng)的需求分析開始，到邏輯結(jié)構(gòu)設(shè)計(jì)，再到最后的系統(tǒng)實(shí)施與維護(hù)，一步步走下來(lái)雖然感覺(jué)有點(diǎn)累，但每一步都獲益匪淺。從這個(gè)設(shè)計(jì)中，不僅僅從實(shí)踐中鞏固提高了 Delphi 軟件的應(yīng)用和 Access 數(shù)據(jù)庫(kù)的相關(guān)知識(shí)，體會(huì)了設(shè)計(jì)一個(gè)系統(tǒng)的過(guò)程，更學(xué)到了一種設(shè)計(jì)分析的思想，一種能力。在這幾周的課程設(shè)計(jì)中，遇到了各種各樣的問(wèn)題，特別是數(shù)據(jù)庫(kù)實(shí)現(xiàn)，與系統(tǒng)前臺(tái)的實(shí)現(xiàn)階段。為了解決這樣那樣的問(wèn)題，我翻閱了不同的書籍，在網(wǎng)上搜索了大量的資料，一個(gè)一個(gè)的將問(wèn)題解決掉。在這期間，無(wú)形中鍛煉了我分析問(wèn)題，解決問(wèn)題的能里，鍛煉了我自主學(xué)習(xí)的能力。同時(shí)也體會(huì)到了學(xué)習(xí)的樂(lè)趣和收獲的喜悅。 參考文獻(xiàn)[1]張世明．Delphi 程序設(shè)計(jì)基礎(chǔ)教程、實(shí)驗(yàn)、習(xí)題．北京：電子工業(yè)出版社，2022[2]梁水．Delphi 程序開發(fā)范例寶典 第二版．北京：人民郵電出版社，2022 [3]席一凡．Delphi 程序設(shè)計(jì)．北京：中國(guó)鐵道出版社，2022[4]段興．Delphi7 實(shí)用程序設(shè)計(jì) 100 例．北京：人民郵電出版社，2022[5]李俊德．Access 2022 入門與實(shí)例演練．北京：中國(guó)青年出版社，2022[6] 陳光軍，張秀芝．Access 2022 實(shí)驗(yàn)案例教程．北京：中國(guó)水利出版社，2022[7]馬義玲．Access 數(shù)據(jù)庫(kù)與程序設(shè)計(jì)教程．成都：四川大學(xué)出版社，2022[8]程偉淵．?dāng)?shù)據(jù)庫(kù)基礎(chǔ)：Access 2022 應(yīng)用教程．北京：中國(guó)水利水電出版社，202
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1