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

8312 lines
318 KiB
ObjectPascal
Raw Normal View History

1
2024-07-23 20:18:14 +08:00
unit U_YSCRKP;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmYSCRKP=class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBDel: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel1: TPanel;
ToolButton2: TToolButton;
Label1: TLabel;
YFName: TEdit;
ADOQueryMain: TADOQuery;
ToolButton1: TToolButton;
RM1: TRMGridReport;
RMDB_Main: TRMDBDataSet;
Label3: TLabel;
FactoryName: TEdit;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Label2: TLabel;
Label6: TLabel;
begdate: TDateTimePicker;
Enddate: TDateTimePicker;
cxGridPopupMenu2: TcxGridPopupMenu;
DS_HZ: TDataSource;
CDS_HZ: TClientDataSet;
ToolButton3: TToolButton;
v2Column1: TcxGridDBColumn;
VBZ: TcxGridDBColumn;
VYB: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
VMOrderNo: TcxGridDBColumn;
v2PS: TcxGridDBColumn;
v2Column2: TcxGridDBColumn;
v2KP: TcxGridDBColumn;
v2MP_CodeName: TcxGridDBColumn;
v2Column4: TcxGridDBColumn;
v2Column5: TcxGridDBColumn;
MP_CodeName: TEdit;
Label4: TLabel;
MP_Spec: TEdit;
Label5: TLabel;
Label7: TLabel;
Edit1: TEdit;
Button1: TToolButton;
CheckBox1: TCheckBox;
MOrderNo: TEdit;
Label8: TLabel;
Tchk: TToolButton;
Tnochk: TToolButton;
cxTabControl1: TcxTabControl;
v2ComTaitou: TcxGridDBColumn;
TZDSC: TToolButton;
v2MaoQty: TcxGridDBColumn;
v2JZQty: TcxGridDBColumn;
v2ConNoHZ: TcxGridDBColumn;
v2PRTColor: TcxGridDBColumn;
Label9: TLabel;
PRTColor: TEdit;
v2PBNote: TcxGridDBColumn;
v2MQty: TcxGridDBColumn;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
v2FeeType: TcxGridDBColumn;
Label14: TLabel;
ConNoHZ: TEdit;
v2chkstatus: TcxGridDBColumn;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
v2KPType: TcxGridDBColumn;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
v2SOrdDefStr4: TcxGridDBColumn;
Label17: TLabel;
KPType: TComboBox;
Label15: TLabel;
Note: TEdit;
v2Huilv: TcxGridDBColumn;
procedure FormDestroy(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure TBCloseClick(Sender : TObject);
procedure TBDelClick(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure TBRafreshClick(Sender : TObject);
procedure ToolButton2Click(Sender : TObject);
procedure FactoryNameChange(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure cxGridDBColumn8PropertiesEditValueChanged(Sender : TObject);
procedure cxGridDBColumn5PropertiesEditValueChanged(Sender : TObject);
procedure cxGridDBColumn1PropertiesEditValueChanged(Sender : TObject);
procedure ToolButton3Click(Sender : TObject);
procedure cxGridDBColumn3PropertiesButtonClick(Sender : TObject);
procedure cxGridDBColumn6PropertiesButtonClick(Sender : TObject);
procedure v2Column3PropertiesButtonClick(Sender : TObject);
procedure ToolButton1Click(Sender : TObject);
procedure v2Column7PropertiesButtonClick(Sender : TObject);
procedure v2PSPropertiesEditValueChanged(Sender : TObject);
procedure v2Column2PropertiesEditValueChanged(Sender : TObject);
procedure v2KPMoneyPropertiesEditValueChanged(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure CheckBox1Click(Sender : TObject);
procedure cxTabControl1Change(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure TchkClick(Sender : TObject);
procedure TnochkClick(Sender : TObject);
procedure v2ComTaitouPropertiesButtonClick(Sender : TObject);
procedure TZDSCClick(Sender : TObject);
procedure VBZPropertiesButtonClick(Sender : TObject);
procedure v2Column4PropertiesButtonClick(Sender : TObject);
procedure v2Column5PropertiesChange(Sender : TObject);
procedure v2ConNoHZPropertiesButtonClick(Sender : TObject);
procedure Tv2StylesGetContentStyle(Sender : TObject);
procedure N1Click(Sender : TObject);
procedure N2Click(Sender : TObject);
procedure ToolButton4Click(Sender : TObject);
procedure ToolButton5Click(Sender : TObject);
procedure v2KPTypePropertiesEditValueChanged(Sender : TObject);
procedure _PROC_0086383C(Sender : TObject);
procedure _PROC_008645B5(Sender : TObject);
procedure _PROC_00865109(Sender : TObject);
procedure _PROC_00865569(Sender : TObject);
procedure _PROC_008660B9(Sender : TObject);
procedure _PROC_0086646D(Sender : TObject);
procedure _PROC_00866FD1(Sender : TObject);
procedure _PROC_0086730E(Sender : TObject);
procedure _PROC_00867344(Sender : TObject);
procedure _PROC_00867351(Sender : TObject);
procedure _PROC_00867739(Sender : TObject);
procedure _PROC_00867EB1(Sender : TObject);
procedure _PROC_00868231(Sender : TObject);
procedure _PROC_008684B1(Sender : TObject);
procedure _PROC_008688D5(Sender : TObject);
procedure _PROC_008698A1(Sender : TObject);
procedure _PROC_00869C01(Sender : TObject);
procedure _PROC_00869FE5(Sender : TObject);
procedure _PROC_0086A505(Sender : TObject);
procedure _PROC_0086AD45(Sender : TObject);
procedure _PROC_0086AE76(Sender : TObject);
procedure _PROC_0086B413(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmYSCRKP: TfrmYSCRKP;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmYSCRKP.FormDestroy(Sender : TObject);
begin
(*
00863FAC 33C0 xor eax, eax
* Reference to GlobalVar_00895AA4
|
00863FAE A3A45A8900 mov dword ptr [$00895AA4], eax
00863FB3 C3 ret
*)
end;
procedure TfrmYSCRKP.FormClose(Sender : TObject);
begin
(*
00863FB4 C60102 mov byte ptr [ecx], $02
00863FB7 C3 ret
*)
end;
procedure TfrmYSCRKP.TBCloseClick(Sender : TObject);
begin
(*
00863FB8 53 push ebx
00863FB9 8BD8 mov ebx, eax
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
00863FBB B9E43F8600 mov ecx, $00863FE4
* Reference to control TfrmYSCRKP.Tv2 : TcxGridDBTableView
|
00863FC0 8B933C030000 mov edx, [ebx+$033C]
* Possible String Reference to: 'Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>5'
|
00863FC6 B8F83F8600 mov eax, $00863FF8
|
00863FCB E8D03BF5FF call 007B7BA0
00863FD0 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00863FD2 E8C11FC4FF call 004A5F98
00863FD7 5B pop ebx
00863FD8 C3 ret
*)
end;
procedure TfrmYSCRKP.TBDelClick(Sender : TObject);
begin
(*
00864004 55 push ebp
00864005 8BEC mov ebp, esp
00864007 33C9 xor ecx, ecx
00864009 51 push ecx
0086400A 51 push ecx
0086400B 51 push ecx
0086400C 51 push ecx
0086400D 51 push ecx
0086400E 51 push ecx
0086400F 51 push ecx
00864010 51 push ecx
00864011 53 push ebx
00864012 56 push esi
00864013 57 push edi
00864014 8945FC mov [ebp-$04], eax
00864017 33C0 xor eax, eax
00864019 55 push ebp
0086401A 680B428600 push $0086420B
***** TRY
|
0086401F 64FF30 push dword ptr fs:[eax]
00864022 648920 mov fs:[eax], esp
00864025 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
00864028 8B806C030000 mov eax, [eax+$036C]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
0086402E E88D3EC6FF call 004C7EC0
00864033 84C0 test al, al
00864035 0F85AD010000 jnz 008641E8
0086403B A01C428600 mov al, byte ptr [$0086421C]
00864040 50 push eax
00864041 8D45EC lea eax, [ebp-$14]
00864044 B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
00864046 E8194DBBFF call 00418D64
0086404B 8D4DEC lea ecx, [ebp-$14]
0086404E 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
00864051 8B806C030000 mov eax, [eax+$036C]
* Possible String Reference to: 'ssel'
|
00864057 BA28428600 mov edx, $00864228
0086405C 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
0086405E FF9344020000 call dword ptr [ebx+$0244]
00864064 84C0 test al, al
00864066 751D jnz 00864085
00864068 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
0086406A B930428600 mov ecx, $00864230
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
0086406F BA38428600 mov edx, $00864238
*)
end;
procedure TfrmYSCRKP.FormShow(Sender : TObject);
begin
(*
008642B8 53 push ebx
008642B9 8BD8 mov ebx, eax
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
008642BB B928438600 mov ecx, $00864328
* Reference to control TfrmYSCRKP.Tv2 : TcxGridDBTableView
|
008642C0 8B933C030000 mov edx, [ebx+$033C]
* Possible String Reference to: 'Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>5'
|
008642C6 B83C438600 mov eax, $0086433C
|
008642CB E8D436F5FF call 007B79A4
* Reference to control TfrmYSCRKP.ADOQueryTemp : TADOQuery
|
008642D0 8B8308030000 mov eax, [ebx+$0308]
|
008642D6 E8AD06F5FF call 007B4988
008642DB 83C4F8 add esp, -$08
008642DE DD1C24 fstp qword ptr [esp]
008642E1 9B wait
* Reference to control TfrmYSCRKP.Enddate : TDateTimePicker
|
008642E2 8B8360030000 mov eax, [ebx+$0360]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
008642E8 E83FDFC0FF call 0047222C
* Reference to control TfrmYSCRKP.ADOQueryTemp : TADOQuery
|
008642ED 8B8308030000 mov eax, [ebx+$0308]
|
008642F3 E89006F5FF call 007B4988
008642F8 D82548438600 fsub dword ptr [$00864348]
008642FE 83C4F8 add esp, -$08
00864301 DD1C24 fstp qword ptr [esp]
00864304 9B wait
* Reference to control TfrmYSCRKP.begdate : TDateTimePicker
|
00864305 8B835C030000 mov eax, [ebx+$035C]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
0086430B E81CDFC0FF call 0047222C
00864310 8BC3 mov eax, ebx
|
00864312 E8A9F4FFFF call 008637C0
00864317 8BC3 mov eax, ebx
* Reference to : TfrmYSCRKP._PROC_0086383C()
|
00864319 E81EF5FFFF call 0086383C
0086431E 5B pop ebx
0086431F C3 ret
*)
end;
procedure TfrmYSCRKP.TBRafreshClick(Sender : TObject);
begin
(*
0086434C 53 push ebx
0086434D 8BD8 mov ebx, eax
* Reference to control TfrmYSCRKP.begdate : TDateTimePicker
|
0086434F 8B835C030000 mov eax, [ebx+$035C]
00864355 8B10 mov edx, [eax]
* Reference to method TDateTimePicker.SetFocus()
|
00864357 FF92C4000000 call dword ptr [edx+$00C4]
0086435D 8BC3 mov eax, ebx
* Reference to : TfrmYSCRKP._PROC_0086383C()
|
0086435F E8D8F4FFFF call 0086383C
00864364 5B pop ebx
00864365 C3 ret
*)
end;
procedure TfrmYSCRKP.ToolButton2Click(Sender : TObject);
begin
(*
00864368 55 push ebp
00864369 8BEC mov ebp, esp
0086436B 6A00 push $00
0086436D 53 push ebx
0086436E 8BD8 mov ebx, eax
00864370 33C0 xor eax, eax
00864372 55 push ebp
00864373 680C448600 push $0086440C
***** TRY
|
00864378 64FF30 push dword ptr fs:[eax]
0086437B 648920 mov fs:[eax], esp
0086437E BA20448600 mov edx, $00864420
* Reference to control TfrmYSCRKP.Label12 : TLabel
|
00864383 8B8304040000 mov eax, [ebx+$0404]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00864389 E89242C2FF call 00488620
0086438E BA20448600 mov edx, $00864420
* Reference to control TfrmYSCRKP.Label13 : TLabel
|
00864393 8B8308040000 mov eax, [ebx+$0408]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00864399 E88242C2FF call 00488620
* Reference to control TfrmYSCRKP.ADOQueryMain : TADOQuery
|
0086439E 8B8320030000 mov eax, [ebx+$0320]
* Reference to: DB.TDataSet.GetActive(TDataSet):Boolean;
|
008643A4 E86B16C6FF call 004C5A14
008643A9 84C0 test al, al
008643AB 7449 jz 008643F6
008643AD 8D45FC lea eax, [ebp-$04]
008643B0 50 push eax
008643B1 B902000000 mov ecx, $00000002
008643B6 BA01000000 mov edx, $00000001
* Reference to control TfrmYSCRKP.Panel1 : TPanel
|
008643BB 8B8310030000 mov eax, [ebx+$0310]
|
008643C1 E8EA1CF5FF call 007B60B0
008643C6 8B55FC mov edx, [ebp-$04]
* Reference to control TfrmYSCRKP.ADOQueryMain : TADOQuery
|
008643C9 8B8320030000 mov eax, [ebx+$0320]
|
008643CF E8F428F5FF call 007B6CC8
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
008643D4 8B936C030000 mov edx, [ebx+$036C]
* Reference to control TfrmYSCRKP.ADOQueryMain : TADOQuery
|
008643DA 8B8320030000 mov eax, [ebx+$0320]
|
008643E0 E8AB2AF5FF call 007B6E90
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
008643E5 8B936C030000 mov edx, [ebx+$036C]
* Reference to control TfrmYSCRKP.ADOQueryMain : TADOQuery
|
008643EB 8B8320030000 mov eax, [ebx+$0320]
|
008643F1 E8222CF5FF call 007B7018
008643F6 33C0 xor eax, eax
008643F8 5A pop edx
008643F9 59 pop ecx
008643FA 59 pop ecx
008643FB 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[Y]<5D>'
|
008643FE 6813448600 push $00864413
00864403 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
00864406 E8190FBAFF call 00405324
0086440B C3 ret
* Reference to: System.@HandleFinally;
|
0086440C E9E306BAFF jmp 00404AF4
00864411 EBF0 jmp 00864403
****** END
|
00864413 5B pop ebx
00864414 59 pop ecx
00864415 5D pop ebp
00864416 C3 ret
*)
end;
procedure TfrmYSCRKP.FactoryNameChange(Sender : TObject);
begin
(*
00864424 56 push esi
* Reference to control TfrmYSCRKP.ToolButton2 : TToolButton
|
00864425 8B8014030000 mov eax, [eax+$0314]
0086442B 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
0086442F E82001BAFF call 00404554
00864434 5E pop esi
00864435 C3 ret
*)
end;
procedure TfrmYSCRKP.Button2Click(Sender : TObject);
begin
(*
00864438 55 push ebp
00864439 8BEC mov ebp, esp
0086443B 33C9 xor ecx, ecx
0086443D 51 push ecx
0086443E 51 push ecx
0086443F 51 push ecx
00864440 51 push ecx
00864441 51 push ecx
00864442 53 push ebx
00864443 56 push esi
00864444 8BD8 mov ebx, eax
00864446 33C0 xor eax, eax
00864448 55 push ebp
00864449 6845458600 push $00864545
***** TRY
|
0086444E 64FF30 push dword ptr fs:[eax]
00864451 648920 mov fs:[eax], esp
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
00864454 8B836C030000 mov eax, [ebx+$036C]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
0086445A E8613AC6FF call 004C7EC0
0086445F 84C0 test al, al
00864461 0F85C3000000 jnz 0086452A
00864467 6A24 push $24
* Possible String Reference to: '<27><>ʾ'
|
00864469 B954458600 mov ecx, $00864554
* Possible String Reference to: 'ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
0086446E BA5C458600 mov edx, $0086455C
*)
end;
procedure TfrmYSCRKP.cxGridDBColumn8PropertiesEditValueChanged(Sender : TObject);
begin
(*
00865344 55 push ebp
00865345 8BEC mov ebp, esp
00865347 B908000000 mov ecx, $00000008
0086534C 6A00 push $00
0086534E 6A00 push $00
00865350 49 dec ecx
00865351 75F9 jnz 0086534C
00865353 51 push ecx
00865354 53 push ebx
00865355 56 push esi
00865356 8BDA mov ebx, edx
00865358 8BF0 mov esi, eax
0086535A 33C0 xor eax, eax
0086535C 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
0086535D 6852558600 push $00865552
***** TRY
|
00865362 64FF30 push dword ptr fs:[eax]
00865365 648920 mov fs:[eax], esp
00865368 8D55FC lea edx, [ebp-$04]
0086536B 8BC3 mov eax, ebx
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
0086536D E84AA3D2FF call 0058F6BC
* Reference to control TfrmYSCRKP.Tv2 : TcxGridDBTableView
|
00865372 8B863C030000 mov eax, [esi+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
00865378 E8CF6FDFFF call 0065C34C
* 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;
|
0086537D E8E2C7DEFF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
00865382 8B4050 mov eax, [eax+$50]
00865385 8D55F4 lea edx, [ebp-$0C]
00865388 8B08 mov ecx, [eax]
0086538A FF5110 call dword ptr [ecx+$10]
0086538D 8B45F4 mov eax, [ebp-$0C]
00865390 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00865393 E85455BAFF call 0040A8EC
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
00865398 8B9E6C030000 mov ebx, [esi+$036C]
0086539E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008653A0 E89B30C6FF call 004C8440
008653A5 8D55E0 lea edx, [ebp-$20]
008653A8 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008653AB E83C55BAFF call 0040A8EC
008653B0 8B55E0 mov edx, [ebp-$20]
008653B3 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008653B6 E80D3ABBFF call 00418DC8
008653BB 8D45E4 lea eax, [ebp-$1C]
008653BE 50 push eax
008653BF 8B55F8 mov edx, [ebp-$08]
008653C2 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008653C4 E8EB17C6FF call 004C6BB4
008653C9 5A pop edx
008653CA 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
008653CC FF91B4000000 call dword ptr [ecx+$00B4]
008653D2 8BC3 mov eax, ebx
008653D4 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
008653D6 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYSCRKP.ADOQueryCmd : TADOQuery
|
008653DC 8B9E0C030000 mov ebx, [esi+$030C]
008653E2 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
008653E4 E8EB04C6FF call 004C58D4
008653E9 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008653EB E8BC8BC7FF call 004DDFAC
008653F0 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
008653F2 FF5244 call dword ptr [edx+$44]
008653F5 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008653F7 E8B08BC7FF call 004DDFAC
* Possible String Reference to: 'UPdate YCL_SG_HZ '
|
008653FC BA68558600 mov edx, $00865568
00865401 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00865403 FF5138 call dword ptr [ecx+$38]
00865406 8D55DC lea edx, [ebp-$24]
00865409 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0086540C E8DB54BAFF call 0040A8EC
00865411 837DDC00 cmp dword ptr [ebp-$24], +$00
00865415 7440 jz 00865457
* Possible String Reference to: ' Set '
|
00865417 6884558600 push $00865584
0086541C FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
0086541F 6894558600 push $00865594
00865424 8D55D4 lea edx, [ebp-$2C]
00865427 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0086542A E8BD54BAFF call 0040A8EC
0086542F FF75D4 push dword ptr [ebp-$2C]
00865432 68A0558600 push $008655A0
00865437 8D45D8 lea eax, [ebp-$28]
0086543A BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
0086543F E87002BAFF call 004056B4
00865444 8B45D8 mov eax, [ebp-$28]
00865447 50 push eax
00865448 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0086544A E85D8BC7FF call 004DDFAC
0086544F 5A pop edx
00865450 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00865452 FF5138 call dword ptr [ecx+$38]
00865455 EB2B jmp 00865482
00865457 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00865459 E84E8BC7FF call 004DDFAC
0086545E 50 push eax
* Possible String Reference to: ' Set '
|
0086545F 6884558600 push $00865584
00865464 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=NULL'
|
00865467 68AC558600 push $008655AC
0086546C 8D45D0 lea eax, [ebp-$30]
0086546F BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00865474 E83B02BAFF call 004056B4
00865479 8B55D0 mov edx, [ebp-$30]
0086547C 58 pop eax
0086547D 8B08 mov ecx, [eax]
0086547F FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
00865482 68BC558600 push $008655BC
00865487 8D55C8 lea edx, [ebp-$38]
*)
end;
procedure TfrmYSCRKP.cxGridDBColumn5PropertiesEditValueChanged(Sender : TObject);
begin
(*
00865610 55 push ebp
00865611 8BEC mov ebp, esp
00865613 B926000000 mov ecx, $00000026
00865618 6A00 push $00
0086561A 6A00 push $00
0086561C 49 dec ecx
0086561D 75F9 jnz 00865618
0086561F 51 push ecx
00865620 53 push ebx
00865621 56 push esi
00865622 8BF2 mov esi, edx
00865624 8BD8 mov ebx, eax
00865626 33C0 xor eax, eax
00865628 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>l<EFBFBD><6C><EFBFBD>^[<5B><>]<5D>'
|
00865629 68255F8600 push $00865F25
***** TRY
|
0086562E 64FF30 push dword ptr fs:[eax]
00865631 648920 mov fs:[eax], esp
00865634 8D55FC lea edx, [ebp-$04]
00865637 8BC6 mov eax, esi
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
00865639 E87EA0D2FF call 0058F6BC
0086563E 8D55DC lea edx, [ebp-$24]
00865641 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00865644 E8A352BAFF call 0040A8EC
00865649 837DDC00 cmp dword ptr [ebp-$24], +$00
0086564D 7513 jnz 00865662
0086564F 8D45CC lea eax, [ebp-$34]
* Reference to: ActiveX.PROPSETHDR_OSVER_KIND(DWORD):Word;
| or: ActiveX.PROPSETHDR_OSVER_MINOR(DWORD):Byte;
| or: ActnCtrls.TCustomComboControl.VisibleChanging(TCustomComboControl);
| or: ActnMan.TActionClientsCollection.SetActionClient(TActionClientsCollection;Integer;TActionClient);
| or: ActnMan.TActionClients.SetActionClient(TActionClients;Integer;TActionClientItem);
| or: ADODB.TParameters.SetItem(TParameters;Integer;TParameter);
|
00865652 E8097DBBFF call 0041D360
00865657 8D55CC lea edx, [ebp-$34]
0086565A 8D45FC lea eax, [ebp-$04]
* Reference to: Variants.@VarToWStr(WideString;WideString;TVarData;TVarData);
|
0086565D E8AE26BBFF call 00417D10
* Reference to control TfrmYSCRKP.Tv2 : TcxGridDBTableView
|
00865662 8B833C030000 mov eax, [ebx+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
00865668 E8DF6CDFFF call 0065C34C
* 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;
|
0086566D E8F2C4DEFF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
00865672 8B4050 mov eax, [eax+$50]
00865675 8D55C8 lea edx, [ebp-$38]
00865678 8B08 mov ecx, [eax]
0086567A FF5110 call dword ptr [ecx+$10]
0086567D 8B45C8 mov eax, [ebp-$38]
00865680 8D55E0 lea edx, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00865683 E86452BAFF call 0040A8EC
00865688 8B45E0 mov eax, [ebp-$20]
* Possible String Reference to: 'Money'
|
0086568B BA405F8600 mov edx, $00865F40
* Reference to: System.@LStrCmp;
|
00865690 E8AB00BAFF call 00405740
00865695 7546 jnz 008656DD
* Possible String Reference to: 'YFType'
|
00865697 BA505F8600 mov edx, $00865F50
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
0086569C 8B836C030000 mov eax, [ebx+$036C]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008656A2 E80D15C6FF call 004C6BB4
008656A7 8D55C0 lea edx, [ebp-$40]
008656AA 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
008656AC FF5160 call dword ptr [ecx+$60]
008656AF 8B45C0 mov eax, [ebp-$40]
008656B2 8D55C4 lea edx, [ebp-$3C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008656B5 E83252BAFF call 0040A8EC
008656BA 837DC400 cmp dword ptr [ebp-$3C], +$00
008656BE 741D jz 008656DD
008656C0 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
008656C2 B9585F8600 mov ecx, $00865F58
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2>ܸ<EFBFBD><DCB8><EFBFBD>!'
|
008656C7 BA605F8600 mov edx, $00865F60
*)
end;
procedure TfrmYSCRKP.cxGridDBColumn1PropertiesEditValueChanged(Sender : TObject);
begin
(*
008661D0 55 push ebp
008661D1 8BEC mov ebp, esp
008661D3 B909000000 mov ecx, $00000009
008661D8 6A00 push $00
008661DA 6A00 push $00
008661DC 49 dec ecx
008661DD 75F9 jnz 008661D8
008661DF 51 push ecx
008661E0 53 push ebx
008661E1 56 push esi
008661E2 8BDA mov ebx, edx
008661E4 8BF0 mov esi, eax
008661E6 33C0 xor eax, eax
008661E8 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
008661E9 6824648600 push $00866424
***** TRY
|
008661EE 64FF30 push dword ptr fs:[eax]
008661F1 648920 mov fs:[eax], esp
* Possible String Reference to: 'YFType'
|
008661F4 BA3C648600 mov edx, $0086643C
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
008661F9 8B866C030000 mov eax, [esi+$036C]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008661FF E8B009C6FF call 004C6BB4
00866204 8D55F0 lea edx, [ebp-$10]
00866207 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00866209 FF5160 call dword ptr [ecx+$60]
0086620C 8B45F0 mov eax, [ebp-$10]
0086620F 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00866212 E8D546BAFF call 0040A8EC
00866217 837DF400 cmp dword ptr [ebp-$0C], +$00
0086621B 741D jz 0086623A
0086621D 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
0086621F B944648600 mov ecx, $00866444
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2>ܸ<EFBFBD><DCB8><EFBFBD>!'
|
00866224 BA4C648600 mov edx, $0086644C
*)
end;
procedure TfrmYSCRKP.ToolButton3Click(Sender : TObject);
begin
(*
00866514 55 push ebp
00866515 8BEC mov ebp, esp
00866517 B91F000000 mov ecx, $0000001F
0086651C 6A00 push $00
0086651E 6A00 push $00
00866520 49 dec ecx
00866521 75F9 jnz 0086651C
00866523 53 push ebx
00866524 56 push esi
00866525 8BF0 mov esi, eax
00866527 33C0 xor eax, eax
00866529 55 push ebp
* Possible String Reference to: '<27>B<EFBFBD><42><EFBFBD><EFBFBD>@<40><><EFBFBD>^[<5B><>]<5D>'
|
0086652A 68AD698600 push $008669AD
***** TRY
|
0086652F 64FF30 push dword ptr fs:[eax]
00866532 648920 mov fs:[eax], esp
00866535 8BCE mov ecx, esi
00866537 B201 mov dl, $01
* Reference to class TfrmJYorderConCX
|
00866539 A164DF7D00 mov eax, dword ptr [$007DDF64]
* Reference to: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
| or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
0086653E E88DB8C3FF call 004A1DD0
*)
end;
procedure TfrmYSCRKP.cxGridDBColumn3PropertiesButtonClick(Sender : TObject);
begin
(*
00866B2C 55 push ebp
00866B2D 8BEC mov ebp, esp
00866B2F 51 push ecx
00866B30 B90E000000 mov ecx, $0000000E
00866B35 6A00 push $00
00866B37 6A00 push $00
00866B39 49 dec ecx
00866B3A 75F9 jnz 00866B35
00866B3C 51 push ecx
00866B3D 874DFC xchg [ebp-$04], ecx
00866B40 53 push ebx
00866B41 56 push esi
00866B42 8BF0 mov esi, eax
00866B44 33C0 xor eax, eax
00866B46 55 push ebp
* Possible String Reference to: '<27><>۹<EFBFBD><DBB9><EFBFBD>^[<5B><>]<5D>'
|
00866B47 68026F8600 push $00866F02
***** TRY
|
00866B4C 64FF30 push dword ptr fs:[eax]
00866B4F 648920 mov fs:[eax], esp
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
00866B52 8B866C030000 mov eax, [esi+$036C]
* Possible String Reference to: 'YFType'
|
00866B58 BA186F8600 mov edx, $00866F18
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00866B5D E85200C6FF call 004C6BB4
00866B62 8D55F8 lea edx, [ebp-$08]
00866B65 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00866B67 FF5160 call dword ptr [ecx+$60]
00866B6A 8B45F8 mov eax, [ebp-$08]
00866B6D 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00866B70 E8773DBAFF call 0040A8EC
00866B75 837DFC00 cmp dword ptr [ebp-$04], +$00
00866B79 741D jz 00866B98
00866B7B 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00866B7D B9206F8600 mov ecx, $00866F20
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2>ܸ<EFBFBD><DCB8><EFBFBD>!'
|
00866B82 BA286F8600 mov edx, $00866F28
*)
end;
procedure TfrmYSCRKP.cxGridDBColumn6PropertiesButtonClick(Sender : TObject);
begin
(*
00867098 55 push ebp
00867099 8BEC mov ebp, esp
0086709B 51 push ecx
0086709C B906000000 mov ecx, $00000006
008670A1 6A00 push $00
008670A3 6A00 push $00
008670A5 49 dec ecx
008670A6 75F9 jnz 008670A1
008670A8 51 push ecx
008670A9 874DFC xchg [ebp-$04], ecx
008670AC 53 push ebx
008670AD 56 push esi
008670AE 8BF0 mov esi, eax
008670B0 33C0 xor eax, eax
008670B2 55 push ebp
* Possible String Reference to: '<27><>׹<EFBFBD><D7B9><EFBFBD>^[<5B><>]<5D>'
|
008670B3 68F1728600 push $008672F1
***** TRY
|
008670B8 64FF30 push dword ptr fs:[eax]
008670BB 648920 mov fs:[eax], esp
008670BE 33C0 xor eax, eax
008670C0 55 push ebp
008670C1 68C7728600 push $008672C7
***** TRY
|
008670C6 64FF30 push dword ptr fs:[eax]
008670C9 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYSCRKP.v2Column3PropertiesButtonClick(Sender : TObject);
begin
(*
008673F4 55 push ebp
008673F5 8BEC mov ebp, esp
008673F7 51 push ecx
008673F8 B907000000 mov ecx, $00000007
008673FD 6A00 push $00
008673FF 6A00 push $00
00867401 49 dec ecx
00867402 75F9 jnz 008673FD
00867404 51 push ecx
00867405 874DFC xchg [ebp-$04], ecx
00867408 53 push ebx
00867409 56 push esi
0086740A 8BF0 mov esi, eax
0086740C 33C0 xor eax, eax
0086740E 55 push ebp
* Possible String Reference to: '<27>FԹ<46><D4B9><EFBFBD>^[<5B><>]<5D>'
|
0086740F 68A9768600 push $008676A9
***** TRY
|
00867414 64FF30 push dword ptr fs:[eax]
00867417 648920 mov fs:[eax], esp
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
0086741A 8B866C030000 mov eax, [esi+$036C]
* Possible String Reference to: 'YFType'
|
00867420 BAC0768600 mov edx, $008676C0
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00867425 E88AF7C5FF call 004C6BB4
0086742A 8D55F8 lea edx, [ebp-$08]
0086742D 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
0086742F FF5160 call dword ptr [ecx+$60]
00867432 8B45F8 mov eax, [ebp-$08]
00867435 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00867438 E8AF34BAFF call 0040A8EC
0086743D 8B45FC mov eax, [ebp-$04]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
00867440 BAD0768600 mov edx, $008676D0
* Reference to: System.@LStrCmp;
|
00867445 E8F6E2B9FF call 00405740
0086744A 751D jnz 00867469
0086744C 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
0086744E B9DC768600 mov ecx, $008676DC
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
00867453 BAE4768600 mov edx, $008676E4
*)
end;
procedure TfrmYSCRKP.ToolButton1Click(Sender : TObject);
begin
(*
008677E0 53 push ebx
008677E1 8BD8 mov ebx, eax
* Reference to control TfrmYSCRKP.ADOQueryMain : TADOQuery
|
008677E3 8B8320030000 mov eax, [ebx+$0320]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
008677E9 E8D206C6FF call 004C7EC0
008677EE 84C0 test al, al
008677F0 7516 jnz 00867808
* Possible String Reference to: 'Ӧ<>տ<EFBFBD><D5BF>б<EFBFBD>'
|
008677F2 B914788600 mov ecx, $00867814
* Reference to control TfrmYSCRKP.ADOQueryMain : TADOQuery
|
008677F7 8B9320030000 mov edx, [ebx+$0320]
* Reference to control TfrmYSCRKP.Tv2 : TcxGridDBTableView
|
008677FD 8B833C030000 mov eax, [ebx+$033C]
|
00867803 E8280AF5FF call 007B8230
00867808 5B pop ebx
00867809 C3 ret
*)
end;
procedure TfrmYSCRKP.v2Column7PropertiesButtonClick(Sender : TObject);
begin
(*
00867820 55 push ebp
00867821 8BEC mov ebp, esp
00867823 51 push ecx
00867824 B918000000 mov ecx, $00000018
00867829 6A00 push $00
0086782B 6A00 push $00
0086782D 49 dec ecx
0086782E 75F9 jnz 00867829
00867830 51 push ecx
00867831 874DFC xchg [ebp-$04], ecx
00867834 53 push ebx
00867835 8945FC mov [ebp-$04], eax
00867838 33C0 xor eax, eax
0086783A 55 push ebp
* Possible String Reference to: '<27>0͹<30><CDB9>|<7C><><EFBFBD>[<5B><>]<5D>'
|
0086783B 68BF7D8600 push $00867DBF
***** TRY
|
00867840 64FF30 push dword ptr fs:[eax]
00867843 648920 mov fs:[eax], esp
00867846 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
00867849 8B806C030000 mov eax, [eax+$036C]
* Possible String Reference to: 'YFType'
|
0086784F BAD87D8600 mov edx, $00867DD8
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00867854 E85BF3C5FF call 004C6BB4
00867859 8D55F4 lea edx, [ebp-$0C]
0086785C 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
0086785E FF5160 call dword ptr [ecx+$60]
00867861 8B45F4 mov eax, [ebp-$0C]
00867864 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00867867 E88030BAFF call 0040A8EC
0086786C 8B45F8 mov eax, [ebp-$08]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
0086786F BAE87D8600 mov edx, $00867DE8
* Reference to: System.@LStrCmp;
|
00867874 E8C7DEB9FF call 00405740
00867879 751D jnz 00867898
0086787B 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
0086787D B9F47D8600 mov ecx, $00867DF4
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
00867882 BAFC7D8600 mov edx, $00867DFC
*)
end;
procedure TfrmYSCRKP.v2PSPropertiesEditValueChanged(Sender : TObject);
begin
(*
00867F94 55 push ebp
00867F95 8BEC mov ebp, esp
00867F97 B909000000 mov ecx, $00000009
00867F9C 6A00 push $00
00867F9E 6A00 push $00
00867FA0 49 dec ecx
00867FA1 75F9 jnz 00867F9C
00867FA3 53 push ebx
00867FA4 56 push esi
00867FA5 8BDA mov ebx, edx
00867FA7 8BF0 mov esi, eax
00867FA9 33C0 xor eax, eax
00867FAB 55 push ebp
00867FAC 68CB818600 push $008681CB
***** TRY
|
00867FB1 64FF30 push dword ptr fs:[eax]
00867FB4 648920 mov fs:[eax], esp
* Possible String Reference to: 'YFType'
|
00867FB7 BAE0818600 mov edx, $008681E0
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
00867FBC 8B866C030000 mov eax, [esi+$036C]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00867FC2 E8EDEBC5FF call 004C6BB4
00867FC7 8D55F0 lea edx, [ebp-$10]
00867FCA 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00867FCC FF5160 call dword ptr [ecx+$60]
00867FCF 8B45F0 mov eax, [ebp-$10]
00867FD2 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00867FD5 E81229BAFF call 0040A8EC
00867FDA 8B45F4 mov eax, [ebp-$0C]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
00867FDD BAF0818600 mov edx, $008681F0
* Reference to: System.@LStrCmp;
|
00867FE2 E859D7B9FF call 00405740
00867FE7 751D jnz 00868006
00867FE9 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00867FEB B9FC818600 mov ecx, $008681FC
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
00867FF0 BA04828600 mov edx, $00868204
*)
end;
procedure TfrmYSCRKP.v2Column2PropertiesEditValueChanged(Sender : TObject);
begin
(*
008682C8 55 push ebp
008682C9 8BEC mov ebp, esp
008682CB B907000000 mov ecx, $00000007
008682D0 6A00 push $00
008682D2 6A00 push $00
008682D4 49 dec ecx
008682D5 75F9 jnz 008682D0
008682D7 51 push ecx
008682D8 53 push ebx
008682D9 56 push esi
008682DA 8BDA mov ebx, edx
008682DC 8BF0 mov esi, eax
008682DE 33C0 xor eax, eax
008682E0 55 push ebp
* Possible String Reference to: '<27>Wƹ<57><C6B9><EFBFBD>^[<5B><>]<5D>'
|
008682E1 6898848600 push $00868498
***** TRY
|
008682E6 64FF30 push dword ptr fs:[eax]
008682E9 648920 mov fs:[eax], esp
008682EC 8D55FC lea edx, [ebp-$04]
008682EF 8BC3 mov eax, ebx
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
008682F1 E8C673D2FF call 0058F6BC
* Reference to control TfrmYSCRKP.Tv2 : TcxGridDBTableView
|
008682F6 8B863C030000 mov eax, [esi+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
008682FC E84B40DFFF call 0065C34C
* 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;
|
00868301 E85E98DEFF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
00868306 8B4050 mov eax, [eax+$50]
00868309 8D55F4 lea edx, [ebp-$0C]
0086830C 8B08 mov ecx, [eax]
0086830E FF5110 call dword ptr [ecx+$10]
00868311 8B45F4 mov eax, [ebp-$0C]
00868314 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00868317 E8D025BAFF call 0040A8EC
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
0086831C 8B9E6C030000 mov ebx, [esi+$036C]
00868322 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00868324 E81701C6FF call 004C8440
00868329 8D55E0 lea edx, [ebp-$20]
0086832C 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0086832F E8B825BAFF call 0040A8EC
00868334 8B55E0 mov edx, [ebp-$20]
00868337 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
0086833A E8890ABBFF call 00418DC8
0086833F 8D45E4 lea eax, [ebp-$1C]
00868342 50 push eax
00868343 8B55F8 mov edx, [ebp-$08]
00868346 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00868348 E867E8C5FF call 004C6BB4
0086834D 5A pop edx
0086834E 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00868350 FF91B4000000 call dword ptr [ecx+$00B4]
00868356 8BC3 mov eax, ebx
00868358 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
0086835A FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYSCRKP.ADOQueryCmd : TADOQuery
|
00868360 8B9E0C030000 mov ebx, [esi+$030C]
00868366 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00868368 E867D5C5FF call 004C58D4
0086836D 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0086836F E8385CC7FF call 004DDFAC
00868374 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00868376 FF5244 call dword ptr [edx+$44]
00868379 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0086837B E82C5CC7FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00868380 BAB0848600 mov edx, $008684B0
00868385 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00868387 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
0086838A 68CC848600 push $008684CC
0086838F FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
00868392 68DC848600 push $008684DC
00868397 8D55D8 lea edx, [ebp-$28]
0086839A 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0086839D E84A25BAFF call 0040A8EC
008683A2 FF75D8 push dword ptr [ebp-$28]
008683A5 68E8848600 push $008684E8
008683AA 8D45DC lea eax, [ebp-$24]
008683AD BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
008683B2 E8FDD2B9FF call 004056B4
008683B7 8B45DC mov eax, [ebp-$24]
008683BA 50 push eax
008683BB 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008683BD E8EA5BC7FF call 004DDFAC
008683C2 5A pop edx
008683C3 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008683C5 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
008683C8 68F4848600 push $008684F4
008683CD 8D55D0 lea edx, [ebp-$30]
*)
end;
procedure TfrmYSCRKP.v2KPMoneyPropertiesEditValueChanged(Sender : TObject);
begin
(*
00868548 55 push ebp
00868549 8BEC mov ebp, esp
0086854B B90C000000 mov ecx, $0000000C
00868550 6A00 push $00
00868552 6A00 push $00
00868554 49 dec ecx
00868555 75F9 jnz 00868550
00868557 53 push ebx
00868558 56 push esi
00868559 8BDA mov ebx, edx
0086855B 8BF0 mov esi, eax
0086855D 33C0 xor eax, eax
0086855F 55 push ebp
00868560 683F888600 push $0086883F
***** TRY
|
00868565 64FF30 push dword ptr fs:[eax]
00868568 648920 mov fs:[eax], esp
0086856B 8D55FC lea edx, [ebp-$04]
0086856E 8BC3 mov eax, ebx
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
00868570 E84771D2FF call 0058F6BC
00868575 8D55EC lea edx, [ebp-$14]
00868578 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0086857B E86C23BAFF call 0040A8EC
00868580 837DEC00 cmp dword ptr [ebp-$14], +$00
00868584 750D jnz 00868593
00868586 8D45FC lea eax, [ebp-$04]
00868589 BA54888600 mov edx, $00868854
* Reference to: System.@LStrLAsg(void;void;void;void);
|
0086858E E829CEB9FF call 004053BC
* Reference to control TfrmYSCRKP.Tv2 : TcxGridDBTableView
|
00868593 8B863C030000 mov eax, [esi+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
00868599 E8AE3DDFFF call 0065C34C
* 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;
|
0086859E E8C195DEFF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
008685A3 8B4050 mov eax, [eax+$50]
008685A6 8D55E8 lea edx, [ebp-$18]
008685A9 8B08 mov ecx, [eax]
008685AB FF5110 call dword ptr [ecx+$10]
008685AE 8B45E8 mov eax, [ebp-$18]
008685B1 8D55F0 lea edx, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008685B4 E83323BAFF call 0040A8EC
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
008685B9 8B9E6C030000 mov ebx, [esi+$036C]
008685BF 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008685C1 E87AFEC5FF call 004C8440
008685C6 8D55D4 lea edx, [ebp-$2C]
008685C9 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008685CC E81B23BAFF call 0040A8EC
008685D1 8B55D4 mov edx, [ebp-$2C]
008685D4 8D45D8 lea eax, [ebp-$28]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008685D7 E8EC07BBFF call 00418DC8
008685DC 8D45D8 lea eax, [ebp-$28]
008685DF 50 push eax
008685E0 8B55F0 mov edx, [ebp-$10]
008685E3 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008685E5 E8CAE5C5FF call 004C6BB4
008685EA 5A pop edx
008685EB 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
008685ED FF91B4000000 call dword ptr [ecx+$00B4]
008685F3 8BC3 mov eax, ebx
008685F5 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
008685F7 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYSCRKP.ADOQueryTemp : TADOQuery
|
008685FD 8B9E08030000 mov ebx, [esi+$0308]
00868603 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00868605 E8CAD2C5FF call 004C58D4
0086860A 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0086860C E89B59C7FF call 004DDFAC
00868611 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00868613 FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'select isnull(KPMoney,0) KPMoney fr
| om YF_Money_CR where YFID=''
|
00868616 6860888600 push $00868860
* Possible String Reference to: 'YFID'
|
0086861B BAA8888600 mov edx, $008688A8
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
00868620 8B866C030000 mov eax, [esi+$036C]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00868626 E889E5C5FF call 004C6BB4
0086862B 8D55CC lea edx, [ebp-$34]
0086862E 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00868630 FF5160 call dword ptr [ecx+$60]
00868633 FF75CC push dword ptr [ebp-$34]
00868636 68B8888600 push $008688B8
0086863B 8D45D0 lea eax, [ebp-$30]
0086863E BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00868643 E86CD0B9FF call 004056B4
00868648 8B45D0 mov eax, [ebp-$30]
0086864B 50 push eax
0086864C 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0086864E E85959C7FF call 004DDFAC
00868653 5A pop edx
00868654 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00868656 FF5138 call dword ptr [ecx+$38]
00868659 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
0086865B E868D2C5FF call 004C58C8
* Possible String Reference to: 'KPMoney'
|
00868660 BAC4888600 mov edx, $008688C4
* Reference to control TfrmYSCRKP.ADOQueryTemp : TADOQuery
|
00868665 8B8608030000 mov eax, [esi+$0308]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0086866B E844E5C5FF call 004C6BB4
00868670 8D55F4 lea edx, [ebp-$0C]
00868673 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_60
|
00868675 FF5160 call dword ptr [ecx+$60]
* Possible String Reference to: 'KPMoney'
|
00868678 BAC4888600 mov edx, $008688C4
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
0086867D 8B866C030000 mov eax, [esi+$036C]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00868683 E82CE5C5FF call 004C6BB4
00868688 8D55F8 lea edx, [ebp-$08]
0086868B 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
0086868D FF5160 call dword ptr [ecx+$60]
* Reference to control TfrmYSCRKP.ADOQueryCmd : TADOQuery
|
00868690 8B9E0C030000 mov ebx, [esi+$030C]
00868696 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00868698 E837D2C5FF call 004C58D4
0086869D 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0086869F E80859C7FF call 004DDFAC
008686A4 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
008686A6 FF5244 call dword ptr [edx+$44]
008686A9 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008686AB E8FC58C7FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
008686B0 BAD4888600 mov edx, $008688D4
008686B5 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008686B7 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
008686BA 68F0888600 push $008688F0
008686BF FF75F0 push dword ptr [ebp-$10]
008686C2 6800898600 push $00868900
008686C7 8D55C4 lea edx, [ebp-$3C]
008686CA 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008686CD E81A22BAFF call 0040A8EC
008686D2 FF75C4 push dword ptr [ebp-$3C]
008686D5 8D45C8 lea eax, [ebp-$38]
008686D8 BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
008686DD E8D2CFB9FF call 004056B4
008686E2 8B45C8 mov eax, [ebp-$38]
008686E5 50 push eax
008686E6 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008686E8 E8BF58C7FF call 004DDFAC
008686ED 5A pop edx
008686EE 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008686F0 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
008686F3 680C898600 push $0086890C
008686F8 8D55BC lea edx, [ebp-$44]
*)
end;
procedure TfrmYSCRKP.Button1Click(Sender : TObject);
begin
(*
008689C8 55 push ebp
008689C9 8BEC mov ebp, esp
008689CB B910000000 mov ecx, $00000010
008689D0 6A00 push $00
008689D2 6A00 push $00
008689D4 49 dec ecx
008689D5 75F9 jnz 008689D0
008689D7 51 push ecx
008689D8 53 push ebx
008689D9 56 push esi
008689DA 57 push edi
008689DB 8945FC mov [ebp-$04], eax
008689DE 33C0 xor eax, eax
008689E0 55 push ebp
* Possible String Reference to: '閽<><E996BD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
008689E1 68598D8600 push $00868D59
***** TRY
|
008689E6 64FF30 push dword ptr fs:[eax]
008689E9 648920 mov fs:[eax], esp
008689EC 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
008689EF 8B806C030000 mov eax, [eax+$036C]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
008689F5 E8C6F4C5FF call 004C7EC0
008689FA 84C0 test al, al
008689FC 0F85F1020000 jnz 00868CF3
00868A02 A0688D8600 mov al, byte ptr [$00868D68]
00868A07 50 push eax
00868A08 8D45EC lea eax, [ebp-$14]
00868A0B B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
00868A0D E85203BBFF call 00418D64
00868A12 8D4DEC lea ecx, [ebp-$14]
00868A15 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
00868A18 8B806C030000 mov eax, [eax+$036C]
* Possible String Reference to: 'ssel'
|
00868A1E BA748D8600 mov edx, $00868D74
00868A23 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
00868A25 FF9344020000 call dword ptr [ebx+$0244]
00868A2B 84C0 test al, al
00868A2D 751D jnz 00868A4C
00868A2F 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00868A31 B97C8D8600 mov ecx, $00868D7C
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
00868A36 BA848D8600 mov edx, $00868D84
*)
end;
procedure TfrmYSCRKP.CheckBox1Click(Sender : TObject);
begin
(*
00868E44 55 push ebp
00868E45 8BEC mov ebp, esp
00868E47 B905000000 mov ecx, $00000005
00868E4C 6A00 push $00
00868E4E 6A00 push $00
00868E50 49 dec ecx
00868E51 75F9 jnz 00868E4C
00868E53 53 push ebx
00868E54 56 push esi
00868E55 57 push edi
00868E56 8BF0 mov esi, eax
00868E58 33C0 xor eax, eax
00868E5A 55 push ebp
* Possible String Reference to: '<27>ߺ<EFBFBD><DFBA><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
00868E5B 6810908600 push $00869010
***** TRY
|
00868E60 64FF30 push dword ptr fs:[eax]
00868E63 648920 mov fs:[eax], esp
00868E66 BA28908600 mov edx, $00869028
* Reference to control TfrmYSCRKP.Label12 : TLabel
|
00868E6B 8B8604040000 mov eax, [esi+$0404]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00868E71 E8AAF7C1FF call 00488620
00868E76 BA28908600 mov edx, $00869028
* Reference to control TfrmYSCRKP.Label13 : TLabel
|
00868E7B 8B8608040000 mov eax, [esi+$0408]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00868E81 E89AF7C1FF call 00488620
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
00868E86 8B866C030000 mov eax, [esi+$036C]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00868E8C E82FF0C5FF call 004C7EC0
00868E91 84C0 test al, al
00868E93 0F8541010000 jnz 00868FDA
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
00868E99 8B9E6C030000 mov ebx, [esi+$036C]
00868E9F 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
00868EA1 E8AEE6C5FF call 004C7554
00868EA6 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.First(TDataSet);
|
00868EA8 E883F1C5FF call 004C8030
00868EAD E90D010000 jmp 00868FBF
00868EB2 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00868EB4 E887F5C5FF call 004C8440
* Reference to control TfrmYSCRKP.CheckBox1 : TCheckBox
|
00868EB9 8B86BC030000 mov eax, [esi+$03BC]
00868EBF 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
00868EC1 FF92C8000000 call dword ptr [edx+$00C8]
00868EC7 8BD0 mov edx, eax
00868EC9 8D45F0 lea eax, [ebp-$10]
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
00868ECC E893FEBAFF call 00418D64
00868ED1 8D45F0 lea eax, [ebp-$10]
00868ED4 50 push eax
* Possible String Reference to: 'ssel'
|
00868ED5 BA34908600 mov edx, $00869034
00868EDA 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00868EDC E8D3DCC5FF call 004C6BB4
00868EE1 5A pop edx
00868EE2 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00868EE4 FF91B4000000 call dword ptr [ecx+$00B4]
* Reference to control TfrmYSCRKP.CheckBox1 : TCheckBox
|
00868EEA 8B86BC030000 mov eax, [esi+$03BC]
00868EF0 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
00868EF2 FF92C8000000 call dword ptr [edx+$00C8]
00868EF8 3C01 cmp al, $01
00868EFA 0F85AE000000 jnz 00868FAE
* Possible String Reference to: 'Qty'
|
00868F00 BA44908600 mov edx, $00869044
00868F05 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00868F07 E8A8DCC5FF call 004C6BB4
00868F0C 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
00868F0E FF524C call dword ptr [edx+$4C]
00868F11 DF7DE4 fistp qword ptr [ebp-$1C]
00868F14 9B wait
00868F15 8D55E0 lea edx, [ebp-$20]
* Reference to control TfrmYSCRKP.Label12 : TLabel
|
00868F18 8BBE04040000 mov edi, [esi+$0404]
00868F1E 8BC7 mov eax, edi
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00868F20 E8CBF6C1FF call 004885F0
00868F25 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00868F28 E8FF47BAFF call 0040D72C
00868F2D D80D48908600 fmul dword ptr [$00869048]
00868F33 DF6DE4 fild qword ptr [ebp-$1C]
00868F36 DEC1 faddp st(1), st(0)
00868F38 D83548908600 fdiv dword ptr [$00869048]
00868F3E 83C4F4 add esp, -$0C
00868F41 DB3C24 fstp tbyte ptr [esp]
00868F44 9B wait
00868F45 8D45EC lea eax, [ebp-$14]
|
00868F48 E85F46BAFF call 0040D5AC
00868F4D 8B55EC mov edx, [ebp-$14]
00868F50 8BC7 mov eax, edi
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00868F52 E8C9F6C1FF call 00488620
* Possible String Reference to: 'Money'
|
00868F57 BA54908600 mov edx, $00869054
00868F5C 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00868F5E E851DCC5FF call 004C6BB4
00868F63 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
00868F65 FF524C call dword ptr [edx+$4C]
00868F68 DF7DE4 fistp qword ptr [ebp-$1C]
00868F6B 9B wait
00868F6C 8D55D8 lea edx, [ebp-$28]
* Reference to control TfrmYSCRKP.Label13 : TLabel
|
00868F6F 8BBE08040000 mov edi, [esi+$0408]
00868F75 8BC7 mov eax, edi
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00868F77 E874F6C1FF call 004885F0
00868F7C 8B45D8 mov eax, [ebp-$28]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00868F7F E8A847BAFF call 0040D72C
00868F84 D80D48908600 fmul dword ptr [$00869048]
00868F8A DF6DE4 fild qword ptr [ebp-$1C]
00868F8D DEC1 faddp st(1), st(0)
00868F8F D83548908600 fdiv dword ptr [$00869048]
00868F95 83C4F4 add esp, -$0C
00868F98 DB3C24 fstp tbyte ptr [esp]
00868F9B 9B wait
00868F9C 8D45DC lea eax, [ebp-$24]
|
00868F9F E80846BAFF call 0040D5AC
00868FA4 8B55DC mov edx, [ebp-$24]
00868FA7 8BC7 mov eax, edi
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00868FA9 E872F6C1FF call 00488620
00868FAE 8BC3 mov eax, ebx
00868FB0 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
00868FB2 FF924C020000 call dword ptr [edx+$024C]
00868FB8 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Next(TDataSet);
|
00868FBA E88DF3C5FF call 004C834C
* Reference to field TClientDataSet.Eof : Boolean
|
00868FBF 80BBA100000000 cmp byte ptr [ebx+$00A1], $00
00868FC6 0F84E6FEFFFF jz 00868EB2
00868FCC 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.First(TDataSet);
|
00868FCE E85DF0C5FF call 004C8030
00868FD3 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
00868FD5 E89AE5C5FF call 004C7574
00868FDA 33C0 xor eax, eax
00868FDC 5A pop edx
00868FDD 59 pop ecx
00868FDE 59 pop ecx
00868FDF 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[<5B><>]<5D>'
|
00868FE2 6817908600 push $00869017
00868FE7 8D45D8 lea eax, [ebp-$28]
* Reference to: System.@LStrClr(void;void);
|
00868FEA E835C3B9FF call 00405324
00868FEF 8D45DC lea eax, [ebp-$24]
* Reference to: System.@LStrClr(void;void);
|
00868FF2 E82DC3B9FF call 00405324
00868FF7 8D45E0 lea eax, [ebp-$20]
* Reference to: System.@LStrClr(void;void);
|
00868FFA E825C3B9FF call 00405324
00868FFF 8D45EC lea eax, [ebp-$14]
* Reference to: System.@LStrClr(void;void);
|
00869002 E81DC3B9FF call 00405324
00869007 8D45F0 lea eax, [ebp-$10]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
0086900A E865B6BAFF call 00414674
0086900F C3 ret
* Reference to: System.@HandleFinally;
|
00869010 E9DFBAB9FF jmp 00404AF4
00869015 EBD0 jmp 00868FE7
****** END
|
00869017 5F pop edi
00869018 5E pop esi
00869019 5B pop ebx
0086901A 8BE5 mov esp, ebp
0086901C 5D pop ebp
0086901D C3 ret
*)
end;
procedure TfrmYSCRKP.cxTabControl1Change(Sender : TObject);
begin
(*
0086905C 53 push ebx
0086905D 8BD8 mov ebx, eax
0086905F 8BC3 mov eax, ebx
|
00869061 E85AA7FFFF call 008637C0
00869066 8BC3 mov eax, ebx
* Reference to : TfrmYSCRKP._PROC_0086383C()
|
00869068 E8CFA7FFFF call 0086383C
0086906D 5B pop ebx
0086906E C3 ret
*)
end;
procedure TfrmYSCRKP.FormCreate(Sender : TObject);
begin
(*
00869070 55 push ebp
00869071 8BEC mov ebp, esp
00869073 6A00 push $00
00869075 53 push ebx
00869076 8BD8 mov ebx, eax
00869078 33C0 xor eax, eax
0086907A 55 push ebp
* Possible String Reference to: '<27>)<29><><EFBFBD><EFBFBD><EFBFBD>[Y]Í@'
|
0086907B 68C6908600 push $008690C6
***** TRY
|
00869080 64FF30 push dword ptr fs:[eax]
00869083 648920 mov fs:[eax], esp
00869086 B205 mov dl, $05
* Reference to control TfrmYSCRKP.cxGrid2 : TcxGrid
|
00869088 8B8338030000 mov eax, [ebx+$0338]
* Reference to: Controls.TControl.SetAlign(TControl;TAlign);
|
0086908E E849EAC1FF call 00487ADC
00869093 8D55FC lea edx, [ebp-$04]
*)
end;
procedure TfrmYSCRKP.TchkClick(Sender : TObject);
begin
(*
008690D4 55 push ebp
008690D5 8BEC mov ebp, esp
008690D7 B905000000 mov ecx, $00000005
008690DC 6A00 push $00
008690DE 6A00 push $00
008690E0 49 dec ecx
008690E1 75F9 jnz 008690DC
008690E3 53 push ebx
008690E4 56 push esi
008690E5 8945FC mov [ebp-$04], eax
008690E8 33C0 xor eax, eax
008690EA 55 push ebp
* Possible String Reference to: '<27>Z<EFBFBD><5A><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
008690EB 6895928600 push $00869295
***** TRY
|
008690F0 64FF30 push dword ptr fs:[eax]
008690F3 648920 mov fs:[eax], esp
008690F6 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
008690F9 8B806C030000 mov eax, [eax+$036C]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
008690FF E8BCEDC5FF call 004C7EC0
00869104 84C0 test al, al
00869106 0F8566010000 jnz 00869272
0086910C A0A4928600 mov al, byte ptr [$008692A4]
00869111 50 push eax
00869112 8D45EC lea eax, [ebp-$14]
00869115 B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
00869117 E848FCBAFF call 00418D64
0086911C 8D4DEC lea ecx, [ebp-$14]
0086911F 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
00869122 8B806C030000 mov eax, [eax+$036C]
* Possible String Reference to: 'ssel'
|
00869128 BAB0928600 mov edx, $008692B0
0086912D 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
0086912F FF9344020000 call dword ptr [ebx+$0244]
00869135 84C0 test al, al
00869137 751D jnz 00869156
00869139 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
0086913B B9B8928600 mov ecx, $008692B8
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
00869140 BAC0928600 mov edx, $008692C0
*)
end;
procedure TfrmYSCRKP.TnochkClick(Sender : TObject);
begin
(*
00869354 55 push ebp
00869355 8BEC mov ebp, esp
00869357 B904000000 mov ecx, $00000004
0086935C 6A00 push $00
0086935E 6A00 push $00
00869360 49 dec ecx
00869361 75F9 jnz 0086935C
00869363 51 push ecx
00869364 53 push ebx
00869365 56 push esi
00869366 57 push edi
00869367 8945FC mov [ebp-$04], eax
0086936A 33C0 xor eax, eax
0086936C 55 push ebp
* Possible String Reference to: '霵<><E99CB5><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
0086936D 6853958600 push $00869553
***** TRY
|
00869372 64FF30 push dword ptr fs:[eax]
00869375 648920 mov fs:[eax], esp
00869378 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
0086937B 8B806C030000 mov eax, [eax+$036C]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00869381 E83AEBC5FF call 004C7EC0
00869386 84C0 test al, al
00869388 0F85A2010000 jnz 00869530
0086938E A064958600 mov al, byte ptr [$00869564]
00869393 50 push eax
00869394 8D45EC lea eax, [ebp-$14]
00869397 B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
00869399 E8C6F9BAFF call 00418D64
0086939E 8D4DEC lea ecx, [ebp-$14]
008693A1 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
008693A4 8B806C030000 mov eax, [eax+$036C]
* Possible String Reference to: 'ssel'
|
008693AA BA70958600 mov edx, $00869570
008693AF 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
008693B1 FF9344020000 call dword ptr [ebx+$0244]
008693B7 84C0 test al, al
008693B9 751D jnz 008693D8
008693BB 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
008693BD B978958600 mov ecx, $00869578
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
008693C2 BA80958600 mov edx, $00869580
*)
end;
procedure TfrmYSCRKP.v2ComTaitouPropertiesButtonClick(Sender : TObject);
begin
(*
008695FC 55 push ebp
008695FD 8BEC mov ebp, esp
008695FF 51 push ecx
00869600 B906000000 mov ecx, $00000006
00869605 6A00 push $00
00869607 6A00 push $00
00869609 49 dec ecx
0086960A 75F9 jnz 00869605
0086960C 51 push ecx
0086960D 874DFC xchg [ebp-$04], ecx
00869610 53 push ebx
00869611 56 push esi
00869612 8BF0 mov esi, eax
00869614 33C0 xor eax, eax
00869616 55 push ebp
00869617 6853988600 push $00869853
***** TRY
|
0086961C 64FF30 push dword ptr fs:[eax]
0086961F 648920 mov fs:[eax], esp
00869622 33C0 xor eax, eax
00869624 55 push ebp
00869625 6829988600 push $00869829
***** TRY
|
0086962A 64FF30 push dword ptr fs:[eax]
0086962D 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYSCRKP.TZDSCClick(Sender : TObject);
begin
(*
00869938 53 push ebx
00869939 8BD8 mov ebx, eax
0086993B 8BCB mov ecx, ebx
0086993D B201 mov dl, $01
* Reference to class TfrmSXCKNewList_SK
|
0086993F A1BCF57E00 mov eax, dword ptr [$007EF5BC]
* Reference to: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
| or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
00869944 E88784C3FF call 004A1DD0
*)
end;
procedure TfrmYSCRKP.VBZPropertiesButtonClick(Sender : TObject);
begin
(*
00869960 55 push ebp
00869961 8BEC mov ebp, esp
00869963 51 push ecx
00869964 B906000000 mov ecx, $00000006
00869969 6A00 push $00
0086996B 6A00 push $00
0086996D 49 dec ecx
0086996E 75F9 jnz 00869969
00869970 51 push ecx
00869971 874DFC xchg [ebp-$04], ecx
00869974 53 push ebx
00869975 56 push esi
00869976 8BF0 mov esi, eax
00869978 33C0 xor eax, eax
0086997A 55 push ebp
* Possible String Reference to: '<27>6<EFBFBD><36><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
0086997B 68B99B8600 push $00869BB9
***** TRY
|
00869980 64FF30 push dword ptr fs:[eax]
00869983 648920 mov fs:[eax], esp
00869986 33C0 xor eax, eax
00869988 55 push ebp
00869989 688F9B8600 push $00869B8F
***** TRY
|
0086998E 64FF30 push dword ptr fs:[eax]
00869991 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYSCRKP.v2Column4PropertiesButtonClick(Sender : TObject);
begin
(*
00869CA4 55 push ebp
00869CA5 8BEC mov ebp, esp
00869CA7 51 push ecx
00869CA8 B907000000 mov ecx, $00000007
00869CAD 6A00 push $00
00869CAF 6A00 push $00
00869CB1 49 dec ecx
00869CB2 75F9 jnz 00869CAD
00869CB4 51 push ecx
00869CB5 874DFC xchg [ebp-$04], ecx
00869CB8 53 push ebx
00869CB9 56 push esi
00869CBA 8BF0 mov esi, eax
00869CBC 33C0 xor eax, eax
00869CBE 55 push ebp
* Possible String Reference to: '閫<><E996AB><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00869CBF 68599F8600 push $00869F59
***** TRY
|
00869CC4 64FF30 push dword ptr fs:[eax]
00869CC7 648920 mov fs:[eax], esp
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
00869CCA 8B866C030000 mov eax, [esi+$036C]
* Possible String Reference to: 'YFType'
|
00869CD0 BA709F8600 mov edx, $00869F70
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00869CD5 E8DACEC5FF call 004C6BB4
00869CDA 8D55F8 lea edx, [ebp-$08]
00869CDD 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00869CDF FF5160 call dword ptr [ecx+$60]
00869CE2 8B45F8 mov eax, [ebp-$08]
00869CE5 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00869CE8 E8FF0BBAFF call 0040A8EC
00869CED 8B45FC mov eax, [ebp-$04]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
00869CF0 BA809F8600 mov edx, $00869F80
* Reference to: System.@LStrCmp;
|
00869CF5 E846BAB9FF call 00405740
00869CFA 751D jnz 00869D19
00869CFC 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00869CFE B98C9F8600 mov ecx, $00869F8C
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
00869D03 BA949F8600 mov edx, $00869F94
*)
end;
procedure TfrmYSCRKP.v2Column5PropertiesChange(Sender : TObject);
begin
(*
0086A088 53 push ebx
0086A089 56 push esi
0086A08A 8BD8 mov ebx, eax
* Reference to control TfrmYSCRKP.ToolBar1 : TToolBar
|
0086A08C 8B83F8020000 mov eax, [ebx+$02F8]
0086A092 8B10 mov edx, [eax]
* Reference to method TToolBar.SetFocus()
|
0086A094 FF92C4000000 call dword ptr [edx+$00C4]
* Possible String Reference to: 'Qty'
|
0086A09A BA08A18600 mov edx, $0086A108
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
0086A09F 8BB36C030000 mov esi, [ebx+$036C]
0086A0A5 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0086A0A7 E808CBC5FF call 004C6BB4
0086A0AC 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
0086A0AE FF524C call dword ptr [edx+$4C]
0086A0B1 D8350CA18600 fdiv dword ptr [$0086A10C]
0086A0B7 83C4F8 add esp, -$08
0086A0BA DD1C24 fstp qword ptr [esp]
0086A0BD 9B wait
* Reference to control TfrmYSCRKP.Label12 : TLabel
|
0086A0BE 8B9304040000 mov edx, [ebx+$0404]
0086A0C4 8BC6 mov eax, esi
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
0086A0C6 E8C5CCF4FF call 007B6D90
* Possible String Reference to: 'Money'
|
0086A0CB BA18A18600 mov edx, $0086A118
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
0086A0D0 8BB36C030000 mov esi, [ebx+$036C]
0086A0D6 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0086A0D8 E8D7CAC5FF call 004C6BB4
0086A0DD 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
0086A0DF FF524C call dword ptr [edx+$4C]
0086A0E2 D8350CA18600 fdiv dword ptr [$0086A10C]
0086A0E8 83C4F8 add esp, -$08
0086A0EB DD1C24 fstp qword ptr [esp]
0086A0EE 9B wait
* Reference to control TfrmYSCRKP.Label13 : TLabel
|
0086A0EF 8B9308040000 mov edx, [ebx+$0408]
0086A0F5 8BC6 mov eax, esi
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
0086A0F7 E894CCF4FF call 007B6D90
0086A0FC 5E pop esi
0086A0FD 5B pop ebx
0086A0FE C3 ret
*)
end;
procedure TfrmYSCRKP.v2ConNoHZPropertiesButtonClick(Sender : TObject);
begin
(*
0086A120 55 push ebp
0086A121 8BEC mov ebp, esp
0086A123 51 push ecx
0086A124 B90E000000 mov ecx, $0000000E
0086A129 6A00 push $00
0086A12B 6A00 push $00
0086A12D 49 dec ecx
0086A12E 75F9 jnz 0086A129
0086A130 51 push ecx
0086A131 874DFC xchg [ebp-$04], ecx
0086A134 53 push ebx
0086A135 56 push esi
0086A136 8BF0 mov esi, eax
0086A138 33C0 xor eax, eax
0086A13A 55 push ebp
0086A13B 688BA48600 push $0086A48B
***** TRY
|
0086A140 64FF30 push dword ptr fs:[eax]
0086A143 648920 mov fs:[eax], esp
0086A146 8BCE mov ecx, esi
0086A148 B201 mov dl, $01
* Reference to class TfrmJYorderConCX
|
0086A14A A164DF7D00 mov eax, dword ptr [$007DDF64]
* Reference to: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
| or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
0086A14F E87C7CC3FF call 004A1DD0
*)
end;
procedure TfrmYSCRKP.Tv2StylesGetContentStyle(Sender : TObject);
begin
(*
0086A5C0 55 push ebp
0086A5C1 8BEC mov ebp, esp
0086A5C3 5D pop ebp
0086A5C4 C20800 ret $0008
*)
end;
procedure TfrmYSCRKP.N1Click(Sender : TObject);
begin
(*
0086A5C8 B201 mov dl, $01
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
0086A5CA 8B806C030000 mov eax, [eax+$036C]
* Reference to : TfrmSelExportField._PROC_007B84A4()
|
0086A5D0 E8CFDEF4FF call 007B84A4
0086A5D5 C3 ret
*)
end;
procedure TfrmYSCRKP.N2Click(Sender : TObject);
begin
(*
0086A5D8 33D2 xor edx, edx
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
0086A5DA 8B806C030000 mov eax, [eax+$036C]
* Reference to : TfrmSelExportField._PROC_007B84A4()
|
0086A5E0 E8BFDEF4FF call 007B84A4
0086A5E5 C3 ret
*)
end;
procedure TfrmYSCRKP.ToolButton4Click(Sender : TObject);
begin
(*
0086A5E8 55 push ebp
0086A5E9 8BEC mov ebp, esp
0086A5EB B904000000 mov ecx, $00000004
0086A5F0 6A00 push $00
0086A5F2 6A00 push $00
0086A5F4 49 dec ecx
0086A5F5 75F9 jnz 0086A5F0
0086A5F7 51 push ecx
0086A5F8 53 push ebx
0086A5F9 56 push esi
0086A5FA 57 push edi
0086A5FB 8945FC mov [ebp-$04], eax
0086A5FE 33C0 xor eax, eax
0086A600 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
0086A601 68FFA78600 push $0086A7FF
***** TRY
|
0086A606 64FF30 push dword ptr fs:[eax]
0086A609 648920 mov fs:[eax], esp
0086A60C 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
0086A60F 8B806C030000 mov eax, [eax+$036C]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
0086A615 E8A6D8C5FF call 004C7EC0
0086A61A 84C0 test al, al
0086A61C 0F85BA010000 jnz 0086A7DC
0086A622 A010A88600 mov al, byte ptr [$0086A810]
0086A627 50 push eax
0086A628 8D45EC lea eax, [ebp-$14]
0086A62B B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
0086A62D E832E7BAFF call 00418D64
0086A632 8D4DEC lea ecx, [ebp-$14]
0086A635 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
0086A638 8B806C030000 mov eax, [eax+$036C]
* Possible String Reference to: 'ssel'
|
0086A63E BA1CA88600 mov edx, $0086A81C
0086A643 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
0086A645 FF9344020000 call dword ptr [ebx+$0244]
0086A64B 84C0 test al, al
0086A64D 751D jnz 0086A66C
0086A64F 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
0086A651 B924A88600 mov ecx, $0086A824
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
0086A656 BA2CA88600 mov edx, $0086A82C
*)
end;
procedure TfrmYSCRKP.ToolButton5Click(Sender : TObject);
begin
(*
0086A8BC 55 push ebp
0086A8BD 8BEC mov ebp, esp
0086A8BF B904000000 mov ecx, $00000004
0086A8C4 6A00 push $00
0086A8C6 6A00 push $00
0086A8C8 49 dec ecx
0086A8C9 75F9 jnz 0086A8C4
0086A8CB 51 push ecx
0086A8CC 53 push ebx
0086A8CD 56 push esi
0086A8CE 57 push edi
0086A8CF 8945FC mov [ebp-$04], eax
0086A8D2 33C0 xor eax, eax
0086A8D4 55 push ebp
0086A8D5 68D3AA8600 push $0086AAD3
***** TRY
|
0086A8DA 64FF30 push dword ptr fs:[eax]
0086A8DD 648920 mov fs:[eax], esp
0086A8E0 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
0086A8E3 8B806C030000 mov eax, [eax+$036C]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
0086A8E9 E8D2D5C5FF call 004C7EC0
0086A8EE 84C0 test al, al
0086A8F0 0F85BA010000 jnz 0086AAB0
0086A8F6 A0E4AA8600 mov al, byte ptr [$0086AAE4]
0086A8FB 50 push eax
0086A8FC 8D45EC lea eax, [ebp-$14]
0086A8FF B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
0086A901 E85EE4BAFF call 00418D64
0086A906 8D4DEC lea ecx, [ebp-$14]
0086A909 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
0086A90C 8B806C030000 mov eax, [eax+$036C]
* Possible String Reference to: 'ssel'
|
0086A912 BAF0AA8600 mov edx, $0086AAF0
0086A917 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
0086A919 FF9344020000 call dword ptr [ebx+$0244]
0086A91F 84C0 test al, al
0086A921 751D jnz 0086A940
0086A923 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
0086A925 B9F8AA8600 mov ecx, $0086AAF8
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
0086A92A BA00AB8600 mov edx, $0086AB00
*)
end;
procedure TfrmYSCRKP.v2KPTypePropertiesEditValueChanged(Sender : TObject);
begin
(*
0086AB88 55 push ebp
0086AB89 8BEC mov ebp, esp
0086AB8B B906000000 mov ecx, $00000006
0086AB90 6A00 push $00
0086AB92 6A00 push $00
0086AB94 49 dec ecx
0086AB95 75F9 jnz 0086AB90
0086AB97 51 push ecx
0086AB98 53 push ebx
0086AB99 56 push esi
0086AB9A 8BDA mov ebx, edx
0086AB9C 8BF0 mov esi, eax
0086AB9E 33C0 xor eax, eax
0086ABA0 55 push ebp
* Possible String Reference to: '<27>ҝ<EFBFBD><D29D><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
0086ABA1 681DAD8600 push $0086AD1D
***** TRY
|
0086ABA6 64FF30 push dword ptr fs:[eax]
0086ABA9 648920 mov fs:[eax], esp
0086ABAC 8D55FC lea edx, [ebp-$04]
0086ABAF 8BC3 mov eax, ebx
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
0086ABB1 E8064BD2FF call 0058F6BC
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
0086ABB6 8B9E6C030000 mov ebx, [esi+$036C]
0086ABBC 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
0086ABBE E87DD8C5FF call 004C8440
0086ABC3 8D55E8 lea edx, [ebp-$18]
0086ABC6 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0086ABC9 E81EFDB9FF call 0040A8EC
0086ABCE 8B55E8 mov edx, [ebp-$18]
0086ABD1 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
0086ABD4 E8EFE1BAFF call 00418DC8
0086ABD9 8D45EC lea eax, [ebp-$14]
0086ABDC 50 push eax
* Possible String Reference to: 'KPType'
|
0086ABDD BA34AD8600 mov edx, $0086AD34
0086ABE2 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0086ABE4 E8CBBFC5FF call 004C6BB4
0086ABE9 5A pop edx
0086ABEA 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
0086ABEC FF91B4000000 call dword ptr [ecx+$00B4]
* Reference to control TfrmYSCRKP.ADOQueryCmd : TADOQuery
|
0086ABF2 8B9E0C030000 mov ebx, [esi+$030C]
0086ABF8 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
0086ABFA E8D5ACC5FF call 004C58D4
0086ABFF 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0086AC01 E8A633C7FF call 004DDFAC
0086AC06 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
0086AC08 FF5244 call dword ptr [edx+$44]
0086AC0B 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0086AC0D E89A33C7FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
0086AC12 BA44AD8600 mov edx, $0086AD44
0086AC17 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0086AC19 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set KPType=''
|
0086AC1C 6860AD8600 push $0086AD60
0086AC21 8D55E0 lea edx, [ebp-$20]
0086AC24 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0086AC27 E8C0FCB9FF call 0040A8EC
0086AC2C FF75E0 push dword ptr [ebp-$20]
0086AC2F 6878AD8600 push $0086AD78
0086AC34 8D45E4 lea eax, [ebp-$1C]
0086AC37 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
0086AC3C E873AAB9FF call 004056B4
0086AC41 8B45E4 mov eax, [ebp-$1C]
0086AC44 50 push eax
0086AC45 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0086AC47 E86033C7FF call 004DDFAC
0086AC4C 5A pop edx
0086AC4D 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0086AC4F FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
0086AC52 6884AD8600 push $0086AD84
0086AC57 8D55D8 lea edx, [ebp-$28]
*)
end;
procedure TfrmYSCRKP._PROC_0086383C(Sender : TObject);
begin
(*
0086383C 55 push ebp
0086383D 8BEC mov ebp, esp
0086383F 33C9 xor ecx, ecx
00863841 51 push ecx
00863842 51 push ecx
00863843 51 push ecx
00863844 51 push ecx
00863845 51 push ecx
00863846 53 push ebx
00863847 8945FC mov [ebp-$04], eax
0086384A 33C0 xor eax, eax
0086384C 55 push ebp
0086384D 682C3B8600 push $00863B2C
***** TRY
|
00863852 64FF30 push dword ptr fs:[eax]
00863855 648920 mov fs:[eax], esp
00863858 33C0 xor eax, eax
0086385A 55 push ebp
0086385B 680A3B8600 push $00863B0A
***** TRY
|
00863860 64FF30 push dword ptr fs:[eax]
00863863 648920 mov fs:[eax], esp
00863866 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.ADOQueryMain : TADOQuery
|
00863869 8B8020030000 mov eax, [eax+$0320]
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
0086386F E8E03CC6FF call 004C7554
00863874 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.ADOQueryMain : TADOQuery
|
00863877 8B9820030000 mov ebx, [eax+$0320]
0086387D 33D2 xor edx, edx
0086387F 8BC3 mov eax, ebx
00863881 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_0190
|
00863883 FF9190010000 call dword ptr [ecx+$0190]
00863889 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
0086388B E84420C6FF call 004C58D4
00863890 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00863892 E815A7C7FF call 004DDFAC
00863897 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00863899 FF5244 call dword ptr [edx+$44]
0086389C 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0086389E E809A7C7FF call 004DDFAC
* Possible String Reference to: 'select isnull(isnull(E.PrtCodeName,
| A.P_CodeName),D.MPrtCodeName) MP_Co
| deName,'
|
008638A3 BA403B8600 mov edx, $00863B40
008638A8 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008638AA FF5138 call dword ptr [ecx+$38]
008638AD 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008638AF E8F8A6C7FF call 004DDFAC
* Possible String Reference to: 'SCOrderNO=(select Top 1 JM.ConNo fr
| om Cloth_Main JM where JM.MainId=A.
| Mainid),'
|
008638B4 BA983B8600 mov edx, $00863B98
008638B9 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008638BB FF5138 call dword ptr [ecx+$38]
008638BE 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008638C0 E8E7A6C7FF call 004DDFAC
* Possible String Reference to: 'ConNoHZ=isnull(F.ConNo,A.ConNO),isn
| ull(isnull(E.prtspec,A.P_Spec),D.MP
| RTSpec) MP_Spec,'
|
008638C5 BAF03B8600 mov edx, $00863BF0
008638CA 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008638CC FF5138 call dword ptr [ecx+$38]
008638CF 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008638D1 E8D6A6C7FF call 004DDFAC
* Possible String Reference to: 'isnull(A.OrderNo,D.OrderNo) MOrderN
| o,E.PRTColor,E.SOrdDefStr4,'
|
008638D6 BA503C8600 mov edx, $00863C50
008638DB 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008638DD FF5138 call dword ptr [ecx+$38]
008638E0 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008638E2 E8C5A6C7FF call 004DDFAC
* Possible String Reference to: 'HTType=(isnull((select Top 1 M.MPRT
| Type from JYOrder_ConORD Q '
|
008638E7 BA983C8600 mov edx, $00863C98
008638EC 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008638EE FF5138 call dword ptr [ecx+$38]
008638F1 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008638F3 E8B4A6C7FF call 004DDFAC
* Possible String Reference to: ' inner join JYOrderCon_Main M on Q.
| ConMainid=M.Mainid where Q.Mainid=A
| .Mainid),F.MPRTType))'
|
008638F8 BAE03C8600 mov edx, $00863CE0
008638FD 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008638FF FF5138 call dword ptr [ecx+$38]
00863902 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00863904 E8A3A6C7FF call 004DDFAC
* Possible String Reference to: ',isnull(A.Price,E.PrtPrice) Price'
|
00863909 BA443D8600 mov edx, $00863D44
0086390E 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00863910 FF5138 call dword ptr [ecx+$38]
00863913 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00863915 E892A6C7FF call 004DDFAC
* Possible String Reference to: ',A.*'
|
0086391A BA703D8600 mov edx, $00863D70
0086391F 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00863921 FF5138 call dword ptr [ecx+$38]
00863924 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00863926 E881A6C7FF call 004DDFAC
* Possible String Reference to: ' from YF_Money_CR A'
|
0086392B BA803D8600 mov edx, $00863D80
00863930 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00863932 FF5138 call dword ptr [ecx+$38]
00863935 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00863937 E870A6C7FF call 004DDFAC
* Possible String Reference to: ' left join JYOrder_Main D on D.Main
| id=A.Mainid'
|
0086393C BA9C3D8600 mov edx, $00863D9C
00863941 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00863943 FF5138 call dword ptr [ecx+$38]
00863946 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00863948 E85FA6C7FF call 004DDFAC
* Possible String Reference to: ' left join JYOrderCon_Sub E on E.Su
| bid=A.Conid'
|
0086394D BAD43D8600 mov edx, $00863DD4
00863952 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00863954 FF5138 call dword ptr [ecx+$38]
00863957 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00863959 E84EA6C7FF call 004DDFAC
* Possible String Reference to: ' Left join JYOrderCon_Main F on F.M
| ainid=E.Mainid'
|
0086395E BA0C3E8600 mov edx, $00863E0C
00863963 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00863965 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where A.CRTime>=''
|
00863968 68483E8600 push $00863E48
0086396D 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.begdate : TDateTimePicker
|
00863970 8B805C030000 mov eax, [eax+$035C]
00863976 FFB014020000 push dword ptr [eax+$0214]
0086397C FFB010020000 push dword ptr [eax+$0210]
00863982 8D55F4 lea edx, [ebp-$0C]
* Possible String Reference to: 'yyyy-MM-dd'
|
00863985 B8643E8600 mov eax, $00863E64
|
0086398A E82DB2BAFF call 0040EBBC
0086398F FF75F4 push dword ptr [ebp-$0C]
* Possible String Reference to: '' '
|
00863992 68783E8600 push $00863E78
00863997 8D45F8 lea eax, [ebp-$08]
0086399A BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
0086399F E8101DBAFF call 004056B4
008639A4 8B45F8 mov eax, [ebp-$08]
008639A7 50 push eax
008639A8 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008639AA E8FDA5C7FF call 004DDFAC
008639AF 5A pop edx
008639B0 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008639B2 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' and CRTime<''
|
008639B5 68843E8600 push $00863E84
008639BA 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.Enddate : TDateTimePicker
|
008639BD 8B8060030000 mov eax, [eax+$0360]
008639C3 DD8010020000 fld qword ptr [eax+$0210]
008639C9 D805943E8600 fadd dword ptr [$00863E94]
008639CF 83C4F8 add esp, -$08
008639D2 DD1C24 fstp qword ptr [esp]
008639D5 9B wait
008639D6 8D55EC lea edx, [ebp-$14]
* Possible String Reference to: 'yyyy-MM-dd'
|
008639D9 B8643E8600 mov eax, $00863E64
|
008639DE E8D9B1BAFF call 0040EBBC
008639E3 FF75EC push dword ptr [ebp-$14]
* Possible String Reference to: '' '
|
008639E6 68783E8600 push $00863E78
008639EB 8D45F0 lea eax, [ebp-$10]
008639EE BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008639F3 E8BC1CBAFF call 004056B4
008639F8 8B45F0 mov eax, [ebp-$10]
008639FB 50 push eax
008639FC 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008639FE E8A9A5C7FF call 004DDFAC
00863A03 5A pop edx
00863A04 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00863A06 FF5138 call dword ptr [ecx+$38]
00863A09 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00863A0B E89CA5C7FF call 004DDFAC
* Possible String Reference to: ' and A.CRType='Ӧ<EFBFBD>տ<EFBFBD><EFBFBD>Ǽ<EFBFBD>' '
|
00863A10 BAA03E8600 mov edx, $00863EA0
00863A15 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00863A17 FF5138 call dword ptr [ecx+$38]
00863A1A 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00863A1C E88BA5C7FF call 004DDFAC
* Possible String Reference to: ' and (A.YFName='<EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD><EFBFBD>۽<EFBFBD><EFBFBD><EFBFBD>' or Is
| null(A.FeeType,'')='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')'
|
00863A21 BAC43E8600 mov edx, $00863EC4
00863A26 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00863A28 FF5138 call dword ptr [ecx+$38]
00863A2B 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00863A2D E87AA5C7FF call 004DDFAC
* Possible String Reference to: ' and A.KPType='<EFBFBD>迪''
|
00863A32 BA103F8600 mov edx, $00863F10
00863A37 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00863A39 FF5138 call dword ptr [ecx+$38]
00863A3C 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00863A3E E869A5C7FF call 004DDFAC
* Possible String Reference to: ' and isnull(A.status,'0')='2''
|
00863A43 BA303F8600 mov edx, $00863F30
00863A48 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00863A4A FF5138 call dword ptr [ecx+$38]
00863A4D 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.cxTabControl1 : TcxTabControl
|
00863A50 8B80D0030000 mov eax, [eax+$03D0]
* Reference to control ADOTemp : N.A.
|
00863A56 83B83C03000000 cmp dword ptr [eax+$033C], +$00
00863A5D 7511 jnz 00863A70
00863A5F 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00863A61 E846A5C7FF call 004DDFAC
* Possible String Reference to: ' and isnull(KPstatus,'')='' '
|
00863A66 BA583F8600 mov edx, $00863F58
00863A6B 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00863A6D FF5138 call dword ptr [ecx+$38]
00863A70 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.cxTabControl1 : TcxTabControl
|
00863A73 8B80D0030000 mov eax, [eax+$03D0]
* Reference to control ADOTemp : N.A.
|
00863A79 83B83C03000001 cmp dword ptr [eax+$033C], +$01
00863A80 7511 jnz 00863A93
00863A82 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00863A84 E823A5C7FF call 004DDFAC
* Possible String Reference to: ' and isnull(KPstatus,'')<>'' '
|
00863A89 BA803F8600 mov edx, $00863F80
00863A8E 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00863A90 FF5138 call dword ptr [ecx+$38]
00863A93 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
00863A95 E82E1EC6FF call 004C58C8
00863A9A 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
00863A9D 8B906C030000 mov edx, [eax+$036C]
00863AA3 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.ADOQueryMain : TADOQuery
|
00863AA6 8B8020030000 mov eax, [eax+$0320]
|
00863AAC E8DF33F5FF call 007B6E90
00863AB1 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.CDS_HZ : TClientDataSet
|
00863AB4 8B906C030000 mov edx, [eax+$036C]
00863ABA 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.ADOQueryMain : TADOQuery
|
00863ABD 8B8020030000 mov eax, [eax+$0320]
|
00863AC3 E85035F5FF call 007B7018
00863AC8 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.Label12 : TLabel
|
00863ACB 8B8004040000 mov eax, [eax+$0404]
00863AD1 BAA83F8600 mov edx, $00863FA8
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00863AD6 E8454BC2FF call 00488620
00863ADB 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.Label13 : TLabel
|
00863ADE 8B8008040000 mov eax, [eax+$0408]
00863AE4 BAA83F8600 mov edx, $00863FA8
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00863AE9 E8324BC2FF call 00488620
00863AEE 33C0 xor eax, eax
00863AF0 5A pop edx
00863AF1 59 pop ecx
00863AF2 59 pop ecx
00863AF3 648910 mov fs:[eax], edx
****** FINALLY
|
00863AF6 68113B8600 push $00863B11
00863AFB 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.ADOQueryMain : TADOQuery
|
00863AFE 8B8020030000 mov eax, [eax+$0320]
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
00863B04 E86B3AC6FF call 004C7574
00863B09 C3 ret
* Reference to: System.@HandleFinally;
|
00863B0A E9E50FBAFF jmp 00404AF4
00863B0F EBEA jmp 00863AFB
****** END
|
00863B11 33C0 xor eax, eax
00863B13 5A pop edx
00863B14 59 pop ecx
00863B15 59 pop ecx
00863B16 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[<5B><>]<5D><><EFBFBD><EFBFBD><EFBFBD>M'
|
00863B19 68333B8600 push $00863B33
00863B1E 8D45EC lea eax, [ebp-$14]
00863B21 BA04000000 mov edx, $00000004
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00863B26 E81D18BAFF call 00405348
00863B2B C3 ret
* Reference to: System.@HandleFinally;
|
00863B2C E9C30FBAFF jmp 00404AF4
00863B31 EBEB jmp 00863B1E
****** END
|
00863B33 5B pop ebx
00863B34 8BE5 mov esp, ebp
00863B36 5D pop ebp
00863B37 C3 ret
*)
end;
procedure TfrmYSCRKP._PROC_008645B5(Sender : TObject);
begin
(*
008645B5 8BEC mov ebp, esp
008645B7 B93F000000 mov ecx, $0000003F
008645BC 6A00 push $00
008645BE 6A00 push $00
008645C0 49 dec ecx
008645C1 75F9 jnz 008645BC
008645C3 53 push ebx
008645C4 56 push esi
008645C5 57 push edi
008645C6 8945FC mov [ebp-$04], eax
008645C9 33C0 xor eax, eax
008645CB 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>R<EFBFBD><52><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
008645CC 684C508600 push $0086504C
***** TRY
|
008645D1 64FF30 push dword ptr fs:[eax]
008645D4 648920 mov fs:[eax], esp
008645D7 33C0 xor eax, eax
008645D9 55 push ebp
008645DA 68644E8600 push $00864E64
***** TRY
|
008645DF 64FF30 push dword ptr fs:[eax]
008645E2 648920 mov fs:[eax], esp
008645E5 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.ADOQueryCmd : TADOQuery
|
008645E8 8B800C030000 mov eax, [eax+$030C]
* Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection;
|
008645EE E83978C7FF call 004DBE2C
* Reference to: ADODB.TADOConnection.BeginTrans(TADOConnection):Integer;
|
008645F3 E89CDCC6FF call 004D2294
* Possible String Reference to: 'YF_Money_CR'
|
008645F8 6868508600 push $00865068
008645FD 6A04 push $04
008645FF 6A01 push $01
00864601 8D55F8 lea edx, [ebp-$08]
00864604 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.ADOQueryCmd : TADOQuery
|
00864607 8B800C030000 mov eax, [eax+$030C]
* Possible String Reference to: 'YS'
|
0086460D B97C508600 mov ecx, $0086507C
* Reference to : TfrmSelExportField._PROC_007B7708()
|
00864612 E8F130F5FF call 007B7708
00864617 84C0 test al, al
00864619 753A jnz 00864655
0086461B 33DB xor ebx, ebx
0086461D 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRKP.ADOQueryCmd : TADOQuery
|
00864620 8B800C030000 mov eax, [eax+$030C]
* Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection;
|
00864626 E80178C7FF call 004DBE2C
* Reference to: ADODB.TADOConnection.RollbackTrans(TADOConnection);
|
0086462B E8B0DCC6FF call 004D22E0
00864630 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00864632 B980508600 mov ecx, $00865080
* Possible String Reference to: 'ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>'
|
00864637 BA88508600 mov edx, $00865088
*)
end;
procedure TfrmYSCRKP._PROC_00865109(Sender : TObject);
begin
(*
00865109 7064 jo 0086516F
0086510B 61 popa
0086510C 7465 jz 00865173
0086510E 205946 and [ecx+$46], bl
00865111 5F pop edi
00865112 4D dec ebp
00865113 6F outsd
00865114 6E outsb
00865115 65795F jns 00865177
00865118 43 inc ebx
00865119 52 push edx
0086511A 49 dec ecx
0086511B 44 inc esp
0086511C 207365 and [ebx+$65], dh
0086511F 7420 jz 00865141
00865121 43 inc ebx
00865122 52 push edx
00865123 49 dec ecx
00865124 44 inc esp
00865125 3D43524944 cmp eax, $44495243
0086512A 2B31 sub esi, dword ptr [ecx]
0086512C 0000 add [eax], al
0086512E 0000 add [eax], al
00865130 FFFF DB $FF, $FF //
00865132 FFFF DB $FF, $FF //
00865134 1C00 sbb al, $00
00865136 0000 add [eax], al
00865138 7365 jnb 0086519F
0086513A 6C insb
0086513B 656374202A arpl gs:[eax+$2A], si
00865140 206672 and [esi+$72], ah
00865143 6F outsd
00865144 6D insd
00865145 205946 and [ecx+$46], bl
00865148 5F pop edi
00865149 4D dec ebp
0086514A 6F outsd
0086514B 6E outsb
0086514C 65795F jns 008651AE
0086514F 43 inc ebx
00865150 52 push edx
00865151 49 dec ecx
00865152 44 inc esp
00865153 2000 and [eax], al
00865155 0000 add [eax], al
00865157 00FF add bh, bh
00865159 FFFF DB $FF, $FF //
0086515B FF2400 jmp dword ptr [eax+eax]
0086515E 0000 add [eax], al
00865160 7365 jnb 008651C7
00865162 6C insb
00865163 656374202A arpl gs:[eax+$2A], si
00865168 206672 and [esi+$72], ah
0086516B 6F outsd
0086516C 6D insd
0086516D 205946 and [ecx+$46], bl
00865170 5F pop edi
00865171 4D dec ebp
00865172 6F outsd
00865173 6E outsb
00865174 65795F jns 008651D6
00865177 4B dec ebx
00865178 43 inc ebx
00865179 207768 and [edi+$68], dh
0086517C 657265 jb 008651E4
0086517F 2031 and [ecx], dh
00865181 3C3E cmp al, $3E
00865183 3100 xor [eax], eax
00865185 0000 add [eax], al
00865187 00FF add bh, bh
00865189 FFFF DB $FF, $FF //
0086518B FF09 dec dword ptr [ecx]
0086518D 0000 add [eax], al
0086518F 004661 add [esi+$61], al
00865192 63746F72 arpl [edi+ebp*2+$72], si
00865196 794E jns 008651E6
00865198 6F outsd
00865199 0000 add [eax], al
0086519B 00FF add bh, bh
0086519D FFFF DB $FF, $FF //
0086519F FF07 inc dword ptr [edi]
008651A1 0000 add [eax], al
008651A3 005A64 add [edx+$64], bl
008651A6 7953 jns 008651FB
008651A8 7472 jz 0086521C
008651AA 3100 xor [eax], eax
008651AC FFFF DB $FF, $FF //
008651AE FFFF DB $FF, $FF //
008651B0 06 push es
008651B1 0000 add [eax], al
008651B3 00D3 add bl, dl
008651B5 A6 cmpsb
008651B6 CA ret
008651B7 D5 aad
008651B8 CA ret
008651B9 D5 aad
008651BA 0000 add [eax], al
008651BC FFFF DB $FF, $FF //
008651BE FFFF DB $FF, $FF //
008651C0 2300 and eax, [eax]
008651C2 0000 add [eax], al
008651C4 7365 jnb 0086522B
008651C6 6C insb
008651C7 656374202A arpl gs:[eax+$2A], si
008651CC 206672 and [esi+$72], ah
008651CF 6F outsd
008651D0 6D insd
008651D1 205946 and [ecx+$46], bl
008651D4 5F pop edi
008651D5 4D dec ebp
008651D6 6F outsd
008651D7 6E outsb
008651D8 65795F jns 0086523A
008651DB 43 inc ebx
008651DC 52 push edx
008651DD 207768 and [edi+$68], dh
008651E0 657265 jb 00865248
008651E3 2031 and [ecx], dh
008651E5 3D3200FFFF cmp eax, $FFFF0032
008651EA FFFF DB $FF, $FF //
008651EC 0400 add al, +$00
008651EE 0000 add [eax], al
008651F0 59 pop ecx
008651F1 46 inc esi
008651F2 49 dec ecx
008651F3 44 inc esp
008651F4 0000 add [eax], al
008651F6 0000 add [eax], al
008651F8 FFFF DB $FF, $FF //
008651FA FFFF DB $FF, $FF //
008651FC 06 push es
008651FD 0000 add [eax], al
008651FF 004669 add [esi+$69], al
00865202 6C insb
00865203 6C insb
00865204 657200 jb 00865207
00865207 00FF add bh, bh
00865209 FFFF DB $FF, $FF //
0086520B FF06 inc dword ptr [esi]
0086520D 0000 add [eax], al
0086520F 004352 add [ebx+$52], al
00865212 54 push esp
00865213 7970 jns 00865285
00865215 650000 add gs:[eax], al
00865218 FFFF DB $FF, $FF //
0086521A FFFF DB $FF, $FF //
0086521C 0A00 or al, byte ptr [eax]
0086521E 0000 add [eax], al
00865220 D3A6CAD5BFEE shl dword ptr [esi+$EEBFD5CA], cl
00865226 B5C7 mov ch, $C7
00865228 BCC70000FF mov esp, $FF0000C7
0086522D FFFF DB $FF, $FF //
0086522F FF06 inc dword ptr [esi]
00865231 0000 add [eax], al
00865233 004352 add [ebx+$52], al
00865236 46 inc esi
00865237 6C insb
00865238 61 popa
00865239 670000 add [bx+si], al
0086523C FFFF DB $FF, $FF //
0086523E FFFF DB $FF, $FF //
00865240 07 pop es
00865241 0000 add [eax], al
00865243 005174 add [ecx+$74], dl
00865246 7946 jns 0086528E
00865248 6C insb
00865249 61 popa
0086524A 6700FF add bh, bh
0086524D FFFF DB $FF, $FF //
0086524F FF0500000043 inc dword ptr [$43000000]
00865255 6F outsd
00865256 6E outsb
00865257 49 dec ecx
00865258 44 inc esp
00865259 0000 add [eax], al
0086525B 00FF add bh, bh
0086525D FFFF DB $FF, $FF //
0086525F FF07 inc dword ptr [edi]
00865261 0000 add [eax], al
00865263 00436F add [ebx+$6F], al
00865266 6E outsb
00865267 4E dec esi
00865268 6F outsd
00865269 48 dec eax
0086526A 5A pop edx
0086526B 00FF add bh, bh
0086526D FFFF DB $FF, $FF //
0086526F FF0500000043 inc dword ptr [$43000000]
00865275 6F outsd
00865276 6E outsb
00865277 4E dec esi
00865278 6F outsd
00865279 0000 add [eax], al
0086527B 00FF add bh, bh
0086527D FFFF DB $FF, $FF //
0086527F FF0500000050 inc dword ptr [$50000000]
00865285 7269 jb 008652F0
00865287 636500 arpl [ebp+$00], sp
0086528A 0000 add [eax], al
0086528C FFFF DB $FF, $FF //
0086528E FFFF DB $FF, $FF //
00865290 0B00 or eax, [eax]
00865292 0000 add [eax], al
00865294 4D dec ebp
00865295 50 push eax
00865296 5F pop edi
00865297 43 inc ebx
00865298 6F outsd
00865299 64654E dec esi
0086529C 61 popa
0086529D 6D insd
0086529E 6500FF add bh, bh
008652A1 FFFF DB $FF, $FF //
008652A3 FF0A dec dword ptr [edx]
008652A5 0000 add [eax], al
008652A7 00505F add [eax+$5F], dl
008652AA 43 inc ebx
008652AB 6F outsd
008652AC 64654E dec esi
008652AF 61 popa
008652B0 6D insd
008652B1 650000 add gs:[eax], al
008652B4 FFFF DB $FF, $FF //
008652B6 FFFF DB $FF, $FF //
008652B8 07 pop es
008652B9 0000 add [eax], al
008652BB 004D50 add [ebp+$50], cl
008652BE 5F pop edi
008652BF 53 push ebx
008652C0 50 push eax
008652C1 656300 arpl gs:[eax], ax
008652C4 FFFF DB $FF, $FF //
008652C6 FFFF DB $FF, $FF //
008652C8 06 push es
008652C9 0000 add [eax], al
008652CB 00505F add [eax+$5F], dl
008652CE 53 push ebx
008652CF 50 push eax
008652D0 656300 arpl gs:[eax], ax
008652D3 00FF add bh, bh
008652D5 FFFF DB $FF, $FF //
008652D7 FF06 inc dword ptr [esi]
008652D9 0000 add [eax], al
008652DB 005946 add [ecx+$46], bl
008652DE 4E dec esi
008652DF 61 popa
008652E0 6D insd
008652E1 650000 add gs:[eax], al
008652E4 FFFF DB $FF, $FF //
008652E6 FFFF DB $FF, $FF //
008652E8 07 pop es
008652E9 0000 add [eax], al
008652EB 004665 add [esi+$65], al
008652EE 6554 push esp
008652F0 7970 jns 00865362
008652F2 6500FF add bh, bh
008652F5 FFFF DB $FF, $FF //
008652F7 FF06 inc dword ptr [esi]
008652F9 0000 add [eax], al
008652FB 004352 add [ebx+$52], al
008652FE 54 push esp
008652FF 696D650000FFFF imul ebp, [ebp+$65], $FFFF0000
00865306 FFFF DB $FF, $FF //
00865308 0A00 or al, byte ptr [eax]
0086530A 0000 add [eax], al
0086530C 59 pop ecx
0086530D 46 inc esi
0086530E 44 inc esp
0086530F 656646 inc si
00865312 6C insb
00865313 61 popa
00865314 673100 xor [bx+si], eax
00865317 00FF add bh, bh
00865319 FFFF DB $FF, $FF //
0086531B FF06 inc dword ptr [esi]
0086531D 0000 add [eax], al
0086531F 007374 add [ebx+$74], dh
00865322 61 popa
00865323 7475 jz 0086539A
00865325 7300 jnb 00865327
00865327 00FF add bh, bh
00865329 FFFF DB $FF, $FF //
0086532B FF0400 inc dword ptr [eax+eax]
0086532E 0000 add [eax], al
00865330 59 pop ecx
00865331 46 inc esi
00865332 49 dec ecx
00865333 640000 add fs:[eax], al
00865336 0000 add [eax], al
00865338 D4 aam
00865339 F6D0 not al
0086533B D0CA ror dl, 1
0086533D A7 cmpsd
0086533E B0DC mov al, $DC
00865340 2100 and [eax], eax
00865342 0000 add [eax], al
00865344 55 push ebp
00865345 8BEC mov ebp, esp
00865347 B908000000 mov ecx, $00000008
0086534C 6A00 push $00
0086534E 6A00 push $00
00865350 49 dec ecx
00865351 75F9 jnz 0086534C
00865353 51 push ecx
00865354 53 push ebx
00865355 56 push esi
00865356 8BDA mov ebx, edx
00865358 8BF0 mov esi, eax
0086535A 33C0 xor eax, eax
0086535C 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
0086535D 6852558600 push $00865552
***** TRY
|
00865362 64FF30 push dword ptr fs:[eax]
00865365 648920 mov fs:[eax], esp
00865368 8D55FC lea edx, [ebp-$04]
0086536B 8BC3 mov eax, ebx
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
0086536D E84AA3D2FF call 0058F6BC
* Reference to control ADOTemp : N.A.
|
00865372 8B863C030000 mov eax, [esi+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
00865378 E8CF6FDFFF call 0065C34C
* 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;
|
0086537D E8E2C7DEFF call 00651B64
* Reference to field N.A..OFFS_0050
|
00865382 8B4050 mov eax, [eax+$50]
00865385 8D55F4 lea edx, [ebp-$0C]
00865388 8B08 mov ecx, [eax]
0086538A FF5110 call dword ptr [ecx+$10]
0086538D 8B45F4 mov eax, [ebp-$0C]
00865390 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00865393 E85455BAFF call 0040A8EC
* Reference to control Label20 : N.A.
|
00865398 8B9E6C030000 mov ebx, [esi+$036C]
0086539E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008653A0 E89B30C6FF call 004C8440
008653A5 8D55E0 lea edx, [ebp-$20]
008653A8 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008653AB E83C55BAFF call 0040A8EC
008653B0 8B55E0 mov edx, [ebp-$20]
008653B3 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008653B6 E80D3ABBFF call 00418DC8
008653BB 8D45E4 lea eax, [ebp-$1C]
008653BE 50 push eax
008653BF 8B55F8 mov edx, [ebp-$08]
008653C2 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008653C4 E8EB17C6FF call 004C6BB4
008653C9 5A pop edx
008653CA 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
008653CC FF91B4000000 call dword ptr [ecx+$00B4]
008653D2 8BC3 mov eax, ebx
008653D4 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_024C
|
008653D6 FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
008653DC 8B9E0C030000 mov ebx, [esi+$030C]
008653E2 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
008653E4 E8EB04C6FF call 004C58D4
008653E9 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;
|
008653EB E8BC8BC7FF call 004DDFAC
008653F0 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
008653F2 FF5244 call dword ptr [edx+$44]
008653F5 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;
|
008653F7 E8B08BC7FF call 004DDFAC
* Possible String Reference to: 'UPdate YCL_SG_HZ '
|
008653FC BA68558600 mov edx, $00865568
00865401 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00865403 FF5138 call dword ptr [ecx+$38]
00865406 8D55DC lea edx, [ebp-$24]
00865409 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0086540C E8DB54BAFF call 0040A8EC
00865411 837DDC00 cmp dword ptr [ebp-$24], +$00
00865415 7440 jz 00865457
* Possible String Reference to: ' Set '
|
00865417 6884558600 push $00865584
0086541C FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
0086541F 6894558600 push $00865594
00865424 8D55D4 lea edx, [ebp-$2C]
00865427 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0086542A E8BD54BAFF call 0040A8EC
0086542F FF75D4 push dword ptr [ebp-$2C]
00865432 68A0558600 push $008655A0
00865437 8D45D8 lea eax, [ebp-$28]
0086543A BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
0086543F E87002BAFF call 004056B4
00865444 8B45D8 mov eax, [ebp-$28]
00865447 50 push eax
00865448 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;
|
0086544A E85D8BC7FF call 004DDFAC
0086544F 5A pop edx
00865450 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00865452 FF5138 call dword ptr [ecx+$38]
00865455 EB2B jmp 00865482
00865457 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;
|
00865459 E84E8BC7FF call 004DDFAC
0086545E 50 push eax
* Possible String Reference to: ' Set '
|
0086545F 6884558600 push $00865584
00865464 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=NULL'
|
00865467 68AC558600 push $008655AC
0086546C 8D45D0 lea eax, [ebp-$30]
0086546F BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00865474 E83B02BAFF call 004056B4
00865479 8B55D0 mov edx, [ebp-$30]
0086547C 58 pop eax
0086547D 8B08 mov ecx, [eax]
0086547F FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
00865482 68BC558600 push $008655BC
00865487 8D55C8 lea edx, [ebp-$38]
*)
end;
procedure TfrmYSCRKP._PROC_00865569(Sender : TObject);
begin
(*
00865569 50 push eax
0086556A 6461 popa
0086556C 7465 jz 008655D3
0086556E 205943 and [ecx+$43], bl
00865571 4C dec esp
00865572 5F pop edi
00865573 53 push ebx
00865574 47 inc edi
00865575 5F pop edi
00865576 48 dec eax
00865577 5A pop edx
00865578 2000 and [eax], al
0086557A 0000 add [eax], al
0086557C FFFF DB $FF, $FF //
0086557E FFFF DB $FF, $FF //
00865580 0500000020 add eax, +$20000000
00865585 53 push ebx
00865586 657420 jz 008655A9
00865589 0000 add [eax], al
0086558B 00FF add bh, bh
0086558D FFFF DB $FF, $FF //
0086558F FF02 inc dword ptr [edx]
00865591 0000 add [eax], al
00865593 003D270000FF add [$FF000027], bh
00865599 FFFF DB $FF, $FF //
0086559B FF01 inc dword ptr [ecx]
0086559D 0000 add [eax], al
0086559F 0027 add [edi], ah
008655A1 0000 add [eax], al
008655A3 00FF add bh, bh
008655A5 FFFF DB $FF, $FF //
008655A7 FF050000003D inc dword ptr [$3D000000]
008655AD 4E dec esi
008655AE 55 push ebp
008655AF 4C dec esp
008655B0 4C dec esp
008655B1 0000 add [eax], al
008655B3 00FF add bh, bh
008655B5 FFFF DB $FF, $FF //
008655B7 FF09 dec dword ptr [ecx]
008655B9 0000 add [eax], al
008655BB 002C4564697465 add [$65746964+eax*2], ch
008655C2 723D jb 00865601
008655C4 27 daa
008655C5 0000 add [eax], al
008655C7 00FF add bh, bh
008655C9 FFFF DB $FF, $FF //
008655CB FF1400 call dword ptr [eax+eax]
008655CE 0000 add [eax], al
008655D0 2C45 sub al, $45
008655D2 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
008655DB 657464 jz 00865642
008655DE 61 popa
008655DF 7465 jz 00865646
008655E1 2829 sub [ecx], ch
008655E3 2000 and [eax], al
008655E5 0000 add [eax], al
008655E7 00FF add bh, bh
008655E9 FFFF DB $FF, $FF //
008655EB FF0E dec dword ptr [esi]
008655ED 0000 add [eax], al
008655EF 0020 add [eax], ah
008655F1 7768 jnbe 0086565B
008655F3 657265 jb 0086565B
008655F6 205375 and [ebx+$75], dl
008655F9 624964 bound ecx, qword ptr [ecx+$64]
008655FC 3D270000FF cmp eax, $FF000027
00865601 FFFF DB $FF, $FF //
00865603 FF0500000053 inc dword ptr [$53000000]
00865609 7562 jnz 0086566D
0086560B 49 dec ecx
0086560C 640000 add fs:[eax], al
0086560F 00558B add [ebp-$75], dl
00865612 EC in al, dx
00865613 B926000000 mov ecx, $00000026
00865618 6A00 push $00
0086561A 6A00 push $00
0086561C 49 dec ecx
0086561D 75F9 jnz 00865618
0086561F 51 push ecx
00865620 53 push ebx
00865621 56 push esi
00865622 8BF2 mov esi, edx
00865624 8BD8 mov ebx, eax
00865626 33C0 xor eax, eax
00865628 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>l<EFBFBD><6C><EFBFBD>^[<5B><>]<5D>'
|
00865629 68255F8600 push $00865F25
***** TRY
|
0086562E 64FF30 push dword ptr fs:[eax]
00865631 648920 mov fs:[eax], esp
00865634 8D55FC lea edx, [ebp-$04]
00865637 8BC6 mov eax, esi
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
00865639 E87EA0D2FF call 0058F6BC
0086563E 8D55DC lea edx, [ebp-$24]
00865641 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00865644 E8A352BAFF call 0040A8EC
00865649 837DDC00 cmp dword ptr [ebp-$24], +$00
0086564D 7513 jnz 00865662
0086564F 8D45CC lea eax, [ebp-$34]
* Reference to: ActiveX.PROPSETHDR_OSVER_KIND(DWORD):Word;
| or: ActiveX.PROPSETHDR_OSVER_MINOR(DWORD):Byte;
| or: ActnCtrls.TCustomComboControl.VisibleChanging(TCustomComboControl);
| or: ActnMan.TActionClientsCollection.SetActionClient(TActionClientsCollection;Integer;TActionClient);
| or: ActnMan.TActionClients.SetActionClient(TActionClients;Integer;TActionClientItem);
| or: ADODB.TParameters.SetItem(TParameters;Integer;TParameter);
|
00865652 E8097DBBFF call 0041D360
00865657 8D55CC lea edx, [ebp-$34]
0086565A 8D45FC lea eax, [ebp-$04]
* Reference to: Variants.@VarToWStr(WideString;WideString;TVarData;TVarData);
|
0086565D E8AE26BBFF call 00417D10
* Reference to control ADOTemp : N.A.
|
00865662 8B833C030000 mov eax, [ebx+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
00865668 E8DF6CDFFF call 0065C34C
* 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;
|
0086566D E8F2C4DEFF call 00651B64
* Reference to field N.A..OFFS_0050
|
00865672 8B4050 mov eax, [eax+$50]
00865675 8D55C8 lea edx, [ebp-$38]
00865678 8B08 mov ecx, [eax]
0086567A FF5110 call dword ptr [ecx+$10]
0086567D 8B45C8 mov eax, [ebp-$38]
00865680 8D55E0 lea edx, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00865683 E86452BAFF call 0040A8EC
00865688 8B45E0 mov eax, [ebp-$20]
* Possible String Reference to: 'Money'
|
0086568B BA405F8600 mov edx, $00865F40
* Reference to: System.@LStrCmp;
|
00865690 E8AB00BAFF call 00405740
00865695 7546 jnz 008656DD
* Possible String Reference to: 'YFType'
|
00865697 BA505F8600 mov edx, $00865F50
* Reference to control Label20 : N.A.
|
0086569C 8B836C030000 mov eax, [ebx+$036C]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008656A2 E80D15C6FF call 004C6BB4
008656A7 8D55C0 lea edx, [ebp-$40]
008656AA 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
008656AC FF5160 call dword ptr [ecx+$60]
008656AF 8B45C0 mov eax, [ebp-$40]
008656B2 8D55C4 lea edx, [ebp-$3C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008656B5 E83252BAFF call 0040A8EC
008656BA 837DC400 cmp dword ptr [ebp-$3C], +$00
008656BE 741D jz 008656DD
008656C0 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
008656C2 B9585F8600 mov ecx, $00865F58
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2>ܸ<EFBFBD><DCB8><EFBFBD>!'
|
008656C7 BA605F8600 mov edx, $00865F60
*)
end;
procedure TfrmYSCRKP._PROC_008660B9(Sender : TObject);
begin
(*
008660B9 50 push eax
008660BA 6461 popa
008660BC 7465 jz 00866123
008660BE 205946 and [ecx+$46], bl
008660C1 5F pop edi
008660C2 4D dec ebp
008660C3 6F outsd
008660C4 6E outsb
008660C5 65795F jns 00866127
008660C8 43 inc ebx
008660C9 52 push edx
008660CA 2000 and [eax], al
008660CC FFFF DB $FF, $FF //
008660CE FFFF DB $FF, $FF //
008660D0 0500000020 add eax, +$20000000
008660D5 53 push ebx
008660D6 657420 jz 008660F9
008660D9 0000 add [eax], al
008660DB 00FF add bh, bh
008660DD FFFF DB $FF, $FF //
008660DF FF01 inc dword ptr [ecx]
008660E1 0000 add [eax], al
008660E3 003D000000FF add [$FF000000], bh
008660E9 FFFF DB $FF, $FF //
008660EB FF07 inc dword ptr [edi]
008660ED 0000 add [eax], al
008660EF 002C4D6F6E6579 add [$79656E6F+ecx*2], ch
008660F6 3D00FFFFFF cmp eax, $FFFFFF00
008660FB FF09 dec dword ptr [ecx]
008660FD 0000 add [eax], al
008660FF 002C42 add [edx+eax*2], ch
00866102 42 inc edx
00866103 4D dec ebp
00866104 6F outsd
00866105 6E outsb
00866106 65793D jns 00866146
00866109 0000 add [eax], al
0086610B 00FF add bh, bh
0086610D FFFF DB $FF, $FF //
0086610F FF09 dec dword ptr [ecx]
00866111 0000 add [eax], al
00866113 002C4564697465 add [$65746964+eax*2], ch
0086611A 723D jb 00866159
0086611C 27 daa
0086611D 0000 add [eax], al
0086611F 00FF add bh, bh
00866121 FFFF DB $FF, $FF //
00866123 FF1400 call dword ptr [eax+eax]
00866126 0000 add [eax], al
00866128 2C45 sub al, $45
0086612A 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00866133 657464 jz 0086619A
00866136 61 popa
00866137 7465 jz 0086619E
00866139 2829 sub [ecx], ch
0086613B 2000 and [eax], al
0086613D 0000 add [eax], al
0086613F 00FF add bh, bh
00866141 FFFF DB $FF, $FF //
00866143 FF0D00000020 dec dword ptr [$20000000]
00866149 7768 jnbe 008661B3
0086614B 657265 jb 008661B3
0086614E 205946 and [ecx+$46], bl
00866151 49 dec ecx
00866152 643D27000000 cmp eax, $00000027
00866158 FFFF DB $FF, $FF //
0086615A FFFF DB $FF, $FF //
0086615C 0400 add al, +$00
0086615E 0000 add [eax], al
00866160 59 pop ecx
00866161 46 inc esi
00866162 49 dec ecx
00866163 640000 add fs:[eax], al
00866166 0000 add [eax], al
00866168 FFFF DB $FF, $FF //
0086616A FFFF DB $FF, $FF //
0086616C 2B00 sub eax, dword ptr [eax]
0086616E 0000 add [eax], al
00866170 55 push ebp
00866171 7064 jo 008661D7
00866173 61 popa
00866174 7465 jz 008661DB
00866176 205946 and [ecx+$46], bl
00866179 5F pop edi
0086617A 4D dec ebp
0086617B 6F outsd
0086617C 6E outsb
0086617D 65795F jns 008661DF
00866180 4B dec ebx
00866181 43 inc ebx
00866182 205365 and [ebx+$65], dl
00866185 7420 jz 008661A7
00866187 4B dec ebx
00866188 43 inc ebx
00866189 42 inc edx
0086618A 42 inc edx
0086618B 4D dec ebp
0086618C 6F outsd
0086618D 6E outsb
0086618E 65793D jns 008661CE
00866191 4B dec ebx
00866192 43 inc ebx
00866193 42 inc edx
00866194 42 inc edx
00866195 4D dec ebp
00866196 6F outsd
00866197 6E outsb
00866198 65792D jns 008661C8
0086619B 00FF add bh, bh
0086619D FFFF DB $FF, $FF //
0086619F FF01 inc dword ptr [ecx]
008661A1 0000 add [eax], al
008661A3 002B add [ebx], ch
008661A5 0000 add [eax], al
008661A7 00FF add bh, bh
008661A9 FFFF DB $FF, $FF //
008661AB FF0D00000020 dec dword ptr [$20000000]
008661B1 7768 jnbe 0086621B
008661B3 657265 jb 0086621B
008661B6 204352 and [ebx+$52], al
008661B9 49 dec ecx
008661BA 44 inc esp
008661BB 3D27000000 cmp eax, $00000027
008661C0 FFFF DB $FF, $FF //
008661C2 FFFF DB $FF, $FF //
008661C4 0400 add al, +$00
008661C6 0000 add [eax], al
008661C8 43 inc ebx
008661C9 52 push edx
008661CA 49 dec ecx
008661CB 44 inc esp
008661CC 0000 add [eax], al
008661CE 0000 add [eax], al
008661D0 55 push ebp
008661D1 8BEC mov ebp, esp
008661D3 B909000000 mov ecx, $00000009
008661D8 6A00 push $00
008661DA 6A00 push $00
008661DC 49 dec ecx
008661DD 75F9 jnz 008661D8
008661DF 51 push ecx
008661E0 53 push ebx
008661E1 56 push esi
008661E2 8BDA mov ebx, edx
008661E4 8BF0 mov esi, eax
008661E6 33C0 xor eax, eax
008661E8 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
008661E9 6824648600 push $00866424
***** TRY
|
008661EE 64FF30 push dword ptr fs:[eax]
008661F1 648920 mov fs:[eax], esp
* Possible String Reference to: 'YFType'
|
008661F4 BA3C648600 mov edx, $0086643C
* Reference to control Label20 : N.A.
|
008661F9 8B866C030000 mov eax, [esi+$036C]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008661FF E8B009C6FF call 004C6BB4
00866204 8D55F0 lea edx, [ebp-$10]
00866207 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00866209 FF5160 call dword ptr [ecx+$60]
0086620C 8B45F0 mov eax, [ebp-$10]
0086620F 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00866212 E8D546BAFF call 0040A8EC
00866217 837DF400 cmp dword ptr [ebp-$0C], +$00
0086621B 741D jz 0086623A
0086621D 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
0086621F B944648600 mov ecx, $00866444
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2>ܸ<EFBFBD><DCB8><EFBFBD>!'
|
00866224 BA4C648600 mov edx, $0086644C
*)
end;
procedure TfrmYSCRKP._PROC_0086646D(Sender : TObject);
begin
(*
0086646D 50 push eax
0086646E 6461 popa
00866470 7465 jz 008664D7
00866472 205946 and [ecx+$46], bl
00866475 5F pop edi
00866476 4D dec ebp
00866477 6F outsd
00866478 6E outsb
00866479 65795F jns 008664DB
0086647C 43 inc ebx
0086647D 52 push edx
0086647E 2000 and [eax], al
00866480 FFFF DB $FF, $FF //
00866482 FFFF DB $FF, $FF //
00866484 0500000020 add eax, +$20000000
00866489 53 push ebx
0086648A 657420 jz 008664AD
0086648D 0000 add [eax], al
0086648F 00FF add bh, bh
00866491 FFFF DB $FF, $FF //
00866493 FF02 inc dword ptr [edx]
00866495 0000 add [eax], al
00866497 003D270000FF add [$FF000027], bh
0086649D FFFF DB $FF, $FF //
0086649F FF01 inc dword ptr [ecx]
008664A1 0000 add [eax], al
008664A3 0027 add [edi], ah
008664A5 0000 add [eax], al
008664A7 00FF add bh, bh
008664A9 FFFF DB $FF, $FF //
008664AB FF050000003D inc dword ptr [$3D000000]
008664B1 4E dec esi
008664B2 55 push ebp
008664B3 4C dec esp
008664B4 4C dec esp
008664B5 0000 add [eax], al
008664B7 00FF add bh, bh
008664B9 FFFF DB $FF, $FF //
008664BB FF09 dec dword ptr [ecx]
008664BD 0000 add [eax], al
008664BF 002C4564697465 add [$65746964+eax*2], ch
008664C6 723D jb 00866505
008664C8 27 daa
008664C9 0000 add [eax], al
008664CB 00FF add bh, bh
008664CD FFFF DB $FF, $FF //
008664CF FF1400 call dword ptr [eax+eax]
008664D2 0000 add [eax], al
008664D4 2C45 sub al, $45
008664D6 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
008664DF 657464 jz 00866546
008664E2 61 popa
008664E3 7465 jz 0086654A
008664E5 2829 sub [ecx], ch
008664E7 2000 and [eax], al
008664E9 0000 add [eax], al
008664EB 00FF add bh, bh
008664ED FFFF DB $FF, $FF //
008664EF FF0D00000020 dec dword ptr [$20000000]
008664F5 7768 jnbe 0086655F
008664F7 657265 jb 0086655F
008664FA 205946 and [ecx+$46], bl
008664FD 49 dec ecx
008664FE 643D27000000 cmp eax, $00000027
00866504 FFFF DB $FF, $FF //
00866506 FFFF DB $FF, $FF //
00866508 0400 add al, +$00
0086650A 0000 add [eax], al
0086650C 59 pop ecx
0086650D 46 inc esi
0086650E 49 dec ecx
0086650F 640000 add fs:[eax], al
00866512 0000 add [eax], al
00866514 55 push ebp
00866515 8BEC mov ebp, esp
00866517 B91F000000 mov ecx, $0000001F
0086651C 6A00 push $00
0086651E 6A00 push $00
00866520 49 dec ecx
00866521 75F9 jnz 0086651C
00866523 53 push ebx
00866524 56 push esi
00866525 8BF0 mov esi, eax
00866527 33C0 xor eax, eax
00866529 55 push ebp
* Possible String Reference to: '<27>B<EFBFBD><42><EFBFBD><EFBFBD>@<40><><EFBFBD>^[<5B><>]<5D>'
|
0086652A 68AD698600 push $008669AD
***** TRY
|
0086652F 64FF30 push dword ptr fs:[eax]
00866532 648920 mov fs:[eax], esp
00866535 8BCE mov ecx, esi
00866537 B201 mov dl, $01
* Reference to class TfrmJYorderConCX
|
00866539 A164DF7D00 mov eax, dword ptr [$007DDF64]
* Reference to: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
| or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
0086653E E88DB8C3FF call 004A1DD0
*)
end;
procedure TfrmYSCRKP._PROC_00866FD1(Sender : TObject);
begin
(*
00866FD1 50 push eax
00866FD2 6461 popa
00866FD4 7465 jz 0086703B
00866FD6 205946 and [ecx+$46], bl
00866FD9 5F pop edi
00866FDA 4D dec ebp
00866FDB 6F outsd
00866FDC 6E outsb
00866FDD 65795F jns 0086703F
00866FE0 43 inc ebx
00866FE1 52 push edx
00866FE2 2000 and [eax], al
00866FE4 FFFF DB $FF, $FF //
00866FE6 FFFF DB $FF, $FF //
00866FE8 0D00000020 or eax, $20000000
00866FED 53 push ebx
00866FEE 657420 jz 00867011
00866FF1 59 pop ecx
00866FF2 46 inc esi
00866FF3 43 inc ebx
00866FF4 6F outsd
00866FF5 64653D27000000 cmp eax, $00000027
00866FFC FFFF DB $FF, $FF //
00866FFE FFFF DB $FF, $FF //
00867000 0100 add [eax], eax
00867002 0000 add [eax], al
00867004 27 daa
00867005 0000 add [eax], al
00867007 00FF add bh, bh
00867009 FFFF DB $FF, $FF //
0086700B FF0A dec dword ptr [edx]
0086700D 0000 add [eax], al
0086700F 0020 add [eax], ah
00867011 2C59 sub al, $59
00867013 46 inc esi
00867014 4E dec esi
00867015 61 popa
00867016 6D insd
00867017 653D270000FF cmp eax, $FF000027
0086701D FFFF DB $FF, $FF //
0086701F FF1400 call dword ptr [eax+eax]
00867022 0000 add [eax], al
00867024 202C46 and [esi+eax*2], ch
00867027 656554 push esp
0086702A 7970 jns 0086709C
0086702C 653D27C6E4CB cmp eax, $CBE4C627
00867032 FB sti
00867033 B7D1 mov bh, $D1
00867035 D3C3 rol ebx, cl
00867037 27 daa
00867038 0000 add [eax], al
0086703A 0000 add [eax], al
0086703C FFFF DB $FF, $FF //
0086703E FFFF DB $FF, $FF //
00867040 0900 or [eax], eax
00867042 0000 add [eax], al
00867044 2C45 sub al, $45
00867046 64697465723D270000 imul esi, fs:[ebp+$72], $0000273D
0086704F 00FF add bh, bh
00867051 FFFF DB $FF, $FF //
00867053 FF1400 call dword ptr [eax+eax]
00867056 0000 add [eax], al
00867058 2C45 sub al, $45
0086705A 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00867063 657464 jz 008670CA
00867066 61 popa
00867067 7465 jz 008670CE
00867069 2829 sub [ecx], ch
0086706B 2000 and [eax], al
0086706D 0000 add [eax], al
0086706F 00FF add bh, bh
00867071 FFFF DB $FF, $FF //
00867073 FF0D00000020 dec dword ptr [$20000000]
00867079 7768 jnbe 008670E3
0086707B 657265 jb 008670E3
0086707E 205946 and [ecx+$46], bl
00867081 49 dec ecx
00867082 643D27000000 cmp eax, $00000027
00867088 FFFF DB $FF, $FF //
0086708A FFFF DB $FF, $FF //
0086708C 0400 add al, +$00
0086708E 0000 add [eax], al
00867090 59 pop ecx
00867091 46 inc esi
00867092 49 dec ecx
00867093 640000 add fs:[eax], al
00867096 0000 add [eax], al
00867098 55 push ebp
00867099 8BEC mov ebp, esp
0086709B 51 push ecx
0086709C B906000000 mov ecx, $00000006
008670A1 6A00 push $00
008670A3 6A00 push $00
008670A5 49 dec ecx
008670A6 75F9 jnz 008670A1
008670A8 51 push ecx
008670A9 874DFC xchg [ebp-$04], ecx
008670AC 53 push ebx
008670AD 56 push esi
008670AE 8BF0 mov esi, eax
008670B0 33C0 xor eax, eax
008670B2 55 push ebp
* Possible String Reference to: '<27><>׹<EFBFBD><D7B9><EFBFBD>^[<5B><>]<5D>'
|
008670B3 68F1728600 push $008672F1
***** TRY
|
008670B8 64FF30 push dword ptr fs:[eax]
008670BB 648920 mov fs:[eax], esp
008670BE 33C0 xor eax, eax
008670C0 55 push ebp
008670C1 68C7728600 push $008672C7
***** TRY
|
008670C6 64FF30 push dword ptr fs:[eax]
008670C9 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYSCRKP._PROC_0086730E(Sender : TObject);
begin
(*
0086730E 6E outsb
0086730F 6974000000FFFFFF imul esi, [eax+eax+$00], $FFFFFF00
00867317 FF08 dec dword ptr [eax]
00867319 0000 add [eax], al
*)
end;
procedure TfrmYSCRKP._PROC_00867344(Sender : TObject);
begin
(*
00867344 6E outsb
00867345 697400FFFFFFFF13 imul esi, [eax+eax-$01], $13FFFFFF
0086734D 0000 add [eax], al
*)
end;
procedure TfrmYSCRKP._PROC_00867351(Sender : TObject);
begin
(*
00867351 50 push eax
00867352 6461 popa
00867354 7465 jz 008673BB
00867356 205946 and [ecx+$46], bl
00867359 5F pop edi
0086735A 4D dec ebp
0086735B 6F outsd
0086735C 6E outsb
0086735D 65795F jns 008673BF
00867360 43 inc ebx
00867361 52 push edx
00867362 2000 and [eax], al
00867364 FFFF DB $FF, $FF //
00867366 FFFF DB $FF, $FF //
00867368 0E push cs
00867369 0000 add [eax], al
0086736B 0020 add [eax], ah
0086736D 53 push ebx
0086736E 657420 jz 00867391
00867371 51 push ecx
00867372 7479 jz 008673ED
00867374 55 push ebp
00867375 6E outsb
00867376 69743D270000FFFF imul esi, [ebp+edi+$27], $FFFF0000
0086737E FFFF DB $FF, $FF //
00867380 07 pop es
00867381 0000 add [eax], al
00867383 005A64 add [edx+$64], bl
00867386 794E jns 008673D6
00867388 61 popa
00867389 6D insd
0086738A 6500FF add bh, bh
0086738D FFFF DB $FF, $FF //
0086738F FF01 inc dword ptr [ecx]
00867391 0000 add [eax], al
00867393 0027 add [edi], ah
00867395 0000 add [eax], al
00867397 00FF add bh, bh
00867399 FFFF DB $FF, $FF //
0086739B FF09 dec dword ptr [ecx]
0086739D 0000 add [eax], al
0086739F 002C4564697465 add [$65746964+eax*2], ch
008673A6 723D jb 008673E5
008673A8 27 daa
008673A9 0000 add [eax], al
008673AB 00FF add bh, bh
008673AD FFFF DB $FF, $FF //
008673AF FF1400 call dword ptr [eax+eax]
008673B2 0000 add [eax], al
008673B4 2C45 sub al, $45
008673B6 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
008673BF 657464 jz 00867426
008673C2 61 popa
008673C3 7465 jz 0086742A
008673C5 2829 sub [ecx], ch
008673C7 2000 and [eax], al
008673C9 0000 add [eax], al
008673CB 00FF add bh, bh
008673CD FFFF DB $FF, $FF //
008673CF FF0D00000020 dec dword ptr [$20000000]
008673D5 7768 jnbe 0086743F
008673D7 657265 jb 0086743F
008673DA 205946 and [ecx+$46], bl
008673DD 49 dec ecx
008673DE 643D27000000 cmp eax, $00000027
008673E4 FFFF DB $FF, $FF //
008673E6 FFFF DB $FF, $FF //
008673E8 0400 add al, +$00
008673EA 0000 add [eax], al
008673EC 59 pop ecx
008673ED 46 inc esi
008673EE 49 dec ecx
008673EF 640000 add fs:[eax], al
008673F2 0000 add [eax], al
008673F4 55 push ebp
008673F5 8BEC mov ebp, esp
008673F7 51 push ecx
008673F8 B907000000 mov ecx, $00000007
008673FD 6A00 push $00
008673FF 6A00 push $00
00867401 49 dec ecx
00867402 75F9 jnz 008673FD
00867404 51 push ecx
00867405 874DFC xchg [ebp-$04], ecx
00867408 53 push ebx
00867409 56 push esi
0086740A 8BF0 mov esi, eax
0086740C 33C0 xor eax, eax
0086740E 55 push ebp
* Possible String Reference to: '<27>FԹ<46><D4B9><EFBFBD>^[<5B><>]<5D>'
|
0086740F 68A9768600 push $008676A9
***** TRY
|
00867414 64FF30 push dword ptr fs:[eax]
00867417 648920 mov fs:[eax], esp
* Reference to control Label20 : N.A.
|
0086741A 8B866C030000 mov eax, [esi+$036C]
* Possible String Reference to: 'YFType'
|
00867420 BAC0768600 mov edx, $008676C0
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00867425 E88AF7C5FF call 004C6BB4
0086742A 8D55F8 lea edx, [ebp-$08]
0086742D 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
0086742F FF5160 call dword ptr [ecx+$60]
00867432 8B45F8 mov eax, [ebp-$08]
00867435 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00867438 E8AF34BAFF call 0040A8EC
0086743D 8B45FC mov eax, [ebp-$04]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
00867440 BAD0768600 mov edx, $008676D0
* Reference to: System.@LStrCmp;
|
00867445 E8F6E2B9FF call 00405740
0086744A 751D jnz 00867469
0086744C 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
0086744E B9DC768600 mov ecx, $008676DC
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
00867453 BAE4768600 mov edx, $008676E4
*)
end;
procedure TfrmYSCRKP._PROC_00867739(Sender : TObject);
begin
(*
00867739 50 push eax
0086773A 6461 popa
0086773C 7465 jz 008677A3
0086773E 205946 and [ecx+$46], bl
00867741 5F pop edi
00867742 4D dec ebp
00867743 6F outsd
00867744 6E outsb
00867745 65795F jns 008677A7
00867748 43 inc ebx
00867749 52 push edx
0086774A 2000 and [eax], al
0086774C FFFF DB $FF, $FF //
0086774E FFFF DB $FF, $FF //
00867750 1100 adc [eax], eax
00867752 0000 add [eax], al
00867754 205365 and [ebx+$65], dl
00867757 7420 jz 00867779
00867759 50 push eax
0086775A 5F pop edi
0086775B 43 inc ebx
0086775C 6F outsd
0086775D 64654E dec esi
00867760 61 popa
00867761 6D insd
00867762 653D27000000 cmp eax, $00000027
00867768 FFFF DB $FF, $FF //
0086776A FFFF DB $FF, $FF //
0086776C 07 pop es
0086776D 0000 add [eax], al
0086776F 005A64 add [edx+$64], bl
00867772 794E jns 008677C2
00867774 61 popa
00867775 6D insd
00867776 6500FF add bh, bh
00867779 FFFF DB $FF, $FF //
0086777B FF01 inc dword ptr [ecx]
0086777D 0000 add [eax], al
0086777F 0027 add [edi], ah
00867781 0000 add [eax], al
00867783 00FF add bh, bh
00867785 FFFF DB $FF, $FF //
00867787 FF09 dec dword ptr [ecx]
00867789 0000 add [eax], al
0086778B 002C4564697465 add [$65746964+eax*2], ch
00867792 723D jb 008677D1
00867794 27 daa
00867795 0000 add [eax], al
00867797 00FF add bh, bh
00867799 FFFF DB $FF, $FF //
0086779B FF1400 call dword ptr [eax+eax]
0086779E 0000 add [eax], al
008677A0 2C45 sub al, $45
008677A2 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
008677AB 657464 jz 00867812
008677AE 61 popa
008677AF 7465 jz 00867816
008677B1 2829 sub [ecx], ch
008677B3 2000 and [eax], al
008677B5 0000 add [eax], al
008677B7 00FF add bh, bh
008677B9 FFFF DB $FF, $FF //
008677BB FF0D00000020 dec dword ptr [$20000000]
008677C1 7768 jnbe 0086782B
008677C3 657265 jb 0086782B
008677C6 205946 and [ecx+$46], bl
008677C9 49 dec ecx
008677CA 643D27000000 cmp eax, $00000027
008677D0 FFFF DB $FF, $FF //
008677D2 FFFF DB $FF, $FF //
008677D4 0400 add al, +$00
008677D6 0000 add [eax], al
008677D8 59 pop ecx
008677D9 46 inc esi
008677DA 49 dec ecx
008677DB 640000 add fs:[eax], al
008677DE 0000 add [eax], al
008677E0 53 push ebx
008677E1 8BD8 mov ebx, eax
* Reference to control ToolButton1 : TToolButton
|
008677E3 8B8320030000 mov eax, [ebx+$0320]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
008677E9 E8D206C6FF call 004C7EC0
008677EE 84C0 test al, al
008677F0 7516 jnz 00867808
* Possible String Reference to: 'Ӧ<>տ<EFBFBD><D5BF>б<EFBFBD>'
|
008677F2 B914788600 mov ecx, $00867814
* Reference to control ToolButton1 : TToolButton
|
008677F7 8B9320030000 mov edx, [ebx+$0320]
* Reference to control ADOTemp : N.A.
|
008677FD 8B833C030000 mov eax, [ebx+$033C]
|
00867803 E8280AF5FF call 007B8230
00867808 5B pop ebx
00867809 C3 ret
0086780A 0000 add [eax], al
0086780C FFFF DB $FF, $FF //
0086780E FFFF DB $FF, $FF //
00867810 0A00 or al, byte ptr [eax]
00867812 0000 add [eax], al
00867814 D3A6CAD5BFEE shl dword ptr [esi+$EEBFD5CA], cl
0086781A C1D0B1 rcl eax, $B1
0086781D ED in eax, dx
0086781E 0000 add [eax], al
00867820 55 push ebp
00867821 8BEC mov ebp, esp
00867823 51 push ecx
00867824 B918000000 mov ecx, $00000018
00867829 6A00 push $00
0086782B 6A00 push $00
0086782D 49 dec ecx
0086782E 75F9 jnz 00867829
00867830 51 push ecx
00867831 874DFC xchg [ebp-$04], ecx
00867834 53 push ebx
00867835 8945FC mov [ebp-$04], eax
00867838 33C0 xor eax, eax
0086783A 55 push ebp
* Possible String Reference to: '<27>0͹<30><CDB9>|<7C><><EFBFBD>[<5B><>]<5D>'
|
0086783B 68BF7D8600 push $00867DBF
***** TRY
|
00867840 64FF30 push dword ptr fs:[eax]
00867843 648920 mov fs:[eax], esp
00867846 8B45FC mov eax, [ebp-$04]
* Reference to control Label20 : N.A.
|
00867849 8B806C030000 mov eax, [eax+$036C]
* Possible String Reference to: 'YFType'
|
0086784F BAD87D8600 mov edx, $00867DD8
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00867854 E85BF3C5FF call 004C6BB4
00867859 8D55F4 lea edx, [ebp-$0C]
0086785C 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
0086785E FF5160 call dword ptr [ecx+$60]
00867861 8B45F4 mov eax, [ebp-$0C]
00867864 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00867867 E88030BAFF call 0040A8EC
0086786C 8B45F8 mov eax, [ebp-$08]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
0086786F BAE87D8600 mov edx, $00867DE8
* Reference to: System.@LStrCmp;
|
00867874 E8C7DEB9FF call 00405740
00867879 751D jnz 00867898
0086787B 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
0086787D B9F47D8600 mov ecx, $00867DF4
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
00867882 BAFC7D8600 mov edx, $00867DFC
*)
end;
procedure TfrmYSCRKP._PROC_00867EB1(Sender : TObject);
begin
(*
00867EB1 50 push eax
00867EB2 6461 popa
00867EB4 7465 jz 00867F1B
00867EB6 205946 and [ecx+$46], bl
00867EB9 5F pop edi
00867EBA 4D dec ebp
00867EBB 6F outsd
00867EBC 6E outsb
00867EBD 65795F jns 00867F1F
00867EC0 43 inc ebx
00867EC1 52 push edx
00867EC2 2000 and [eax], al
00867EC4 FFFF DB $FF, $FF //
00867EC6 FFFF DB $FF, $FF //
00867EC8 0D00000020 or eax, $20000000
00867ECD 53 push ebx
00867ECE 657420 jz 00867EF1
00867ED1 4D dec ebp
00867ED2 61 popa
00867ED3 696E49643D2700 imul ebp, [esi+$49], $00273D64
00867EDA 0000 add [eax], al
00867EDC FFFF DB $FF, $FF //
00867EDE FFFF DB $FF, $FF //
00867EE0 0100 add [eax], eax
00867EE2 0000 add [eax], al
00867EE4 27 daa
00867EE5 0000 add [eax], al
00867EE7 00FF add bh, bh
00867EE9 FFFF DB $FF, $FF //
00867EEB FF09 dec dword ptr [ecx]
00867EED 0000 add [eax], al
00867EEF 0020 add [eax], ah
00867EF1 2C53 sub al, $53
00867EF3 7562 jnz 00867F57
00867EF5 49 dec ecx
00867EF6 643D27000000 cmp eax, $00000027
00867EFC FFFF DB $FF, $FF //
00867EFE FFFF DB $FF, $FF //
00867F00 0500000053 add eax, +$53000000
00867F05 7562 jnz 00867F69
00867F07 49 dec ecx
00867F08 640000 add fs:[eax], al
00867F0B 00FF add bh, bh
00867F0D FFFF DB $FF, $FF //
00867F0F FF0E dec dword ptr [esi]
00867F11 0000 add [eax], al
00867F13 0020 add [eax], ah
00867F15 2C70 sub al, $70
00867F17 5F pop edi
00867F18 43 inc ebx
00867F19 6F outsd
00867F1A 64654E dec esi
00867F1D 61 popa
00867F1E 6D insd
00867F1F 653D270000FF cmp eax, $FF000027
00867F25 FFFF DB $FF, $FF //
00867F27 FF0A dec dword ptr [edx]
00867F29 0000 add [eax], al
00867F2B 0020 add [eax], ah
00867F2D 2C50 sub al, $50
00867F2F 5F pop edi
00867F30 53 push ebx
00867F31 7065 jo 00867F98
00867F33 633D270000FF arpl [$FF000027], di
00867F39 FFFF DB $FF, $FF //
00867F3B FF09 dec dword ptr [ecx]
00867F3D 0000 add [eax], al
00867F3F 002C4564697465 add [$65746964+eax*2], ch
00867F46 723D jb 00867F85
00867F48 27 daa
00867F49 0000 add [eax], al
00867F4B 00FF add bh, bh
00867F4D FFFF DB $FF, $FF //
00867F4F FF1400 call dword ptr [eax+eax]
00867F52 0000 add [eax], al
00867F54 2C45 sub al, $45
00867F56 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00867F5F 657464 jz 00867FC6
00867F62 61 popa
00867F63 7465 jz 00867FCA
00867F65 2829 sub [ecx], ch
00867F67 2000 and [eax], al
00867F69 0000 add [eax], al
00867F6B 00FF add bh, bh
00867F6D FFFF DB $FF, $FF //
00867F6F FF0D00000020 dec dword ptr [$20000000]
00867F75 7768 jnbe 00867FDF
00867F77 657265 jb 00867FDF
00867F7A 205946 and [ecx+$46], bl
00867F7D 49 dec ecx
00867F7E 643D27000000 cmp eax, $00000027
00867F84 FFFF DB $FF, $FF //
00867F86 FFFF DB $FF, $FF //
00867F88 0400 add al, +$00
00867F8A 0000 add [eax], al
00867F8C 59 pop ecx
00867F8D 46 inc esi
00867F8E 49 dec ecx
00867F8F 640000 add fs:[eax], al
00867F92 0000 add [eax], al
00867F94 55 push ebp
00867F95 8BEC mov ebp, esp
00867F97 B909000000 mov ecx, $00000009
00867F9C 6A00 push $00
00867F9E 6A00 push $00
00867FA0 49 dec ecx
00867FA1 75F9 jnz 00867F9C
00867FA3 53 push ebx
00867FA4 56 push esi
00867FA5 8BDA mov ebx, edx
00867FA7 8BF0 mov esi, eax
00867FA9 33C0 xor eax, eax
00867FAB 55 push ebp
00867FAC 68CB818600 push $008681CB
***** TRY
|
00867FB1 64FF30 push dword ptr fs:[eax]
00867FB4 648920 mov fs:[eax], esp
* Possible String Reference to: 'YFType'
|
00867FB7 BAE0818600 mov edx, $008681E0
* Reference to control Label20 : N.A.
|
00867FBC 8B866C030000 mov eax, [esi+$036C]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00867FC2 E8EDEBC5FF call 004C6BB4
00867FC7 8D55F0 lea edx, [ebp-$10]
00867FCA 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00867FCC FF5160 call dword ptr [ecx+$60]
00867FCF 8B45F0 mov eax, [ebp-$10]
00867FD2 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00867FD5 E81229BAFF call 0040A8EC
00867FDA 8B45F4 mov eax, [ebp-$0C]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
00867FDD BAF0818600 mov edx, $008681F0
* Reference to: System.@LStrCmp;
|
00867FE2 E859D7B9FF call 00405740
00867FE7 751D jnz 00868006
00867FE9 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00867FEB B9FC818600 mov ecx, $008681FC
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
00867FF0 BA04828600 mov edx, $00868204
*)
end;
procedure TfrmYSCRKP._PROC_00868231(Sender : TObject);
begin
(*
00868231 50 push eax
00868232 6461 popa
00868234 7465 jz 0086829B
00868236 205946 and [ecx+$46], bl
00868239 5F pop edi
0086823A 4D dec ebp
0086823B 6F outsd
0086823C 6E outsb
0086823D 65795F jns 0086829F
00868240 43 inc ebx
00868241 52 push edx
00868242 2000 and [eax], al
00868244 FFFF DB $FF, $FF //
00868246 FFFF DB $FF, $FF //
00868248 0500000020 add eax, +$20000000
0086824D 53 push ebx
0086824E 657420 jz 00868271
00868251 0000 add [eax], al
00868253 00FF add bh, bh
00868255 FFFF DB $FF, $FF //
00868257 FF01 inc dword ptr [ecx]
00868259 0000 add [eax], al
0086825B 003D000000FF add [$FF000000], bh
00868261 FFFF DB $FF, $FF //
00868263 FF09 dec dword ptr [ecx]
00868265 0000 add [eax], al
00868267 002C4564697465 add [$65746964+eax*2], ch
0086826E 723D jb 008682AD
00868270 27 daa
00868271 0000 add [eax], al
00868273 00FF add bh, bh
00868275 FFFF DB $FF, $FF //
00868277 FF01 inc dword ptr [ecx]
00868279 0000 add [eax], al
0086827B 0027 add [edi], ah
0086827D 0000 add [eax], al
0086827F 00FF add bh, bh
00868281 FFFF DB $FF, $FF //
00868283 FF1400 call dword ptr [eax+eax]
00868286 0000 add [eax], al
00868288 2C45 sub al, $45
0086828A 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00868293 657464 jz 008682FA
00868296 61 popa
00868297 7465 jz 008682FE
00868299 2829 sub [ecx], ch
0086829B 2000 and [eax], al
0086829D 0000 add [eax], al
0086829F 00FF add bh, bh
008682A1 FFFF DB $FF, $FF //
008682A3 FF0D00000020 dec dword ptr [$20000000]
008682A9 7768 jnbe 00868313
008682AB 657265 jb 00868313
008682AE 205946 and [ecx+$46], bl
008682B1 49 dec ecx
008682B2 643D27000000 cmp eax, $00000027
008682B8 FFFF DB $FF, $FF //
008682BA FFFF DB $FF, $FF //
008682BC 0400 add al, +$00
008682BE 0000 add [eax], al
008682C0 59 pop ecx
008682C1 46 inc esi
008682C2 49 dec ecx
008682C3 640000 add fs:[eax], al
008682C6 0000 add [eax], al
008682C8 55 push ebp
008682C9 8BEC mov ebp, esp
008682CB B907000000 mov ecx, $00000007
008682D0 6A00 push $00
008682D2 6A00 push $00
008682D4 49 dec ecx
008682D5 75F9 jnz 008682D0
008682D7 51 push ecx
008682D8 53 push ebx
008682D9 56 push esi
008682DA 8BDA mov ebx, edx
008682DC 8BF0 mov esi, eax
008682DE 33C0 xor eax, eax
008682E0 55 push ebp
* Possible String Reference to: '<27>Wƹ<57><C6B9><EFBFBD>^[<5B><>]<5D>'
|
008682E1 6898848600 push $00868498
***** TRY
|
008682E6 64FF30 push dword ptr fs:[eax]
008682E9 648920 mov fs:[eax], esp
008682EC 8D55FC lea edx, [ebp-$04]
008682EF 8BC3 mov eax, ebx
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
008682F1 E8C673D2FF call 0058F6BC
* Reference to control ADOTemp : N.A.
|
008682F6 8B863C030000 mov eax, [esi+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
008682FC E84B40DFFF call 0065C34C
* 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;
|
00868301 E85E98DEFF call 00651B64
* Reference to field N.A..OFFS_0050
|
00868306 8B4050 mov eax, [eax+$50]
00868309 8D55F4 lea edx, [ebp-$0C]
0086830C 8B08 mov ecx, [eax]
0086830E FF5110 call dword ptr [ecx+$10]
00868311 8B45F4 mov eax, [ebp-$0C]
00868314 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00868317 E8D025BAFF call 0040A8EC
* Reference to control Label20 : N.A.
|
0086831C 8B9E6C030000 mov ebx, [esi+$036C]
00868322 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00868324 E81701C6FF call 004C8440
00868329 8D55E0 lea edx, [ebp-$20]
0086832C 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0086832F E8B825BAFF call 0040A8EC
00868334 8B55E0 mov edx, [ebp-$20]
00868337 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
0086833A E8890ABBFF call 00418DC8
0086833F 8D45E4 lea eax, [ebp-$1C]
00868342 50 push eax
00868343 8B55F8 mov edx, [ebp-$08]
00868346 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00868348 E867E8C5FF call 004C6BB4
0086834D 5A pop edx
0086834E 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
00868350 FF91B4000000 call dword ptr [ecx+$00B4]
00868356 8BC3 mov eax, ebx
00868358 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_024C
|
0086835A FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
00868360 8B9E0C030000 mov ebx, [esi+$030C]
00868366 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00868368 E867D5C5FF call 004C58D4
0086836D 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;
|
0086836F E8385CC7FF call 004DDFAC
00868374 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
00868376 FF5244 call dword ptr [edx+$44]
00868379 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;
|
0086837B E82C5CC7FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00868380 BAB0848600 mov edx, $008684B0
00868385 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00868387 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
0086838A 68CC848600 push $008684CC
0086838F FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
00868392 68DC848600 push $008684DC
00868397 8D55D8 lea edx, [ebp-$28]
0086839A 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0086839D E84A25BAFF call 0040A8EC
008683A2 FF75D8 push dword ptr [ebp-$28]
008683A5 68E8848600 push $008684E8
008683AA 8D45DC lea eax, [ebp-$24]
008683AD BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
008683B2 E8FDD2B9FF call 004056B4
008683B7 8B45DC mov eax, [ebp-$24]
008683BA 50 push eax
008683BB 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;
|
008683BD E8EA5BC7FF call 004DDFAC
008683C2 5A pop edx
008683C3 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
008683C5 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
008683C8 68F4848600 push $008684F4
008683CD 8D55D0 lea edx, [ebp-$30]
*)
end;
procedure TfrmYSCRKP._PROC_008684B1(Sender : TObject);
begin
(*
008684B1 50 push eax
008684B2 6461 popa
008684B4 7465 jz 0086851B
008684B6 205946 and [ecx+$46], bl
008684B9 5F pop edi
008684BA 4D dec ebp
008684BB 6F outsd
008684BC 6E outsb
008684BD 65795F jns 0086851F
008684C0 43 inc ebx
008684C1 52 push edx
008684C2 2000 and [eax], al
008684C4 FFFF DB $FF, $FF //
008684C6 FFFF DB $FF, $FF //
008684C8 0500000020 add eax, +$20000000
008684CD 53 push ebx
008684CE 657420 jz 008684F1
008684D1 0000 add [eax], al
008684D3 00FF add bh, bh
008684D5 FFFF DB $FF, $FF //
008684D7 FF02 inc dword ptr [edx]
008684D9 0000 add [eax], al
008684DB 003D270000FF add [$FF000027], bh
008684E1 FFFF DB $FF, $FF //
008684E3 FF01 inc dword ptr [ecx]
008684E5 0000 add [eax], al
008684E7 0027 add [edi], ah
008684E9 0000 add [eax], al
008684EB 00FF add bh, bh
008684ED FFFF DB $FF, $FF //
008684EF FF09 dec dword ptr [ecx]
008684F1 0000 add [eax], al
008684F3 002C4564697465 add [$65746964+eax*2], ch
008684FA 723D jb 00868539
008684FC 27 daa
008684FD 0000 add [eax], al
008684FF 00FF add bh, bh
00868501 FFFF DB $FF, $FF //
00868503 FF1400 call dword ptr [eax+eax]
00868506 0000 add [eax], al
00868508 2C45 sub al, $45
0086850A 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00868513 657464 jz 0086857A
00868516 61 popa
00868517 7465 jz 0086857E
00868519 2829 sub [ecx], ch
0086851B 2000 and [eax], al
0086851D 0000 add [eax], al
0086851F 00FF add bh, bh
00868521 FFFF DB $FF, $FF //
00868523 FF0D00000020 dec dword ptr [$20000000]
00868529 7768 jnbe 00868593
0086852B 657265 jb 00868593
0086852E 205946 and [ecx+$46], bl
00868531 49 dec ecx
00868532 643D27000000 cmp eax, $00000027
00868538 FFFF DB $FF, $FF //
0086853A FFFF DB $FF, $FF //
0086853C 0400 add al, +$00
0086853E 0000 add [eax], al
00868540 59 pop ecx
00868541 46 inc esi
00868542 49 dec ecx
00868543 640000 add fs:[eax], al
00868546 0000 add [eax], al
00868548 55 push ebp
00868549 8BEC mov ebp, esp
0086854B B90C000000 mov ecx, $0000000C
00868550 6A00 push $00
00868552 6A00 push $00
00868554 49 dec ecx
00868555 75F9 jnz 00868550
00868557 53 push ebx
00868558 56 push esi
00868559 8BDA mov ebx, edx
0086855B 8BF0 mov esi, eax
0086855D 33C0 xor eax, eax
0086855F 55 push ebp
00868560 683F888600 push $0086883F
***** TRY
|
00868565 64FF30 push dword ptr fs:[eax]
00868568 648920 mov fs:[eax], esp
0086856B 8D55FC lea edx, [ebp-$04]
0086856E 8BC3 mov eax, ebx
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
00868570 E84771D2FF call 0058F6BC
00868575 8D55EC lea edx, [ebp-$14]
00868578 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0086857B E86C23BAFF call 0040A8EC
00868580 837DEC00 cmp dword ptr [ebp-$14], +$00
00868584 750D jnz 00868593
00868586 8D45FC lea eax, [ebp-$04]
00868589 BA54888600 mov edx, $00868854
* Reference to: System.@LStrLAsg(void;void;void;void);
|
0086858E E829CEB9FF call 004053BC
* Reference to control ADOTemp : N.A.
|
00868593 8B863C030000 mov eax, [esi+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
00868599 E8AE3DDFFF call 0065C34C
* 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;
|
0086859E E8C195DEFF call 00651B64
* Reference to field N.A..OFFS_0050
|
008685A3 8B4050 mov eax, [eax+$50]
008685A6 8D55E8 lea edx, [ebp-$18]
008685A9 8B08 mov ecx, [eax]
008685AB FF5110 call dword ptr [ecx+$10]
008685AE 8B45E8 mov eax, [ebp-$18]
008685B1 8D55F0 lea edx, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008685B4 E83323BAFF call 0040A8EC
* Reference to control Label20 : N.A.
|
008685B9 8B9E6C030000 mov ebx, [esi+$036C]
008685BF 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008685C1 E87AFEC5FF call 004C8440
008685C6 8D55D4 lea edx, [ebp-$2C]
008685C9 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008685CC E81B23BAFF call 0040A8EC
008685D1 8B55D4 mov edx, [ebp-$2C]
008685D4 8D45D8 lea eax, [ebp-$28]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008685D7 E8EC07BBFF call 00418DC8
008685DC 8D45D8 lea eax, [ebp-$28]
008685DF 50 push eax
008685E0 8B55F0 mov edx, [ebp-$10]
008685E3 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008685E5 E8CAE5C5FF call 004C6BB4
008685EA 5A pop edx
008685EB 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
008685ED FF91B4000000 call dword ptr [ecx+$00B4]
008685F3 8BC3 mov eax, ebx
008685F5 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_024C
|
008685F7 FF924C020000 call dword ptr [edx+$024C]
* Reference to control Label3 : TLabel
|
008685FD 8B9E08030000 mov ebx, [esi+$0308]
00868603 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00868605 E8CAD2C5FF call 004C58D4
0086860A 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
0086860C E89B59C7FF call 004DDFAC
00868611 8B10 mov edx, [eax]
* Reference to method TLabel.GetClientRect()
|
00868613 FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'select isnull(KPMoney,0) KPMoney fr
| om YF_Money_CR where YFID=''
|
00868616 6860888600 push $00868860
* Possible String Reference to: 'YFID'
|
0086861B BAA8888600 mov edx, $008688A8
* Reference to control Label20 : N.A.
|
00868620 8B866C030000 mov eax, [esi+$036C]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00868626 E889E5C5FF call 004C6BB4
0086862B 8D55CC lea edx, [ebp-$34]
0086862E 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00868630 FF5160 call dword ptr [ecx+$60]
00868633 FF75CC push dword ptr [ebp-$34]
00868636 68B8888600 push $008688B8
0086863B 8D45D0 lea eax, [ebp-$30]
0086863E BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00868643 E86CD0B9FF call 004056B4
00868648 8B45D0 mov eax, [ebp-$30]
0086864B 50 push eax
0086864C 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
0086864E E85959C7FF call 004DDFAC
00868653 5A pop edx
00868654 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00868656 FF5138 call dword ptr [ecx+$38]
00868659 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
0086865B E868D2C5FF call 004C58C8
* Possible String Reference to: 'KPMoney'
|
00868660 BAC4888600 mov edx, $008688C4
* Reference to control Label3 : TLabel
|
00868665 8B8608030000 mov eax, [esi+$0308]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0086866B E844E5C5FF call 004C6BB4
00868670 8D55F4 lea edx, [ebp-$0C]
00868673 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
00868675 FF5160 call dword ptr [ecx+$60]
* Possible String Reference to: 'KPMoney'
|
00868678 BAC4888600 mov edx, $008688C4
* Reference to control Label20 : N.A.
|
0086867D 8B866C030000 mov eax, [esi+$036C]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00868683 E82CE5C5FF call 004C6BB4
00868688 8D55F8 lea edx, [ebp-$08]
0086868B 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
0086868D FF5160 call dword ptr [ecx+$60]
* Reference to control OrdDate : N.A.
|
00868690 8B9E0C030000 mov ebx, [esi+$030C]
00868696 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00868698 E837D2C5FF call 004C58D4
0086869D 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;
|
0086869F E80859C7FF call 004DDFAC
008686A4 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
008686A6 FF5244 call dword ptr [edx+$44]
008686A9 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;
|
008686AB E8FC58C7FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
008686B0 BAD4888600 mov edx, $008688D4
008686B5 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
008686B7 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
008686BA 68F0888600 push $008688F0
008686BF FF75F0 push dword ptr [ebp-$10]
008686C2 6800898600 push $00868900
008686C7 8D55C4 lea edx, [ebp-$3C]
008686CA 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008686CD E81A22BAFF call 0040A8EC
008686D2 FF75C4 push dword ptr [ebp-$3C]
008686D5 8D45C8 lea eax, [ebp-$38]
008686D8 BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
008686DD E8D2CFB9FF call 004056B4
008686E2 8B45C8 mov eax, [ebp-$38]
008686E5 50 push eax
008686E6 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;
|
008686E8 E8BF58C7FF call 004DDFAC
008686ED 5A pop edx
008686EE 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
008686F0 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
008686F3 680C898600 push $0086890C
008686F8 8D55BC lea edx, [ebp-$44]
*)
end;
procedure TfrmYSCRKP._PROC_008688D5(Sender : TObject);
begin
(*
008688D5 50 push eax
008688D6 6461 popa
008688D8 7465 jz 0086893F
008688DA 205946 and [ecx+$46], bl
008688DD 5F pop edi
008688DE 4D dec ebp
008688DF 6F outsd
008688E0 6E outsb
008688E1 65795F jns 00868943
008688E4 43 inc ebx
008688E5 52 push edx
008688E6 2000 and [eax], al
008688E8 FFFF DB $FF, $FF //
008688EA FFFF DB $FF, $FF //
008688EC 0500000020 add eax, +$20000000
008688F1 53 push ebx
008688F2 657420 jz 00868915
008688F5 0000 add [eax], al
008688F7 00FF add bh, bh
008688F9 FFFF DB $FF, $FF //
008688FB FF01 inc dword ptr [ecx]
008688FD 0000 add [eax], al
008688FF 003D000000FF add [$FF000000], bh
00868905 FFFF DB $FF, $FF //
00868907 FF09 dec dword ptr [ecx]
00868909 0000 add [eax], al
0086890B 002C4564697465 add [$65746964+eax*2], ch
00868912 723D jb 00868951
00868914 27 daa
00868915 0000 add [eax], al
00868917 00FF add bh, bh
00868919 FFFF DB $FF, $FF //
0086891B FF1400 call dword ptr [eax+eax]
0086891E 0000 add [eax], al
00868920 2C45 sub al, $45
00868922 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
0086892B 657464 jz 00868992
0086892E 61 popa
0086892F 7465 jz 00868996
00868931 2829 sub [ecx], ch
00868933 2000 and [eax], al
00868935 0000 add [eax], al
00868937 00FF add bh, bh
00868939 FFFF DB $FF, $FF //
0086893B FF0D00000020 dec dword ptr [$20000000]
00868941 7768 jnbe 008689AB
00868943 657265 jb 008689AB
00868946 205946 and [ecx+$46], bl
00868949 49 dec ecx
0086894A 643D27000000 cmp eax, $00000027
00868950 FFFF DB $FF, $FF //
00868952 FFFF DB $FF, $FF //
00868954 0400 add al, +$00
00868956 0000 add [eax], al
00868958 59 pop ecx
00868959 46 inc esi
0086895A 49 dec ecx
0086895B 640000 add fs:[eax], al
0086895E 0000 add [eax], al
00868960 FFFF DB $FF, $FF //
00868962 FFFF DB $FF, $FF //
00868964 2B00 sub eax, dword ptr [eax]
00868966 0000 add [eax], al
00868968 55 push ebp
00868969 7064 jo 008689CF
0086896B 61 popa
0086896C 7465 jz 008689D3
0086896E 205946 and [ecx+$46], bl
00868971 5F pop edi
00868972 4D dec ebp
00868973 6F outsd
00868974 6E outsb
00868975 65795F jns 008689D7
00868978 4B dec ebx
00868979 43 inc ebx
0086897A 205365 and [ebx+$65], dl
0086897D 7420 jz 0086899F
0086897F 4B dec ebx
00868980 43 inc ebx
00868981 4B dec ebx
00868982 50 push eax
00868983 4D dec ebp
00868984 6F outsd
00868985 6E outsb
00868986 65793D jns 008689C6
00868989 4B dec ebx
0086898A 43 inc ebx
0086898B 4B dec ebx
0086898C 50 push eax
0086898D 4D dec ebp
0086898E 6F outsd
0086898F 6E outsb
00868990 65792D jns 008689C0
00868993 00FF add bh, bh
00868995 FFFF DB $FF, $FF //
00868997 FF01 inc dword ptr [ecx]
00868999 0000 add [eax], al
0086899B 002B add [ebx], ch
0086899D 0000 add [eax], al
0086899F 00FF add bh, bh
008689A1 FFFF DB $FF, $FF //
008689A3 FF0D00000020 dec dword ptr [$20000000]
008689A9 7768 jnbe 00868A13
008689AB 657265 jb 00868A13
008689AE 204352 and [ebx+$52], al
008689B1 49 dec ecx
008689B2 44 inc esp
008689B3 3D27000000 cmp eax, $00000027
008689B8 FFFF DB $FF, $FF //
008689BA FFFF DB $FF, $FF //
008689BC 0400 add al, +$00
008689BE 0000 add [eax], al
008689C0 43 inc ebx
008689C1 52 push edx
008689C2 49 dec ecx
008689C3 44 inc esp
008689C4 0000 add [eax], al
008689C6 0000 add [eax], al
008689C8 55 push ebp
008689C9 8BEC mov ebp, esp
008689CB B910000000 mov ecx, $00000010
008689D0 6A00 push $00
008689D2 6A00 push $00
008689D4 49 dec ecx
008689D5 75F9 jnz 008689D0
008689D7 51 push ecx
008689D8 53 push ebx
008689D9 56 push esi
008689DA 57 push edi
008689DB 8945FC mov [ebp-$04], eax
008689DE 33C0 xor eax, eax
008689E0 55 push ebp
* Possible String Reference to: '閽<><E996BD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
008689E1 68598D8600 push $00868D59
***** TRY
|
008689E6 64FF30 push dword ptr fs:[eax]
008689E9 648920 mov fs:[eax], esp
008689EC 8B45FC mov eax, [ebp-$04]
* Reference to control Label20 : N.A.
|
008689EF 8B806C030000 mov eax, [eax+$036C]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
008689F5 E8C6F4C5FF call 004C7EC0
008689FA 84C0 test al, al
008689FC 0F85F1020000 jnz 00868CF3
00868A02 A0688D8600 mov al, byte ptr [$00868D68]
00868A07 50 push eax
00868A08 8D45EC lea eax, [ebp-$14]
00868A0B B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
00868A0D E85203BBFF call 00418D64
00868A12 8D4DEC lea ecx, [ebp-$14]
00868A15 8B45FC mov eax, [ebp-$04]
* Reference to control Label20 : N.A.
|
00868A18 8B806C030000 mov eax, [eax+$036C]
* Possible String Reference to: 'ssel'
|
00868A1E BA748D8600 mov edx, $00868D74
00868A23 8B18 mov ebx, [eax]
* Possible reference to virtual method TN.A..OFFS_0244
|
00868A25 FF9344020000 call dword ptr [ebx+$0244]
00868A2B 84C0 test al, al
00868A2D 751D jnz 00868A4C
00868A2F 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00868A31 B97C8D8600 mov ecx, $00868D7C
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
00868A36 BA848D8600 mov edx, $00868D84
*)
end;
procedure TfrmYSCRKP._PROC_008698A1(Sender : TObject);
begin
(*
008698A1 50 push eax
008698A2 6461 popa
008698A4 7465 jz 0086990B
008698A6 205946 and [ecx+$46], bl
008698A9 5F pop edi
008698AA 4D dec ebp
008698AB 6F outsd
008698AC 6E outsb
008698AD 65795F jns 0086990F
008698B0 43 inc ebx
008698B1 52 push edx
008698B2 2000 and [eax], al
008698B4 FFFF DB $FF, $FF //
008698B6 FFFF DB $FF, $FF //
008698B8 1000 adc [eax], al
008698BA 0000 add [eax], al
008698BC 205365 and [ebx+$65], dl
008698BF 7420 jz 008698E1
008698C1 43 inc ebx
008698C2 6F outsd
008698C3 6D insd
008698C4 54 push esp
008698C5 61 popa
008698C6 69546F753D270000 imul edx, [edi+ebp*2+$75], $0000273D
008698CE 0000 add [eax], al
008698D0 FFFF DB $FF, $FF //
008698D2 FFFF DB $FF, $FF //
008698D4 0100 add [eax], eax
008698D6 0000 add [eax], al
008698D8 27 daa
008698D9 0000 add [eax], al
008698DB 00FF add bh, bh
008698DD FFFF DB $FF, $FF //
008698DF FF09 dec dword ptr [ecx]
008698E1 0000 add [eax], al
008698E3 002C4564697465 add [$65746964+eax*2], ch
008698EA 723D jb 00869929
008698EC 27 daa
008698ED 0000 add [eax], al
008698EF 00FF add bh, bh
008698F1 FFFF DB $FF, $FF //
008698F3 FF1400 call dword ptr [eax+eax]
008698F6 0000 add [eax], al
008698F8 2C45 sub al, $45
008698FA 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00869903 657464 jz 0086996A
00869906 61 popa
00869907 7465 jz 0086996E
00869909 2829 sub [ecx], ch
0086990B 2000 and [eax], al
0086990D 0000 add [eax], al
0086990F 00FF add bh, bh
00869911 FFFF DB $FF, $FF //
00869913 FF0D00000020 dec dword ptr [$20000000]
00869919 7768 jnbe 00869983
0086991B 657265 jb 00869983
0086991E 205946 and [ecx+$46], bl
00869921 49 dec ecx
00869922 643D27000000 cmp eax, $00000027
00869928 FFFF DB $FF, $FF //
0086992A FFFF DB $FF, $FF //
0086992C 0400 add al, +$00
0086992E 0000 add [eax], al
00869930 59 pop ecx
00869931 46 inc esi
00869932 49 dec ecx
00869933 640000 add fs:[eax], al
00869936 0000 add [eax], al
00869938 53 push ebx
00869939 8BD8 mov ebx, eax
0086993B 8BCB mov ecx, ebx
0086993D B201 mov dl, $01
* Reference to class TfrmSXCKNewList_SK
|
0086993F A1BCF57E00 mov eax, dword ptr [$007EF5BC]
* Reference to: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
| or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
00869944 E88784C3FF call 004A1DD0
*)
end;
procedure TfrmYSCRKP._PROC_00869C01(Sender : TObject);
begin
(*
00869C01 50 push eax
00869C02 6461 popa
00869C04 7465 jz 00869C6B
00869C06 205946 and [ecx+$46], bl
00869C09 5F pop edi
00869C0A 4D dec ebp
00869C0B 6F outsd
00869C0C 6E outsb
00869C0D 65795F jns 00869C6F
00869C10 43 inc ebx
00869C11 52 push edx
00869C12 2000 and [eax], al
00869C14 FFFF DB $FF, $FF //
00869C16 FFFF DB $FF, $FF //
00869C18 0D00000020 or eax, $20000000
00869C1D 53 push ebx
00869C1E 657420 jz 00869C41
00869C21 42 inc edx
00869C22 5A pop edx
00869C23 54 push esp
00869C24 7970 jns 00869C96
00869C26 653D27000000 cmp eax, $00000027
00869C2C FFFF DB $FF, $FF //
00869C2E FFFF DB $FF, $FF //
00869C30 07 pop es
00869C31 0000 add [eax], al
00869C33 005A64 add [edx+$64], bl
00869C36 794E jns 00869C86
00869C38 61 popa
00869C39 6D insd
00869C3A 6500FF add bh, bh
00869C3D FFFF DB $FF, $FF //
00869C3F FF01 inc dword ptr [ecx]
00869C41 0000 add [eax], al
00869C43 0027 add [edi], ah
00869C45 0000 add [eax], al
00869C47 00FF add bh, bh
00869C49 FFFF DB $FF, $FF //
00869C4B FF09 dec dword ptr [ecx]
00869C4D 0000 add [eax], al
00869C4F 002C4564697465 add [$65746964+eax*2], ch
00869C56 723D jb 00869C95
00869C58 27 daa
00869C59 0000 add [eax], al
00869C5B 00FF add bh, bh
00869C5D FFFF DB $FF, $FF //
00869C5F FF1400 call dword ptr [eax+eax]
00869C62 0000 add [eax], al
00869C64 2C45 sub al, $45
00869C66 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00869C6F 657464 jz 00869CD6
00869C72 61 popa
00869C73 7465 jz 00869CDA
00869C75 2829 sub [ecx], ch
00869C77 2000 and [eax], al
00869C79 0000 add [eax], al
00869C7B 00FF add bh, bh
00869C7D FFFF DB $FF, $FF //
00869C7F FF0D00000020 dec dword ptr [$20000000]
00869C85 7768 jnbe 00869CEF
00869C87 657265 jb 00869CEF
00869C8A 205946 and [ecx+$46], bl
00869C8D 49 dec ecx
00869C8E 643D27000000 cmp eax, $00000027
00869C94 FFFF DB $FF, $FF //
00869C96 FFFF DB $FF, $FF //
00869C98 0400 add al, +$00
00869C9A 0000 add [eax], al
00869C9C 59 pop ecx
00869C9D 46 inc esi
00869C9E 49 dec ecx
00869C9F 640000 add fs:[eax], al
00869CA2 0000 add [eax], al
00869CA4 55 push ebp
00869CA5 8BEC mov ebp, esp
00869CA7 51 push ecx
00869CA8 B907000000 mov ecx, $00000007
00869CAD 6A00 push $00
00869CAF 6A00 push $00
00869CB1 49 dec ecx
00869CB2 75F9 jnz 00869CAD
00869CB4 51 push ecx
00869CB5 874DFC xchg [ebp-$04], ecx
00869CB8 53 push ebx
00869CB9 56 push esi
00869CBA 8BF0 mov esi, eax
00869CBC 33C0 xor eax, eax
00869CBE 55 push ebp
* Possible String Reference to: '閫<><E996AB><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00869CBF 68599F8600 push $00869F59
***** TRY
|
00869CC4 64FF30 push dword ptr fs:[eax]
00869CC7 648920 mov fs:[eax], esp
* Reference to control Label20 : N.A.
|
00869CCA 8B866C030000 mov eax, [esi+$036C]
* Possible String Reference to: 'YFType'
|
00869CD0 BA709F8600 mov edx, $00869F70
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00869CD5 E8DACEC5FF call 004C6BB4
00869CDA 8D55F8 lea edx, [ebp-$08]
00869CDD 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00869CDF FF5160 call dword ptr [ecx+$60]
00869CE2 8B45F8 mov eax, [ebp-$08]
00869CE5 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00869CE8 E8FF0BBAFF call 0040A8EC
00869CED 8B45FC mov eax, [ebp-$04]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
00869CF0 BA809F8600 mov edx, $00869F80
* Reference to: System.@LStrCmp;
|
00869CF5 E846BAB9FF call 00405740
00869CFA 751D jnz 00869D19
00869CFC 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00869CFE B98C9F8600 mov ecx, $00869F8C
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
00869D03 BA949F8600 mov edx, $00869F94
*)
end;
procedure TfrmYSCRKP._PROC_00869FE5(Sender : TObject);
begin
(*
00869FE5 50 push eax
00869FE6 6461 popa
00869FE8 7465 jz 0086A04F
00869FEA 205946 and [ecx+$46], bl
00869FED 5F pop edi
00869FEE 4D dec ebp
00869FEF 6F outsd
00869FF0 6E outsb
00869FF1 65795F jns 0086A053
00869FF4 43 inc ebx
00869FF5 52 push edx
00869FF6 2000 and [eax], al
00869FF8 FFFF DB $FF, $FF //
00869FFA FFFF DB $FF, $FF //
00869FFC 0D00000020 or eax, $20000000
0086A001 53 push ebx
0086A002 657420 jz 0086A025
0086A005 50 push eax
0086A006 5F pop edi
0086A007 53 push ebx
0086A008 7065 jo 0086A06F
0086A00A 633D27000000 arpl [$00000027], di
0086A010 FFFF DB $FF, $FF //
0086A012 FFFF DB $FF, $FF //
0086A014 07 pop es
0086A015 0000 add [eax], al
0086A017 005A64 add [edx+$64], bl
0086A01A 794E jns 0086A06A
0086A01C 61 popa
0086A01D 6D insd
0086A01E 6500FF add bh, bh
0086A021 FFFF DB $FF, $FF //
0086A023 FF01 inc dword ptr [ecx]
0086A025 0000 add [eax], al
0086A027 0027 add [edi], ah
0086A029 0000 add [eax], al
0086A02B 00FF add bh, bh
0086A02D FFFF DB $FF, $FF //
0086A02F FF09 dec dword ptr [ecx]
0086A031 0000 add [eax], al
0086A033 002C4564697465 add [$65746964+eax*2], ch
0086A03A 723D jb 0086A079
0086A03C 27 daa
0086A03D 0000 add [eax], al
0086A03F 00FF add bh, bh
0086A041 FFFF DB $FF, $FF //
0086A043 FF1400 call dword ptr [eax+eax]
0086A046 0000 add [eax], al
0086A048 2C45 sub al, $45
0086A04A 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
0086A053 657464 jz 0086A0BA
0086A056 61 popa
0086A057 7465 jz 0086A0BE
0086A059 2829 sub [ecx], ch
0086A05B 2000 and [eax], al
0086A05D 0000 add [eax], al
0086A05F 00FF add bh, bh
0086A061 FFFF DB $FF, $FF //
0086A063 FF0D00000020 dec dword ptr [$20000000]
0086A069 7768 jnbe 0086A0D3
0086A06B 657265 jb 0086A0D3
0086A06E 205946 and [ecx+$46], bl
0086A071 49 dec ecx
0086A072 643D27000000 cmp eax, $00000027
0086A078 FFFF DB $FF, $FF //
0086A07A FFFF DB $FF, $FF //
0086A07C 0400 add al, +$00
0086A07E 0000 add [eax], al
0086A080 59 pop ecx
0086A081 46 inc esi
0086A082 49 dec ecx
0086A083 640000 add fs:[eax], al
0086A086 0000 add [eax], al
0086A088 53 push ebx
0086A089 56 push esi
0086A08A 8BD8 mov ebx, eax
* Reference to control ToolBar1 : TToolBar
|
0086A08C 8B83F8020000 mov eax, [ebx+$02F8]
0086A092 8B10 mov edx, [eax]
* Reference to method TToolBar.SetFocus()
|
0086A094 FF92C4000000 call dword ptr [edx+$00C4]
* Possible String Reference to: 'Qty'
|
0086A09A BA08A18600 mov edx, $0086A108
* Reference to control Label20 : N.A.
|
0086A09F 8BB36C030000 mov esi, [ebx+$036C]
0086A0A5 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0086A0A7 E808CBC5FF call 004C6BB4
0086A0AC 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_4C
|
0086A0AE FF524C call dword ptr [edx+$4C]
0086A0B1 D8350CA18600 fdiv dword ptr [$0086A10C]
0086A0B7 83C4F8 add esp, -$08
0086A0BA DD1C24 fstp qword ptr [esp]
0086A0BD 9B wait
* Reference to control v1Column7 : N.A.
|
0086A0BE 8B9304040000 mov edx, [ebx+$0404]
0086A0C4 8BC6 mov eax, esi
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
0086A0C6 E8C5CCF4FF call 007B6D90
* Possible String Reference to: 'Money'
|
0086A0CB BA18A18600 mov edx, $0086A118
* Reference to control Label20 : N.A.
|
0086A0D0 8BB36C030000 mov esi, [ebx+$036C]
0086A0D6 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0086A0D8 E8D7CAC5FF call 004C6BB4
0086A0DD 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_4C
|
0086A0DF FF524C call dword ptr [edx+$4C]
0086A0E2 D8350CA18600 fdiv dword ptr [$0086A10C]
0086A0E8 83C4F8 add esp, -$08
0086A0EB DD1C24 fstp qword ptr [esp]
0086A0EE 9B wait
* Reference to control v1Column8 : N.A.
|
0086A0EF 8B9308040000 mov edx, [ebx+$0408]
0086A0F5 8BC6 mov eax, esi
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
0086A0F7 E894CCF4FF call 007B6D90
0086A0FC 5E pop esi
0086A0FD 5B pop ebx
0086A0FE C3 ret
*)
end;
procedure TfrmYSCRKP._PROC_0086A505(Sender : TObject);
begin
(*
0086A505 50 push eax
0086A506 6461 popa
0086A508 7465 jz 0086A56F
0086A50A 205946 and [ecx+$46], bl
0086A50D 5F pop edi
0086A50E 4D dec ebp
0086A50F 6F outsd
0086A510 6E outsb
0086A511 65795F jns 0086A573
0086A514 43 inc ebx
0086A515 52 push edx
0086A516 2000 and [eax], al
0086A518 FFFF DB $FF, $FF //
0086A51A FFFF DB $FF, $FF //
0086A51C 0C00 or al, $00
0086A51E 0000 add [eax], al
0086A520 205365 and [ebx+$65], dl
0086A523 7420 jz 0086A545
0086A525 43 inc ebx
0086A526 6F outsd
0086A527 6E outsb
0086A528 69643D2700000000 imul esp, [ebp+edi+$27], $00000000
0086A530 FFFF DB $FF, $FF //
0086A532 FFFF DB $FF, $FF //
0086A534 0100 add [eax], eax
0086A536 0000 add [eax], al
0086A538 27 daa
0086A539 0000 add [eax], al
0086A53B 00FF add bh, bh
0086A53D FFFF DB $FF, $FF //
0086A53F FF08 dec dword ptr [eax]
0086A541 0000 add [eax], al
0086A543 002C43 add [ebx+eax*2], ch
0086A546 6F outsd
0086A547 6E outsb
0086A548 4E dec esi
0086A549 6F outsd
0086A54A 3D27000000 cmp eax, $00000027
0086A54F 00FF add bh, bh
0086A551 FFFF DB $FF, $FF //
0086A553 FF08 dec dword ptr [eax]
0086A555 0000 add [eax], al
0086A557 002C50 add [eax+edx*2], ch
0086A55A 7269 jb 0086A5C5
0086A55C 63653D arpl [ebp+$3D], sp
0086A55F 27 daa
0086A560 0000 add [eax], al
0086A562 0000 add [eax], al
0086A564 FFFF DB $FF, $FF //
0086A566 FFFF DB $FF, $FF //
0086A568 0900 or [eax], eax
0086A56A 0000 add [eax], al
0086A56C 2C45 sub al, $45
0086A56E 64697465723D270000 imul esi, fs:[ebp+$72], $0000273D
0086A577 00FF add bh, bh
0086A579 FFFF DB $FF, $FF //
0086A57B FF1400 call dword ptr [eax+eax]
0086A57E 0000 add [eax], al
0086A580 2C45 sub al, $45
0086A582 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
0086A58B 657464 jz 0086A5F2
0086A58E 61 popa
0086A58F 7465 jz 0086A5F6
0086A591 2829 sub [ecx], ch
0086A593 2000 and [eax], al
0086A595 0000 add [eax], al
0086A597 00FF add bh, bh
0086A599 FFFF DB $FF, $FF //
0086A59B FF0D00000020 dec dword ptr [$20000000]
0086A5A1 7768 jnbe 0086A60B
0086A5A3 657265 jb 0086A60B
0086A5A6 205946 and [ecx+$46], bl
0086A5A9 49 dec ecx
0086A5AA 643D27000000 cmp eax, $00000027
0086A5B0 FFFF DB $FF, $FF //
0086A5B2 FFFF DB $FF, $FF //
0086A5B4 0400 add al, +$00
0086A5B6 0000 add [eax], al
0086A5B8 59 pop ecx
0086A5B9 46 inc esi
0086A5BA 49 dec ecx
0086A5BB 640000 add fs:[eax], al
0086A5BE 0000 add [eax], al
0086A5C0 55 push ebp
0086A5C1 8BEC mov ebp, esp
0086A5C3 5D pop ebp
0086A5C4 C20800 ret $0008
0086A5C7 90 nop
0086A5C8 B201 mov dl, $01
* Reference to control Label20 : N.A.
|
0086A5CA 8B806C030000 mov eax, [eax+$036C]
* Reference to : TfrmSelExportField._PROC_007B84A4()
|
0086A5D0 E8CFDEF4FF call 007B84A4
0086A5D5 C3 ret
0086A5D6 8BC0 mov eax, eax
0086A5D8 33D2 xor edx, edx
* Reference to control Label20 : N.A.
|
0086A5DA 8B806C030000 mov eax, [eax+$036C]
* Reference to : TfrmSelExportField._PROC_007B84A4()
|
0086A5E0 E8BFDEF4FF call 007B84A4
0086A5E5 C3 ret
0086A5E6 8BC0 mov eax, eax
0086A5E8 55 push ebp
0086A5E9 8BEC mov ebp, esp
0086A5EB B904000000 mov ecx, $00000004
0086A5F0 6A00 push $00
0086A5F2 6A00 push $00
0086A5F4 49 dec ecx
0086A5F5 75F9 jnz 0086A5F0
0086A5F7 51 push ecx
0086A5F8 53 push ebx
0086A5F9 56 push esi
0086A5FA 57 push edi
0086A5FB 8945FC mov [ebp-$04], eax
0086A5FE 33C0 xor eax, eax
0086A600 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
0086A601 68FFA78600 push $0086A7FF
***** TRY
|
0086A606 64FF30 push dword ptr fs:[eax]
0086A609 648920 mov fs:[eax], esp
0086A60C 8B45FC mov eax, [ebp-$04]
* Reference to control Label20 : N.A.
|
0086A60F 8B806C030000 mov eax, [eax+$036C]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
0086A615 E8A6D8C5FF call 004C7EC0
0086A61A 84C0 test al, al
0086A61C 0F85BA010000 jnz 0086A7DC
0086A622 A010A88600 mov al, byte ptr [$0086A810]
0086A627 50 push eax
0086A628 8D45EC lea eax, [ebp-$14]
0086A62B B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
0086A62D E832E7BAFF call 00418D64
0086A632 8D4DEC lea ecx, [ebp-$14]
0086A635 8B45FC mov eax, [ebp-$04]
* Reference to control Label20 : N.A.
|
0086A638 8B806C030000 mov eax, [eax+$036C]
* Possible String Reference to: 'ssel'
|
0086A63E BA1CA88600 mov edx, $0086A81C
0086A643 8B18 mov ebx, [eax]
* Possible reference to virtual method TN.A..OFFS_0244
|
0086A645 FF9344020000 call dword ptr [ebx+$0244]
0086A64B 84C0 test al, al
0086A64D 751D jnz 0086A66C
0086A64F 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
0086A651 B924A88600 mov ecx, $0086A824
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
0086A656 BA2CA88600 mov edx, $0086A82C
*)
end;
procedure TfrmYSCRKP._PROC_0086AD45(Sender : TObject);
begin
(*
0086AD45 50 push eax
0086AD46 6461 popa
0086AD48 7465 jz 0086ADAF
0086AD4A 205946 and [ecx+$46], bl
0086AD4D 5F pop edi
0086AD4E 4D dec ebp
0086AD4F 6F outsd
0086AD50 6E outsb
0086AD51 65795F jns 0086ADB3
0086AD54 43 inc ebx
0086AD55 52 push edx
0086AD56 2000 and [eax], al
0086AD58 FFFF DB $FF, $FF //
0086AD5A FFFF DB $FF, $FF //
0086AD5C 0D00000020 or eax, $20000000
0086AD61 53 push ebx
0086AD62 657420 jz 0086AD85
0086AD65 4B dec ebx
0086AD66 50 push eax
0086AD67 54 push esp
0086AD68 7970 jns 0086ADDA
0086AD6A 653D27000000 cmp eax, $00000027
0086AD70 FFFF DB $FF, $FF //
0086AD72 FFFF DB $FF, $FF //
0086AD74 0100 add [eax], eax
0086AD76 0000 add [eax], al
0086AD78 27 daa
0086AD79 0000 add [eax], al
0086AD7B 00FF add bh, bh
0086AD7D FFFF DB $FF, $FF //
0086AD7F FF09 dec dword ptr [ecx]
0086AD81 0000 add [eax], al
0086AD83 002C4564697465 add [$65746964+eax*2], ch
0086AD8A 723D jb 0086ADC9
0086AD8C 27 daa
0086AD8D 0000 add [eax], al
0086AD8F 00FF add bh, bh
0086AD91 FFFF DB $FF, $FF //
0086AD93 FF1400 call dword ptr [eax+eax]
0086AD96 0000 add [eax], al
0086AD98 2C45 sub al, $45
0086AD9A 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
0086ADA3 657464 jz 0086AE0A
0086ADA6 61 popa
0086ADA7 7465 jz 0086AE0E
0086ADA9 2829 sub [ecx], ch
0086ADAB 2000 and [eax], al
0086ADAD 0000 add [eax], al
0086ADAF 00FF add bh, bh
0086ADB1 FFFF DB $FF, $FF //
0086ADB3 FF0D00000020 dec dword ptr [$20000000]
0086ADB9 7768 jnbe 0086AE23
0086ADBB 657265 jb 0086AE23
0086ADBE 205946 and [ecx+$46], bl
0086ADC1 49 dec ecx
0086ADC2 643D27000000 cmp eax, $00000027
0086ADC8 FFFF DB $FF, $FF //
0086ADCA FFFF DB $FF, $FF //
0086ADCC 0400 add al, +$00
0086ADCE 0000 add [eax], al
0086ADD0 59 pop ecx
0086ADD1 46 inc esi
0086ADD2 49 dec ecx
0086ADD3 640000 add fs:[eax], al
0086ADD6 0000 add [eax], al
0086ADD8 55 push ebp
0086ADD9 8BEC mov ebp, esp
0086ADDB 33C0 xor eax, eax
0086ADDD 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>]Ë<><C38B>-<2D>Z<EFBFBD>'
|
0086ADDE 68FDAD8600 push $0086ADFD
***** TRY
|
0086ADE3 64FF30 push dword ptr fs:[eax]
0086ADE6 648920 mov fs:[eax], esp
0086ADE9 FF05A85A8900 inc dword ptr [$00895AA8]
0086ADEF 33C0 xor eax, eax
0086ADF1 5A pop edx
0086ADF2 59 pop ecx
0086ADF3 59 pop ecx
0086ADF4 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-<2D>Z<EFBFBD>'
|
0086ADF7 6804AE8600 push $0086AE04
0086ADFC C3 ret
* Reference to: System.@HandleFinally;
|
0086ADFD E9F29CB9FF jmp 00404AF4
0086AE02 EBF8 jmp 0086ADFC
****** END
|
0086AE04 5D pop ebp
0086AE05 C3 ret
0086AE06 8BC0 mov eax, eax
0086AE08 832DA85A890001 sub dword ptr [$00895AA8], +$01
0086AE0F C3 ret
0086AE10 5C pop esp
0086AE11 AE scasb
0086AE12 8600 xchg [eax], al
0086AE14 0000 add [eax], al
0086AE16 0000 add [eax], al
0086AE18 0000 add [eax], al
0086AE1A 0000 add [eax], al
0086AE1C 50 push eax
0086AE1D AF scasd
0086AE1E 8600 xchg [eax], al
0086AE20 E4B7 in al, $B7
0086AE22 8600 xchg [eax], al
0086AE24 82AF860016B486 sub dword ptr [edi+$B4160086], $86
0086AE2B 0000 add [eax], al
*)
end;
procedure TfrmYSCRKP._PROC_0086AE76(Sender : TObject);
begin
(*
0086AE76 48 dec eax
0086AE77 0050D4 add [eax-$2C], dl
0086AE7A 42 inc edx
0086AE7B 0008 add [eax], cl
0086AE7D 2D4A007CD0 sub eax, $D07C004A
0086AE82 42 inc edx
0086AE83 00F4 add ah, dh
0086AE85 6B4A00D0 imul ecx, [edx+$00], $D0
0086AE89 1D4A0030F6 sbb eax, $F630004A
0086AE8E 48 dec eax
0086AE8F 004CFB48 add [ebx+edi*8+$48], cl
0086AE93 0098FA48000C add [eax+$C0048FA], bl
0086AE99 7948 jns 0086AEE3
0086AE9B 00ACF04800E829 add [eax+esi*8+$29E80048], ch
0086AEA2 4A dec edx
0086AEA3 00E4 add ah, ah
0086AEA5 ED in eax, dx
0086AEA6 48 dec eax
0086AEA7 00547848 add [eax+edi*2+$48], dl
0086AEAB 005878 add [eax+$78], bl
0086AEAE 48 dec eax
0086AEAF 00DC add ah, bl
0086AEB1 2A4A00 sub cl, byte ptr [edx+$00]
0086AEB4 3CA9 cmp al, $A9
0086AEB6 48 dec eax
0086AEB7 00C0 add al, al
0086AEB9 834800D0 or dword ptr [eax+$00], -$30
0086AEBD 7948 jns 0086AF07
0086AEBF 004C8548 add [ebp+eax*4+$48], cl
0086AEC3 00D0 add al, dl
0086AEC5 2C4A sub al, $4A
0086AEC7 009C2B4A008486 add [ebx+ebp+$8684004A], bl
0086AECE 48 dec eax
0086AECF 00482D add [eax+$2D], cl
0086AED2 4A dec edx
0086AED3 00C0 add al, al
0086AED5 A9480038EE test eax, $EE380048
0086AEDA 48 dec eax
0086AEDB 00F4 add ah, dh
0086AEDD EE out dx, al
0086AEDE 48 dec eax
0086AEDF 00F0 add al, dh
0086AEE1 E94800D8EE jmp EF5EAF2E
0086AEE6 48 dec eax
0086AEE7 00D8 add al, bl
0086AEE9 1B4A00 sbb ecx, [edx+$00]
0086AEEC EC in al, dx
0086AEED 334A00 xor ecx, [edx+$00]
0086AEF0 20C4 and ah, al
0086AEF2 48 dec eax
0086AEF3 00B0404A0010 add [eax+$10004A40], dh
0086AEF9 44 inc esp
0086AEFA 4A dec edx
0086AEFB 00CC add ah, cl
0086AEFD 42 inc edx
0086AEFE 4A dec edx
0086AEFF 00B8C44800BC add [eax+$BC0048C4], bh
0086AF05 C44800 les ecx, [eax+$00]
0086AF08 48 dec eax
0086AF09 45 inc ebp
0086AF0A 4A dec edx
0086AF0B 001CC3 add [ebx+eax*8], bl
0086AF0E 48 dec eax
0086AF0F 0018 add [eax], bl
0086AF11 F0 lock
0086AF12 48 dec eax
0086AF13 00444C4A add [esp+ecx*2+$4A], al
0086AF17 000C02 add [edx+eax], cl
0086AF1A 49 dec ecx
0086AF1B 0094EC48009C64 add [esp+ebp*8+$649C0048], dl
0086AF22 4A dec edx
0086AF23 008C154A003C18 add [ebp+edx+$183C004A], cl
0086AF2A 4A dec edx
0086AF2B 0038 add [eax], bh
0086AF2D 52 push edx
0086AF2E 4A dec edx
0086AF2F 005C224A add [edx+$4A], bl
0086AF33 00D8 add al, bl
0086AF35 224A00 and cl, byte ptr [edx+$00]
0086AF38 7C68 jl 0086AFA2
0086AF3A 4A dec edx
0086AF3B 00941F4A003C60 add [edi+ebx+$603C004A], dl
0086AF42 4A dec edx
0086AF43 001447 add [edi+eax*2], dl
0086AF46 4A dec edx
0086AF47 0034654A00CC2C add [$2CCC004A], dh
0086AF4E 4A dec edx
0086AF4F 000E add [esi], cl
0086AF51 0000 add [eax], al
0086AF53 0000 add [eax], al
0086AF55 000500000020 add [$20000000], al
0086AF5B 114000 adc [eax+$00], eax
0086AF5E 3404 xor al, $04
0086AF60 0000 add [eax], al
0086AF62 2011 and [ecx], dl
0086AF64 40 inc eax
0086AF65 0038 add [eax], bh
0086AF67 0400 add al, +$00
0086AF69 0020 add [eax], ah
0086AF6B 114000 adc [eax+$00], eax
0086AF6E 40 inc eax
0086AF6F 0400 add al, +$00
0086AF71 0020 add [eax], ah
0086AF73 114000 adc [eax+$00], eax
0086AF76 44 inc esp
0086AF77 0400 add al, +$00
0086AF79 0020 add [eax], ah
0086AF7B 114000 adc [eax+$00], eax
0086AF7E 48 dec eax
0086AF7F 0400 add al, +$00
0086AF81 004F00 add [edi+$00], cl
0086AF84 8BB78600F802 mov esi, [edi+$2F80086]
0086AF8A 0000 add [eax], al
0086AF8C 0000 add [eax], al
0086AF8E 08546F6F or [edi+ebp*2+$6F], dl
0086AF92 6C insb
0086AF93 42 inc edx
0086AF94 61 popa
0086AF95 7231 jb 0086AFC8
0086AF97 FC cld
0086AF98 0200 add al, byte ptr [eax]
0086AF9A 0001 add [ecx], al
0086AF9C 0009 add [ecx], cl
0086AF9E 54 push esp
0086AF9F 42 inc edx
0086AFA0 52 push edx
0086AFA1 61 popa
0086AFA2 667265 jb 0086B00A
0086AFA5 7368 jnb 0086B00F
0086AFA7 0003 add [ebx], al
0086AFA9 0000 add [eax], al
0086AFAB 0100 add [eax], eax
0086AFAD 0554424465 add eax, +$65444254
0086AFB2 6C insb
0086AFB3 0403 add al, +$03
0086AFB5 0000 add [eax], al
0086AFB7 0100 add [eax], eax
0086AFB9 07 pop es
0086AFBA 54 push esp
0086AFBB 42 inc edx
0086AFBC 43 inc ebx
0086AFBD 6C insb
0086AFBE 6F outsd
0086AFBF 7365 jnb 0086B026
0086AFC1 0803 or [ebx], al
0086AFC3 0000 add [eax], al
0086AFC5 0200 add al, byte ptr [eax]
0086AFC7 0C41 or al, $41
0086AFC9 44 inc esp
0086AFCA 4F dec edi
0086AFCB 51 push ecx
0086AFCC 7565 jnz 0086B033
0086AFCE 7279 jb 0086B049
0086AFD0 54 push esp
0086AFD1 656D insd
0086AFD3 700C jo 0086AFE1
0086AFD5 0300 add eax, [eax]
0086AFD7 0002 add [edx], al
0086AFD9 000B add [ebx], cl
0086AFDB 41 inc ecx
0086AFDC 44 inc esp
0086AFDD 4F dec edi
0086AFDE 51 push ecx
0086AFDF 7565 jnz 0086B046
0086AFE1 7279 jb 0086B05C
0086AFE3 43 inc ebx
0086AFE4 6D insd
0086AFE5 641003 adc fs:[ebx], al
0086AFE8 0000 add [eax], al
0086AFEA 0300 add eax, [eax]
0086AFEC 06 push es
0086AFED 50 push eax
0086AFEE 61 popa
0086AFEF 6E outsb
0086AFF0 656C insb
0086AFF2 311403 xor [ebx+eax], edx
0086AFF5 0000 add [eax], al
0086AFF7 0100 add [eax], eax
0086AFF9 0B546F6F or edx, [edi+ebp*2+$6F]
0086AFFD 6C insb
0086AFFE 42 inc edx
0086AFFF 7574 jnz 0086B075
0086B001 746F jz 0086B072
0086B003 6E outsb
0086B004 3218 xor bl, byte ptr [eax]
0086B006 0300 add eax, [eax]
0086B008 000400 add [eax+eax], al
0086B00B 06 push es
0086B00C 4C dec esp
0086B00D 61 popa
0086B00E 62656C bound esp, qword ptr [ebp+$6C]
0086B011 311C03 xor [ebx+eax], ebx
0086B014 0000 add [eax], al
0086B016 0200 add al, byte ptr [eax]
0086B018 0C41 or al, $41
0086B01A 44 inc esp
0086B01B 4F dec edi
0086B01C 51 push ecx
0086B01D 7565 jnz 0086B084
0086B01F 7279 jb 0086B09A
0086B021 4D dec ebp
0086B022 61 popa
0086B023 696E2003000001 imul ebp, [esi+$20], $01000003
0086B02A 000B add [ebx], cl
0086B02C 54 push esp
0086B02D 6F outsd
0086B02E 6F outsd
0086B02F 6C insb
0086B030 42 inc edx
0086B031 7574 jnz 0086B0A7
0086B033 746F jz 0086B0A4
0086B035 6E outsb
0086B036 312403 xor [ebx+eax], esp
0086B039 0000 add [eax], al
0086B03B 050003524D add eax, +$4D520300
0086B040 3128 xor [eax], ebp
0086B042 0300 add eax, [eax]
0086B044 0006 add [esi], al
0086B046 0009 add [ecx], cl
0086B048 52 push edx
0086B049 4D dec ebp
0086B04A 44 inc esp
0086B04B 42 inc edx
0086B04C 5F pop edi
0086B04D 4D dec ebp
0086B04E 61 popa
0086B04F 696E2C03000004 imul ebp, [esi+$2C], $04000003
0086B056 0006 add [esi], al
0086B058 4C dec esp
0086B059 61 popa
0086B05A 62656C bound esp, qword ptr [ebp+$6C]
0086B05D 3330 xor esi, [eax]
0086B05F 0300 add eax, [eax]
0086B061 0007 add [edi], al
0086B063 000B add [ebx], cl
0086B065 46 inc esi
0086B066 61 popa
0086B067 63746F72 arpl [edi+ebp*2+$72], si
0086B06B 794E jns 0086B0BB
0086B06D 61 popa
0086B06E 6D insd
0086B06F 653403 xor al, $03
0086B072 0000 add [eax], al
0086B074 0400 add al, +$00
0086B076 06 push es
0086B077 4C dec esp
0086B078 61 popa
0086B079 62656C bound esp, qword ptr [ebp+$6C]
0086B07C 3238 xor bh, byte ptr [eax]
0086B07E 0300 add eax, [eax]
0086B080 000400 add [eax+eax], al
0086B083 06 push es
0086B084 4C dec esp
0086B085 61 popa
0086B086 62656C bound esp, qword ptr [ebp+$6C]
0086B089 363C03 cmp al, $03
0086B08C 0000 add [eax], al
0086B08E 0800 or [eax], al
0086B090 07 pop es
0086B091 626567 bound esp, qword ptr [ebp+$67]
0086B094 6461 popa
0086B096 7465 jz 0086B0FD
0086B098 40 inc eax
0086B099 0300 add eax, [eax]
0086B09B 0008 add [eax], cl
0086B09D 0007 add [edi], al
0086B09F 45 inc ebp
0086B0A0 6E outsb
0086B0A1 646461 popa
0086B0A4 7465 jz 0086B10B
0086B0A6 44 inc esp
0086B0A7 0300 add eax, [eax]
0086B0A9 0009 add [ecx], cl
0086B0AB 0010 add [eax], dl
0086B0AD 637847 arpl [eax+$47], di
0086B0B0 7269 jb 0086B11B
0086B0B2 6450 push eax
0086B0B4 6F outsd
0086B0B5 7075 jo 0086B12C
0086B0B7 704D jo 0086B106
0086B0B9 656E outsb
0086B0BB 7532 jnz 0086B0EF
0086B0BD 48 dec eax
0086B0BE 0300 add eax, [eax]
0086B0C0 000A add [edx], cl
0086B0C2 000544535F48 add [$485F5344], al
0086B0C8 5A pop edx
0086B0C9 4C dec esp
0086B0CA 0300 add eax, [eax]
0086B0CC 000B add [ebx], cl
0086B0CE 0006 add [esi], al
0086B0D0 43 inc ebx
0086B0D1 44 inc esp
0086B0D2 53 push ebx
0086B0D3 5F pop edi
0086B0D4 48 dec eax
0086B0D5 5A pop edx
0086B0D6 50 push eax
0086B0D7 0300 add eax, [eax]
0086B0D9 0001 add [ecx], al
0086B0DB 000B add [ebx], cl
0086B0DD 54 push esp
0086B0DE 6F outsd
0086B0DF 6F outsd
0086B0E0 6C insb
0086B0E1 42 inc edx
0086B0E2 7574 jnz 0086B158
0086B0E4 746F jz 0086B155
0086B0E6 6E outsb
0086B0E7 33540300 xor edx, [ebx+eax+$00]
0086B0EB 0007 add [edi], al
0086B0ED 000A add [edx], cl
0086B0EF 50 push eax
0086B0F0 5F pop edi
0086B0F1 43 inc ebx
0086B0F2 6F outsd
0086B0F3 64654E dec esi
0086B0F6 61 popa
0086B0F7 6D insd
0086B0F8 6558 pop eax
0086B0FA 0300 add eax, [eax]
0086B0FC 000400 add [eax+eax], al
0086B0FF 06 push es
0086B100 4C dec esp
0086B101 61 popa
0086B102 62656C bound esp, qword ptr [ebp+$6C]
0086B105 345C xor al, $5C
0086B107 0300 add eax, [eax]
0086B109 0007 add [edi], al
0086B10B 0006 add [esi], al
0086B10D 50 push eax
0086B10E 5F pop edi
0086B10F 53 push ebx
0086B110 7065 jo 0086B177
0086B112 636003 arpl [eax+$03], sp
0086B115 0000 add [eax], al
0086B117 0400 add al, +$00
0086B119 06 push es
0086B11A 4C dec esp
0086B11B 61 popa
0086B11C 62656C bound esp, qword ptr [ebp+$6C]
0086B11F 3564030000 xor eax, $00000364
0086B124 0400 add al, +$00
0086B126 06 push es
0086B127 4C dec esp
0086B128 61 popa
0086B129 62656C bound esp, qword ptr [ebp+$6C]
0086B12C 37 aaa
0086B12D 6803000007 push $07000003
0086B132 000545646974 add [$74696445], al
0086B138 316C0300 xor [ebx+eax+$00], ebp
0086B13C 000C00 add [eax+eax], cl
0086B13F 07 pop es
0086B140 42 inc edx
0086B141 7574 jnz 0086B1B7
0086B143 746F jz 0086B1B4
0086B145 6E outsb
0086B146 317003 xor [eax+$03], esi
0086B149 0000 add [eax], al
0086B14B 0D00094368 or eax, $68430900
0086B150 65636B42 arpl gs:[ebx+$42], bp
0086B154 6F outsd
0086B155 7831 js 0086B188
0086B157 7403 jz 0086B15C
0086B159 0000 add [eax], al
0086B15B 07 pop es
0086B15C 0007 add [edi], al
0086B15E 6F outsd
0086B15F 7264 jb 0086B1C5
0086B161 65724E jb 0086B1B2
0086B164 6F outsd
0086B165 7803 js 0086B16A
0086B167 0000 add [eax], al
0086B169 0400 add al, +$00
0086B16B 06 push es
0086B16C 4C dec esp
0086B16D 61 popa
0086B16E 62656C bound esp, qword ptr [ebp+$6C]
0086B171 387C0300 cmp [ebx+eax+$00], bh
0086B175 0001 add [ecx], al
0086B177 000454 add [esp+edx*2], al
0086B17A 63686B arpl [eax+$6B], bp
0086B17D 800300 add byte ptr [ebx], $00
0086B180 000E add [esi], cl
0086B182 000D63785461 add [$61547863], cl
0086B188 62436F bound eax, qword ptr [ebx+$6F]
0086B18B 6E outsb
0086B18C 7472 jz 0086B200
0086B18E 6F outsd
0086B18F 6C insb
0086B190 31840300000F00 xor [ebx+eax+$F0000], eax
0086B197 07 pop es
0086B198 637847 arpl [eax+$47], di
0086B19B 7269 jb 0086B206
0086B19D 64328803000010 xor cl, byte ptr fs:[eax+$10000003]
0086B1A4 0003 add [ebx], al
0086B1A6 54 push esp
0086B1A7 7632 jbe 0086B1DB
0086B1A9 8C03 mov word ptr [ebx], es
0086B1AB 0000 add [eax], al
0086B1AD 1100 adc [eax], eax
0086B1AF 097632 or [esi+$32], esi
0086B1B2 43 inc ebx
0086B1B3 6F outsd
0086B1B4 6C insb
0086B1B5 756D jnz 0086B224
0086B1B7 6E outsb
0086B1B8 3590030000 xor eax, $00000390
0086B1BD 1100 adc [eax], eax
0086B1BF 0F637847 packusdw MM7, [eax+$47]
0086B1C3 7269 jb 0086B22E
0086B1C5 6444 inc esp
0086B1C7 42 inc edx
0086B1C8 43 inc ebx
0086B1C9 6F outsd
0086B1CA 6C insb
0086B1CB 756D jnz 0086B23A
0086B1CD 6E outsb
0086B1CE 31940300001100 xor [ebx+eax+$110000], edx
0086B1D5 097632 or [esi+$32], esi
0086B1D8 43 inc ebx
0086B1D9 6F outsd
0086B1DA 6C insb
0086B1DB 756D jnz 0086B24A
0086B1DD 6E outsb
0086B1DE 3698 cwde
0086B1E0 0300 add eax, [eax]
0086B1E2 0011 add [ecx], dl
0086B1E4 000F add [edi], cl
0086B1E6 637847 arpl [eax+$47], di
0086B1E9 7269 jb 0086B254
0086B1EB 6444 inc esp
0086B1ED 42 inc edx
0086B1EE 43 inc ebx
0086B1EF 6F outsd
0086B1F0 6C insb
0086B1F1 756D jnz 0086B260
0086B1F3 6E outsb
0086B1F4 339C0300001100 xor ebx, [ebx+eax+$110000]
0086B1FB 0476 add al, +$76
0086B1FD 325053 xor dl, byte ptr [eax+$53]
0086B200 A003000011 mov al, byte ptr [$11000003]
0086B205 000563785174 add [$74517863], al
0086B20B 79A4 jns 0086B1B1
0086B20D 0300 add eax, [eax]
0086B20F 0011 add [ecx], dl
0086B211 000F add [edi], cl
0086B213 637847 arpl [eax+$47], di
0086B216 7269 jb 0086B281
0086B218 6444 inc esp
0086B21A 42 inc edx
0086B21B 43 inc ebx
0086B21C 6F outsd
0086B21D 6C insb
0086B21E 756D jnz 0086B28D
0086B220 6E outsb
0086B221 36A803 test al, $03
0086B224 0000 add [eax], al
0086B226 1100 adc [eax], eax
0086B228 097632 or [esi+$32], esi
0086B22B 43 inc ebx
0086B22C 6F outsd
0086B22D 6C insb
0086B22E 756D jnz 0086B29D
0086B230 6E outsb
0086B231 31AC0300001100 xor [ebx+eax+$110000], ebp
0086B238 035642 add edx, [esi+$42]
0086B23B 5A pop edx
0086B23C B003 mov al, $03
0086B23E 0000 add [eax], al
0086B240 1100 adc [eax], eax
0086B242 06 push es
0086B243 56 push esi
0086B244 4D dec ebp
0086B245 6F outsd
0086B246 6E outsb
0086B247 6579B4 jns 0086B1FE
0086B24A 0300 add eax, [eax]
0086B24C 0011 add [ecx], dl
0086B24E 000476 add [esi+esi*2], al
0086B251 324B50 xor cl, byte ptr [ebx+$50]
0086B254 B803000011 mov eax, $11000003
0086B259 0007 add [edi], al
0086B25B 7632 jbe 0086B28F
0086B25D 43 inc ebx
0086B25E 6F outsd
0086B25F 6E outsb
0086B260 4E dec esi
0086B261 6F outsd
0086B262 BC03000011 mov esp, $11000003
0086B267 0008 add [eax], cl
0086B269 56 push esi
0086B26A 4F dec edi
0086B26B 7264 jb 0086B2D1
0086B26D 65724E jb 0086B2BE
0086B270 6F outsd
0086B271 C00300 rol byte ptr [ebx], $00
0086B274 0011 add [ecx], dl
0086B276 000C76 add [esi+esi*2], cl
0086B279 32505F xor dl, byte ptr [eax+$5F]
0086B27C 43 inc ebx
0086B27D 6F outsd
0086B27E 64654E dec esi
0086B281 61 popa
0086B282 6D insd
0086B283 65C403 les eax, gs:[ebx]
0086B286 0000 add [eax], al
0086B288 1100 adc [eax], eax
0086B28A 097632 or [esi+$32], esi
0086B28D 43 inc ebx
0086B28E 6F outsd
0086B28F 6C insb
0086B290 756D jnz 0086B2FF
0086B292 6E outsb
0086B293 34C8 xor al, $C8
0086B295 0300 add eax, [eax]
0086B297 0011 add [ecx], dl
0086B299 000B add [ebx], cl
0086B29B 7632 jbe 0086B2CF
0086B29D 43 inc ebx
0086B29E 6F outsd
0086B29F 6D insd
0086B2A0 54 push esp
0086B2A1 61 popa
0086B2A2 69746F75CC030000 imul esi, [edi+ebp*2+$75], $000003CC
0086B2AA 1100 adc [eax], eax
0086B2AC 087632 or [esi+$32], dh
0086B2AF 50 push eax
0086B2B0 42 inc edx
0086B2B1 4E dec esi
0086B2B2 6F outsd
0086B2B3 7465 jz 0086B31A
0086B2B5 D003 rol byte ptr [ebx], 1
0086B2B7 0000 add [eax], al
0086B2B9 1100 adc [eax], eax
0086B2BB 097632 or [esi+$32], esi
0086B2BE 43 inc ebx
0086B2BF 6F outsd
0086B2C0 6C insb
0086B2C1 756D jnz 0086B330
0086B2C3 6E outsb
0086B2C4 32D4 xor dl, ah
0086B2C6 0300 add eax, [eax]
0086B2C8 0012 add [edx], dl
0086B2CA 000C63 add [ebx], cl
0086B2CD 7847 js 0086B316
0086B2CF 7269 jb 0086B33A
0086B2D1 644C dec esp
0086B2D3 657665 jbe 0086B33B
0086B2D6 6C insb
0086B2D7 31D8 xor eax, ebx
0086B2D9 0300 add eax, [eax]
0086B2DB 000400 add [eax+eax], al
0086B2DE 07 pop es
0086B2DF 4C dec esp
0086B2E0 61 popa
0086B2E1 62656C bound esp, qword ptr [ebp+$6C]
0086B2E4 3130 xor [eax], esi
0086B2E6 DC03 fadd qword ptr [ebx]
0086B2E8 0000 add [eax], al
0086B2EA 07 pop es
0086B2EB 0007 add [edi], al
0086B2ED 46 inc esi
0086B2EE 656554 push esp
0086B2F1 7970 jns 0086B363
0086B2F3 65E003 loopn +$03
0086B2F6 0000 add [eax], al
0086B2F8 0400 add al, +$00
0086B2FA 07 pop es
0086B2FB 4C dec esp
0086B2FC 61 popa
0086B2FD 62656C bound esp, qword ptr [ebp+$6C]
0086B300 3135E4030000 xor [$000003E4], esi
0086B306 07 pop es
0086B307 000550726963 add [$63697250], al
0086B30D 65E803000013 call 1386B316
0086B313 0006 add [esi], al
0086B315 59 pop ecx
0086B316 46 inc esi
0086B317 4E dec esi
0086B318 61 popa
0086B319 6D insd
0086B31A 65EC in al, dx
0086B31C 0300 add eax, [eax]
0086B31E 0001 add [ecx], al
0086B320 0006 add [esi], al
0086B322 54 push esp
0086B323 6E outsb
0086B324 6F outsd
0086B325 63686B arpl [eax+$6B], bp
0086B328 F0 lock
0086B329 0300 add eax, [eax]
0086B32B 000400 add [eax+eax], al
0086B32E 07 pop es
0086B32F 4C dec esp
0086B330 61 popa
0086B331 62656C bound esp, qword ptr [ebp+$6C]
0086B334 3131 xor [ecx], esi
0086B336 F4 hlt
0086B337 0300 add eax, [eax]
0086B339 0007 add [edi], al
0086B33B 0005436F6E4E add [$4E6E6F43], al
0086B341 6F outsd
0086B342 F8 clc
0086B343 0300 add eax, [eax]
0086B345 000400 add [eax+eax], al
0086B348 07 pop es
0086B349 4C dec esp
0086B34A 61 popa
0086B34B 62656C bound esp, qword ptr [ebp+$6C]
0086B34E 3132 xor [edx], esi
0086B350 FC cld
0086B351 0300 add eax, [eax]
0086B353 000400 add [eax+eax], al
0086B356 07 pop es
0086B357 4C dec esp
0086B358 61 popa
0086B359 62656C bound esp, qword ptr [ebp+$6C]
0086B35C 3133 xor [ebx], esi
0086B35E 000400 add [eax+eax], al
0086B361 000400 add [eax+eax], al
0086B364 07 pop es
0086B365 4C dec esp
0086B366 61 popa
0086B367 62656C bound esp, qword ptr [ebp+$6C]
0086B36A 313404 xor [esp+eax], esi
0086B36D 0400 add al, +$00
0086B36F 000400 add [eax+eax], al
0086B372 07 pop es
0086B373 4C dec esp
0086B374 61 popa
0086B375 62656C bound esp, qword ptr [ebp+$6C]
0086B378 3136 xor [esi], esi
0086B37A 080400 or [eax+eax], al
0086B37D 0007 add [edi], al
0086B37F 0007 add [edi], al
0086B381 43 inc ebx
0086B382 686B4E6F74 push $746F4E6B
0086B387 650C04 or al, $04
0086B38A 0000 add [eax], al
*)
end;
procedure TfrmYSCRKP._PROC_0086B413(Sender : TObject);
begin
(*
0086B413 6E outsb
0086B414 69742000120064BD imul esi, [eax+$00], $BD640012
0086B41C 8600 xchg [eax], al
0086B41E 0B466F or eax, [esi+$6F]
0086B421 726D jb 0086B490
0086B423 44 inc esp
0086B424 657374 jnb 0086B49B
0086B427 726F jb 0086B498
0086B429 7910 jns 0086B43B
0086B42B 006CBD86 add [ebp+edi*4-$7A], ch
0086B42F 0009 add [ecx], cl
0086B431 46 inc esi
0086B432 6F outsd
0086B433 726D jb 0086B4A2
0086B435 43 inc ebx
0086B436 6C insb
0086B437 6F outsd
0086B438 7365 jnb 0086B49F
0086B43A 1300 adc eax, [eax]
0086B43C 70BD jo 0086B3FB
0086B43E 8600 xchg [eax], al
0086B440 0C54 or al, $54
0086B442 42 inc edx
0086B443 43 inc ebx
0086B444 6C insb
0086B445 6F outsd
0086B446 7365 jnb 0086B4AD
0086B448 43 inc ebx
0086B449 6C insb
0086B44A 69636B1100BCBD imul esp, [ebx+$6B], $BDBC0011
0086B451 8600 xchg [eax], al
0086B453 0A544244 or dl, byte ptr [edx+eax*2+$44]
0086B457 656C insb
0086B459 43 inc ebx
0086B45A 6C insb
0086B45B 69636B0F0070C0 imul esp, [ebx+$6B], $C070000F
0086B462 8600 xchg [eax], al
0086B464 08466F or [esi+$6F], al
0086B467 726D jb 0086B4D6
0086B469 53 push ebx
0086B46A 686F771500 push $0015776F
0086B46F 04C1 add al, -$3F
0086B471 8600 xchg [eax], al
0086B473 0E push cs
0086B474 54 push esp
0086B475 42 inc edx
0086B476 52 push edx
0086B477 61 popa
0086B478 667265 jb 0086B4E0
0086B47B 7368 jnb 0086B4E5
0086B47D 43 inc ebx
0086B47E 6C insb
0086B47F 69636B170020C1 imul esp, [ebx+$6B], $C1200017
0086B486 8600 xchg [eax], al
0086B488 10546F6F adc [edi+ebp*2+$6F], dl
0086B48C 6C insb
0086B48D 42 inc edx
0086B48E 7574 jnz 0086B504
0086B490 746F jz 0086B501
0086B492 6E outsb
0086B493 32436C xor al, byte ptr [ebx+$6C]
0086B496 69636B1800DCC1 imul esp, [ebx+$6B], $C1DC0018
0086B49D 8600 xchg [eax], al
0086B49F 114661 adc [esi+$61], eax
0086B4A2 63746F72 arpl [edi+ebp*2+$72], si
0086B4A6 794E jns 0086B4F6
0086B4A8 61 popa
0086B4A9 6D insd
0086B4AA 6543 inc ebx
0086B4AC 68616E6765 push $65676E61
0086B4B1 1300 adc eax, [eax]
0086B4B3 F0 lock
0086B4B4 C186000C427574 rol dword ptr [esi+$75420C00], $74
0086B4BB 746F jz 0086B52C
0086B4BD 6E outsb
0086B4BE 32436C xor al, byte ptr [ebx+$6C]
0086B4C1 69636B300044CD imul esp, [ebx+$6B], $CD440030
0086B4C8 8600 xchg [eax], al
0086B4CA 296378 sub dword ptr [ebx+$78], esp
0086B4CD 47 inc edi
0086B4CE 7269 jb 0086B539
0086B4D0 6444 inc esp
0086B4D2 42 inc edx
0086B4D3 43 inc ebx
0086B4D4 6F outsd
0086B4D5 6C insb
0086B4D6 756D jnz 0086B545
0086B4D8 6E outsb
0086B4D9 385072 cmp [eax+$72], dl
0086B4DC 6F outsd
0086B4DD 7065 jo 0086B544
0086B4DF 7274 jb 0086B555
0086B4E1 69657345646974 imul esp, [ebp+$73], $74696445
0086B4E8 56 push esi
0086B4E9 61 popa
0086B4EA 6C insb
0086B4EB 7565 jnz 0086B552
0086B4ED 43 inc ebx
0086B4EE 68616E6765 push $65676E61
0086B4F3 643000 xor fs:[eax], al
0086B4F6 10D0 adc al, dl
0086B4F8 8600 xchg [eax], al
0086B4FA 296378 sub dword ptr [ebx+$78], esp
0086B4FD 47 inc edi
0086B4FE 7269 jb 0086B569
0086B500 6444 inc esp
0086B502 42 inc edx
0086B503 43 inc ebx
0086B504 6F outsd
0086B505 6C insb
0086B506 756D jnz 0086B575
0086B508 6E outsb
0086B509 3550726F70 xor eax, $706F7250
0086B50E 657274 jb 0086B585
0086B511 69657345646974 imul esp, [ebp+$73], $74696445
0086B518 56 push esi
0086B519 61 popa
0086B51A 6C insb
0086B51B 7565 jnz 0086B582
0086B51D 43 inc ebx
0086B51E 68616E6765 push $65676E61
0086B523 643000 xor fs:[eax], al
0086B526 08D9 or cl, bl
0086B528 8600 xchg [eax], al
0086B52A 296378 sub dword ptr [ebx+$78], esp
0086B52D 47 inc edi
0086B52E 7269 jb 0086B599
0086B530 6444 inc esp
0086B532 42 inc edx
0086B533 43 inc ebx
0086B534 6F outsd
0086B535 6C insb
0086B536 756D jnz 0086B5A5
0086B538 6E outsb
0086B539 315072 xor [eax+$72], edx
0086B53C 6F outsd
0086B53D 7065 jo 0086B5A4
0086B53F 7274 jb 0086B5B5
0086B541 69657345646974 imul esp, [ebp+$73], $74696445
0086B548 56 push esi
0086B549 61 popa
0086B54A 6C insb
0086B54B 7565 jnz 0086B5B2
0086B54D 43 inc ebx
0086B54E 68616E6765 push $65676E61
0086B553 6417 pop ss
0086B555 00D4 add ah, dl
0086B557 DB860010546F fild dword ptr [esi+$6F541000]
0086B55D 6F outsd
0086B55E 6C insb
0086B55F 42 inc edx
0086B560 7574 jnz 0086B5D6
0086B562 746F jz 0086B5D3
0086B564 6E outsb
0086B565 33436C xor eax, [ebx+$6C]
0086B568 69636B2B0094DE imul esp, [ebx+$6B], $DE94002B
0086B56F 8600 xchg [eax], al
0086B571 2463 and al, $63
0086B573 7847 js 0086B5BC
0086B575 7269 jb 0086B5E0
0086B577 6444 inc esp
0086B579 42 inc edx
0086B57A 43 inc ebx
0086B57B 6F outsd
0086B57C 6C insb
0086B57D 756D jnz 0086B5EC
0086B57F 6E outsb
0086B580 335072 xor edx, [eax+$72]
0086B583 6F outsd
0086B584 7065 jo 0086B5EB
0086B586 7274 jb 0086B5FC
0086B588 69657342757474 imul esp, [ebp+$73], $74747542
0086B58F 6F outsd
0086B590 6E outsb
0086B591 43 inc ebx
0086B592 6C insb
0086B593 69636B2B0090E3 imul esp, [ebx+$6B], $E390002B
0086B59A 8600 xchg [eax], al
0086B59C 2463 and al, $63
0086B59E 7847 js 0086B5E7
0086B5A0 7269 jb 0086B60B
0086B5A2 6444 inc esp
0086B5A4 42 inc edx
0086B5A5 43 inc ebx
0086B5A6 6F outsd
0086B5A7 6C insb
0086B5A8 756D jnz 0086B617
0086B5AA 6E outsb
0086B5AB 3650 push eax
0086B5AD 726F jb 0086B61E
0086B5AF 7065 jo 0086B616
0086B5B1 7274 jb 0086B627
0086B5B3 69657342757474 imul esp, [ebp+$73], $74747542
0086B5BA 6F outsd
0086B5BB 6E outsb
0086B5BC 43 inc ebx
0086B5BD 6C insb
0086B5BE 69636B250070E7 imul esp, [ebx+$6B], $E7700025
0086B5C5 8600 xchg [eax], al
0086B5C7 1E push ds
0086B5C8 7632 jbe 0086B5FC
0086B5CA 43 inc ebx
0086B5CB 6F outsd
0086B5CC 6C insb
0086B5CD 756D jnz 0086B63C
0086B5CF 6E outsb
0086B5D0 335072 xor edx, [eax+$72]
0086B5D3 6F outsd
0086B5D4 7065 jo 0086B63B
0086B5D6 7274 jb 0086B64C
0086B5D8 69657342757474 imul esp, [ebp+$73], $74747542
0086B5DF 6F outsd
0086B5E0 6E outsb
0086B5E1 43 inc ebx
0086B5E2 6C insb
0086B5E3 69636B170038EB imul esp, [ebx+$6B], $EB380017
0086B5EA 8600 xchg [eax], al
0086B5EC 10546F6F adc [edi+ebp*2+$6F], dl
0086B5F0 6C insb
0086B5F1 42 inc edx
0086B5F2 7574 jnz 0086B668
0086B5F4 746F jz 0086B665
0086B5F6 6E outsb
0086B5F7 31436C xor [ebx+$6C], eax
0086B5FA 69636B250078EB imul esp, [ebx+$6B], $EB780025
0086B601 8600 xchg [eax], al
0086B603 1E push ds
0086B604 7632 jbe 0086B638
0086B606 43 inc ebx
0086B607 6F outsd
0086B608 6C insb
0086B609 756D jnz 0086B678
0086B60B 6E outsb
0086B60C 37 aaa
0086B60D 50 push eax
0086B60E 726F jb 0086B67F
0086B610 7065 jo 0086B677
0086B612 7274 jb 0086B688
0086B614 69657342757474 imul esp, [ebp+$73], $74747542
0086B61B 6F outsd
0086B61C 6E outsb
0086B61D 43 inc ebx
0086B61E 6C insb
0086B61F 69636B2500C8F1 imul esp, [ebx+$6B], $F1C80025
0086B626 8600 xchg [eax], al
0086B628 1E push ds
0086B629 7632 jbe 0086B65D
0086B62B 50 push eax
0086B62C 53 push ebx
0086B62D 50 push eax
0086B62E 726F jb 0086B69F
0086B630 7065 jo 0086B697
0086B632 7274 jb 0086B6A8
0086B634 69657345646974 imul esp, [ebp+$73], $74696445
0086B63B 56 push esi
0086B63C 61 popa
0086B63D 6C insb
0086B63E 7565 jnz 0086B6A5
0086B640 43 inc ebx
0086B641 68616E6765 push $65676E61
0086B646 642A00 sub al, byte ptr fs:[eax]
0086B649 6C insb
0086B64A F4 hlt
0086B64B 8600 xchg [eax], al
0086B64D 237632 and esi, [esi+$32]
0086B650 43 inc ebx
0086B651 6F outsd
0086B652 6C insb
0086B653 756D jnz 0086B6C2
0086B655 6E outsb
0086B656 325072 xor dl, byte ptr [eax+$72]
0086B659 6F outsd
0086B65A 7065 jo 0086B6C1
0086B65C 7274 jb 0086B6D2
0086B65E 69657345646974 imul esp, [ebp+$73], $74696445
0086B665 56 push esi
0086B666 61 popa
0086B667 6C insb
0086B668 7565 jnz 0086B6CF
0086B66A 43 inc ebx
0086B66B 68616E6765 push $65676E61
0086B670 642A00 sub al, byte ptr fs:[eax]
0086B673 EC in al, dx
0086B674 F686002376324B test byte ptr [esi+$32762300], $4B
0086B67B 50 push eax
0086B67C 4D dec ebp
0086B67D 6F outsd
0086B67E 6E outsb
0086B67F 657950 jns 0086B6D2
0086B682 726F jb 0086B6F3
0086B684 7065 jo 0086B6EB
0086B686 7274 jb 0086B6FC
0086B688 69657345646974 imul esp, [ebp+$73], $74696445
0086B68F 56 push esi
0086B690 61 popa
0086B691 6C insb
0086B692 7565 jnz 0086B6F9
0086B694 43 inc ebx
0086B695 68616E6765 push $65676E61
0086B69A 641300 adc eax, fs:[eax]
0086B69D 6C insb
0086B69E FB sti
0086B69F 8600 xchg [eax], al
0086B6A1 0C42 or al, $42
0086B6A3 7574 jnz 0086B719
0086B6A5 746F jz 0086B716
0086B6A7 6E outsb
0086B6A8 31436C xor [ebx+$6C], eax
0086B6AB 69636B1500E8FF imul esp, [ebx+$6B], $FFE80015
0086B6B2 8600 xchg [eax], al
0086B6B4 0E push cs
0086B6B5 43 inc ebx
0086B6B6 6865636B42 push $426B6365
0086B6BB 6F outsd
0086B6BC 7831 js 0086B6EF
0086B6BE 43 inc ebx
0086B6BF 6C insb
0086B6C0 69636B1A000002 imul esp, [ebx+$6B], $0200001A
0086B6C7 8700 xchg [eax], eax
0086B6C9 136378 adc esp, [ebx+$78]
0086B6CC 54 push esp
0086B6CD 61 popa
0086B6CE 62436F bound eax, qword ptr [ebx+$6F]
0086B6D1 6E outsb
0086B6D2 7472 jz 0086B746
0086B6D4 6F outsd
0086B6D5 6C insb
0086B6D6 314368 xor [ebx+$68], eax
0086B6D9 61 popa
0086B6DA 6E outsb
0086B6DB 67651100 adc gs:[bx+si], eax
0086B6DF 1402 adc al, $02
0086B6E1 8700 xchg [eax], eax
0086B6E3 0A466F or al, byte ptr [esi+$6F]
0086B6E6 726D jb 0086B755
0086B6E8 43 inc ebx
0086B6E9 7265 jb 0086B750
0086B6EB 61 popa
0086B6EC 7465 jz 0086B753
0086B6EE 1000 adc [eax], al
0086B6F0 9C pushf
0086B6F1 028700095463 add al, byte ptr [edi+$63540900]
0086B6F7 686B436C69 push $696C436B
0086B6FC 636B12 arpl [ebx+$12], bp
0086B6FF 00F0 add al, dh
0086B701 0587000B54 add eax, +$540B0087
0086B706 6E outsb
0086B707 6F outsd
0086B708 63686B arpl [eax+$6B], bp
0086B70B 43 inc ebx
0086B70C 6C insb
0086B70D 69636B1100BC08 imul esp, [ebx+$6B], $08BC0011
0086B714 8700 xchg [eax], eax
0086B716 0A6E6F or ch, byte ptr [esi+$6F]
0086B719 63686B arpl [eax+$6B], bp
0086B71C 43 inc ebx
0086B71D 6C insb
0086B71E 69636B2000740C imul esp, [ebx+$6B], $0C740020
0086B725 8700 xchg [eax], eax
0086B727 197632 sbb [esi+$32], esi
0086B72A 43 inc ebx
0086B72B 6F outsd
0086B72C 6C insb
0086B72D 756D jnz 0086B79C
0086B72F 6E outsb
0086B730 3550726F70 xor eax, $706F7250
0086B735 657274 jb 0086B7AC
0086B738 6965734368616E imul esp, [ebp+$73], $6E616843
0086B73F 67651A00 sbb al, byte ptr gs:[bx+si]
0086B743 0C0D or al, $0D
0086B745 8700 xchg [eax], eax
0086B747 136378 adc esp, [ebx+$78]
0086B74A 54 push esp
0086B74B 61 popa
0086B74C 62436F bound eax, qword ptr [ebx+$6F]
0086B74F 6E outsb
0086B750 7472 jz 0086B7C4
0086B752 6F outsd
0086B753 6C insb
0086B754 324368 xor al, byte ptr [ebx+$68]
0086B757 61 popa
0086B758 6E outsb
0086B759 67651100 adc gs:[bx+si], eax
0086B75D 200D87000A54 and [$540A0087], cl
0086B763 5A pop edx
0086B764 5A pop edx
0086B765 53 push ebx
0086B766 48 dec eax
0086B767 43 inc ebx
0086B768 6C insb
0086B769 69636B1100C80F imul esp, [ebx+$6B], $0FC80011
0086B770 8700 xchg [eax], eax
0086B772 0A54454A or dl, byte ptr [ebp+eax*2+$4A]
0086B776 43 inc ebx
0086B777 58 pop eax
0086B778 43 inc ebx
0086B779 6C insb
0086B77A 69636B0D546672 imul esp, [ebx+$6B], $7266540D
0086B781 6D insd
0086B782 59 pop ecx
0086B783 53 push ebx
0086B784 43 inc ebx
0086B785 52 push edx
0086B786 5F pop edi
0086B787 50 push eax
0086B788 42 inc edx
0086B789 53 push ebx
0086B78A 48 dec eax
0086B78B 1400 adc al, $00
0086B78D 28944500648A45 sub [ebp+eax*2+$458A6400], dl
0086B794 00B8124D0020 add [eax+$20004D12], bh
0086B79A 42 inc edx
0086B79B 44 inc esp
0086B79C 001C5F add [edi+ebx*2], bl
0086B79F 47 inc edi
0086B7A0 0064D378 add [ebx+edx*8+$78], ah
0086B7A4 00A80A7800B8 add [eax+$B800780A], ch
0086B7AA 6747 inc edi
0086B7AC 00E0 add al, ah
0086B7AE A5 movsd
0086B7AF 45 inc ebp
0086B7B0 005876 add [eax+$76], bl
0086B7B3 7C00 jl 0086B7B5
0086B7B5 087F4B or [edi+$4B], bh
0086B7B8 0088996A0000 add [eax+$6A99], cl
0086B7BE 8E4700 mov es, word ptr [edi+$00]
0086B7C1 C0964700645D57 rcl byte ptr [esi+$5D640047], $57
0086B7C8 0000 add [eax], al
*)
end;
end.
Reference in New Issue Copy Permalink