【正文】 4 丁寶康 .數(shù)據(jù)庫原理 . 北京：經(jīng)濟(jì)科學(xué)出版社， 5 何旭洪 .Delphi 數(shù)據(jù)庫系統(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é) 報 ( 自 然 科 學(xué)版 ).2021,19(2):25~28 畢業(yè)設(shè)計(jì) 娛樂場 收費(fèi) 所管理系統(tǒng) 院系 ______ 專業(yè) ______ 班級 ______ 姓名 ______ 日期 年 月 日 中文摘要 娛樂室場所收費(fèi)管理 系統(tǒng) 為娛樂室管理者提供充足的信息和快捷的查詢手段，其開發(fā)內(nèi)容主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個方面。 關(guān)鍵詞 ： DELPHI 信息管理系統(tǒng) 數(shù)據(jù)庫 模塊 娛樂場所管理系統(tǒng) Entertainment venues room charges management system managers provide adequate room for entertainment and information enquiries means fast, the development mainly to the establishment and maintenance of databases including background applications and frontend development of the two. Delphi and the use of objectoriented 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 語言概述 2 Delphi 簡介 2 數(shù)據(jù)庫系統(tǒng)簡介 2 本應(yīng)用軟件的基本介紹 3 2 本應(yīng)用程序的構(gòu)成和開發(fā)步驟 4 可行性研究 4 經(jīng)濟(jì)可行性 4 時間可行性 4 技術(shù)可行性 4 社會可行性 5 數(shù)據(jù)庫的建立和連接 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ā)展，社會的進(jìn)步，計(jì)算機(jī)越來越深入到我們?nèi)粘５墓ぷ鲗W(xué)習(xí)及生活中，成為我們?nèi)粘Ｉ钪胁豢扇鄙俚妮o助工具。然而，雖然現(xiàn)在世界上已經(jīng)充滿了多如牛毛的各種軟件，但它們依然不能滿足用戶的各種特殊需要，人們還不得不開發(fā)適合自己特殊需求的軟件。 娛樂場所 管理系統(tǒng)用計(jì)算機(jī)管理 娛樂場所桌球類開局收局 的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新 ,在計(jì)算機(jī)還未普及之前 娛樂場所桌球 管理都是由工作人員 人工完成 .現(xiàn)在一般的 娛樂場所管理都采用 計(jì)算機(jī)智能化管理 ,采用計(jì)算機(jī)作為工具的實(shí)用的計(jì)算機(jī) 智能化 管理程序來幫助 前臺 管理員進(jìn)行更有效的 開局閉局 管理工作。 經(jīng)過分析 ,我們使用 Delphi編程語言 開發(fā)工具 ,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具 ,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象 ,首先在短時間內(nèi)建立系統(tǒng)應(yīng)用原型 ,然后 ,對初始原型系統(tǒng)進(jìn)行需求迭代 ,不斷修正和改進(jìn) ,直到形成用戶滿意的可行系統(tǒng)。 從 1995 年推出 至今已經(jīng)經(jīng)歷了 7 個版本， 運(yùn)行在 win9x 或 winme， win2021 ， winxp ，windowsNT 等操作系統(tǒng)下，是一個 32 位的應(yīng)用程序開發(fā)工具。 數(shù)據(jù)庫系統(tǒng)簡介 數(shù)據(jù)庫系統(tǒng)是一個實(shí)際可運(yùn)行的存儲、維護(hù)和應(yīng)用系統(tǒng)提供數(shù)據(jù)的軟件系統(tǒng)，是存儲介質(zhì)、處理對象和管理系統(tǒng)的集合體。這些數(shù)據(jù)為多個應(yīng)用服務(wù)，獨(dú)立于具體的應(yīng)用程序。數(shù)據(jù)管理員負(fù)責(zé)創(chuàng)建、監(jiān)控和維護(hù)整個數(shù)據(jù)庫，使數(shù)據(jù)能被任何有權(quán)使用的人有效使用。 數(shù)據(jù)庫研究跨越于計(jì)算機(jī)應(yīng)用、系統(tǒng)軟件和理 論三個領(lǐng)域，其中應(yīng)用促進(jìn)新系統(tǒng)的研制開發(fā)，新系統(tǒng)帶來新的理論研究，而理論研究又對前兩個領(lǐng)域起著指導(dǎo)作用。這些優(yōu)化技術(shù)往往很復(fù)雜，是普通用戶難以實(shí)現(xiàn)的，所以就由系統(tǒng)軟件（數(shù)據(jù)庫管理系統(tǒng)）來完 成，而提供給用戶的是簡單易用的數(shù)據(jù)庫語言。數(shù)據(jù)庫系統(tǒng)的出現(xiàn)使得普通用戶能夠方便地將日常數(shù)據(jù)存入計(jì)算機(jī)并在需要的時候快速訪問它們，從而使的計(jì)算機(jī)走出科研機(jī)構(gòu)進(jìn)入各行各業(yè)、進(jìn)入家庭。 2 本應(yīng)用程序的構(gòu)成和開發(fā)步驟 下面從軟件工程的角度介紹本程序的基本開發(fā)步驟。 可行性研究 任何一個系統(tǒng)或一項(xiàng)工程，在建立之前，必須首選進(jìn)行可行性分析，可行性分析包括兩層含義，一是可能性，二是必要性。 時間可行性 主要包括系統(tǒng)在目前環(huán)境下能否正常運(yùn)行，運(yùn)行后所引起的各方面，以及這些變化對社會或人的因素所產(chǎn)生的影響。本系統(tǒng)使用的 Delphi 普及性好，操作簡單，用戶可以很快掌握使用方法，因此，在技術(shù)上是完全可行的。 ODBC 是數(shù)據(jù)庫的通用接口，其缺點(diǎn)是效率低；專用接口調(diào)用直接速度快，但是通用性差，如果用 ODBC 連接數(shù)據(jù)庫一般要兩個步驟： ； 。接下來的工作是建表。同時也要注意表的字段長度和可否為空。我在程序開發(fā)的初期，同樣犯了這個錯誤，導(dǎo)致數(shù)據(jù)庫出錯，有時還要向表中新加入字段。 interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DbTables, BDE, ExtCtrls。 Alias: TComboBox。 procedure AliasKeyPress(Sender: TObject。 public { Public declarations } end。 pfldDes, pCurFld: pFLDDesc。 S: string。 pfldDes := AllocMem(MemSize)。 for I := 0 to 1 do with pCurFld^ do begin case iFldType of 1: S := 39。 3: S := 39。 5: S := 39。 7: S := 39。 9: S := 39。 11: S := 39。 finally FreeMem(pfldDes, MemSize)。 客戶出入管理代碼設(shè)計(jì)實(shí)現(xiàn)及功能 界面設(shè)計(jì) : 代碼設(shè)計(jì) : unit ComePas。 Label2: TLabel。 Edit13: TEdit。 Button3: TButton。 Edit14: TEdit。 Label6: TLabel。 Edit03: TComboBox。 Edit21: TDateTimePicker。 Image1: TImage。 Label13: TLabel。 procedure Button3Click(Sender: TObject)。 var Action: TCloseAction)。 procedure Edit03Change(Sender: TObject)。 procedure Timer1Timer(Sender: TObject)。 Rect: TRect。 var Resize: Boolean)。 {$R *.DFM} var Change: Boolean = False。 procedure (Sender: TObject)。 。 。 NtCode := [39。 := 39。 。 (Format(39。 end。名稱 39。 := 1。 begin Edit03Change(Self)。 var T: TDateTime。 if then begin if not (39。]。] := Code。 [39。 ShowMessage(39。 //得到最后截鐘時間 while [39。結(jié)束時間 39。流水號 39。] := T。 。 end。39。 Price := [39。 with do begin if Locate(39。數(shù)量 39。 FieldByName(39。名稱 39。數(shù)量 39。).AsCurrency := Price。 Post。金額 39。 FieldByName(39。 end。).asInteger := Code。 Edit。名稱 39。]。 Num9 := StrToInt()。 end。[新的 ]截鐘時間已經(jīng)增加 39。結(jié)束時間 39。 [39。 。] Code do 。)。] := 。開始時間 39。 [39。, Code, []) then begin T := [39。 Price: Real。 end。 end。 。 。, [I]))。流水號 39。 + 39。]。娛樂類別 39。 。 begin 。 Newer: Boolean。 var ComeForm: TComeForm。 procedure FormCanResize(Sender: TObject。 procedure Edit01DrawItem(Control: TWinControl。 procedure Edit06KeyPress(Sender: TObject。 procedure Edit13Exit(Sender: TObject)。 procedure Edit01Click(Sender: TObject)。 procedure FormCreate(Sender: TObject)。 Label12: TLabel。 Button4: TButton。 SBar: TPanel。 Edit01: TComboBox。 Edit05: TComboBox。 Edit06: TEdit。 Label8: TLabel。 Label4: TLabel。 type TComeForm = class(TForm) Group1: TGroupBox。 。 inc(pCurFld)。 10: S := 39。 8: S := 39。 6: S := 39。 4: S := 39。 2: S := 39。 try pCurFld := pfldDes。 Check(DbiGetCurso