2126 lines
74 KiB
ObjectPascal
2126 lines
74 KiB
ObjectPascal
|
unit U_PbProductList;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
Windows, Messages, SysUtils, Classes, Graphics,
|
|||
|
|
Controls, Forms, Dialogs, StdCtrls
|
|||
|
|
type
|
|||
|
|
TfrmPbProductList=class(TForm)
|
|||
|
|
ToolBar1: TToolBar;
|
|||
|
|
TBRafresh: TToolButton;
|
|||
|
|
TBFind: TToolButton;
|
|||
|
|
TBClose: TToolButton;
|
|||
|
|
Panel1: TPanel;
|
|||
|
|
BegDate: TDateTimePicker;
|
|||
|
|
EndDate: TDateTimePicker;
|
|||
|
|
Label1: TLabel;
|
|||
|
|
cxGridPopupMenu1: TcxGridPopupMenu;
|
|||
|
|
ADOQueryCmd: TADOQuery;
|
|||
|
|
ADOQueryMain: TADOQuery;
|
|||
|
|
ADOQueryTemp: TADOQuery;
|
|||
|
|
DataSource1: TDataSource;
|
|||
|
|
Label3: TLabel;
|
|||
|
|
OrderNoM: TEdit;
|
|||
|
|
Order_Main: TClientDataSet;
|
|||
|
|
RM1: TRMGridReport;
|
|||
|
|
RMDBMain: TRMDBDataSet;
|
|||
|
|
RMXLSExport1: TRMXLSExport;
|
|||
|
|
Label4: TLabel;
|
|||
|
|
CustomerNoName: TEdit;
|
|||
|
|
PopupMenu1: TcxGridPopupMenu;
|
|||
|
|
N2: TMenuItem;
|
|||
|
|
Label2: TLabel;
|
|||
|
|
JGFactoryName: TEdit;
|
|||
|
|
Label5: TLabel;
|
|||
|
|
OrdPerson1: TEdit;
|
|||
|
|
Label6: TLabel;
|
|||
|
|
MPRTCF: TEdit;
|
|||
|
|
Label7: TLabel;
|
|||
|
|
PRTColor: TEdit;
|
|||
|
|
Label8: TLabel;
|
|||
|
|
MPRTCodeName: TEdit;
|
|||
|
|
Label9: TLabel;
|
|||
|
|
ConNo: TEdit;
|
|||
|
|
Label10: TLabel;
|
|||
|
|
MPRTSpec: TEdit;
|
|||
|
|
Label11: TLabel;
|
|||
|
|
OrdDefStr1: TEdit;
|
|||
|
|
Label12: TLabel;
|
|||
|
|
MPRTKZ: TEdit;
|
|||
|
|
Label13: TLabel;
|
|||
|
|
MPRTMF: TEdit;
|
|||
|
|
ADOQueryPrint: TADOQuery;
|
|||
|
|
CDS_Print: TClientDataSet;
|
|||
|
|
ToolButton3: TToolButton;
|
|||
|
|
cxGrid1: TcxGrid;
|
|||
|
|
Tv1: TcxGridDBTableView;
|
|||
|
|
v1Column4: TcxGridDBColumn;
|
|||
|
|
v1ConNo: TcxGridDBColumn;
|
|||
|
|
v1OrdPerson1: TcxGridDBColumn;
|
|||
|
|
v1OrdDate: TcxGridDBColumn;
|
|||
|
|
v1DeliveryDate: TcxGridDBColumn;
|
|||
|
|
v1CustomerNoName: TcxGridDBColumn;
|
|||
|
|
v1MPRTCodeName: TcxGridDBColumn;
|
|||
|
|
v1Column2: TcxGridDBColumn;
|
|||
|
|
v1PRTOrderQty: TcxGridDBColumn;
|
|||
|
|
v1Column8: TcxGridDBColumn;
|
|||
|
|
v1Column5: TcxGridDBColumn;
|
|||
|
|
cxGrid1Level1: TcxGridLevel;
|
|||
|
|
v1C_Spec: TcxGridDBColumn;
|
|||
|
|
procedure FormDestroy(Sender : TObject);
|
|||
|
|
procedure FormClose(Sender : TObject);
|
|||
|
|
procedure FormCreate(Sender : TObject);
|
|||
|
|
procedure TBCloseClick(Sender : TObject);
|
|||
|
|
procedure TBFindClick(Sender : TObject);
|
|||
|
|
procedure TBRafreshClick(Sender : TObject);
|
|||
|
|
procedure OrderNoMChange(Sender : TObject);
|
|||
|
|
procedure FormShow(Sender : TObject);
|
|||
|
|
procedure TBTPClick(Sender : TObject);
|
|||
|
|
procedure CheckBox1Click(Sender : TObject);
|
|||
|
|
procedure CheckBox2Click(Sender : TObject);
|
|||
|
|
procedure Tv1StylesGetContentStyle(Sender : TObject);
|
|||
|
|
procedure v1DeliveryDateCustomDrawCell(Sender : TObject);
|
|||
|
|
procedure N1Click(Sender : TObject);
|
|||
|
|
procedure N2Click(Sender : TObject);
|
|||
|
|
procedure ToolButton3Click(Sender : TObject);
|
|||
|
|
procedure OrderNoMKeyPress(Sender : TObject);
|
|||
|
|
procedure Tv1CellDblClick(Sender : TObject);
|
|||
|
|
procedure _PROC_007D28C5(Sender : TObject);
|
|||
|
|
procedure _PROC_007D2B15(Sender : TObject);
|
|||
|
|
procedure _PROC_007D2D56(Sender : TObject);
|
|||
|
|
procedure _PROC_007D3930(Sender : TObject);
|
|||
|
|
procedure _PROC_007D3960(Sender : TObject);
|
|||
|
|
procedure _PROC_007D3968(Sender : TObject);
|
|||
|
|
procedure _PROC_007D39CE(Sender : TObject);
|
|||
|
|
private
|
|||
|
|
{ Private declarations }
|
|||
|
|
public
|
|||
|
|
{ Public declarations }
|
|||
|
|
end ;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
frmPbProductList: TfrmPbProductList;
|
|||
|
|
|
|||
|
|
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
|
|||
|
|
{$R *.DFM}
|
|||
|
|
|
|||
|
|
procedure TfrmPbProductList.FormDestroy(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
007D2808 33C0 xor eax, eax
|
|||
|
|
|
|||
|
|
* Reference to GlobalVar_00893C88
|
|||
|
|
|
|
|||
|
|
007D280A A3883C8900 mov dword ptr [$00893C88], eax
|
|||
|
|
007D280F C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmPbProductList.FormClose(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
007D2810 C60102 mov byte ptr [ecx], $02
|
|||
|
|
007D2813 C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmPbProductList.FormCreate(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
007D2814 53 push ebx
|
|||
|
|
007D2815 8BD8 mov ebx, eax
|
|||
|
|
007D2817 B205 mov dl, $05
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.cxGrid1 : TcxGrid
|
|||
|
|
|
|
|||
|
|
007D2819 8B83B0030000 mov eax, [ebx+$03B0]
|
|||
|
|
|
|||
|
|
* Reference to: Controls.TControl.SetAlign(TControl;TAlign);
|
|||
|
|
|
|
|||
|
|
007D281F E8B852CBFF call 00487ADC
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.ADOQueryTemp : TADOQuery
|
|||
|
|
|
|
|||
|
|
007D2824 8B8324030000 mov eax, [ebx+$0324]
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
007D282A E85921FEFF call 007B4988
|
|||
|
|
007D282F DD9BF0030000 fstp qword ptr [ebx+$03F0]
|
|||
|
|
007D2835 9B wait
|
|||
|
|
007D2836 5B pop ebx
|
|||
|
|
007D2837 C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmPbProductList.TBCloseClick(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
007D2838 53 push ebx
|
|||
|
|
007D2839 8BD8 mov ebx, eax
|
|||
|
|
007D283B 8BC3 mov eax, ebx
|
|||
|
|
|
|||
|
|
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
|||
|
|
|
|
|||
|
|
007D283D E85637CDFF call 004A5F98
|
|||
|
|
|
|||
|
|
* Reference to field TfrmPbProductList.OFFS_03FC
|
|||
|
|
|
|
|||
|
|
007D2842 83BBFC03000001 cmp dword ptr [ebx+$03FC], +$01
|
|||
|
|
007D2849 7417 jz 007D2862
|
|||
|
|
|
|||
|
|
* Possible String Reference to: '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|||
|
|
|
|
|||
|
|
007D284B B984287D00 mov ecx, $007D2884
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.Tv1 : TcxGridDBTableView
|
|||
|
|
|
|
|||
|
|
007D2850 8B93B4030000 mov edx, [ebx+$03B4]
|
|||
|
|
|
|||
|
|
* Possible String Reference to: 'ָʾ<D6B8><CABE><EFBFBD>б<EFBFBD>10'
|
|||
|
|
|
|
|||
|
|
007D2856 B89C287D00 mov eax, $007D289C
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
007D285B E84053FEFF call 007B7BA0
|
|||
|
|
007D2860 5B pop ebx
|
|||
|
|
007D2861 C3 ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
* Possible String Reference to: '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|||
|
|
|
|
|||
|
|
007D2862 B984287D00 mov ecx, $007D2884
|
|||
|
|
|
|||
|
|
* Reference to control SYRAddress : N.A.
|
|||
|
|
|
|
|||
|
|
007D2867 8B93B4030000 mov edx, [ebx+$03B4]
|
|||
|
|
|
|||
|
|
* Possible String Reference to: 'ָʾ<D6B8><CABE><EFBFBD>б<EFBFBD>ѡ<EFBFBD><D1A1>'
|
|||
|
|
|
|
|||
|
|
007D286D B8B4287D00 mov eax, $007D28B4
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
007D2872 E82953FEFF call 007B7BA0
|
|||
|
|
007D2877 5B pop ebx
|
|||
|
|
007D2878 C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmPbProductList.TBFindClick(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
007D2ECC 55 push ebp
|
|||
|
|
007D2ECD 8BEC mov ebp, esp
|
|||
|
|
007D2ECF 6A00 push $00
|
|||
|
|
007D2ED1 53 push ebx
|
|||
|
|
007D2ED2 8BD8 mov ebx, eax
|
|||
|
|
007D2ED4 33C0 xor eax, eax
|
|||
|
|
007D2ED6 55 push ebp
|
|||
|
|
007D2ED7 68502F7D00 push $007D2F50
|
|||
|
|
|
|||
|
|
***** TRY
|
|||
|
|
|
|
|||
|
|
007D2EDC 64FF30 push dword ptr fs:[eax]
|
|||
|
|
007D2EDF 648920 mov fs:[eax], esp
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.ADOQueryMain : TADOQuery
|
|||
|
|
|
|
|||
|
|
007D2EE2 8B8320030000 mov eax, [ebx+$0320]
|
|||
|
|
|
|||
|
|
* Reference to: DB.TDataSet.GetActive(TDataSet):Boolean;
|
|||
|
|
|
|
|||
|
|
007D2EE8 E8272BCFFF call 004C5A14
|
|||
|
|
007D2EED 84C0 test al, al
|
|||
|
|
007D2EEF 7449 jz 007D2F3A
|
|||
|
|
007D2EF1 8D45FC lea eax, [ebp-$04]
|
|||
|
|
007D2EF4 50 push eax
|
|||
|
|
007D2EF5 B902000000 mov ecx, $00000002
|
|||
|
|
007D2EFA BA01000000 mov edx, $00000001
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.Panel1 : TPanel
|
|||
|
|
|
|
|||
|
|
007D2EFF 8B8308030000 mov eax, [ebx+$0308]
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
007D2F05 E8A631FEFF call 007B60B0
|
|||
|
|
007D2F0A 8B55FC mov edx, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.ADOQueryMain : TADOQuery
|
|||
|
|
|
|
|||
|
|
007D2F0D 8B8320030000 mov eax, [ebx+$0320]
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
007D2F13 E8B03DFEFF call 007B6CC8
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.Order_Main : TClientDataSet
|
|||
|
|
|
|
|||
|
|
007D2F18 8B9334030000 mov edx, [ebx+$0334]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.ADOQueryMain : TADOQuery
|
|||
|
|
|
|
|||
|
|
007D2F1E 8B8320030000 mov eax, [ebx+$0320]
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
007D2F24 E8673FFEFF call 007B6E90
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.Order_Main : TClientDataSet
|
|||
|
|
|
|
|||
|
|
007D2F29 8B9334030000 mov edx, [ebx+$0334]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.ADOQueryMain : TADOQuery
|
|||
|
|
|
|
|||
|
|
007D2F2F 8B8320030000 mov eax, [ebx+$0320]
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
007D2F35 E8DE40FEFF call 007B7018
|
|||
|
|
007D2F3A 33C0 xor eax, eax
|
|||
|
|
007D2F3C 5A pop edx
|
|||
|
|
007D2F3D 59 pop ecx
|
|||
|
|
007D2F3E 59 pop ecx
|
|||
|
|
007D2F3F 648910 mov fs:[eax], edx
|
|||
|
|
|
|||
|
|
****** FINALLY
|
|||
|
|
|
|
|||
|
|
007D2F42 68572F7D00 push $007D2F57
|
|||
|
|
007D2F47 8D45FC lea eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to: System.@LStrClr(void;void);
|
|||
|
|
|
|
|||
|
|
007D2F4A E8D523C3FF call 00405324
|
|||
|
|
007D2F4F C3 ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
* Reference to: System.@HandleFinally;
|
|||
|
|
|
|
|||
|
|
007D2F50 E99F1BC3FF jmp 00404AF4
|
|||
|
|
007D2F55 EBF0 jmp 007D2F47
|
|||
|
|
|
|||
|
|
****** END
|
|||
|
|
|
|
|||
|
|
007D2F57 5B pop ebx
|
|||
|
|
007D2F58 59 pop ecx
|
|||
|
|
007D2F59 5D pop ebp
|
|||
|
|
007D2F5A C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmPbProductList.TBRafreshClick(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
|
|||
|
|
* Reference to field TfrmPbProductList.OFFS_03F8
|
|||
|
|
|
|
|||
|
|
007D2F5C 83B8F803000001 cmp dword ptr [eax+$03F8], +$01
|
|||
|
|
007D2F63 7506 jnz 007D2F6B
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
007D2F65 E8AAFBFFFF call 007D2B14
|
|||
|
|
007D2F6A C3 ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
007D2F6B E854F9FFFF call 007D28C4
|
|||
|
|
007D2F70 C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmPbProductList.OrderNoMChange(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
007D2F74 55 push ebp
|
|||
|
|
007D2F75 8BEC mov ebp, esp
|
|||
|
|
007D2F77 6A00 push $00
|
|||
|
|
007D2F79 53 push ebx
|
|||
|
|
007D2F7A 8BD8 mov ebx, eax
|
|||
|
|
007D2F7C 33C0 xor eax, eax
|
|||
|
|
007D2F7E 55 push ebp
|
|||
|
|
007D2F7F 68F82F7D00 push $007D2FF8
|
|||
|
|
|
|||
|
|
***** TRY
|
|||
|
|
|
|
|||
|
|
007D2F84 64FF30 push dword ptr fs:[eax]
|
|||
|
|
007D2F87 648920 mov fs:[eax], esp
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.ADOQueryMain : TADOQuery
|
|||
|
|
|
|
|||
|
|
007D2F8A 8B8320030000 mov eax, [ebx+$0320]
|
|||
|
|
|
|||
|
|
* Reference to: DB.TDataSet.GetActive(TDataSet):Boolean;
|
|||
|
|
|
|
|||
|
|
007D2F90 E87F2ACFFF call 004C5A14
|
|||
|
|
007D2F95 84C0 test al, al
|
|||
|
|
007D2F97 7449 jz 007D2FE2
|
|||
|
|
007D2F99 8D45FC lea eax, [ebp-$04]
|
|||
|
|
007D2F9C 50 push eax
|
|||
|
|
007D2F9D B902000000 mov ecx, $00000002
|
|||
|
|
007D2FA2 BA01000000 mov edx, $00000001
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.Panel1 : TPanel
|
|||
|
|
|
|
|||
|
|
007D2FA7 8B8308030000 mov eax, [ebx+$0308]
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
007D2FAD E8FE30FEFF call 007B60B0
|
|||
|
|
007D2FB2 8B55FC mov edx, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.ADOQueryMain : TADOQuery
|
|||
|
|
|
|
|||
|
|
007D2FB5 8B8320030000 mov eax, [ebx+$0320]
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
007D2FBB E8083DFEFF call 007B6CC8
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.Order_Main : TClientDataSet
|
|||
|
|
|
|
|||
|
|
007D2FC0 8B9334030000 mov edx, [ebx+$0334]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.ADOQueryMain : TADOQuery
|
|||
|
|
|
|
|||
|
|
007D2FC6 8B8320030000 mov eax, [ebx+$0320]
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
007D2FCC E8BF3EFEFF call 007B6E90
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.Order_Main : TClientDataSet
|
|||
|
|
|
|
|||
|
|
007D2FD1 8B9334030000 mov edx, [ebx+$0334]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.ADOQueryMain : TADOQuery
|
|||
|
|
|
|
|||
|
|
007D2FD7 8B8320030000 mov eax, [ebx+$0320]
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
007D2FDD E83640FEFF call 007B7018
|
|||
|
|
007D2FE2 33C0 xor eax, eax
|
|||
|
|
007D2FE4 5A pop edx
|
|||
|
|
007D2FE5 59 pop ecx
|
|||
|
|
007D2FE6 59 pop ecx
|
|||
|
|
007D2FE7 648910 mov fs:[eax], edx
|
|||
|
|
|
|||
|
|
****** FINALLY
|
|||
|
|
|
|
|||
|
|
|
|||
|
|
* Possible String Reference to: '[Y]Ð<>K<EFBFBD><4B><EFBFBD>Ë<EFBFBD>U<EFBFBD><55>3<EFBFBD>Uh+0}'
|
|||
|
|
|
|
|||
|
|
007D2FEA 68FF2F7D00 push $007D2FFF
|
|||
|
|
007D2FEF 8D45FC lea eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to: System.@LStrClr(void;void);
|
|||
|
|
|
|
|||
|
|
007D2FF2 E82D23C3FF call 00405324
|
|||
|
|
007D2FF7 C3 ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
* Reference to: System.@HandleFinally;
|
|||
|
|
|
|
|||
|
|
007D2FF8 E9F71AC3FF jmp 00404AF4
|
|||
|
|
007D2FFD EBF0 jmp 007D2FEF
|
|||
|
|
|
|||
|
|
****** END
|
|||
|
|
|
|
|||
|
|
007D2FFF 5B pop ebx
|
|||
|
|
007D3000 59 pop ecx
|
|||
|
|
007D3001 5D pop ebp
|
|||
|
|
007D3002 C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmPbProductList.FormShow(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
007D3004 E84BFDFFFF call 007D2D54
|
|||
|
|
007D3009 C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmPbProductList.TBTPClick(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
007D300C 55 push ebp
|
|||
|
|
007D300D 8BEC mov ebp, esp
|
|||
|
|
007D300F 33C0 xor eax, eax
|
|||
|
|
007D3011 55 push ebp
|
|||
|
|
007D3012 682B307D00 push $007D302B
|
|||
|
|
|
|||
|
|
***** TRY
|
|||
|
|
|
|
|||
|
|
007D3017 64FF30 push dword ptr fs:[eax]
|
|||
|
|
007D301A 648920 mov fs:[eax], esp
|
|||
|
|
007D301D 33C0 xor eax, eax
|
|||
|
|
007D301F 5A pop edx
|
|||
|
|
007D3020 59 pop ecx
|
|||
|
|
007D3021 59 pop ecx
|
|||
|
|
007D3022 648910 mov fs:[eax], edx
|
|||
|
|
|
|||
|
|
****** FINALLY
|
|||
|
|
|
|
|||
|
|
007D3025 6832307D00 push $007D3032
|
|||
|
|
007D302A C3 ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
* Reference to: System.@HandleFinally;
|
|||
|
|
|
|
|||
|
|
007D302B E9C41AC3FF jmp 00404AF4
|
|||
|
|
007D3030 EBF8 jmp 007D302A
|
|||
|
|
|
|||
|
|
****** END
|
|||
|
|
|
|
|||
|
|
007D3032 5D pop ebp
|
|||
|
|
007D3033 C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmPbProductList.CheckBox1Click(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
007D3034 E88BF8FFFF call 007D28C4
|
|||
|
|
007D3039 C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmPbProductList.CheckBox2Click(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
007D303C 56 push esi
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.TBRafresh : TToolButton
|
|||
|
|
|
|
|||
|
|
007D303D 8B80FC020000 mov eax, [eax+$02FC]
|
|||
|
|
007D3043 66BEEBFF mov si, $FFEB
|
|||
|
|
|
|||
|
|
* Reference to: System.@CallDynaInst;
|
|||
|
|
|
|
|||
|
|
007D3047 E80815C3FF call 00404554
|
|||
|
|
007D304C 5E pop esi
|
|||
|
|
007D304D C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmPbProductList.Tv1StylesGetContentStyle(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
007D3050 55 push ebp
|
|||
|
|
007D3051 8BEC mov ebp, esp
|
|||
|
|
007D3053 5D pop ebp
|
|||
|
|
007D3054 C20800 ret $0008
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmPbProductList.v1DeliveryDateCustomDrawCell(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
007D3058 55 push ebp
|
|||
|
|
007D3059 8BEC mov ebp, esp
|
|||
|
|
007D305B 5D pop ebp
|
|||
|
|
007D305C C20800 ret $0008
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmPbProductList.N1Click(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
007D3060 55 push ebp
|
|||
|
|
007D3061 8BEC mov ebp, esp
|
|||
|
|
007D3063 B907000000 mov ecx, $00000007
|
|||
|
|
007D3068 6A00 push $00
|
|||
|
|
007D306A 6A00 push $00
|
|||
|
|
007D306C 49 dec ecx
|
|||
|
|
007D306D 75F9 jnz 007D3068
|
|||
|
|
007D306F 51 push ecx
|
|||
|
|
007D3070 53 push ebx
|
|||
|
|
007D3071 8BD8 mov ebx, eax
|
|||
|
|
007D3073 33C0 xor eax, eax
|
|||
|
|
007D3075 55 push ebp
|
|||
|
|
007D3076 683F327D00 push $007D323F
|
|||
|
|
|
|||
|
|
***** TRY
|
|||
|
|
|
|
|||
|
|
007D307B 64FF30 push dword ptr fs:[eax]
|
|||
|
|
007D307E 648920 mov fs:[eax], esp
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.Order_Main : TClientDataSet
|
|||
|
|
|
|
|||
|
|
007D3081 8B8334030000 mov eax, [ebx+$0334]
|
|||
|
|
|
|||
|
|
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
|||
|
|
|
|
|||
|
|
007D3087 E8344ECFFF call 004C7EC0
|
|||
|
|
007D308C 84C0 test al, al
|
|||
|
|
007D308E 0F8588010000 jnz 007D321C
|
|||
|
|
007D3094 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmPbProductList.N2Click(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
007D32D0 55 push ebp
|
|||
|
|
007D32D1 8BEC mov ebp, esp
|
|||
|
|
007D32D3 B907000000 mov ecx, $00000007
|
|||
|
|
007D32D8 6A00 push $00
|
|||
|
|
007D32DA 6A00 push $00
|
|||
|
|
007D32DC 49 dec ecx
|
|||
|
|
007D32DD 75F9 jnz 007D32D8
|
|||
|
|
007D32DF 51 push ecx
|
|||
|
|
007D32E0 53 push ebx
|
|||
|
|
007D32E1 8BD8 mov ebx, eax
|
|||
|
|
007D32E3 33C0 xor eax, eax
|
|||
|
|
007D32E5 55 push ebp
|
|||
|
|
007D32E6 68AF347D00 push $007D34AF
|
|||
|
|
|
|||
|
|
***** TRY
|
|||
|
|
|
|
|||
|
|
007D32EB 64FF30 push dword ptr fs:[eax]
|
|||
|
|
007D32EE 648920 mov fs:[eax], esp
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.Order_Main : TClientDataSet
|
|||
|
|
|
|
|||
|
|
007D32F1 8B8334030000 mov eax, [ebx+$0334]
|
|||
|
|
|
|||
|
|
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
|||
|
|
|
|
|||
|
|
007D32F7 E8C44BCFFF call 004C7EC0
|
|||
|
|
007D32FC 84C0 test al, al
|
|||
|
|
007D32FE 0F8588010000 jnz 007D348C
|
|||
|
|
007D3304 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmPbProductList.ToolButton3Click(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
007D3540 53 push ebx
|
|||
|
|
007D3541 8BD8 mov ebx, eax
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.Order_Main : TClientDataSet
|
|||
|
|
|
|
|||
|
|
007D3543 8B8334030000 mov eax, [ebx+$0334]
|
|||
|
|
|
|||
|
|
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
|||
|
|
|
|
|||
|
|
007D3549 E87249CFFF call 004C7EC0
|
|||
|
|
007D354E 84C0 test al, al
|
|||
|
|
007D3550 750A jnz 007D355C
|
|||
|
|
|
|||
|
|
* Reference to field TfrmPbProductList.ModalResult : TModalResult
|
|||
|
|
|
|
|||
|
|
007D3552 C7834C02000001000000 mov dword ptr [ebx+$024C], $00000001
|
|||
|
|
007D355C 5B pop ebx
|
|||
|
|
007D355D C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmPbProductList.OrderNoMKeyPress(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
007D3560 55 push ebp
|
|||
|
|
007D3561 8BEC mov ebp, esp
|
|||
|
|
007D3563 51 push ecx
|
|||
|
|
007D3564 B90C000000 mov ecx, $0000000C
|
|||
|
|
007D3569 6A00 push $00
|
|||
|
|
007D356B 6A00 push $00
|
|||
|
|
007D356D 49 dec ecx
|
|||
|
|
007D356E 75F9 jnz 007D3569
|
|||
|
|
007D3570 51 push ecx
|
|||
|
|
007D3571 874DFC xchg [ebp-$04], ecx
|
|||
|
|
007D3574 53 push ebx
|
|||
|
|
007D3575 8945FC mov [ebp-$04], eax
|
|||
|
|
007D3578 33C0 xor eax, eax
|
|||
|
|
007D357A 55 push ebp
|
|||
|
|
007D357B 6818387D00 push $007D3818
|
|||
|
|
|
|||
|
|
***** TRY
|
|||
|
|
|
|
|||
|
|
007D3580 64FF30 push dword ptr fs:[eax]
|
|||
|
|
007D3583 648920 mov fs:[eax], esp
|
|||
|
|
007D3586 80390D cmp byte ptr [ecx], $0D
|
|||
|
|
007D3589 0F8516020000 jnz 007D37A5
|
|||
|
|
007D358F 8D55F0 lea edx, [ebp-$10]
|
|||
|
|
007D3592 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.OrderNoM : TEdit
|
|||
|
|
|
|
|||
|
|
007D3595 8B8030030000 mov eax, [eax+$0330]
|
|||
|
|
|
|||
|
|
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
|||
|
|
|
|
|||
|
|
007D359B E85050CBFF call 004885F0
|
|||
|
|
007D35A0 8B45F0 mov eax, [ebp-$10]
|
|||
|
|
007D35A3 8D55F4 lea edx, [ebp-$0C]
|
|||
|
|
|
|||
|
|
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
|||
|
|
|
|
|||
|
|
007D35A6 E84173C3FF call 0040A8EC
|
|||
|
|
007D35AB 8B45F4 mov eax, [ebp-$0C]
|
|||
|
|
|
|||
|
|
* Reference to: System.@LStrLen(String):Integer;
|
|||
|
|
| or: System.@DynArrayLength;
|
|||
|
|
| or: System.DynArraySize(Pointer):Integer;
|
|||
|
|
| or: Variants.DynArraySize(Pointer):Integer;
|
|||
|
|
|
|
|||
|
|
007D35AE E84120C3FF call 004055F4
|
|||
|
|
007D35B3 83F804 cmp eax, +$04
|
|||
|
|
007D35B6 0F8CE9010000 jl 007D37A5
|
|||
|
|
007D35BC 682C387D00 push $007D382C
|
|||
|
|
007D35C1 8D55E8 lea edx, [ebp-$18]
|
|||
|
|
007D35C4 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.OrderNoM : TEdit
|
|||
|
|
|
|
|||
|
|
007D35C7 8B8030030000 mov eax, [eax+$0330]
|
|||
|
|
|
|||
|
|
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
|||
|
|
|
|
|||
|
|
007D35CD E81E50CBFF call 004885F0
|
|||
|
|
007D35D2 8B45E8 mov eax, [ebp-$18]
|
|||
|
|
007D35D5 8D55EC lea edx, [ebp-$14]
|
|||
|
|
|
|||
|
|
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
|||
|
|
|
|
|||
|
|
007D35D8 E80F73C3FF call 0040A8EC
|
|||
|
|
007D35DD FF75EC push dword ptr [ebp-$14]
|
|||
|
|
007D35E0 682C387D00 push $007D382C
|
|||
|
|
007D35E5 8D45F8 lea eax, [ebp-$08]
|
|||
|
|
007D35E8 BA03000000 mov edx, $00000003
|
|||
|
|
|
|||
|
|
* Reference to: System.@LStrCatN;
|
|||
|
|
|
|
|||
|
|
007D35ED E8C220C3FF call 004056B4
|
|||
|
|
007D35F2 33C0 xor eax, eax
|
|||
|
|
007D35F4 55 push ebp
|
|||
|
|
007D35F5 689E377D00 push $007D379E
|
|||
|
|
|
|||
|
|
***** TRY
|
|||
|
|
|
|
|||
|
|
007D35FA 64FF30 push dword ptr fs:[eax]
|
|||
|
|
007D35FD 648920 mov fs:[eax], esp
|
|||
|
|
007D3600 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.ADOQueryMain : TADOQuery
|
|||
|
|
|
|
|||
|
|
007D3603 8B8020030000 mov eax, [eax+$0320]
|
|||
|
|
|
|||
|
|
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
|||
|
|
|
|
|||
|
|
007D3609 E8463FCFFF call 004C7554
|
|||
|
|
007D360E 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.ADOQueryMain : TADOQuery
|
|||
|
|
|
|
|||
|
|
007D3611 8B9820030000 mov ebx, [eax+$0320]
|
|||
|
|
007D3617 33D2 xor edx, edx
|
|||
|
|
007D3619 8BC3 mov eax, ebx
|
|||
|
|
007D361B 8B08 mov ecx, [eax]
|
|||
|
|
|
|||
|
|
* Possible reference to virtual method TADOQuery.OFFS_0190
|
|||
|
|
|
|
|||
|
|
007D361D FF9190010000 call dword ptr [ecx+$0190]
|
|||
|
|
007D3623 8BC3 mov eax, ebx
|
|||
|
|
|
|||
|
|
* Reference to: DB.TDataSet.Close(TDataSet);
|
|||
|
|
|
|
|||
|
|
007D3625 E8AA22CFFF call 004C58D4
|
|||
|
|
007D362A 8BC3 mov eax, ebx
|
|||
|
|
|
|||
|
|
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
|||
|
|
|
|
|||
|
|
007D362C E87BA9D0FF call 004DDFAC
|
|||
|
|
007D3631 8B10 mov edx, [eax]
|
|||
|
|
|
|||
|
|
* Possible reference to virtual method TADOQuery.OFFS_44
|
|||
|
|
|
|
|||
|
|
007D3633 FF5244 call dword ptr [edx+$44]
|
|||
|
|
007D3636 8BC3 mov eax, ebx
|
|||
|
|
|
|||
|
|
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
|||
|
|
|
|
|||
|
|
007D3638 E86FA9D0FF call 004DDFAC
|
|||
|
|
|
|||
|
|
* Possible String Reference to: 'exec P_View_Order :begdate,:enddate
|
|||
|
|
| ,:WSql'
|
|||
|
|
|
|
|||
|
|
007D363D BA38387D00 mov edx, $007D3838
|
|||
|
|
007D3642 8B08 mov ecx, [eax]
|
|||
|
|
|
|||
|
|
* Possible reference to virtual method TADOQuery.OFFS_38
|
|||
|
|
|
|
|||
|
|
007D3644 FF5138 call dword ptr [ecx+$38]
|
|||
|
|
007D3647 8D55E4 lea edx, [ebp-$1C]
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmPbProductList.Tv1CellDblClick(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
007D3918 55 push ebp
|
|||
|
|
007D3919 8BEC mov ebp, esp
|
|||
|
|
007D391B 56 push esi
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.ToolButton3 : TToolButton
|
|||
|
|
|
|
|||
|
|
007D391C 8B80AC030000 mov eax, [eax+$03AC]
|
|||
|
|
007D3922 66BEEBFF mov si, $FFEB
|
|||
|
|
|
|||
|
|
* Reference to: System.@CallDynaInst;
|
|||
|
|
|
|
|||
|
|
007D3926 E8290CC3FF call 00404554
|
|||
|
|
007D392B 5E pop esi
|
|||
|
|
007D392C 5D pop ebp
|
|||
|
|
007D392D C20C00 ret $000C
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmPbProductList._PROC_007D28C5(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
007D28C5 8BEC mov ebp, esp
|
|||
|
|
007D28C7 B905000000 mov ecx, $00000005
|
|||
|
|
007D28CC 6A00 push $00
|
|||
|
|
007D28CE 6A00 push $00
|
|||
|
|
007D28D0 49 dec ecx
|
|||
|
|
007D28D1 75F9 jnz 007D28CC
|
|||
|
|
007D28D3 53 push ebx
|
|||
|
|
007D28D4 8945FC mov [ebp-$04], eax
|
|||
|
|
007D28D7 33C0 xor eax, eax
|
|||
|
|
007D28D9 55 push ebp
|
|||
|
|
|
|||
|
|
* Possible String Reference to: '<27><> <20><><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
|||
|
|
|
|
|||
|
|
007D28DA 686A2A7D00 push $007D2A6A
|
|||
|
|
|
|||
|
|
***** TRY
|
|||
|
|
|
|
|||
|
|
007D28DF 64FF30 push dword ptr fs:[eax]
|
|||
|
|
007D28E2 648920 mov fs:[eax], esp
|
|||
|
|
007D28E5 33C0 xor eax, eax
|
|||
|
|
007D28E7 55 push ebp
|
|||
|
|
007D28E8 68402A7D00 push $007D2A40
|
|||
|
|
|
|||
|
|
***** TRY
|
|||
|
|
|
|
|||
|
|
007D28ED 64FF30 push dword ptr fs:[eax]
|
|||
|
|
007D28F0 648920 mov fs:[eax], esp
|
|||
|
|
007D28F3 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.ADOQueryMain : TADOQuery
|
|||
|
|
|
|
|||
|
|
007D28F6 8B8020030000 mov eax, [eax+$0320]
|
|||
|
|
|
|||
|
|
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
|||
|
|
|
|
|||
|
|
007D28FC E8534CCFFF call 004C7554
|
|||
|
|
007D2901 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.ADOQueryMain : TADOQuery
|
|||
|
|
|
|
|||
|
|
007D2904 8B9820030000 mov ebx, [eax+$0320]
|
|||
|
|
007D290A 33D2 xor edx, edx
|
|||
|
|
007D290C 8BC3 mov eax, ebx
|
|||
|
|
007D290E 8B08 mov ecx, [eax]
|
|||
|
|
|
|||
|
|
* Possible reference to virtual method TADOQuery.OFFS_0190
|
|||
|
|
|
|
|||
|
|
007D2910 FF9190010000 call dword ptr [ecx+$0190]
|
|||
|
|
007D2916 8BC3 mov eax, ebx
|
|||
|
|
|
|||
|
|
* Reference to: DB.TDataSet.Close(TDataSet);
|
|||
|
|
|
|
|||
|
|
007D2918 E8B72FCFFF call 004C58D4
|
|||
|
|
007D291D 8BC3 mov eax, ebx
|
|||
|
|
|
|||
|
|
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
|||
|
|
|
|
|||
|
|
007D291F E888B6D0FF call 004DDFAC
|
|||
|
|
007D2924 8B10 mov edx, [eax]
|
|||
|
|
|
|||
|
|
* Possible reference to virtual method TADOQuery.OFFS_44
|
|||
|
|
|
|
|||
|
|
007D2926 FF5244 call dword ptr [edx+$44]
|
|||
|
|
007D2929 8BC3 mov eax, ebx
|
|||
|
|
|
|||
|
|
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
|||
|
|
|
|
|||
|
|
007D292B E87CB6D0FF call 004DDFAC
|
|||
|
|
|
|||
|
|
* Possible String Reference to: 'exec ClothContract_QryList :MainId,
|
|||
|
|
| :WSql'
|
|||
|
|
|
|
|||
|
|
007D2930 BA802A7D00 mov edx, $007D2A80
|
|||
|
|
007D2935 8B08 mov ecx, [eax]
|
|||
|
|
|
|||
|
|
* Possible reference to virtual method TADOQuery.OFFS_38
|
|||
|
|
|
|
|||
|
|
007D2937 FF5138 call dword ptr [ecx+$38]
|
|||
|
|
|
|||
|
|
* Possible String Reference to: ' and FillTime>=''
|
|||
|
|
|
|
|||
|
|
007D293A 68B42A7D00 push $007D2AB4
|
|||
|
|
007D293F 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.BegDate : TDateTimePicker
|
|||
|
|
|
|
|||
|
|
007D2942 8B800C030000 mov eax, [eax+$030C]
|
|||
|
|
007D2948 FFB014020000 push dword ptr [eax+$0214]
|
|||
|
|
007D294E FFB010020000 push dword ptr [eax+$0210]
|
|||
|
|
007D2954 8D55E0 lea edx, [ebp-$20]
|
|||
|
|
|
|||
|
|
* Possible String Reference to: 'yyyy-MM-dd'
|
|||
|
|
|
|
|||
|
|
007D2957 B8D02A7D00 mov eax, $007D2AD0
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
007D295C E85BC2C3FF call 0040EBBC
|
|||
|
|
007D2961 8B45E0 mov eax, [ebp-$20]
|
|||
|
|
007D2964 8D55E4 lea edx, [ebp-$1C]
|
|||
|
|
|
|||
|
|
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
|||
|
|
|
|
|||
|
|
007D2967 E8807FC3FF call 0040A8EC
|
|||
|
|
007D296C FF75E4 push dword ptr [ebp-$1C]
|
|||
|
|
007D296F 68E42A7D00 push $007D2AE4
|
|||
|
|
|
|||
|
|
* Possible String Reference to: ' and FillTime<''
|
|||
|
|
|
|
|||
|
|
007D2974 68F02A7D00 push $007D2AF0
|
|||
|
|
007D2979 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.EndDate : TDateTimePicker
|
|||
|
|
|
|
|||
|
|
007D297C 8B8010030000 mov eax, [eax+$0310]
|
|||
|
|
007D2982 DD8010020000 fld qword ptr [eax+$0210]
|
|||
|
|
007D2988 D805002B7D00 fadd dword ptr [$007D2B00]
|
|||
|
|
007D298E 83C4F8 add esp, -$08
|
|||
|
|
007D2991 DD1C24 fstp qword ptr [esp]
|
|||
|
|
007D2994 9B wait
|
|||
|
|
007D2995 8D55D8 lea edx, [ebp-$28]
|
|||
|
|
|
|||
|
|
* Possible String Reference to: 'yyyy-MM-dd'
|
|||
|
|
|
|
|||
|
|
007D2998 B8D02A7D00 mov eax, $007D2AD0
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
007D299D E81AC2C3FF call 0040EBBC
|
|||
|
|
007D29A2 8B45D8 mov eax, [ebp-$28]
|
|||
|
|
007D29A5 8D55DC lea edx, [ebp-$24]
|
|||
|
|
|
|||
|
|
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
|||
|
|
|
|
|||
|
|
007D29A8 E83F7FC3FF call 0040A8EC
|
|||
|
|
007D29AD FF75DC push dword ptr [ebp-$24]
|
|||
|
|
007D29B0 68E42A7D00 push $007D2AE4
|
|||
|
|
007D29B5 8D45E8 lea eax, [ebp-$18]
|
|||
|
|
007D29B8 BA06000000 mov edx, $00000006
|
|||
|
|
|
|||
|
|
* Reference to: System.@LStrCatN;
|
|||
|
|
|
|
|||
|
|
007D29BD E8F22CC3FF call 004056B4
|
|||
|
|
007D29C2 8B55E8 mov edx, [ebp-$18]
|
|||
|
|
007D29C5 8D45EC lea eax, [ebp-$14]
|
|||
|
|
|
|||
|
|
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
|||
|
|
|
|
|||
|
|
007D29C8 E8FB63C4FF call 00418DC8
|
|||
|
|
007D29CD 8D45EC lea eax, [ebp-$14]
|
|||
|
|
007D29D0 50 push eax
|
|||
|
|
007D29D1 8BC3 mov eax, ebx
|
|||
|
|
|
|||
|
|
* Reference to: ADODB.TCustomADODataSet.GetParameters(TCustomADODataSet):TParameters;
|
|||
|
|
|
|
|||
|
|
007D29D3 E81899D0FF call 004DC2F0
|
|||
|
|
007D29D8 BA082B7D00 mov edx, $007D2B08
|
|||
|
|
|
|||
|
|
* Reference to: ADODB.TParameters.ParamByName(TParameters;WideString):TParameter;
|
|||
|
|
|
|
|||
|
|
007D29DD E81E1AD0FF call 004D4400
|
|||
|
|
007D29E2 5A pop edx
|
|||
|
|
|
|||
|
|
* Reference to: ADODB.TParameter.SetValue(TParameter;Variant;Variant);
|
|||
|
|
|
|
|||
|
|
007D29E3 E8DC2CD0FF call 004D56C4
|
|||
|
|
007D29E8 8BC3 mov eax, ebx
|
|||
|
|
|
|||
|
|
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
|||
|
|
|
|
|||
|
|
007D29EA E8E5B4D0FF call 004DDED4
|
|||
|
|
007D29EF 8BC3 mov eax, ebx
|
|||
|
|
|
|||
|
|
* Reference to: DB.TDataSet.Open(TDataSet);
|
|||
|
|
|
|
|||
|
|
007D29F1 E8D22ECFFF call 004C58C8
|
|||
|
|
007D29F6 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.Order_Main : TClientDataSet
|
|||
|
|
|
|
|||
|
|
007D29F9 8B9034030000 mov edx, [eax+$0334]
|
|||
|
|
007D29FF 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.ADOQueryMain : TADOQuery
|
|||
|
|
|
|
|||
|
|
007D2A02 8B8020030000 mov eax, [eax+$0320]
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
007D2A08 E88344FEFF call 007B6E90
|
|||
|
|
007D2A0D 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.Order_Main : TClientDataSet
|
|||
|
|
|
|
|||
|
|
007D2A10 8B9034030000 mov edx, [eax+$0334]
|
|||
|
|
007D2A16 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.ADOQueryMain : TADOQuery
|
|||
|
|
|
|
|||
|
|
007D2A19 8B8020030000 mov eax, [eax+$0320]
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
007D2A1F E8F445FEFF call 007B7018
|
|||
|
|
007D2A24 33C0 xor eax, eax
|
|||
|
|
007D2A26 5A pop edx
|
|||
|
|
007D2A27 59 pop ecx
|
|||
|
|
007D2A28 59 pop ecx
|
|||
|
|
007D2A29 648910 mov fs:[eax], edx
|
|||
|
|
|
|||
|
|
****** FINALLY
|
|||
|
|
|
|
|||
|
|
007D2A2C 68472A7D00 push $007D2A47
|
|||
|
|
007D2A31 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.ADOQueryMain : TADOQuery
|
|||
|
|
|
|
|||
|
|
007D2A34 8B8020030000 mov eax, [eax+$0320]
|
|||
|
|
|
|||
|
|
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
|||
|
|
|
|
|||
|
|
007D2A3A E8354BCFFF call 004C7574
|
|||
|
|
007D2A3F C3 ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
* Reference to: System.@HandleFinally;
|
|||
|
|
|
|
|||
|
|
007D2A40 E9AF20C3FF jmp 00404AF4
|
|||
|
|
007D2A45 EBEA jmp 007D2A31
|
|||
|
|
|
|||
|
|
****** END
|
|||
|
|
|
|
|||
|
|
007D2A47 33C0 xor eax, eax
|
|||
|
|
007D2A49 5A pop edx
|
|||
|
|
007D2A4A 59 pop ecx
|
|||
|
|
007D2A4B 59 pop ecx
|
|||
|
|
007D2A4C 648910 mov fs:[eax], edx
|
|||
|
|
|
|||
|
|
****** FINALLY
|
|||
|
|
|
|
|||
|
|
|
|||
|
|
* Possible String Reference to: '[<5B><>]<5D>'
|
|||
|
|
|
|
|||
|
|
007D2A4F 68712A7D00 push $007D2A71
|
|||
|
|
007D2A54 8D45D8 lea eax, [ebp-$28]
|
|||
|
|
007D2A57 BA05000000 mov edx, $00000005
|
|||
|
|
|
|||
|
|
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
|||
|
|
|
|
|||
|
|
007D2A5C E8E728C3FF call 00405348
|
|||
|
|
007D2A61 8D45EC lea eax, [ebp-$14]
|
|||
|
|
|
|||
|
|
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
|||
|
|
|
|
|||
|
|
007D2A64 E80B1CC4FF call 00414674
|
|||
|
|
007D2A69 C3 ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
* Reference to: System.@HandleFinally;
|
|||
|
|
|
|
|||
|
|
007D2A6A E98520C3FF jmp 00404AF4
|
|||
|
|
007D2A6F EBE3 jmp 007D2A54
|
|||
|
|
|
|||
|
|
****** END
|
|||
|
|
|
|
|||
|
|
007D2A71 5B pop ebx
|
|||
|
|
007D2A72 8BE5 mov esp, ebp
|
|||
|
|
007D2A74 5D pop ebp
|
|||
|
|
007D2A75 C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmPbProductList._PROC_007D2B15(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
007D2B15 8BEC mov ebp, esp
|
|||
|
|
007D2B17 B905000000 mov ecx, $00000005
|
|||
|
|
007D2B1C 6A00 push $00
|
|||
|
|
007D2B1E 6A00 push $00
|
|||
|
|
007D2B20 49 dec ecx
|
|||
|
|
007D2B21 75F9 jnz 007D2B1C
|
|||
|
|
007D2B23 53 push ebx
|
|||
|
|
007D2B24 8945FC mov [ebp-$04], eax
|
|||
|
|
007D2B27 33C0 xor eax, eax
|
|||
|
|
007D2B29 55 push ebp
|
|||
|
|
007D2B2A 68B32C7D00 push $007D2CB3
|
|||
|
|
|
|||
|
|
***** TRY
|
|||
|
|
|
|
|||
|
|
007D2B2F 64FF30 push dword ptr fs:[eax]
|
|||
|
|
007D2B32 648920 mov fs:[eax], esp
|
|||
|
|
007D2B35 33C0 xor eax, eax
|
|||
|
|
007D2B37 55 push ebp
|
|||
|
|
007D2B38 68892C7D00 push $007D2C89
|
|||
|
|
|
|||
|
|
***** TRY
|
|||
|
|
|
|
|||
|
|
007D2B3D 64FF30 push dword ptr fs:[eax]
|
|||
|
|
007D2B40 648920 mov fs:[eax], esp
|
|||
|
|
007D2B43 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.ADOQueryMain : TADOQuery
|
|||
|
|
|
|
|||
|
|
007D2B46 8B8020030000 mov eax, [eax+$0320]
|
|||
|
|
|
|||
|
|
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
|||
|
|
|
|
|||
|
|
007D2B4C E8034ACFFF call 004C7554
|
|||
|
|
007D2B51 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.ADOQueryMain : TADOQuery
|
|||
|
|
|
|
|||
|
|
007D2B54 8B9820030000 mov ebx, [eax+$0320]
|
|||
|
|
007D2B5A 33D2 xor edx, edx
|
|||
|
|
007D2B5C 8BC3 mov eax, ebx
|
|||
|
|
007D2B5E 8B08 mov ecx, [eax]
|
|||
|
|
|
|||
|
|
* Possible reference to virtual method TADOQuery.OFFS_0190
|
|||
|
|
|
|
|||
|
|
007D2B60 FF9190010000 call dword ptr [ecx+$0190]
|
|||
|
|
007D2B66 8BC3 mov eax, ebx
|
|||
|
|
|
|||
|
|
* Reference to: DB.TDataSet.Close(TDataSet);
|
|||
|
|
|
|
|||
|
|
007D2B68 E8672DCFFF call 004C58D4
|
|||
|
|
007D2B6D 8BC3 mov eax, ebx
|
|||
|
|
|
|||
|
|
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
|||
|
|
|
|
|||
|
|
007D2B6F E838B4D0FF call 004DDFAC
|
|||
|
|
007D2B74 8B10 mov edx, [eax]
|
|||
|
|
|
|||
|
|
* Possible reference to virtual method TADOQuery.OFFS_44
|
|||
|
|
|
|
|||
|
|
007D2B76 FF5244 call dword ptr [edx+$44]
|
|||
|
|
007D2B79 8BC3 mov eax, ebx
|
|||
|
|
|
|||
|
|
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
|||
|
|
|
|
|||
|
|
007D2B7B E82CB4D0FF call 004DDFAC
|
|||
|
|
|
|||
|
|
* Possible String Reference to: 'exec Order_QryList :MainId,:WSql'
|
|||
|
|
|
|
|||
|
|
007D2B80 BAC82C7D00 mov edx, $007D2CC8
|
|||
|
|
007D2B85 8B08 mov ecx, [eax]
|
|||
|
|
|
|||
|
|
* Possible reference to virtual method TADOQuery.OFFS_38
|
|||
|
|
|
|
|||
|
|
007D2B87 FF5138 call dword ptr [ecx+$38]
|
|||
|
|
|
|||
|
|
* Possible String Reference to: ' and FillTime>=''
|
|||
|
|
|
|
|||
|
|
007D2B8A 68F42C7D00 push $007D2CF4
|
|||
|
|
007D2B8F 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.BegDate : TDateTimePicker
|
|||
|
|
|
|
|||
|
|
007D2B92 8B800C030000 mov eax, [eax+$030C]
|
|||
|
|
007D2B98 FFB014020000 push dword ptr [eax+$0214]
|
|||
|
|
007D2B9E FFB010020000 push dword ptr [eax+$0210]
|
|||
|
|
007D2BA4 8D55E0 lea edx, [ebp-$20]
|
|||
|
|
|
|||
|
|
* Possible String Reference to: 'yyyy-MM-dd'
|
|||
|
|
|
|
|||
|
|
007D2BA7 B8102D7D00 mov eax, $007D2D10
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
007D2BAC E80BC0C3FF call 0040EBBC
|
|||
|
|
007D2BB1 8B45E0 mov eax, [ebp-$20]
|
|||
|
|
007D2BB4 8D55E4 lea edx, [ebp-$1C]
|
|||
|
|
|
|||
|
|
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
|||
|
|
|
|
|||
|
|
007D2BB7 E8307DC3FF call 0040A8EC
|
|||
|
|
007D2BBC FF75E4 push dword ptr [ebp-$1C]
|
|||
|
|
007D2BBF 68242D7D00 push $007D2D24
|
|||
|
|
|
|||
|
|
* Possible String Reference to: ' and FillTime<''
|
|||
|
|
|
|
|||
|
|
007D2BC4 68302D7D00 push $007D2D30
|
|||
|
|
007D2BC9 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.EndDate : TDateTimePicker
|
|||
|
|
|
|
|||
|
|
007D2BCC 8B8010030000 mov eax, [eax+$0310]
|
|||
|
|
007D2BD2 DD8010020000 fld qword ptr [eax+$0210]
|
|||
|
|
007D2BD8 D805402D7D00 fadd dword ptr [$007D2D40]
|
|||
|
|
007D2BDE 83C4F8 add esp, -$08
|
|||
|
|
007D2BE1 DD1C24 fstp qword ptr [esp]
|
|||
|
|
007D2BE4 9B wait
|
|||
|
|
007D2BE5 8D55D8 lea edx, [ebp-$28]
|
|||
|
|
|
|||
|
|
* Possible String Reference to: 'yyyy-MM-dd'
|
|||
|
|
|
|
|||
|
|
007D2BE8 B8102D7D00 mov eax, $007D2D10
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
007D2BED E8CABFC3FF call 0040EBBC
|
|||
|
|
007D2BF2 8B45D8 mov eax, [ebp-$28]
|
|||
|
|
007D2BF5 8D55DC lea edx, [ebp-$24]
|
|||
|
|
|
|||
|
|
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
|||
|
|
|
|
|||
|
|
007D2BF8 E8EF7CC3FF call 0040A8EC
|
|||
|
|
007D2BFD FF75DC push dword ptr [ebp-$24]
|
|||
|
|
007D2C00 68242D7D00 push $007D2D24
|
|||
|
|
007D2C05 8D45E8 lea eax, [ebp-$18]
|
|||
|
|
007D2C08 BA06000000 mov edx, $00000006
|
|||
|
|
|
|||
|
|
* Reference to: System.@LStrCatN;
|
|||
|
|
|
|
|||
|
|
007D2C0D E8A22AC3FF call 004056B4
|
|||
|
|
007D2C12 8B55E8 mov edx, [ebp-$18]
|
|||
|
|
007D2C15 8D45EC lea eax, [ebp-$14]
|
|||
|
|
|
|||
|
|
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
|||
|
|
|
|
|||
|
|
007D2C18 E8AB61C4FF call 00418DC8
|
|||
|
|
007D2C1D 8D45EC lea eax, [ebp-$14]
|
|||
|
|
007D2C20 50 push eax
|
|||
|
|
007D2C21 8BC3 mov eax, ebx
|
|||
|
|
|
|||
|
|
* Reference to: ADODB.TCustomADODataSet.GetParameters(TCustomADODataSet):TParameters;
|
|||
|
|
|
|
|||
|
|
007D2C23 E8C896D0FF call 004DC2F0
|
|||
|
|
007D2C28 BA482D7D00 mov edx, $007D2D48
|
|||
|
|
|
|||
|
|
* Reference to: ADODB.TParameters.ParamByName(TParameters;WideString):TParameter;
|
|||
|
|
|
|
|||
|
|
007D2C2D E8CE17D0FF call 004D4400
|
|||
|
|
007D2C32 5A pop edx
|
|||
|
|
|
|||
|
|
* Reference to: ADODB.TParameter.SetValue(TParameter;Variant;Variant);
|
|||
|
|
|
|
|||
|
|
007D2C33 E88C2AD0FF call 004D56C4
|
|||
|
|
007D2C38 8BC3 mov eax, ebx
|
|||
|
|
|
|||
|
|
* Reference to: DB.TDataSet.Open(TDataSet);
|
|||
|
|
|
|
|||
|
|
007D2C3A E8892CCFFF call 004C58C8
|
|||
|
|
007D2C3F 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.Order_Main : TClientDataSet
|
|||
|
|
|
|
|||
|
|
007D2C42 8B9034030000 mov edx, [eax+$0334]
|
|||
|
|
007D2C48 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.ADOQueryMain : TADOQuery
|
|||
|
|
|
|
|||
|
|
007D2C4B 8B8020030000 mov eax, [eax+$0320]
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
007D2C51 E83A42FEFF call 007B6E90
|
|||
|
|
007D2C56 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.Order_Main : TClientDataSet
|
|||
|
|
|
|
|||
|
|
007D2C59 8B9034030000 mov edx, [eax+$0334]
|
|||
|
|
007D2C5F 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.ADOQueryMain : TADOQuery
|
|||
|
|
|
|
|||
|
|
007D2C62 8B8020030000 mov eax, [eax+$0320]
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
007D2C68 E8AB43FEFF call 007B7018
|
|||
|
|
007D2C6D 33C0 xor eax, eax
|
|||
|
|
007D2C6F 5A pop edx
|
|||
|
|
007D2C70 59 pop ecx
|
|||
|
|
007D2C71 59 pop ecx
|
|||
|
|
007D2C72 648910 mov fs:[eax], edx
|
|||
|
|
|
|||
|
|
****** FINALLY
|
|||
|
|
|
|
|||
|
|
007D2C75 68902C7D00 push $007D2C90
|
|||
|
|
007D2C7A 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.ADOQueryMain : TADOQuery
|
|||
|
|
|
|
|||
|
|
007D2C7D 8B8020030000 mov eax, [eax+$0320]
|
|||
|
|
|
|||
|
|
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
|||
|
|
|
|
|||
|
|
007D2C83 E8EC48CFFF call 004C7574
|
|||
|
|
007D2C88 C3 ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
* Reference to: System.@HandleFinally;
|
|||
|
|
|
|
|||
|
|
007D2C89 E9661EC3FF jmp 00404AF4
|
|||
|
|
007D2C8E EBEA jmp 007D2C7A
|
|||
|
|
|
|||
|
|
****** END
|
|||
|
|
|
|
|||
|
|
007D2C90 33C0 xor eax, eax
|
|||
|
|
007D2C92 5A pop edx
|
|||
|
|
007D2C93 59 pop ecx
|
|||
|
|
007D2C94 59 pop ecx
|
|||
|
|
007D2C95 648910 mov fs:[eax], edx
|
|||
|
|
|
|||
|
|
****** FINALLY
|
|||
|
|
|
|
|||
|
|
|
|||
|
|
* Possible String Reference to: '[<5B><>]<5D>'
|
|||
|
|
|
|
|||
|
|
007D2C98 68BA2C7D00 push $007D2CBA
|
|||
|
|
007D2C9D 8D45D8 lea eax, [ebp-$28]
|
|||
|
|
007D2CA0 BA05000000 mov edx, $00000005
|
|||
|
|
|
|||
|
|
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
|||
|
|
|
|
|||
|
|
007D2CA5 E89E26C3FF call 00405348
|
|||
|
|
007D2CAA 8D45EC lea eax, [ebp-$14]
|
|||
|
|
|
|||
|
|
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
|||
|
|
|
|
|||
|
|
007D2CAD E8C219C4FF call 00414674
|
|||
|
|
007D2CB2 C3 ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
* Reference to: System.@HandleFinally;
|
|||
|
|
|
|
|||
|
|
007D2CB3 E93C1EC3FF jmp 00404AF4
|
|||
|
|
007D2CB8 EBE3 jmp 007D2C9D
|
|||
|
|
|
|||
|
|
****** END
|
|||
|
|
|
|
|||
|
|
007D2CBA 5B pop ebx
|
|||
|
|
007D2CBB 8BE5 mov esp, ebp
|
|||
|
|
007D2CBD 5D pop ebp
|
|||
|
|
007D2CBE C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmPbProductList._PROC_007D2D56(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
007D2D56 C4F8 les edi, ax
|
|||
|
|
007D2D58 8BD8 mov ebx, eax
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.ADOQueryTemp : TADOQuery
|
|||
|
|
|
|
|||
|
|
007D2D5A 8B8324030000 mov eax, [ebx+$0324]
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
007D2D60 E8231CFEFF call 007B4988
|
|||
|
|
007D2D65 DD1C24 fstp qword ptr [esp]
|
|||
|
|
007D2D68 9B wait
|
|||
|
|
|
|||
|
|
* Possible String Reference to: '2014-07-11'
|
|||
|
|
|
|
|||
|
|
007D2D69 B84C2E7D00 mov eax, $007D2E4C
|
|||
|
|
|
|||
|
|
* Reference to: SysUtils.StrToDate(AnsiString):TDateTime;overload;
|
|||
|
|
| or: SysUtils.StrToTime(AnsiString):TDateTime;overload;
|
|||
|
|
| or: SysUtils.StrToDateTime(AnsiString):TDateTime;overload;
|
|||
|
|
|
|
|||
|
|
007D2D6E E855C6C3FF call 0040F3C8
|
|||
|
|
007D2D73 DC1C24 fcomp qword ptr [esp]
|
|||
|
|
007D2D76 DFE0 fstsw ax
|
|||
|
|
007D2D78 9E sahf
|
|||
|
|
007D2D79 732A jnb 007D2DA5
|
|||
|
|
007D2D7B 33D2 xor edx, edx
|
|||
|
|
|
|||
|
|
* Reference to control TfrmPbProductList.ToolBar1 : TToolBar
|
|||
|
|
|
|
|||
|
|
007D2D7D 8B83F8020000 mov eax, [ebx+$02F8]
|
|||
|
|
|
|||
|
|
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
|||
|
|
|
|
|||
|
|
007D2D83 E88857CBFF call 00488510
|
|||
|
|
007D2D88 6A00 push $00
|
|||
|
|
|
|||
|
|
* Possible String Reference to: '<27><>ʾ'
|
|||
|
|
|
|
|||
|
|
007D2D8A B9582E7D00 mov ecx, $007D2E58
|
|||
|
|
|
|||
|
|
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5>Ӧ<EFBFBD>̣<EFBFBD>'
|
|||
|
|
|
|
|||
|
|
007D2D8F BA602E7D00 mov edx, $007D2E60
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmPbProductList._PROC_007D3930(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
007D3930 55 push ebp
|
|||
|
|
007D3931 8BEC mov ebp, esp
|
|||
|
|
007D3933 33C0 xor eax, eax
|
|||
|
|
007D3935 55 push ebp
|
|||
|
|
007D3936 6855397D00 push $007D3955
|
|||
|
|
|
|||
|
|
***** TRY
|
|||
|
|
|
|
|||
|
|
007D393B 64FF30 push dword ptr fs:[eax]
|
|||
|
|
007D393E 648920 mov fs:[eax], esp
|
|||
|
|
007D3941 FF058C3C8900 inc dword ptr [$00893C8C]
|
|||
|
|
007D3947 33C0 xor eax, eax
|
|||
|
|
007D3949 5A pop edx
|
|||
|
|
007D394A 59 pop ecx
|
|||
|
|
007D394B 59 pop ecx
|
|||
|
|
007D394C 648910 mov fs:[eax], edx
|
|||
|
|
|
|||
|
|
****** FINALLY
|
|||
|
|
|
|
|||
|
|
|
|||
|
|
* Possible String Reference to: ']Ë<><C38B>-<2D><<3C>'
|
|||
|
|
|
|
|||
|
|
007D394F 685C397D00 push $007D395C
|
|||
|
|
007D3954 C3 ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
* Reference to: System.@HandleFinally;
|
|||
|
|
|
|
|||
|
|
007D3955 E99A11C3FF jmp 00404AF4
|
|||
|
|
007D395A EBF8 jmp 007D3954
|
|||
|
|
|
|||
|
|
****** END
|
|||
|
|
|
|
|||
|
|
007D395C 5D pop ebp
|
|||
|
|
007D395D C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmPbProductList._PROC_007D3960(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
007D3960 832D8C3C890001 sub dword ptr [$00893C8C], +$01
|
|||
|
|
007D3967 C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmPbProductList._PROC_007D3968(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
007D3968 B439 mov ah, $39
|
|||
|
|
007D396A 7D00 jnl 007D396C
|
|||
|
|
007D396C 0000 add [eax], al
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmPbProductList._PROC_007D39CE(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
007D39CE 48 dec eax
|
|||
|
|
007D39CF 0050D4 add [eax-$2C], dl
|
|||
|
|
007D39D2 42 inc edx
|
|||
|
|
007D39D3 0008 add [eax], cl
|
|||
|
|
007D39D5 2D4A007CD0 sub eax, $D07C004A
|
|||
|
|
007D39DA 42 inc edx
|
|||
|
|
007D39DB 00F4 add ah, dh
|
|||
|
|
007D39DD 6B4A00D0 imul ecx, [edx+$00], $D0
|
|||
|
|
007D39E1 1D4A0030F6 sbb eax, $F630004A
|
|||
|
|
007D39E6 48 dec eax
|
|||
|
|
007D39E7 004CFB48 add [ebx+edi*8+$48], cl
|
|||
|
|
007D39EB 0098FA48000C add [eax+$C0048FA], bl
|
|||
|
|
007D39F1 7948 jns 007D3A3B
|
|||
|
|
007D39F3 00ACF04800E829 add [eax+esi*8+$29E80048], ch
|
|||
|
|
007D39FA 4A dec edx
|
|||
|
|
007D39FB 00E4 add ah, ah
|
|||
|
|
007D39FD ED in eax, dx
|
|||
|
|
007D39FE 48 dec eax
|
|||
|
|
007D39FF 00547848 add [eax+edi*2+$48], dl
|
|||
|
|
007D3A03 005878 add [eax+$78], bl
|
|||
|
|
007D3A06 48 dec eax
|
|||
|
|
007D3A07 00DC add ah, bl
|
|||
|
|
007D3A09 2A4A00 sub cl, byte ptr [edx+$00]
|
|||
|
|
007D3A0C 3CA9 cmp al, $A9
|
|||
|
|
007D3A0E 48 dec eax
|
|||
|
|
007D3A0F 00C0 add al, al
|
|||
|
|
007D3A11 834800D0 or dword ptr [eax+$00], -$30
|
|||
|
|
007D3A15 7948 jns 007D3A5F
|
|||
|
|
007D3A17 004C8548 add [ebp+eax*4+$48], cl
|
|||
|
|
007D3A1B 00D0 add al, dl
|
|||
|
|
007D3A1D 2C4A sub al, $4A
|
|||
|
|
007D3A1F 009C2B4A008486 add [ebx+ebp+$8684004A], bl
|
|||
|
|
007D3A26 48 dec eax
|
|||
|
|
007D3A27 00482D add [eax+$2D], cl
|
|||
|
|
007D3A2A 4A dec edx
|
|||
|
|
007D3A2B 00C0 add al, al
|
|||
|
|
007D3A2D A9480038EE test eax, $EE380048
|
|||
|
|
007D3A32 48 dec eax
|
|||
|
|
007D3A33 00F4 add ah, dh
|
|||
|
|
007D3A35 EE out dx, al
|
|||
|
|
007D3A36 48 dec eax
|
|||
|
|
007D3A37 00F0 add al, dh
|
|||
|
|
007D3A39 E94800D8EE jmp EF553A86
|
|||
|
|
007D3A3E 48 dec eax
|
|||
|
|
007D3A3F 00D8 add al, bl
|
|||
|
|
007D3A41 1B4A00 sbb ecx, [edx+$00]
|
|||
|
|
007D3A44 EC in al, dx
|
|||
|
|
007D3A45 334A00 xor ecx, [edx+$00]
|
|||
|
|
007D3A48 20C4 and ah, al
|
|||
|
|
007D3A4A 48 dec eax
|
|||
|
|
007D3A4B 00B0404A0010 add [eax+$10004A40], dh
|
|||
|
|
007D3A51 44 inc esp
|
|||
|
|
007D3A52 4A dec edx
|
|||
|
|
007D3A53 00CC add ah, cl
|
|||
|
|
007D3A55 42 inc edx
|
|||
|
|
007D3A56 4A dec edx
|
|||
|
|
007D3A57 00B8C44800BC add [eax+$BC0048C4], bh
|
|||
|
|
007D3A5D C44800 les ecx, [eax+$00]
|
|||
|
|
007D3A60 48 dec eax
|
|||
|
|
007D3A61 45 inc ebp
|
|||
|
|
007D3A62 4A dec edx
|
|||
|
|
007D3A63 001CC3 add [ebx+eax*8], bl
|
|||
|
|
007D3A66 48 dec eax
|
|||
|
|
007D3A67 0018 add [eax], bl
|
|||
|
|
007D3A69 F0 lock
|
|||
|
|
007D3A6A 48 dec eax
|
|||
|
|
007D3A6B 00444C4A add [esp+ecx*2+$4A], al
|
|||
|
|
007D3A6F 000C02 add [edx+eax], cl
|
|||
|
|
007D3A72 49 dec ecx
|
|||
|
|
007D3A73 0094EC48009C64 add [esp+ebp*8+$649C0048], dl
|
|||
|
|
007D3A7A 4A dec edx
|
|||
|
|
007D3A7B 008C154A003C18 add [ebp+edx+$183C004A], cl
|
|||
|
|
007D3A82 4A dec edx
|
|||
|
|
007D3A83 0038 add [eax], bh
|
|||
|
|
007D3A85 52 push edx
|
|||
|
|
007D3A86 4A dec edx
|
|||
|
|
007D3A87 005C224A add [edx+$4A], bl
|
|||
|
|
007D3A8B 00D8 add al, bl
|
|||
|
|
007D3A8D 224A00 and cl, byte ptr [edx+$00]
|
|||
|
|
007D3A90 7C68 jl 007D3AFA
|
|||
|
|
007D3A92 4A dec edx
|
|||
|
|
007D3A93 00941F4A003C60 add [edi+ebx+$603C004A], dl
|
|||
|
|
007D3A9A 4A dec edx
|
|||
|
|
007D3A9B 001447 add [edi+eax*2], dl
|
|||
|
|
007D3A9E 4A dec edx
|
|||
|
|
007D3A9F 0034654A00CC2C add [$2CCC004A], dh
|
|||
|
|
007D3AA6 4A dec edx
|
|||
|
|
007D3AA7 0023 add [ebx], ah
|
|||
|
|
007D3AA9 00C9 add cl, cl
|
|||
|
|
007D3AAB 3D7D00F802 cmp eax, $02F8007D
|
|||
|
|
007D3AB0 0000 add [eax], al
|
|||
|
|
|
|||
|
|
007D3AB2 0000 add [eax], al
|
|||
|
|
|
|||
|
|
007D3AB4 08546F6F or [edi+ebp*2+$6F], dl
|
|||
|
|
007D3AB8 6C insb
|
|||
|
|
007D3AB9 42 inc edx
|
|||
|
|
007D3ABA 61 popa
|
|||
|
|
007D3ABB 7231 jb 007D3AEE
|
|||
|
|
007D3ABD FC cld
|
|||
|
|
007D3ABE 0200 add al, byte ptr [eax]
|
|||
|
|
007D3AC0 0001 add [ecx], al
|
|||
|
|
007D3AC2 0009 add [ecx], cl
|
|||
|
|
007D3AC4 54 push esp
|
|||
|
|
007D3AC5 42 inc edx
|
|||
|
|
007D3AC6 52 push edx
|
|||
|
|
007D3AC7 61 popa
|
|||
|
|
007D3AC8 667265 jb 007D3B30
|
|||
|
|
007D3ACB 7368 jnb 007D3B35
|
|||
|
|
007D3ACD 0003 add [ebx], al
|
|||
|
|
007D3ACF 0000 add [eax], al
|
|||
|
|
|
|||
|
|
007D3AD1 0100 add [eax], eax
|
|||
|
|
007D3AD3 0554424465 add eax, +$65444254
|
|||
|
|
007D3AD8 6C insb
|
|||
|
|
007D3AD9 0403 add al, +$03
|
|||
|
|
007D3ADB 0000 add [eax], al
|
|||
|
|
|
|||
|
|
007D3ADD 0100 add [eax], eax
|
|||
|
|
007D3ADF 07 pop es
|
|||
|
|
007D3AE0 54 push esp
|
|||
|
|
007D3AE1 42 inc edx
|
|||
|
|
007D3AE2 43 inc ebx
|
|||
|
|
007D3AE3 6C insb
|
|||
|
|
007D3AE4 6F outsd
|
|||
|
|
007D3AE5 7365 jnb 007D3B4C
|
|||
|
|
007D3AE7 0803 or [ebx], al
|
|||
|
|
007D3AE9 0000 add [eax], al
|
|||
|
|
|
|||
|
|
007D3AEB 0200 add al, byte ptr [eax]
|
|||
|
|
007D3AED 0C41 or al, $41
|
|||
|
|
007D3AEF 44 inc esp
|
|||
|
|
007D3AF0 4F dec edi
|
|||
|
|
007D3AF1 51 push ecx
|
|||
|
|
007D3AF2 7565 jnz 007D3B59
|
|||
|
|
007D3AF4 7279 jb 007D3B6F
|
|||
|
|
007D3AF6 54 push esp
|
|||
|
|
007D3AF7 656D insd
|
|||
|
|
007D3AF9 700C jo 007D3B07
|
|||
|
|
007D3AFB 0300 add eax, [eax]
|
|||
|
|
007D3AFD 0002 add [edx], al
|
|||
|
|
007D3AFF 000B add [ebx], cl
|
|||
|
|
007D3B01 41 inc ecx
|
|||
|
|
007D3B02 44 inc esp
|
|||
|
|
007D3B03 4F dec edi
|
|||
|
|
007D3B04 51 push ecx
|
|||
|
|
007D3B05 7565 jnz 007D3B6C
|
|||
|
|
007D3B07 7279 jb 007D3B82
|
|||
|
|
007D3B09 43 inc ebx
|
|||
|
|
007D3B0A 6D insd
|
|||
|
|
007D3B0B 641003 adc fs:[ebx], al
|
|||
|
|
007D3B0E 0000 add [eax], al
|
|||
|
|
|
|||
|
|
007D3B10 0300 add eax, [eax]
|
|||
|
|
007D3B12 06 push es
|
|||
|
|
007D3B13 50 push eax
|
|||
|
|
007D3B14 61 popa
|
|||
|
|
007D3B15 6E outsb
|
|||
|
|
007D3B16 656C insb
|
|||
|
|
007D3B18 311403 xor [ebx+eax], edx
|
|||
|
|
007D3B1B 0000 add [eax], al
|
|||
|
|
|
|||
|
|
007D3B1D 0100 add [eax], eax
|
|||
|
|
007D3B1F 0B546F6F or edx, [edi+ebp*2+$6F]
|
|||
|
|
007D3B23 6C insb
|
|||
|
|
007D3B24 42 inc edx
|
|||
|
|
007D3B25 7574 jnz 007D3B9B
|
|||
|
|
007D3B27 746F jz 007D3B98
|
|||
|
|
007D3B29 6E outsb
|
|||
|
|
007D3B2A 3218 xor bl, byte ptr [eax]
|
|||
|
|
007D3B2C 0300 add eax, [eax]
|
|||
|
|
007D3B2E 0002 add [edx], al
|
|||
|
|
007D3B30 000C41 add [ecx+eax*2], cl
|
|||
|
|
007D3B33 44 inc esp
|
|||
|
|
007D3B34 4F dec edi
|
|||
|
|
007D3B35 51 push ecx
|
|||
|
|
007D3B36 7565 jnz 007D3B9D
|
|||
|
|
007D3B38 7279 jb 007D3BB3
|
|||
|
|
007D3B3A 4D dec ebp
|
|||
|
|
007D3B3B 61 popa
|
|||
|
|
007D3B3C 696E1C03000001 imul ebp, [esi+$1C], $01000003
|
|||
|
|
007D3B43 000B add [ebx], cl
|
|||
|
|
007D3B45 54 push esp
|
|||
|
|
007D3B46 6F outsd
|
|||
|
|
007D3B47 6F outsd
|
|||
|
|
007D3B48 6C insb
|
|||
|
|
007D3B49 42 inc edx
|
|||
|
|
007D3B4A 7574 jnz 007D3BC0
|
|||
|
|
007D3B4C 746F jz 007D3BBD
|
|||
|
|
007D3B4E 6E outsb
|
|||
|
|
007D3B4F 3120 xor [eax], esp
|
|||
|
|
007D3B51 0300 add eax, [eax]
|
|||
|
|
007D3B53 000400 add [eax+eax], al
|
|||
|
|
007D3B56 03524D add edx, [edx+$4D]
|
|||
|
|
007D3B59 312403 xor [ebx+eax], esp
|
|||
|
|
007D3B5C 0000 add [eax], al
|
|||
|
|
|
|||
|
|
007D3B5E 050009524D add eax, +$4D520900
|
|||
|
|
007D3B63 44 inc esp
|
|||
|
|
007D3B64 42 inc edx
|
|||
|
|
007D3B65 5F pop edi
|
|||
|
|
007D3B66 4D dec ebp
|
|||
|
|
007D3B67 61 popa
|
|||
|
|
007D3B68 696E2803000006 imul ebp, [esi+$28], $06000003
|
|||
|
|
007D3B6F 0006 add [esi], al
|
|||
|
|
007D3B71 4C dec esp
|
|||
|
|
007D3B72 61 popa
|
|||
|
|
007D3B73 62656C bound esp, qword ptr [ebp+$6C]
|
|||
|
|
007D3B76 332C03 xor ebp, [ebx+eax]
|
|||
|
|
007D3B79 0000 add [eax], al
|
|||
|
|
|
|||
|
|
007D3B7B 07 pop es
|
|||
|
|
007D3B7C 0007 add [edi], al
|
|||
|
|
007D3B7E 5A pop edx
|
|||
|
|
007D3B7F 64794E jns 007D3BD0
|
|||
|
|
007D3B82 61 popa
|
|||
|
|
007D3B83 6D insd
|
|||
|
|
007D3B84 653003 xor gs:[ebx], al
|
|||
|
|
007D3B87 0000 add [eax], al
|
|||
|
|
|
|||
|
|
007D3B89 0800 or [eax], al
|
|||
|
|
007D3B8B 07 pop es
|
|||
|
|
007D3B8C 637847 arpl [eax+$47], di
|
|||
|
|
007D3B8F 7269 jb 007D3BFA
|
|||
|
|
007D3B91 64323403 xor dh, byte ptr fs:[ebx+eax]
|
|||
|
|
007D3B95 0000 add [eax], al
|
|||
|
|
|
|||
|
|
007D3B97 0900 or [eax], eax
|
|||
|
|
007D3B99 03547632 add edx, [esi+esi*2+$32]
|
|||
|
|
007D3B9D 3803 cmp [ebx], al
|
|||
|
|
007D3B9F 0000 add [eax], al
|
|||
|
|
|
|||
|
|
007D3BA1 0A00 or al, byte ptr [eax]
|
|||
|
|
007D3BA3 0C63 or al, $63
|
|||
|
|
007D3BA5 7847 js 007D3BEE
|
|||
|
|
007D3BA7 7269 jb 007D3C12
|
|||
|
|
007D3BA9 644C dec esp
|
|||
|
|
007D3BAB 657665 jbe 007D3C13
|
|||
|
|
007D3BAE 6C insb
|
|||
|
|
007D3BAF 313C03 xor [ebx+eax], edi
|
|||
|
|
007D3BB2 0000 add [eax], al
|
|||
|
|
|
|||
|
|
007D3BB4 0B00 or eax, [eax]
|
|||
|
|
007D3BB6 106378 adc [ebx+$78], ah
|
|||
|
|
007D3BB9 47 inc edi
|
|||
|
|
007D3BBA 7269 jb 007D3C25
|
|||
|
|
007D3BBC 6450 push eax
|
|||
|
|
007D3BBE 6F outsd
|
|||
|
|
007D3BBF 7075 jo 007D3C36
|
|||
|
|
007D3BC1 704D jo 007D3C10
|
|||
|
|
007D3BC3 656E outsb
|
|||
|
|
007D3BC5 7532 jnz 007D3BF9
|
|||
|
|
007D3BC7 40 inc eax
|
|||
|
|
007D3BC8 0300 add eax, [eax]
|
|||
|
|
007D3BCA 000C00 add [eax+eax], cl
|
|||
|
|
007D3BCD 0544535F48 add eax, +$485F5344
|
|||
|
|
007D3BD2 5A pop edx
|
|||
|
|
007D3BD3 44 inc esp
|
|||
|
|
007D3BD4 0300 add eax, [eax]
|
|||
|
|
007D3BD6 000D00064344 add [$44430600], cl
|
|||
|
|
007D3BDC 53 push ebx
|
|||
|
|
007D3BDD 5F pop edi
|
|||
|
|
007D3BDE 48 dec eax
|
|||
|
|
007D3BDF 5A pop edx
|
|||
|
|
007D3BE0 48 dec eax
|
|||
|
|
007D3BE1 0300 add eax, [eax]
|
|||
|
|
007D3BE3 0001 add [ecx], al
|
|||
|
|
007D3BE5 000B add [ebx], cl
|
|||
|
|
007D3BE7 54 push esp
|
|||
|
|
007D3BE8 6F outsd
|
|||
|
|
007D3BE9 6F outsd
|
|||
|
|
007D3BEA 6C insb
|
|||
|
|
007D3BEB 42 inc edx
|
|||
|
|
007D3BEC 7574 jnz 007D3C62
|
|||
|
|
007D3BEE 746F jz 007D3C5F
|
|||
|
|
007D3BF0 6E outsb
|
|||
|
|
007D3BF1 334C0300 xor ecx, [ebx+eax+$00]
|
|||
|
|
007D3BF5 000E add [esi], cl
|
|||
|
|
007D3BF7 0009 add [ecx], cl
|
|||
|
|
007D3BF9 7632 jbe 007D3C2D
|
|||
|
|
007D3BFB 43 inc ebx
|
|||
|
|
007D3BFC 6F outsd
|
|||
|
|
007D3BFD 6C insb
|
|||
|
|
007D3BFE 756D jnz 007D3C6D
|
|||
|
|
007D3C00 6E outsb
|
|||
|
|
007D3C01 3650 push eax
|
|||
|
|
007D3C03 0300 add eax, [eax]
|
|||
|
|
007D3C05 000E add [esi], cl
|
|||
|
|
007D3C07 0009 add [ecx], cl
|
|||
|
|
007D3C09 7632 jbe 007D3C3D
|
|||
|
|
007D3C0B 43 inc ebx
|
|||
|
|
007D3C0C 6F outsd
|
|||
|
|
007D3C0D 6C insb
|
|||
|
|
007D3C0E 756D jnz 007D3C7D
|
|||
|
|
007D3C10 6E outsb
|
|||
|
|
007D3C11 31540300 xor [ebx+eax+$00], edx
|
|||
|
|
007D3C15 000E add [esi], cl
|
|||
|
|
007D3C17 0009 add [ecx], cl
|
|||
|
|
007D3C19 7632 jbe 007D3C4D
|
|||
|
|
007D3C1B 43 inc ebx
|
|||
|
|
007D3C1C 6F outsd
|
|||
|
|
007D3C1D 6C insb
|
|||
|
|
007D3C1E 756D jnz 007D3C8D
|
|||
|
|
007D3C20 6E outsb
|
|||
|
|
007D3C21 325803 xor bl, byte ptr [eax+$03]
|
|||
|
|
007D3C24 0000 add [eax], al
|
|||
|
|
|
|||
|
|
007D3C26 0E push cs
|
|||
|
|
007D3C27 0009 add [ecx], cl
|
|||
|
|
007D3C29 7632 jbe 007D3C5D
|
|||
|
|
007D3C2B 43 inc ebx
|
|||
|
|
007D3C2C 6F outsd
|
|||
|
|
007D3C2D 6C insb
|
|||
|
|
007D3C2E 756D jnz 007D3C9D
|
|||
|
|
007D3C30 6E outsb
|
|||
|
|
007D3C31 335C0300 xor ebx, [ebx+eax+$00]
|
|||
|
|
007D3C35 000E add [esi], cl
|
|||
|
|
007D3C37 0009 add [ecx], cl
|
|||
|
|
007D3C39 7632 jbe 007D3C6D
|
|||
|
|
007D3C3B 43 inc ebx
|
|||
|
|
007D3C3C 6F outsd
|
|||
|
|
007D3C3D 6C insb
|
|||
|
|
007D3C3E 756D jnz 007D3CAD
|
|||
|
|
007D3C40 6E outsb
|
|||
|
|
007D3C41 3460 xor al, $60
|
|||
|
|
007D3C43 0300 add eax, [eax]
|
|||
|
|
007D3C45 000E add [esi], cl
|
|||
|
|
007D3C47 0009 add [ecx], cl
|
|||
|
|
007D3C49 7632 jbe 007D3C7D
|
|||
|
|
007D3C4B 43 inc ebx
|
|||
|
|
007D3C4C 6F outsd
|
|||
|
|
007D3C4D 6C insb
|
|||
|
|
007D3C4E 756D jnz 007D3CBD
|
|||
|
|
007D3C50 6E outsb
|
|||
|
|
007D3C51 3564030000 xor eax, $00000364
|
|||
|
|
007D3C56 0E push cs
|
|||
|
|
007D3C57 0009 add [ecx], cl
|
|||
|
|
007D3C59 7632 jbe 007D3C8D
|
|||
|
|
007D3C5B 43 inc ebx
|
|||
|
|
007D3C5C 6F outsd
|
|||
|
|
007D3C5D 6C insb
|
|||
|
|
007D3C5E 756D jnz 007D3CCD
|
|||
|
|
007D3C60 6E outsb
|
|||
|
|
007D3C61 37 aaa
|
|||
|
|
007D3C62 680300000E push $0E000003
|
|||
|
|
007D3C67 0009 add [ecx], cl
|
|||
|
|
007D3C69 7632 jbe 007D3C9D
|
|||
|
|
007D3C6B 43 inc ebx
|
|||
|
|
007D3C6C 6F outsd
|
|||
|
|
007D3C6D 6C insb
|
|||
|
|
007D3C6E 756D jnz 007D3CDD
|
|||
|
|
007D3C70 6E outsb
|
|||
|
|
007D3C71 396C0300 cmp [ebx+eax+$00], ebp
|
|||
|
|
007D3C75 0006 add [esi], al
|
|||
|
|
007D3C77 0006 add [esi], al
|
|||
|
|
007D3C79 4C dec esp
|
|||
|
|
007D3C7A 61 popa
|
|||
|
|
007D3C7B 62656C bound esp, qword ptr [ebp+$6C]
|
|||
|
|
007D3C7E 317003 xor [eax+$03], esi
|
|||
|
|
007D3C81 0000 add [eax], al
|
|||
|
|
|
|||
|
|
007D3C83 07 pop es
|
|||
|
|
007D3C84 0007 add [edi], al
|
|||
|
|
007D3C86 5A pop edx
|
|||
|
|
007D3C87 647943 jns 007D3CCD
|
|||
|
|
007D3C8A 6F outsd
|
|||
|
|
007D3C8B 64657403 jz 007D3C92
|
|||
|
|
007D3C8F 0000 add [eax], al
|
|||
|
|
|
|||
|
|
007D3C91 0100 add [eax], eax
|
|||
|
|
007D3C93 0B546F6F or edx, [edi+ebp*2+$6F]
|
|||
|
|
007D3C97 6C insb
|
|||
|
|
007D3C98 42 inc edx
|
|||
|
|
007D3C99 7574 jnz 007D3D0F
|
|||
|
|
007D3C9B 746F jz 007D3D0C
|
|||
|
|
007D3C9D 6E outsb
|
|||
|
|
007D3C9E 3478 xor al, $78
|
|||
|
|
007D3CA0 0300 add eax, [eax]
|
|||
|
|
007D3CA2 000E add [esi], cl
|
|||
|
|
007D3CA4 0009 add [ecx], cl
|
|||
|
|
007D3CA6 7632 jbe 007D3CDA
|
|||
|
|
007D3CA8 43 inc ebx
|
|||
|
|
007D3CA9 6F outsd
|
|||
|
|
007D3CAA 6C insb
|
|||
|
|
007D3CAB 756D jnz 007D3D1A
|
|||
|
|
007D3CAD 6E outsb
|
|||
|
|
007D3CAE 387C0300 cmp [ebx+eax+$00], bh
|
|||
|
|
007D3CB2 0006 add [esi], al
|
|||
|
|
007D3CB4 0006 add [esi], al
|
|||
|
|
007D3CB6 4C dec esp
|
|||
|
|
007D3CB7 61 popa
|
|||
|
|
007D3CB8 62656C bound esp, qword ptr [ebp+$6C]
|
|||
|
|
007D3CBB 32800300000F xor al, byte ptr [eax+$F000003]
|
|||
|
|
007D3CC1 0007 add [edi], al
|
|||
|
|
007D3CC3 44 inc esp
|
|||
|
|
007D3CC4 45 inc ebp
|
|||
|
|
007D3CC5 46 inc esi
|
|||
|
|
007D3CC6 7374 jnb 007D3D3C
|
|||
|
|
007D3CC8 7235 jb 007D3CFF
|
|||
|
|
007D3CCA 0C00 or al, $00
|
|||
|
|
007D3CCC 1200 adc al, byte ptr [eax]
|
|||
|
|
007D3CCE 383F cmp [edi], bh
|
|||
|
|
007D3CD0 7D00 jnl 007D3CD2
|
|||
|
|
007D3CD2 0B466F or eax, [esi+$6F]
|
|||
|
|
007D3CD5 726D jb 007D3D44
|
|||
|
|
007D3CD7 44 inc esp
|
|||
|
|
007D3CD8 657374 jnb 007D3D4F
|
|||
|
|
007D3CDB 726F jb 007D3D4C
|
|||
|
|
007D3CDD 7910 jns 007D3CEF
|
|||
|
|
007D3CDF 00403F add [eax+$3F], al
|
|||
|
|
007D3CE2 7D00 jnl 007D3CE4
|
|||
|
|
007D3CE4 09466F or [esi+$6F], eax
|
|||
|
|
007D3CE7 726D jb 007D3D56
|
|||
|
|
007D3CE9 43 inc ebx
|
|||
|
|
007D3CEA 6C insb
|
|||
|
|
007D3CEB 6F outsd
|
|||
|
|
007D3CEC 7365 jnb 007D3D53
|
|||
|
|
007D3CEE 1300 adc eax, [eax]
|
|||
|
|
007D3CF0 44 inc esp
|
|||
|
|
007D3CF1 3F aas
|
|||
|
|
007D3CF2 7D00 jnl 007D3CF4
|
|||
|
|
007D3CF4 0C54 or al, $54
|
|||
|
|
007D3CF6 42 inc edx
|
|||
|
|
007D3CF7 43 inc ebx
|
|||
|
|
007D3CF8 6C insb
|
|||
|
|
007D3CF9 6F outsd
|
|||
|
|
007D3CFA 7365 jnb 007D3D61
|
|||
|
|
007D3CFC 43 inc ebx
|
|||
|
|
007D3CFD 6C insb
|
|||
|
|
007D3CFE 69636B11008C3F imul esp, [ebx+$6B], $3F8C0011
|
|||
|
|
007D3D05 7D00 jnl 007D3D07
|
|||
|
|
007D3D07 0A544244 or dl, byte ptr [edx+eax*2+$44]
|
|||
|
|
007D3D0B 656C insb
|
|||
|
|
007D3D0D 43 inc ebx
|
|||
|
|
007D3D0E 6C insb
|
|||
|
|
007D3D0F 69636B0F00903F imul esp, [ebx+$6B], $3F90000F
|
|||
|
|
007D3D16 7D00 jnl 007D3D18
|
|||
|
|
007D3D18 08466F or [esi+$6F], al
|
|||
|
|
007D3D1B 726D jb 007D3D8A
|
|||
|
|
007D3D1D 53 push ebx
|
|||
|
|
007D3D1E 686F771500 push $0015776F
|
|||
|
|
007D3D23 D83F fdivr dword ptr [edi]
|
|||
|
|
007D3D25 7D00 jnl 007D3D27
|
|||
|
|
007D3D27 0E push cs
|
|||
|
|
007D3D28 54 push esp
|
|||
|
|
007D3D29 42 inc edx
|
|||
|
|
007D3D2A 52 push edx
|
|||
|
|
007D3D2B 61 popa
|
|||
|
|
007D3D2C 667265 jb 007D3D94
|
|||
|
|
007D3D2F 7368 jnb 007D3D99
|
|||
|
|
007D3D31 43 inc ebx
|
|||
|
|
007D3D32 6C insb
|
|||
|
|
007D3D33 69636B1700E03F imul esp, [ebx+$6B], $3FE00017
|
|||
|
|
007D3D3A 7D00 jnl 007D3D3C
|
|||
|
|
007D3D3C 10546F6F adc [edi+ebp*2+$6F], dl
|
|||
|
|
007D3D40 6C insb
|
|||
|
|
007D3D41 42 inc edx
|
|||
|
|
007D3D42 7574 jnz 007D3DB8
|
|||
|
|
007D3D44 746F jz 007D3DB5
|
|||
|
|
007D3D46 6E outsb
|
|||
|
|
007D3D47 32436C xor al, byte ptr [ebx+$6C]
|
|||
|
|
007D3D4A 69636B14007040 imul esp, [ebx+$6B], $40700014
|
|||
|
|
007D3D51 7D00 jnl 007D3D53
|
|||
|
|
007D3D53 0D5A64794E or eax, $4E79645A
|
|||
|
|
007D3D58 61 popa
|
|||
|
|
007D3D59 6D insd
|
|||
|
|
007D3D5A 6543 inc ebx
|
|||
|
|
007D3D5C 68616E6765 push $65676E61
|
|||
|
|
007D3D61 17 pop ss
|
|||
|
|
007D3D62 0084407D001054 add [eax+eax*2+$5410007D], al
|
|||
|
|
007D3D69 6F outsd
|
|||
|
|
007D3D6A 6F outsd
|
|||
|
|
007D3D6B 6C insb
|
|||
|
|
007D3D6C 42 inc edx
|
|||
|
|
007D3D6D 7574 jnz 007D3DE3
|
|||
|
|
007D3D6F 746F jz 007D3DE0
|
|||
|
|
007D3D71 6E outsb
|
|||
|
|
007D3D72 31436C xor [ebx+$6C], eax
|
|||
|
|
007D3D75 69636B1700C840 imul esp, [ebx+$6B], $40C80017
|
|||
|
|
007D3D7C 7D00 jnl 007D3D7E
|
|||
|
|
007D3D7E 10546F6F adc [edi+ebp*2+$6F], dl
|
|||
|
|
007D3D82 6C insb
|
|||
|
|
007D3D83 42 inc edx
|
|||
|
|
007D3D84 7574 jnz 007D3DFA
|
|||
|
|
007D3D86 746F jz 007D3DF7
|
|||
|
|
007D3D88 6E outsb
|
|||
|
|
007D3D89 3443 xor al, $43
|
|||
|
|
007D3D8B 6C insb
|
|||
|
|
007D3D8C 69636B1700CC40 imul esp, [ebx+$6B], $40CC0017
|
|||
|
|
007D3D93 7D00 jnl 007D3D95
|
|||
|
|
007D3D95 10546F6F adc [edi+ebp*2+$6F], dl
|
|||
|
|
007D3D99 6C insb
|
|||
|
|
007D3D9A 42 inc edx
|
|||
|
|
007D3D9B 7574 jnz 007D3E11
|
|||
|
|
007D3D9D 746F jz 007D3E0E
|
|||
|
|
007D3D9F 6E outsb
|
|||
|
|
007D3DA0 33436C xor eax, [ebx+$6C]
|
|||
|
|
007D3DA3 69636B1200D040 imul esp, [ebx+$6B], $40D00012
|
|||
|
|
007D3DAA 7D00 jnl 007D3DAC
|
|||
|
|
007D3DAC 0B547632 or edx, [esi+esi*2+$32]
|
|||
|
|
007D3DB0 44 inc esp
|
|||
|
|
007D3DB1 626C436C bound ebp, qword ptr [ebx+eax*2+$6C]
|
|||
|
|
007D3DB5 69636B10546672 imul esp, [ebx+$6B], $72665410
|
|||
|
|
007D3DBC 6D insd
|
|||
|
|
007D3DBD 5A pop edx
|
|||
|
|
007D3DBE 647941 jns 007D3E02
|
|||
|
|
007D3DC1 7474 jz 007D3E37
|
|||
|
|
007D3DC3 61 popa
|
|||
|
|
007D3DC4 636847 arpl [eax+$47], bp
|
|||
|
|
007D3DC7 59 pop ecx
|
|||
|
|
007D3DC8 53 push ebx
|
|||
|
|
007D3DC9 1000 adc [eax], al
|
|||
|
|
007D3DCB 28944500648A45 sub [ebp+eax*2+$458A6400], dl
|
|||
|
|
007D3DD2 00B8124D0020 add [eax+$20004D12], bh
|
|||
|
|
007D3DD8 42 inc edx
|
|||
|
|
007D3DD9 44 inc esp
|
|||
|
|
007D3DDA 0064D378 add [ebx+edx*8+$78], ah
|
|||
|
|
007D3DDE 00A80A78001C add [eax+$1C00780A], ch
|
|||
|
|
007D3DE4 5F pop edi
|
|||
|
|
007D3DE5 47 inc edi
|
|||
|
|
007D3DE6 00B867470000 add [eax+$4767], bh
|
|||
|
|
007D3DEC 16 push ss
|
|||
|
|
007D3DED 6300 arpl [eax], ax
|
|||
|
|
007D3DEF F4 hlt
|
|||
|
|
007D3DF0 B466 mov ah, $66
|
|||
|
|
007D3DF2 00A40E64005876 add [esi+ecx+$76580064], ah
|
|||
|
|
007D3DF9 7C00 jl 007D3DFB
|
|||
|
|
007D3DFB 087F4B or [edi+$4B], bh
|
|||
|
|
007D3DFE 0088996A0034 add [eax+$34006A99], cl
|
|||
|
|
007D3E04 B166 mov cl, $66
|
|||
|
|
007D3E06 00F4 add ah, dh
|
|||
|
|
007D3E08 81470090103E7D add dword ptr [edi+$00], $7D3E1090
|
|||
|
|
007D3E0F 0007 add [edi], al
|
|||
|
|
007D3E11 10546672 adc [esi+$72], dl
|
|||
|
|
007D3E15 6D insd
|
|||
|
|
007D3E16 5A pop edx
|
|||
|
|
007D3E17 647941 jns 007D3E5B
|
|||
|
|
007D3E1A 7474 jz 007D3E90
|
|||
|
|
007D3E1C 61 popa
|
|||
|
|
007D3E1D 636847 arpl [eax+$47], bp
|
|||
|
|
007D3E20 59 pop ecx
|
|||
|
|
007D3E21 53 push ebx
|
|||
|
|
007D3E22 B439 mov ah, $39
|
|||
|
|
007D3E24 7D00 jnl 007D3E26
|
|||
|
|
007D3E26 D0F2 DB $D0, $F2 // dl, 1
|
|||
|
|
007D3E28 49 dec ecx
|
|||
|
|
007D3E29 005E00 add [esi+$00], bl
|
|||
|
|
007D3E2C 0E push cs
|
|||
|
|
007D3E2D 55 push ebp
|
|||
|
|
007D3E2E 5F pop edi
|
|||
|
|
007D3E2F 5A pop edx
|
|||
|
|
007D3E30 647941 jns 007D3E74
|
|||
|
|
007D3E33 7474 jz 007D3EA9
|
|||
|
|
007D3E35 61 popa
|
|||
|
|
007D3E36 636847 arpl [eax+$47], bp
|
|||
|
|
007D3E39 59 pop ecx
|
|||
|
|
007D3E3A 53 push ebx
|
|||
|
|
007D3E3B 0000 add [eax], al
|
|||
|
|
|
|||
|
|
007D3E3D 8D4000 lea eax, [eax+$00]
|
|||
|
|
007D3E40 55 push ebp
|
|||
|
|
007D3E41 8BEC mov ebp, esp
|
|||
|
|
007D3E43 51 push ecx
|
|||
|
|
007D3E44 53 push ebx
|
|||
|
|
007D3E45 8945FC mov [ebp-$04], eax
|
|||
|
|
007D3E48 33C0 xor eax, eax
|
|||
|
|
007D3E4A 55 push ebp
|
|||
|
|
007D3E4B 68EE3E7D00 push $007D3EEE
|
|||
|
|
|
|||
|
|
***** TRY
|
|||
|
|
|
|
|||
|
|
007D3E50 64FF30 push dword ptr fs:[eax]
|
|||
|
|
007D3E53 648920 mov fs:[eax], esp
|
|||
|
|
007D3E56 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control Label7 : TLabel
|
|||
|
|
|
|
|||
|
|
007D3E59 8B8018030000 mov eax, [eax+$0318]
|
|||
|
|
|
|||
|
|
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
|||
|
|
|
|
|||
|
|
007D3E5F E8F036CFFF call 004C7554
|
|||
|
|
007D3E64 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control Label7 : TLabel
|
|||
|
|
|
|
|||
|
|
007D3E67 8B9818030000 mov ebx, [eax+$0318]
|
|||
|
|
007D3E6D 33D2 xor edx, edx
|
|||
|
|
007D3E6F 8BC3 mov eax, ebx
|
|||
|
|
007D3E71 8B08 mov ecx, [eax]
|
|||
|
|
|
|||
|
|
* Possible reference to virtual method TLabel.OFFS_0190
|
|||
|
|
|
|
|||
|
|
007D3E73 FF9190010000 call dword ptr [ecx+$0190]
|
|||
|
|
007D3E79 8BC3 mov eax, ebx
|
|||
|
|
|
|||
|
|
* Reference to: DB.TDataSet.Close(TDataSet);
|
|||
|
|
|
|
|||
|
|
007D3E7B E8541ACFFF call 004C58D4
|
|||
|
|
007D3E80 8BC3 mov eax, ebx
|
|||
|
|
|
|||
|
|
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
|||
|
|
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
|||
|
|
|
|
|||
|
|
007D3E82 E825A1D0FF call 004DDFAC
|
|||
|
|
007D3E87 8B10 mov edx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TLabel.GetClientRect()
|
|||
|
|
|
|
|||
|
|
007D3E89 FF5244 call dword ptr [edx+$44]
|
|||
|
|
007D3E8C 8BC3 mov eax, ebx
|
|||
|
|
|
|||
|
|
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
|||
|
|
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
|||
|
|
|
|
|||
|
|
007D3E8E E819A1D0FF call 004DDFAC
|
|||
|
|
|
|||
|
|
* Possible String Reference to: ' select * from KH_Zdy_Attachment wh
|
|||
|
|
| ere Type='GYS' '
|
|||
|
|
|
|
|||
|
|
007D3E93 BA043F7D00 mov edx, $007D3F04
|
|||
|
|
007D3E98 8B08 mov ecx, [eax]
|
|||
|
|
|
|||
|
|
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
|||
|
|
|
|
|||
|
|
007D3E9A FF5138 call dword ptr [ecx+$38]
|
|||
|
|
007D3E9D 8BC3 mov eax, ebx
|
|||
|
|
|
|||
|
|
* Reference to: DB.TDataSet.Open(TDataSet);
|
|||
|
|
|
|
|||
|
|
007D3E9F E8241ACFFF call 004C58C8
|
|||
|
|
007D3EA4 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control DataSource1 : TDataSource
|
|||
|
|
|
|
|||
|
|
007D3EA7 8B9044030000 mov edx, [eax+$0344]
|
|||
|
|
007D3EAD 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control Label7 : TLabel
|
|||
|
|
|
|
|||
|
|
007D3EB0 8B8018030000 mov eax, [eax+$0318]
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
007D3EB6 E8D52FFEFF call 007B6E90
|
|||
|
|
007D3EBB 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control DataSource1 : TDataSource
|
|||
|
|
|
|
|||
|
|
007D3EBE 8B9044030000 mov edx, [eax+$0344]
|
|||
|
|
007D3EC4 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control Label7 : TLabel
|
|||
|
|
|
|
|||
|
|
007D3EC7 8B8018030000 mov eax, [eax+$0318]
|
|||
|
|
|
|||
|
|
|
|
|||
|
|
007D3ECD E84631FEFF call 007B7018
|
|||
|
|
007D3ED2 33C0 xor eax, eax
|
|||
|
|
007D3ED4 5A pop edx
|
|||
|
|
007D3ED5 59 pop ecx
|
|||
|
|
007D3ED6 59 pop ecx
|
|||
|
|
007D3ED7 648910 mov fs:[eax], edx
|
|||
|
|
|
|||
|
|
****** FINALLY
|
|||
|
|
|
|
|||
|
|
|
|||
|
|
* Possible String Reference to: '[Y]<5D>'
|
|||
|
|
|
|
|||
|
|
007D3EDA 68F53E7D00 push $007D3EF5
|
|||
|
|
007D3EDF 8B45FC mov eax, [ebp-$04]
|
|||
|
|
|
|||
|
|
* Reference to control Label7 : TLabel
|
|||
|
|
|
|
|||
|
|
007D3EE2 8B8018030000 mov eax, [eax+$0318]
|
|||
|
|
|
|||
|
|
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
|||
|
|
|
|
|||
|
|
007D3EE8 E88736CFFF call 004C7574
|
|||
|
|
007D3EED C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|