unit13.pas

音像租赁管理系统 进行音像店的日常工作管理!

unit Unit13;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  Tworkroom=class(TForm)
    Shape1: TShape;
    Image1: TImage;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    StaticText6: TStaticText;
    StaticText7: TStaticText;
    StaticText8: TStaticText;
    StaticText9: TStaticText;
    StaticText3: TStaticText;
    StaticText10: TStaticText;
    StaticText11: TStaticText;
    StaticText12: TStaticText;
    StaticText13: TStaticText;
    StaticText14: TStaticText;
    StaticText15: TStaticText;
    StaticText16: TStaticText;
    StaticText17: TStaticText;
    StaticText18: TStaticText;
    StaticText19: TStaticText;
    StaticText20: TStaticText;
    StaticText21: TStaticText;
    ep: TShape;
    el: TStaticText;
    procedure epMouseMove(Sender : TObject);
    procedure FormMouseMove(Sender : TObject);
    procedure StaticText13MouseMove(Sender : TObject);
    procedure StaticText15MouseMove(Sender : TObject);
    procedure StaticText17MouseMove(Sender : TObject);
    procedure StaticText19MouseMove(Sender : TObject);
    procedure StaticText20MouseMove(Sender : TObject);
    procedure StaticText18MouseMove(Sender : TObject);
    procedure Shape1MouseMove(Sender : TObject);
    procedure elClick(Sender : TObject);
    procedure elMouseMove(Sender : TObject);
    procedure StaticText13Click(Sender : TObject);
    procedure StaticText15Click(Sender : TObject);
    procedure StaticText17Click(Sender : TObject);
    procedure StaticText19Click(Sender : TObject);
    procedure StaticText20Click(Sender : TObject);
    procedure StaticText18Click(Sender : TObject);
    procedure _PROC_00529CEF(Sender : TObject);
    procedure _PROC_00529E19(Sender : TObject);
    procedure _PROC_00529E48(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  workroom: Tworkroom;

{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure Tworkroom.epMouseMove(Sender : TObject);
begin
(*
00529870   55                     push    ebp
00529871   8BEC                   mov     ebp, esp
00529873   53                     push    ebx
00529874   8BD8                   mov     ebx, eax

* Reference to control Tworkroom.ep : TShape
|
00529876   8B834C030000           mov     eax, [ebx+$034C]

* Reference to field TShape.Brush : TBrush
|
0052987C   8B806C010000           mov     eax, [eax+$016C]
00529882   BAFFFF0000             mov     edx, $0000FFFF

* Reference to: Graphics.TBrush.SetColor(TBrush;TColor);
|
00529887   E830BFEFFF             call    004257BC
0052988C   BAFFFF0000             mov     edx, $0000FFFF

* Reference to control Tworkroom.el : TStaticText
|
00529891   8B8350030000           mov     eax, [ebx+$0350]

* Reference to: Controls.TControl.SetColor(TControl;TColor);
|
00529897   E870F8F1FF             call    0044910C
0052989C   5B                     pop     ebx
0052989D   5D                     pop     ebp
0052989E   C20800                 ret     $0008

*)
end;

procedure Tworkroom.FormMouseMove(Sender : TObject);
begin
(*
005298A4   55                     push    ebp
005298A5   8BEC                   mov     ebp, esp
005298A7   53                     push    ebx
005298A8   8BD8                   mov     ebx, eax

* Reference to control Tworkroom.StaticText13 : TStaticText
|
005298AA   8B8328030000           mov     eax, [ebx+$0328]

* Reference to field TStaticText.Font : TFont
|
005298B0   8B4068                 mov     eax, [eax+$68]
005298B3   BA0000FF00             mov     edx, $00FF0000

* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
005298B8   E80BB7EFFF             call    00424FC8

* Reference to control Tworkroom.StaticText15 : TStaticText
|
005298BD   8B8330030000           mov     eax, [ebx+$0330]

* Reference to field TStaticText.Font : TFont
|
005298C3   8B4068                 mov     eax, [eax+$68]
005298C6   BA0000FF00             mov     edx, $00FF0000

* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
005298CB   E8F8B6EFFF             call    00424FC8

* Reference to control Tworkroom.StaticText16 : TStaticText
|
005298D0   8B8334030000           mov     eax, [ebx+$0334]

* Reference to field TStaticText.Font : TFont
|
005298D6   8B4068                 mov     eax, [eax+$68]
005298D9   BA0000FF00             mov     edx, $00FF0000

* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
005298DE   E8E5B6EFFF             call    00424FC8

* Reference to control Tworkroom.StaticText17 : TStaticText
|
005298E3   8B8338030000           mov     eax, [ebx+$0338]

* Reference to field TStaticText.Font : TFont
|
005298E9   8B4068                 mov     eax, [eax+$68]
005298EC   BA0000FF00             mov     edx, $00FF0000

* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
005298F1   E8D2B6EFFF             call    00424FC8

* Reference to control Tworkroom.StaticText18 : TStaticText
|
005298F6   8B833C030000           mov     eax, [ebx+$033C]

* Reference to field TStaticText.Font : TFont
|
005298FC   8B4068                 mov     eax, [eax+$68]
005298FF   BA0000FF00             mov     edx, $00FF0000

* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
00529904   E8BFB6EFFF             call    00424FC8

* Reference to control Tworkroom.StaticText19 : TStaticText
|
00529909   8B8340030000           mov     eax, [ebx+$0340]

* Reference to field TStaticText.Font : TFont
|
0052990F   8B4068                 mov     eax, [eax+$68]
00529912   BA0000FF00             mov     edx, $00FF0000

* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
00529917   E8ACB6EFFF             call    00424FC8

* Reference to control Tworkroom.StaticText20 : TStaticText
|
0052991C   8B8344030000           mov     eax, [ebx+$0344]

* Reference to field TStaticText.Font : TFont
|
00529922   8B4068                 mov     eax, [eax+$68]
00529925   BA0000FF00             mov     edx, $00FF0000

* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
0052992A   E899B6EFFF             call    00424FC8
0052992F   5B                     pop     ebx
00529930   5D                     pop     ebp
00529931   C20800                 ret     $0008

*)
end;

procedure Tworkroom.StaticText13MouseMove(Sender : TObject);
begin
(*
00529934   55                     push    ebp
00529935   8BEC                   mov     ebp, esp

* Reference to control Tworkroom.StaticText13 : TStaticText
|
00529937   8B8028030000           mov     eax, [eax+$0328]

* Reference to field TStaticText.Font : TFont
|
0052993D   8B4068                 mov     eax, [eax+$68]
00529940   BAFF000000             mov     edx, $000000FF

* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
00529945   E87EB6EFFF             call    00424FC8
0052994A   5D                     pop     ebp
0052994B   C20800                 ret     $0008

*)
end;

procedure Tworkroom.StaticText15MouseMove(Sender : TObject);
begin
(*
00529950   55                     push    ebp
00529951   8BEC                   mov     ebp, esp

* Reference to control Tworkroom.StaticText15 : TStaticText
|
00529953   8B8030030000           mov     eax, [eax+$0330]

* Reference to field TStaticText.Font : TFont
|
00529959   8B4068                 mov     eax, [eax+$68]
0052995C   BAFF000000             mov     edx, $000000FF

* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
00529961   E862B6EFFF             call    00424FC8
00529966   5D                     pop     ebp
00529967   C20800                 ret     $0008

*)
end;

procedure Tworkroom.StaticText17MouseMove(Sender : TObject);
begin
(*
0052996C   55                     push    ebp
0052996D   8BEC                   mov     ebp, esp
0052996F   53                     push    ebx
00529970   8BD8                   mov     ebx, eax

* Reference to control Tworkroom.StaticText13 : TStaticText
|
00529972   8B8328030000           mov     eax, [ebx+$0328]

* Reference to field TStaticText.Font : TFont
|
00529978   8B4068                 mov     eax, [eax+$68]
0052997B   BA0000FF00             mov     edx, $00FF0000

* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
00529980   E843B6EFFF             call    00424FC8

* Reference to control Tworkroom.StaticText15 : TStaticText
|
00529985   8B8330030000           mov     eax, [ebx+$0330]

* Reference to field TStaticText.Font : TFont
|
0052998B   8B4068                 mov     eax, [eax+$68]
0052998E   BA0000FF00             mov     edx, $00FF0000

* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
00529993   E830B6EFFF             call    00424FC8

* Reference to control Tworkroom.StaticText16 : TStaticText
|
00529998   8B8334030000           mov     eax, [ebx+$0334]

* Reference to field TStaticText.Font : TFont
|
0052999E   8B4068                 mov     eax, [eax+$68]
005299A1   BA0000FF00             mov     edx, $00FF0000

* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
005299A6   E81DB6EFFF             call    00424FC8

* Reference to control Tworkroom.StaticText18 : TStaticText
|
005299AB   8B833C030000           mov     eax, [ebx+$033C]

* Reference to field TStaticText.Font : TFont
|
005299B1   8B4068                 mov     eax, [eax+$68]
005299B4   BA0000FF00             mov     edx, $00FF0000

* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
005299B9   E80AB6EFFF             call    00424FC8

* Reference to control Tworkroom.StaticText19 : TStaticText
|
005299BE   8B8340030000           mov     eax, [ebx+$0340]

* Reference to field TStaticText.Font : TFont
|
005299C4   8B4068                 mov     eax, [eax+$68]
005299C7   BA0000FF00             mov     edx, $00FF0000

* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
005299CC   E8F7B5EFFF             call    00424FC8

* Reference to control Tworkroom.StaticText20 : TStaticText
|
005299D1   8B8344030000           mov     eax, [ebx+$0344]

* Reference to field TStaticText.Font : TFont
|
005299D7   8B4068                 mov     eax, [eax+$68]
005299DA   BA0000FF00             mov     edx, $00FF0000

* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
005299DF   E8E4B5EFFF             call    00424FC8

* Reference to control Tworkroom.StaticText17 : TStaticText
|
005299E4   8B8338030000           mov     eax, [ebx+$0338]

* Reference to field TStaticText.Font : TFont
|
005299EA   8B4068                 mov     eax, [eax+$68]
005299ED   BAFF000000             mov     edx, $000000FF

* Reference to: Graphics.TFont.SetColor(TFont;TColor);
|
005299F2   E8D1B5EFFF             call    00424FC8
005299F7   5B                     pop     ebx
005299F8   5D                     pop     ebp
005299F9   C20800                 ret     $0008

*)
end;