【正文】 ented software development tools, the establishment of strong 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 引 言 1 1 Delphi 語(yǔ)言概述 2 Delphi 簡(jiǎn)介 2 數(shù)據(jù)庫(kù)系統(tǒng)簡(jiǎn)介 2 本應(yīng)用軟件的基本介紹 3 2 本應(yīng)用程序的構(gòu)成和開發(fā)步驟 4 可行性研究 4 經(jīng)濟(jì)可行性 4 時(shí)間可行性 4 技術(shù)可行性 4 社會(huì)可行性 5 數(shù)據(jù)庫(kù)的建立和連接 5 系統(tǒng)的總體設(shè)計(jì) 5 3 本程序的技術(shù)實(shí)現(xiàn)及具體功能 13 登錄的 界面與程序設(shè)計(jì) 實(shí)現(xiàn) 13 客戶出入管理代碼設(shè)計(jì) 實(shí)現(xiàn)及功 能 13 客戶結(jié)帳界面與代碼設(shè)計(jì)實(shí)現(xiàn) 14, 日結(jié)帳顯示窗口界面與代碼設(shè)計(jì) 15 結(jié) 論 21 致 謝 22 參 考 文 獻(xiàn) 23 引 言 隨著經(jīng)濟(jì)的發(fā)展，社會(huì)的進(jìn)步，計(jì)算機(jī)越來(lái)越深入到我們?nèi)粘５墓ぷ鲗W(xué)習(xí)及生活中，成為我們?nèi)粘Ｉ钪胁豢扇鄙俚妮o助工具。經(jīng)過(guò)調(diào)試、編譯與實(shí)現(xiàn)，該程序 界面友好、程序設(shè)計(jì)風(fēng)格樸素，使用起來(lái)美觀大方、方便易用。 參 考 文 獻(xiàn) 1 張春林 .Delphi 6 程序設(shè)計(jì)導(dǎo)學(xué) .北京：清華大學(xué)出版社， 2 飛思科技 . Delphi6 開發(fā)者手冊(cè) . 北京：電子工業(yè)出版社 , 3 飛思科技 . Delphi6 數(shù)據(jù)庫(kù)開發(fā) . 北京：電子工業(yè)出版社 , 4 丁寶康 .數(shù)據(jù)庫(kù)原理 . 北京：經(jīng)濟(jì)科學(xué)出版社， 5 何旭洪 .Delphi 數(shù)據(jù)庫(kù)系統(tǒng)開發(fā)實(shí)例導(dǎo)航 .北京：人民郵電出版社 , 6周璋鵬 . 基于 B/S結(jié)構(gòu)的學(xué)生信息管理系統(tǒng)垢研究與開發(fā) .西北電力技術(shù) .2021， 31(4):15~17,26 7 李全彬 , 顧 明亮 . 基于 ASP 技術(shù)的 學(xué)生信息管理系統(tǒng)的 研 究 與 開 發(fā) . 徐 州 師 范 大 學(xué) 學(xué) 報(bào) ( 自 然 科 學(xué)版 ).2021,19(2):25~28 畢業(yè)設(shè)計(jì) 娛樂(lè)場(chǎng) 收費(fèi) 所管理系統(tǒng) 院系 ______ 專業(yè) ______ 班級(jí) ______ 姓名 ______ 日期 年 月 日 中文摘要 娛樂(lè)室場(chǎng)所收費(fèi)管理 系統(tǒng) 為娛樂(lè)室管理者提供充足的信息和快捷的查詢手段，其開發(fā)內(nèi)容主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。 在這里我還要感謝我們宿舍的其它 5 個(gè)同學(xué)。 致 謝 我首先感謝我的指導(dǎo)老師呂老師，在他嚴(yán)格的要求下我懂得了開發(fā)軟件要有一種極其認(rèn)真負(fù)責(zé)的態(tài)度。開發(fā)本系統(tǒng)的過(guò)程中，首先 要 對(duì) 娛樂(lè)場(chǎng)所經(jīng)營(yíng) 管理進(jìn)行系統(tǒng)調(diào)研， 熟悉 其中的開臺(tái)登記 、結(jié)帳 的 流程 、步驟；其次在系統(tǒng)需求分析過(guò)程中，要透過(guò)現(xiàn)象看本質(zhì)，敏銳觀察到 光盤 管理中存在的各種問(wèn)題，并在總體設(shè)計(jì)把握好對(duì)問(wèn)題的分析、理解，進(jìn)而解決問(wèn)題；選用開發(fā)工具要 選用自己最熟悉、應(yīng)用較多的開發(fā)工具，本系統(tǒng)開發(fā)選用 DELPHI ，其具有語(yǔ)言簡(jiǎn)單、功能強(qiáng)大、組件眾多的優(yōu)點(diǎn)。 end。 var Resize: Boolean)。 procedure (Sender: TObject。 ( + 01, + 1, [Index])。 End。 State: TOwnerDrawState)。 Index: Integer。 end。 procedure (Sender: TObject)。 begin ShowTime(image1)。 end。39。39。 var Key: Char)。 end。39。39。 procedure (Sender: TObject)。 。 。, [I])。 S := Format(39。編號(hào) 39。, [I]))。 for I := 1 to Summ do (Format(39。 。 + + 39。 + 39。 + 39。 := 39。%d39。]。 Summ := [39。]。 Sort := [39。名稱 39。 begin := False。 var I, Sort, Summ: Word。 end。39。 begin := Now。 end。).AsFloat。 Price := (39。 Num9 := StrToInt()。)。 begin := or ( 39。 procedure (Sender: TObject)。 CloseFile(Prnt)。宋體 39。)。 Writeln(Prnt, 39。 + timetostr())。 Writeln(Prnt, 39。黑體 39。 Writeln(Prnt)。元 /小時(shí) 39。單價(jià) 339。單價(jià) :39。39。以后 39。時(shí)間 339。)。], 39。: 8, [39。]: 2, 39。, [39。], 39。 Writeln(Prnt, [39。元 /小時(shí) 39。單價(jià) 139。單價(jià) :39。時(shí)間 239。39。時(shí)間 139。, PSort, [])。 (39。收費(fèi)標(biāo)準(zhǔn) :39。 Writeln(Prnt, + )。流水號(hào) : 39。 := 12。 := 39。)。 Writeln(Prnt, 39。 := 39。 := GetDeviceCaps(, LOGPIXELSY)。宋體 39。 Rewrite(Prnt)。提示信息：正在打印客戶開臺(tái)單 ....39。 begin := False。 procedure (Sender: TObject)。 Action := caFree。 。 。 begin 。 procedure (Sender: TObject。 end。).Value。 else := FieldByName(39。]) then := 39。 if VarIsNull([39。 := (Codes)。, [Code])。 Codes := Format(39。編號(hào) 39。 Edit03Change(Self)。]。 SortName := [39。娛樂(lè)類別 39。]。 Sort := [39。 開始時(shí)間39。流水號(hào) 39。提示信息：已有客戶記錄 39。 end else begin := clGray。 := 39。39。 := 1。提示信息：新的客戶記錄 39。 if Newer then begin := clWhite。 := False。 := not Newer。%8d39。 Codes, SortName: string。 var Code, Sort: Word。 end。 (B)。%8d39。]。 NtCode := [39。 。該客戶的數(shù)據(jù)已經(jīng)記錄 39。 := clWhite。 Post。租拍金額 39。] := Num1。 [39。]。 Pri1 := [39。 then := 39。 if Trim() = 39。結(jié)帳標(biāo)志 39。] := Copy(, 4, 2)。 [39。娛樂(lè)類別 39。] := 。 [39。日期 39。 Edit。娛樂(lè)類別 39。, , [])。 with do begin Locate(39。 。 := False。39。 then Exit。 begin if Trim() = 39。 Num1: Word。 var LastCode: Boolean。 end。 end。新的酒水記錄已經(jīng)增加 39。39。39。 Post。金額 39。).AsCurrency := Price。 FieldByName(39。數(shù)量 39。 end。名稱 39。).asInteger := Code。 FieldByName(39。 Edit。數(shù)量 39。名稱 39。 with do begin if Locate(39。]。 Price := [39。 Num9 := StrToInt()。39。 end。 end。[新的 ]截鐘時(shí)間已經(jīng)增加 39。 。結(jié)束時(shí)間 39。] := T。 [39。流水號(hào) 39。 。結(jié)束時(shí)間 39。] Code do 。 //得到最后截鐘時(shí)間 while [39。)。 ShowMessage(39。] := 。 [39。開始時(shí)間 39。] := Code。 [39。]。, Code, []) then begin T := [39。 if then begin if not (39。 Price: Real。 var T: TDateTime。 end。 begin Edit03Change(Self)。 end。 := 1。 。名稱 39。 。 end。, [I]))。 (Format(39。流水號(hào) 39。 。 + 39。 := 39。]。 NtCode := [39。娛樂(lè)類別 39。 。 。 。 begin 。 procedure (Sender: TObject)。 Newer: Boolean。 {$R *.DFM} var Change: Boolean = False。 var ComeForm: TComeForm。 var Resize: Boolean)。 procedure FormCanResize(Sender: TObject。 Rect: TRect。 procedure Edit01DrawItem(Control: TWinControl。 procedure Timer1Timer(Sender: TObject)。 procedure Edit06KeyPress(Sender: TObject。 procedure Edit03Change(Sender: TObject)。 procedure Edit13Exit(Sender: TObject)。 var Action: TCloseAction)。 procedure Edit01Click(Sender: TObject)。 procedure Button3Click(Sender: TObject)。 procedure FormCreate(Sender: TObject)。 Label13: TLabel。 Label12: TLabel。 Image1: TImage。 Button4: TButton。 Edit21: TDateTimePicker。 SBar: TPanel。 Edit03: TComboBox。 Edit01: TComboBox。 Label6: TLabel。 Edit05: TComboBox。 Edit14: TEdit。