【正文】 Delphi是 Inprise公司出品的一個優(yōu) 秀 的可視化程序開發(fā)工具軟件，它短小精悍，但功能卻可以與龐大的 visual c++媲美?，F(xiàn)在不同了，即使你沒有接受過嚴格的程序設(shè)計訓(xùn)練，使用 Delphi 編程語言 也一樣能夠開發(fā)出功能強大、適合自己特殊需求的應(yīng)用程序了。經(jīng)過調(diào)試、編譯與實 現(xiàn)，該程序 界面友好、程序設(shè)計風(fēng)格樸素，使用起來美觀大方、方便易用。 隨著科學(xué)技術(shù)的不斷提高 ,計算機科學(xué)日漸成熟 ,其強大的功能已為人們深刻認識 ,它已進入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。 娛樂場所 管理系統(tǒng) 是典型的信息管理系統(tǒng) (MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應(yīng)用程序的開發(fā)兩個方面。這里把“ VB”比作是傻瓜相機， Delphi 是帶有自動功能的專業(yè)相機。數(shù)據(jù)庫由數(shù)據(jù)庫管理系統(tǒng)統(tǒng)一管理，數(shù)據(jù)的插入、修改和檢索均要通過數(shù)據(jù)庫管理系統(tǒng)進行。數(shù)據(jù)庫系統(tǒng)的出現(xiàn)是計算機應(yīng)用的一個里程碑，它使得計算機應(yīng)用從以科學(xué)計算為主轉(zhuǎn)向以數(shù)據(jù)處理為主，并從而使計算機得以在各行各業(yè)乃至家庭普遍使用。 本應(yīng)用軟件的基本介紹 本應(yīng)用軟件先是打開一個啟動窗口，就可以進入應(yīng)用程序的主窗口了?？赡苄灾搁_發(fā)信息系統(tǒng)的條件是否具備，必要性是指客觀上是否真正需要，通過可行性研究，可避免盲目投資，減少政治性 要的損失。 社會可行性 人類社會文明的發(fā)展已進入信息化的高速發(fā)展時期，傳統(tǒng)的手工方式支持下的管理模式，已經(jīng)不能滿足各方面的需要。同樣建表的過程也不是唯一的，但是最終實現(xiàn)的結(jié)果是唯一的。導(dǎo)致數(shù)據(jù)窗口不好用的連鎖反映。 procedure FormCreate(Sender: TObject)。 var ReadStru: TReadStru。 begin 。字符 39。短整 39。字節(jié) 39。 end。 end。 ()。 procedure (Sender: TObject)。 procedure (Sender: TObject。 with List1 do := Items[ItemIndex]。 Label3: TLabel。 Label7: TLabel。 Label11: TLabel。 Check1: TCheckBox。 DBEdit1: TDBEdit。 procedure Button4Click(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 var unit GetStru。 procedure AliasExit(Sender: TObject)。 var curProp: CURProps。 MemSize := * SizeOf(FLDDesc)。日期 39。長整 39。時間 39。(%4s,%3d,%2d)39。 end。 procedure (Sender: TObject)。39。 begin if Key = 13 then AliasExit(Self)。 end。 。 := 39。 (Format(39。名稱 39。 begin Edit03Change(Self)。 if then begin if not (39。] := Code。 ShowMessage(39。結(jié)束時間 39。] := T。 end。 Price := [39。數(shù)量 39。名稱 39。).AsCurrency := Price。39。 var LastCode: Boolean。39。, , [])。 [39。] := Copy(, 4, 2)。 Pri1 := [39。租拍金額 39。 。 (B)。%8d39。提示信息：新的客戶記錄 39。 end else begin := clGray。 Sort := [39。]。, [Code])。 else := FieldByName(39。 begin 。 procedure (Sender: TObject)。宋體 39。)。 Writeln(Prnt, + )。時間 139。單價 139。, [39。)。單價 :39。黑體 39。)。 begin := or ( 39。).AsFloat。 end。 Sort := [39。%d39。 + + 39。編號 39。 。 end。 end。 Index: Integer。 procedure (Sender: TObject。 Table1: TTable。 procedure FormActivate(Sender: TObject)。 end。 begin Close。 MY_TRAY_ICON = WM_USER + 1001。 Pop1: TPopupMenu。 N6: TMenuItem。 N23: TMenuItem。 CPU1: TMenuItem。 MonthData: TMenuItem。 N41: TMenuItem。 N12: TMenuItem。 N19: TMenuItem。 procedure Minimize(Sender: TObject)。 procedure ViewBaseClick(Sender: TObject)。 procedure MonthDataClick(Sender: TObject)。 procedure N41Click(Sender: TObject)。 procedure OnIdle(Sender: TObject。 TMP: integer。 PP: Boolean = False。 dOrder: Boolean。, 256)。, 39。 (39。寬 度 39。打印機參數(shù) 39。 begin := 0。 begin (TAboutForm, AboutForm)。 if = WM_RBUTTONUP then begin GetCursorPos(Pt)。 if ( = wm_EraseBkgnd) then begin := 。 procedure (Sender: TObject)。 Hour, Min, Sec, MSec: Word。 Left := 0。 := OnIdle。 DeskBMP := (39。39。 Dire := False。 07..11: PP := 39。 end。系統(tǒng)目前還沒有設(shè)置任何操作員及密碼 39。 if not Logined then 。MAINICON39。娛樂室管理系統(tǒng) 39。 := 。 if Height 280 then Height := 280。 begin Close。 begin LoadMode(TDeskForm)。 begin run(39。 end。 procedure (Sender: TObject)。MSHearts39。沒有幫助信息 39。 。 := 。 MainTask(Self)。0。 UID := MY_TRAY_ICON。系統(tǒng)提示 39。 。 14..17: PP := 39。 S^ := 255。娛樂室 39。 if FileExists(DeskBMP) then begin (DeskBMP)。)。 := Minimize。39。 procedure (Sender: TObject)。 procedure (Sender: TObject)。 end。 procedure (var Msg: TMessage)。 Free。 。, 39。, dSize)。打印機參數(shù) 39。寬度 39。 dSize := (39。 {$R *.DFM} // 1092608。 Login: Boolean = False。 procedure SetPrintTo()。 procedure N24Click(Sender: TObject)。 procedure LeaveClick(Sender: TObject)。 procedure CPU1Click(Sender: TObject)。 procedure N7Click(Sender: TObject)。 procedure N21Click(Sender: TObject)。 N17: TMenuItem。 N11: TMenuItem。 Leave: TMenuItem。 Panel2: TPanel。 PassWord: TMenuItem。 N10: TMenuItem。 N1: TMenuItem。 Animate1: TAnimate。 var T: TWindowState。 procedure (Sender: TObject)。 implementation {$R *.DFM} procedure (Sender: TObject。 DBGrid1: TDBGrid。 end。 End。 procedure (Sender: TObject)。39。39。, [I])。 for I := 1 to Summ do (Format(39。 + 39。 Summ := [39。 begin := False。 begin := Now。 Num9 := StrToInt()。 CloseFile(Prnt)。 + timetostr())。元 /小時 39。以后 39。: 8, [39。 Writeln(Prnt, [39。時間 239。 (39。 := 12。 := 39。提示信息：正在打印客戶開臺單 ....39。 。 end。 if VarIsNull([39。編號 39。娛樂類別 39。流水號 39。39。 := False。 var Code, Sort: Word。]。 := clWhite。 [39。 if Trim() = 39。娛樂類別 39。 Edit。 。 begin if Trim() = 39。 end。 Post。數(shù)量 39。 FieldByName(39。 with do begin if Locate(39。39。 。流水號 39。 //得到最后截鐘時間 while [39。 [39。]。 var T: TDateTime。 := 1。 end。 。 NtCode := [39。 。 begin T := (Self)。 end。, true, false, )。 := False。 end。未知 39。BCDm39。邏輯 39。 DbiGetFieldDescs(, pfldDes)。 FieldList: string。 private { Private declarations } procedure ShowFields(T: TTable)。 Label3: TLabel。 NtCode: Word。 State: TOwnerDrawState)。 procedure Edit05Click(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 Button2: TButton。 Edit12: TDBEdit。 Button1: TButton。 Label5: TLabel。 interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Variants, DB, Xeduser, StdCtrls, DBCtrls, Mask, ComCtrls, Grids, DBGrids, ExtCtrls。 procedure (Sender: TObject)。 := (Text)。 (, 39。 var T: TData