unit20.pas

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

unit Unit20;

interface

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

var
  wantbuyre: Twantbuyre;

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

implementation

{$R *.DFM}

procedure Twantbuyre.FormCreate(Sender : TObject);
begin
(*
0053ED18   53                     push    ebx
0053ED19   8BD8                   mov     ebx, eax
0053ED1B   B201                   mov     dl, $01

* Reference to control Twantbuyre.ADOQuery1 : TADOQuery
|
0053ED1D   8B830C030000           mov     eax, [ebx+$030C]
0053ED23   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TADOQuery.OFFS_0178
|
0053ED25   FF9178010000           call    dword ptr [ecx+$0178]

* Reference to: Unit_004081C8.Proc_0040B284
|
0053ED2B   E854C5ECFF             call    0040B284
0053ED30   83C4F8                 add     esp, -$08
0053ED33   DD1C24                 fstp    qword ptr [esp]
0053ED36   9B                     wait

* Reference to control Twantbuyre.DateTimePicker2 : TDateTimePicker
|
0053ED37   8B8330030000           mov     eax, [ebx+$0330]

* Reference to: ComCtrls.TCommonCalendar.SetDate(TCommonCalendar;TDate);
|
0053ED3D   E8DAD6F4FF             call    0048C41C

* Reference to control Twantbuyre.DateTimePicker2 : TDateTimePicker
|
0053ED42   8B8330030000           mov     eax, [ebx+$0330]

* Reference to: ComCtrls.TDateTimePicker.GetTime(TDateTimePicker):TTime;
|
0053ED48   E89FD6F4FF             call    0048C3EC
0053ED4D   D82568ED5300           fsub    dword ptr [$0053ED68]
0053ED53   83C4F8                 add     esp, -$08
0053ED56   DD1C24                 fstp    qword ptr [esp]
0053ED59   9B                     wait

* Reference to control Twantbuyre.DateTimePicker1 : TDateTimePicker
|
0053ED5A   8B8328030000           mov     eax, [ebx+$0328]

* Reference to: ComCtrls.TCommonCalendar.SetDate(TCommonCalendar;TDate);
|
0053ED60   E8B7D6F4FF             call    0048C41C
0053ED65   5B                     pop     ebx
0053ED66   C3                     ret

*)
end;

procedure Twantbuyre.RadioButton1Click(Sender : TObject);
begin
(*
0053ED6C   55                     push    ebp
0053ED6D   8BEC                   mov     ebp, esp
0053ED6F   6A00                   push    $00
0053ED71   6A00                   push    $00
0053ED73   6A00                   push    $00
0053ED75   53                     push    ebx
0053ED76   8BD8                   mov     ebx, eax
0053ED78   33C0                   xor     eax, eax
0053ED7A   55                     push    ebp
0053ED7B   6898EE5300             push    $0053EE98

***** TRY
|
0053ED80   64FF30                 push    dword ptr fs:[eax]
0053ED83   648920                 mov     fs:[eax], esp

* Reference to control Twantbuyre.RadioButton1 : TRadioButton
|
0053ED86   8B831C030000           mov     eax, [ebx+$031C]
0053ED8C   8B10                   mov     edx, [eax]

* Reference to method TRadioButton.GetChecked()
|
0053ED8E   FF92C4000000           call    dword ptr [edx+$00C4]
0053ED94   84C0                   test    al, al
0053ED96   744A                   jz      0053EDE2
0053ED98   33D2                   xor     edx, edx

* Reference to control Twantbuyre.DateTimePicker1 : TDateTimePicker
|
0053ED9A   8B8328030000           mov     eax, [ebx+$0328]
0053EDA0   8B08                   mov     ecx, [eax]

* Reference to method TDateTimePicker.SetEnabled(Boolean)
|
0053EDA2   FF5164                 call    dword ptr [ecx+$64]
0053EDA5   33D2                   xor     edx, edx

* Reference to control Twantbuyre.DateTimePicker2 : TDateTimePicker
|
0053EDA7   8B8330030000           mov     eax, [ebx+$0330]
0053EDAD   8B08                   mov     ecx, [eax]

* Reference to method TDateTimePicker.SetEnabled(Boolean)
|
0053EDAF   FF5164                 call    dword ptr [ecx+$64]

* Reference to control Twantbuyre.ADOQuery1 : TADOQuery
|
0053EDB2   8B830C030000           mov     eax, [ebx+$030C]

* Reference to: DB.TDataSet.Close(TDataSet);
|
0053EDB8   E85793F6FF             call    004A8114

* Reference to control Twantbuyre.ADOQuery1 : TADOQuery
|
0053EDBD   8B830C030000           mov     eax, [ebx+$030C]

* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0053EDC3   E8740FF8FF             call    004BFD3C

* Possible String Reference to: 'select * from [预购碟片]'
|
0053EDC8   BAACEE5300             mov     edx, $0053EEAC
0053EDCD   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TADOQuery.OFFS_2C
|
0053EDCF   FF512C                 call    dword ptr [ecx+$2C]

* Reference to control Twantbuyre.ADOQuery1 : TADOQuery
|
0053EDD2   8B830C030000           mov     eax, [ebx+$030C]

* Reference to: DB.TDataSet.Open(TDataSet);
|
0053EDD8   E82B93F6FF             call    004A8108
0053EDDD   E99B000000             jmp     0053EE7D
0053EDE2   B201                   mov     dl, $01

* Reference to control Twantbuyre.DateTimePicker1 : TDateTimePicker
|
0053EDE4   8B8328030000           mov     eax, [ebx+$0328]
0053EDEA   8B08                   mov     ecx, [eax]

* Reference to method TDateTimePicker.SetEnabled(Boolean)
|
0053EDEC   FF5164                 call    dword ptr [ecx+$64]
0053EDEF   B201                   mov     dl, $01

* Reference to control Twantbuyre.DateTimePicker2 : TDateTimePicker
|
0053EDF1   8B8330030000           mov     eax, [ebx+$0330]
0053EDF7   8B08                   mov     ecx, [eax]

* Reference to method TDateTimePicker.SetEnabled(Boolean)
|
0053EDF9   FF5164                 call    dword ptr [ecx+$64]

* Reference to control Twantbuyre.ADOQuery1 : TADOQuery
|
0053EDFC   8B830C030000           mov     eax, [ebx+$030C]

* Reference to: DB.TDataSet.Close(TDataSet);
|
0053EE02   E80D93F6FF             call    004A8114

* Possible String Reference to: 'select * from [预购碟片] where [预