📄 unit15.pas
字号:
unit Unit15;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
Tsaledisc=class(TForm)
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton3: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ImageList1: TImageList;
StatusBar1: TStatusBar;
Panel1: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Bevel1: TBevel;
Label7: TLabel;
Label1: TLabel;
Label9: TLabel;
Label4: TLabel;
Label2: TLabel;
Label3: TLabel;
Label6: TLabel;
Label5: TLabel;
Label8: TLabel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
lt: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Button1: TToolButton;
Button2: TToolButton;
Button3: TToolButton;
Button4: TToolButton;
Button5: TToolButton;
Memo1: TMemo;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
UpDown1: TUpDown;
Edit6: TEdit;
DateTimePicker1: TDateTimePicker;
Edit7: TEdit;
TabSheet2: TTabSheet;
DBGrid1: TDBGrid;
Label13: TLabel;
Edit8: TEdit;
UpDown2: TUpDown;
Label14: TLabel;
Edit9: TEdit;
UpDown3: TUpDown;
addmemu: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
delmemu: TPopupMenu;
N3: TMenuItem;
N4: TMenuItem;
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
DataSource1: TDataSource;
ADOQuery3: TADOQuery;
ADOQuery4: TADOQuery;
Label15: TLabel;
Edit10: TEdit;
Label16: TLabel;
QuickRep1: TQuickRep;
ColumnHeaderBand1: TQRBand;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
TitleBand1: TQRBand;
QRLabel1: TQRLabel;
DetailBand1: TQRBand;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
QRDBText8: TQRDBText;
QRDBText9: TQRDBText;
QRLabel9: TQRLabel;
QRLabel10: TQRLabel;
ExcelWorksheet1: TExcelWorksheet;
ExcelWorkbook1: TExcelWorkbook;
ExcelApplication1: TExcelApplication;
Label17: TLabel;
Edit11: TEdit;
QRLabel11: TQRLabel;
QRDBText10: TQRDBText;
Label18: TLabel;
Edit12: TEdit;
Label19: TLabel;
ADOQuery5: TADOQuery;
procedure FormCreate(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure Button4Click(Sender : TObject);
procedure Button5Click(Sender : TObject);
procedure ToolButton1Click(Sender : TObject);
procedure Press(Sender : TObject);
procedure Edit2KeyPress(Sender : TObject);
procedure ToolButton4Click(Sender : TObject);
procedure ToolButton5Click(Sender : TObject);
procedure ToolButton3Click(Sender : TObject);
procedure ToolButton11Click(Sender : TObject);
procedure SpeedButton3Click(Sender : TObject);
procedure SpeedButton2Click(Sender : TObject);
procedure ComboBox2Change(Sender : TObject);
procedure DBGrid1CellClick(Sender : TObject);
procedure SpeedButton1Click(Sender : TObject);
procedure N1Click(Sender : TObject);
procedure N2Click(Sender : TObject);
procedure N3Click(Sender : TObject);
procedure N4Click(Sender : TObject);
procedure Edit1Enter(Sender : TObject);
procedure Edit1Exit(Sender : TObject);
procedure Edit2Enter(Sender : TObject);
procedure Edit2Exit(Sender : TObject);
procedure Edit7Enter(Sender : TObject);
procedure Edit7Exit(Sender : TObject);
procedure Edit3Enter(Sender : TObject);
procedure Edit3Exit(Sender : TObject);
procedure Edit4Enter(Sender : TObject);
procedure Edit4Exit(Sender : TObject);
procedure ComboBox1Enter(Sender : TObject);
procedure ComboBox1Exit(Sender : TObject);
procedure ComboBox2Enter(Sender : TObject);
procedure ComboBox2Exit(Sender : TObject);
procedure Edit10Enter(Sender : TObject);
procedure Edit10Exit(Sender : TObject);
procedure Edit5Enter(Sender : TObject);
procedure Edit5Exit(Sender : TObject);
procedure Edit6Enter(Sender : TObject);
procedure Edit6Exit(Sender : TObject);
procedure DateTimePicker1Enter(Sender : TObject);
procedure DateTimePicker1Exit(Sender : TObject);
procedure Edit8Enter(Sender : TObject);
procedure Edit8Exit(Sender : TObject);
procedure Edit9Enter(Sender : TObject);
procedure Edit9Exit(Sender : TObject);
procedure Memo1Enter(Sender : TObject);
procedure Memo1Exit(Sender : TObject);
procedure Edit8Change(Sender : TObject);
procedure ToolButton2Click(Sender : TObject);
procedure ToolButton8Click(Sender : TObject);
procedure ToolButton10Click(Sender : TObject);
procedure ToolButton7Click(Sender : TObject);
procedure Edit11Enter(Sender : TObject);
procedure Edit11Exit(Sender : TObject);
procedure Edit11KeyPress(Sender : TObject);
procedure Edit12Enter(Sender : TObject);
procedure Edit12Exit(Sender : TObject);
procedure _PROC_00532001(Sender : TObject);
procedure _PROC_00532E84(Sender : TObject);
procedure _PROC_0053727C(Sender : TObject);
procedure _PROC_005372AC(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
saledisc: Tsaledisc;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure Tsaledisc.FormCreate(Sender : TObject);
begin
(*
005322B8 55 push ebp
005322B9 8BEC mov ebp, esp
005322BB B90D000000 mov ecx, $0000000D
005322C0 6A00 push $00
005322C2 6A00 push $00
005322C4 49 dec ecx
005322C5 75F9 jnz 005322C0
005322C7 51 push ecx
005322C8 53 push ebx
005322C9 56 push esi
005322CA 8BF2 mov esi, edx
005322CC 8BD8 mov ebx, eax
005322CE 33C0 xor eax, eax
005322D0 55 push ebp
005322D1 6850265300 push $00532650
***** TRY
|
005322D6 64FF30 push dword ptr fs:[eax]
005322D9 648920 mov fs:[eax], esp
005322DC B201 mov dl, $01
* Reference to control Tsaledisc.ADOQuery1 : TADOQuery
|
005322DE 8B83F4030000 mov eax, [ebx+$03F4]
005322E4 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_0178
|
005322E6 FF9178010000 call dword ptr [ecx+$0178]
005322EC B201 mov dl, $01
* Reference to control Tsaledisc.ADOQuery2 : TADOQuery
|
005322EE 8B83F8030000 mov eax, [ebx+$03F8]
005322F4 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_0178
|
005322F6 FF9178010000 call dword ptr [ecx+$0178]
005322FC B201 mov dl, $01
* Reference to control Tsaledisc.ADOQuery3 : TADOQuery
|
005322FE 8B8300040000 mov eax, [ebx+$0400]
00532304 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_0178
|
00532306 FF9178010000 call dword ptr [ecx+$0178]
0053230C B201 mov dl, $01
* Reference to control Tsaledisc.ADOQuery4 : TADOQuery
|
0053230E 8B8304040000 mov eax, [ebx+$0404]
00532314 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_0178
|
00532316 FF9178010000 call dword ptr [ecx+$0178]
* Reference to: Unit_004081C8.Proc_0040B284
|
0053231C E8638FEDFF call 0040B284
00532321 83C4F8 add esp, -$08
00532324 DD1C24 fstp qword ptr [esp]
00532327 9B wait
* Reference to control Tsaledisc.DateTimePicker1 : TDateTimePicker
|
00532328 8B83B4030000 mov eax, [ebx+$03B4]
* Reference to: ComCtrls.TCommonCalendar.SetDate(TCommonCalendar;TDate);
|
0053232E E8E9A0F5FF call 0048C41C
00532333 C6059C9F580000 mov byte ptr [$00589F9C], $00
0053233A C6059D9F580000 mov byte ptr [$00589F9D], $00
00532341 C6059E9F580000 mov byte ptr [$00589F9E], $00
00532348 33C9 xor ecx, ecx
0053234A 8BD6 mov edx, esi
0053234C 8BC3 mov eax, ebx
* Reference to: Unit15.Proc_0053221C
|
0053234E E8C9FEFFFF call 0053221C
00532353 33C9 xor ecx, ecx
00532355 8BD6 mov edx, esi
00532357 8BC3 mov eax, ebx
* Reference to: Unit15.Proc_005321AC
|
00532359 E84EFEFFFF call 005321AC
* Reference to control Tsaledisc.ADOQuery4 : TADOQuery
|
0053235E 8B8304040000 mov eax, [ebx+$0404]
* Reference to field TADOQuery.OFFS_0178
|
00532364 8B8078010000 mov eax, [eax+$0178]
0053236A 50 push eax
0053236B 8B00 mov eax, [eax]
0053236D FF9098000000 call dword ptr [eax+$0098]
* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
00532373 E8C845EDFF call 00406940
00532378 8D55F4 lea edx, [ebp-$0C]
* Reference to control Tsaledisc.lt : TLabel
|
0053237B 8B8374030000 mov eax, [ebx+$0374]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00532381 E8E66BF1FF call 00448F6C
00532386 8B45F4 mov eax, [ebp-$0C]
00532389 8D55F8 lea edx, [ebp-$08]
* Reference to: Unit_004081C8.Proc_00409114
|
0053238C E8836DEDFF call 00409114
00532391 FF75F8 push dword ptr [ebp-$08]
00532394 6868265300 push $00532668
00532399 8D45E0 lea eax, [ebp-$20]
* Reference to: System.@VarClr(Variant;Variant);
|
0053239C E89735EDFF call 00405938
005323A1 50 push eax
005323A2 8D45DC lea eax, [ebp-$24]
* Reference to: System.@IntfClear(IInterface;IInterface):Pointer;
|
005323A5 E88A44EDFF call 00406834
005323AA 50 push eax
005323AB 8D45CC lea eax, [ebp-$34]
005323AE 33D2 xor edx, edx
005323B0 B101 mov cl, $01
* Reference to: System.@DispInvoke;cdecl;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -