【文章內(nèi)容簡介】 FieldByName(39。數(shù)量 39。).AsInteger := Num9。 FieldByName(39。單價 39。).AsCurrency := Price。 FieldByName(39。金額 39。).AsCurrency := Round(Num9 * Price)。 Post。 := 39。39。 := 39。39。 Showmessage(39。新的酒水記錄已經(jīng)增加 39。)。 end。 := False。 end。 procedure (Sender: TObject)。 var LastCode: Boolean。 Pri1: Real。 Num1: Word。 B: TBookMark。 begin if Trim() = 39。39。 then Exit。 if Trim() = 39。39。 then Exit。 := False。 := True。 。 := True。 with do begin Locate(39。流水號 39。, , [])。 LastCode := VarIsNull([39。娛樂類別 39。])。 Edit。 [39。日期 39。] := 。 [39。開始時間 39。] := 。 [39。娛樂類別 39。] := 。 [39。編號 39。] := Copy(, 4, 2)。 [39。結(jié)帳標志 39。] := False。 if Trim() = 39。39。 then := 39。039。 Pri1 := [39。租拍單價 39。]。 Num1 := StrToInt()。 [39。租拍數(shù)量 39。] := Num1。 [39。租拍金額 39。] := Pri1 * Num1。 Post。 end。 := clWhite。 := 39。該客戶的數(shù)據(jù)已經(jīng)記錄 39。 if LastCode then begin B := 。 。 。 NtCode := [39。流水號 39。]。 (Format(39。%8d39。, [NtCode]))。 (B)。 end。 end。 procedure (Sender: TObject)。 var Code, Sort: Word。 // Indx: Word。 Codes, SortName: string。 begin Newer := = Format(39。%8d39。, [NtCode])。 := not Newer。 := False。 := False。 // := Newer。 if Newer then begin := clWhite。 := 39。提示信息：新的客戶記錄 39。 := Now。 := 1。 := 39。39。 := 1。 := 39。039。 end else begin := clGray。 := 39。提示信息：已有客戶記錄 39。 with do if Locate(39。流水號 39。, , []) then begin := FieldByName(39。 開始時間39。).AsDateTime。 Sort := [39。娛樂類別 39。]。 (39。娛樂類別 39。, Sort, [])。 SortName := [39。名稱 39。]。 := (SortName)。 Edit03Change(Self)。 Code := FieldByName(39。編號 39。).Value。 Codes := Format(39。第 %2d 號 39。, [Code])。 (CodeS)。 := (Codes)。 。 if VarIsNull([39。租拍數(shù)量 39。]) then := 39。039。 else := FieldByName(39。租拍數(shù)量 39。).Value。 end。 end。 end。 procedure (Sender: TObject。 var Action: TCloseAction)。 begin 。 。 。 。 。 。 Action := caFree。 end。 procedure (Sender: TObject)。 var Prnt: TextFile。 begin := False。 := 39。提示信息：正在打印客戶開臺單 ....39。 AssignPRN(Prnt)。 Rewrite(Prnt)。 := 39。宋體 39。 := []。 := GetDeviceCaps(, LOGPIXELSY)。 := 16。 := 39。黑體 39。 Writeln(Prnt, 39。雄 祺 體 育 活 動 中 心 39。)。 Writeln(Prnt)。 := 39。宋體 39。 := 12。 Writeln(Prnt, 39。流水號 : 39。 + )。 Writeln(Prnt, + )。 Writeln(Prnt, 39。收費標準 :39。)。 (39。娛樂類別 39。, PSort, [])。 Writeln(Prnt, [39。時間 139。]: 8, 39。39。, [39。時間 239。], 39。單價 :39。: 8, [39。單價 139。]: 2, 39。元 /小時 39。)。 Writeln(Prnt, [39。時間 239。], 39。39。, [39。時間 339。]: 2, 39。單價 :39。: 8, [39。單價 239。], 39。元 /小時 39。)。 Writeln(Prnt, [39。時間 339。], 39。以后 39。, 39。39。: 6, 39。單價 :39。: 8, [39。單價 339。]: 2, 39。元 /小時 39。)。 Writeln(Prnt)。 := 39。黑體 39。 := 14。 Writeln(Prnt, 39。開臺時間 : 39。 + timetostr())。 Writeln(Prnt)。 Writeln(Prnt, 39。注：最低消費時間一小時起 39。)。 := 39。宋體 39。 := 11。 CloseFile(Prnt)。 end。 procedure (Sender: TObject)。 var Price, Num9: Real。 begin := or ( 39。39。)。 if not then Exit。 Num9 := StrToInt()。 if Num9 = 0 then Exit。 Price := (39。單價 39。).AsFloat。 := FloatToStr(Price * Num9)。 end。 procedure (Sender: TObject)。 begin := Now。 := or ( 39。39。)。 end。 procedure (Sender: TObject)。 var I, Sort, Summ: Word。 S: string。 begin := False。 (39。名稱 39。, , [])。 Sort := [39。娛樂類別 39。]。 PSort := Sort。 Summ := [39。數(shù)量 39。]。 := Format(39。%d39。, [Sort])。 := 39。Select * From Ball01 Where 39。 + 39。(結(jié)帳標志 = False or 結(jié)帳標志 is NULL) 39。 + 39。and 娛樂類別 =39。 + + 39。39。 。 。 for I := 1 to Summ do (Format(39。第 %2d 號 39。, [I]))。 while not do begin I := [39。編號 39。]。 S := Format(39。第 %2d 號 39。, [I])。 with do Delete(Indexof(S))。 。 end。 。 end。 procedure (Sender: TObject)。 begin := ( 39。39。) and ( 39。39。)。 end。 procedure (Sender: TObject。 var Key: Char)。 begin := ( 39。39。) and ( 39。39。)。 end。 procedure (Sender: TObject)。 begin ShowTime(image1)。 end。 procedure (Sender: TObject)。 begin Close。 end。 procedure (Control: TWinControl。 Index: Integer。 Rect: TRect。 State: TOwnerDrawState)。 begin if odSelected in State then Begin := clBlue。 End。 (Rect)。 ( + 01, + 1, [Index])。 end。 procedure (Sender: TObject。 var NewWidth, NewHeight: Integer。 var Resize: Boolean)。 begin NewHeight := 450。 end。 end. 客戶結(jié)帳界面與代碼設計實現(xiàn) 界面設計 : 代碼設計 : 日結(jié)帳顯示窗口界面與代碼設計 主界面設計 : 總 結(jié) 娛樂場所收費 管理系統(tǒng)是一個典型的信息管理系統(tǒng)，其主要通過軟件工程方面的選擇課題、需求分析、總體設計、選用工具、程序模塊、系統(tǒng)測試等幾個步驟來實現(xiàn)。開發(fā)本系統(tǒng)的過程中，首先 要 對 娛樂場所經(jīng)營 管理進行系統(tǒng)調(diào)研， 熟悉 其中的開臺登記 、結(jié)帳 的 流程 、步驟；其次在系統(tǒng)需求分析過程中，要透過現(xiàn)象看本質(zhì)，敏銳觀察到 光盤 管理中存在的各種問題，并在總體設計把握好對問題的分析、理解，進而解決問題；選用開發(fā)工具要 選用自己最熟悉、應用較多的開發(fā)工具，本系統(tǒng)開發(fā)選用 DELPHI ，其具有語言簡單、功能強大、組件眾多的優(yōu)點。程序模塊的編制中，重點把握系統(tǒng)內(nèi)部完整性、功能性、實用性、便捷性，使其能夠協(xié)調(diào)統(tǒng)一、運行無誤。 致 謝 我首先感謝我的指導老師呂老師，在他嚴格的要求下我懂得了開發(fā)軟件要有一種極其認真負責的態(tài)度。無論做什么事都要大膽的去想去做，這樣會有好的創(chuàng)意，才能更有作為。 在這里我還要感謝我們宿舍的其它 5 個同學。他們和我共同生活了四年，在生活和學習上給了我很大的幫助。 參 考 文 獻 1 張春林 .Delphi 6 程序設計導學 .北京：清華大學出版社， 2 飛思科技 . Delphi6 開發(fā)者手冊 . 北京：電子工業(yè)出版社 , 3 飛思科技 . Delphi6 數(shù)據(jù)庫開發(fā) . 北京：電子工業(yè)出版社 , 4 丁寶康 .數(shù)據(jù)庫原理 . 北京：經(jīng)濟科學出版社， 5 何旭洪 .Delphi 數(shù)據(jù)庫系統(tǒng)開發(fā)實例導航 .北京：人民郵電出版社 , 6周璋鵬 . 基于 B/S結(jié)構(gòu)的學生信息管理系統(tǒng)垢研究與開發(fā) .西北電力技術(shù) .2021， 31(4):15~17,26 7 李全彬 , 顧 明亮 . 基于 ASP 技術(shù)的 學生信息管理系統(tǒng)的 研 究 與 開 發(fā) . 徐 州 師 范 大 學 學 報 ( 自 然 科 學版 ).2021,19(2):25~28 畢業(yè)設計 娛樂場 收費 所管理系統(tǒng) 院系 ______ 專業(yè) ______ 班級 ______ 姓名 ______ 日期 年 月 日 中文摘要