unit30.pas

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

unit Unit30;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  Tlentre=class(TForm)
    ToolBar1: TToolBar;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ImageList1: TImageList;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    StatusBar1: TStatusBar;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure ToolButton11Click(Sender : TObject);
    procedure RadioButton1Click(Sender : TObject);
    procedure DateTimePicker1Change(Sender : TObject);
    procedure DateTimePicker2Change(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure DateTimePicker1Enter(Sender : TObject);
    procedure DateTimePicker1Exit(Sender : TObject);
    procedure DateTimePicker2Enter(Sender : TObject);
    procedure DateTimePicker2Exit(Sender : TObject);
    procedure ToolButton10Click(Sender : TObject);
    procedure _PROC_005771F1(Sender : TObject);
    procedure _PROC_00577220(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  lentre: Tlentre;

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

implementation

{$R *.DFM}

procedure Tlentre.ToolButton11Click(Sender : TObject);
begin
(*
00576E98   A150A05800             mov     eax, dword ptr [$0058A050]

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00576E9D   E88EECEEFF             call    00465B30
00576EA2   C3                     ret

*)
end;

procedure Tlentre.RadioButton1Click(Sender : TObject);
begin
(*
00576EA4   55                     push    ebp
00576EA5   8BEC                   mov     ebp, esp
00576EA7   6A00                   push    $00
00576EA9   6A00                   push    $00
00576EAB   6A00                   push    $00
00576EAD   53                     push    ebx
00576EAE   8BD8                   mov     ebx, eax
00576EB0   33C0                   xor     eax, eax
00576EB2   55                     push    ebp

* Possible String Reference to: '閛谚