unit29.pas

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

unit Unit29;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  Tnewdisc=class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    StatusBar1: TStatusBar;
    ImageList1: TImageList;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label1: TLabel;
    Edit1: TEdit;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADOQuery2: TADOQuery;
    Label2: TLabel;
    Edit2: TEdit;
    procedure Edit1Enter(Sender : TObject);
    procedure Edit1Exit(Sender : TObject);
    procedure DBGrid1CellClick(Sender : TObject);
    procedure SpeedButton2Click(Sender : TObject);
    procedure Edit1KeyPress(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure SpeedButton1Click(Sender : TObject);
    procedure RadioButton1Click(Sender : TObject);
    procedure ToolButton5Click(Sender : TObject);
    procedure ToolButton1Click(Sender : TObject);
    procedure Edit2Enter(Sender : TObject);
    procedure Edit2Exit(Sender : TObject);
    procedure ToolButton4Click(Sender : TObject);
    procedure _PROC_00576AA9(Sender : TObject);
    procedure _PROC_00576AD8(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  newdisc: Tnewdisc;

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

implementation

{$R *.DFM}

procedure Tnewdisc.Edit1Enter(Sender : TObject);
begin
(*
00574BC4   53                     push    ebx
00574BC5   8BD8                   mov     ebx, eax
00574BC7   B1FF                   mov     cl, $FF
00574BC9   B296                   mov     dl, $96
00574BCB   B096                   mov     al, $96

* Reference to: Unit_00407091.Proc_00407CA0
|
00574BCD   E8CE30E9FF             call    00407CA0
00574BD2   8BD0                   mov     edx, eax

* Reference to control Tnewdisc.Edit1 : TEdit
|
00574BD4   8B8328030000           mov     eax, [ebx+$0328]

* Reference to: Controls.TControl.SetColor(TControl;TColor);
|
00574BDA   E82D45EDFF             call    0044910C
00574BDF   5B                     pop     ebx
00574BE0   C3                     ret

*)
end;

procedure Tnewdisc.Edit1Exit(Sender : TObject);
begin
(*
00574BE4   BAFFFFFF00             mov     edx, $00FFFFFF

* Reference to control Tnewdisc.Edit1 : TEdit
|
00574BE9   8B8028030000           mov     eax, [eax+$0328]

* Reference to: Controls.TControl.SetColor(TControl;TColor);
|
00574BEF   E81845EDFF             call    0044910C
00574BF4   C3                     ret

*)
end;

procedure Tnewdisc.DBGrid1CellClick(Sender : TObject);
begin
(*
00574BF8   55                     push    ebp
00574BF9   8BEC                   mov     ebp, esp
00574BFB   B90A000000             mov     ecx, $0000000A
00574C00   6A00                   push    $00
00574C02   6A00                   push    $00
00574C04   49                     dec     ecx
00574C05   75F9                   jnz     00574C00
00574C07   53                     push    ebx
00574C08   56                     push    esi
00574C09   8955FC                 mov     [ebp-$04], edx
00574C0C   8BD8                   mov     ebx, eax
00574C0E   33C0                   xor     eax, eax
00574C10   55                     push    ebp

* Possible String Reference to: '閪箬