【正文】 Writeln(Prnt, 39。流水號(hào) : 39。 + )。 Writeln(Prnt, + )。 Writeln(Prnt, 39。收費(fèi)標(biāo)準(zhǔn) :39。)。 (39。娛樂(lè)類(lèi)別 39。, PSort, [])。 Writeln(Prnt, [39。時(shí)間 139。]: 8, 39。39。, [39。時(shí)間 239。], 39。單價(jià) :39。: 8, [39。單價(jià) 139。]: 2, 39。元 /小時(shí) 39。)。 Writeln(Prnt, [39。時(shí)間 239。], 39。39。, [39。時(shí)間 339。]: 2, 39。單價(jià) :39。: 8, [39。單價(jià) 239。], 39。元 /小時(shí) 39。)。 Writeln(Prnt, [39。時(shí)間 339。], 39。以后 39。, 39。39。: 6, 39。單價(jià) :39。: 8, [39。單價(jià) 339。]: 2, 39。元 /小時(shí) 39。)。 Writeln(Prnt)。 := 39。黑體 39。 := 14。 Writeln(Prnt, 39。開(kāi)臺(tái)時(shí)間 : 39。 + timetostr())。 Writeln(Prnt)。 Writeln(Prnt, 39。注：最低消費(fèi)時(shí)間一小時(shí)起 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。單價(jià) 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。名稱(chēng) 39。, , [])。 Sort := [39。娛樂(lè)類(lèi)別 39。]。 PSort := Sort。 Summ := [39。數(shù)量 39。]。 := Format(39。%d39。, [Sort])。 := 39。Select * From Ball01 Where 39。 + 39。(結(jié)帳標(biāo)志 = False or 結(jié)帳標(biāo)志 is NULL) 39。 + 39。and 娛樂(lè)類(lèi)別 =39。 + + 39。39。 。 。 for I := 1 to Summ do (Format(39。第 %2d 號(hào) 39。, [I]))。 while not do begin I := [39。編號(hào) 39。]。 S := Format(39。第 %2d 號(hào) 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é)帳界面與代碼設(shè)計(jì)實(shí)現(xiàn) 界面設(shè)計(jì) : 代碼設(shè)計(jì) : unit Authors。 interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, Db, DBTables, StdCtrls, Mask。 type TAuthor = class(TForm) DataSource1: TDataSource。 Table1: TTable。 Label1: TLabel。 Button2: TButton。 DBEdit1: TDBEdit。 DBGrid1: TDBGrid。 procedure FormClose(Sender: TObject。 var Action: TCloseAction)。 procedure FormCreate(Sender: TObject)。 procedure FormActivate(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 var Author: TAuthor。 implementation {$R *.DFM} procedure (Sender: TObject。 var Action: TCloseAction)。 begin 。 Action := caFree。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin Top := 20。 end。 procedure (Sender: TObject)。 begin Close。 end。 end. 日結(jié)帳顯示窗口界面與代碼設(shè)計(jì) 主界面設(shè)計(jì) : 代碼設(shè)計(jì) : unit MenuExec。 interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Db, DBTables, Menus, StdCtrls, ComCtrls, ToolWin, DBCtrls, IniFiles, ExtDlgs, Buttons, Grids, DBGrids, ImgList, Registry, ShellAPI, MMSystem。 var T: TWindowState。 const SysFile = 39。C:\PAS\39。 WM_TRAYNOTIFY = WM_USER + 1000。 MY_TRAY_ICON = WM_USER + 1001。 MY_mess = WM_USER + 1002。 type TA00Form = class(TForm) Panel1: TPanel。 CoolBar1: TCoolBar。 Animate1: TAnimate。 ToolBar2: TToolBar。 MainMenu1: TMainMenu。 Window: TMenuItem。 Pop1: TPopupMenu。 MExit: TMenuItem。 M2: TMenuItem。 M4: TMenuItem。 N1: TMenuItem。 N2: TMenuItem。 N4: TMenuItem。 N5: TMenuItem。 N6: TMenuItem。 N7: TMenuItem。 N8: TMenuItem。 N9: TMenuItem。 N10: TMenuItem。 Watch: TMenuItem。 N21: TMenuItem。 N22: TMenuItem。 N23: TMenuItem。 About: TMenuItem。 N35: TMenuItem。 ViewBase: TMenuItem。 PassWord: TMenuItem。 Open1: TOpenPictureDialog。 PopupCalBtnFrom: TSpeedButton。 CDR: TMenuItem。 CPU1: TMenuItem。 ToolButton8: TToolButton。 ToolButton9: TToolButton。 N36: TMenuItem。 Panel2: TPanel。 Image1: TImage。 N15: TMenuItem。 MainBtn: TToolButton。 MonthData: TMenuItem。 ViewData: TMenuItem。 InOut: TMenuItem。 Come: TMenuItem。 Leave: TMenuItem。 ToolButton2: TToolButton。 ToolButton6: TToolButton。 ToolButton7: TToolButton。 N41: TMenuItem。 ImageList1: TImageList。 ToolButton1: TToolButton。 N3: TMenuItem。 N11: TMenuItem。 miLogin: TMenuItem。 miDele: TMenuItem。 miModify: TMenuItem。 N12: TMenuItem。 N13: TMenuItem。 N14: TMenuItem。 N16: TMenuItem。 N17: TMenuItem。 N18: TMenuItem。 N20: TMenuItem。 D1: TMenuItem。 N19: TMenuItem。 N24: TMenuItem。 procedure AboutClick(Sender: TObject)。 procedure FormCreate(Sender: TObject)。 procedure N21Click(Sender: TObject)。 procedure N22Click(Sender: TObject)。 procedure FormResize(Sender: TObject)。 procedure N23Click(Sender: TObject)。 procedure Minimize(Sender: TObject)。 procedure MExitClick(Sender: TObject)。 procedure N1Click(Sender: TObject)。 procedure N5Click(Sender: TObject)。 procedure N7Click(Sender: TObject)。 procedure N8Click(Sender: TObject)。 procedure N9Click(Sender: TObject)。 procedure N10Click(Sender: TObject)。 procedure ViewBaseClick(Sender: TObject)。 procedure Le