【正文】 據(jù)庫系統(tǒng)的廣泛應用奠定了基礎。 本應用軟件的基本介紹 本應用軟件先是打開一個啟動窗口，就可以進入應用程序的主窗口了。另外在屏幕左側有快捷銨鈕，彈出式菜單和主窗口菜單相同，可方便選擇，大大提高了管理人員的工作效率。Delphi 應用程序一般包含以下三個基本部分： 應用程序 運行的接口：負責系統(tǒng)整體環(huán)境的設置，運行狀態(tài)的監(jiān)視，應用程序的啟動等。 下面從軟件工程的角度描述本程序的開發(fā)生命周期，開發(fā)過程和組織過程。可能性指開發(fā)信息系統(tǒng)的條件是否具備，必要性是指客觀上是否真正需要，通過可行性研究，可避免盲目投資，減少政治性 要的損失。本系統(tǒng)所需的軟硬件成本比較低，投資小，具有一定的通過性，因此 ，在經(jīng)濟上是可行的。本系統(tǒng)對人事的管理比較全面，可長期使用。關系型數(shù)據(jù) 庫的高速發(fā)展使管理信息系統(tǒng)具備了良好的開發(fā)環(huán)境。 社會可行性 人類社會文明的發(fā)展已進入信息化的高速發(fā)展時期，傳統(tǒng)的手工方式支持下的管理模式，已經(jīng)不能滿足各方面的需要。 數(shù)據(jù)庫的建立和連接 這個程序采用的數(shù)據(jù)庫是 Microsoft Access2020， Delphi作為數(shù)據(jù)庫的 前臺開發(fā)工具，必須與后臺數(shù)據(jù)庫進行連接，這樣才能控制和進行操作數(shù)據(jù)庫，數(shù)據(jù)庫的連接方式有兩種， ODBC 和 ADO。數(shù)據(jù)庫的建立則時在 access2020 中建立的，在這里你可以設置數(shù)據(jù)庫的密碼，對數(shù)據(jù)庫進行保護。而描述文件則可以在 Delphi 的主程序中用 Database Profile 中進行建立，之后進行數(shù)據(jù)庫的連接。同樣建表的過程也不是唯一的，但是最終實現(xiàn)的結果是唯一的。建表的過程注意規(guī)范化命名規(guī)則，如表的字段名等等。因為以后要設計到主鍵，外鍵的問題?？梢娊ū頃r應做好全局的打算。導致數(shù)據(jù)窗口不好用的連鎖反映。 程序流程圖如下： 3 本 程序的技術實現(xiàn)及具體功能 登錄的 界面與程序設計 實現(xiàn) 程序登陸 主界面 狀 態(tài) 管理 開臺 結帳 日結 信息 退出 代碼設計 : unit GetStru。 type TReadStru = class(TForm) List1: TListBox。 Label3: TLabel。 procedure FormCreate(Sender: TObject)。 procedure AliasExit(Sender: TObject)。 var Key: Char)。 private { Private declarations } procedure ShowFields(T: TTable)。 var ReadStru: TReadStru。 var curProp: CURProps。 i: Integer。 FieldList: string。 begin 。 MemSize := * SizeOf(FLDDesc)。 。 DbiGetFieldDescs(, pfldDes)。字符 39。日期 39。備注 39。邏輯 39。短整 39。長整 39。浮點 39。BCDm39。字節(jié) 39。時間 39。郵戳 39。未知 39。 end。(%4s,%3d,%2d)39。 (Trim(FieldList))。 end。 end。 end。 var T: TDataBase。 := False。 ()。 procedure (Sender: TObject)。 (, 39。, true, false, )。 procedure (Sender: TObject)。39。 := (Text)。 end。 procedure (Sender: TObject。 begin if Key = 13 then AliasExit(Self)。 procedure (Sender: TObject)。 begin T := (Self)。 with List1 do := Items[ItemIndex]。 end。 interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Variants, DB, Xeduser, StdCtrls, DBCtrls, Mask, ComCtrls, Grids, DBGrids, ExtCtrls。 Label1: TLabel。 Label3: TLabel。 Group2: TGroupBox。 Label5: TLabel。 Label9: TLabel。 Label7: TLabel。 Label10: TLabel。 Button1: TButton。 Edit11: TDBLookupComboBox。 Label11: TLabel。 Edit02: TDateTimePicker。 Edit12: TDBEdit。 Edit04: TEdit。 Check1: TCheckBox。 Timer1: TTimer。 Button2: TButton。 CardList: TComboBox。 DBEdit1: TDBEdit。 procedure Edit03Click(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 procedure FormClose(Sender: TObject。 procedure Button4Click(Sender: TObject)。 procedure Check1Exit(Sender: TObject)。 procedure Edit05Click(Sender: TObject)。 var Key: Char)。 procedure Button2Click(Sender: TObject)。 Index: Integer。 State: TOwnerDrawState)。 var NewWidth, NewHeight: Integer。 private { Private declarations } public { Public declarations } end。 implementation uses Work01, Data, Printers。 NtCode: Word。 PSort: Word。 var unit GetStru。 type TReadStru = class(TForm) List1: TListBox。 Label3: TLabel。 procedure FormCreate(Sender: TObject)。 procedure AliasExit(Sender: TObject)。 var Key: Char)。 private { Private declarations } procedure ShowFields(T: TTable)。 var ReadStru: TReadStru。 var curProp: CURProps。 i: Integer。 FieldList: string。 begin 。 MemSize := * SizeOf(FLDDesc)。 。 DbiGetFieldDescs(, pfldDes)。字符 39。日期 39。備注 39。邏輯 39。短整 39。長整 39。浮點 39。BCDm39。字節(jié) 39。時間 39。郵戳 39。未知 39。 end。(%4s,%3d,%2d)39。 (Trim(FieldList))。 end。 end。 end。 var T: TDataBase。 := False。 ()。 procedure (Sender: TObject)。 (, 39。, true, false, )。 procedure (Sender: TObject)。39。 := (Text)。 end。 procedure (Sender: TObject。 begin if Key = 13 then AliasExit(Self)。 procedure (Sender: TObject)。 begin T := (Self)。 with List1 do := Items[ItemIndex]。 end。 begin 。 。 。 。娛樂類別 39。 NtCode := [39。]。 := 39。 + 39。 。流水號 39。 (Format(39。, [I]))。 end。 。名稱 39。 。 := 1。 end。 begin Edit03Change(Self)。 end。 var T: TDateTime。 Price: Real。 if then begin if not (39。, Code, []) then begin T := [39。]。 [39。] := Code。開始時間 39。 [39。] := 。 ShowMessage(39。)。 //得到最后截鐘時間 while [39。] Code do 。結束時間 39。 。流水號 39。 [39。] := T。結束時間 39。 。[新的 ]截鐘時間已經(jīng)增加 39。 end。 end。39。 Num9 := StrToInt()。 Price := [39。]。 with do begin if Locate(39。名稱 39。數(shù)量 39。 Edit。 FieldByName(39。).asInteger := Code。名稱 39。 end。數(shù)量 39。 FieldByName(39。).AsCurrency := Price。金額 39。 Post。39。39。新的酒水記錄已經(jīng)增加 39。 end。 end。 var LastCode: Boolean。 Num1: Word。 begin if Trim() = 39。 then Exit。39。 := False。 。 with do begin Locate(39。, , [])。娛樂類別 39。 Edit。日期 39。 [39。] := 。娛樂類別 39。 [39。] := Copy(, 4, 2)。結帳標志 39。 if Trim() = 39。 then := 39。 Pri1 := [39。]。 [39。] := Num1。租拍金額 39。 Post。 := clWhite。該客戶的數(shù)據(jù)已經(jīng)記錄 39。 。 NtCode := [39。]。%8d39。 (B)。 end。 var Code, Sort: Word。 Codes, SortName: string。%8d39。 := not Newer。 := False。 if Newer then begin := clWhite。提示信息：新的客戶記錄 39。 := 1。39。 := 39。 end else begin := clGray。提示信息：已有客戶記錄 39。流水號 39。開始時間 39。 Sort := [39。]。娛樂類別 39。 SortName := [39。]。 Edit03Change(Self)。編號 39。 Codes := Format(39。, [Code])。 := (Codes)。 if VarIsNull([39。]) then := 39。 else := FieldByName(39。).Value。 end。 procedure (Sender: TObject。 begin 。 。 。 Action := caFree。 procedure (Sender: TObject)。 begin := False。提示信息：正在打印客戶開臺單 ....