?? unit33.pas
字號:
unit Unit33;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
Tdiscsales=class(TForm)
ToolBar1: TToolBar;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
Panel1: TPanel;
StatusBar1: TStatusBar;
ImageList1: TImageList;
Label2: TLabel;
Edit1: TEdit;
GroupBox1: TGroupBox;
Label3: TLabel;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
Edit2: TEdit;
Label4: TLabel;
Label5: TLabel;
DateTimePicker1: TDateTimePicker;
GroupBox3: TGroupBox;
Label6: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label15: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
GroupBox4: TGroupBox;
Label7: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Edit3: TEdit;
Label11: TLabel;
Label12: TLabel;
Edit13: TEdit;
Label13: TLabel;
Edit14: TEdit;
Label14: TLabel;
Label16: TLabel;
Label21: TLabel;
Label22: TLabel;
SpeedButton2: TSpeedButton;
ADOQuery1: TADOQuery;
ListView1: TListView;
Label1: TLabel;
Edit15: TEdit;
Label23: TLabel;
UpDown1: TUpDown;
SpeedButton1: TSpeedButton;
DataSource1: TDataSource;
Label24: TLabel;
Edit16: TEdit;
Label25: TLabel;
ADOQuery2: TADOQuery;
ADOQuery3: TADOQuery;
RadioButton5: TRadioButton;
SpeedButton3: TSpeedButton;
procedure ToolButton11Click(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure RadioButton3Click(Sender : TObject);
procedure RadioButton1Click(Sender : TObject);
procedure Edit2KeyPress(Sender : TObject);
procedure SpeedButton1Click(Sender : TObject);
procedure SpeedButton2Click(Sender : TObject);
procedure Edit3KeyPress(Sender : TObject);
procedure Edit2Enter(Sender : TObject);
procedure Edit2Exit(Sender : TObject);
procedure DateTimePicker1Enter(Sender : TObject);
procedure DateTimePicker1Exit(Sender : TObject);
procedure Edit1Enter(Sender : TObject);
procedure Edit1Exit(Sender : TObject);
procedure Edit15Enter(Sender : TObject);
procedure Edit15Exit(Sender : TObject);
procedure Edit3Enter(Sender : TObject);
procedure Edit3Exit(Sender : TObject);
procedure Edit13Enter(Sender : TObject);
procedure Edit13Exit(Sender : TObject);
procedure Edit14Enter(Sender : TObject);
procedure Edit14Exit(Sender : TObject);
procedure Edit16Enter(Sender : TObject);
procedure Edit16Exit(Sender : TObject);
procedure Edit4Enter(Sender : TObject);
procedure Edit4Exit(Sender : TObject);
procedure Edit5Enter(Sender : TObject);
procedure Edit5Exit(Sender : TObject);
procedure Edit6Enter(Sender : TObject);
procedure Edit6Exit(Sender : TObject);
procedure Edit7Enter(Sender : TObject);
procedure Edit7Exit(Sender : TObject);
procedure Edit8Enter(Sender : TObject);
procedure Edit8Exit(Sender : TObject);
procedure Edit9Enter(Sender : TObject);
procedure Edit9Exit(Sender : TObject);
procedure Edit10Enter(Sender : TObject);
procedure Edit10Exit(Sender : TObject);
procedure Edit11Enter(Sender : TObject);
procedure Edit11Exit(Sender : TObject);
procedure Edit12Enter(Sender : TObject);
procedure Edit12Exit(Sender : TObject);
procedure ToolButton10Click(Sender : TObject);
procedure ListView1SelectItem(Sender : TObject);
procedure SpeedButton3Click(Sender : TObject);
procedure UpDown1Click(Sender : TObject);
procedure _PROC_00578405(Sender : TObject);
procedure _PROC_00578C15(Sender : TObject);
procedure _PROC_00578C23(Sender : TObject);
procedure _PROC_00578C31(Sender : TObject);
procedure _PROC_00578C3F(Sender : TObject);
procedure _PROC_00578C4D(Sender : TObject);
procedure _PROC_00578C5B(Sender : TObject);
procedure _PROC_00578C69(Sender : TObject);
procedure _PROC_0057B1B8(Sender : TObject);
procedure _PROC_0057B1E8(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
discsales: Tdiscsales;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure Tdiscsales.ToolButton11Click(Sender : TObject);
begin
(*
00578CAC A160A05800 mov eax, dword ptr [$0058A060]
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00578CB1 E87ACEEEFF call 00465B30
00578CB6 C3 ret
*)
end;
procedure Tdiscsales.FormCreate(Sender : TObject);
begin
(*
00578CB8 55 push ebp
00578CB9 8BEC mov ebp, esp
00578CBB 6A00 push $00
00578CBD 53 push ebx
00578CBE 8BD8 mov ebx, eax
00578CC0 33C0 xor eax, eax
00578CC2 55 push ebp
* Possible String Reference to: '橛寵
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -