【正文】 integrity, good safety database developed functions, easy to use applications. After debugging, Translation and the realization that the process friendly interface, simple programming style, using up aesthetic generous, convenient userfriendly. In particular system entertainment type table greatly reduce the function of the workload of staff, and rapid, accurate and advantages replace manually operated, and enhanced entertainment management efficiency. Keyword : Delphi Information Management System database module entertainment management system引 言 11 Delphi 語言概述 2 Delphi 簡介 2 數(shù)據(jù)庫系統(tǒng)簡介 2 本應(yīng)用軟件的基本介紹 32 本應(yīng)用程序的構(gòu)成和開發(fā)步驟 4 可行性研究 4 經(jīng)濟可行性 4 時間可行性 4 技術(shù)可行性 4 社會可行性 5 數(shù)據(jù)庫的建立和連接 5 系統(tǒng)的總體設(shè)計 53 本程序的技術(shù)實現(xiàn)及具體功能 13 登錄的界面與程序設(shè)計實現(xiàn) 13 客戶出入管理代碼設(shè)計實現(xiàn)及功能 13 客戶結(jié)帳界面與代碼設(shè)計實現(xiàn) 14, 日結(jié)帳顯示窗口界面與代碼設(shè)計 15結(jié) 論 21致 謝 22參 考 文 獻 23引 言隨著經(jīng)濟的發(fā)展，社會的進步，計算機越來越深入到我們?nèi)粘５墓ぷ鲗W(xué)習(xí)及生活中，成為我們?nèi)粘Ｉ钪胁豢扇鄙俚妮o助工具。Delphi 編程語言繼承了其他語言易學(xué)易用的特點，特別適合于初學(xué)者學(xué)習(xí) Windows 系統(tǒng)編程。數(shù)據(jù)庫是依照某種數(shù)據(jù)模型組織起來并存放二級存儲器中的數(shù)據(jù)集合。數(shù)據(jù)共享節(jié)省了大量人力物力，為數(shù)據(jù)庫系統(tǒng)的廣泛應(yīng)用奠定了基礎(chǔ)。關(guān)系型數(shù)據(jù)庫的高速發(fā)展使管理信息系統(tǒng)具備了良好的開發(fā)環(huán)境。可見建表時應(yīng)做好全局的打算。 private { Private declarations } procedure ShowFields(T: TTable)。 DbiGetFieldDescs(, pfldDes)。BCDm39。 Label1: TLabel。 Edit11: TDBLookupComboBox。 CardList: TComboBox。 var Key: Char)。 PSort: Word。 。 repeat ([39。begin Code := StrToInt(Trim())。 。開始時間39。 if Num9 = 0 then Exit。 FieldByName(39。 := 39。 if Trim() = 39。] := 。039。 if LastCode then begin B := 。begin Newer := = Format(39。039。名稱39。039。end。雄 祺 體 育 活 動 中 心39。 Writeln(Prnt, [39。39。: 6, 39。注：最低消費時間一小時起39。單價39。, , [])。and 娛樂類別=39。 end。)。end。他們和我共同生活了四年，在生活和學(xué)習(xí)上給了我很大的幫助。begin if odSelected in State then Begin := clBlue。begin := ( 39。第 %2d 號39。Select * From Ball01 Where 39。 S: string。 if not then Exit。開臺時間: 39。], 39。)。)。 := 16。 。 。 (39。 := 39。procedure (Sender: TObject)。 end。] := False。])。 B: TBookMark。).AsCurrency := Round(Num9 * Price)。 end else begin Append。 if Trim() = 39。 [39。] := T。procedure (Sender: TObject)。 。]) then ([])。implementationuses Work01, Data, Printers。 procedure Check1Exit(Sender: TObject)。 Timer1: TTimer。 Label10: TLabel。end。長整39。 MemSize := * SizeOf(FLDDesc)。 procedure AliasExit(Sender: TObject)。建表的過程注意規(guī)范化命名規(guī)則，如表的字段名等等。本系統(tǒng)所需的軟硬件成本比較低，投資小，具有一定的通過性，因此 ，在經(jīng)濟上是可行的。為了實現(xiàn)對任意部分?jǐn)?shù)據(jù)的快速訪問，就要研究許多優(yōu)化技術(shù)。也有的把 Delphi 稱作 VB 殺手。各行各業(yè)的人們無須經(jīng)過特別的訓(xùn)練就能夠使用電腦完成許許多多復(fù)雜的工作。然而，雖然現(xiàn)在世界上已經(jīng)充滿了多如牛毛的各種軟件，但它們依然不能滿足用戶的各種特殊需要，人們還不得不開發(fā)適合自己特殊需求的軟件。 數(shù)據(jù)庫系統(tǒng)簡介數(shù)據(jù)庫系統(tǒng)是一個實際可運行的存儲、維護和應(yīng)用系統(tǒng)提供數(shù)據(jù)的軟件系統(tǒng)，是存儲介質(zhì)、處理對象和管理系統(tǒng)的集合體。這些優(yōu)化技術(shù)往往很復(fù)雜，是普通用戶難以實現(xiàn)的，所以就由系統(tǒng)軟件（數(shù)據(jù)庫管理系統(tǒng)）來完成，而提供給用戶的是簡單易用的數(shù)據(jù)庫語言。 時間可行性主要包括系統(tǒng)在目前環(huán)境下能否正常運行，運行后所引起的各方面，以及這些變化對社會或人的因素所產(chǎn)生的影響。同時也要注意表的字段長度和可否為空。 procedure AliasKeyPress(Sender: TObject。 pfldDes := AllocMem(MemSize)。 7: S := 39。 客戶出入管理代碼設(shè)計實現(xiàn)及功能界面設(shè)計:代碼設(shè)計:unit ComePas。 Edit14: TEdit。 Image1: TImage。 procedure Edit03Change(Sender: TObject)。{$R *.DFM}var Change: Boolean = False。 NtCode := [39。 end。var T: TDateTime。 [39。流水號39。39。 FieldByName(39。 Post。begin if Trim() = 39。 Edit。 if Trim() = 39。 := clWhite。var Code, Sort: Word。39。娛樂類