【正文】 語言 繼承了 其他 語言易學易用的特點，特別適合于初學者學習Windows 系統(tǒng)編程。 娛樂場所 管理系統(tǒng) 是典型的信息管理系統(tǒng) (MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應用程序的開發(fā)兩個方面。而對于后者則要求應用程序功能完備 ,易使用等特點。 因為本人能力有限，加上時間緊迫，所以設計出來的本系統(tǒng)可能功能比較簡單，另外本系統(tǒng)是單機版，不能實現(xiàn)網(wǎng)絡互聯(lián)操作 ,這些都有待于我在以后的工作學習中進一步改進。它易學易用，如同 VB，因而被稱為“第四代編程語言”。這里把“ VB”比作是傻瓜相機， Delphi 是帶有自動功能的專業(yè)相機。也有的 把 Delphi 稱作 VB殺手。它通常由軟件、數(shù)據(jù)庫和數(shù)據(jù)管理員組成。數(shù)據(jù)庫是依照某種數(shù)據(jù)模型組織起來并存放二級存儲器中的數(shù)據(jù)集合。數(shù)據(jù)庫由數(shù)據(jù)庫管理系統(tǒng)統(tǒng)一管理，數(shù)據(jù)的插入、修改和檢索均要通過數(shù)據(jù)庫管理系統(tǒng)進行。對數(shù)據(jù)庫的維護包括保持數(shù)據(jù)的完整性、一致性和安全性。數(shù)據(jù)庫管理員一般是由業(yè)務水平較高、資歷較深的人員擔任。在這一含義下，數(shù)據(jù)庫系統(tǒng)是軟件研究領域的一個重要分支，常稱為數(shù)據(jù)庫領域。數(shù)據(jù)庫系統(tǒng)的出現(xiàn)是計算機應用的一個里程碑，它使得計算機應用從以科學計算為主轉向以數(shù)據(jù)處理為主，并從而使計算機得以在各行各業(yè)乃至家庭普遍使用。為了實現(xiàn)對任意部分數(shù)據(jù)的快速訪問，就要研究許多優(yōu)化技術。由于對數(shù)據(jù)庫的操作都由數(shù)據(jù)庫管理系統(tǒng)完成，所以數(shù)據(jù)庫就可以獨立于具體的應用程序而存在，從而數(shù)據(jù)庫又可以為多個用戶所共享。數(shù)據(jù)共享節(jié)省了大量人力物力，為數(shù)據(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 Access2021， Delphi作為數(shù)據(jù)庫的 前臺開發(fā)工具，必須與后臺數(shù)據(jù)庫進行連接，這樣才能控制和進行操作數(shù)據(jù)庫，數(shù)據(jù)庫的連接方式有兩種， ODBC 和 ADO。數(shù)據(jù)庫的建立則時在 access2021 中建立的，在這里你可以設置數(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。 end。 end。 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 I: Word。 。 。 。 if or not VarIsNull([39。]) then ([])。流水號 39。 。Select 流水號 From Ball01 Where 39。(結帳標志 = False or 結帳標志 is NULL)39。 with do while not Eof do begin I := FieldByName(39。).AsInteger。%8d39。 。 。 repeat ([39。])。 until 。 Edit01Click(Self)。 procedure (Sender: TObject)。 Edit05Click(Self)。 procedure (Sender: TObject)。 Code, Num9: Word。 begin Code := StrToInt(Trim())。流水號 39。開始時間 39。 // 初次截鐘 。流水號 39。 [39。] := T。結束時間 39。 。[初次 ]截鐘時間已經(jīng)增加 39。 end else begin //再次截鐘 。流水號 39。 T := [39。]。 [39。] := Code。開始時間 39。 [39。] := 。 ShowMessage(39。)。 := False。 if Trim() = 39。 then Exit。 if Num9 = 0 then Exit。單價 39。 := FloatToStr(Price * Num9)。流水號 。, VarArrayof([Code, ]), []) then begin Num9 := Num9 + [39。]。 end else begin Append。流水號 39。 FieldByName(39。).AsString := 。 FieldByName(39。).AsInteger := Num9。單價 39。 FieldByName(39。).AsCurrency := Round(Num9 * Price)。 := 39。 := 39。 Showmessage(39。)。 := False。 procedure (Sender: TObject)。 Pri1: Real。 B: TBookMark。39。 if Trim() = 39。 then Exit。 := True。 := True。流水號 39。 LastCode := VarIsNull([39。])。 [39。] := 。開始時間 39。 [39。] := 。編號 39。 [39。] := False。39。039。租拍單價 39。 Num1 := StrToInt()。租拍數(shù)量 39。 [39。] := Pri1 * Num1。 end。 := 39。 if LastCode then begin B := 。 。流水號 39。 (Format(39。, [NtCode]))。 end。 procedure (Sender: TObject)。 // Indx: Word。 begin Newer := = Format(39。, [NtCode])。 := False。 // := Newer。 := 39。 := Now。 := 39。 := 1。039。 := 39。 with do if Locate(39。, , []) then begin := FieldByName(39。).AsDateTime。娛樂類別 39。 (39。, Sort, [])。名稱 39。 := (SortName)。 Code := FieldByName(39。).Value。第 %2d 號 39。 (CodeS)。 。租拍數(shù)量 39。039。租拍數(shù)量 39。 end。 end。 var Action: TCloseAction)。 。 。 。 end。 var Prnt: TextFile。 := 39。 AssignPRN(Prnt)。 := 39。 := []。 := 16。黑體 39。雄 祺 體 育 活 動 中 心 39。 Writeln(Prnt)。宋體 39。 Writeln(Prnt, 39。 + )。 Writeln(Prnt, 39。)。娛樂類別 39。 Writeln(Prnt, [39。]: 8, 39。, [39。], 39。: 8, [39。]: 2, 39。)。時間 239。39。時間 339。單價 :39。單價 239。元 /小時 39。 Writeln(Prnt, [39。], 39。, 39。: 6, 39。: 8, [39。]: 2, 39。)。 := 39。 := 14。開臺時間 : 39。 Writeln(Prnt)。注：最低消費時間一小時起 39。