D7myChuangpin/YSYF/U_YSSKList_KP.pas
“ddf” ece69a5ac1 1
2024-07-23 20:18:14 +08:00

2645 lines
100 KiB
ObjectPascal
Raw Permalink Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

unit U_YSSKList_KP;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmYSSKList_KP=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;
cxGridDBColumn12: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
V1FactoryName: TcxGridDBColumn;
cxSplitter1: TcxSplitter;
FactoryName: TComboBox;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
v2Column2: TcxGridDBColumn;
v2YFName: TcxGridDBColumn;
v2factoryName: TcxGridDBColumn;
v2ComTaiTou: TcxGridDBColumn;
v2Column5: TcxGridDBColumn;
v2P_Spec: TcxGridDBColumn;
v2FKType: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v2Column7: TcxGridDBColumn;
v2KPMoney: TcxGridDBColumn;
v2Money: TcxGridDBColumn;
v2QtyUnit: TcxGridDBColumn;
v2Column10: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
v2FKTaitou: TcxGridDBColumn;
YForder_Sub: TClientDataSet;
DataSource1: TDataSource;
V1FKTaitou: TcxGridDBColumn;
Label7: TLabel;
FKTaitou: TEdit;
V1RMBSQMoney: TcxGridDBColumn;
Panel3: TPanel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label17: TLabel;
Label18: TLabel;
Label8: TLabel;
Label9: TLabel;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
ComTaiTou: TcxGridDBColumn;
YFName: TcxGridDBColumn;
P_CodeName: TEdit;
P_Spec: 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_0081E480(Sender : TObject);
procedure _PROC_0081E610(Sender : TObject);
procedure _PROC_0081F134(Sender : TObject);
procedure _PROC_0081F164(Sender : TObject);
procedure _PROC_0081F16C(Sender : TObject);
procedure _PROC_0081F1D2(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmYSSKList_KP: TfrmYSSKList_KP;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmYSSKList_KP.FormDestroy(Sender : TObject);
begin
(*
0081E8E0 33C0 xor eax, eax
* Reference to GlobalVar_008959A8
|
0081E8E2 A3A8598900 mov dword ptr [$008959A8], eax
0081E8E7 C3 ret
*)
end;
procedure TfrmYSSKList_KP.FormClose(Sender : TObject);
begin
(*
0081E8E8 C60102 mov byte ptr [ecx], $02
0081E8EB C3 ret
*)
end;
procedure TfrmYSSKList_KP.TBCloseClick(Sender : TObject);
begin
(*
0081E8EC 53 push ebx
0081E8ED 8BD8 mov ebx, eax
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
0081E8EF B92CE98100 mov ecx, $0081E92C
* Reference to control TfrmYSSKList_KP.Tv2 : TcxGridDBTableView
|
0081E8F4 8B9370030000 mov edx, [ebx+$0370]
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD>տ<EFBFBD>ͳ<EFBFBD><CDB3>'
|
0081E8FA B840E98100 mov eax, $0081E940
|
0081E8FF E89C92F9FF call 007B7BA0
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
0081E904 B92CE98100 mov ecx, $0081E92C
* Reference to control TfrmYSSKList_KP.Tv2 : TcxGridDBTableView
|
0081E909 8B9370030000 mov edx, [ebx+$0370]
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD>տ<EFBFBD>ͳ<EFBFBD><CDB3>1'
|
0081E90F B858E98100 mov eax, $0081E958
|
0081E914 E88792F9FF call 007B7BA0
0081E919 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
0081E91B E87876C8FF call 004A5F98
0081E920 5B pop ebx
0081E921 C3 ret
*)
end;
procedure TfrmYSSKList_KP.FormShow(Sender : TObject);
begin
(*
0081E968 55 push ebp
0081E969 8BEC mov ebp, esp
0081E96B 6A00 push $00
0081E96D 6A00 push $00
0081E96F 53 push ebx
0081E970 8BD8 mov ebx, eax
0081E972 33C0 xor eax, eax
0081E974 55 push ebp
* Possible String Reference to: '<27><>`<60><><EFBFBD><EFBFBD>[YY]<5D>'
|
0081E975 684DEA8100 push $0081EA4D
***** TRY
|
0081E97A 64FF30 push dword ptr fs:[eax]
0081E97D 648920 mov fs:[eax], esp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
0081E980 B964EA8100 mov ecx, $0081EA64
* Reference to control TfrmYSSKList_KP.Tv2 : TcxGridDBTableView
|
0081E985 8B9370030000 mov edx, [ebx+$0370]
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD>տ<EFBFBD>ͳ<EFBFBD><CDB3>'
|
0081E98B B878EA8100 mov eax, $0081EA78
|
0081E990 E80F90F9FF call 007B79A4
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
0081E995 B964EA8100 mov ecx, $0081EA64
* Reference to control TfrmYSSKList_KP.Tv2 : TcxGridDBTableView
|
0081E99A 8B9370030000 mov edx, [ebx+$0370]
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD>տ<EFBFBD>ͳ<EFBFBD><CDB3>1'
|
0081E9A0 B890EA8100 mov eax, $0081EA90
|
0081E9A5 E8FA8FF9FF call 007B79A4
* Reference to control TfrmYSSKList_KP.ADOQueryTemp : TADOQuery
|
0081E9AA 8B8304030000 mov eax, [ebx+$0304]
|
0081E9B0 E8D35FF9FF call 007B4988
0081E9B5 83C4F8 add esp, -$08
0081E9B8 DD1C24 fstp qword ptr [esp]
0081E9BB 9B wait
* Reference to control TfrmYSSKList_KP.Enddate : TDateTimePicker
|
0081E9BC 8B8334030000 mov eax, [ebx+$0334]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
0081E9C2 E86538C5FF call 0047222C
* Reference to control TfrmYSSKList_KP.Enddate : TDateTimePicker
|
0081E9C7 8B8334030000 mov eax, [ebx+$0334]
0081E9CD DD8010020000 fld qword ptr [eax+$0210]
0081E9D3 D825A0EA8100 fsub dword ptr [$0081EAA0]
0081E9D9 83C4F8 add esp, -$08
0081E9DC DD1C24 fstp qword ptr [esp]
0081E9DF 9B wait
* Reference to control TfrmYSSKList_KP.begdate : TDateTimePicker
|
0081E9E0 8B8330030000 mov eax, [ebx+$0330]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
0081E9E6 E84138C5FF call 0047222C
0081E9EB 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>' '
|
0081E9EE BAACEA8100 mov edx, $0081EAAC
* Reference to: System.@LStrLAsg(void;void;void;void);
|
0081E9F3 E8C469BEFF call 004053BC
0081E9F8 8B45FC mov eax, [ebp-$04]
0081E9FB 50 push eax
0081E9FC 33C9 xor ecx, ecx
* Reference to control TfrmYSSKList_KP.FactoryName : TComboBox
|
0081E9FE 8B9368030000 mov edx, [ebx+$0368]
* Reference to control TfrmYSSKList_KP.ADOQueryCmd : TADOQuery
|
0081EA04 8B8308030000 mov eax, [ebx+$0308]
|
0081EA0A E83988F9FF call 007B7248
0081EA0F 8D55F8 lea edx, [ebp-$08]
* Reference to field TfrmYSSKList_KP.OFFS_0410
|
0081EA12 8B8310040000 mov eax, [ebx+$0410]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0081EA18 E8CFBEBEFF call 0040A8EC
0081EA1D 8B55F8 mov edx, [ebp-$08]
* Reference to control TfrmYSSKList_KP.FactoryName : TComboBox
|
0081EA20 8B8368030000 mov eax, [ebx+$0368]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0081EA26 E8F59BC6FF call 00488620
0081EA2B 8BC3 mov eax, ebx
|
0081EA2D E82AF4FFFF call 0081DE5C
0081EA32 33C0 xor eax, eax
0081EA34 5A pop edx
0081EA35 59 pop ecx
0081EA36 59 pop ecx
0081EA37 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[YY]<5D>'
|
0081EA3A 6854EA8100 push $0081EA54
0081EA3F 8D45F8 lea eax, [ebp-$08]
0081EA42 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0081EA47 E8FC68BEFF call 00405348
0081EA4C C3 ret
* Reference to: System.@HandleFinally;
|
0081EA4D E9A260BEFF jmp 00404AF4
0081EA52 EBEB jmp 0081EA3F
****** END
|
0081EA54 5B pop ebx
0081EA55 59 pop ecx
0081EA56 59 pop ecx
0081EA57 5D pop ebp
0081EA58 C3 ret
*)
end;
procedure TfrmYSSKList_KP.TBRafreshClick(Sender : TObject);
begin
(*
|
0081EB04 E853F3FFFF call 0081DE5C
0081EB09 C3 ret
*)
end;
procedure TfrmYSSKList_KP.ToolButton2Click(Sender : TObject);
begin
(*
0081EB0C 55 push ebp
0081EB0D 8BEC mov ebp, esp
0081EB0F 33D2 xor edx, edx
0081EB11 55 push ebp
* Possible String Reference to: '<27><>_<EFBFBD><5F><EFBFBD><EFBFBD>]Í@'
|
0081EB12 6830EB8100 push $0081EB30
***** TRY
|
0081EB17 64FF32 push dword ptr fs:[edx]
0081EB1A 648922 mov fs:[edx], esp
|
0081EB1D E83AF3FFFF call 0081DE5C
0081EB22 33C0 xor eax, eax
0081EB24 5A pop edx
0081EB25 59 pop ecx
0081EB26 59 pop ecx
0081EB27 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Í@'
|
0081EB2A 6837EB8100 push $0081EB37
0081EB2F C3 ret
* Reference to: System.@HandleFinally;
|
0081EB30 E9BF5FBEFF jmp 00404AF4
0081EB35 EBF8 jmp 0081EB2F
****** END
|
0081EB37 5D pop ebp
0081EB38 C3 ret
*)
end;
procedure TfrmYSSKList_KP.FactoryNameChange(Sender : TObject);
begin
(*
0081EB3C 56 push esi
* Reference to control TfrmYSSKList_KP.ToolButton2 : TToolButton
|
0081EB3D 8B8010030000 mov eax, [eax+$0310]
0081EB43 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
0081EB47 E8085ABEFF call 00404554
0081EB4C 5E pop esi
0081EB4D C3 ret
*)
end;
procedure TfrmYSSKList_KP.ToolButton1Click(Sender : TObject);
begin
(*
0081EB50 53 push ebx
0081EB51 8BD8 mov ebx, eax
* Reference to control TfrmYSSKList_KP.ADOQueryMain : TADOQuery
|
0081EB53 8B8314030000 mov eax, [ebx+$0314]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
0081EB59 E86293CAFF call 004C7EC0
0081EB5E 84C0 test al, al
0081EB60 7516 jnz 0081EB78
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD>տ<EFBFBD>ͳ<EFBFBD><CDB3><EFBFBD>б<EFBFBD>'
|
0081EB62 B984EB8100 mov ecx, $0081EB84
* Reference to control TfrmYSSKList_KP.ADOQueryMain : TADOQuery
|
0081EB67 8B9314030000 mov edx, [ebx+$0314]
* Reference to control TfrmYSSKList_KP.Tv2 : TcxGridDBTableView
|
0081EB6D 8B8370030000 mov eax, [ebx+$0370]
|
0081EB73 E8B896F9FF call 007B8230
0081EB78 5B pop ebx
0081EB79 C3 ret
*)
end;
procedure TfrmYSSKList_KP.TV1CellClick(Sender : TObject);
begin
(*
0081EB98 55 push ebp
0081EB99 8BEC mov ebp, esp
0081EB9B 51 push ecx
0081EB9C B906000000 mov ecx, $00000006
0081EBA1 6A00 push $00
0081EBA3 6A00 push $00
0081EBA5 49 dec ecx
0081EBA6 75F9 jnz 0081EBA1
0081EBA8 51 push ecx
0081EBA9 874DFC xchg [ebp-$04], ecx
0081EBAC 53 push ebx
0081EBAD 56 push esi
0081EBAE 8BF0 mov esi, eax
0081EBB0 33C0 xor eax, eax
0081EBB2 55 push ebp
0081EBB3 68AAEE8100 push $0081EEAA
***** TRY
|
0081EBB8 64FF30 push dword ptr fs:[eax]
0081EBBB 648920 mov fs:[eax], esp
* Reference to control TfrmYSSKList_KP.CDS_HZ : TClientDataSet
|
0081EBBE 8B8640030000 mov eax, [esi+$0340]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
0081EBC4 E8F792CAFF call 004C7EC0
0081EBC9 84C0 test al, al
0081EBCB 0F85BE020000 jnz 0081EE8F
* Reference to control TfrmYSSKList_KP.ADOQueryCmd : TADOQuery
|
0081EBD1 8B9E08030000 mov ebx, [esi+$0308]
0081EBD7 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
0081EBD9 E8F66CCAFF call 004C58D4
0081EBDE 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0081EBE0 E8C7F3CBFF call 004DDFAC
0081EBE5 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
0081EBE7 FF5244 call dword ptr [edx+$44]
0081EBEA 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0081EBEC E8BBF3CBFF call 004DDFAC
* Possible String Reference to: ' select AA.* '
|
0081EBF1 BAC4EE8100 mov edx, $0081EEC4
0081EBF6 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0081EBF8 FF5138 call dword ptr [ecx+$38]
0081EBFB 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0081EBFD E8AAF3CBFF call 004DDFAC
* Possible String Reference to: ' from (select A.*'
|
0081EC02 BADCEE8100 mov edx, $0081EEDC
0081EC07 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0081EC09 FF5138 call dword ptr [ecx+$38]
0081EC0C 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0081EC0E E899F3CBFF call 004DDFAC
* Possible String Reference to: ' from YF_Money_CR A'
|
0081EC13 BAF8EE8100 mov edx, $0081EEF8
0081EC18 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0081EC1A FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where A.CRTime>=''
|
0081EC1D 6814EF8100 push $0081EF14
* Reference to control TfrmYSSKList_KP.begdate : TDateTimePicker
|
0081EC22 8B8630030000 mov eax, [esi+$0330]
0081EC28 FFB014020000 push dword ptr [eax+$0214]
0081EC2E FFB010020000 push dword ptr [eax+$0210]
0081EC34 8D55F8 lea edx, [ebp-$08]
* Possible String Reference to: 'yyyy-MM-dd'
|
0081EC37 B830EF8100 mov eax, $0081EF30
|
0081EC3C E87BFFBEFF call 0040EBBC
0081EC41 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '' '
|
0081EC44 6844EF8100 push $0081EF44
0081EC49 8D45FC lea eax, [ebp-$04]
0081EC4C BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
0081EC51 E85E6ABEFF call 004056B4
0081EC56 8B45FC mov eax, [ebp-$04]
0081EC59 50 push eax
0081EC5A 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0081EC5C E84BF3CBFF call 004DDFAC
0081EC61 5A pop edx
0081EC62 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0081EC64 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' and A.CRTime<''
|
0081EC67 6850EF8100 push $0081EF50
* Reference to control TfrmYSSKList_KP.Enddate : TDateTimePicker
|
0081EC6C 8B8634030000 mov eax, [esi+$0334]
0081EC72 DD8010020000 fld qword ptr [eax+$0210]
0081EC78 D80560EF8100 fadd dword ptr [$0081EF60]
0081EC7E 83C4F8 add esp, -$08
0081EC81 DD1C24 fstp qword ptr [esp]
0081EC84 9B wait
0081EC85 8D55F0 lea edx, [ebp-$10]
* Possible String Reference to: 'yyyy-MM-dd'
|
0081EC88 B830EF8100 mov eax, $0081EF30
|
0081EC8D E82AFFBEFF call 0040EBBC
0081EC92 FF75F0 push dword ptr [ebp-$10]
* Possible String Reference to: '' '
|
0081EC95 6844EF8100 push $0081EF44
0081EC9A 8D45F4 lea eax, [ebp-$0C]
0081EC9D BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
0081ECA2 E80D6ABEFF call 004056B4
0081ECA7 8B45F4 mov eax, [ebp-$0C]
0081ECAA 50 push eax
0081ECAB 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0081ECAD E8FAF2CBFF call 004DDFAC
0081ECB2 5A pop edx
0081ECB3 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0081ECB5 FF5138 call dword ptr [ecx+$38]
0081ECB8 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0081ECBA E8EDF2CBFF call 004DDFAC
* Possible String Reference to: ' and A.CRType='Ӧ<>տƱ<EEB7A2>Ǽ<EFBFBD>' '
|
0081ECBF BA6CEF8100 mov edx, $0081EF6C
0081ECC4 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0081ECC6 FF5138 call dword ptr [ecx+$38]
0081ECC9 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0081ECCB E8DCF2CBFF call 004DDFAC
* Possible String Reference to: ' union all'
|
0081ECD0 BA94EF8100 mov edx, $0081EF94
0081ECD5 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0081ECD7 FF5138 call dword ptr [ecx+$38]
0081ECDA 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0081ECDC E8CBF2CBFF call 004DDFAC
* Possible String Reference to: ' select A.*'
|
0081ECE1 BAA8EF8100 mov edx, $0081EFA8
0081ECE6 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0081ECE8 FF5138 call dword ptr [ecx+$38]
0081ECEB 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0081ECED E8BAF2CBFF call 004DDFAC
* Possible String Reference to: ' from YF_Money_CR A'
|
0081ECF2 BAF8EE8100 mov edx, $0081EEF8
0081ECF7 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0081ECF9 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where A.CRTime>=''
|
0081ECFC 6814EF8100 push $0081EF14
* Reference to control TfrmYSSKList_KP.begdate : TDateTimePicker
|
0081ED01 8B8630030000 mov eax, [esi+$0330]
0081ED07 FFB014020000 push dword ptr [eax+$0214]
0081ED0D FFB010020000 push dword ptr [eax+$0210]
0081ED13 8D55E8 lea edx, [ebp-$18]
* Possible String Reference to: 'yyyy-MM-dd'
|
0081ED16 B830EF8100 mov eax, $0081EF30
|
0081ED1B E89CFEBEFF call 0040EBBC
0081ED20 FF75E8 push dword ptr [ebp-$18]
* Possible String Reference to: '' '
|
0081ED23 6844EF8100 push $0081EF44
0081ED28 8D45EC lea eax, [ebp-$14]
0081ED2B BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
0081ED30 E87F69BEFF call 004056B4
0081ED35 8B45EC mov eax, [ebp-$14]
0081ED38 50 push eax
0081ED39 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0081ED3B E86CF2CBFF call 004DDFAC
0081ED40 5A pop edx
0081ED41 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0081ED43 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' and A.CRTime<''
|
0081ED46 6850EF8100 push $0081EF50
* Reference to control TfrmYSSKList_KP.Enddate : TDateTimePicker
|
0081ED4B 8B8634030000 mov eax, [esi+$0334]
0081ED51 DD8010020000 fld qword ptr [eax+$0210]
0081ED57 D80560EF8100 fadd dword ptr [$0081EF60]
0081ED5D 83C4F8 add esp, -$08
0081ED60 DD1C24 fstp qword ptr [esp]
0081ED63 9B wait
0081ED64 8D55E0 lea edx, [ebp-$20]
* Possible String Reference to: 'yyyy-MM-dd'
|
0081ED67 B830EF8100 mov eax, $0081EF30
|
0081ED6C E84BFEBEFF call 0040EBBC
0081ED71 FF75E0 push dword ptr [ebp-$20]
* Possible String Reference to: '' '
|
0081ED74 6844EF8100 push $0081EF44
0081ED79 8D45E4 lea eax, [ebp-$1C]
0081ED7C BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
0081ED81 E82E69BEFF call 004056B4
0081ED86 8B45E4 mov eax, [ebp-$1C]
0081ED89 50 push eax
0081ED8A 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0081ED8C E81BF2CBFF call 004DDFAC
0081ED91 5A pop edx
0081ED92 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0081ED94 FF5138 call dword ptr [ecx+$38]
0081ED97 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0081ED99 E80EF2CBFF call 004DDFAC
* Possible String Reference to: ' and A.CRType='<27>տ<EFBFBD><D5BF>Ǽ<EFBFBD>' '
|
0081ED9E BAC0EF8100 mov edx, $0081EFC0
0081EDA3 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0081EDA5 FF5138 call dword ptr [ecx+$38]
0081EDA8 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0081EDAA E8FDF1CBFF call 004DDFAC
* Possible String Reference to: ' and isnull(A.status,'0')<>'0' ) AA'
|
0081EDAF BAE4EF8100 mov edx, $0081EFE4
0081EDB4 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0081EDB6 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where AA.FactoryName=''
|
0081EDB9 6810F08100 push $0081F010
* Possible String Reference to: 'FactoryName'
|
0081EDBE BA30F08100 mov edx, $0081F030
* Reference to control TfrmYSSKList_KP.CDS_HZ : TClientDataSet
|
0081EDC3 8B8640030000 mov eax, [esi+$0340]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0081EDC9 E8E67DCAFF call 004C6BB4
0081EDCE 8D55D4 lea edx, [ebp-$2C]
0081EDD1 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
0081EDD3 FF5160 call dword ptr [ecx+$60]
0081EDD6 8B45D4 mov eax, [ebp-$2C]
0081EDD9 8D55D8 lea edx, [ebp-$28]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0081EDDC E80BBBBEFF call 0040A8EC
0081EDE1 FF75D8 push dword ptr [ebp-$28]
0081EDE4 6844F08100 push $0081F044
0081EDE9 8D45DC lea eax, [ebp-$24]
0081EDEC BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
0081EDF1 E8BE68BEFF call 004056B4
0081EDF6 8B45DC mov eax, [ebp-$24]
0081EDF9 50 push eax
0081EDFA 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0081EDFC E8ABF1CBFF call 004DDFAC
0081EE01 5A pop edx
0081EE02 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0081EE04 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' and isnull(AA.FKTaitou,'')=''
|
0081EE07 6850F08100 push $0081F050
* Possible String Reference to: 'FKTaitou'
|
0081EE0C BA78F08100 mov edx, $0081F078
* Reference to control TfrmYSSKList_KP.CDS_HZ : TClientDataSet
|
0081EE11 8B8640030000 mov eax, [esi+$0340]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0081EE17 E8987DCAFF call 004C6BB4
0081EE1C 8D55C8 lea edx, [ebp-$38]
0081EE1F 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
0081EE21 FF5160 call dword ptr [ecx+$60]
0081EE24 8B45C8 mov eax, [ebp-$38]
0081EE27 8D55CC lea edx, [ebp-$34]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0081EE2A E8BDBABEFF call 0040A8EC
0081EE2F FF75CC push dword ptr [ebp-$34]
0081EE32 6844F08100 push $0081F044
0081EE37 8D45D0 lea eax, [ebp-$30]
0081EE3A BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
0081EE3F E87068BEFF call 004056B4
0081EE44 8B45D0 mov eax, [ebp-$30]
0081EE47 50 push eax
0081EE48 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0081EE4A E85DF1CBFF call 004DDFAC
0081EE4F 5A pop edx
0081EE50 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0081EE52 FF5138 call dword ptr [ecx+$38]
0081EE55 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0081EE57 E850F1CBFF call 004DDFAC
* Possible String Reference to: ' order by AA.CRtime'
|
0081EE5C BA8CF08100 mov edx, $0081F08C
0081EE61 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0081EE63 FF5138 call dword ptr [ecx+$38]
0081EE66 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
0081EE68 E85B6ACAFF call 004C58C8
* Reference to control TfrmYSSKList_KP.YForder_Sub : TClientDataSet
|
0081EE6D 8B96B0030000 mov edx, [esi+$03B0]
* Reference to control TfrmYSSKList_KP.ADOQueryCmd : TADOQuery
|
0081EE73 8B8608030000 mov eax, [esi+$0308]
|
0081EE79 E81280F9FF call 007B6E90
* Reference to control TfrmYSSKList_KP.YForder_Sub : TClientDataSet
|
0081EE7E 8B96B0030000 mov edx, [esi+$03B0]
* Reference to control TfrmYSSKList_KP.ADOQueryCmd : TADOQuery
|
0081EE84 8B8608030000 mov eax, [esi+$0308]
|
0081EE8A E88981F9FF call 007B7018
0081EE8F 33C0 xor eax, eax
0081EE91 5A pop edx
0081EE92 59 pop ecx
0081EE93 59 pop ecx
0081EE94 648910 mov fs:[eax], edx
****** FINALLY
|
0081EE97 68B1EE8100 push $0081EEB1
0081EE9C 8D45C8 lea eax, [ebp-$38]
0081EE9F BA0E000000 mov edx, $0000000E
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0081EEA4 E89F64BEFF call 00405348
0081EEA9 C3 ret
* Reference to: System.@HandleFinally;
|
0081EEAA E9455CBEFF jmp 00404AF4
0081EEAF EBEB jmp 0081EE9C
****** END
|
0081EEB1 5E pop esi
0081EEB2 5B pop ebx
0081EEB3 8BE5 mov esp, ebp
0081EEB5 5D pop ebp
0081EEB6 C20C00 ret $000C
*)
end;
procedure TfrmYSSKList_KP.YFNameChange(Sender : TObject);
begin
(*
0081F0A0 55 push ebp
0081F0A1 8BEC mov ebp, esp
0081F0A3 6A00 push $00
0081F0A5 6A00 push $00
0081F0A7 53 push ebx
0081F0A8 8BD8 mov ebx, eax
0081F0AA 33C0 xor eax, eax
0081F0AC 55 push ebp
* Possible String Reference to: '<27><>Y<EFBFBD><59><EFBFBD><EFBFBD>[YY]ÐU<C390><55>3<EFBFBD>UhY<68><59>'
|
0081F0AD 6827F18100 push $0081F127
***** TRY
|
0081F0B2 64FF30 push dword ptr fs:[eax]
0081F0B5 648920 mov fs:[eax], esp
0081F0B8 8D45F8 lea eax, [ebp-$08]
0081F0BB 50 push eax
0081F0BC B902000000 mov ecx, $00000002
0081F0C1 BA01000000 mov edx, $00000001
* Reference to control TfrmYSSKList_KP.Panel3 : TPanel
|
0081F0C6 8B83C8030000 mov eax, [ebx+$03C8]
|
0081F0CC E8DF6FF9FF call 007B60B0
0081F0D1 8B45F8 mov eax, [ebp-$08]
0081F0D4 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0081F0D7 E810B8BEFF call 0040A8EC
0081F0DC 8B55FC mov edx, [ebp-$04]
* Reference to control TfrmYSSKList_KP.ADOQueryCmd : TADOQuery
|
0081F0DF 8B8308030000 mov eax, [ebx+$0308]
|
0081F0E5 E8DE7BF9FF call 007B6CC8
* Reference to control TfrmYSSKList_KP.YForder_Sub : TClientDataSet
|
0081F0EA 8B93B0030000 mov edx, [ebx+$03B0]
* Reference to control TfrmYSSKList_KP.ADOQueryCmd : TADOQuery
|
0081F0F0 8B8308030000 mov eax, [ebx+$0308]
|
0081F0F6 E8957DF9FF call 007B6E90
* Reference to control TfrmYSSKList_KP.YForder_Sub : TClientDataSet
|
0081F0FB 8B93B0030000 mov edx, [ebx+$03B0]
* Reference to control TfrmYSSKList_KP.ADOQueryCmd : TADOQuery
|
0081F101 8B8308030000 mov eax, [ebx+$0308]
|
0081F107 E80C7FF9FF call 007B7018
0081F10C 33C0 xor eax, eax
0081F10E 5A pop edx
0081F10F 59 pop ecx
0081F110 59 pop ecx
0081F111 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[YY]ÐU<C390><55>3<EFBFBD>UhY<68><59>'
|
0081F114 682EF18100 push $0081F12E
0081F119 8D45F8 lea eax, [ebp-$08]
0081F11C BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0081F121 E82262BEFF call 00405348
0081F126 C3 ret
* Reference to: System.@HandleFinally;
|
0081F127 E9C859BEFF jmp 00404AF4
0081F12C EBEB jmp 0081F119
****** END
|
0081F12E 5B pop ebx
0081F12F 59 pop ecx
0081F130 59 pop ecx
0081F131 5D pop ebp
0081F132 C3 ret
*)
end;
procedure TfrmYSSKList_KP._PROC_0081E480(Sender : TObject);
begin
(*
0081E480 53 push ebx
0081E481 44 inc esp
0081E482 27 daa
0081E483 20616E and [ecx+$6E], ah
0081E486 6420422E and fs:[edx+$2E], al
0081E48A 42 inc edx
0081E48B 5A pop edx
0081E48C 54 push esp
0081E48D 7970 jns 0081E4FF
0081E48F 653C3E cmp al, $3E
0081E492 27 daa
0081E493 2427 and al, $27
0081E495 20616E and [ecx+$6E], ah
0081E498 6420422E and fs:[edx+$2E], al
0081E49C 6661 popa
0081E49E 63746F72 arpl [edi+ebp*2+$72], si
0081E4A2 794E jns 0081E4F2
0081E4A4 61 popa
0081E4A5 6D insd
0081E4A6 653D412E6661 cmp eax, $61662E41
0081E4AC 63746F72 arpl [edi+ebp*2+$72], si
0081E4B0 794E jns 0081E500
0081E4B2 61 popa
0081E4B3 6D insd
0081E4B4 652000 and gs:[eax], al
0081E4B7 00FF add bh, bh
0081E4B9 FFFF DB $FF, $FF //
0081E4BB FF6200 jmp dword ptr [edx+$00]
0081E4BE 0000 add [eax], al
0081E4C0 61 popa
0081E4C1 6E outsb
0081E4C2 6420422E and fs:[edx+$2E], al
0081E4C6 43 inc ebx
0081E4C7 52 push edx
0081E4C8 46 inc esi
0081E4C9 6C insb
0081E4CA 61 popa
0081E4CB 673D27D3A6CA cmp eax, $CAA6D327
0081E4D1 D5 aad
0081E4D2 CA ret
0081E4D3 D5 aad
0081E4D4 27 daa
0081E4D5 20616E and [ecx+$6E], ah
0081E4D8 64204352 and fs:[ebx+$52], al
0081E4DC 54 push esp
0081E4DD 7970 jns 0081E54F
0081E4DF 653D27D3A6CA cmp eax, $CAA6D327
0081E4E5 D5 aad
0081E4E6 BFEEB7A2C6 mov edi, $C6A2B7EE
0081E4EB B1B5 mov cl, $B5
0081E4ED C7BCC72720616E64206973 mov dword ptr [edi+eax*8+$6E612027], $73692064
0081E4F8 6E outsb
0081E4F9 756C jnz 0081E567
0081E4FB 6C insb
0081E4FC 28422E sub [edx+$2E], al
0081E4FF 46 inc esi
0081E500 4B dec ebx
0081E501 54 push esp
0081E502 61 popa
0081E503 69546F752C272729 imul edx, [edi+ebp*2+$75], $2927272C
0081E50B 3D69736E75 cmp eax, $756E7369
0081E510 6C insb
0081E511 6C insb
0081E512 28412E sub [ecx+$2E], al
0081E515 46 inc esi
0081E516 4B dec ebx
0081E517 54 push esp
0081E518 61 popa
0081E519 69746F752C272729 imul esi, [edi+ebp*2+$75], $2927272C
0081E521 2900 sub dword ptr [eax], eax
0081E523 00FF add bh, bh
0081E525 FFFF DB $FF, $FF //
0081E527 FF3B DB $FF, $3B //
0081E529 0000 add [eax], al
0081E52B 002C52 add [edx+edx*2], ch
0081E52E 4D dec ebp
0081E52F 42 inc edx
0081E530 42 inc edx
0081E531 51 push ecx
0081E532 4B dec ebx
0081E533 50 push eax
0081E534 3D2873656C cmp eax, $6C657328
0081E539 6563742069 arpl gs:[eax+$69], si
0081E53E 736E jnb 0081E5AE
0081E540 756C jnz 0081E5AE
0081E542 6C insb
0081E543 285375 sub [ebx+$75], dl
0081E546 6D insd
0081E547 284B50 sub [ebx+$50], cl
0081E54A 4D dec ebp
0081E54B 6F outsd
0081E54C 6E outsb
0081E54D 657929 jns 0081E579
0081E550 2C30 sub al, $30
0081E552 2920 sub dword ptr [eax], esp
0081E554 66726F jb 0081E5C6
0081E557 6D insd
0081E558 205946 and [ecx+$46], bl
0081E55B 5F pop edi
0081E55C 4D dec ebp
0081E55D 6F outsd
0081E55E 6E outsb
0081E55F 65795F jns 0081E5C1
0081E562 43 inc ebx
0081E563 52 push edx
0081E564 204220 and [edx+$20], al
0081E567 00FF add bh, bh
0081E569 FFFF DB $FF, $FF //
0081E56B FF11 call dword ptr [ecx]
0081E56D 0000 add [eax], al
0081E56F 007768 add [edi+$68], dh
0081E572 657265 jb 0081E5DA
0081E575 20422E and [edx+$2E], al
0081E578 43 inc ebx
0081E579 52 push edx
0081E57A 54 push esp
0081E57B 696D653E3D2700 imul ebp, [ebp+$65], $00273D3E
0081E582 0000 add [eax], al
0081E584 FFFF DB $FF, $FF //
0081E586 FFFF DB $FF, $FF //
0081E588 0200 add al, byte ptr [eax]
0081E58A 0000 add [eax], al
0081E58C 27 daa
0081E58D 2000 and [eax], al
0081E58F 00FF add bh, bh
0081E591 FFFF DB $FF, $FF //
0081E593 FF0F dec dword ptr [edi]
0081E595 0000 add [eax], al
0081E597 0020 add [eax], ah
0081E599 61 popa
0081E59A 6E outsb
0081E59B 6420422E and fs:[edx+$2E], al
0081E59F 43 inc ebx
0081E5A0 52 push edx
0081E5A1 54 push esp
0081E5A2 696D653C2700FF imul ebp, [ebp+$65], $FF00273C
0081E5A9 FFFF DB $FF, $FF //
0081E5AB FF7600 push dword ptr [esi+$00]
0081E5AE 0000 add [eax], al
*)
end;
procedure TfrmYSSKList_KP._PROC_0081E610(Sender : TObject);
begin
(*
0081E610 53 push ebx
0081E611 44 inc esp
0081E612 27 daa
0081E613 20616E and [ecx+$6E], ah
0081E616 6420422E and fs:[edx+$2E], al
0081E61A 42 inc edx
0081E61B 5A pop edx
0081E61C 54 push esp
0081E61D 7970 jns 0081E68F
0081E61F 653C3E cmp al, $3E
0081E622 27 daa
0081E623 2427 and al, $27
0081E625 2000 and [eax], al
0081E627 00FF add bh, bh
0081E629 FFFF DB $FF, $FF //
0081E62B FF32 push dword ptr [edx]
0081E62D 0000 add [eax], al
0081E62F 00616E add [ecx+$6E], ah
0081E632 6420422E and fs:[edx+$2E], al
0081E636 43 inc ebx
0081E637 52 push edx
0081E638 46 inc esi
0081E639 6C insb
0081E63A 61 popa
0081E63B 673D27D3A6CA cmp eax, $CAA6D327
0081E641 D5 aad
0081E642 CA ret
0081E643 D5 aad
0081E644 27 daa
0081E645 20616E and [ecx+$6E], ah
0081E648 64204352 and fs:[ebx+$52], al
0081E64C 54 push esp
0081E64D 7970 jns 0081E6BF
0081E64F 653D27D3A6CA cmp eax, $CAA6D327
0081E655 D5 aad
0081E656 BFEEB7A2C6 mov edi, $C6A2B7EE
0081E65B B1B5 mov cl, $B5
0081E65D C7BCC727290000FFFFFFFF mov dword ptr [edi+eax*8+$2927], $FFFFFFFF
0081E668 53 push ebx
0081E669 0000 add [eax], al
0081E66B 002C52 add [edx+edx*2], ch
0081E66E 4D dec ebp
0081E66F 42 inc edx
0081E670 46 inc esi
0081E671 4B dec ebx
0081E672 4D dec ebp
0081E673 6F outsd
0081E674 6E outsb
0081E675 65793D jns 0081E6B5
0081E678 287365 sub [ebx+$65], dh
0081E67B 6C insb
0081E67C 6563742069 arpl gs:[eax+$69], si
0081E681 736E jnb 0081E6F1
0081E683 756C jnz 0081E6F1
0081E685 6C insb
0081E686 285375 sub [ebx+$75], dl
0081E689 6D insd
0081E68A 284D6F sub [ebp+$6F], cl
0081E68D 6E outsb
0081E68E 657929 jns 0081E6BA
0081E691 2C30 sub al, $30
0081E693 292B sub dword ptr [ebx], ebp
0081E695 69736E756C6C28 imul esi, [ebx+$6E], $286C6C75
0081E69C 53 push ebx
0081E69D 756D jnz 0081E70C
0081E69F 285358 sub [ebx+$58], dl
0081E6A2 4D dec ebp
0081E6A3 6F outsd
0081E6A4 6E outsb
0081E6A5 657929 jns 0081E6D1
0081E6A8 2C30 sub al, $30
0081E6AA 2920 sub dword ptr [eax], esp
0081E6AC 66726F jb 0081E71E
0081E6AF 6D insd
0081E6B0 205946 and [ecx+$46], bl
0081E6B3 5F pop edi
0081E6B4 4D dec ebp
0081E6B5 6F outsd
0081E6B6 6E outsb
0081E6B7 65795F jns 0081E719
0081E6BA 43 inc ebx
0081E6BB 52 push edx
0081E6BC 204220 and [edx+$20], al
0081E6BF 00FF add bh, bh
0081E6C1 FFFF DB $FF, $FF //
0081E6C3 FF5D00 call [ebp+$00]
0081E6C6 0000 add [eax], al
0081E6C8 20616E and [ecx+$6E], ah
0081E6CB 6420422E and fs:[edx+$2E], al
0081E6CF 43 inc ebx
0081E6D0 52 push edx
0081E6D1 54 push esp
0081E6D2 7970 jns 0081E744
0081E6D4 653D27CAD5BF cmp eax, $BFD5CA27
0081E6DA EE out dx, al
0081E6DB B5C7 mov ch, $C7
0081E6DD BCC7272061 mov esp, $612027C7
0081E6E2 6E outsb
0081E6E3 64206973 and fs:[ecx+$73], ch
0081E6E7 6E outsb
0081E6E8 756C jnz 0081E756
0081E6EA 6C insb
0081E6EB 28422E sub [edx+$2E], al
0081E6EE 7374 jnb 0081E764
0081E6F0 61 popa
0081E6F1 7475 jz 0081E768
0081E6F3 732C jnb 0081E721
0081E6F5 27 daa
0081E6F6 3027 xor [edi], ah
0081E6F8 293C3E sub dword ptr [esi+edi], edi
0081E6FB 27 daa
0081E6FC 3027 xor [edi], ah
0081E6FE 20616E and [ecx+$6E], ah
0081E701 6420422E and fs:[edx+$2E], al
0081E705 42 inc edx
0081E706 5A pop edx
0081E707 54 push esp
0081E708 7970 jns 0081E77A
0081E70A 653C3E cmp al, $3E
0081E70D 27 daa
0081E70E 55 push ebp
0081E70F 53 push ebx
0081E710 44 inc esp
0081E711 27 daa
0081E712 20616E and [ecx+$6E], ah
0081E715 6420422E and fs:[edx+$2E], al
0081E719 42 inc edx
0081E71A 5A pop edx
0081E71B 54 push esp
0081E71C 7970 jns 0081E78E
0081E71E 653C3E cmp al, $3E
0081E721 27 daa
0081E722 2427 and al, $27
0081E724 2000 and [eax], al
0081E726 0000 add [eax], al
0081E728 FFFF DB $FF, $FF //
0081E72A FFFF DB $FF, $FF //
0081E72C 830000 add dword ptr [eax], +$00
0081E72F 0020 add [eax], ah
0081E731 61 popa
0081E732 6E outsb
0081E733 6420422E and fs:[edx+$2E], al
0081E737 6661 popa
0081E739 63746F72 arpl [edi+ebp*2+$72], si
0081E73D 794E jns 0081E78D
0081E73F 61 popa
0081E740 6D insd
0081E741 653D412E6661 cmp eax, $61662E41
0081E747 63746F72 arpl [edi+ebp*2+$72], si
0081E74B 794E jns 0081E79B
0081E74D 61 popa
0081E74E 6D insd
0081E74F 6520616E and gs:[ecx+$6E], ah
0081E753 64206973 and fs:[ecx+$73], ch
0081E757 6E outsb
0081E758 756C jnz 0081E7C6
0081E75A 6C insb
0081E75B 28422E sub [edx+$2E], al
0081E75E 46 inc esi
0081E75F 4B dec ebx
0081E760 54 push esp
0081E761 61 popa
0081E762 69546F752C272729 imul edx, [edi+ebp*2+$75], $2927272C
0081E76A 3D69736E75 cmp eax, $756E7369
0081E76F 6C insb
0081E770 6C insb
0081E771 28412E sub [ecx+$2E], al
0081E774 46 inc esi
0081E775 4B dec ebx
0081E776 54 push esp
0081E777 61 popa
0081E778 69746F752C272729 imul esi, [edi+ebp*2+$75], $2927272C
0081E780 20616E and [ecx+$6E], ah
0081E783 6420422E and fs:[edx+$2E], al
0081E787 43 inc ebx
0081E788 52 push edx
0081E789 46 inc esi
0081E78A 6C insb
0081E78B 61 popa
0081E78C 673D27D3A6CA cmp eax, $CAA6D327
0081E792 D5 aad
0081E793 CA ret
0081E794 D5 aad
0081E795 27 daa
0081E796 20616E and [ecx+$6E], ah
0081E799 6420422E and fs:[edx+$2E], al
0081E79D 59 pop ecx
0081E79E 46 inc esi
0081E79F 4E dec esi
0081E7A0 61 popa
0081E7A1 6D insd
0081E7A2 653C3E cmp al, $3E
0081E7A5 27 daa
0081E7A6 C5F7 lds esi, di
0081E7A8 B2BC mov dl, $BC
0081E7AA D0E9 shr cl, 1
0081E7AC C4E2 les esp, dx
0081E7AE B7D1 mov bh, $D1
0081E7B0 27 daa
0081E7B1 2920 sub dword ptr [eax], esp
0081E7B3 00FF add bh, bh
0081E7B5 FFFF DB $FF, $FF //
0081E7B7 FF5300 call dword ptr [ebx+$00]
0081E7BA 0000 add [eax], al
0081E7BC 2C52 sub al, $52
0081E7BE 4D dec ebp
0081E7BF 42 inc edx
0081E7C0 53 push ebx
0081E7C1 51 push ecx
0081E7C2 4D dec ebp
0081E7C3 6F outsd
0081E7C4 6E outsb
0081E7C5 65793D jns 0081E805
0081E7C8 287365 sub [ebx+$65], dh
0081E7CB 6C insb
0081E7CC 6563742069 arpl gs:[eax+$69], si
0081E7D1 736E jnb 0081E841
0081E7D3 756C jnz 0081E841
0081E7D5 6C insb
0081E7D6 285375 sub [ebx+$75], dl
0081E7D9 6D insd
0081E7DA 284D6F sub [ebp+$6F], cl
0081E7DD 6E outsb
0081E7DE 657929 jns 0081E80A
0081E7E1 2C30 sub al, $30
0081E7E3 292B sub dword ptr [ebx], ebp
0081E7E5 69736E756C6C28 imul esi, [ebx+$6E], $286C6C75
0081E7EC 53 push ebx
0081E7ED 756D jnz 0081E85C
0081E7EF 285358 sub [ebx+$58], dl
0081E7F2 4D dec ebp
0081E7F3 6F outsd
0081E7F4 6E outsb
0081E7F5 657929 jns 0081E821
0081E7F8 2C30 sub al, $30
0081E7FA 2920 sub dword ptr [eax], esp
0081E7FC 66726F jb 0081E86E
0081E7FF 6D insd
0081E800 205946 and [ecx+$46], bl
0081E803 5F pop edi
0081E804 4D dec ebp
0081E805 6F outsd
0081E806 6E outsb
0081E807 65795F jns 0081E869
0081E80A 43 inc ebx
0081E80B 52 push edx
0081E80C 204220 and [edx+$20], al
0081E80F 00FF add bh, bh
0081E811 FFFF DB $FF, $FF //
0081E813 FF740000 push dword ptr [eax+eax+$00]
0081E817 006672 add [esi+$72], ah
0081E81A 6F outsd
0081E81B 6D insd
0081E81C 2028 and [eax], ch
0081E81E 7365 jnb 0081E885
0081E820 6C insb
0081E821 6563742064 arpl gs:[eax+$64], si
0081E826 697374696E6374 imul esi, [ebx+$74], $74636E69
0081E82D 206661 and [esi+$61], ah
0081E830 63746F72 arpl [edi+ebp*2+$72], si
0081E834 794E jns 0081E884
0081E836 61 popa
0081E837 6D insd
0081E838 652C46 sub al, $46
0081E83B 4B dec ebx
0081E83C 54 push esp
0081E83D 61 popa
0081E83E 69746F752066726F imul esi, [edi+ebp*2+$75], $6F726620
0081E846 6D insd
0081E847 205946 and [ecx+$46], bl
0081E84A 5F pop edi
0081E84B 4D dec ebp
0081E84C 6F outsd
0081E84D 6E outsb
0081E84E 65795F jns 0081E8B0
0081E851 43 inc ebx
0081E852 52 push edx
0081E853 207768 and [edi+$68], dh
0081E856 657265 jb 0081E8BE
0081E859 204352 and [ebx+$52], al
0081E85C 46 inc esi
0081E85D 6C insb
0081E85E 61 popa
0081E85F 673D27D3A6CA cmp eax, $CAA6D327
0081E865 D5 aad
0081E866 CA ret
0081E867 D5 aad
0081E868 27 daa
0081E869 20616E and [ecx+$6E], ah
0081E86C 64204352 and fs:[ebx+$52], al
0081E870 54 push esp
0081E871 7970 jns 0081E8E3
0081E873 653D27D3A6CA cmp eax, $CAA6D327
0081E879 D5 aad
0081E87A BFEEB7A2C6 mov edi, $C6A2B7EE
0081E87F B1B5 mov cl, $B5
0081E881 C7BCC72729412029414120 mov dword ptr [edi+eax*8+$20412927], $20414129
0081E88C 0000 add [eax], al
0081E88E 0000 add [eax], al
0081E890 FFFF DB $FF, $FF //
0081E892 FFFF DB $FF, $FF //
0081E894 0900 or [eax], eax
0081E896 0000 add [eax], al
0081E898 7768 jnbe 0081E902
0081E89A 657265 jb 0081E902
0081E89D 2031 and [ecx], dh
0081E89F 3D31000000 cmp eax, $00000031
0081E8A4 FFFF DB $FF, $FF //
0081E8A6 FFFF DB $FF, $FF //
0081E8A8 1500000020 adc eax, $20000000
0081E8AD 61 popa
0081E8AE 6E outsb
0081E8AF 64204141 and fs:[ecx+$41], al
0081E8B3 2E6661 popa
0081E8B6 63746F72 arpl [edi+ebp*2+$72], si
0081E8BA 794E jns 0081E90A
0081E8BC 61 popa
0081E8BD 6D insd
0081E8BE 653D27000000 cmp eax, $00000027
0081E8C4 FFFF DB $FF, $FF //
0081E8C6 FFFF DB $FF, $FF //
0081E8C8 1200 adc al, byte ptr [eax]
0081E8CA 0000 add [eax], al
0081E8CC 20616E and [ecx+$6E], ah
0081E8CF 64204141 and fs:[ecx+$41], al
0081E8D3 2E46 inc esi
0081E8D5 4B dec ebx
0081E8D6 54 push esp
0081E8D7 61 popa
0081E8D8 69746F753D270000 imul esi, [edi+ebp*2+$75], $0000273D
0081E8E0 33C0 xor eax, eax
* Reference to GlobalVar_008959A8
|
0081E8E2 A3A8598900 mov dword ptr [$008959A8], eax
0081E8E7 C3 ret
0081E8E8 C60102 mov byte ptr [ecx], $02
0081E8EB C3 ret
0081E8EC 53 push ebx
0081E8ED 8BD8 mov ebx, eax
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
0081E8EF B92CE98100 mov ecx, $0081E92C
* Reference to control FromPlace : N.A.
|
0081E8F4 8B9370030000 mov edx, [ebx+$0370]
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD>տ<EFBFBD>ͳ<EFBFBD><CDB3>'
|
0081E8FA B840E98100 mov eax, $0081E940
|
0081E8FF E89C92F9FF call 007B7BA0
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
0081E904 B92CE98100 mov ecx, $0081E92C
* Reference to control FromPlace : N.A.
|
0081E909 8B9370030000 mov edx, [ebx+$0370]
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD>տ<EFBFBD>ͳ<EFBFBD><CDB3>1'
|
0081E90F B858E98100 mov eax, $0081E958
|
0081E914 E88792F9FF call 007B7BA0
0081E919 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
0081E91B E87876C8FF call 004A5F98
0081E920 5B pop ebx
0081E921 C3 ret
*)
end;
procedure TfrmYSSKList_KP._PROC_0081F134(Sender : TObject);
begin
(*
0081F134 55 push ebp
0081F135 8BEC mov ebp, esp
0081F137 33C0 xor eax, eax
0081F139 55 push ebp
* Possible String Reference to: '<27><>Y<EFBFBD><59><EFBFBD><EFBFBD><><C38B>-<2D>Y<EFBFBD>'
|
0081F13A 6859F18100 push $0081F159
***** TRY
|
0081F13F 64FF30 push dword ptr fs:[eax]
0081F142 648920 mov fs:[eax], esp
0081F145 FF05AC598900 inc dword ptr [$008959AC]
0081F14B 33C0 xor eax, eax
0081F14D 5A pop edx
0081F14E 59 pop ecx
0081F14F 59 pop ecx
0081F150 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-<2D>Y<EFBFBD>'
|
0081F153 6860F18100 push $0081F160
0081F158 C3 ret
* Reference to: System.@HandleFinally;
|
0081F159 E99659BEFF jmp 00404AF4
0081F15E EBF8 jmp 0081F158
****** END
|
0081F160 5D pop ebp
0081F161 C3 ret
*)
end;
procedure TfrmYSSKList_KP._PROC_0081F164(Sender : TObject);
begin
(*
0081F164 832DAC59890001 sub dword ptr [$008959AC], +$01
0081F16B C3 ret
*)
end;
procedure TfrmYSSKList_KP._PROC_0081F16C(Sender : TObject);
begin
(*
0081F16C B8F1810000 mov eax, $000081F1
0081F171 0000 add [eax], al
*)
end;
procedure TfrmYSSKList_KP._PROC_0081F1D2(Sender : TObject);
begin
(*
0081F1D2 48 dec eax
0081F1D3 0050D4 add [eax-$2C], dl
0081F1D6 42 inc edx
0081F1D7 0008 add [eax], cl
0081F1D9 2D4A007CD0 sub eax, $D07C004A
0081F1DE 42 inc edx
0081F1DF 00F4 add ah, dh
0081F1E1 6B4A00D0 imul ecx, [edx+$00], $D0
0081F1E5 1D4A0030F6 sbb eax, $F630004A
0081F1EA 48 dec eax
0081F1EB 004CFB48 add [ebx+edi*8+$48], cl
0081F1EF 0098FA48000C add [eax+$C0048FA], bl
0081F1F5 7948 jns 0081F23F
0081F1F7 00ACF04800E829 add [eax+esi*8+$29E80048], ch
0081F1FE 4A dec edx
0081F1FF 00E4 add ah, ah
0081F201 ED in eax, dx
0081F202 48 dec eax
0081F203 00547848 add [eax+edi*2+$48], dl
0081F207 005878 add [eax+$78], bl
0081F20A 48 dec eax
0081F20B 00DC add ah, bl
0081F20D 2A4A00 sub cl, byte ptr [edx+$00]
0081F210 3CA9 cmp al, $A9
0081F212 48 dec eax
0081F213 00C0 add al, al
0081F215 834800D0 or dword ptr [eax+$00], -$30
0081F219 7948 jns 0081F263
0081F21B 004C8548 add [ebp+eax*4+$48], cl
0081F21F 00D0 add al, dl
0081F221 2C4A sub al, $4A
0081F223 009C2B4A008486 add [ebx+ebp+$8684004A], bl
0081F22A 48 dec eax
0081F22B 00482D add [eax+$2D], cl
0081F22E 4A dec edx
0081F22F 00C0 add al, al
0081F231 A9480038EE test eax, $EE380048
0081F236 48 dec eax
0081F237 00F4 add ah, dh
0081F239 EE out dx, al
0081F23A 48 dec eax
0081F23B 00F0 add al, dh
0081F23D E94800D8EE jmp EF59F28A
0081F242 48 dec eax
0081F243 00D8 add al, bl
0081F245 1B4A00 sbb ecx, [edx+$00]
0081F248 EC in al, dx
0081F249 334A00 xor ecx, [edx+$00]
0081F24C 20C4 and ah, al
0081F24E 48 dec eax
0081F24F 00B0404A0010 add [eax+$10004A40], dh
0081F255 44 inc esp
0081F256 4A dec edx
0081F257 00CC add ah, cl
0081F259 42 inc edx
0081F25A 4A dec edx
0081F25B 00B8C44800BC add [eax+$BC0048C4], bh
0081F261 C44800 les ecx, [eax+$00]
0081F264 48 dec eax
0081F265 45 inc ebp
0081F266 4A dec edx
0081F267 001CC3 add [ebx+eax*8], bl
0081F26A 48 dec eax
0081F26B 0018 add [eax], bl
0081F26D F0 lock
0081F26E 48 dec eax
0081F26F 00444C4A add [esp+ecx*2+$4A], al
0081F273 000C02 add [edx+eax], cl
0081F276 49 dec ecx
0081F277 0094EC48009C64 add [esp+ebp*8+$649C0048], dl
0081F27E 4A dec edx
0081F27F 008C154A003C18 add [ebp+edx+$183C004A], cl
0081F286 4A dec edx
0081F287 0038 add [eax], bh
0081F289 52 push edx
0081F28A 4A dec edx
0081F28B 005C224A add [edx+$4A], bl
0081F28F 00D8 add al, bl
0081F291 224A00 and cl, byte ptr [edx+$00]
0081F294 7C68 jl 0081F2FE
0081F296 4A dec edx
0081F297 00941F4A003C60 add [edi+ebx+$603C004A], dl
0081F29E 4A dec edx
0081F29F 001447 add [edi+eax*2], dl
0081F2A2 4A dec edx
0081F2A3 0034654A00CC2C add [$2CCC004A], dh
0081F2AA 4A dec edx
0081F2AB 000E add [esi], cl
0081F2AD 0000 add [eax], al
0081F2AF 0000 add [eax], al
0081F2B1 0003 add [ebx], al
0081F2B3 0000 add [eax], al
0081F2B5 0020 add [eax], ah
0081F2B7 114000 adc [eax+$00], eax
0081F2BA B403 mov ah, $03
0081F2BC 0000 add [eax], al
0081F2BE 2011 and [ecx], dl
0081F2C0 40 inc eax
0081F2C1 00B803000020 add [eax+$20000003], bh
0081F2C7 114000 adc [eax+$00], eax
0081F2CA BC0300002F mov esp, $2F000003
0081F2CF 00B1F68100F8 add [ecx+$F80081F6], dh
0081F2D5 0200 add al, byte ptr [eax]
0081F2D7 0000 add [eax], al
0081F2D9 0008 add [eax], cl
0081F2DB 54 push esp
0081F2DC 6F outsd
0081F2DD 6F outsd
0081F2DE 6C insb
0081F2DF 42 inc edx
0081F2E0 61 popa
0081F2E1 7231 jb 0081F314
0081F2E3 FC cld
0081F2E4 0200 add al, byte ptr [eax]
0081F2E6 0001 add [ecx], al
0081F2E8 0009 add [ecx], cl
0081F2EA 54 push esp
0081F2EB 42 inc edx
0081F2EC 52 push edx
0081F2ED 61 popa
0081F2EE 667265 jb 0081F356
0081F2F1 7368 jnb 0081F35B
0081F2F3 0003 add [ebx], al
0081F2F5 0000 add [eax], al
0081F2F7 0100 add [eax], eax
0081F2F9 07 pop es
0081F2FA 54 push esp
0081F2FB 42 inc edx
0081F2FC 43 inc ebx
0081F2FD 6C insb
0081F2FE 6F outsd
0081F2FF 7365 jnb 0081F366
0081F301 0403 add al, +$03
0081F303 0000 add [eax], al
0081F305 0200 add al, byte ptr [eax]
0081F307 0C41 or al, $41
0081F309 44 inc esp
0081F30A 4F dec edi
0081F30B 51 push ecx
0081F30C 7565 jnz 0081F373
0081F30E 7279 jb 0081F389
0081F310 54 push esp
0081F311 656D insd
0081F313 7008 jo 0081F31D
0081F315 0300 add eax, [eax]
0081F317 0002 add [edx], al
0081F319 000B add [ebx], cl
0081F31B 41 inc ecx
0081F31C 44 inc esp
0081F31D 4F dec edi
0081F31E 51 push ecx
0081F31F 7565 jnz 0081F386
0081F321 7279 jb 0081F39C
0081F323 43 inc ebx
0081F324 6D insd
0081F325 640C03 or al, $03
0081F328 0000 add [eax], al
0081F32A 0300 add eax, [eax]
0081F32C 06 push es
0081F32D 50 push eax
0081F32E 61 popa
0081F32F 6E outsb
0081F330 656C insb
0081F332 3110 xor [eax], edx
0081F334 0300 add eax, [eax]
0081F336 0001 add [ecx], al
0081F338 000B add [ebx], cl
0081F33A 54 push esp
0081F33B 6F outsd
0081F33C 6F outsd
0081F33D 6C insb
0081F33E 42 inc edx
0081F33F 7574 jnz 0081F3B5
0081F341 746F jz 0081F3B2
0081F343 6E outsb
0081F344 321403 xor dl, byte ptr [ebx+eax]
0081F347 0000 add [eax], al
0081F349 0200 add al, byte ptr [eax]
0081F34B 0C41 or al, $41
0081F34D 44 inc esp
0081F34E 4F dec edi
0081F34F 51 push ecx
0081F350 7565 jnz 0081F3B7
0081F352 7279 jb 0081F3CD
0081F354 4D dec ebp
0081F355 61 popa
0081F356 696E1803000001 imul ebp, [esi+$18], $01000003
0081F35D 000B add [ebx], cl
0081F35F 54 push esp
0081F360 6F outsd
0081F361 6F outsd
0081F362 6C insb
0081F363 42 inc edx
0081F364 7574 jnz 0081F3DA
0081F366 746F jz 0081F3D7
0081F368 6E outsb
0081F369 311C03 xor [ebx+eax], ebx
0081F36C 0000 add [eax], al
0081F36E 0400 add al, +$00
0081F370 03524D add edx, [edx+$4D]
0081F373 3120 xor [eax], esp
0081F375 0300 add eax, [eax]
0081F377 00050009524D add [$4D520900], al
0081F37D 44 inc esp
0081F37E 42 inc edx
0081F37F 5F pop edi
0081F380 4D dec ebp
0081F381 61 popa
0081F382 696E2403000006 imul ebp, [esi+$24], $06000003
0081F389 0006 add [esi], al
0081F38B 4C dec esp
0081F38C 61 popa
0081F38D 62656C bound esp, qword ptr [ebp+$6C]
0081F390 3328 xor ebp, [eax]
0081F392 0300 add eax, [eax]
0081F394 0007 add [edi], al
0081F396 0007 add [edi], al
0081F398 637847 arpl [eax+$47], di
0081F39B 7269 jb 0081F406
0081F39D 64322C03 xor ch, byte ptr fs:[ebx+eax]
0081F3A1 0000 add [eax], al
0081F3A3 0800 or [eax], al
0081F3A5 03547632 add edx, [esi+esi*2+$32]
0081F3A9 3003 xor [ebx], al
0081F3AB 0000 add [eax], al
0081F3AD 0900 or [eax], eax
0081F3AF 0C63 or al, $63
0081F3B1 7847 js 0081F3FA
0081F3B3 7269 jb 0081F41E
0081F3B5 644C dec esp
0081F3B7 657665 jbe 0081F41F
0081F3BA 6C insb
0081F3BB 313403 xor [ebx+eax], esi
0081F3BE 0000 add [eax], al
0081F3C0 06 push es
0081F3C1 0006 add [esi], al
0081F3C3 4C dec esp
0081F3C4 61 popa
0081F3C5 62656C bound esp, qword ptr [ebp+$6C]
0081F3C8 3238 xor bh, byte ptr [eax]
0081F3CA 0300 add eax, [eax]
0081F3CC 0006 add [esi], al
0081F3CE 0006 add [esi], al
0081F3D0 4C dec esp
0081F3D1 61 popa
0081F3D2 62656C bound esp, qword ptr [ebp+$6C]
0081F3D5 363C03 cmp al, $03
0081F3D8 0000 add [eax], al
0081F3DA 0A00 or al, byte ptr [eax]
0081F3DC 07 pop es
0081F3DD 626567 bound esp, qword ptr [ebp+$67]
0081F3E0 6461 popa
0081F3E2 7465 jz 0081F449
0081F3E4 40 inc eax
0081F3E5 0300 add eax, [eax]
0081F3E7 000A add [edx], cl
0081F3E9 0007 add [edi], al
0081F3EB 45 inc ebp
0081F3EC 6E outsb
0081F3ED 646461 popa
0081F3F0 7465 jz 0081F457
0081F3F2 44 inc esp
0081F3F3 0300 add eax, [eax]
0081F3F5 000B add [ebx], cl
0081F3F7 0010 add [eax], dl
0081F3F9 637847 arpl [eax+$47], di
0081F3FC 7269 jb 0081F467
0081F3FE 6450 push eax
0081F400 6F outsd
0081F401 7075 jo 0081F478
0081F403 704D jo 0081F452
0081F405 656E outsb
0081F407 7532 jnz 0081F43B
0081F409 48 dec eax
0081F40A 0300 add eax, [eax]
0081F40C 000C00 add [eax+eax], cl
0081F40F 0544535F48 add eax, +$485F5344
0081F414 5A pop edx
0081F415 4C dec esp
0081F416 0300 add eax, [eax]
0081F418 000D00064344 add [$44430600], cl
0081F41E 53 push ebx
0081F41F 5F pop edi
0081F420 48 dec eax
0081F421 5A pop edx
0081F422 50 push eax
0081F423 0300 add eax, [eax]
0081F425 000E add [esi], cl
0081F427 000C76 add [esi+esi*2], cl
0081F42A 325553 xor dl, byte ptr [ebp+$53]
0081F42D 44 inc esp
0081F42E 53 push ebx
0081F42F 51 push ecx
0081F430 4D dec ebp
0081F431 6F outsd
0081F432 6E outsb
0081F433 657954 jns 0081F48A
0081F436 0300 add eax, [eax]
0081F438 000E add [esi], cl
0081F43A 000D76324661 add [$61463276], cl
0081F440 63746F72 arpl [edi+ebp*2+$72], si
0081F444 794E jns 0081F494
0081F446 61 popa
0081F447 6D insd
0081F448 6558 pop eax
0081F44A 0300 add eax, [eax]
0081F44C 000E add [esi], cl
0081F44E 000C76 add [esi+esi*2], cl
0081F451 325553 xor dl, byte ptr [ebp+$53]
0081F454 44 inc esp
0081F455 59 pop ecx
0081F456 46 inc esi
0081F457 4D dec ebp
0081F458 6F outsd
0081F459 6E outsb
0081F45A 65795C jns 0081F4B9
0081F45D 0300 add eax, [eax]
0081F45F 000E add [esi], cl
0081F461 000C76 add [esi+esi*2], cl
0081F464 325553 xor dl, byte ptr [ebp+$53]
0081F467 44 inc esp
0081F468 46 inc esi
0081F469 4B dec ebx
0081F46A 4D dec ebp
0081F46B 6F outsd
0081F46C 6E outsb
0081F46D 657960 jns 0081F4D0
0081F470 0300 add eax, [eax]
0081F472 000E add [esi], cl
0081F474 000C76 add [esi+esi*2], cl
0081F477 325553 xor dl, byte ptr [ebp+$53]
0081F47A 44 inc esp
0081F47B 42 inc edx
0081F47C 51 push ecx
0081F47D 4D dec ebp
0081F47E 6F outsd
0081F47F 6E outsb
0081F480 657964 jns 0081F4E7
0081F483 0300 add eax, [eax]
0081F485 0006 add [esi], al
0081F487 0006 add [esi], al
0081F489 4C dec esp
0081F48A 61 popa
0081F48B 62656C bound esp, qword ptr [ebp+$6C]
0081F48E 316803 xor [eax+$03], ebp
0081F491 0000 add [eax], al
0081F493 0F0009 str word ptr [ecx]
0081F496 43 inc ebx
0081F497 6F outsd
0081F498 6D insd
0081F499 54 push esp
0081F49A 61 popa
0081F49B 69546F756C030000 imul edx, [edi+ebp*2+$75], $0000036C
0081F4A3 06 push es
0081F4A4 0006 add [esi], al
0081F4A6 4C dec esp
0081F4A7 61 popa
0081F4A8 62656C bound esp, qword ptr [ebp+$6C]
0081F4AB 3470 xor al, $70
0081F4AD 0300 add eax, [eax]
0081F4AF 000F add [edi], cl
0081F4B1 0009 add [ecx], cl
0081F4B3 46 inc esi
0081F4B4 48 dec eax
0081F4B5 41 inc ecx
0081F4B6 64647265 jb 0081F51F
0081F4BA 7373 jnb 0081F52F
0081F4BC 7403 jz 0081F4C1
0081F4BE 0000 add [eax], al
0081F4C0 06 push es
0081F4C1 0006 add [esi], al
0081F4C3 4C dec esp
0081F4C4 61 popa
0081F4C5 62656C bound esp, qword ptr [ebp+$6C]
0081F4C8 3578030000 xor eax, $00000378
0081F4CD 0F000446 sldt word ptr [esi+eax*2]
0081F4D1 48 dec eax
0081F4D2 64717C jno 0081F551
0081F4D5 0300 add eax, [eax]
0081F4D7 0007 add [edi], al
0081F4D9 0007 add [edi], al
0081F4DB 637847 arpl [eax+$47], di
0081F4DE 7269 jb 0081F549
0081F4E0 64318003000008 xor fs:[eax+$8000003], eax
0081F4E7 0003 add [ebx], al
0081F4E9 54 push esp
0081F4EA 56 push esi
0081F4EB 31840300000E00 xor [ebx+eax+$E0000], eax
0081F4F2 0F637847 packusdw MM7, [eax+$47]
0081F4F6 7269 jb 0081F561
0081F4F8 6444 inc esp
0081F4FA 42 inc edx
0081F4FB 43 inc ebx
0081F4FC 6F outsd
0081F4FD 6C insb
0081F4FE 756D jnz 0081F56D
0081F500 6E outsb
0081F501 368803 mov ss:[ebx], al
0081F504 0000 add [eax], al
0081F506 0E push cs
0081F507 000F add [edi], cl
0081F509 637847 arpl [eax+$47], di
0081F50C 7269 jb 0081F577
0081F50E 6444 inc esp
0081F510 42 inc edx
0081F511 43 inc ebx
0081F512 6F outsd
0081F513 6C insb
0081F514 756D jnz 0081F583
0081F516 6E outsb
0081F517 37 aaa
0081F518 8C03 mov word ptr [ebx], es
0081F51A 0000 add [eax], al
0081F51C 0E push cs
0081F51D 000F add [edi], cl
0081F51F 637847 arpl [eax+$47], di
0081F522 7269 jb 0081F58D
0081F524 6444 inc esp
0081F526 42 inc edx
0081F527 43 inc ebx
0081F528 6F outsd
0081F529 6C insb
0081F52A 756D jnz 0081F599
0081F52C 6E outsb
0081F52D 38900300000E cmp [eax+$E000003], dl
0081F533 000F add [edi], cl
0081F535 637847 arpl [eax+$47], di
0081F538 7269 jb 0081F5A3
0081F53A 6444 inc esp
0081F53C 42 inc edx
0081F53D 43 inc ebx
0081F53E 6F outsd
0081F53F 6C insb
0081F540 756D jnz 0081F5AF
0081F542 6E outsb
0081F543 39940300000E00 cmp [ebx+eax+$E0000], edx
0081F54A 106378 adc [ebx+$78], ah
0081F54D 47 inc edi
0081F54E 7269 jb 0081F5B9
0081F550 6444 inc esp
0081F552 42 inc edx
0081F553 43 inc ebx
0081F554 6F outsd
0081F555 6C insb
0081F556 756D jnz 0081F5C5
0081F558 6E outsb
0081F559 3130 xor [eax], esi
0081F55B 98 cwde
0081F55C 0300 add eax, [eax]
0081F55E 000E add [esi], cl
0081F560 0010 add [eax], dl
0081F562 637847 arpl [eax+$47], di
0081F565 7269 jb 0081F5D0
0081F567 6444 inc esp
0081F569 42 inc edx
0081F56A 43 inc ebx
0081F56B 6F outsd
0081F56C 6C insb
0081F56D 756D jnz 0081F5DC
0081F56F 6E outsb
0081F570 3131 xor [ecx], esi
0081F572 9C pushf
0081F573 0300 add eax, [eax]
0081F575 000E add [esi], cl
0081F577 0010 add [eax], dl
0081F579 637847 arpl [eax+$47], di
0081F57C 7269 jb 0081F5E7
0081F57E 6444 inc esp
0081F580 42 inc edx
0081F581 43 inc ebx
0081F582 6F outsd
0081F583 6C insb
0081F584 756D jnz 0081F5F3
0081F586 6E outsb
0081F587 3132 xor [edx], esi
0081F589 A003000009 mov al, byte ptr [$09000003]
0081F58E 000C63 add [ebx], cl
0081F591 7847 js 0081F5DA
0081F593 7269 jb 0081F5FE
0081F595 644C dec esp
0081F597 657665 jbe 0081F5FF
0081F59A 6C insb
0081F59B 32A40300000E00 xor ah, byte ptr [ebx+eax+$E0000]
0081F5A2 0D56314661 or eax, $61463156
0081F5A7 63746F72 arpl [edi+ebp*2+$72], si
0081F5AB 794E jns 0081F5FB
0081F5AD 61 popa
0081F5AE 6D insd
0081F5AF 65A803 test al, $03
0081F5B2 0000 add [eax], al
0081F5B4 1000 adc [eax], al
0081F5B6 0B6378 or esp, [ebx+$78]
0081F5B9 53 push ebx
0081F5BA 706C jo 0081F628
0081F5BC 697474657231AC03 imul esi, [esp+esi*2+$65], $03AC3172
0081F5C4 0000 add [eax], al
0081F5C6 1100 adc [eax], eax
0081F5C8 0B4661 or eax, [esi+$61]
0081F5CB 63746F72 arpl [edi+ebp*2+$72], si
0081F5CF 794E jns 0081F61F
0081F5D1 61 popa
0081F5D2 6D insd
0081F5D3 65B003 mov al, $03
0081F5D6 0000 add [eax], al
0081F5D8 0100 add [eax], eax
0081F5DA 03544B50 add edx, [ebx+ecx*2+$50]
0081F5DE 0A00 or al, byte ptr [eax]
0081F5E0 1200 adc al, byte ptr [eax]
0081F5E2 68F981000B push $0B0081F9
0081F5E7 46 inc esi
0081F5E8 6F outsd
0081F5E9 726D jb 0081F658
0081F5EB 44 inc esp
0081F5EC 657374 jnb 0081F663
0081F5EF 726F jb 0081F660
0081F5F1 7910 jns 0081F603
0081F5F3 0070F9 add [eax-$07], dh
0081F5F6 810009466F72 add dword ptr [eax], $726F4609
0081F5FC 6D insd
0081F5FD 43 inc ebx
0081F5FE 6C insb
0081F5FF 6F outsd
0081F600 7365 jnb 0081F667
0081F602 1300 adc eax, [eax]
0081F604 74F9 jz 0081F5FF
0081F606 81000C544243 add dword ptr [eax], $4342540C
0081F60C 6C insb
0081F60D 6F outsd
0081F60E 7365 jnb 0081F675
0081F610 43 inc ebx
0081F611 6C insb
0081F612 69636B0F00F0F9 imul esp, [ebx+$6B], $F9F0000F
0081F619 810008466F72 add dword ptr [eax], $726F4608
0081F61F 6D insd
0081F620 53 push ebx
0081F621 686F771500 push $0015776F
0081F626 88FB mov bl, bh
0081F628 81000E544252 add dword ptr [eax], $5242540E
0081F62E 61 popa
0081F62F 667265 jb 0081F697
0081F632 7368 jnb 0081F69C
0081F634 43 inc ebx
0081F635 6C insb
0081F636 69636B170090FB imul esp, [ebx+$6B], $FB900017
0081F63D 810010546F6F add dword ptr [eax], $6F6F5410
0081F643 6C insb
0081F644 42 inc edx
0081F645 7574 jnz 0081F6BB
0081F647 746F jz 0081F6B8
0081F649 6E outsb
0081F64A 32436C xor al, byte ptr [ebx+$6C]
0081F64D 69636B180034FC imul esp, [ebx+$6B], $FC340018
0081F654 810011466163 add dword ptr [eax], $63614611
0081F65A 746F jz 0081F6CB
0081F65C 7279 jb 0081F6D7
0081F65E 4E dec esi
0081F65F 61 popa
0081F660 6D insd
0081F661 6543 inc ebx
0081F663 68616E6765 push $65676E61
0081F668 17 pop ss
0081F669 0048FC add [eax-$04], cl
0081F66C 810010546F6F add dword ptr [eax], $6F6F5410
0081F672 6C insb
0081F673 42 inc edx
0081F674 7574 jnz 0081F6EA
0081F676 746F jz 0081F6E7
0081F678 6E outsb
0081F679 31436C xor [ebx+$6C], eax
0081F67C 69636B160090FC imul esp, [ebx+$6B], $FC900016
0081F683 81000F545631 add dword ptr [eax], $3156540F
0081F689 43 inc ebx
0081F68A 656C insb
0081F68C 6C insb
0081F68D 44 inc esp
0081F68E 626C436C bound ebp, qword ptr [ebx+eax*2+$6C]
0081F692 69636B0F00A8FC imul esp, [ebx+$6B], $FCA8000F
0081F699 810008544B50 add dword ptr [eax], $504B5408
0081F69F 43 inc ebx
0081F6A0 6C insb
0081F6A1 69636B0C546672 imul esp, [ebx+$6B], $7266540C
0081F6A8 6D insd
0081F6A9 59 pop ecx
0081F6AA 53 push ebx
0081F6AB 53 push ebx
0081F6AC 4B dec ebx
0081F6AD 4C dec esp
0081F6AE 69737412002894 imul esi, [ebx+$74], $94280012
0081F6B5 45 inc ebp
0081F6B6 00648A45 add [edx+ecx*4+$45], ah
0081F6BA 00B8124D0020 add [eax+$20004D12], bh
0081F6C0 42 inc edx
0081F6C1 44 inc esp
0081F6C2 0064D378 add [ebx+edx*8+$78], ah
0081F6C6 00A80A78001C add [eax+$1C00780A], ch
0081F6CC 5F pop edi
0081F6CD 47 inc edi
0081F6CE 0000 add [eax], al
0081F6D0 16 push ss
0081F6D1 6300 arpl [eax], ax
0081F6D3 F4 hlt
0081F6D4 B466 mov ah, $66
0081F6D6 00A40E6400E0A5 add [esi+ecx+$A5E00064], ah
0081F6DD 45 inc ebp
0081F6DE 005876 add [eax+$76], bl
0081F6E1 7C00 jl 0081F6E3
0081F6E3 087F4B or [edi+$4B], bh
0081F6E6 0088996A0034 add [eax+$34006A99], cl
0081F6EC B166 mov cl, $66
0081F6EE 00B867470050 add [eax+$50004767], bh
0081F6F4 BF7B00F481 mov edi, $81F4007B
0081F6F9 47 inc edi
0081F6FA 009000F78100 add [eax+$81F700], dl
0081F700 07 pop es
0081F701 0C54 or al, $54
0081F703 66726D jb 0081F773
0081F706 59 pop ecx
0081F707 53 push ebx
0081F708 53 push ebx
0081F709 4B dec ebx
0081F70A 4C dec esp
0081F70B 697374B8F18100 imul esi, [ebx+$74], $0081F1B8
0081F712 D0F2 DB $D0, $F2 // dl, 1
0081F714 49 dec ecx
0081F715 005E00 add [esi+$00], bl
0081F718 0A555F or dl, byte ptr [ebp+$5F]
0081F71B 59 pop ecx
0081F71C 53 push ebx
0081F71D 53 push ebx
0081F71E 4B dec ebx
0081F71F 4C dec esp
0081F720 69737400008D40 imul esi, [ebx+$74], $408D0000
0081F727 00558B add [ebp-$75], dl
0081F72A EC in al, dx
0081F72B B906000000 mov ecx, $00000006
0081F730 6A00 push $00
0081F732 6A00 push $00
0081F734 49 dec ecx
0081F735 75F9 jnz 0081F730
0081F737 51 push ecx
0081F738 53 push ebx
0081F739 56 push esi
0081F73A 8945FC mov [ebp-$04], eax
0081F73D 33C0 xor eax, eax
0081F73F 55 push ebp
0081F740 68EFF88100 push $0081F8EF
***** TRY
|
0081F745 64FF30 push dword ptr fs:[eax]
0081F748 648920 mov fs:[eax], esp
0081F74B 33C0 xor eax, eax
0081F74D 55 push ebp
0081F74E 689EF88100 push $0081F89E
***** TRY
|
0081F753 64FF30 push dword ptr fs:[eax]
0081F756 648920 mov fs:[eax], esp
0081F759 8B45FC mov eax, [ebp-$04]
* Reference to control DlyDate : N.A.
|
0081F75C 8B8014030000 mov eax, [eax+$0314]
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
0081F762 E8ED7DCAFF call 004C7554
0081F767 8B45FC mov eax, [ebp-$04]
* Reference to control DlyDate : N.A.
|
0081F76A 8B9814030000 mov ebx, [eax+$0314]
0081F770 33D2 xor edx, edx
0081F772 8BC3 mov eax, ebx
0081F774 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_0190
|
0081F776 FF9190010000 call dword ptr [ecx+$0190]
0081F77C 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
0081F77E E85161CAFF call 004C58D4
0081F783 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;
|
0081F785 E822E8CBFF call 004DDFAC
0081F78A 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
0081F78C FF5244 call dword ptr [edx+$44]
0081F78F 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;
|
0081F791 E816E8CBFF call 004DDFAC
* Possible String Reference to: ' exec P_YSSK_List :begdate,:Enddate'
|
0081F796 BA04F98100 mov edx, $0081F904
0081F79B 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
0081F79D FF5138 call dword ptr [ecx+$38]
0081F7A0 8B45FC mov eax, [ebp-$04]
* Reference to control ADOTemp : N.A.
|
0081F7A3 8B803C030000 mov eax, [eax+$033C]
0081F7A9 FFB014020000 push dword ptr [eax+$0214]
0081F7AF FFB010020000 push dword ptr [eax+$0210]
0081F7B5 8D55E4 lea edx, [ebp-$1C]
* Possible String Reference to: 'yyyy-MM-dd'
|
0081F7B8 B830F98100 mov eax, $0081F930
|
0081F7BD E8FAF3BEFF call 0040EBBC
0081F7C2 8B45E4 mov eax, [ebp-$1C]
0081F7C5 8D55E8 lea edx, [ebp-$18]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0081F7C8 E81FB1BEFF call 0040A8EC
0081F7CD 8B55E8 mov edx, [ebp-$18]
0081F7D0 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
0081F7D3 E8F095BFFF call 00418DC8
0081F7D8 8D45EC lea eax, [ebp-$14]
0081F7DB 50 push eax
0081F7DC 8BC3 mov eax, ebx
* Reference to: ADODB.TCustomADODataSet.GetParameters(TCustomADODataSet):TParameters;
|
0081F7DE E80DCBCBFF call 004DC2F0
0081F7E3 BA40F98100 mov edx, $0081F940
* Reference to: ADODB.TParameters.ParamByName(TParameters;WideString):TParameter;
|
0081F7E8 E8134CCBFF call 004D4400
0081F7ED 5A pop edx
* Reference to: ADODB.TParameter.SetValue(TParameter;Variant;Variant);
|
0081F7EE E8D15ECBFF call 004D56C4
0081F7F3 8B45FC mov eax, [ebp-$04]
* Reference to control ADOCmd : N.A.
|
0081F7F6 8B8040030000 mov eax, [eax+$0340]
0081F7FC DD8010020000 fld qword ptr [eax+$0210]
0081F802 D80550F98100 fadd dword ptr [$0081F950]
0081F808 83C4F8 add esp, -$08
0081F80B DD1C24 fstp qword ptr [esp]
0081F80E 9B wait
0081F80F 8D55CC lea edx, [ebp-$34]
* Possible String Reference to: 'yyyy-MM-dd'
|
0081F812 B830F98100 mov eax, $0081F930
|
0081F817 E8A0F3BEFF call 0040EBBC
0081F81C 8B45CC mov eax, [ebp-$34]
0081F81F 8D55D0 lea edx, [ebp-$30]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0081F822 E8C5B0BEFF call 0040A8EC
0081F827 8B55D0 mov edx, [ebp-$30]
0081F82A 8D45D4 lea eax, [ebp-$2C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
0081F82D E89695BFFF call 00418DC8
0081F832 8D45D4 lea eax, [ebp-$2C]
0081F835 50 push eax
0081F836 8BC3 mov eax, ebx
* Reference to: ADODB.TCustomADODataSet.GetParameters(TCustomADODataSet):TParameters;
|
0081F838 E8B3CACBFF call 004DC2F0
0081F83D BA58F98100 mov edx, $0081F958
* Reference to: ADODB.TParameters.ParamByName(TParameters;WideString):TParameter;
|
0081F842 E8B94BCBFF call 004D4400
0081F847 5A pop edx
* Reference to: ADODB.TParameter.SetValue(TParameter;Variant;Variant);
|
0081F848 E8775ECBFF call 004D56C4
0081F84D 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
0081F84F E87460CAFF call 004C58C8
0081F854 8B45FC mov eax, [ebp-$04]
* Reference to control ADOQuery1 : N.A.
|
0081F857 8B904C030000 mov edx, [eax+$034C]
0081F85D 8B45FC mov eax, [ebp-$04]
* Reference to control DlyDate : N.A.
|
0081F860 8B8014030000 mov eax, [eax+$0314]
|
0081F866 E82576F9FF call 007B6E90
0081F86B 8B45FC mov eax, [ebp-$04]
* Reference to control ADOQuery1 : N.A.
|
0081F86E 8B904C030000 mov edx, [eax+$034C]
0081F874 8B45FC mov eax, [ebp-$04]
* Reference to control DlyDate : N.A.
|
0081F877 8B8014030000 mov eax, [eax+$0314]
|
0081F87D E89677F9FF call 007B7018
0081F882 33C0 xor eax, eax
0081F884 5A pop edx
0081F885 59 pop ecx
0081F886 59 pop ecx
0081F887 648910 mov fs:[eax], edx
****** FINALLY
|
0081F88A 68A5F88100 push $0081F8A5
0081F88F 8B45FC mov eax, [ebp-$04]
* Reference to control DlyDate : N.A.
|
0081F892 8B8014030000 mov eax, [eax+$0314]
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
0081F898 E8D77CCAFF call 004C7574
0081F89D C3 ret
* Reference to: System.@HandleFinally;
|
0081F89E E95152BEFF jmp 00404AF4
0081F8A3 EBEA jmp 0081F88F
****** END
|
0081F8A5 8B45FC mov eax, [ebp-$04]
* Reference to control Label4 : N.A.
|
0081F8A8 8B8010030000 mov eax, [eax+$0310]
0081F8AE 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
0081F8B2 E89D4CBEFF call 00404554
0081F8B7 33C0 xor eax, eax
0081F8B9 5A pop edx
0081F8BA 59 pop ecx
0081F8BB 59 pop ecx
0081F8BC 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D><><EFBFBD><EFBFBD><EFBFBD>#'
|
0081F8BF 68F6F88100 push $0081F8F6
0081F8C4 8D45CC lea eax, [ebp-$34]
0081F8C7 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0081F8CC E8775ABEFF call 00405348
0081F8D1 8D45D4 lea eax, [ebp-$2C]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
0081F8D4 E89B4DBFFF call 00414674
0081F8D9 8D45E4 lea eax, [ebp-$1C]
0081F8DC BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0081F8E1 E8625ABEFF call 00405348
0081F8E6 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
0081F8E9 E8864DBFFF call 00414674
0081F8EE C3 ret
*)
end;
end.