Group_99/D7myChuangpin
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
ece69a5ac1
D7myChuangpin/YSYF/U_YSSKList_KPFK.pas

2772 lines
106 KiB
ObjectPascal
Raw Normal View History

1
2024-07-23 20:18:14 +08:00
unit U_YSSKList_KPFK;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmYSSKList_KPFK=class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel1: TPanel;
ToolButton2: TToolButton;
ADOQueryMain: TADOQuery;
ToolButton1: TToolButton;
RM1: TRMGridReport;
RMDB_Main: TRMDBDataSet;
Label3: TLabel;
Label2: TLabel;
Label6: TLabel;
begdate: TDateTimePicker;
Enddate: TDateTimePicker;
cxGridPopupMenu2: TcxGridPopupMenu;
DS_HZ: TDataSource;
CDS_HZ: TClientDataSet;
cxGrid1: TcxGrid;
TV1: TcxGridDBTableView;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
V1FactoryName: TcxGridDBColumn;
cxSplitter1: TcxSplitter;
FactoryName: TComboBox;
YForder_Sub: TClientDataSet;
DataSource1: TDataSource;
Label7: TLabel;
FKTaitou: TEdit;
V1RMBSQMoney: TcxGridDBColumn;
Panel2: TPanel;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
v2Column2: TcxGridDBColumn;
v2factoryName: TcxGridDBColumn;
v2YFName: TcxGridDBColumn;
v2ComTaiTou: TcxGridDBColumn;
v2Column5: TcxGridDBColumn;
v2P_Spec: TcxGridDBColumn;
v2FKType: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v2QtyUnit: TcxGridDBColumn;
v2Column7: TcxGridDBColumn;
v2KPMoney: TcxGridDBColumn;
v2Money: TcxGridDBColumn;
v2Column10: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Panel3: TPanel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label17: TLabel;
Label18: TLabel;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
ComTaiTou: TcxGridDBColumn;
YFName: TcxGridDBColumn;
Label1: TLabel;
P_CodeName: TEdit;
Label4: TLabel;
P_Spec: TcxGridDBColumn;
V1RMBKPWSK: TcxGridDBColumn;
cxGridPopupMenu1: TcxGridPopupMenu;
v2FKTaitou: TcxGridDBColumn;
V1FKTaitou: TcxGridDBColumn;
procedure FormDestroy(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure TBCloseClick(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure TBRafreshClick(Sender : TObject);
procedure ToolButton2Click(Sender : TObject);
procedure FactoryNameChange(Sender : TObject);
procedure ToolButton1Click(Sender : TObject);
procedure TV1CellClick(Sender : TObject);
procedure YFNameChange(Sender : TObject);
procedure _PROC_008072F8(Sender : TObject);
procedure _PROC_0080745D(Sender : TObject);
procedure _PROC_00807ED0(Sender : TObject);
procedure _PROC_00807F00(Sender : TObject);
procedure _PROC_00807F08(Sender : TObject);
procedure _PROC_00807F6E(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmYSSKList_KPFK: TfrmYSSKList_KPFK;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmYSSKList_KPFK.FormDestroy(Sender : TObject);
begin
(*
0080771C 33C0 xor eax, eax
* Reference to GlobalVar_00893CF0
|
0080771E A3F03C8900 mov dword ptr [$00893CF0], eax
00807723 C3 ret
*)
end;
procedure TfrmYSSKList_KPFK.FormClose(Sender : TObject);
begin
(*
00807724 C60102 mov byte ptr [ecx], $02
00807727 C3 ret
*)
end;
procedure TfrmYSSKList_KPFK.TBCloseClick(Sender : TObject);
begin
(*
00807728 53 push ebx
00807729 8BD8 mov ebx, eax
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
0080772B B968778000 mov ecx, $00807768
* Reference to control TfrmYSSKList_KPFK.TV1 : TcxGridDBTableView
|
00807730 8B9348030000 mov edx, [ebx+$0348]
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD>տ<EFBFBD>ͳ<EFBFBD><CDB3>'
|
00807736 B87C778000 mov eax, $0080777C
|
0080773B E86004FBFF call 007B7BA0
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
00807740 B968778000 mov ecx, $00807768
* Reference to control TfrmYSSKList_KPFK.Tv2 : TcxGridDBTableView
|
00807745 8B9384030000 mov edx, [ebx+$0384]
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD>տ<EFBFBD>ͳ<EFBFBD><CDB3>1'
|
0080774B B894778000 mov eax, $00807794
|
00807750 E84B04FBFF call 007B7BA0
00807755 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00807757 E83CE8C9FF call 004A5F98
0080775C 5B pop ebx
0080775D C3 ret
*)
end;
procedure TfrmYSSKList_KPFK.FormShow(Sender : TObject);
begin
(*
008077A4 55 push ebp
008077A5 8BEC mov ebp, esp
008077A7 6A00 push $00
008077A9 6A00 push $00
008077AB 53 push ebx
008077AC 8BD8 mov ebx, eax
008077AE 33C0 xor eax, eax
008077B0 55 push ebp
* Possible String Reference to: '<27>fҿ<66><D2BF><EFBFBD>[YY]<5D>'
|
008077B1 6889788000 push $00807889
***** TRY
|
008077B6 64FF30 push dword ptr fs:[eax]
008077B9 648920 mov fs:[eax], esp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
008077BC B9A0788000 mov ecx, $008078A0
* Reference to control TfrmYSSKList_KPFK.TV1 : TcxGridDBTableView
|
008077C1 8B9348030000 mov edx, [ebx+$0348]
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD>տ<EFBFBD>ͳ<EFBFBD><CDB3>'
|
008077C7 B8B4788000 mov eax, $008078B4
|
008077CC E8D301FBFF call 007B79A4
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
008077D1 B9A0788000 mov ecx, $008078A0
* Reference to control TfrmYSSKList_KPFK.Tv2 : TcxGridDBTableView
|
008077D6 8B9384030000 mov edx, [ebx+$0384]
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD>տ<EFBFBD>ͳ<EFBFBD><CDB3>1'
|
008077DC B8CC788000 mov eax, $008078CC
|
008077E1 E8BE01FBFF call 007B79A4
* Reference to control TfrmYSSKList_KPFK.ADOQueryTemp : TADOQuery
|
008077E6 8B8304030000 mov eax, [ebx+$0304]
|
008077EC E897D1FAFF call 007B4988
008077F1 83C4F8 add esp, -$08
008077F4 DD1C24 fstp qword ptr [esp]
008077F7 9B wait
* Reference to control TfrmYSSKList_KPFK.Enddate : TDateTimePicker
|
008077F8 8B8334030000 mov eax, [ebx+$0334]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
008077FE E829AAC6FF call 0047222C
* Reference to control TfrmYSSKList_KPFK.Enddate : TDateTimePicker
|
00807803 8B8334030000 mov eax, [ebx+$0334]
00807809 DD8010020000 fld qword ptr [eax+$0210]
0080780F D825DC788000 fsub dword ptr [$008078DC]
00807815 83C4F8 add esp, -$08
00807818 DD1C24 fstp qword ptr [esp]
0080781B 9B wait
* Reference to control TfrmYSSKList_KPFK.begdate : TDateTimePicker
|
0080781C 8B8330030000 mov eax, [ebx+$0330]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
00807822 E805AAC6FF call 0047222C
00807827 8D45FC lea eax, [ebp-$04]
* Possible String Reference to: 'select distinct (A.FactoryName) nam
| e from YF_Money_CR A where A.CRType
| ='Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>' '
|
0080782A BAE8788000 mov edx, $008078E8
* Reference to: System.@LStrLAsg(void;void;void;void);
|
0080782F E888DBBFFF call 004053BC
00807834 8B45FC mov eax, [ebp-$04]
00807837 50 push eax
00807838 33C9 xor ecx, ecx
* Reference to control TfrmYSSKList_KPFK.FactoryName : TComboBox
|
0080783A 8B9364030000 mov edx, [ebx+$0364]
* Reference to control TfrmYSSKList_KPFK.ADOQueryCmd : TADOQuery
|
00807840 8B8308030000 mov eax, [ebx+$0308]
|
00807846 E8FDF9FAFF call 007B7248
0080784B 8D55F8 lea edx, [ebp-$08]
* Reference to field TfrmYSSKList_KPFK.OFFS_0418
|
0080784E 8B8318040000 mov eax, [ebx+$0418]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00807854 E89330C0FF call 0040A8EC
00807859 8B55F8 mov edx, [ebp-$08]
* Reference to control TfrmYSSKList_KPFK.FactoryName : TComboBox
|
0080785C 8B8364030000 mov eax, [ebx+$0364]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00807862 E8B90DC8FF call 00488620
00807867 8BC3 mov eax, ebx
|
00807869 E8E2F3FFFF call 00806C50
0080786E 33C0 xor eax, eax
00807870 5A pop edx
00807871 59 pop ecx
00807872 59 pop ecx
00807873 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[YY]<5D>'
|
00807876 6890788000 push $00807890
0080787B 8D45F8 lea eax, [ebp-$08]
0080787E BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00807883 E8C0DABFFF call 00405348
00807888 C3 ret
* Reference to: System.@HandleFinally;
|
00807889 E966D2BFFF jmp 00404AF4
0080788E EBEB jmp 0080787B
****** END
|
00807890 5B pop ebx
00807891 59 pop ecx
00807892 59 pop ecx
00807893 5D pop ebp
00807894 C3 ret
*)
end;
procedure TfrmYSSKList_KPFK.TBRafreshClick(Sender : TObject);
begin
(*
|
00807940 E80BF3FFFF call 00806C50
00807945 C3 ret
*)
end;
procedure TfrmYSSKList_KPFK.ToolButton2Click(Sender : TObject);
begin
(*
00807948 55 push ebp
00807949 8BEC mov ebp, esp
0080794B 33D2 xor edx, edx
0080794D 55 push ebp
* Possible String Reference to: '<27><>ѿ<EFBFBD><D1BF><EFBFBD>]Í@'
|
0080794E 686C798000 push $0080796C
***** TRY
|
00807953 64FF32 push dword ptr fs:[edx]
00807956 648922 mov fs:[edx], esp
|
00807959 E8F2F2FFFF call 00806C50
0080795E 33C0 xor eax, eax
00807960 5A pop edx
00807961 59 pop ecx
00807962 59 pop ecx
00807963 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Í@'
|
00807966 6873798000 push $00807973
0080796B C3 ret
* Reference to: System.@HandleFinally;
|
0080796C E983D1BFFF jmp 00404AF4
00807971 EBF8 jmp 0080796B
****** END
|
00807973 5D pop ebp
00807974 C3 ret
*)
end;
procedure TfrmYSSKList_KPFK.FactoryNameChange(Sender : TObject);
begin
(*
00807978 56 push esi
* Reference to control TfrmYSSKList_KPFK.ToolButton2 : TToolButton
|
00807979 8B8010030000 mov eax, [eax+$0310]
0080797F 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
00807983 E8CCCBBFFF call 00404554
00807988 5E pop esi
00807989 C3 ret
*)
end;
procedure TfrmYSSKList_KPFK.ToolButton1Click(Sender : TObject);
begin
(*
0080798C 53 push ebx
0080798D 8BD8 mov ebx, eax
* Reference to control TfrmYSSKList_KPFK.ADOQueryMain : TADOQuery
|
0080798F 8B8314030000 mov eax, [ebx+$0314]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00807995 E82605CCFF call 004C7EC0
0080799A 84C0 test al, al
0080799C 7516 jnz 008079B4
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD>տ<EFBFBD>ͳ<EFBFBD><CDB3><EFBFBD>б<EFBFBD>'
|
0080799E B9C0798000 mov ecx, $008079C0
* Reference to control TfrmYSSKList_KPFK.ADOQueryMain : TADOQuery
|
008079A3 8B9314030000 mov edx, [ebx+$0314]
* Reference to control TfrmYSSKList_KPFK.Tv2 : TcxGridDBTableView
|
008079A9 8B8384030000 mov eax, [ebx+$0384]
|
008079AF E87C08FBFF call 007B8230
008079B4 5B pop ebx
008079B5 C3 ret
*)
end;
procedure TfrmYSSKList_KPFK.TV1CellClick(Sender : TObject);
begin
(*
008079D4 55 push ebp
008079D5 8BEC mov ebp, esp
008079D7 51 push ecx
008079D8 B905000000 mov ecx, $00000005
008079DD 6A00 push $00
008079DF 6A00 push $00
008079E1 49 dec ecx
008079E2 75F9 jnz 008079DD
008079E4 874DFC xchg [ebp-$04], ecx
008079E7 53 push ebx
008079E8 56 push esi
008079E9 8BF0 mov esi, eax
008079EB 33C0 xor eax, eax
008079ED 55 push ebp
008079EE 68977C8000 push $00807C97
***** TRY
|
008079F3 64FF30 push dword ptr fs:[eax]
008079F6 648920 mov fs:[eax], esp
* Reference to control TfrmYSSKList_KPFK.CDS_HZ : TClientDataSet
|
008079F9 8B8640030000 mov eax, [esi+$0340]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
008079FF E8BC04CCFF call 004C7EC0
00807A04 84C0 test al, al
00807A06 0F8570020000 jnz 00807C7C
* Reference to control TfrmYSSKList_KPFK.ADOQueryCmd : TADOQuery
|
00807A0C 8B9E08030000 mov ebx, [esi+$0308]
00807A12 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00807A14 E8BBDECBFF call 004C58D4
00807A19 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00807A1B E88C65CDFF call 004DDFAC
00807A20 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00807A22 FF5244 call dword ptr [edx+$44]
00807A25 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00807A27 E88065CDFF call 004DDFAC
* Possible String Reference to: ' select AA.* '
|
00807A2C BAB07C8000 mov edx, $00807CB0
00807A31 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00807A33 FF5138 call dword ptr [ecx+$38]
00807A36 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00807A38 E86F65CDFF call 004DDFAC
* Possible String Reference to: ' from (select A.*'
|
00807A3D BAC87C8000 mov edx, $00807CC8
00807A42 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00807A44 FF5138 call dword ptr [ecx+$38]
00807A47 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00807A49 E85E65CDFF call 004DDFAC
* Possible String Reference to: ' from YF_Money_CR A'
|
00807A4E BAE47C8000 mov edx, $00807CE4
00807A53 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00807A55 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where A.CRTime>=''
|
00807A58 68007D8000 push $00807D00
* Reference to control TfrmYSSKList_KPFK.begdate : TDateTimePicker
|
00807A5D 8B8630030000 mov eax, [esi+$0330]
00807A63 FFB014020000 push dword ptr [eax+$0214]
00807A69 FFB010020000 push dword ptr [eax+$0210]
00807A6F 8D55F8 lea edx, [ebp-$08]
* Possible String Reference to: 'yyyy-MM-dd'
|
00807A72 B81C7D8000 mov eax, $00807D1C
|
00807A77 E84071C0FF call 0040EBBC
00807A7C FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '' '
|
00807A7F 68307D8000 push $00807D30
00807A84 8D45FC lea eax, [ebp-$04]
00807A87 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00807A8C E823DCBFFF call 004056B4
00807A91 8B45FC mov eax, [ebp-$04]
00807A94 50 push eax
00807A95 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00807A97 E81065CDFF call 004DDFAC
00807A9C 5A pop edx
00807A9D 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00807A9F FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' and A.CRTime<''
|
00807AA2 683C7D8000 push $00807D3C
* Reference to control TfrmYSSKList_KPFK.Enddate : TDateTimePicker
|
00807AA7 8B8634030000 mov eax, [esi+$0334]
00807AAD DD8010020000 fld qword ptr [eax+$0210]
00807AB3 D8054C7D8000 fadd dword ptr [$00807D4C]
00807AB9 83C4F8 add esp, -$08
00807ABC DD1C24 fstp qword ptr [esp]
00807ABF 9B wait
00807AC0 8D55F0 lea edx, [ebp-$10]
* Possible String Reference to: 'yyyy-MM-dd'
|
00807AC3 B81C7D8000 mov eax, $00807D1C
|
00807AC8 E8EF70C0FF call 0040EBBC
00807ACD FF75F0 push dword ptr [ebp-$10]
* Possible String Reference to: '' '
|
00807AD0 68307D8000 push $00807D30
00807AD5 8D45F4 lea eax, [ebp-$0C]
00807AD8 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00807ADD E8D2DBBFFF call 004056B4
00807AE2 8B45F4 mov eax, [ebp-$0C]
00807AE5 50 push eax
00807AE6 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00807AE8 E8BF64CDFF call 004DDFAC
00807AED 5A pop edx
00807AEE 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00807AF0 FF5138 call dword ptr [ecx+$38]
00807AF3 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00807AF5 E8B264CDFF call 004DDFAC
* Possible String Reference to: ' and A.CRType='Ӧ<EFBFBD><EFBFBD><EFBFBD>Ʊ<EFBFBD>Ǽ<EFBFBD>' '
|
00807AFA BA587D8000 mov edx, $00807D58
00807AFF 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00807B01 FF5138 call dword ptr [ecx+$38]
00807B04 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00807B06 E8A164CDFF call 004DDFAC
* Possible String Reference to: ' union all'
|
00807B0B BA807D8000 mov edx, $00807D80
00807B10 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00807B12 FF5138 call dword ptr [ecx+$38]
00807B15 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00807B17 E89064CDFF call 004DDFAC
* Possible String Reference to: ' select A.*'
|
00807B1C BA947D8000 mov edx, $00807D94
00807B21 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00807B23 FF5138 call dword ptr [ecx+$38]
00807B26 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00807B28 E87F64CDFF call 004DDFAC
* Possible String Reference to: ' from YF_Money_CR A'
|
00807B2D BAE47C8000 mov edx, $00807CE4
00807B32 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00807B34 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where A.CRTime>=''
|
00807B37 68007D8000 push $00807D00
* Reference to control TfrmYSSKList_KPFK.begdate : TDateTimePicker
|
00807B3C 8B8630030000 mov eax, [esi+$0330]
00807B42 FFB014020000 push dword ptr [eax+$0214]
00807B48 FFB010020000 push dword ptr [eax+$0210]
00807B4E 8D55E8 lea edx, [ebp-$18]
* Possible String Reference to: 'yyyy-MM-dd'
|
00807B51 B81C7D8000 mov eax, $00807D1C
|
00807B56 E86170C0FF call 0040EBBC
00807B5B FF75E8 push dword ptr [ebp-$18]
* Possible String Reference to: '' '
|
00807B5E 68307D8000 push $00807D30
00807B63 8D45EC lea eax, [ebp-$14]
00807B66 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00807B6B E844DBBFFF call 004056B4
00807B70 8B45EC mov eax, [ebp-$14]
00807B73 50 push eax
00807B74 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00807B76 E83164CDFF call 004DDFAC
00807B7B 5A pop edx
00807B7C 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00807B7E FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' and A.CRTime<''
|
00807B81 683C7D8000 push $00807D3C
* Reference to control TfrmYSSKList_KPFK.Enddate : TDateTimePicker
|
00807B86 8B8634030000 mov eax, [esi+$0334]
00807B8C DD8010020000 fld qword ptr [eax+$0210]
00807B92 D8054C7D8000 fadd dword ptr [$00807D4C]
00807B98 83C4F8 add esp, -$08
00807B9B DD1C24 fstp qword ptr [esp]
00807B9E 9B wait
00807B9F 8D55E0 lea edx, [ebp-$20]
* Possible String Reference to: 'yyyy-MM-dd'
|
00807BA2 B81C7D8000 mov eax, $00807D1C
|
00807BA7 E81070C0FF call 0040EBBC
00807BAC FF75E0 push dword ptr [ebp-$20]
* Possible String Reference to: '' '
|
00807BAF 68307D8000 push $00807D30
00807BB4 8D45E4 lea eax, [ebp-$1C]
00807BB7 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00807BBC E8F3DABFFF call 004056B4
00807BC1 8B45E4 mov eax, [ebp-$1C]
00807BC4 50 push eax
00807BC5 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00807BC7 E8E063CDFF call 004DDFAC
00807BCC 5A pop edx
00807BCD 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00807BCF FF5138 call dword ptr [ecx+$38]
00807BD2 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00807BD4 E8D363CDFF call 004DDFAC
* Possible String Reference to: ' and A.CRType='<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>' '
|
00807BD9 BAAC7D8000 mov edx, $00807DAC
00807BDE 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00807BE0 FF5138 call dword ptr [ecx+$38]
00807BE3 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00807BE5 E8C263CDFF call 004DDFAC
* Possible String Reference to: ' and isnull(A.status,'0')='2' ) AA'
|
00807BEA BAD07D8000 mov edx, $00807DD0
00807BEF 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00807BF1 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where AA.FactoryName=''
|
00807BF4 68FC7D8000 push $00807DFC
* Possible String Reference to: 'FactoryName'
|
00807BF9 BA1C7E8000 mov edx, $00807E1C
* Reference to control TfrmYSSKList_KPFK.CDS_HZ : TClientDataSet
|
00807BFE 8B8640030000 mov eax, [esi+$0340]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00807C04 E8ABEFCBFF call 004C6BB4
00807C09 8D55D4 lea edx, [ebp-$2C]
00807C0C 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00807C0E FF5160 call dword ptr [ecx+$60]
00807C11 8B45D4 mov eax, [ebp-$2C]
00807C14 8D55D8 lea edx, [ebp-$28]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00807C17 E8D02CC0FF call 0040A8EC
00807C1C FF75D8 push dword ptr [ebp-$28]
00807C1F 68307E8000 push $00807E30
00807C24 8D45DC lea eax, [ebp-$24]
00807C27 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00807C2C E883DABFFF call 004056B4
00807C31 8B45DC mov eax, [ebp-$24]
00807C34 50 push eax
00807C35 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00807C37 E87063CDFF call 004DDFAC
00807C3C 5A pop edx
00807C3D 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00807C3F FF5138 call dword ptr [ecx+$38]
00807C42 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00807C44 E86363CDFF call 004DDFAC
* Possible String Reference to: ' order by AA.CRtime'
|
00807C49 BA3C7E8000 mov edx, $00807E3C
00807C4E 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00807C50 FF5138 call dword ptr [ecx+$38]
00807C53 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
00807C55 E86EDCCBFF call 004C58C8
* Reference to control TfrmYSSKList_KPFK.YForder_Sub : TClientDataSet
|
00807C5A 8B9668030000 mov edx, [esi+$0368]
* Reference to control TfrmYSSKList_KPFK.ADOQueryCmd : TADOQuery
|
00807C60 8B8608030000 mov eax, [esi+$0308]
|
00807C66 E825F2FAFF call 007B6E90
* Reference to control TfrmYSSKList_KPFK.YForder_Sub : TClientDataSet
|
00807C6B 8B9668030000 mov edx, [esi+$0368]
* Reference to control TfrmYSSKList_KPFK.ADOQueryCmd : TADOQuery
|
00807C71 8B8608030000 mov eax, [esi+$0308]
|
00807C77 E89CF3FAFF call 007B7018
00807C7C 33C0 xor eax, eax
00807C7E 5A pop edx
00807C7F 59 pop ecx
00807C80 59 pop ecx
00807C81 648910 mov fs:[eax], edx
****** FINALLY
|
00807C84 689E7C8000 push $00807C9E
00807C89 8D45D4 lea eax, [ebp-$2C]
00807C8C BA0B000000 mov edx, $0000000B
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00807C91 E8B2D6BFFF call 00405348
00807C96 C3 ret
* Reference to: System.@HandleFinally;
|
00807C97 E958CEBFFF jmp 00404AF4
00807C9C EBEB jmp 00807C89
****** END
|
00807C9E 5E pop esi
00807C9F 5B pop ebx
00807CA0 8BE5 mov esp, ebp
00807CA2 5D pop ebp
00807CA3 C20C00 ret $000C
*)
end;
procedure TfrmYSSKList_KPFK.YFNameChange(Sender : TObject);
begin
(*
00807E50 55 push ebp
00807E51 8BEC mov ebp, esp
00807E53 6A00 push $00
00807E55 53 push ebx
00807E56 8BD8 mov ebx, eax
00807E58 33C0 xor eax, eax
00807E5A 55 push ebp
* Possible String Reference to: '<27>*̿<><CCBF><EFBFBD>[Y]<5D>U<EFBFBD><55>3<EFBFBD>Uh<55>~<7E>'
|
00807E5B 68C57E8000 push $00807EC5
***** TRY
|
00807E60 64FF30 push dword ptr fs:[eax]
00807E63 648920 mov fs:[eax], esp
00807E66 8D45FC lea eax, [ebp-$04]
00807E69 50 push eax
00807E6A B902000000 mov ecx, $00000002
00807E6F BA01000000 mov edx, $00000001
* Reference to control TfrmYSSKList_KPFK.Panel3 : TPanel
|
00807E74 8B83C0030000 mov eax, [ebx+$03C0]
|
00807E7A E831E2FAFF call 007B60B0
00807E7F 8B55FC mov edx, [ebp-$04]
* Reference to control TfrmYSSKList_KPFK.ADOQueryCmd : TADOQuery
|
00807E82 8B8308030000 mov eax, [ebx+$0308]
|
00807E88 E83BEEFAFF call 007B6CC8
* Reference to control TfrmYSSKList_KPFK.YForder_Sub : TClientDataSet
|
00807E8D 8B9368030000 mov edx, [ebx+$0368]
* Reference to control TfrmYSSKList_KPFK.ADOQueryCmd : TADOQuery
|
00807E93 8B8308030000 mov eax, [ebx+$0308]
|
00807E99 E8F2EFFAFF call 007B6E90
* Reference to control TfrmYSSKList_KPFK.YForder_Sub : TClientDataSet
|
00807E9E 8B9368030000 mov edx, [ebx+$0368]
* Reference to control TfrmYSSKList_KPFK.ADOQueryCmd : TADOQuery
|
00807EA4 8B8308030000 mov eax, [ebx+$0308]
|
00807EAA E869F1FAFF call 007B7018
00807EAF 33C0 xor eax, eax
00807EB1 5A pop edx
00807EB2 59 pop ecx
00807EB3 59 pop ecx
00807EB4 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[Y]<5D>U<EFBFBD><55>3<EFBFBD>Uh<55>~<7E>'
|
00807EB7 68CC7E8000 push $00807ECC
00807EBC 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
00807EBF E860D4BFFF call 00405324
00807EC4 C3 ret
* Reference to: System.@HandleFinally;
|
00807EC5 E92ACCBFFF jmp 00404AF4
00807ECA EBF0 jmp 00807EBC
****** END
|
00807ECC 5B pop ebx
00807ECD 59 pop ecx
00807ECE 5D pop ebp
00807ECF C3 ret
*)
end;
procedure TfrmYSSKList_KPFK._PROC_008072F8(Sender : TObject);
begin
(*
008072F8 53 push ebx
008072F9 44 inc esp
008072FA 27 daa
008072FB 20616E and [ecx+$6E], ah
008072FE 6420422E and fs:[edx+$2E], al
00807302 42 inc edx
00807303 5A pop edx
00807304 54 push esp
00807305 7970 jns 00807377
00807307 653C3E cmp al, $3E
0080730A 27 daa
0080730B 2427 and al, $27
0080730D 20616E and [ecx+$6E], ah
00807310 6420422E and fs:[edx+$2E], al
00807314 6661 popa
00807316 63746F72 arpl [edi+ebp*2+$72], si
0080731A 794E jns 0080736A
0080731C 61 popa
0080731D 6D insd
0080731E 653D412E6661 cmp eax, $61662E41
00807324 63746F72 arpl [edi+ebp*2+$72], si
00807328 794E jns 00807378
0080732A 61 popa
0080732B 6D insd
0080732C 652000 and gs:[eax], al
0080732F 00FF add bh, bh
00807331 FFFF DB $FF, $FF //
00807333 FF6200 jmp dword ptr [edx+$00]
00807336 0000 add [eax], al
00807338 61 popa
00807339 6E outsb
0080733A 6420422E and fs:[edx+$2E], al
0080733E 43 inc ebx
0080733F 52 push edx
00807340 46 inc esi
00807341 6C insb
00807342 61 popa
00807343 673D27D3A6B8 cmp eax, $B8A6D327
00807349 B6B8 mov dh, $B8
0080734B B627 mov dh, $27
0080734D 20616E and [ecx+$6E], ah
00807350 64204352 and fs:[ebx+$52], al
00807354 54 push esp
00807355 7970 jns 008073C7
00807357 653D27D3A6B8 cmp eax, $B8A6D327
0080735D B6BF mov dh, $BF
0080735F EE out dx, al
00807360 B7A2 mov bh, $A2
00807362 C6B1B5C7BCC727 mov byte ptr [ecx+$C7BCC7B5], $27
00807369 20616E and [ecx+$6E], ah
0080736C 64206973 and fs:[ecx+$73], ch
00807370 6E outsb
00807371 756C jnz 008073DF
00807373 6C insb
00807374 28422E sub [edx+$2E], al
00807377 46 inc esi
00807378 4B dec ebx
00807379 54 push esp
0080737A 61 popa
0080737B 69746F752C272729 imul esi, [edi+ebp*2+$75], $2927272C
00807383 3D69736E75 cmp eax, $756E7369
00807388 6C insb
00807389 6C insb
0080738A 28412E sub [ecx+$2E], al
0080738D 46 inc esi
0080738E 4B dec ebx
0080738F 54 push esp
00807390 61 popa
00807391 69746F752C272729 imul esi, [edi+ebp*2+$75], $2927272C
00807399 2900 sub dword ptr [eax], eax
0080739B 00FF add bh, bh
0080739D FFFF DB $FF, $FF //
0080739F FF3B DB $FF, $3B //
008073A1 0000 add [eax], al
008073A3 002C52 add [edx+edx*2], ch
008073A6 4D dec ebp
008073A7 42 inc edx
008073A8 42 inc edx
008073A9 51 push ecx
008073AA 4B dec ebx
008073AB 50 push eax
008073AC 3D2873656C cmp eax, $6C657328
008073B1 6563742069 arpl gs:[eax+$69], si
008073B6 736E jnb 00807426
008073B8 756C jnz 00807426
008073BA 6C insb
008073BB 285375 sub [ebx+$75], dl
008073BE 6D insd
008073BF 284B50 sub [ebx+$50], cl
008073C2 4D dec ebp
008073C3 6F outsd
008073C4 6E outsb
008073C5 657929 jns 008073F1
008073C8 2C30 sub al, $30
008073CA 2920 sub dword ptr [eax], esp
008073CC 66726F jb 0080743E
008073CF 6D insd
008073D0 205946 and [ecx+$46], bl
008073D3 5F pop edi
008073D4 4D dec ebp
008073D5 6F outsd
008073D6 6E outsb
008073D7 65795F jns 00807439
008073DA 43 inc ebx
008073DB 52 push edx
008073DC 204220 and [edx+$20], al
008073DF 00FF add bh, bh
008073E1 FFFF DB $FF, $FF //
008073E3 FF11 call dword ptr [ecx]
008073E5 0000 add [eax], al
008073E7 007768 add [edi+$68], dh
008073EA 657265 jb 00807452
008073ED 20422E and [edx+$2E], al
008073F0 43 inc ebx
008073F1 52 push edx
008073F2 54 push esp
008073F3 696D653E3D2700 imul ebp, [ebp+$65], $00273D3E
008073FA 0000 add [eax], al
008073FC FFFF DB $FF, $FF //
008073FE FFFF DB $FF, $FF //
00807400 0200 add al, byte ptr [eax]
00807402 0000 add [eax], al
00807404 27 daa
00807405 2000 and [eax], al
00807407 00FF add bh, bh
00807409 FFFF DB $FF, $FF //
0080740B FF0F dec dword ptr [edi]
0080740D 0000 add [eax], al
0080740F 0020 add [eax], ah
00807411 61 popa
00807412 6E outsb
00807413 6420422E and fs:[edx+$2E], al
00807417 43 inc ebx
00807418 52 push edx
00807419 54 push esp
0080741A 696D653C270000 imul ebp, [ebp+$65], $0000273C
00807421 00803FFFFFFF add [eax+$FFFFFF3F], al
00807427 FF4700 inc dword ptr [edi+$00]
0080742A 0000 add [eax], al
*)
end;
procedure TfrmYSSKList_KPFK._PROC_0080745D(Sender : TObject);
begin
(*
0080745D 53 push ebx
0080745E 44 inc esp
0080745F 27 daa
00807460 20616E and [ecx+$6E], ah
00807463 6420422E and fs:[edx+$2E], al
00807467 42 inc edx
00807468 5A pop edx
00807469 54 push esp
0080746A 7970 jns 008074DC
0080746C 653C3E cmp al, $3E
0080746F 27 daa
00807470 2427 and al, $27
00807472 2000 and [eax], al
00807474 FFFF DB $FF, $FF //
00807476 FFFF DB $FF, $FF //
00807478 6200 bound eax, qword ptr [eax]
0080747A 0000 add [eax], al
0080747C 61 popa
0080747D 6E outsb
0080747E 6420422E and fs:[edx+$2E], al
00807482 43 inc ebx
00807483 52 push edx
00807484 46 inc esi
00807485 6C insb
00807486 61 popa
00807487 673D27D3A6B8 cmp eax, $B8A6D327
0080748D B6B8 mov dh, $B8
0080748F B627 mov dh, $27
00807491 20616E and [ecx+$6E], ah
00807494 64204352 and fs:[ebx+$52], al
00807498 54 push esp
00807499 7970 jns 0080750B
0080749B 653D27D3A6B8 cmp eax, $B8A6D327
008074A1 B6BF mov dh, $BF
008074A3 EE out dx, al
008074A4 B7A2 mov bh, $A2
008074A6 C6B1B5C7BCC727 mov byte ptr [ecx+$C7BCC7B5], $27
008074AD 20616E and [ecx+$6E], ah
008074B0 64206973 and fs:[ecx+$73], ch
008074B4 6E outsb
008074B5 756C jnz 00807523
008074B7 6C insb
008074B8 28422E sub [edx+$2E], al
008074BB 46 inc esi
008074BC 4B dec ebx
008074BD 54 push esp
008074BE 61 popa
008074BF 69546F752C272729 imul edx, [edi+ebp*2+$75], $2927272C
008074C7 3D69736E75 cmp eax, $756E7369
008074CC 6C insb
008074CD 6C insb
008074CE 28412E sub [ecx+$2E], al
008074D1 46 inc esi
008074D2 4B dec ebx
008074D3 54 push esp
008074D4 61 popa
008074D5 69746F752C272729 imul esi, [edi+ebp*2+$75], $2927272C
008074DD 2900 sub dword ptr [eax], eax
008074DF 00FF add bh, bh
008074E1 FFFF DB $FF, $FF //
008074E3 FF3C DB $FF, $3C //
008074E5 0000 add [eax], al
008074E7 002C52 add [edx+edx*2], ch
008074EA 4D dec ebp
008074EB 42 inc edx
008074EC 46 inc esi
008074ED 4B dec ebx
008074EE 4D dec ebp
008074EF 6F outsd
008074F0 6E outsb
008074F1 65793D jns 00807531
008074F4 287365 sub [ebx+$65], dh
008074F7 6C insb
008074F8 6563742069 arpl gs:[eax+$69], si
008074FD 736E jnb 0080756D
008074FF 756C jnz 0080756D
00807501 6C insb
00807502 285375 sub [ebx+$75], dl
00807505 6D insd
00807506 284D6F sub [ebp+$6F], cl
00807509 6E outsb
0080750A 657929 jns 00807536
0080750D 2C30 sub al, $30
0080750F 2920 sub dword ptr [eax], esp
00807511 66726F jb 00807583
00807514 6D insd
00807515 205946 and [ecx+$46], bl
00807518 5F pop edi
00807519 4D dec ebp
0080751A 6F outsd
0080751B 6E outsb
0080751C 65795F jns 0080757E
0080751F 43 inc ebx
00807520 52 push edx
00807521 204220 and [edx+$20], al
00807524 0000 add [eax], al
00807526 0000 add [eax], al
00807528 FFFF DB $FF, $FF //
0080752A FFFF DB $FF, $FF //
0080752C 5C pop esp
0080752D 0000 add [eax], al
0080752F 0020 add [eax], ah
00807531 61 popa
00807532 6E outsb
00807533 6420422E and fs:[edx+$2E], al
00807537 43 inc ebx
00807538 52 push edx
00807539 54 push esp
0080753A 7970 jns 008075AC
0080753C 653D27B8B6BF cmp eax, $BFB6B827
00807542 EE out dx, al
00807543 B5C7 mov ch, $C7
00807545 BCC7272061 mov esp, $612027C7
0080754A 6E outsb
0080754B 64206973 and fs:[ecx+$73], ch
0080754F 6E outsb
00807550 756C jnz 008075BE
00807552 6C insb
00807553 28422E sub [edx+$2E], al
00807556 7374 jnb 008075CC
00807558 61 popa
00807559 7475 jz 008075D0
0080755B 732C jnb 00807589
0080755D 27 daa
0080755E 3027 xor [edi], ah
00807560 293D27322720 sub dword ptr [$20273227], edi
00807566 61 popa
00807567 6E outsb
00807568 6420422E and fs:[edx+$2E], al
0080756C 42 inc edx
0080756D 5A pop edx
0080756E 54 push esp
0080756F 7970 jns 008075E1
00807571 653C3E cmp al, $3E
00807574 27 daa
00807575 55 push ebp
00807576 53 push ebx
00807577 44 inc esp
00807578 27 daa
00807579 20616E and [ecx+$6E], ah
0080757C 6420422E and fs:[edx+$2E], al
00807580 42 inc edx
00807581 5A pop edx
00807582 54 push esp
00807583 7970 jns 008075F5
00807585 653C3E cmp al, $3E
00807588 27 daa
00807589 2427 and al, $27
0080758B 2000 and [eax], al
0080758D 0000 add [eax], al
0080758F 00FF add bh, bh
00807591 FFFF DB $FF, $FF //
00807593 FF6800 jmp [eax+$00]
00807596 0000 add [eax], al
00807598 20616E and [ecx+$6E], ah
0080759B 6420422E and fs:[edx+$2E], al
0080759F 6661 popa
008075A1 63746F72 arpl [edi+ebp*2+$72], si
008075A5 794E jns 008075F5
008075A7 61 popa
008075A8 6D insd
008075A9 653D412E6661 cmp eax, $61662E41
008075AF 63746F72 arpl [edi+ebp*2+$72], si
008075B3 794E jns 00807603
008075B5 61 popa
008075B6 6D insd
008075B7 6520616E and gs:[ecx+$6E], ah
008075BB 6420422E and fs:[edx+$2E], al
008075BF 43 inc ebx
008075C0 52 push edx
008075C1 46 inc esi
008075C2 6C insb
008075C3 61 popa
008075C4 673D27D3A6B8 cmp eax, $B8A6D327
008075CA B6B8 mov dh, $B8
008075CC B627 mov dh, $27
008075CE 20616E and [ecx+$6E], ah
008075D1 64206973 and fs:[ecx+$73], ch
008075D5 6E outsb
008075D6 756C jnz 00807644
008075D8 6C insb
008075D9 28422E sub [edx+$2E], al
008075DC 46 inc esi
008075DD 4B dec ebx
008075DE 54 push esp
008075DF 61 popa
008075E0 69546F752C272729 imul edx, [edi+ebp*2+$75], $2927272C
008075E8 3D69736E75 cmp eax, $756E7369
008075ED 6C insb
008075EE 6C insb
008075EF 28412E sub [ecx+$2E], al
008075F2 46 inc esi
008075F3 4B dec ebx
008075F4 54 push esp
008075F5 61 popa
008075F6 69746F752C272729 imul esi, [edi+ebp*2+$75], $2927272C
008075FE 2920 sub dword ptr [eax], esp
00807600 0000 add [eax], al
00807602 0000 add [eax], al
00807604 FFFF DB $FF, $FF //
00807606 FFFF DB $FF, $FF //
00807608 3C00 cmp al, $00
0080760A 0000 add [eax], al
0080760C 2C52 sub al, $52
0080760E 4D dec ebp
0080760F 42 inc edx
00807610 53 push ebx
00807611 51 push ecx
00807612 4D dec ebp
00807613 6F outsd
00807614 6E outsb
00807615 65793D jns 00807655
00807618 287365 sub [ebx+$65], dh
0080761B 6C insb
0080761C 6563742069 arpl gs:[eax+$69], si
00807621 736E jnb 00807691
00807623 756C jnz 00807691
00807625 6C insb
00807626 285375 sub [ebx+$75], dl
00807629 6D insd
0080762A 284D6F sub [ebp+$6F], cl
0080762D 6E outsb
0080762E 657929 jns 0080765A
00807631 2C30 sub al, $30
00807633 2920 sub dword ptr [eax], esp
00807635 66726F jb 008076A7
00807638 6D insd
00807639 205946 and [ecx+$46], bl
0080763C 5F pop edi
0080763D 4D dec ebp
0080763E 6F outsd
0080763F 6E outsb
00807640 65795F jns 008076A2
00807643 43 inc ebx
00807644 52 push edx
00807645 204220 and [edx+$20], al
00807648 0000 add [eax], al
0080764A 0000 add [eax], al
0080764C FFFF DB $FF, $FF //
0080764E FFFF DB $FF, $FF //
00807650 7400 jz 00807652
00807652 0000 add [eax], al
00807654 66726F jb 008076C6
00807657 6D insd
00807658 2028 and [eax], ch
0080765A 7365 jnb 008076C1
0080765C 6C insb
0080765D 6563742064 arpl gs:[eax+$64], si
00807662 697374696E6374 imul esi, [ebx+$74], $74636E69
00807669 206661 and [esi+$61], ah
0080766C 63746F72 arpl [edi+ebp*2+$72], si
00807670 794E jns 008076C0
00807672 61 popa
00807673 6D insd
00807674 652C46 sub al, $46
00807677 4B dec ebx
00807678 54 push esp
00807679 61 popa
0080767A 69746F752066726F imul esi, [edi+ebp*2+$75], $6F726620
00807682 6D insd
00807683 205946 and [ecx+$46], bl
00807686 5F pop edi
00807687 4D dec ebp
00807688 6F outsd
00807689 6E outsb
0080768A 65795F jns 008076EC
0080768D 43 inc ebx
0080768E 52 push edx
0080768F 207768 and [edi+$68], dh
00807692 657265 jb 008076FA
00807695 204352 and [ebx+$52], al
00807698 46 inc esi
00807699 6C insb
0080769A 61 popa
0080769B 673D27D3A6B8 cmp eax, $B8A6D327
008076A1 B6B8 mov dh, $B8
008076A3 B627 mov dh, $27
008076A5 20616E and [ecx+$6E], ah
008076A8 64204352 and fs:[ebx+$52], al
008076AC 54 push esp
008076AD 7970 jns 0080771F
008076AF 653D27D3A6B8 cmp eax, $B8A6D327
008076B5 B6BF mov dh, $BF
008076B7 EE out dx, al
008076B8 B7A2 mov bh, $A2
008076BA C6B1B5C7BCC727 mov byte ptr [ecx+$C7BCC7B5], $27
008076C1 294120 sub dword ptr [ecx+$20], eax
008076C4 294141 sub dword ptr [ecx+$41], eax
008076C7 2000 and [eax], al
008076C9 0000 add [eax], al
008076CB 00FF add bh, bh
008076CD FFFF DB $FF, $FF //
008076CF FF09 dec dword ptr [ecx]
008076D1 0000 add [eax], al
008076D3 007768 add [edi+$68], dh
008076D6 657265 jb 0080773E
008076D9 2031 and [ecx], dh
008076DB 3D31000000 cmp eax, $00000031
008076E0 FFFF DB $FF, $FF //
008076E2 FFFF DB $FF, $FF //
008076E4 1500000020 adc eax, $20000000
008076E9 61 popa
008076EA 6E outsb
008076EB 64204141 and fs:[ecx+$41], al
008076EF 2E6661 popa
008076F2 63746F72 arpl [edi+ebp*2+$72], si
008076F6 794E jns 00807746
008076F8 61 popa
008076F9 6D insd
008076FA 653D27000000 cmp eax, $00000027
00807700 FFFF DB $FF, $FF //
00807702 FFFF DB $FF, $FF //
00807704 1200 adc al, byte ptr [eax]
00807706 0000 add [eax], al
00807708 20616E and [ecx+$6E], ah
0080770B 64204141 and fs:[ecx+$41], al
0080770F 2E46 inc esi
00807711 4B dec ebx
00807712 54 push esp
00807713 61 popa
00807714 69746F753D270000 imul esi, [edi+ebp*2+$75], $0000273D
0080771C 33C0 xor eax, eax
* Reference to GlobalVar_00893CF0
|
0080771E A3F03C8900 mov dword ptr [$00893CF0], eax
00807723 C3 ret
00807724 C60102 mov byte ptr [ecx], $02
00807727 C3 ret
00807728 53 push ebx
00807729 8BD8 mov ebx, eax
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
0080772B B968778000 mov ecx, $00807768
* Reference to control Order_Sub : N.A.
|
00807730 8B9348030000 mov edx, [ebx+$0348]
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD>տ<EFBFBD>ͳ<EFBFBD><CDB3>'
|
00807736 B87C778000 mov eax, $0080777C
|
0080773B E86004FBFF call 007B7BA0
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
00807740 B968778000 mov ecx, $00807768
* Reference to control v1PriceUnit : N.A.
|
00807745 8B9384030000 mov edx, [ebx+$0384]
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD>տ<EFBFBD>ͳ<EFBFBD><CDB3>1'
|
0080774B B894778000 mov eax, $00807794
|
00807750 E84B04FBFF call 007B7BA0
00807755 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00807757 E83CE8C9FF call 004A5F98
0080775C 5B pop ebx
0080775D C3 ret
*)
end;
procedure TfrmYSSKList_KPFK._PROC_00807ED0(Sender : TObject);
begin
(*
00807ED0 55 push ebp
00807ED1 8BEC mov ebp, esp
00807ED3 33C0 xor eax, eax
00807ED5 55 push ebp
* Possible String Reference to: '<27><>˿<EFBFBD><CBBF><EFBFBD>]Ë<><C38B>-<2D><<3C>'
|
00807ED6 68F57E8000 push $00807EF5
***** TRY
|
00807EDB 64FF30 push dword ptr fs:[eax]
00807EDE 648920 mov fs:[eax], esp
00807EE1 FF05F43C8900 inc dword ptr [$00893CF4]
00807EE7 33C0 xor eax, eax
00807EE9 5A pop edx
00807EEA 59 pop ecx
00807EEB 59 pop ecx
00807EEC 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-<2D><<3C>'
|
00807EEF 68FC7E8000 push $00807EFC
00807EF4 C3 ret
* Reference to: System.@HandleFinally;
|
00807EF5 E9FACBBFFF jmp 00404AF4
00807EFA EBF8 jmp 00807EF4
****** END
|
00807EFC 5D pop ebp
00807EFD C3 ret
*)
end;
procedure TfrmYSSKList_KPFK._PROC_00807F00(Sender : TObject);
begin
(*
00807F00 832DF43C890001 sub dword ptr [$00893CF4], +$01
00807F07 C3 ret
*)
end;
procedure TfrmYSSKList_KPFK._PROC_00807F08(Sender : TObject);
begin
(*
00807F08 54 push esp
00807F09 7F80 jnle 00807E8B
00807F0B 0000 add [eax], al
*)
end;
procedure TfrmYSSKList_KPFK._PROC_00807F6E(Sender : TObject);
begin
(*
00807F6E 48 dec eax
00807F6F 0050D4 add [eax-$2C], dl
00807F72 42 inc edx
00807F73 0008 add [eax], cl
00807F75 2D4A007CD0 sub eax, $D07C004A
00807F7A 42 inc edx
00807F7B 00F4 add ah, dh
00807F7D 6B4A00D0 imul ecx, [edx+$00], $D0
00807F81 1D4A0030F6 sbb eax, $F630004A
00807F86 48 dec eax
00807F87 004CFB48 add [ebx+edi*8+$48], cl
00807F8B 0098FA48000C add [eax+$C0048FA], bl
00807F91 7948 jns 00807FDB
00807F93 00ACF04800E829 add [eax+esi*8+$29E80048], ch
00807F9A 4A dec edx
00807F9B 00E4 add ah, ah
00807F9D ED in eax, dx
00807F9E 48 dec eax
00807F9F 00547848 add [eax+edi*2+$48], dl
00807FA3 005878 add [eax+$78], bl
00807FA6 48 dec eax
00807FA7 00DC add ah, bl
00807FA9 2A4A00 sub cl, byte ptr [edx+$00]
00807FAC 3CA9 cmp al, $A9
00807FAE 48 dec eax
00807FAF 00C0 add al, al
00807FB1 834800D0 or dword ptr [eax+$00], -$30
00807FB5 7948 jns 00807FFF
00807FB7 004C8548 add [ebp+eax*4+$48], cl
00807FBB 00D0 add al, dl
00807FBD 2C4A sub al, $4A
00807FBF 009C2B4A008486 add [ebx+ebp+$8684004A], bl
00807FC6 48 dec eax
00807FC7 00482D add [eax+$2D], cl
00807FCA 4A dec edx
00807FCB 00C0 add al, al
00807FCD A9480038EE test eax, $EE380048
00807FD2 48 dec eax
00807FD3 00F4 add ah, dh
00807FD5 EE out dx, al
00807FD6 48 dec eax
00807FD7 00F0 add al, dh
00807FD9 E94800D8EE jmp EF588026
00807FDE 48 dec eax
00807FDF 00D8 add al, bl
00807FE1 1B4A00 sbb ecx, [edx+$00]
00807FE4 EC in al, dx
00807FE5 334A00 xor ecx, [edx+$00]
00807FE8 20C4 and ah, al
00807FEA 48 dec eax
00807FEB 00B0404A0010 add [eax+$10004A40], dh
00807FF1 44 inc esp
00807FF2 4A dec edx
00807FF3 00CC add ah, cl
00807FF5 42 inc edx
00807FF6 4A dec edx
00807FF7 00B8C44800BC add [eax+$BC0048C4], bh
00807FFD C44800 les ecx, [eax+$00]
00808000 48 dec eax
00808001 45 inc ebp
00808002 4A dec edx
00808003 001CC3 add [ebx+eax*8], bl
00808006 48 dec eax
00808007 0018 add [eax], bl
00808009 F0 lock
0080800A 48 dec eax
0080800B 00444C4A add [esp+ecx*2+$4A], al
0080800F 000C02 add [edx+eax], cl
00808012 49 dec ecx
00808013 0094EC48009C64 add [esp+ebp*8+$649C0048], dl
0080801A 4A dec edx
0080801B 008C154A003C18 add [ebp+edx+$183C004A], cl
00808022 4A dec edx
00808023 0038 add [eax], bh
00808025 52 push edx
00808026 4A dec edx
00808027 005C224A add [edx+$4A], bl
0080802B 00D8 add al, bl
0080802D 224A00 and cl, byte ptr [edx+$00]
00808030 7C68 jl 0080809A
00808032 4A dec edx
00808033 00941F4A003C60 add [edi+ebx+$603C004A], dl
0080803A 4A dec edx
0080803B 001447 add [edi+eax*2], dl
0080803E 4A dec edx
0080803F 0034654A00CC2C add [$2CCC004A], dh
00808046 4A dec edx
00808047 000E add [esi], cl
00808049 0000 add [eax], al
0080804B 0000 add [eax], al
0080804D 0003 add [ebx], al
0080804F 0000 add [eax], al
00808051 0020 add [eax], ah
00808053 114000 adc [eax+$00], eax
00808056 FC cld
00808057 0300 add eax, [eax]
00808059 0020 add [eax], ah
0080805B 114000 adc [eax+$00], eax
0080805E 000400 add [eax+eax], al
00808061 0020 add [eax], ah
00808063 114000 adc [eax+$00], eax
00808066 0404 add al, +$04
00808068 0000 add [eax], al
0080806A 41 inc ecx
0080806B 005C8580 add [ebp+eax*4-$80], bl
0080806F 00F8 add al, bh
00808071 0200 add al, byte ptr [eax]
00808073 0000 add [eax], al
00808075 0008 add [eax], cl
00808077 54 push esp
00808078 6F outsd
00808079 6F outsd
0080807A 6C insb
0080807B 42 inc edx
0080807C 61 popa
0080807D 7231 jb 008080B0
0080807F FC cld
00808080 0200 add al, byte ptr [eax]
00808082 0001 add [ecx], al
00808084 0009 add [ecx], cl
00808086 54 push esp
00808087 42 inc edx
00808088 52 push edx
00808089 61 popa
0080808A 667265 jb 008080F2
0080808D 7368 jnb 008080F7
0080808F 0003 add [ebx], al
00808091 0000 add [eax], al
00808093 0100 add [eax], eax
00808095 07 pop es
00808096 54 push esp
00808097 42 inc edx
00808098 43 inc ebx
00808099 6C insb
0080809A 6F outsd
0080809B 7365 jnb 00808102
0080809D 0403 add al, +$03
0080809F 0000 add [eax], al
008080A1 0200 add al, byte ptr [eax]
008080A3 0C41 or al, $41
008080A5 44 inc esp
008080A6 4F dec edi
008080A7 51 push ecx
008080A8 7565 jnz 0080810F
008080AA 7279 jb 00808125
008080AC 54 push esp
008080AD 656D insd
008080AF 7008 jo 008080B9
008080B1 0300 add eax, [eax]
008080B3 0002 add [edx], al
008080B5 000B add [ebx], cl
008080B7 41 inc ecx
008080B8 44 inc esp
008080B9 4F dec edi
008080BA 51 push ecx
008080BB 7565 jnz 00808122
008080BD 7279 jb 00808138
008080BF 43 inc ebx
008080C0 6D insd
008080C1 640C03 or al, $03
008080C4 0000 add [eax], al
008080C6 0300 add eax, [eax]
008080C8 06 push es
008080C9 50 push eax
008080CA 61 popa
008080CB 6E outsb
008080CC 656C insb
008080CE 3110 xor [eax], edx
008080D0 0300 add eax, [eax]
008080D2 0001 add [ecx], al
008080D4 000B add [ebx], cl
008080D6 54 push esp
008080D7 6F outsd
008080D8 6F outsd
008080D9 6C insb
008080DA 42 inc edx
008080DB 7574 jnz 00808151
008080DD 746F jz 0080814E
008080DF 6E outsb
008080E0 321403 xor dl, byte ptr [ebx+eax]
008080E3 0000 add [eax], al
008080E5 0100 add [eax], eax
008080E7 0B546F6F or edx, [edi+ebp*2+$6F]
008080EB 6C insb
008080EC 42 inc edx
008080ED 7574 jnz 00808163
008080EF 746F jz 00808160
008080F1 6E outsb
008080F2 3118 xor [eax], ebx
008080F4 0300 add eax, [eax]
008080F6 000400 add [eax+eax], al
008080F9 03524D add edx, [edx+$4D]
008080FC 311C03 xor [ebx+eax], ebx
008080FF 0000 add [eax], al
00808101 050009524D add eax, +$4D520900
00808106 44 inc esp
00808107 42 inc edx
00808108 5F pop edi
00808109 4D dec ebp
0080810A 61 popa
0080810B 696E2003000006 imul ebp, [esi+$20], $06000003
00808112 0006 add [esi], al
00808114 4C dec esp
00808115 61 popa
00808116 62656C bound esp, qword ptr [ebp+$6C]
00808119 332403 xor esp, [ebx+eax]
0080811C 0000 add [eax], al
0080811E 07 pop es
0080811F 0007 add [edi], al
00808121 637847 arpl [eax+$47], di
00808124 7269 jb 0080818F
00808126 643228 xor ch, byte ptr fs:[eax]
00808129 0300 add eax, [eax]
0080812B 0008 add [eax], cl
0080812D 0003 add [ebx], al
0080812F 54 push esp
00808130 7632 jbe 00808164
00808132 2C03 sub al, $03
00808134 0000 add [eax], al
00808136 0900 or [eax], eax
00808138 0C63 or al, $63
0080813A 7847 js 00808183
0080813C 7269 jb 008081A7
0080813E 644C dec esp
00808140 657665 jbe 008081A8
00808143 6C insb
00808144 3130 xor [eax], esi
00808146 0300 add eax, [eax]
00808148 0006 add [esi], al
0080814A 0006 add [esi], al
0080814C 4C dec esp
0080814D 61 popa
0080814E 62656C bound esp, qword ptr [ebp+$6C]
00808151 323403 xor dh, byte ptr [ebx+eax]
00808154 0000 add [eax], al
00808156 06 push es
00808157 0006 add [esi], al
00808159 4C dec esp
0080815A 61 popa
0080815B 62656C bound esp, qword ptr [ebp+$6C]
0080815E 363803 cmp ss:[ebx], al
00808161 0000 add [eax], al
00808163 0A00 or al, byte ptr [eax]
00808165 07 pop es
00808166 626567 bound esp, qword ptr [ebp+$67]
00808169 6461 popa
0080816B 7465 jz 008081D2
0080816D 3C03 cmp al, $03
0080816F 0000 add [eax], al
00808171 0A00 or al, byte ptr [eax]
00808173 07 pop es
00808174 45 inc ebp
00808175 6E outsb
00808176 646461 popa
00808179 7465 jz 008081E0
0080817B 40 inc eax
0080817C 0300 add eax, [eax]
0080817E 000B add [ebx], cl
00808180 0010 add [eax], dl
00808182 637847 arpl [eax+$47], di
00808185 7269 jb 008081F0
00808187 6450 push eax
00808189 6F outsd
0080818A 7075 jo 00808201
0080818C 704D jo 008081DB
0080818E 656E outsb
00808190 7532 jnz 008081C4
00808192 44 inc esp
00808193 0300 add eax, [eax]
00808195 000C00 add [eax+eax], cl
00808198 0544535F48 add eax, +$485F5344
0080819D 5A pop edx
0080819E 48 dec eax
0080819F 0300 add eax, [eax]
008081A1 000D00097632 add [$32760900], cl
008081A7 43 inc ebx
008081A8 6F outsd
008081A9 6C insb
008081AA 756D jnz 00808219
008081AC 6E outsb
008081AD 354C030000 xor eax, $0000034C
008081B2 0D00097632 or eax, $32760900
008081B7 43 inc ebx
008081B8 6F outsd
008081B9 6C insb
008081BA 756D jnz 00808229
008081BC 6E outsb
008081BD 3650 push eax
008081BF 0300 add eax, [eax]
008081C1 000D00097632 add [$32760900], cl
008081C7 43 inc ebx
008081C8 6F outsd
008081C9 6C insb
008081CA 756D jnz 00808239
008081CC 6E outsb
008081CD 31540300 xor [ebx+eax+$00], edx
008081D1 000D00097632 add [$32760900], cl
008081D7 43 inc ebx
008081D8 6F outsd
008081D9 6C insb
008081DA 756D jnz 00808249
008081DC 6E outsb
008081DD 325803 xor bl, byte ptr [eax+$03]
008081E0 0000 add [eax], al
008081E2 0D00097632 or eax, $32760900
008081E7 43 inc ebx
008081E8 6F outsd
008081E9 6C insb
008081EA 756D jnz 00808259
008081EC 6E outsb
008081ED 335C0300 xor ebx, [ebx+eax+$00]
008081F1 000D00067632 add [$32760600], cl
008081F7 42 inc edx
008081F8 51 push ecx
008081F9 4B dec ebx
008081FA 50 push eax
008081FB 60 pusha
008081FC 0300 add eax, [eax]
008081FE 000D00057632 add [$32760500], cl
00808204 57 push edi
00808205 4B dec ebx
00808206 50 push eax
00808207 640300 add eax, fs:[eax]
0080820A 0006 add [esi], al
0080820C 0006 add [esi], al
0080820E 4C dec esp
0080820F 61 popa
00808210 62656C bound esp, qword ptr [ebp+$6C]
00808213 316803 xor [eax+$03], ebp
00808216 0000 add [eax], al
00808218 0E push cs
00808219 0009 add [ecx], cl
0080821B 43 inc ebx
0080821C 6F outsd
0080821D 6D insd
0080821E 54 push esp
0080821F 61 popa
00808220 69546F756C030000 imul edx, [edi+ebp*2+$75], $0000036C
00808228 0D00097632 or eax, $32760900
0080822D 43 inc ebx
0080822E 6F outsd
0080822F 6C insb
00808230 756D jnz 0080829F
00808232 6E outsb
00808233 3470 xor al, $70
00808235 0300 add eax, [eax]
00808237 0002 add [edx], al
00808239 000C41 add [ecx+eax*2], cl
0080823C 44 inc esp
0080823D 4F dec edi
0080823E 51 push ecx
0080823F 7565 jnz 008082A6
00808241 7279 jb 008082BC
00808243 4D dec ebp
00808244 61 popa
00808245 696E740300000F imul ebp, [esi+$74], $0F000003
0080824C 0006 add [esi], al
0080824E 43 inc ebx
0080824F 44 inc esp
00808250 53 push ebx
00808251 5F pop edi
00808252 48 dec eax
00808253 5A pop edx
00808254 7803 js 00808259
00808256 0000 add [eax], al
00808258 07 pop es
00808259 0007 add [edi], al
0080825B 637847 arpl [eax+$47], di
0080825E 7269 jb 008082C9
00808260 64317C0300 xor fs:[ebx+eax+$00], edi
00808265 0008 add [eax], cl
00808267 0003 add [ebx], al
00808269 54 push esp
0080826A 7631 jbe 0080829D
0080826C 800300 add byte ptr [ebx], $00
0080826F 000D000F6378 add [$78630F00], cl
00808275 47 inc edi
00808276 7269 jb 008082E1
00808278 6444 inc esp
0080827A 42 inc edx
0080827B 43 inc ebx
0080827C 6F outsd
0080827D 6C insb
0080827E 756D jnz 008082ED
00808280 6E outsb
00808281 31840300000D00 xor [ebx+eax+$D0000], eax
00808288 0F637847 packusdw MM7, [eax+$47]
0080828C 7269 jb 008082F7
0080828E 6444 inc esp
00808290 42 inc edx
00808291 43 inc ebx
00808292 6F outsd
00808293 6C insb
00808294 756D jnz 00808303
00808296 6E outsb
00808297 32880300000D xor cl, byte ptr [eax+$D000003]
0080829D 000B add [ebx], cl
0080829F 7632 jbe 008082D3
008082A1 43 inc ebx
008082A2 6F outsd
008082A3 6D insd
008082A4 54 push esp
008082A5 61 popa
008082A6 69546F758C030000 imul edx, [edi+ebp*2+$75], $0000038C
008082AE 0D000F6378 or eax, $78630F00
008082B3 47 inc edi
008082B4 7269 jb 0080831F
008082B6 6444 inc esp
008082B8 42 inc edx
008082B9 43 inc ebx
008082BA 6F outsd
008082BB 6C insb
008082BC 756D jnz 0080832B
008082BE 6E outsb
008082BF 33900300000D xor edx, [eax+$D000003]
008082C5 000F add [edi], cl
008082C7 637847 arpl [eax+$47], di
008082CA 7269 jb 00808335
008082CC 6444 inc esp
008082CE 42 inc edx
008082CF 43 inc ebx
008082D0 6F outsd
008082D1 6C insb
008082D2 756D jnz 00808341
008082D4 6E outsb
008082D5 3494 xor al, $94
008082D7 0300 add eax, [eax]
008082D9 000D00087632 add [$32760800], cl
008082DF 50 push eax
008082E0 5F pop edi
008082E1 53 push ebx
008082E2 7065 jo 00808349
008082E4 63980300000D arpl [eax+$D000003], bx
008082EA 0008 add [eax], cl
008082EC 7632 jbe 00808320
008082EE 59 pop ecx
008082EF 46 inc esi
008082F0 4E dec esi
008082F1 61 popa
008082F2 6D insd
008082F3 659C pushf
008082F5 0300 add eax, [eax]
008082F7 000D00047632 add [$32760400], cl
008082FD 7073 jo 00808372
008082FF A00300000D mov al, byte ptr [$0D000003]
00808304 000F add [edi], cl
00808306 637847 arpl [eax+$47], di
00808309 7269 jb 00808374
0080830B 6444 inc esp
0080830D 42 inc edx
0080830E 43 inc ebx
0080830F 6F outsd
00808310 6C insb
00808311 756D jnz 00808380
00808313 6E outsb
00808314 35A4030000 xor eax, $000003A4
00808319 0D00097632 or eax, $32760900
0080831E 43 inc ebx
0080831F 6F outsd
00808320 6C insb
00808321 756D jnz 00808390
00808323 6E outsb
00808324 37 aaa
00808325 A803 test al, $03
00808327 0000 add [eax], al
00808329 0D00097632 or eax, $32760900
0080832E 43 inc ebx
0080832F 6F outsd
00808330 6C insb
00808331 756D jnz 008083A0
00808333 6E outsb
00808334 38AC0300000D00 cmp [ebx+eax+$D0000], ch
0080833B 097632 or [esi+$32], esi
0080833E 43 inc ebx
0080833F 6F outsd
00808340 6C insb
00808341 756D jnz 008083B0
00808343 6E outsb
00808344 39B00300000D cmp [eax+$D000003], esi
0080834A 000A add [edx], cl
0080834C 7632 jbe 00808380
0080834E 43 inc ebx
0080834F 6F outsd
00808350 6C insb
00808351 756D jnz 008083C0
00808353 6E outsb
00808354 3130 xor [eax], esi
00808356 B403 mov ah, $03
00808358 0000 add [eax], al
0080835A 0900 or [eax], eax
0080835C 0C63 or al, $63
0080835E 7847 js 008083A7
00808360 7269 jb 008083CB
00808362 644C dec esp
00808364 657665 jbe 008083CC
00808367 6C insb
00808368 32B803000010 xor bh, byte ptr [eax+$10000003]
0080836E 000B add [ebx], cl
00808370 637853 arpl [eax+$53], di
00808373 706C jo 008083E1
00808375 697474657231BC03 imul esi, [esp+esi*2+$65], $03BC3172
0080837D 0000 add [eax], al
0080837F 0C00 or al, $00
00808381 0B446174 or eax, [ecx+$74]
00808385 61 popa
00808386 53 push ebx
00808387 6F outsd
00808388 7572 jnz 008083FC
0080838A 636531 arpl [ebp+$31], sp
0080838D C00300 rol byte ptr [ebx], $00
00808390 000F add [edi], cl
00808392 000B add [ebx], cl
00808394 59 pop ecx
00808395 46 inc esi
00808396 6F outsd
00808397 7264 jb 008083FD
00808399 65725F jb 008083FB
0080839C 53 push ebx
0080839D 7562 jnz 00808401
0080839F C403 les eax, [ebx]
008083A1 0000 add [eax], al
008083A3 0D000A7631 or eax, $31760A00
008083A8 46 inc esi
008083A9 4B dec ebx
008083AA 54 push esp
008083AB 61 popa
008083AC 69746F75C8030000 imul esi, [edi+ebp*2+$75], $000003C8
008083B4 0D00087632 or eax, $32760800
008083B9 4B dec ebx
008083BA 48 dec eax
008083BB 54 push esp
008083BC 7970 jns 0080842E
008083BE 65CC int 3
008083C0 0300 add eax, [eax]
008083C2 0006 add [esi], al
008083C4 0006 add [esi], al
008083C6 4C dec esp
008083C7 61 popa
008083C8 62656C bound esp, qword ptr [ebp+$6C]
008083CB 34D0 xor al, $D0
008083CD 0300 add eax, [eax]
008083CF 0011 add [ecx], dl
008083D1 0006 add [esi], al
008083D3 4B dec ebx
008083D4 48 dec eax
008083D5 54 push esp
008083D6 7970 jns 00808448
008083D8 65D4 aam
008083DA 0300 add eax, [eax]
008083DC 0011 add [ecx], dl
008083DE 000B add [ebx], cl
008083E0 46 inc esi
008083E1 61 popa
008083E2 63746F72 arpl [edi+ebp*2+$72], si
008083E6 794E jns 00808436
008083E8 61 popa
008083E9 6D insd
008083EA 65D803 fadd dword ptr gs:[ebx]
008083ED 0000 add [eax], al
008083EF 0100 add [eax], eax
008083F1 03544650 add edx, [esi+eax*2+$50]
008083F5 DC03 fadd qword ptr [ebx]
008083F7 0000 add [eax], al
008083F9 0D00097631 or eax, $31760900
008083FE 46 inc esi
008083FF 58 pop eax
00808400 4D dec ebp
00808401 6F outsd
00808402 6E outsb
00808403 6579E0 jns 008083E6
00808406 0300 add eax, [eax]
00808408 000D00097631 add [$31760900], cl
0080840E 53 push ebx
0080840F 58 pop eax
00808410 4D dec ebp
00808411 6F outsd
00808412 6E outsb
00808413 6579E4 jns 008083FA
00808416 0300 add eax, [eax]
00808418 000D000B7632 add [$32760B00], cl
0080841E 42 inc edx
0080841F 51 push ecx
00808420 46 inc esi
00808421 58 pop eax
00808422 4D dec ebp
00808423 6F outsd
00808424 6E outsb
00808425 6579E8 jns 00808410
00808428 0300 add eax, [eax]
0080842A 000D000B7632 add [$32760B00], cl
00808430 42 inc edx
00808431 51 push ecx
00808432 53 push ebx
00808433 58 pop eax
00808434 4D dec ebp
00808435 6F outsd
00808436 6E outsb
00808437 6579EC jns 00808426
0080843A 0300 add eax, [eax]
0080843C 000D00077631 add [$31760700], cl
00808442 43 inc ebx
00808443 6F outsd
00808444 6E outsb
00808445 6E outsb
00808446 4F dec edi
00808447 F0 lock
00808448 0300 add eax, [eax]
0080844A 000D00097631 add [$31760900], cl
00808450 4F dec edi
00808451 7264 jb 008084B7
00808453 65724E jb 008084A4
00808456 4F dec edi
00808457 F4 hlt
00808458 0300 add eax, [eax]
0080845A 000D00067632 add [$32760600], cl
00808460 53 push ebx
00808461 51 push ecx
00808462 51 push ecx
00808463 50 push eax
00808464 F8 clc
00808465 0300 add eax, [eax]
00808467 000D000B7632 add [$32760B00], cl
0080846D 42 inc edx
0080846E 51 push ecx
0080846F 58 pop eax
00808470 4B dec ebx
00808471 4D dec ebp
00808472 6F outsd
00808473 6E outsb
00808474 65790B jns 00808482
00808477 0012 add [edx], dl
00808479 006088 add [eax-$78], ah
0080847C 80000B add byte ptr [eax], $0B
0080847F 46 inc esi
00808480 6F outsd
00808481 726D jb 008084F0
00808483 44 inc esp
00808484 657374 jnb 008084FB
00808487 726F jb 008084F8
00808489 7910 jns 0080849B
0080848B 006888 add [eax-$78], ch
0080848E 800009 add byte ptr [eax], $09
00808491 46 inc esi
00808492 6F outsd
00808493 726D jb 00808502
00808495 43 inc ebx
00808496 6C insb
00808497 6F outsd
00808498 7365 jnb 008084FF
0080849A 1300 adc eax, [eax]
0080849C 6C insb
0080849D 8880000C5442 mov [eax+$42540C00], al
008084A3 43 inc ebx
008084A4 6C insb
008084A5 6F outsd
008084A6 7365 jnb 0080850D
008084A8 43 inc ebx
008084A9 6C insb
008084AA 69636B0F00E888 imul esp, [ebx+$6B], $88E8000F
008084B1 800008 add byte ptr [eax], $08
008084B4 46 inc esi
008084B5 6F outsd
008084B6 726D jb 00808525
008084B8 53 push ebx
008084B9 686F771500 push $0015776F
008084BE 58 pop eax
008084BF 8A80000E5442 mov al, byte ptr [eax+$42540E00]
008084C5 52 push edx
008084C6 61 popa
008084C7 667265 jb 0080852F
008084CA 7368 jnb 00808534
008084CC 43 inc ebx
008084CD 6C insb
008084CE 69636B1700608A imul esp, [ebx+$6B], $8A600017
008084D5 800010 add byte ptr [eax], $10
008084D8 54 push esp
008084D9 6F outsd
008084DA 6F outsd
008084DB 6C insb
008084DC 42 inc edx
008084DD 7574 jnz 00808553
008084DF 746F jz 00808550
008084E1 6E outsb
008084E2 32436C xor al, byte ptr [ebx+$6C]
008084E5 69636B1800048B imul esp, [ebx+$6B], $8B040018
008084EC 800011 add byte ptr [eax], $11
008084EF 46 inc esi
008084F0 61 popa
008084F1 63746F72 arpl [edi+ebp*2+$72], si
008084F5 794E jns 00808545
008084F7 61 popa
008084F8 6D insd
008084F9 6543 inc ebx
008084FB 68616E6765 push $65676E61
00808500 17 pop ss
00808501 0018 add [eax], bl
00808503 8B800010546F mov eax, [eax+$6F541000]
00808509 6F outsd
0080850A 6C insb
0080850B 42 inc edx
0080850C 7574 jnz 00808582
0080850E 746F jz 0080857F
00808510 6E outsb
00808511 31436C xor [ebx+$6C], eax
00808514 69636B1300608B imul esp, [ebx+$6B], $8B600013
0080851B 80000C add byte ptr [eax], $0C
0080851E 54 push esp
0080851F 7632 jbe 00808553
00808521 43 inc ebx
00808522 656C insb
00808524 6C insb
00808525 43 inc ebx
00808526 6C insb
00808527 69636B0F009C90 imul esp, [ebx+$6B], $909C000F
0080852E 800008 add byte ptr [eax], $08
00808531 54 push esp
00808532 46 inc esi
00808533 50 push eax
00808534 43 inc ebx
00808535 6C insb
00808536 69636B16005891 imul esp, [ebx+$6B], $91580016
0080853D 80000F add byte ptr [eax], $0F
00808540 54 push esp
00808541 7632 jbe 00808575
00808543 43 inc ebx
00808544 656C insb
00808546 6C insb
00808547 44 inc esp
00808548 626C436C bound ebp, qword ptr [ebx+eax*2+$6C]
0080854C 69636B0C546672 imul esp, [ebx+$6B], $7266540C
00808553 6D insd
00808554 59 pop ecx
00808555 46 inc esi
00808556 46 inc esi
00808557 4B dec ebx
00808558 4C dec esp
00808559 69737412002894 imul esi, [ebx+$74], $94280012
00808560 45 inc ebp
00808561 00648A45 add [edx+ecx*4+$45], ah
00808565 00B8124D0020 add [eax+$20004D12], bh
0080856B 42 inc edx
0080856C 44 inc esp
0080856D 0064D378 add [ebx+edx*8+$78], ah
00808571 00A80A78001C add [eax+$1C00780A], ch
00808577 5F pop edi
00808578 47 inc edi
00808579 0000 add [eax], al
0080857B 16 push ss
0080857C 6300 arpl [eax], ax
0080857E F4 hlt
0080857F B466 mov ah, $66
00808581 00A40E6400E0A5 add [esi+ecx+$A5E00064], ah
00808588 45 inc ebp
00808589 005876 add [eax+$76], bl
0080858C 7C00 jl 0080858E
0080858E 087F4B or [edi+$4B], bh
00808591 0034B1 add [ecx+esi*4], dh
00808594 6600B867470088 add [eax+$88004767], bh
0080859B 99 cdq
0080859C 6A00 push $00
0080859E 50 push eax
0080859F BF7B00F481 mov edi, $81F4007B
008085A4 47 inc edi
008085A5 008BC0AC8580 add [ebx+$8085ACC0], cl
008085AB 0007 add [edi], al
008085AD 0C54 or al, $54
008085AF 66726D jb 0080861F
008085B2 59 pop ecx
008085B3 46 inc esi
008085B4 46 inc esi
008085B5 4B dec ebx
008085B6 4C dec esp
008085B7 697374547F8000 imul esi, [ebx+$74], $00807F54
008085BE D0F2 DB $D0, $F2 // dl, 1
008085C0 49 dec ecx
008085C1 005E00 add [esi+$00], bl
008085C4 0A555F or dl, byte ptr [ebp+$5F]
008085C7 59 pop ecx
008085C8 46 inc esi
008085C9 46 inc esi
008085CA 4B dec ebx
008085CB 4C dec esp
008085CC 69737400008D40 imul esi, [ebx+$74], $408D0000
008085D3 00558B add [ebp-$75], dl
008085D6 EC in al, dx
008085D7 B909000000 mov ecx, $00000009
008085DC 6A00 push $00
008085DE 6A00 push $00
008085E0 49 dec ecx
008085E1 75F9 jnz 008085DC
008085E3 53 push ebx
008085E4 8945FC mov [ebp-$04], eax
008085E7 33C0 xor eax, eax
008085E9 55 push ebp
* Possible String Reference to: '<27>!ÿ<><C3BF><EFBFBD>[<5B><>]<5D>'
|
008085EA 68CE878000 push $008087CE
***** TRY
|
008085EF 64FF30 push dword ptr fs:[eax]
008085F2 648920 mov fs:[eax], esp
008085F5 33C0 xor eax, eax
008085F7 55 push ebp
008085F8 687F878000 push $0080877F
***** TRY
|
008085FD 64FF30 push dword ptr fs:[eax]
00808600 648920 mov fs:[eax], esp
00808603 8B45FC mov eax, [ebp-$04]
* Reference to control FromPlace : N.A.
|
00808606 8B8070030000 mov eax, [eax+$0370]
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
0080860C E843EFCBFF call 004C7554
00808611 8B45FC mov eax, [ebp-$04]
* Reference to control FromPlace : N.A.
|
00808614 8B9870030000 mov ebx, [eax+$0370]
0080861A 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
0080861C E8B3D2CBFF call 004C58D4
00808621 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
00808623 E88459CDFF call 004DDFAC
00808628 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
0080862A FF5244 call dword ptr [edx+$44]
0080862D 33D2 xor edx, edx
0080862F 8BC3 mov eax, ebx
00808631 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_0190
|
00808633 FF9190010000 call dword ptr [ecx+$0190]
00808639 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
0080863B E86C59CDFF call 004DDFAC
* Possible String Reference to: ' exec P_YFFK_List10 :begdate,:Endda
| te,:Flag'
|
00808640 BAE4878000 mov edx, $008087E4
00808645 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00808647 FF5138 call dword ptr [ecx+$38]
0080864A 8B45FC mov eax, [ebp-$04]
* Reference to control v1PRTPrice : N.A.
|
0080864D 8B8038030000 mov eax, [eax+$0338]
00808653 FFB014020000 push dword ptr [eax+$0214]
00808659 FFB010020000 push dword ptr [eax+$0210]
0080865F 8D55E4 lea edx, [ebp-$1C]
* Possible String Reference to: 'yyyy-MM-dd'
|
00808662 B818888000 mov eax, $00808818
|
00808667 E85065C0FF call 0040EBBC
0080866C 8B45E4 mov eax, [ebp-$1C]
0080866F 8D55E8 lea edx, [ebp-$18]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00808672 E87522C0FF call 0040A8EC
00808677 8B55E8 mov edx, [ebp-$18]
0080867A 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
0080867D E84607C1FF call 00418DC8
00808682 8D45EC lea eax, [ebp-$14]
00808685 50 push eax
00808686 8BC3 mov eax, ebx
* Reference to: ADODB.TCustomADODataSet.GetParameters(TCustomADODataSet):TParameters;
|
00808688 E8633CCDFF call 004DC2F0
0080868D BA28888000 mov edx, $00808828
* Reference to: ADODB.TParameters.ParamByName(TParameters;WideString):TParameter;
|
00808692 E869BDCCFF call 004D4400
00808697 5A pop edx
* Reference to: ADODB.TParameter.SetValue(TParameter;Variant;Variant);
|
00808698 E827D0CCFF call 004D56C4
0080869D 8B45FC mov eax, [ebp-$04]
* Reference to control ADOTemp : N.A.
|
008086A0 8B803C030000 mov eax, [eax+$033C]
008086A6 DD8010020000 fld qword ptr [eax+$0210]
008086AC D80538888000 fadd dword ptr [$00808838]
008086B2 83C4F8 add esp, -$08
008086B5 DD1C24 fstp qword ptr [esp]
008086B8 9B wait
008086B9 8D55CC lea edx, [ebp-$34]
* Possible String Reference to: 'yyyy-MM-dd'
|
008086BC B818888000 mov eax, $00808818
|
008086C1 E8F664C0FF call 0040EBBC
008086C6 8B45CC mov eax, [ebp-$34]
008086C9 8D55D0 lea edx, [ebp-$30]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008086CC E81B22C0FF call 0040A8EC
008086D1 8B55D0 mov edx, [ebp-$30]
008086D4 8D45D4 lea eax, [ebp-$2C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008086D7 E8EC06C1FF call 00418DC8
008086DC 8D45D4 lea eax, [ebp-$2C]
008086DF 50 push eax
008086E0 8BC3 mov eax, ebx
* Reference to: ADODB.TCustomADODataSet.GetParameters(TCustomADODataSet):TParameters;
|
008086E2 E8093CCDFF call 004DC2F0
008086E7 BA40888000 mov edx, $00808840
* Reference to: ADODB.TParameters.ParamByName(TParameters;WideString):TParameter;
|
008086EC E80FBDCCFF call 004D4400
008086F1 5A pop edx
* Reference to: ADODB.TParameter.SetValue(TParameter;Variant;Variant);
|
008086F2 E8CDCFCCFF call 004D56C4
008086F7 8D55B8 lea edx, [ebp-$48]
008086FA 8B45FC mov eax, [ebp-$04]
* Reference to control v1Column5 : N.A.
|
008086FD 8B80FC030000 mov eax, [eax+$03FC]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00808703 E8E421C0FF call 0040A8EC
00808708 8B55B8 mov edx, [ebp-$48]
0080870B 8D45BC lea eax, [ebp-$44]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
0080870E E8B506C1FF call 00418DC8
00808713 8D45BC lea eax, [ebp-$44]
00808716 50 push eax
00808717 8BC3 mov eax, ebx
* Reference to: ADODB.TCustomADODataSet.GetParameters(TCustomADODataSet):TParameters;
|
00808719 E8D23BCDFF call 004DC2F0
0080871E BA54888000 mov edx, $00808854
* Reference to: ADODB.TParameters.ParamByName(TParameters;WideString):TParameter;
|
00808723 E8D8BCCCFF call 004D4400
00808728 5A pop edx
* Reference to: ADODB.TParameter.SetValue(TParameter;Variant;Variant);
|
00808729 E896CFCCFF call 004D56C4
0080872E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
00808730 E893D1CBFF call 004C58C8
00808735 8B45FC mov eax, [ebp-$04]
* Reference to control CustomerNoName : N.A.
|
00808738 8B9074030000 mov edx, [eax+$0374]
0080873E 8B45FC mov eax, [ebp-$04]
* Reference to control FromPlace : N.A.
|
00808741 8B8070030000 mov eax, [eax+$0370]
|
00808747 E844E7FAFF call 007B6E90
0080874C 8B45FC mov eax, [ebp-$04]
* Reference to control CustomerNoName : N.A.
|
0080874F 8B9074030000 mov edx, [eax+$0374]
00808755 8B45FC mov eax, [ebp-$04]
* Reference to control FromPlace : N.A.
|
00808758 8B8070030000 mov eax, [eax+$0370]
|
0080875E E8B5E8FAFF call 007B7018
00808763 33C0 xor eax, eax
00808765 5A pop edx
00808766 59 pop ecx
00808767 59 pop ecx
00808768 648910 mov fs:[eax], edx
****** FINALLY
|
0080876B 6886878000 push $00808786
00808770 8B45FC mov eax, [ebp-$04]
* Reference to control FromPlace : N.A.
|
00808773 8B8070030000 mov eax, [eax+$0370]
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
00808779 E8F6EDCBFF call 004C7574
0080877E C3 ret
* Reference to: System.@HandleFinally;
|
0080877F E970C3BFFF jmp 00404AF4
00808784 EBEA jmp 00808770
****** END
|
00808786 33C0 xor eax, eax
00808788 5A pop edx
00808789 59 pop ecx
0080878A 59 pop ecx
0080878B 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[<5B><>]<5D>'
|
0080878E 68D5878000 push $008087D5
00808793 8D45B8 lea eax, [ebp-$48]
* Reference to: System.@LStrClr(void;void);
|
00808796 E889CBBFFF call 00405324
0080879B 8D45BC lea eax, [ebp-$44]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
0080879E E8D1BEC0FF call 00414674
008087A3 8D45CC lea eax, [ebp-$34]
008087A6 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
008087AB E898CBBFFF call 00405348
008087B0 8D45D4 lea eax, [ebp-$2C]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
008087B3 E8BCBEC0FF call 00414674
008087B8 8D45E4 lea eax, [ebp-$1C]
008087BB BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
008087C0 E883CBBFFF call 00405348
008087C5 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
008087C8 E8A7BEC0FF call 00414674
008087CD C3 ret
*)
end;
end.
Reference in New Issue Copy Permalink