?? 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 [出
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -