【正文】 tem。 Watch: TMenuItem。 About: TMenuItem。 Open1: TOpenPictureDialog。 ToolButton8: TToolButton。 Image1: TImage。 ViewData: TMenuItem。 ToolButton2: TToolButton。 ImageList1: TImageList。 miLogin: TMenuItem。 N13: TMenuItem。 N18: TMenuItem。 N24: TMenuItem。 procedure N22Click(Sender: TObject)。 procedure MExitClick(Sender: TObject)。 procedure N8Click(Sender: TObject)。 procedure LetWindowLive(var MSG: TMessage)。 procedure ToolButton8Click(Sender: TObject)。 procedure MainTask(Sender: TObject)。 procedure PassWordClick(Sender: TObject)。 procedure ViewVForm(Sender: TObject)。 private { Private declarations } OldWinProc, NewWinProc: Pointer。 var Done: Boolean)。 end。 Dire: Boolean。 Exames: Boolean = False。 const S = 39。 procedure ()。 begin F := (39。打印機參數(shù) 39。 dWidth := (39。, 1024)。長度 39。, 39。打印機參數(shù) 39。 (39。, dWidth)。長度 39。, 39。 SetLocPrint(dSize, dWidth, dLength, dOrder)。 end。 end。 。 var PT: TPoint。 (, )。 end。 (GetClientRect, )。 begin ShowWindow(, SW_Hide)。 begin SetForeGroundWindow(Handle)。 var P: array[0..79] of Char。 PP: string。 := True。 Width := 640。 := Maximize。 GetWindowsDirectory(P, 40)。 (39。Wallpaper39。 end。 ShortDateFormat := 39。 := alBottom。 FormResize(Self)。 DecodeTime(Now, Hour, Min, Sec, MSec)。上午 39。下午 39。 SetAlias(39。 H := 。1313 + 39。, MB_OK + MB_ICONWARNING)。 End。 uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP。)。 end。)。 end。 end。 end。 end。 。 end。)。 end。)。FreeCell39。 begin Run(39。 p。)。 end。 procedure (Sender: TObject)。 begin run(39。 procedure (Sender: TObject)。 begin Showmessage(39。 procedure (Sender: TObject)。 begin (TPictForm, PictForm)。 begin if Width 350 then width := 350。 begin := not 。 begin := not 。 Update。 LoadSite(Handle, 39。娛樂室管理程序 39。 hIcon := LoadIcon(HInstance, 39。 Wnd := Handle。 DoPassWord(miLogin)。, 39。 if (H = 0) then Begin ( 39。, ExtractFileDir(ParamStr(0)))。晚上 39。中午 39。凌晨 39。 New(S)。 := AlTop。 := 39。 DateSeparator := 39。 。, False)。Control Panel39。 OldWinProc := Pointer(setWindowLong(ClientHandle, gwl_WndProc, Cardinal(NewWinProc)))。 // SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, Tmp, 0)。 Top := 0。 begin Try := 39。 var S: ^DWord。 end。 end。 end。 begin with Msg do Result := CallWindowProc(OldWinProc, ClientHandle, msg, wParam, lParam)。 end。 end else begin 。 end。 procedure (Sender: TObject)。 begin with (Application) do begin Showmodal。 procedure (var MSG: TMessage)。, dOrder)。 (39。打印機參數(shù) 39。, 39。紙張 39。, True)。 dOrder := (39。打印機參數(shù) 39。, 39。紙張 39。)。 dSize, dWidth, dLength: Integer。 implementation uses Mydesk, MyPict, AboutPas, BasePas, Xeduser, BDE, Speed1, GetStru, Work01, ComePas, CMonth, ViewPas, LeftPas, Data, Authors, LogVisor, DataPas, KardPas。 LL: Word = 0。 Time: Longint。 A00Form: TA00Form。 message WM_TRAYNOTIFY。 public Logined: Boolean。 procedure D1Click(Sender: TObject)。 var Action: TCloseAction)。 procedure ComeClick(Sender: TObject)。 procedure N15Click(Sender: TObject)。 procedure CDRClick(Sender: TObject)。 procedure N10Click(Sender: TObject)。 procedure N5Click(Sender: TObject)。 procedure N23Click(Sender: TObject)。 procedure FormCreate(Sender: TObject)。 D1: TMenuItem。 N16: TMenuItem。 miModify: TMenuItem。 N3: TMenuItem。 ToolButton7: TToolButton。 Come: TMenuItem。 MainBtn: TToolButton。 N36: TMenuItem。 CDR: TMenuItem。 ViewBase: TMenuItem。 N22: TMenuItem。 N9: TMenuItem。 N5: TMenuItem。 M4: TMenuItem。 Window: TMenuItem。 CoolBar1: TCoolBar。 WM_TRAYNOTIFY = WM_USER + 1000。 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。 procedure (Sender: TObject)。 end。 Action := caFree。 var Author: TAuthor。 procedure FormCreate(Sender: TObject)。 DBEdit1: TDBEdit。 type TAuthor = class(TForm) DataSource1: TDataSource。 begin NewHeight := 450。 end。 begin if odSelected in State then Begin := clBlue。 procedure (Control: TWinControl。 end。)。 begin := ( 39。)。 begin := ( 39。 end。第 %2d 號 39。 while not do begin I := [39。 。and 娛樂類別 =39。Select * From Ball01 Where 39。 := Format(39。 PSort := Sort。, , [])。 S: string。)。 procedure (Sender: TObject)。單價 39。 if not then Exit。 var Price, Num9: Real。 := 11。注：最低消費時間一小時起 39。開臺時間 : 39。 := 39。]: 2, 39。: 6, 39。], 39。元 /小時 39。單價 :39。39。)。: 8, [39。, [39。 Writeln(Prnt, [39。)。 + )。宋體 39。雄 祺 體 育 活 動 中 心 39。 := 16。 := 39。 := 39。 end。 。 var Action: TCloseAction)。 end。039。 。第 %2d 號 39。 Code := FieldByName(39。名稱 39。 (39。).AsDateTime。 with do if Locate(39。039。 := 39。 := 39。 := False。 begin Newer := = Format(39。 procedure (Sender: TObject)。, [NtCode]))。流水號 39。 if LastCode then begin B := 。 end。 [39。 Num1 := StrToInt()。039。] := False。編號 39。 [39。] := 。])。流水號 39。 := True。 if Trim() = 39。 B: TBookMark。 procedure (Sender: TObject)。)。 := 39。).AsCurrency := Round(Num9 * Price)。單價 39。 FieldByName(39。 FieldByName(39。 end else begin Append。, VarArrayof([Code, ]), []) then begin Num9 := Num9 + [39。 := FloatToStr(Price * Num9)。 if Num9 = 0 then Exit。 if Trim() = 39。)。