unit2.pas

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

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  Tregedit=class(TForm)
    ToolBar1: TToolBar;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    ImageList1: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    Label1: TLabel;
    Bevel1: TBevel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    procedure SpeedButton2Click(Sender : TObject);
    procedure SpeedButton3Click(Sender : TObject);
    procedure SpeedButton1Click(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure ToolButton2Click(Sender : TObject);
    procedure ToolButton1Click(Sender : TObject);
    procedure Edit1Enter(Sender : TObject);
    procedure Edit1Exit(Sender : TObject);
    procedure _PROC_004D86C0(Sender : TObject);
    procedure _PROC_004D8707(Sender : TObject);
    procedure _PROC_004D8934(Sender : TObject);
    procedure _PROC_004D8964(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  regedit: Tregedit;

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

implementation

{$R *.DFM}

procedure Tregedit.SpeedButton2Click(Sender : TObject);
begin
(*
004D8160   53                     push    ebx
004D8161   8BD8                   mov     ebx, eax
004D8163   33D2                   xor     edx, edx

* Reference to control Tregedit.Edit1 : TEdit
|
004D8165   8B831C030000           mov     eax, [ebx+$031C]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004D816B   E82C0EF7FF             call    00448F9C

* Reference to control Tregedit.Edit1 : TEdit
|
004D8170   8B831C030000           mov     eax, [ebx+$031C]
004D8176   8B10                   mov     edx, [eax]

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

*)
end;

procedure Tregedit.SpeedButton3Click(Sender : TObject);
begin
(*

* Reference to regedit
|
004D8180   A1789D5800             mov     eax, dword ptr [$00589D78]

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
004D8185   E8A6D9F8FF             call    00465B30
004D818A   C3                     ret

*)
end;

procedure Tregedit.SpeedButton1Click(Sender : TObject);
begin
(*
004D818C   55                     push    ebp
004D818D   8BEC                   mov     ebp, esp
004D818F   B906000000             mov     ecx, $00000006
004D8194   6A00                   push    $00
004D8196   6A00                   push    $00
004D8198   49                     dec     ecx
004D8199   75F9                   jnz     004D8194
004D819B   56                     push    esi
004D819C   8BF0                   mov     esi, eax
004D819E   33C0                   xor     eax, eax
004D81A0   55                     push    ebp

* Possible String Reference to: '镽掘