【正文】 任。數(shù)據(jù)庫(kù)由數(shù)據(jù)庫(kù)管理系統(tǒng)統(tǒng)一管理，數(shù)據(jù)的插入、修改和檢索均要通過(guò)數(shù)據(jù)庫(kù)管理系統(tǒng)進(jìn)行。它通常由軟件、數(shù)據(jù)庫(kù)和數(shù)據(jù)管理員組成。這里把“ VB”比作是傻瓜相機(jī)， Delphi 是帶有自動(dòng)功能的專(zhuān)業(yè)相機(jī)。 因?yàn)楸救四芰τ邢?，加上時(shí)間緊迫，所以設(shè)計(jì)出來(lái)的本系統(tǒng)可能功能比較簡(jiǎn)單，另外本系統(tǒng)是單機(jī)版，不能實(shí)現(xiàn)網(wǎng)絡(luò)互聯(lián)操作 ,這些都有待于我在以后的工作學(xué)習(xí)中進(jìn)一步改進(jìn)。 娛樂(lè)場(chǎng)所 管理系統(tǒng) 是典型的信息管理系統(tǒng) (MIS),其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。以前開(kāi)發(fā) Windows 應(yīng)用軟件是專(zhuān)業(yè)人員的工作，需要掌握許多專(zhuān)業(yè)知識(shí)和經(jīng)過(guò)特殊的培訓(xùn)才能勝任。 隨著科學(xué)技術(shù)的不斷提高 ,計(jì)算機(jī)科學(xué)日漸成熟 ,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí) ,它已進(jìn)入人類(lèi)社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。利用DELPHI 軟件及其提供的各種面向?qū)ο蟮拈_(kāi)發(fā)工具，建立完整性強(qiáng)、安全性好的數(shù)據(jù)庫(kù)，開(kāi)發(fā)出功能完備，易使用的應(yīng)用程序。經(jīng)過(guò)調(diào)試、編譯與實(shí) 現(xiàn)，該程序 界面友好、程序設(shè)計(jì)風(fēng)格樸素，使用起來(lái)美觀大方、方便易用。 它已經(jīng)深入到日常工作和生活的方方面面，比如文字處理、信息管理、輔助設(shè)計(jì)、圖形圖像處理、教育培訓(xùn) 以及游戲娛樂(lè)等?，F(xiàn)在不同了，即使你沒(méi)有接受過(guò)嚴(yán)格的程序設(shè)計(jì)訓(xùn)練，使用 Delphi 編程語(yǔ)言 也一樣能夠開(kāi)發(fā)出功能強(qiáng)大、適合自己特殊需求的應(yīng)用程序了。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。 Delphi 簡(jiǎn)介 Delphi 簡(jiǎn)介 Delphi是 Inprise公司出品的一個(gè)優(yōu) 秀 的可視化程序開(kāi)發(fā)工具軟件，它短小精悍，但功能卻可以與龐大的 visual c++媲美。前些年，軟件界流行一句話(huà)叫“真正的程序員用 VC，聰明的程序員用 Delphi”。其軟件主要包括操作系統(tǒng)、各種宿主語(yǔ)言，實(shí)用程序以及數(shù)據(jù)庫(kù)管理系統(tǒng)。數(shù)據(jù)庫(kù)管理系統(tǒng)是一種系統(tǒng)軟件，它的主要功能是維護(hù)數(shù)據(jù) 庫(kù)并有效地訪問(wèn)數(shù)據(jù)庫(kù)中任意部分?jǐn)?shù)據(jù)。 數(shù)據(jù)庫(kù)系統(tǒng)的個(gè)體含義是指一個(gè)具體的數(shù)據(jù)庫(kù)管理系統(tǒng)軟件和用它建立起來(lái)的數(shù)據(jù)庫(kù)；它的學(xué)科含義是指研究、開(kāi)發(fā)、建立、維護(hù)和應(yīng)用數(shù)據(jù)庫(kù)系統(tǒng)所涉及的理論、方法、技術(shù)所構(gòu)成的學(xué)科。在它之前的文件系統(tǒng)雖然也能處理持久數(shù)據(jù)，但是文件系統(tǒng)不提供對(duì)任意部分?jǐn)?shù)據(jù)的快速訪問(wèn)，而這對(duì)數(shù)據(jù)量不斷增大的應(yīng)用來(lái)說(shuō)是至關(guān)重要的。因此，數(shù)據(jù)的獨(dú)立性和共享性是數(shù)據(jù)庫(kù)系統(tǒng)的重要特征。主界 面是一個(gè) 圖型界面 窗口，整個(gè)平臺(tái)顯示采用圖標(biāo)方式，可以非常方便的 管理壁球 ,乒乓球 ,桌球 ,棋藝 ,的開(kāi)臺(tái)與酒水截鐘 ,結(jié)帳等 基本信息， 管理日常經(jīng)營(yíng)的 基本情況，通過(guò)各種條件查詢(xún) 桌次的占用 基本信息，以及 顯示 出查詢(xún)出的基本信息，總之一切 娛樂(lè)場(chǎng)所 基本信息都會(huì)顯示在系統(tǒng)平臺(tái)上。 應(yīng)用程序的主體：主要完成用戶(hù)的業(yè)務(wù)邏輯功能，如開(kāi)臺(tái) ,酒水截鐘 ,結(jié)帳等信息 . 應(yīng)用程序的輔助部分：協(xié)助程序主體完成的一些工作。下面從四方面來(lái)討論： 經(jīng)濟(jì)可行性 主要是只指算一個(gè)新的系統(tǒng)開(kāi)發(fā)所需要的投資費(fèi)用和運(yùn)算費(fèi)用，并與估計(jì)的新系統(tǒng)收益進(jìn)行比較，看是否有利。 技術(shù)可行性 利用現(xiàn)有的設(shè)備，軟件及技術(shù)人員，新系統(tǒng)的目標(biāo)能否達(dá)到，這也是可行性研究中需要 考慮的一個(gè)問(wèn)題。開(kāi)發(fā)本系統(tǒng)的目標(biāo)不僅是提高工作效率，減輕勞動(dòng)強(qiáng)度，而且減少出錯(cuò)率，具有很好的社會(huì)意義。在創(chuàng)建數(shù)據(jù)源時(shí)可以通過(guò) BDE administrator 進(jìn)行創(chuàng)建，也可以通過(guò)系統(tǒng)控制面板中的 ODBC 數(shù)據(jù)源進(jìn)行建立。你可以通過(guò) Access 進(jìn)行建表，也可以通過(guò)在 主程序中建表，也可以通過(guò)powerdesigner 進(jìn)行可視化的建立，不過(guò)用這種方法，在導(dǎo)入的時(shí)候要把數(shù)據(jù)庫(kù)要先斷開(kāi)，否則數(shù)據(jù)庫(kù)的數(shù)據(jù)容易丟失。如果字段名不同，同一字段長(zhǎng)度不 同則主鍵和外鍵將會(huì)連接不上。 系統(tǒng)的總體設(shè)計(jì) 這個(gè)管理系統(tǒng)從 4 月 1日開(kāi)始著手設(shè)計(jì)開(kāi)發(fā) ,經(jīng)過(guò)一段時(shí)間的分析，并根據(jù)對(duì) 影音店光盤(pán) 管理的具體要求及需要本軟件實(shí)現(xiàn)的功能，將本軟件分為 5 個(gè)大的模塊，分別是：第一部分： 狀態(tài) ； 第二部分： 開(kāi)臺(tái) ； 第三部分： 結(jié)帳 ； 第四部分： 日結(jié) 。 List2: TListBox。 procedure AliasChange(Sender: TObject)。 procedure List1Click(Sender: TObject)。 implementation {$R *.DFM} procedure (T: TTable)。 MemSize: Integer。 Check(DbiGetCursorProps(, curProp))。 try pCurFld := pfldDes。 2: S := 39。 4: S := 39。 6: S := 39。 8: S := 39。 10: S := 39。 else S := 39。 FieldList := szName + StringofChar(32, 10 Length(trim(szName))) + Format(39。 inc(pCurFld)。 。 begin T := (Self)。 end。39。 begin with Alias do if (Text 39。 AliasChange(Self)。 var Key: Char)。 var T: TTable。 ShowFields(T)。 type TComeForm = class(TForm) Group1: TGroupBox。 Label4: TLabel。 Label8: TLabel。 Edit06: TEdit。 Edit05: TComboBox。 Edit01: TComboBox。 SBar: TPanel。 Button4: TButton。 Label12: TLabel。 procedure FormCreate(Sender: TObject)。 procedure Edit01Click(Sender: TObject)。 procedure Edit13Exit(Sender: TObject)。 procedure Edit06KeyPress(Sender: TObject。 procedure Edit01DrawItem(Control: TWinControl。 procedure FormCanResize(Sender: TObject。 var ComeForm: TComeForm。 Newer: Boolean。 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。 + inttostr(iFldType)。, [S, iUnits1, iUnits2])。 finally FreeMem(pfldDes, MemSize)。 procedure (Sender: TObject)。 if = false then 。 begin if = 1 then Exit。 end。) and ((Text) = 1) then begin (Text)。 end。 end。 := 。 end. I: Word。 。 if or not VarIsNull([39。流水號(hào) 39。Select 流水號(hào) From Ball01 Where 39。 with do while not Eof do begin I := FieldByName(39。%8d39。 。])。 Edit01Click(Self)。 Edit05Click(Self)。 Code, Num9: Word。流水號(hào) 39。 // 初次截鐘 。 [39。結(jié)束時(shí)間 39。[初次 ]截鐘時(shí)間已經(jīng)增加 39。流水號(hào) 39。]。] := Code。 [39。 ShowMessage(39。 := False。 then Exit。單價(jià) 39。流水號(hào) 。]。流水號(hào) 39。).AsString := 。).AsInteger := Num9。 FieldByName(39。 := 39。 Showmessage(39。 := False。 Pri1: Real。39。 then Exit。 := True。 LastCode := VarIsNull([39。 [39。開(kāi)始時(shí)間 39。] := 。 [39。39。租拍單價(jià) 39。租拍數(shù)量 39。] := Pri1 * Num1。 := 39。 。 (Format(39。 end。 // Indx: Word。, [NtCode])。 // := Newer。 := Now。 := 1。 := 39。, , []) then begin := FieldByName(39。娛樂(lè)類(lèi)別 39。, Sort, [])。 := (SortName)。).Value。 (CodeS)。租拍數(shù)量 39。租拍數(shù)量 39。 end。 。 。 var Prnt: TextFile。 AssignPRN(Prnt)。 := []。黑體 39。 Writeln(Prnt)。 Writeln(Prnt, 39。 Writeln(Prnt, 39。娛樂(lè)類(lèi)別 39。]: 8, 39。], 39。]: 2, 39。時(shí)間 239。時(shí)間 339。單價(jià) 239。 Writeln(Prnt, [39。, 39。: 8, [39。)。 := 14。 Writeln(Prnt)。 := 39。 end。39。 if Num9 = 0 then Exit。 := FloatToStr(Price * Num9)。 := or ( 39。 procedure (Sender: TObject)。 (39。娛樂(lè)類(lèi)別 39。數(shù)量 39。, [Sort])。(結(jié)帳標(biāo)志 = False or 結(jié)帳標(biāo)志 is NULL) 39。39。第 %2d 號(hào) 39。]。 with do Delete(Indexof(S))。 end。) and ( 39。 procedure (Sender: TObject。) and ( 39。 procedure (Sender: TObject)。 begin Close。 Rect: TRect。 (Rect)。 var NewWidth, NewHeight: Integer。 end. 客戶(hù)結(jié)帳界面與代碼設(shè)計(jì)實(shí)現(xiàn) 界面設(shè)計(jì) : 代碼設(shè)計(jì) : unit Authors。 Label1: TLabel。 procedure FormClose(Sender: TObject。 procedure Button2Click(Sender: TObject)。 var Action: TCloseAction)。 procedure (Sender: TObject)。 begin Top := 20。 end。 const SysFile = 39。 MY_mess = WM_USER + 1002。 ToolBar2: TToolBar。 MExit: TMenuItem。 N2: TMenuItem。 N7: TMenuI