unit3.pas

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

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  Tinfo=class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    StatusBar1: TStatusBar;
    ImageList1: TImageList;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    Panel1: TPanel;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    DateTimePicker1: TDateTimePicker;
    ADOQuery1: TADOQuery;
    procedure SpeedButton3Click(Sender : TObject);
    procedure FormClose(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure ToolButton1Click(Sender : TObject);
    procedure ToolButton2Click(Sender : TObject);
    procedure SpeedButton2Click(Sender : TObject);
    procedure SpeedButton1Click(Sender : TObject);
    procedure ToolButton5Click(Sender : TObject);
    procedure Edit1Enter(Sender : TObject);
    procedure Edit1Exit(Sender : TObject);
    procedure Edit2Enter(Sender : TObject);
    procedure Edit2Exit(Sender : TObject);
    procedure DateTimePicker1Enter(Sender : TObject);
    procedure DateTimePicker1Exit(Sender : TObject);
    procedure Edit3Enter(Sender : TObject);
    procedure Edit3Exit(Sender : TObject);
    procedure Edit4Enter(Sender : TObject);
    procedure Edit4Exit(Sender : TObject);
    procedure Edit5Enter(Sender : TObject);
    procedure Edit5Exit(Sender : TObject);
    procedure Edit6Enter(Sender : TObject);
    procedure Edit6Exit(Sender : TObject);
    procedure ToolButton4Click(Sender : TObject);
    procedure _PROC_004D9984(Sender : TObject);
    procedure _PROC_004D9A2C(Sender : TObject);
    procedure _PROC_004DA70D(Sender : TObject);
    procedure _PROC_004DA73C(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  info: Tinfo;

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

implementation

{$R *.DFM}

procedure Tinfo.SpeedButton3Click(Sender : TObject);
begin
(*
004D992C   A1909D5800             mov     eax, dword ptr [$00589D90]

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
004D9931   E8FAC1F8FF             call    00465B30
004D9936   C3                     ret

*)
end;

procedure Tinfo.FormClose(Sender : TObject);
begin
(*

* Reference to pointer to GlobalVar_0058A0A8
|
004D9938   A1E87E5800             mov     eax, dword ptr [$00587EE8]
004D993D   8B00                   mov     eax, [eax]

* Reference to: Forms.TCustomForm.Show(TCustomForm);
|
004D993F   E894C3F8FF             call    00465CD8
004D9944   33C0                   xor     eax, eax

* Reference to GlobalVar_00589D90
|
004D9946   A3909D5800             mov     dword ptr [$00589D90], eax
004D994B   C3                     ret

*)
end;

procedure Tinfo.FormCreate(Sender : TObject);
begin
(*
004D994C   53                     push    ebx
004D994D   56                     push    esi
004D994E   8BF2                   mov     esi, edx
004D9950   8BD8                   mov     ebx, eax
004D9952   B201                   mov     dl, $01

* Reference to control Tinfo.ADOQuery1 : TADOQuery
|
004D9954   8B835C030000           mov     eax, [ebx+$035C]
004D995A   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TADOQuery.OFFS_0178
|
004D995C   FF9178010000           call    dword ptr [ecx+$0178]
004D9962   C605949D580000         mov     byte ptr [$00589D94], $00
004D9969   8BD6                   mov     edx, esi
004D996B   A1909D5800             mov     eax, dword ptr [$00589D90]

* Reference to : Tinfo._PROC_004D9984()
|
004D9970   E80F000000             call    004D9984
004D9975   8BD6                   mov     edx, esi
004D9977   8BC3                   mov     eax, ebx

* Reference to : Tinfo._PROC_004D9A2C()
|
004D9979   E8AE000000             call    004D9A2C
004D997E   5E                     pop     esi
004D997F   5B                     pop     ebx
004D9980   C3                     ret

*)
end;

procedure Tinfo.ToolButton1Click(Sender : TObject);
begin
(*
004DA050   C605949D580000         mov     byte ptr [$00589D94], $00

* Reference to : Tinfo._PROC_004D9984()
|
004DA057   E828F9FFFF             call    004D9984
004DA05C   C3                     ret

*)
end;

procedure Tinfo.ToolButton2Click(Sender : TObject);
begin
(*
004DA060   53                     push    ebx
004DA061   8BD8                   mov     ebx, eax
004DA063   C605949D580001         mov     byte ptr [$00589D94], $01
004DA06A   8BC3                   mov     eax, ebx

* Reference to : Tinfo._PROC_004D9984()
|
004DA06C   E813F9FFFF             call    004D9984

* Reference to control Tinfo.Edit1 : TEdit
|
004DA071   8B8334030000           mov     eax, [ebx+$0334]
004DA077   8B10                   mov     edx, [eax]

* Reference to method TEdit.SetFocus()
|
004DA079   FF92C0000000           call    dword ptr [edx+$00C0]
004DA07F   5B                     pop     ebx
004DA080   C3                     ret

*)
end;

procedure Tinfo.SpeedButton2Click(Sender : TObject);
begin
(*
004DA084   55                     push    ebp
004DA085   8BEC                   mov     ebp, esp
004DA087   B91F000000             mov     ecx, $0000001F
004DA08C   6A00                   push    $00
004DA08E   6A00                   push    $00
004DA090   49                     dec     ecx
004DA091   75F9                   jnz     004DA08C
004DA093   53                     push    ebx
004DA094   56                     push    esi
004DA095   8BF2                   mov     esi, edx
004DA097   8BD8                   mov     ebx, eax
004DA099   33C0                   xor     eax, eax
004DA09B   55                     push    ebp

* Possible String Reference to: '殪滘