20xx年計算機應用專業(yè)畢業(yè)設計(論文)樣板(編輯修改稿)
2025-06-27 18:00 本頁面
【文章內容簡介】 用DBD進行創(chuàng)建。(DBD)簡介Delphi提供了幾個數據庫工具以輔助數據庫應用程序的開發(fā)，從而為創(chuàng)建功能強大的應用程序帶來極大方便。數據庫工作平臺（Database Desktop，簡稱DBD）是Delphi提供的一個非常方便的數據庫管理工具。使用DBD可以實現(xiàn)創(chuàng)建、編輯、修改數據表、重建數據表的結構，完成數據輸入及查詢數據等操作。圖書基本信息表結構學生基本信息表結構登陸用戶信息表結構圖書借出信息表結構第七章 系統(tǒng)的窗體和模塊的創(chuàng)建具體實現(xiàn)為了提高程序設計的靈活性，定義了本系統(tǒng)的一些全局變量和函數，并把它們保存在一個單獨的文件中，下面是單元文件的代碼：unit global。interfaceuses dbtables。var username,userpwd:string。 dbname:string。 exbook_num:integer。 p_books,p_days:integer。 p_momey:real。 p_betdays:integer。 plvisible:boolean。 function isborrowed(b_no:string):boolean。implementationfunction isborrowed(b_no:string):boolean。var t:ttable。begin t:=(nil)。 :=dbname。 :=39。39。 。 。 (39。圖書編號39。).asstring:=b_no。 if then result:=true else result:=false。 。 。end。end.為了區(qū)分不同的身份的用戶（本系統(tǒng)簡化了復雜性，用戶只有學生和管理員），本系統(tǒng)采用了用戶登錄功能。用戶登錄是從自由態(tài)主窗體進入的，它是實現(xiàn)兩個功能：用戶身份的確認和進入不同子系統(tǒng)前要做的準備工作。登錄窗體如圖所示用戶登錄設計窗體其代碼如下：unit login。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,db,dbtables。type Tloginfrm = class(TForm) ……………… ……………… ……………… ：主窗體是應用程序的核心部分，它和其他窗體有著緊密的關系，一般是由主窗體調用其他窗體，由其他窗體返回主窗體。本系統(tǒng)根據不同的環(huán)境設置了三個主窗體界面，分別是：自由態(tài)窗體界面、管理員窗體界面和用戶態(tài)主窗體界面，但這三個界面是共一個窗體的，而不是三個窗體。設計主窗體其代碼如下：unit main。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ExtCtrls, Menus, TFlatSpeedButtonUnit, StdCtrls, Grids, DBGrids, DB, DBTables,DateUtils, ImgList, ToolWin。 ……………… ……………… ……………… ……………… ……………… ……………… ……………… ……………… ……………… ……………… ……………… ……………… ……………… ……………… ……………… ……………… ……………… ……………… ……………… ………………新圖書入庫設計窗口新圖書入庫設計窗口從上圖可以看出該窗體的設計比較簡單。除了“圖書類別”右邊的是Tbobox，“出版時間”右邊的是TdateTimePicker和“備注”右下邊是Tmemo外，其他的都是文本輸入框。2．功能的實現(xiàn)當顯示窗體時，系統(tǒng)首先根據當前書庫自動按類別編好號，然后再做些清理工作。在實現(xiàn)過程中用到了一個過程（autono）和一個函數nextbookno，其代碼如下： private function nextbookno(const str:string):string。 procedure autono(const stype:string)。 procedure insbook。//新書入庫 { Private declarations } public { Public declarations } end。var newfrm: Tnewfrm。implementation uses global。{$R *.dfm}function (const str:string):string。var s,s1:string。
公司管理相關推薦
鄂ICP備17016276號-1