unit31.pas

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

unit unit31;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  Tsalere=class(TForm)
    ToolBar1: TToolBar;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ImageList1: TImageList;
    StatusBar1: TStatusBar;
    procedure RadioButton1Click(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 ToolButton11Click(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure ToolButton10Click(Sender : TObject);
    procedure _PROC_004D7DD9(Sender : TObject);
    procedure _PROC_004D7E08(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  salere: Tsalere;

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

implementation

{$R *.DFM}

procedure Tsalere.RadioButton1Click(Sender : TObject);
begin
(*
004D7AA8   55                     push    ebp
004D7AA9   8BEC                   mov     ebp, esp
004D7AAB   6A00                   push    $00
004D7AAD   6A00                   push    $00
004D7AAF   6A00                   push    $00
004D7AB1   53                     push    ebx
004D7AB2   8BD8                   mov     ebx, eax
004D7AB4   33C0                   xor     eax, eax
004D7AB6   55                     push    ebp
004D7AB7   68D47B4D00             push    $004D7BD4

***** TRY
|
004D7ABC   64FF30                 push    dword ptr fs:[eax]
004D7ABF   648920                 mov     fs:[eax], esp

* Reference to control Tsalere.RadioButton1 : TRadioButton
|
004D7AC2   8B8310030000           mov     eax, [ebx+$0310]
004D7AC8   8B10                   mov     edx, [eax]

* Reference to method TRadioButton.GetChecked()
|
004D7ACA   FF92C4000000           call    dword ptr [edx+$00C4]
004D7AD0   84C0                   test    al, al
004D7AD2   744A                   jz      004D7B1E
004D7AD4   33D2                   xor     edx, edx

* Reference to control Tsalere.DateTimePicker1 : TDateTimePicker
|
004D7AD6   8B8318030000           mov     eax, [ebx+$0318]
004D7ADC   8B08                   mov     ecx, [eax]

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

* Reference to control Tsalere.DateTimePicker2 : TDateTimePicker
|
004D7AE3   8B831C030000           mov     eax, [ebx+$031C]
004D7AE9   8B08                   mov     ecx, [eax]

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

* Reference to control Tsalere.ADOQuery1 : TADOQuery
|
004D7AEE   8B8328030000           mov     eax, [ebx+$0328]

* Reference to: DB.TDataSet.Close(TDataSet);
|
004D7AF4   E81B06FDFF             call    004A8114

* Reference to control Tsalere.ADOQuery1 : TADOQuery
|
004D7AF9   8B8328030000           mov     eax, [ebx+$0328]

* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
004D7AFF   E83882FEFF             call    004BFD3C

* Possible String Reference to: 'select * from [出售档案]'
|
004D7B04   BAE87B4D00             mov     edx, $004D7BE8
004D7B09   8B08                   mov     ecx, [eax]

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

* Reference to control Tsalere.ADOQuery1 : TADOQuery
|
004D7B0E   8B8328030000           mov     eax, [ebx+$0328]

* Reference to: DB.TDataSet.Open(TDataSet);
|
004D7B14   E8EF05FDFF             call    004A8108
004D7B19   E99B000000             jmp     004D7BB9
004D7B1E   B201                   mov     dl, $01

* Reference to control Tsalere.DateTimePicker1 : TDateTimePicker
|
004D7B20   8B8318030000           mov     eax, [ebx+$0318]
004D7B26   8B08                   mov     ecx, [eax]

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

* Reference to control Tsalere.DateTimePicker2 : TDateTimePicker
|
004D7B2D   8B831C030000           mov     eax, [ebx+$031C]
004D7B33   8B08                   mov     ecx, [eax]

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

* Reference to control Tsalere.ADOQuery1 : TADOQuery
|
004D7B38   8B8328030000           mov     eax, [ebx+$0328]

* Reference to: DB.TDataSet.Close(TDataSet);
|
004D7B3E   E8D105FDFF             call    004A8114

* Possible String Reference to: 'select * from [出售档案] where [出