娛樂場收費(fèi)所管理系統(tǒng)—計算機(jī)畢業(yè)設(shè)計論文(參考版)
2024-08-17 08:34本頁面
【正文】 參 考 文 獻(xiàn)1 6 ：清華大學(xué)出版社，2 飛思科技. Delphi6 開發(fā)者手冊. 北京：電子工業(yè)出版社,3 飛思科技. Delphi6 數(shù)據(jù)庫開發(fā). 北京：電子工業(yè)出版社, 4 . 北京：經(jīng)濟(jì)科學(xué)出版社，5 ：人民郵電出版社, 6 周璋鵬. 基于 B/S 結(jié)構(gòu)的學(xué)生信息管理系統(tǒng)垢研究與，31(4):15~17,267 李全彬, 顧明亮. 基于 ASP 技術(shù)的學(xué)生信息管理系統(tǒng)的研究與開發(fā). 徐州師范大學(xué)學(xué)報(自然科學(xué)版).2022,19(2):25~288 Authorware (7):40~41,449 李丹榮,杜維. 基于 Delphi6．0 的實(shí)時數(shù)據(jù)采集與分析系統(tǒng) ,20(5): 64~67。在這里我還要感謝我們宿舍的其它 5 個同學(xué)。致 謝我首先感謝我的指導(dǎo)老師呂老師，在他嚴(yán)格的要求下我懂得了開發(fā)軟件要有一種極其認(rèn)真負(fù)責(zé)的態(tài)度。開發(fā)本系統(tǒng)的過程中，首先要對娛樂場所經(jīng)營管理進(jìn)行系統(tǒng)調(diào)研，熟悉其中的開臺登記、結(jié)帳的流程、步驟；其次在系統(tǒng)需求分析過程中，要透過現(xiàn)象看本質(zhì)，敏銳觀 察到光盤管理中存在的各種問題，并在總體設(shè)計把握好對問題的分析、理解， 進(jìn)而解決問題；選用開發(fā)工具要選用自己最熟悉、應(yīng) 用較多的開發(fā)工具，本系統(tǒng)開發(fā)選用 DELPHI ，其具有語言簡單、功能強(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。編號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)。元/小時39。單價 339。單價:39。39。以后39。時間 339。)。], 39。: 8, [39。]: 2, 39。, [39。], 39。 Writeln(Prnt, [39。元/小時39。單價 139。單價:39。時間 239。39。時間 139。, PSort, [])。 (39。收費(fèi)標(biāo)準(zhǔn):39。 Writeln(Prnt, + )。流水號: 39。 := 12。 := 39。)。 Writeln(Prnt, 39。 := 39。 := GetDeviceCaps(, LOGPIXELSY)。宋體39。 Rewrite(Prnt)。提示信息：正在打印客戶開臺單....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。編號39。 Edit03Change(Self)。]。 SortName := [39。娛樂類別39。]。 Sort := [39。開始時間39。流水號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。娛樂類別39。] := 。 [39。日期39。 Edit。娛樂類別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。[新的]截鐘時間已經(jīng)增加39。 。結(jié)束時間39。] := T。 [39。流水號39。 。結(jié)束時間39。] Code do 。 //得到最后截鐘時間 while [39。)。 ShowMessage(39。] := 。 [39。開始時間39。] := Code。 [39。]。, Code, []) then begin T := [39。 if then begin if not (39。 Price: Real。var T: TDateTime。end。begin Edit03Change(Self)。
電大資料相關(guān)推薦
鄂ICP備17016276號-1