10198 lines
384 KiB
ObjectPascal
10198 lines
384 KiB
ObjectPascal
unit U_SKCR_SH;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Classes, Graphics,
|
||
Controls, Forms, Dialogs, StdCtrls
|
||
type
|
||
TfrmSKCR_SH=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;
|
||
cxGridLevel1: TcxGridLevel;
|
||
Label2: TLabel;
|
||
begdate: TDateTimePicker;
|
||
Enddate: TDateTimePicker;
|
||
cxGridPopupMenu2: TcxGridPopupMenu;
|
||
DS_HZ: TDataSource;
|
||
CDS_HZ: TClientDataSet;
|
||
ToolButton3: TToolButton;
|
||
VBZ: TcxGridDBColumn;
|
||
VYB: TcxGridDBColumn;
|
||
v2Column6: TcxGridDBColumn;
|
||
Label4: TLabel;
|
||
Money: TEdit;
|
||
v2Column1: TcxGridDBColumn;
|
||
v2DerateMoney: TcxGridDBColumn;
|
||
tchk: TToolButton;
|
||
tnochk: TToolButton;
|
||
cxTabControl1: TcxTabControl;
|
||
v2Ssel: TcxGridDBColumn;
|
||
v2ComTaitou: TcxGridDBColumn;
|
||
nochk: TToolButton;
|
||
TSD: TToolButton;
|
||
v2IFSD: TcxGridDBColumn;
|
||
PopupMenu1: TPopupMenu;
|
||
N1: TMenuItem;
|
||
N2: TMenuItem;
|
||
Label10: TLabel;
|
||
Label12: TLabel;
|
||
ChkNote: TEdit;
|
||
Label17: TLabel;
|
||
CheckBox1: TCheckBox;
|
||
v2KHDKMoney: TcxGridDBColumn;
|
||
cxStyleRepository1: TcxStyleRepository;
|
||
cxStyle1: TcxStyle;
|
||
Label5: TLabel;
|
||
note: TEdit;
|
||
v2SXMoney: TcxGridDBColumn;
|
||
v2HxNum: TcxGridDBColumn;
|
||
v2Huilv: TcxGridDBColumn;
|
||
v2KPStatus: TcxGridDBColumn;
|
||
Label6: TLabel;
|
||
OrderNo: TEdit;
|
||
v2COrderNo: 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 v2Column4PropertiesEditValueChanged(Sender : TObject);
|
||
procedure v2Column1PropertiesButtonClick(Sender : TObject);
|
||
procedure VBBPropertiesEditValueChanged(Sender : TObject);
|
||
procedure MoneyChange(Sender : TObject);
|
||
procedure v2Column1PropertiesEditValueChanged(Sender : TObject);
|
||
procedure v2DerateMoneyPropertiesEditValueChanged(Sender : TObject);
|
||
procedure tchkClick(Sender : TObject);
|
||
procedure tnochkClick(Sender : TObject);
|
||
procedure cxTabControl1Change(Sender : TObject);
|
||
procedure nochkClick(Sender : TObject);
|
||
procedure TSDClick(Sender : TObject);
|
||
procedure N1Click(Sender : TObject);
|
||
procedure N2Click(Sender : TObject);
|
||
procedure v2SselPropertiesChange(Sender : TObject);
|
||
procedure CheckBox1Click(Sender : TObject);
|
||
procedure _PROC_0083A7C9(Sender : TObject);
|
||
procedure _PROC_0083B2C5(Sender : TObject);
|
||
procedure _PROC_0083BAE9(Sender : TObject);
|
||
procedure _PROC_0083BEA5(Sender : TObject);
|
||
procedure _PROC_0083C699(Sender : TObject);
|
||
procedure _PROC_0083C9ED(Sender : TObject);
|
||
procedure _PROC_0083D149(Sender : TObject);
|
||
procedure _PROC_0083D466(Sender : TObject);
|
||
procedure _PROC_0083D49C(Sender : TObject);
|
||
procedure _PROC_0083D4A9(Sender : TObject);
|
||
procedure _PROC_0083D7ED(Sender : TObject);
|
||
procedure _PROC_0083DE11(Sender : TObject);
|
||
procedure _PROC_0083E241(Sender : TObject);
|
||
procedure _PROC_0083E635(Sender : TObject);
|
||
procedure _PROC_0083E8E1(Sender : TObject);
|
||
procedure _PROC_0083EAF5(Sender : TObject);
|
||
procedure _PROC_0083F745(Sender : TObject);
|
||
procedure _PROC_0083F774(Sender : TObject);
|
||
procedure _PROC_0083F77C(Sender : TObject);
|
||
procedure _PROC_0083F78B(Sender : TObject);
|
||
procedure _PROC_0083F79F(Sender : TObject);
|
||
procedure _PROC_0083F7E2(Sender : TObject);
|
||
procedure _PROC_0083FFDF(Sender : TObject);
|
||
private
|
||
{ Private declarations }
|
||
public
|
||
{ Public declarations }
|
||
end ;
|
||
|
||
var
|
||
frmSKCR_SH: TfrmSKCR_SH;
|
||
|
||
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
|
||
|
||
implementation
|
||
|
||
{$R *.DFM}
|
||
|
||
procedure TfrmSKCR_SH.FormDestroy(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083ACD8 33C0 xor eax, eax
|
||
|
||
* Reference to GlobalVar_00895A30
|
||
|
|
||
0083ACDA A3305A8900 mov dword ptr [$00895A30], eax
|
||
0083ACDF C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.FormClose(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083ACE0 C60102 mov byte ptr [ecx], $02
|
||
0083ACE3 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.TBCloseClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083ACE4 53 push ebx
|
||
0083ACE5 8BD8 mov ebx, eax
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
||
|
|
||
0083ACE7 B910AD8300 mov ecx, $0083AD10
|
||
|
||
* Reference to control TfrmSKCR_SH.Tv2 : TcxGridDBTableView
|
||
|
|
||
0083ACEC 8B933C030000 mov edx, [ebx+$033C]
|
||
|
||
* Possible String Reference to: '<27>տ<EFBFBD><D5BF>Ǽ<EFBFBD>1'
|
||
|
|
||
0083ACF2 B824AD8300 mov eax, $0083AD24
|
||
|
||
|
|
||
0083ACF7 E8A4CEF7FF call 007B7BA0
|
||
0083ACFC 8BC3 mov eax, ebx
|
||
|
||
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
||
|
|
||
0083ACFE E895B2C6FF call 004A5F98
|
||
0083AD03 5B pop ebx
|
||
0083AD04 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.TBDelClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083AD30 55 push ebp
|
||
0083AD31 8BEC mov ebp, esp
|
||
0083AD33 33C9 xor ecx, ecx
|
||
0083AD35 51 push ecx
|
||
0083AD36 51 push ecx
|
||
0083AD37 51 push ecx
|
||
0083AD38 51 push ecx
|
||
0083AD39 51 push ecx
|
||
0083AD3A 51 push ecx
|
||
0083AD3B 51 push ecx
|
||
0083AD3C 51 push ecx
|
||
0083AD3D 53 push ebx
|
||
0083AD3E 56 push esi
|
||
0083AD3F 57 push edi
|
||
0083AD40 8945FC mov [ebp-$04], eax
|
||
0083AD43 33C0 xor eax, eax
|
||
0083AD45 55 push ebp
|
||
|
||
* Possible String Reference to: '鸛<><E9B89B><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
0083AD46 6837AF8300 push $0083AF37
|
||
|
||
***** TRY
|
||
|
|
||
0083AD4B 64FF30 push dword ptr fs:[eax]
|
||
0083AD4E 648920 mov fs:[eax], esp
|
||
0083AD51 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083AD54 8B8060030000 mov eax, [eax+$0360]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0083AD5A E861D1C8FF call 004C7EC0
|
||
0083AD5F 84C0 test al, al
|
||
0083AD61 0F85AD010000 jnz 0083AF14
|
||
0083AD67 A048AF8300 mov al, byte ptr [$0083AF48]
|
||
0083AD6C 50 push eax
|
||
0083AD6D 8D45EC lea eax, [ebp-$14]
|
||
0083AD70 B201 mov dl, $01
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
0083AD72 E8EDDFBDFF call 00418D64
|
||
0083AD77 8D4DEC lea ecx, [ebp-$14]
|
||
0083AD7A 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083AD7D 8B8060030000 mov eax, [eax+$0360]
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
0083AD83 BA54AF8300 mov edx, $0083AF54
|
||
0083AD88 8B18 mov ebx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
||
|
|
||
0083AD8A FF9344020000 call dword ptr [ebx+$0244]
|
||
0083AD90 84C0 test al, al
|
||
0083AD92 751D jnz 0083ADB1
|
||
0083AD94 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
0083AD96 B95CAF8300 mov ecx, $0083AF5C
|
||
|
||
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
||
|
|
||
0083AD9B BA64AF8300 mov edx, $0083AF64
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.FormShow(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083AFE4 53 push ebx
|
||
0083AFE5 8BD8 mov ebx, eax
|
||
0083AFE7 33C0 xor eax, eax
|
||
|
||
* Reference to field TfrmSKCR_SH.OFFS_03F4
|
||
|
|
||
0083AFE9 8983F4030000 mov [ebx+$03F4], eax
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
||
|
|
||
0083AFEF B95CB08300 mov ecx, $0083B05C
|
||
|
||
* Reference to control TfrmSKCR_SH.Tv2 : TcxGridDBTableView
|
||
|
|
||
0083AFF4 8B933C030000 mov edx, [ebx+$033C]
|
||
|
||
* Possible String Reference to: '<27>տ<EFBFBD><D5BF>Ǽ<EFBFBD>'
|
||
|
|
||
0083AFFA B870B08300 mov eax, $0083B070
|
||
|
||
|
|
||
0083AFFF E8A0C9F7FF call 007B79A4
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryTemp : TADOQuery
|
||
|
|
||
0083B004 8B8308030000 mov eax, [ebx+$0308]
|
||
|
||
|
|
||
0083B00A E87999F7FF call 007B4988
|
||
0083B00F 83C4F8 add esp, -$08
|
||
0083B012 DD1C24 fstp qword ptr [esp]
|
||
0083B015 9B wait
|
||
|
||
* Reference to control TfrmSKCR_SH.Enddate : TDateTimePicker
|
||
|
|
||
0083B016 8B8354030000 mov eax, [ebx+$0354]
|
||
|
||
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
||
|
|
||
0083B01C E80B72C3FF call 0047222C
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryTemp : TADOQuery
|
||
|
|
||
0083B021 8B8308030000 mov eax, [ebx+$0308]
|
||
|
||
|
|
||
0083B027 E85C99F7FF call 007B4988
|
||
0083B02C D8257CB08300 fsub dword ptr [$0083B07C]
|
||
0083B032 83C4F8 add esp, -$08
|
||
0083B035 DD1C24 fstp qword ptr [esp]
|
||
0083B038 9B wait
|
||
|
||
* Reference to control TfrmSKCR_SH.begdate : TDateTimePicker
|
||
|
|
||
0083B039 8B8350030000 mov eax, [ebx+$0350]
|
||
|
||
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
||
|
|
||
0083B03F E8E871C3FF call 0047222C
|
||
0083B044 8BC3 mov eax, ebx
|
||
|
||
|
|
||
0083B046 E83DF6FFFF call 0083A688
|
||
0083B04B 8BC3 mov eax, ebx
|
||
|
||
|
|
||
0083B04D E876F7FFFF call 0083A7C8
|
||
0083B052 5B pop ebx
|
||
0083B053 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.TBRafreshClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
|
||
|
|
||
0083B080 E843F7FFFF call 0083A7C8
|
||
0083B085 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.ToolButton2Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083B088 55 push ebp
|
||
0083B089 8BEC mov ebp, esp
|
||
0083B08B 6A00 push $00
|
||
0083B08D 53 push ebx
|
||
0083B08E 8BD8 mov ebx, eax
|
||
0083B090 33C0 xor eax, eax
|
||
0083B092 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>ә<EFBFBD><D399><EFBFBD><EFBFBD>[Y]<5D>'
|
||
|
|
||
0083B093 681CB18300 push $0083B11C
|
||
|
||
***** TRY
|
||
|
|
||
0083B098 64FF30 push dword ptr fs:[eax]
|
||
0083B09B 648920 mov fs:[eax], esp
|
||
0083B09E BA30B18300 mov edx, $0083B130
|
||
|
||
* Reference to control TfrmSKCR_SH.Label12 : TLabel
|
||
|
|
||
0083B0A3 8B83B4030000 mov eax, [ebx+$03B4]
|
||
|
||
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
||
|
|
||
0083B0A9 E872D5C4FF call 00488620
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryMain : TADOQuery
|
||
|
|
||
0083B0AE 8B8320030000 mov eax, [ebx+$0320]
|
||
|
||
* Reference to: DB.TDataSet.GetActive(TDataSet):Boolean;
|
||
|
|
||
0083B0B4 E85BA9C8FF call 004C5A14
|
||
0083B0B9 84C0 test al, al
|
||
0083B0BB 7449 jz 0083B106
|
||
0083B0BD 8D45FC lea eax, [ebp-$04]
|
||
0083B0C0 50 push eax
|
||
0083B0C1 B902000000 mov ecx, $00000002
|
||
0083B0C6 BA01000000 mov edx, $00000001
|
||
|
||
* Reference to control TfrmSKCR_SH.Panel1 : TPanel
|
||
|
|
||
0083B0CB 8B8310030000 mov eax, [ebx+$0310]
|
||
|
||
|
|
||
0083B0D1 E8DAAFF7FF call 007B60B0
|
||
0083B0D6 8B55FC mov edx, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryMain : TADOQuery
|
||
|
|
||
0083B0D9 8B8320030000 mov eax, [ebx+$0320]
|
||
|
||
|
|
||
0083B0DF E8E4BBF7FF call 007B6CC8
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083B0E4 8B9360030000 mov edx, [ebx+$0360]
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryMain : TADOQuery
|
||
|
|
||
0083B0EA 8B8320030000 mov eax, [ebx+$0320]
|
||
|
||
|
|
||
0083B0F0 E89BBDF7FF call 007B6E90
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083B0F5 8B9360030000 mov edx, [ebx+$0360]
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryMain : TADOQuery
|
||
|
|
||
0083B0FB 8B8320030000 mov eax, [ebx+$0320]
|
||
|
||
|
|
||
0083B101 E812BFF7FF call 007B7018
|
||
0083B106 33C0 xor eax, eax
|
||
0083B108 5A pop edx
|
||
0083B109 59 pop ecx
|
||
0083B10A 59 pop ecx
|
||
0083B10B 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '[Y]<5D>'
|
||
|
|
||
0083B10E 6823B18300 push $0083B123
|
||
0083B113 8D45FC lea eax, [ebp-$04]
|
||
|
||
* Reference to: System.@LStrClr(void;void);
|
||
|
|
||
0083B116 E809A2BCFF call 00405324
|
||
0083B11B C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
0083B11C E9D399BCFF jmp 00404AF4
|
||
0083B121 EBF0 jmp 0083B113
|
||
|
||
****** END
|
||
|
|
||
0083B123 5B pop ebx
|
||
0083B124 59 pop ecx
|
||
0083B125 5D pop ebp
|
||
0083B126 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.FactoryNameChange(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083B134 56 push esi
|
||
|
||
* Reference to control TfrmSKCR_SH.ToolButton2 : TToolButton
|
||
|
|
||
0083B135 8B8014030000 mov eax, [eax+$0314]
|
||
0083B13B 66BEEBFF mov si, $FFEB
|
||
|
||
* Reference to: System.@CallDynaInst;
|
||
|
|
||
0083B13F E81094BCFF call 00404554
|
||
0083B144 5E pop esi
|
||
0083B145 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.Button2Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083B148 55 push ebp
|
||
0083B149 8BEC mov ebp, esp
|
||
0083B14B 33C9 xor ecx, ecx
|
||
0083B14D 51 push ecx
|
||
0083B14E 51 push ecx
|
||
0083B14F 51 push ecx
|
||
0083B150 51 push ecx
|
||
0083B151 51 push ecx
|
||
0083B152 53 push ebx
|
||
0083B153 56 push esi
|
||
0083B154 8BD8 mov ebx, eax
|
||
0083B156 33C0 xor eax, eax
|
||
0083B158 55 push ebp
|
||
|
||
* Possible String Reference to: '隘<><E99A98><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0083B159 6855B28300 push $0083B255
|
||
|
||
***** TRY
|
||
|
|
||
0083B15E 64FF30 push dword ptr fs:[eax]
|
||
0083B161 648920 mov fs:[eax], esp
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083B164 8B8360030000 mov eax, [ebx+$0360]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0083B16A E851CDC8FF call 004C7EC0
|
||
0083B16F 84C0 test al, al
|
||
0083B171 0F85C3000000 jnz 0083B23A
|
||
0083B177 6A24 push $24
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
0083B179 B964B28300 mov ecx, $0083B264
|
||
|
||
* Possible String Reference to: 'ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
||
|
|
||
0083B17E BA6CB28300 mov edx, $0083B26C
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.cxGridDBColumn8PropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083BC80 55 push ebp
|
||
0083BC81 8BEC mov ebp, esp
|
||
0083BC83 B908000000 mov ecx, $00000008
|
||
0083BC88 6A00 push $00
|
||
0083BC8A 6A00 push $00
|
||
0083BC8C 49 dec ecx
|
||
0083BC8D 75F9 jnz 0083BC88
|
||
0083BC8F 51 push ecx
|
||
0083BC90 53 push ebx
|
||
0083BC91 56 push esi
|
||
0083BC92 8BDA mov ebx, edx
|
||
0083BC94 8BF0 mov esi, eax
|
||
0083BC96 33C0 xor eax, eax
|
||
0083BC98 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>a<EFBFBD><61><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0083BC99 688EBE8300 push $0083BE8E
|
||
|
||
***** TRY
|
||
|
|
||
0083BC9E 64FF30 push dword ptr fs:[eax]
|
||
0083BCA1 648920 mov fs:[eax], esp
|
||
0083BCA4 8D55FC lea edx, [ebp-$04]
|
||
0083BCA7 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;
|
||
|
|
||
0083BCA9 E80E3AD5FF call 0058F6BC
|
||
|
||
* Reference to control TfrmSKCR_SH.Tv2 : TcxGridDBTableView
|
||
|
|
||
0083BCAE 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;
|
||
|
|
||
0083BCB4 E89306E2FF 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;
|
||
|
|
||
0083BCB9 E8A65EE1FF call 00651B64
|
||
|
||
* Reference to field TcxGridDBTableView.OFFS_0050
|
||
|
|
||
0083BCBE 8B4050 mov eax, [eax+$50]
|
||
0083BCC1 8D55F4 lea edx, [ebp-$0C]
|
||
0083BCC4 8B08 mov ecx, [eax]
|
||
0083BCC6 FF5110 call dword ptr [ecx+$10]
|
||
0083BCC9 8B45F4 mov eax, [ebp-$0C]
|
||
0083BCCC 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083BCCF E818ECBCFF call 0040A8EC
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083BCD4 8B9E60030000 mov ebx, [esi+$0360]
|
||
0083BCDA 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0083BCDC E85FC7C8FF call 004C8440
|
||
0083BCE1 8D55E0 lea edx, [ebp-$20]
|
||
0083BCE4 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083BCE7 E800ECBCFF call 0040A8EC
|
||
0083BCEC 8B55E0 mov edx, [ebp-$20]
|
||
0083BCEF 8D45E4 lea eax, [ebp-$1C]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0083BCF2 E8D1D0BDFF call 00418DC8
|
||
0083BCF7 8D45E4 lea eax, [ebp-$1C]
|
||
0083BCFA 50 push eax
|
||
0083BCFB 8B55F8 mov edx, [ebp-$08]
|
||
0083BCFE 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083BD00 E8AFAEC8FF call 004C6BB4
|
||
0083BD05 5A pop edx
|
||
0083BD06 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
0083BD08 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0083BD0E 8BC3 mov eax, ebx
|
||
0083BD10 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
0083BD12 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryCmd : TADOQuery
|
||
|
|
||
0083BD18 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0083BD1E 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083BD20 E8AF9BC8FF call 004C58D4
|
||
0083BD25 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083BD27 E88022CAFF call 004DDFAC
|
||
0083BD2C 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0083BD2E FF5244 call dword ptr [edx+$44]
|
||
0083BD31 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083BD33 E87422CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YCL_SG_HZ '
|
||
|
|
||
0083BD38 BAA4BE8300 mov edx, $0083BEA4
|
||
0083BD3D 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083BD3F FF5138 call dword ptr [ecx+$38]
|
||
0083BD42 8D55DC lea edx, [ebp-$24]
|
||
0083BD45 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083BD48 E89FEBBCFF call 0040A8EC
|
||
0083BD4D 837DDC00 cmp dword ptr [ebp-$24], +$00
|
||
0083BD51 7440 jz 0083BD93
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0083BD53 68C0BE8300 push $0083BEC0
|
||
0083BD58 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=''
|
||
|
|
||
0083BD5B 68D0BE8300 push $0083BED0
|
||
0083BD60 8D55D4 lea edx, [ebp-$2C]
|
||
0083BD63 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083BD66 E881EBBCFF call 0040A8EC
|
||
0083BD6B FF75D4 push dword ptr [ebp-$2C]
|
||
0083BD6E 68DCBE8300 push $0083BEDC
|
||
0083BD73 8D45D8 lea eax, [ebp-$28]
|
||
0083BD76 BA05000000 mov edx, $00000005
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083BD7B E83499BCFF call 004056B4
|
||
0083BD80 8B45D8 mov eax, [ebp-$28]
|
||
0083BD83 50 push eax
|
||
0083BD84 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083BD86 E82122CAFF call 004DDFAC
|
||
0083BD8B 5A pop edx
|
||
0083BD8C 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083BD8E FF5138 call dword ptr [ecx+$38]
|
||
0083BD91 EB2B jmp 0083BDBE
|
||
0083BD93 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083BD95 E81222CAFF call 004DDFAC
|
||
0083BD9A 50 push eax
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0083BD9B 68C0BE8300 push $0083BEC0
|
||
0083BDA0 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=NULL'
|
||
|
|
||
0083BDA3 68E8BE8300 push $0083BEE8
|
||
0083BDA8 8D45D0 lea eax, [ebp-$30]
|
||
0083BDAB BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083BDB0 E8FF98BCFF call 004056B4
|
||
0083BDB5 8B55D0 mov edx, [ebp-$30]
|
||
0083BDB8 58 pop eax
|
||
0083BDB9 8B08 mov ecx, [eax]
|
||
0083BDBB FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
0083BDBE 68F8BE8300 push $0083BEF8
|
||
0083BDC3 8D55C8 lea edx, [ebp-$38]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.cxGridDBColumn5PropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083BF4C 55 push ebp
|
||
0083BF4D 8BEC mov ebp, esp
|
||
0083BF4F B91C000000 mov ecx, $0000001C
|
||
0083BF54 6A00 push $00
|
||
0083BF56 6A00 push $00
|
||
0083BF58 49 dec ecx
|
||
0083BF59 75F9 jnz 0083BF54
|
||
0083BF5B 51 push ecx
|
||
0083BF5C 53 push ebx
|
||
0083BF5D 56 push esi
|
||
0083BF5E 8BF2 mov esi, edx
|
||
0083BF60 8BD8 mov ebx, eax
|
||
0083BF62 33C0 xor eax, eax
|
||
0083BF64 55 push ebp
|
||
0083BF65 68C7C58300 push $0083C5C7
|
||
|
||
***** TRY
|
||
|
|
||
0083BF6A 64FF30 push dword ptr fs:[eax]
|
||
0083BF6D 648920 mov fs:[eax], esp
|
||
0083BF70 8D55FC lea edx, [ebp-$04]
|
||
0083BF73 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;
|
||
|
|
||
0083BF75 E84237D5FF call 0058F6BC
|
||
0083BF7A 8D55DC lea edx, [ebp-$24]
|
||
0083BF7D 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083BF80 E867E9BCFF call 0040A8EC
|
||
0083BF85 837DDC00 cmp dword ptr [ebp-$24], +$00
|
||
0083BF89 750D jnz 0083BF98
|
||
0083BF8B 8D45FC lea eax, [ebp-$04]
|
||
0083BF8E BADCC58300 mov edx, $0083C5DC
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083BF93 E82494BCFF call 004053BC
|
||
|
||
* Reference to control TfrmSKCR_SH.Tv2 : TcxGridDBTableView
|
||
|
|
||
0083BF98 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;
|
||
|
|
||
0083BF9E E8A903E2FF 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;
|
||
|
|
||
0083BFA3 E8BC5BE1FF call 00651B64
|
||
|
||
* Reference to field TcxGridDBTableView.OFFS_0050
|
||
|
|
||
0083BFA8 8B4050 mov eax, [eax+$50]
|
||
0083BFAB 8D55D8 lea edx, [ebp-$28]
|
||
0083BFAE 8B08 mov ecx, [eax]
|
||
0083BFB0 FF5110 call dword ptr [ecx+$10]
|
||
0083BFB3 8B45D8 mov eax, [ebp-$28]
|
||
0083BFB6 8D55E0 lea edx, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083BFB9 E82EE9BCFF call 0040A8EC
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083BFBE 8BB360030000 mov esi, [ebx+$0360]
|
||
0083BFC4 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0083BFC6 E875C4C8FF call 004C8440
|
||
0083BFCB 8D55C4 lea edx, [ebp-$3C]
|
||
0083BFCE 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083BFD1 E816E9BCFF call 0040A8EC
|
||
0083BFD6 8B55C4 mov edx, [ebp-$3C]
|
||
0083BFD9 8D45C8 lea eax, [ebp-$38]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0083BFDC E8E7CDBDFF call 00418DC8
|
||
0083BFE1 8D45C8 lea eax, [ebp-$38]
|
||
0083BFE4 50 push eax
|
||
0083BFE5 8B55E0 mov edx, [ebp-$20]
|
||
0083BFE8 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083BFEA E8C5ABC8FF call 004C6BB4
|
||
0083BFEF 5A pop edx
|
||
0083BFF0 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
0083BFF2 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0083BFF8 8BC6 mov eax, esi
|
||
0083BFFA 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
0083BFFC FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryTemp : TADOQuery
|
||
|
|
||
0083C002 8BB308030000 mov esi, [ebx+$0308]
|
||
0083C008 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083C00A E8C598C8FF call 004C58D4
|
||
0083C00F 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083C011 E8961FCAFF call 004DDFAC
|
||
0083C016 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0083C018 FF5244 call dword ptr [edx+$44]
|
||
|
||
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
|
||
| om YF_Money_CR where YFID=''
|
||
|
|
||
0083C01B 68E8C58300 push $0083C5E8
|
||
|
||
* Possible String Reference to: 'YFID'
|
||
|
|
||
0083C020 BA30C68300 mov edx, $0083C630
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083C025 8B8360030000 mov eax, [ebx+$0360]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083C02B E884ABC8FF call 004C6BB4
|
||
0083C030 8D55BC lea edx, [ebp-$44]
|
||
0083C033 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0083C035 FF5160 call dword ptr [ecx+$60]
|
||
0083C038 FF75BC push dword ptr [ebp-$44]
|
||
0083C03B 6840C68300 push $0083C640
|
||
0083C040 8D45C0 lea eax, [ebp-$40]
|
||
0083C043 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083C048 E86796BCFF call 004056B4
|
||
0083C04D 8B45C0 mov eax, [ebp-$40]
|
||
0083C050 50 push eax
|
||
0083C051 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083C053 E8541FCAFF call 004DDFAC
|
||
0083C058 5A pop edx
|
||
0083C059 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083C05B FF5138 call dword ptr [ecx+$38]
|
||
0083C05E 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
0083C060 E86398C8FF call 004C58C8
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
0083C065 BA4CC68300 mov edx, $0083C64C
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryTemp : TADOQuery
|
||
|
|
||
0083C06A 8B8308030000 mov eax, [ebx+$0308]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083C070 E83FABC8FF call 004C6BB4
|
||
0083C075 8D55E4 lea edx, [ebp-$1C]
|
||
0083C078 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_60
|
||
|
|
||
0083C07A FF5160 call dword ptr [ecx+$60]
|
||
|
||
* Possible String Reference to: 'Qty'
|
||
|
|
||
0083C07D BA5CC68300 mov edx, $0083C65C
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083C082 8B8360030000 mov eax, [ebx+$0360]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083C088 E827ABC8FF call 004C6BB4
|
||
0083C08D 8D55B8 lea edx, [ebp-$48]
|
||
0083C090 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0083C092 FF5160 call dword ptr [ecx+$60]
|
||
0083C095 8B45B8 mov eax, [ebp-$48]
|
||
0083C098 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C09B E84CE8BCFF call 0040A8EC
|
||
0083C0A0 8D55B4 lea edx, [ebp-$4C]
|
||
0083C0A3 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C0A6 E841E8BCFF call 0040A8EC
|
||
0083C0AB 837DB400 cmp dword ptr [ebp-$4C], +$00
|
||
0083C0AF 750D jnz 0083C0BE
|
||
0083C0B1 8D45F8 lea eax, [ebp-$08]
|
||
0083C0B4 BADCC58300 mov edx, $0083C5DC
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083C0B9 E8FE92BCFF call 004053BC
|
||
|
||
* Possible String Reference to: 'Price'
|
||
|
|
||
0083C0BE BA68C68300 mov edx, $0083C668
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083C0C3 8B8360030000 mov eax, [ebx+$0360]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083C0C9 E8E6AAC8FF call 004C6BB4
|
||
0083C0CE 8D55B0 lea edx, [ebp-$50]
|
||
0083C0D1 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0083C0D3 FF5160 call dword ptr [ecx+$60]
|
||
0083C0D6 8B45B0 mov eax, [ebp-$50]
|
||
0083C0D9 8D55F4 lea edx, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C0DC E80BE8BCFF call 0040A8EC
|
||
0083C0E1 8D55AC lea edx, [ebp-$54]
|
||
0083C0E4 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C0E7 E800E8BCFF call 0040A8EC
|
||
0083C0EC 837DAC00 cmp dword ptr [ebp-$54], +$00
|
||
0083C0F0 750D jnz 0083C0FF
|
||
0083C0F2 8D45F4 lea eax, [ebp-$0C]
|
||
0083C0F5 BADCC58300 mov edx, $0083C5DC
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083C0FA E8BD92BCFF call 004053BC
|
||
|
||
* Possible String Reference to: 'Qty'
|
||
|
|
||
0083C0FF BA5CC68300 mov edx, $0083C65C
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083C104 8B8360030000 mov eax, [ebx+$0360]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083C10A E8A5AAC8FF call 004C6BB4
|
||
0083C10F 8D55A8 lea edx, [ebp-$58]
|
||
0083C112 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0083C114 FF5160 call dword ptr [ecx+$60]
|
||
0083C117 8B45A8 mov eax, [ebp-$58]
|
||
0083C11A 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C11D E8CAE7BCFF call 0040A8EC
|
||
0083C122 8D55A4 lea edx, [ebp-$5C]
|
||
0083C125 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C128 E8BFE7BCFF call 0040A8EC
|
||
0083C12D 837DA400 cmp dword ptr [ebp-$5C], +$00
|
||
0083C131 750D jnz 0083C140
|
||
0083C133 8D45F8 lea eax, [ebp-$08]
|
||
0083C136 BADCC58300 mov edx, $0083C5DC
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083C13B E87C92BCFF call 004053BC
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
0083C140 BA78C68300 mov edx, $0083C678
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083C145 8B8360030000 mov eax, [ebx+$0360]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083C14B E864AAC8FF call 004C6BB4
|
||
0083C150 8D55A0 lea edx, [ebp-$60]
|
||
0083C153 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0083C155 FF5160 call dword ptr [ecx+$60]
|
||
0083C158 8B45A0 mov eax, [ebp-$60]
|
||
0083C15B 8D55F0 lea edx, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C15E E889E7BCFF call 0040A8EC
|
||
0083C163 8D559C lea edx, [ebp-$64]
|
||
0083C166 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C169 E87EE7BCFF call 0040A8EC
|
||
0083C16E 837D9C00 cmp dword ptr [ebp-$64], +$00
|
||
0083C172 750D jnz 0083C181
|
||
0083C174 8D45F0 lea eax, [ebp-$10]
|
||
0083C177 BADCC58300 mov edx, $0083C5DC
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083C17C E83B92BCFF call 004053BC
|
||
|
||
* Possible String Reference to: 'HuiLv'
|
||
|
|
||
0083C181 BA88C68300 mov edx, $0083C688
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083C186 8B8360030000 mov eax, [ebx+$0360]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083C18C E823AAC8FF call 004C6BB4
|
||
0083C191 8D5598 lea edx, [ebp-$68]
|
||
0083C194 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0083C196 FF5160 call dword ptr [ecx+$60]
|
||
0083C199 8B4598 mov eax, [ebp-$68]
|
||
0083C19C 8D55EC lea edx, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C19F E848E7BCFF call 0040A8EC
|
||
0083C1A4 8D5594 lea edx, [ebp-$6C]
|
||
0083C1A7 8B45EC mov eax, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C1AA E83DE7BCFF call 0040A8EC
|
||
0083C1AF 837D9400 cmp dword ptr [ebp-$6C], +$00
|
||
0083C1B3 750D jnz 0083C1C2
|
||
0083C1B5 8D45EC lea eax, [ebp-$14]
|
||
0083C1B8 BADCC58300 mov edx, $0083C5DC
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083C1BD E8FA91BCFF call 004053BC
|
||
0083C1C2 8D5590 lea edx, [ebp-$70]
|
||
0083C1C5 8B45E0 mov eax, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C1C8 E81FE7BCFF call 0040A8EC
|
||
0083C1CD 8B4590 mov eax, [ebp-$70]
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
0083C1D0 BA78C68300 mov edx, $0083C678
|
||
|
||
* Reference to: System.@LStrCmp;
|
||
|
|
||
0083C1D5 E86695BCFF call 00405740
|
||
0083C1DA 0F84AD000000 jz 0083C28D
|
||
0083C1E0 8D558C lea edx, [ebp-$74]
|
||
0083C1E3 8B45E0 mov eax, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C1E6 E801E7BCFF call 0040A8EC
|
||
0083C1EB 8B458C mov eax, [ebp-$74]
|
||
|
||
* Possible String Reference to: 'HuiLv'
|
||
|
|
||
0083C1EE BA88C68300 mov edx, $0083C688
|
||
|
||
* Reference to: System.@LStrCmp;
|
||
|
|
||
0083C1F3 E84895BCFF call 00405740
|
||
0083C1F8 7469 jz 0083C263
|
||
0083C1FA 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083C1FD E82A15BDFF call 0040D72C
|
||
0083C202 DB7D80 fstp tbyte ptr [ebp-$80]
|
||
0083C205 9B wait
|
||
0083C206 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083C209 E81E15BDFF call 0040D72C
|
||
0083C20E DB6D80 fld tbyte ptr [ebp-$80]
|
||
0083C211 DEC9 fmulp st(1), st(0)
|
||
0083C213 DBBD74FFFFFF fstp tbyte ptr [ebp+$FFFFFF74]
|
||
0083C219 9B wait
|
||
0083C21A 8B45EC mov eax, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083C21D E80A15BDFF call 0040D72C
|
||
0083C222 DBAD74FFFFFF fld tbyte ptr [ebp+$FFFFFF74]
|
||
0083C228 DEC9 fmulp st(1), st(0)
|
||
0083C22A 83C4F4 add esp, -$0C
|
||
0083C22D DB3C24 fstp tbyte ptr [esp]
|
||
0083C230 9B wait
|
||
0083C231 8D45E8 lea eax, [ebp-$18]
|
||
|
||
|
|
||
0083C234 E87313BDFF call 0040D5AC
|
||
0083C239 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083C23C E8EB14BDFF call 0040D72C
|
||
0083C241 DB7D80 fstp tbyte ptr [ebp-$80]
|
||
0083C244 9B wait
|
||
0083C245 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083C248 E8DF14BDFF call 0040D72C
|
||
0083C24D DB6D80 fld tbyte ptr [ebp-$80]
|
||
0083C250 DEC9 fmulp st(1), st(0)
|
||
0083C252 83C4F4 add esp, -$0C
|
||
0083C255 DB3C24 fstp tbyte ptr [esp]
|
||
0083C258 9B wait
|
||
0083C259 8D45F0 lea eax, [ebp-$10]
|
||
|
||
|
|
||
0083C25C E84B13BDFF call 0040D5AC
|
||
0083C261 EB52 jmp 0083C2B5
|
||
0083C263 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083C266 E8C114BDFF call 0040D72C
|
||
0083C26B DB7D80 fstp tbyte ptr [ebp-$80]
|
||
0083C26E 9B wait
|
||
0083C26F 8B45EC mov eax, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083C272 E8B514BDFF call 0040D72C
|
||
0083C277 DB6D80 fld tbyte ptr [ebp-$80]
|
||
0083C27A DEC9 fmulp st(1), st(0)
|
||
0083C27C 83C4F4 add esp, -$0C
|
||
0083C27F DB3C24 fstp tbyte ptr [esp]
|
||
0083C282 9B wait
|
||
0083C283 8D45E8 lea eax, [ebp-$18]
|
||
|
||
|
|
||
0083C286 E82113BDFF call 0040D5AC
|
||
0083C28B EB28 jmp 0083C2B5
|
||
0083C28D 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083C290 E89714BDFF call 0040D72C
|
||
0083C295 DB7D80 fstp tbyte ptr [ebp-$80]
|
||
0083C298 9B wait
|
||
0083C299 8B45EC mov eax, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083C29C E88B14BDFF call 0040D72C
|
||
0083C2A1 DB6D80 fld tbyte ptr [ebp-$80]
|
||
0083C2A4 DEC9 fmulp st(1), st(0)
|
||
0083C2A6 83C4F4 add esp, -$0C
|
||
0083C2A9 DB3C24 fstp tbyte ptr [esp]
|
||
0083C2AC 9B wait
|
||
0083C2AD 8D45E8 lea eax, [ebp-$18]
|
||
|
||
|
|
||
0083C2B0 E8F712BDFF call 0040D5AC
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083C2B5 8BB360030000 mov esi, [ebx+$0360]
|
||
0083C2BB 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0083C2BD E87EC1C8FF call 004C8440
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
0083C2C2 BA78C68300 mov edx, $0083C678
|
||
0083C2C7 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083C2C9 E8E6A8C8FF call 004C6BB4
|
||
0083C2CE 50 push eax
|
||
0083C2CF 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083C2D2 E85514BDFF call 0040D72C
|
||
0083C2D7 8D8564FFFFFF lea eax, [ebp+$FFFFFF64]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0083C2DD E8AACABDFF call 00418D8C
|
||
0083C2E2 8D9564FFFFFF lea edx, [ebp+$FFFFFF64]
|
||
0083C2E8 58 pop eax
|
||
0083C2E9 8B08 mov ecx, [eax]
|
||
0083C2EB FF91B4000000 call dword ptr [ecx+$00B4]
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
0083C2F1 BA4CC68300 mov edx, $0083C64C
|
||
0083C2F6 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083C2F8 E8B7A8C8FF call 004C6BB4
|
||
0083C2FD 50 push eax
|
||
0083C2FE 8B45E8 mov eax, [ebp-$18]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083C301 E82614BDFF call 0040D72C
|
||
0083C306 8D8554FFFFFF lea eax, [ebp+$FFFFFF54]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0083C30C E87BCABDFF call 00418D8C
|
||
0083C311 8D9554FFFFFF lea edx, [ebp+$FFFFFF54]
|
||
0083C317 58 pop eax
|
||
0083C318 8B08 mov ecx, [eax]
|
||
0083C31A FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0083C320 8BC6 mov eax, esi
|
||
0083C322 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
0083C324 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryCmd : TADOQuery
|
||
|
|
||
0083C32A 8BB30C030000 mov esi, [ebx+$030C]
|
||
0083C330 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083C332 E89D95C8FF call 004C58D4
|
||
0083C337 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083C339 E86E1CCAFF call 004DDFAC
|
||
0083C33E 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0083C340 FF5244 call dword ptr [edx+$44]
|
||
0083C343 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083C345 E8621CCAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0083C34A BA98C68300 mov edx, $0083C698
|
||
0083C34F 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083C351 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0083C354 68B4C68300 push $0083C6B4
|
||
0083C359 FF75E0 push dword ptr [ebp-$20]
|
||
0083C35C 68C4C68300 push $0083C6C4
|
||
0083C361 8D954CFFFFFF lea edx, [ebp+$FFFFFF4C]
|
||
0083C367 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C36A E87DE5BCFF call 0040A8EC
|
||
0083C36F FFB54CFFFFFF push dword ptr [ebp+$FFFFFF4C]
|
||
0083C375 8D8550FFFFFF lea eax, [ebp+$FFFFFF50]
|
||
0083C37B BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083C380 E82F93BCFF call 004056B4
|
||
0083C385 8B8550FFFFFF mov eax, [ebp+$FFFFFF50]
|
||
0083C38B 50 push eax
|
||
0083C38C 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083C38E E8191CCAFF call 004DDFAC
|
||
0083C393 5A pop edx
|
||
0083C394 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083C396 FF5138 call dword ptr [ecx+$38]
|
||
0083C399 8D9548FFFFFF lea edx, [ebp+$FFFFFF48]
|
||
0083C39F 8B45E0 mov eax, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C3A2 E845E5BCFF call 0040A8EC
|
||
0083C3A7 8B8548FFFFFF mov eax, [ebp+$FFFFFF48]
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
0083C3AD BA78C68300 mov edx, $0083C678
|
||
|
||
* Reference to: System.@LStrCmp;
|
||
|
|
||
0083C3B2 E88993BCFF call 00405740
|
||
0083C3B7 7427 jz 0083C3E0
|
||
0083C3B9 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083C3BB E8EC1BCAFF call 004DDFAC
|
||
0083C3C0 50 push eax
|
||
0083C3C1 8D8544FFFFFF lea eax, [ebp+$FFFFFF44]
|
||
0083C3C7 8B4DF0 mov ecx, [ebp-$10]
|
||
|
||
* Possible String Reference to: ',Money='
|
||
|
|
||
0083C3CA BAD0C68300 mov edx, $0083C6D0
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
0083C3CF E86C92BCFF call 00405640
|
||
0083C3D4 8B9544FFFFFF mov edx, [ebp+$FFFFFF44]
|
||
0083C3DA 58 pop eax
|
||
0083C3DB 8B08 mov ecx, [eax]
|
||
0083C3DD FF5138 call dword ptr [ecx+$38]
|
||
0083C3E0 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083C3E2 E8C51BCAFF call 004DDFAC
|
||
0083C3E7 50 push eax
|
||
0083C3E8 8D8540FFFFFF lea eax, [ebp+$FFFFFF40]
|
||
0083C3EE 8B4DE8 mov ecx, [ebp-$18]
|
||
|
||
* Possible String Reference to: ',BBMoney='
|
||
|
|
||
0083C3F1 BAE0C68300 mov edx, $0083C6E0
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
0083C3F6 E84592BCFF call 00405640
|
||
0083C3FB 8B9540FFFFFF mov edx, [ebp+$FFFFFF40]
|
||
0083C401 58 pop eax
|
||
0083C402 8B08 mov ecx, [eax]
|
||
0083C404 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
0083C407 68F4C68300 push $0083C6F4
|
||
0083C40C 8D9538FFFFFF lea edx, [ebp+$FFFFFF38]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.cxGridDBColumn1PropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083C7B0 55 push ebp
|
||
0083C7B1 8BEC mov ebp, esp
|
||
0083C7B3 B908000000 mov ecx, $00000008
|
||
0083C7B8 6A00 push $00
|
||
0083C7BA 6A00 push $00
|
||
0083C7BC 49 dec ecx
|
||
0083C7BD 75F9 jnz 0083C7B8
|
||
0083C7BF 51 push ecx
|
||
0083C7C0 53 push ebx
|
||
0083C7C1 56 push esi
|
||
0083C7C2 8BDA mov ebx, edx
|
||
0083C7C4 8BF0 mov esi, eax
|
||
0083C7C6 33C0 xor eax, eax
|
||
0083C7C8 55 push ebp
|
||
0083C7C9 68D6C98300 push $0083C9D6
|
||
|
||
***** TRY
|
||
|
|
||
0083C7CE 64FF30 push dword ptr fs:[eax]
|
||
0083C7D1 648920 mov fs:[eax], esp
|
||
0083C7D4 8D55FC lea edx, [ebp-$04]
|
||
0083C7D7 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;
|
||
|
|
||
0083C7D9 E8DE2ED5FF call 0058F6BC
|
||
|
||
* Reference to control TfrmSKCR_SH.Tv2 : TcxGridDBTableView
|
||
|
|
||
0083C7DE 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;
|
||
|
|
||
0083C7E4 E863FBE1FF 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;
|
||
|
|
||
0083C7E9 E87653E1FF call 00651B64
|
||
|
||
* Reference to field TcxGridDBTableView.OFFS_0050
|
||
|
|
||
0083C7EE 8B4050 mov eax, [eax+$50]
|
||
0083C7F1 8D55F4 lea edx, [ebp-$0C]
|
||
0083C7F4 8B08 mov ecx, [eax]
|
||
0083C7F6 FF5110 call dword ptr [ecx+$10]
|
||
0083C7F9 8B45F4 mov eax, [ebp-$0C]
|
||
0083C7FC 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C7FF E8E8E0BCFF call 0040A8EC
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083C804 8B9E60030000 mov ebx, [esi+$0360]
|
||
0083C80A 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0083C80C E82FBCC8FF call 004C8440
|
||
0083C811 8D55E0 lea edx, [ebp-$20]
|
||
0083C814 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C817 E8D0E0BCFF call 0040A8EC
|
||
0083C81C 8B55E0 mov edx, [ebp-$20]
|
||
0083C81F 8D45E4 lea eax, [ebp-$1C]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0083C822 E8A1C5BDFF call 00418DC8
|
||
0083C827 8D45E4 lea eax, [ebp-$1C]
|
||
0083C82A 50 push eax
|
||
0083C82B 8B55F8 mov edx, [ebp-$08]
|
||
0083C82E 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083C830 E87FA3C8FF call 004C6BB4
|
||
0083C835 5A pop edx
|
||
0083C836 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
0083C838 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0083C83E 8BC3 mov eax, ebx
|
||
0083C840 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
0083C842 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryCmd : TADOQuery
|
||
|
|
||
0083C848 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0083C84E 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083C850 E87F90C8FF call 004C58D4
|
||
0083C855 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083C857 E85017CAFF call 004DDFAC
|
||
0083C85C 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0083C85E FF5244 call dword ptr [edx+$44]
|
||
0083C861 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083C863 E84417CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0083C868 BAECC98300 mov edx, $0083C9EC
|
||
0083C86D 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083C86F FF5138 call dword ptr [ecx+$38]
|
||
0083C872 8D55DC lea edx, [ebp-$24]
|
||
0083C875 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C878 E86FE0BCFF call 0040A8EC
|
||
0083C87D 837DDC00 cmp dword ptr [ebp-$24], +$00
|
||
0083C881 7440 jz 0083C8C3
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0083C883 6808CA8300 push $0083CA08
|
||
0083C888 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=''
|
||
|
|
||
0083C88B 6818CA8300 push $0083CA18
|
||
0083C890 8D55D4 lea edx, [ebp-$2C]
|
||
0083C893 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C896 E851E0BCFF call 0040A8EC
|
||
0083C89B FF75D4 push dword ptr [ebp-$2C]
|
||
0083C89E 6824CA8300 push $0083CA24
|
||
0083C8A3 8D45D8 lea eax, [ebp-$28]
|
||
0083C8A6 BA05000000 mov edx, $00000005
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083C8AB E8048EBCFF call 004056B4
|
||
0083C8B0 8B45D8 mov eax, [ebp-$28]
|
||
0083C8B3 50 push eax
|
||
0083C8B4 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083C8B6 E8F116CAFF call 004DDFAC
|
||
0083C8BB 5A pop edx
|
||
0083C8BC 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083C8BE FF5138 call dword ptr [ecx+$38]
|
||
0083C8C1 EB2B jmp 0083C8EE
|
||
0083C8C3 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083C8C5 E8E216CAFF call 004DDFAC
|
||
0083C8CA 50 push eax
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0083C8CB 6808CA8300 push $0083CA08
|
||
0083C8D0 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=NULL'
|
||
|
|
||
0083C8D3 6830CA8300 push $0083CA30
|
||
0083C8D8 8D45D0 lea eax, [ebp-$30]
|
||
0083C8DB BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083C8E0 E8CF8DBCFF call 004056B4
|
||
0083C8E5 8B55D0 mov edx, [ebp-$30]
|
||
0083C8E8 58 pop eax
|
||
0083C8E9 8B08 mov ecx, [eax]
|
||
0083C8EB FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
0083C8EE 6840CA8300 push $0083CA40
|
||
0083C8F3 8D55C8 lea edx, [ebp-$38]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.ToolButton3Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083CA94 55 push ebp
|
||
0083CA95 8BEC mov ebp, esp
|
||
0083CA97 B90D000000 mov ecx, $0000000D
|
||
0083CA9C 6A00 push $00
|
||
0083CA9E 6A00 push $00
|
||
0083CAA0 49 dec ecx
|
||
0083CAA1 75F9 jnz 0083CA9C
|
||
0083CAA3 53 push ebx
|
||
0083CAA4 8945FC mov [ebp-$04], eax
|
||
0083CAA7 33C0 xor eax, eax
|
||
0083CAA9 55 push ebp
|
||
0083CAAA 68EBCC8300 push $0083CCEB
|
||
|
||
***** TRY
|
||
|
|
||
0083CAAF 64FF30 push dword ptr fs:[eax]
|
||
0083CAB2 648920 mov fs:[eax], esp
|
||
0083CAB5 33C0 xor eax, eax
|
||
0083CAB7 55 push ebp
|
||
0083CAB8 686ECC8300 push $0083CC6E
|
||
|
||
***** TRY
|
||
|
|
||
0083CABD 64FF30 push dword ptr fs:[eax]
|
||
0083CAC0 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.cxGridDBColumn3PropertiesButtonClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083CD70 55 push ebp
|
||
0083CD71 8BEC mov ebp, esp
|
||
0083CD73 51 push ecx
|
||
0083CD74 B90B000000 mov ecx, $0000000B
|
||
0083CD79 6A00 push $00
|
||
0083CD7B 6A00 push $00
|
||
0083CD7D 49 dec ecx
|
||
0083CD7E 75F9 jnz 0083CD79
|
||
0083CD80 51 push ecx
|
||
0083CD81 874DFC xchg [ebp-$04], ecx
|
||
0083CD84 53 push ebx
|
||
0083CD85 56 push esi
|
||
0083CD86 8BF0 mov esi, eax
|
||
0083CD88 33C0 xor eax, eax
|
||
0083CD8A 55 push ebp
|
||
0083CD8B 68BBD08300 push $0083D0BB
|
||
|
||
***** TRY
|
||
|
|
||
0083CD90 64FF30 push dword ptr fs:[eax]
|
||
0083CD93 648920 mov fs:[eax], esp
|
||
0083CD96 33C0 xor eax, eax
|
||
0083CD98 55 push ebp
|
||
0083CD99 6874D08300 push $0083D074
|
||
|
||
***** TRY
|
||
|
|
||
0083CD9E 64FF30 push dword ptr fs:[eax]
|
||
0083CDA1 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.cxGridDBColumn6PropertiesButtonClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083D1F0 55 push ebp
|
||
0083D1F1 8BEC mov ebp, esp
|
||
0083D1F3 51 push ecx
|
||
0083D1F4 B906000000 mov ecx, $00000006
|
||
0083D1F9 6A00 push $00
|
||
0083D1FB 6A00 push $00
|
||
0083D1FD 49 dec ecx
|
||
0083D1FE 75F9 jnz 0083D1F9
|
||
0083D200 51 push ecx
|
||
0083D201 874DFC xchg [ebp-$04], ecx
|
||
0083D204 53 push ebx
|
||
0083D205 56 push esi
|
||
0083D206 8BF0 mov esi, eax
|
||
0083D208 33C0 xor eax, eax
|
||
0083D20A 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>v<EFBFBD><76><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0083D20B 6849D48300 push $0083D449
|
||
|
||
***** TRY
|
||
|
|
||
0083D210 64FF30 push dword ptr fs:[eax]
|
||
0083D213 648920 mov fs:[eax], esp
|
||
0083D216 33C0 xor eax, eax
|
||
0083D218 55 push ebp
|
||
0083D219 681FD48300 push $0083D41F
|
||
|
||
***** TRY
|
||
|
|
||
0083D21E 64FF30 push dword ptr fs:[eax]
|
||
0083D221 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.v2Column3PropertiesButtonClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083D54C 55 push ebp
|
||
0083D54D 8BEC mov ebp, esp
|
||
0083D54F 51 push ecx
|
||
0083D550 B906000000 mov ecx, $00000006
|
||
0083D555 6A00 push $00
|
||
0083D557 6A00 push $00
|
||
0083D559 49 dec ecx
|
||
0083D55A 75F9 jnz 0083D555
|
||
0083D55C 51 push ecx
|
||
0083D55D 874DFC xchg [ebp-$04], ecx
|
||
0083D560 53 push ebx
|
||
0083D561 56 push esi
|
||
0083D562 8BF0 mov esi, eax
|
||
0083D564 33C0 xor eax, eax
|
||
0083D566 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>Js<4A><73><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0083D567 68A5D78300 push $0083D7A5
|
||
|
||
***** TRY
|
||
|
|
||
0083D56C 64FF30 push dword ptr fs:[eax]
|
||
0083D56F 648920 mov fs:[eax], esp
|
||
0083D572 33C0 xor eax, eax
|
||
0083D574 55 push ebp
|
||
0083D575 687BD78300 push $0083D77B
|
||
|
||
***** TRY
|
||
|
|
||
0083D57A 64FF30 push dword ptr fs:[eax]
|
||
0083D57D 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.ToolButton1Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083D890 53 push ebx
|
||
0083D891 8BD8 mov ebx, eax
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryMain : TADOQuery
|
||
|
|
||
0083D893 8B8320030000 mov eax, [ebx+$0320]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0083D899 E822A6C8FF call 004C7EC0
|
||
0083D89E 84C0 test al, al
|
||
0083D8A0 7516 jnz 0083D8B8
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>'
|
||
|
|
||
0083D8A2 B9C4D88300 mov ecx, $0083D8C4
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryMain : TADOQuery
|
||
|
|
||
0083D8A7 8B9320030000 mov edx, [ebx+$0320]
|
||
|
||
* Reference to control TfrmSKCR_SH.Tv2 : TcxGridDBTableView
|
||
|
|
||
0083D8AD 8B833C030000 mov eax, [ebx+$033C]
|
||
|
||
|
|
||
0083D8B3 E878A9F7FF call 007B8230
|
||
0083D8B8 5B pop ebx
|
||
0083D8B9 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.v2Column4PropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083D8D0 55 push ebp
|
||
0083D8D1 8BEC mov ebp, esp
|
||
0083D8D3 B915000000 mov ecx, $00000015
|
||
0083D8D8 6A00 push $00
|
||
0083D8DA 6A00 push $00
|
||
0083D8DC 49 dec ecx
|
||
0083D8DD 75F9 jnz 0083D8D8
|
||
0083D8DF 53 push ebx
|
||
0083D8E0 56 push esi
|
||
0083D8E1 8BF2 mov esi, edx
|
||
0083D8E3 8BD8 mov ebx, eax
|
||
0083D8E5 33C0 xor eax, eax
|
||
0083D8E7 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>m<EFBFBD><6D><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0083D8E8 685ADD8300 push $0083DD5A
|
||
|
||
***** TRY
|
||
|
|
||
0083D8ED 64FF30 push dword ptr fs:[eax]
|
||
0083D8F0 648920 mov fs:[eax], esp
|
||
0083D8F3 8D55FC lea edx, [ebp-$04]
|
||
0083D8F6 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;
|
||
|
|
||
0083D8F8 E8BF1DD5FF call 0058F6BC
|
||
0083D8FD 8D55E4 lea edx, [ebp-$1C]
|
||
0083D900 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083D903 E8E4CFBCFF call 0040A8EC
|
||
0083D908 837DE400 cmp dword ptr [ebp-$1C], +$00
|
||
0083D90C 750D jnz 0083D91B
|
||
0083D90E 8D45FC lea eax, [ebp-$04]
|
||
0083D911 BA70DD8300 mov edx, $0083DD70
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083D916 E8A17ABCFF call 004053BC
|
||
|
||
* Reference to control TfrmSKCR_SH.Tv2 : TcxGridDBTableView
|
||
|
|
||
0083D91B 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;
|
||
|
|
||
0083D921 E826EAE1FF 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;
|
||
|
|
||
0083D926 E83942E1FF call 00651B64
|
||
|
||
* Reference to field TcxGridDBTableView.OFFS_0050
|
||
|
|
||
0083D92B 8B4050 mov eax, [eax+$50]
|
||
0083D92E 8D55E0 lea edx, [ebp-$20]
|
||
0083D931 8B08 mov ecx, [eax]
|
||
0083D933 FF5110 call dword ptr [ecx+$10]
|
||
0083D936 8B45E0 mov eax, [ebp-$20]
|
||
0083D939 8D55E8 lea edx, [ebp-$18]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083D93C E8ABCFBCFF call 0040A8EC
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083D941 8BB360030000 mov esi, [ebx+$0360]
|
||
0083D947 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0083D949 E8F2AAC8FF call 004C8440
|
||
0083D94E 8D55CC lea edx, [ebp-$34]
|
||
0083D951 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083D954 E893CFBCFF call 0040A8EC
|
||
0083D959 8B55CC mov edx, [ebp-$34]
|
||
0083D95C 8D45D0 lea eax, [ebp-$30]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0083D95F E864B4BDFF call 00418DC8
|
||
0083D964 8D45D0 lea eax, [ebp-$30]
|
||
0083D967 50 push eax
|
||
0083D968 8B55E8 mov edx, [ebp-$18]
|
||
0083D96B 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083D96D E84292C8FF call 004C6BB4
|
||
0083D972 5A pop edx
|
||
0083D973 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
0083D975 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0083D97B 8BC6 mov eax, esi
|
||
0083D97D 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
0083D97F FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryTemp : TADOQuery
|
||
|
|
||
0083D985 8BB308030000 mov esi, [ebx+$0308]
|
||
0083D98B 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083D98D E8427FC8FF call 004C58D4
|
||
0083D992 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083D994 E81306CAFF call 004DDFAC
|
||
0083D999 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0083D99B FF5244 call dword ptr [edx+$44]
|
||
|
||
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
|
||
| om YF_Money_CR where YFID=''
|
||
|
|
||
0083D99E 687CDD8300 push $0083DD7C
|
||
|
||
* Possible String Reference to: 'YFID'
|
||
|
|
||
0083D9A3 BAC4DD8300 mov edx, $0083DDC4
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083D9A8 8B8360030000 mov eax, [ebx+$0360]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083D9AE E80192C8FF call 004C6BB4
|
||
0083D9B3 8D55C4 lea edx, [ebp-$3C]
|
||
0083D9B6 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0083D9B8 FF5160 call dword ptr [ecx+$60]
|
||
0083D9BB FF75C4 push dword ptr [ebp-$3C]
|
||
0083D9BE 68D4DD8300 push $0083DDD4
|
||
0083D9C3 8D45C8 lea eax, [ebp-$38]
|
||
0083D9C6 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083D9CB E8E47CBCFF call 004056B4
|
||
0083D9D0 8B45C8 mov eax, [ebp-$38]
|
||
0083D9D3 50 push eax
|
||
0083D9D4 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083D9D6 E8D105CAFF call 004DDFAC
|
||
0083D9DB 5A pop edx
|
||
0083D9DC 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083D9DE FF5138 call dword ptr [ecx+$38]
|
||
0083D9E1 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
0083D9E3 E8E07EC8FF call 004C58C8
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
0083D9E8 BAE0DD8300 mov edx, $0083DDE0
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryTemp : TADOQuery
|
||
|
|
||
0083D9ED 8B8308030000 mov eax, [ebx+$0308]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083D9F3 E8BC91C8FF call 004C6BB4
|
||
0083D9F8 8D55EC lea edx, [ebp-$14]
|
||
0083D9FB 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_60
|
||
|
|
||
0083D9FD FF5160 call dword ptr [ecx+$60]
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
0083DA00 BAF0DD8300 mov edx, $0083DDF0
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083DA05 8B8360030000 mov eax, [ebx+$0360]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083DA0B E8A491C8FF call 004C6BB4
|
||
0083DA10 8D55C0 lea edx, [ebp-$40]
|
||
0083DA13 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0083DA15 FF5160 call dword ptr [ecx+$60]
|
||
0083DA18 8B45C0 mov eax, [ebp-$40]
|
||
0083DA1B 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083DA1E E8C9CEBCFF call 0040A8EC
|
||
0083DA23 8D55BC lea edx, [ebp-$44]
|
||
0083DA26 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083DA29 E8BECEBCFF call 0040A8EC
|
||
0083DA2E 837DBC00 cmp dword ptr [ebp-$44], +$00
|
||
0083DA32 750D jnz 0083DA41
|
||
0083DA34 8D45F8 lea eax, [ebp-$08]
|
||
0083DA37 BA70DD8300 mov edx, $0083DD70
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083DA3C E87B79BCFF call 004053BC
|
||
|
||
* Possible String Reference to: 'HuiLv'
|
||
|
|
||
0083DA41 BA00DE8300 mov edx, $0083DE00
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083DA46 8B8360030000 mov eax, [ebx+$0360]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083DA4C E86391C8FF call 004C6BB4
|
||
0083DA51 8D55B8 lea edx, [ebp-$48]
|
||
0083DA54 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0083DA56 FF5160 call dword ptr [ecx+$60]
|
||
0083DA59 8B45B8 mov eax, [ebp-$48]
|
||
0083DA5C 8D55F4 lea edx, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083DA5F E888CEBCFF call 0040A8EC
|
||
0083DA64 8D55B4 lea edx, [ebp-$4C]
|
||
0083DA67 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083DA6A E87DCEBCFF call 0040A8EC
|
||
0083DA6F 837DB400 cmp dword ptr [ebp-$4C], +$00
|
||
0083DA73 750D jnz 0083DA82
|
||
0083DA75 8D45F4 lea eax, [ebp-$0C]
|
||
0083DA78 BA70DD8300 mov edx, $0083DD70
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083DA7D E83A79BCFF call 004053BC
|
||
0083DA82 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083DA85 E8A2FCBCFF call 0040D72C
|
||
0083DA8A DB7DA8 fstp tbyte ptr [ebp-$58]
|
||
0083DA8D 9B wait
|
||
0083DA8E 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083DA91 E896FCBCFF call 0040D72C
|
||
0083DA96 DB6DA8 fld tbyte ptr [ebp-$58]
|
||
0083DA99 DEC9 fmulp st(1), st(0)
|
||
0083DA9B 83C4F4 add esp, -$0C
|
||
0083DA9E DB3C24 fstp tbyte ptr [esp]
|
||
0083DAA1 9B wait
|
||
0083DAA2 8D45F0 lea eax, [ebp-$10]
|
||
|
||
|
|
||
0083DAA5 E802FBBCFF call 0040D5AC
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083DAAA 8BB360030000 mov esi, [ebx+$0360]
|
||
0083DAB0 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0083DAB2 E889A9C8FF call 004C8440
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
0083DAB7 BAF0DD8300 mov edx, $0083DDF0
|
||
0083DABC 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083DABE E8F190C8FF call 004C6BB4
|
||
0083DAC3 50 push eax
|
||
0083DAC4 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083DAC7 E860FCBCFF call 0040D72C
|
||
0083DACC 8D4598 lea eax, [ebp-$68]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0083DACF E8B8B2BDFF call 00418D8C
|
||
0083DAD4 8D5598 lea edx, [ebp-$68]
|
||
0083DAD7 58 pop eax
|
||
0083DAD8 8B08 mov ecx, [eax]
|
||
0083DADA FF91B4000000 call dword ptr [ecx+$00B4]
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
0083DAE0 BAE0DD8300 mov edx, $0083DDE0
|
||
0083DAE5 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083DAE7 E8C890C8FF call 004C6BB4
|
||
0083DAEC 50 push eax
|
||
0083DAED 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083DAF0 E837FCBCFF call 0040D72C
|
||
0083DAF5 8D4588 lea eax, [ebp-$78]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0083DAF8 E88FB2BDFF call 00418D8C
|
||
0083DAFD 8D5588 lea edx, [ebp-$78]
|
||
0083DB00 58 pop eax
|
||
0083DB01 8B08 mov ecx, [eax]
|
||
0083DB03 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0083DB09 8BC6 mov eax, esi
|
||
0083DB0B 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
0083DB0D FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryCmd : TADOQuery
|
||
|
|
||
0083DB13 8BB30C030000 mov esi, [ebx+$030C]
|
||
0083DB19 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083DB1B E8B47DC8FF call 004C58D4
|
||
0083DB20 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083DB22 E88504CAFF call 004DDFAC
|
||
0083DB27 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0083DB29 FF5244 call dword ptr [edx+$44]
|
||
0083DB2C 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083DB2E E87904CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0083DB33 BA10DE8300 mov edx, $0083DE10
|
||
0083DB38 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083DB3A FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0083DB3D 682CDE8300 push $0083DE2C
|
||
0083DB42 FF75E8 push dword ptr [ebp-$18]
|
||
0083DB45 683CDE8300 push $0083DE3C
|
||
0083DB4A 8D5580 lea edx, [ebp-$80]
|
||
0083DB4D 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083DB50 E897CDBCFF call 0040A8EC
|
||
0083DB55 FF7580 push dword ptr [ebp-$80]
|
||
0083DB58 8D4584 lea eax, [ebp-$7C]
|
||
0083DB5B BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083DB60 E84F7BBCFF call 004056B4
|
||
0083DB65 8B4584 mov eax, [ebp-$7C]
|
||
0083DB68 50 push eax
|
||
0083DB69 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083DB6B E83C04CAFF call 004DDFAC
|
||
0083DB70 5A pop edx
|
||
0083DB71 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083DB73 FF5138 call dword ptr [ecx+$38]
|
||
0083DB76 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083DB78 E82F04CAFF call 004DDFAC
|
||
0083DB7D 50 push eax
|
||
0083DB7E 8D857CFFFFFF lea eax, [ebp+$FFFFFF7C]
|
||
0083DB84 8B4DF0 mov ecx, [ebp-$10]
|
||
|
||
* Possible String Reference to: ',BBMoney='
|
||
|
|
||
0083DB87 BA48DE8300 mov edx, $0083DE48
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
0083DB8C E8AF7ABCFF call 00405640
|
||
0083DB91 8B957CFFFFFF mov edx, [ebp+$FFFFFF7C]
|
||
0083DB97 58 pop eax
|
||
0083DB98 8B08 mov ecx, [eax]
|
||
0083DB9A FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
0083DB9D 685CDE8300 push $0083DE5C
|
||
0083DBA2 8D9574FFFFFF lea edx, [ebp+$FFFFFF74]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.v2Column1PropertiesButtonClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083DF18 55 push ebp
|
||
0083DF19 8BEC mov ebp, esp
|
||
0083DF1B 51 push ecx
|
||
0083DF1C B90B000000 mov ecx, $0000000B
|
||
0083DF21 6A00 push $00
|
||
0083DF23 6A00 push $00
|
||
0083DF25 49 dec ecx
|
||
0083DF26 75F9 jnz 0083DF21
|
||
0083DF28 874DFC xchg [ebp-$04], ecx
|
||
0083DF2B 53 push ebx
|
||
0083DF2C 56 push esi
|
||
0083DF2D 8BF0 mov esi, eax
|
||
0083DF2F 33C0 xor eax, eax
|
||
0083DF31 55 push ebp
|
||
0083DF32 680BE28300 push $0083E20B
|
||
|
||
***** TRY
|
||
|
|
||
0083DF37 64FF30 push dword ptr fs:[eax]
|
||
0083DF3A 648920 mov fs:[eax], esp
|
||
0083DF3D 33C0 xor eax, eax
|
||
0083DF3F 55 push ebp
|
||
0083DF40 68CCE18300 push $0083E1CC
|
||
|
||
***** TRY
|
||
|
|
||
0083DF45 64FF30 push dword ptr fs:[eax]
|
||
0083DF48 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.VBBPropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083E2E8 55 push ebp
|
||
0083E2E9 8BEC mov ebp, esp
|
||
0083E2EB B909000000 mov ecx, $00000009
|
||
0083E2F0 6A00 push $00
|
||
0083E2F2 6A00 push $00
|
||
0083E2F4 49 dec ecx
|
||
0083E2F5 75F9 jnz 0083E2F0
|
||
0083E2F7 51 push ecx
|
||
0083E2F8 53 push ebx
|
||
0083E2F9 56 push esi
|
||
0083E2FA 8BDA mov ebx, edx
|
||
0083E2FC 8BF0 mov esi, eax
|
||
0083E2FE 33C0 xor eax, eax
|
||
0083E300 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>Qe<51><65><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0083E301 689EE58300 push $0083E59E
|
||
|
||
***** TRY
|
||
|
|
||
0083E306 64FF30 push dword ptr fs:[eax]
|
||
0083E309 648920 mov fs:[eax], esp
|
||
0083E30C 8D55FC lea edx, [ebp-$04]
|
||
0083E30F 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;
|
||
|
|
||
0083E311 E8A613D5FF call 0058F6BC
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryTemp : TADOQuery
|
||
|
|
||
0083E316 8B9E08030000 mov ebx, [esi+$0308]
|
||
0083E31C 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083E31E E8B175C8FF call 004C58D4
|
||
0083E323 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083E325 E882FCC9FF call 004DDFAC
|
||
0083E32A 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0083E32C FF5244 call dword ptr [edx+$44]
|
||
|
||
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
|
||
| om YF_Money_CR where YFID=''
|
||
|
|
||
0083E32F 68B4E58300 push $0083E5B4
|
||
|
||
* Possible String Reference to: 'YFID'
|
||
|
|
||
0083E334 BAFCE58300 mov edx, $0083E5FC
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083E339 8B8660030000 mov eax, [esi+$0360]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083E33F E87088C8FF call 004C6BB4
|
||
0083E344 8D55F0 lea edx, [ebp-$10]
|
||
0083E347 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0083E349 FF5160 call dword ptr [ecx+$60]
|
||
0083E34C FF75F0 push dword ptr [ebp-$10]
|
||
0083E34F 680CE68300 push $0083E60C
|
||
0083E354 8D45F4 lea eax, [ebp-$0C]
|
||
0083E357 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083E35C E85373BCFF call 004056B4
|
||
0083E361 8B45F4 mov eax, [ebp-$0C]
|
||
0083E364 50 push eax
|
||
0083E365 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083E367 E840FCC9FF call 004DDFAC
|
||
0083E36C 5A pop edx
|
||
0083E36D 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083E36F FF5138 call dword ptr [ecx+$38]
|
||
0083E372 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
0083E374 E84F75C8FF call 004C58C8
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
0083E379 BA18E68300 mov edx, $0083E618
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryTemp : TADOQuery
|
||
|
|
||
0083E37E 8B8608030000 mov eax, [esi+$0308]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083E384 E82B88C8FF call 004C6BB4
|
||
0083E389 8D55F8 lea edx, [ebp-$08]
|
||
0083E38C 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_60
|
||
|
|
||
0083E38E FF5160 call dword ptr [ecx+$60]
|
||
0083E391 8D55EC lea edx, [ebp-$14]
|
||
0083E394 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083E397 E850C5BCFF call 0040A8EC
|
||
0083E39C 837DEC00 cmp dword ptr [ebp-$14], +$00
|
||
0083E3A0 750D jnz 0083E3AF
|
||
0083E3A2 8D45FC lea eax, [ebp-$04]
|
||
0083E3A5 BA28E68300 mov edx, $0083E628
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083E3AA E80D70BCFF call 004053BC
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083E3AF 8B9E60030000 mov ebx, [esi+$0360]
|
||
0083E3B5 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0083E3B7 E884A0C8FF call 004C8440
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
0083E3BC BA18E68300 mov edx, $0083E618
|
||
0083E3C1 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083E3C3 E8EC87C8FF call 004C6BB4
|
||
0083E3C8 50 push eax
|
||
0083E3C9 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083E3CC E85BF3BCFF call 0040D72C
|
||
0083E3D1 8D45DC lea eax, [ebp-$24]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0083E3D4 E8B3A9BDFF call 00418D8C
|
||
0083E3D9 8D55DC lea edx, [ebp-$24]
|
||
0083E3DC 58 pop eax
|
||
0083E3DD 8B08 mov ecx, [eax]
|
||
0083E3DF FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0083E3E5 8BC3 mov eax, ebx
|
||
0083E3E7 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
0083E3E9 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryCmd : TADOQuery
|
||
|
|
||
0083E3EF 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0083E3F5 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083E3F7 E8D874C8FF call 004C58D4
|
||
0083E3FC 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083E3FE E8A9FBC9FF call 004DDFAC
|
||
0083E403 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0083E405 FF5244 call dword ptr [edx+$44]
|
||
0083E408 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083E40A E89DFBC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0083E40F BA34E68300 mov edx, $0083E634
|
||
0083E414 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083E416 FF5138 call dword ptr [ecx+$38]
|
||
0083E419 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083E41B E88CFBC9FF call 004DDFAC
|
||
0083E420 50 push eax
|
||
0083E421 8D45D8 lea eax, [ebp-$28]
|
||
0083E424 8B4DFC mov ecx, [ebp-$04]
|
||
|
||
* Possible String Reference to: ' set BBMoney='
|
||
|
|
||
0083E427 BA50E68300 mov edx, $0083E650
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
0083E42C E80F72BCFF call 00405640
|
||
0083E431 8B55D8 mov edx, [ebp-$28]
|
||
0083E434 58 pop eax
|
||
0083E435 8B08 mov ecx, [eax]
|
||
0083E437 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
0083E43A 6868E68300 push $0083E668
|
||
0083E43F 8D55D0 lea edx, [ebp-$30]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.MoneyChange(Sender : TObject);
|
||
begin
|
||
(*
|
||
|
||
|
|
||
0083E724 E89FC0FFFF call 0083A7C8
|
||
0083E729 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.v2Column1PropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083E72C 55 push ebp
|
||
0083E72D 8BEC mov ebp, esp
|
||
0083E72F B906000000 mov ecx, $00000006
|
||
0083E734 6A00 push $00
|
||
0083E736 6A00 push $00
|
||
0083E738 49 dec ecx
|
||
0083E739 75F9 jnz 0083E734
|
||
0083E73B 51 push ecx
|
||
0083E73C 53 push ebx
|
||
0083E73D 56 push esi
|
||
0083E73E 8BDA mov ebx, edx
|
||
0083E740 8BF0 mov esi, eax
|
||
0083E742 33C0 xor eax, eax
|
||
0083E744 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>&b<><62><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0083E745 68C9E88300 push $0083E8C9
|
||
|
||
***** TRY
|
||
|
|
||
0083E74A 64FF30 push dword ptr fs:[eax]
|
||
0083E74D 648920 mov fs:[eax], esp
|
||
0083E750 8D55FC lea edx, [ebp-$04]
|
||
0083E753 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;
|
||
|
|
||
0083E755 E8620FD5FF call 0058F6BC
|
||
|
||
* Reference to control TfrmSKCR_SH.Tv2 : TcxGridDBTableView
|
||
|
|
||
0083E75A 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;
|
||
|
|
||
0083E760 E8E7DBE1FF 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;
|
||
|
|
||
0083E765 E8FA33E1FF call 00651B64
|
||
|
||
* Reference to field TcxGridDBTableView.OFFS_0050
|
||
|
|
||
0083E76A 8B4050 mov eax, [eax+$50]
|
||
0083E76D 8D55F4 lea edx, [ebp-$0C]
|
||
0083E770 8B08 mov ecx, [eax]
|
||
0083E772 FF5110 call dword ptr [ecx+$10]
|
||
0083E775 8B45F4 mov eax, [ebp-$0C]
|
||
0083E778 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083E77B E86CC1BCFF call 0040A8EC
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083E780 8B9E60030000 mov ebx, [esi+$0360]
|
||
0083E786 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0083E788 E8B39CC8FF call 004C8440
|
||
0083E78D 8D55E0 lea edx, [ebp-$20]
|
||
0083E790 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083E793 E854C1BCFF call 0040A8EC
|
||
0083E798 8B55E0 mov edx, [ebp-$20]
|
||
0083E79B 8D45E4 lea eax, [ebp-$1C]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0083E79E E825A6BDFF call 00418DC8
|
||
0083E7A3 8D45E4 lea eax, [ebp-$1C]
|
||
0083E7A6 50 push eax
|
||
0083E7A7 8B55F8 mov edx, [ebp-$08]
|
||
0083E7AA 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083E7AC E80384C8FF call 004C6BB4
|
||
0083E7B1 5A pop edx
|
||
0083E7B2 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
0083E7B4 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0083E7BA 8BC3 mov eax, ebx
|
||
0083E7BC 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
0083E7BE FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryCmd : TADOQuery
|
||
|
|
||
0083E7C4 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0083E7CA 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083E7CC E80371C8FF call 004C58D4
|
||
0083E7D1 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083E7D3 E8D4F7C9FF call 004DDFAC
|
||
0083E7D8 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0083E7DA FF5244 call dword ptr [edx+$44]
|
||
0083E7DD 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083E7DF E8C8F7C9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0083E7E4 BAE0E88300 mov edx, $0083E8E0
|
||
0083E7E9 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083E7EB FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0083E7EE 68FCE88300 push $0083E8FC
|
||
0083E7F3 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=''
|
||
|
|
||
0083E7F6 680CE98300 push $0083E90C
|
||
0083E7FB 8D55D8 lea edx, [ebp-$28]
|
||
0083E7FE 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083E801 E8E6C0BCFF call 0040A8EC
|
||
0083E806 FF75D8 push dword ptr [ebp-$28]
|
||
0083E809 6818E98300 push $0083E918
|
||
0083E80E 8D45DC lea eax, [ebp-$24]
|
||
0083E811 BA05000000 mov edx, $00000005
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083E816 E8996EBCFF call 004056B4
|
||
0083E81B 8B45DC mov eax, [ebp-$24]
|
||
0083E81E 50 push eax
|
||
0083E81F 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083E821 E886F7C9FF call 004DDFAC
|
||
0083E826 5A pop edx
|
||
0083E827 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083E829 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' where YFId=''
|
||
|
|
||
0083E82C 6824E98300 push $0083E924
|
||
|
||
* Possible String Reference to: 'YFId'
|
||
|
|
||
0083E831 BA3CE98300 mov edx, $0083E93C
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083E836 8B8660030000 mov eax, [esi+$0360]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083E83C E87383C8FF call 004C6BB4
|
||
0083E841 8D55CC lea edx, [ebp-$34]
|
||
0083E844 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0083E846 FF5160 call dword ptr [ecx+$60]
|
||
0083E849 8B45CC mov eax, [ebp-$34]
|
||
0083E84C 8D55D0 lea edx, [ebp-$30]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083E84F E898C0BCFF call 0040A8EC
|
||
0083E854 FF75D0 push dword ptr [ebp-$30]
|
||
0083E857 6818E98300 push $0083E918
|
||
0083E85C 8D45D4 lea eax, [ebp-$2C]
|
||
0083E85F BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083E864 E84B6EBCFF call 004056B4
|
||
0083E869 8B45D4 mov eax, [ebp-$2C]
|
||
0083E86C 50 push eax
|
||
0083E86D 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083E86F E838F7C9FF call 004DDFAC
|
||
0083E874 5A pop edx
|
||
0083E875 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083E877 FF5138 call dword ptr [ecx+$38]
|
||
0083E87A 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
||
|
|
||
0083E87C E853F6C9FF call 004DDED4
|
||
|
||
* Reference to control TfrmSKCR_SH.Tv2 : TcxGridDBTableView
|
||
|
|
||
0083E881 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;
|
||
|
|
||
0083E887 E8C0DAE1FF call 0065C34C
|
||
|
||
* Reference to field TcxGridDBTableView.OFFS_0080
|
||
|
|
||
0083E88C 8B8080000000 mov eax, [eax+$0080]
|
||
0083E892 33D2 xor edx, edx
|
||
|
||
* Reference to : TcxCustomGridTableView._PROC_0062075C()
|
||
|
|
||
0083E894 E8C31EDEFF call 0062075C
|
||
0083E899 33C0 xor eax, eax
|
||
0083E89B 5A pop edx
|
||
0083E89C 59 pop ecx
|
||
0083E89D 59 pop ecx
|
||
0083E89E 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '^[<5B><>]<5D>'
|
||
|
|
||
0083E8A1 68D0E88300 push $0083E8D0
|
||
0083E8A6 8D45CC lea eax, [ebp-$34]
|
||
0083E8A9 BA06000000 mov edx, $00000006
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
0083E8AE E8956ABCFF call 00405348
|
||
0083E8B3 8D45E4 lea eax, [ebp-$1C]
|
||
|
||
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
||
|
|
||
0083E8B6 E8B95DBDFF call 00414674
|
||
0083E8BB 8D45F4 lea eax, [ebp-$0C]
|
||
0083E8BE BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
0083E8C3 E8806ABCFF call 00405348
|
||
0083E8C8 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
0083E8C9 E92662BCFF jmp 00404AF4
|
||
0083E8CE EBD6 jmp 0083E8A6
|
||
|
||
****** END
|
||
|
|
||
0083E8D0 5E pop esi
|
||
0083E8D1 5B pop ebx
|
||
0083E8D2 8BE5 mov esp, ebp
|
||
0083E8D4 5D pop ebp
|
||
0083E8D5 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.v2DerateMoneyPropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083E944 55 push ebp
|
||
0083E945 8BEC mov ebp, esp
|
||
0083E947 B905000000 mov ecx, $00000005
|
||
0083E94C 6A00 push $00
|
||
0083E94E 6A00 push $00
|
||
0083E950 49 dec ecx
|
||
0083E951 75F9 jnz 0083E94C
|
||
0083E953 53 push ebx
|
||
0083E954 56 push esi
|
||
0083E955 8BDA mov ebx, edx
|
||
0083E957 8BF0 mov esi, eax
|
||
0083E959 33C0 xor eax, eax
|
||
0083E95B 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>2`<60><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0083E95C 68BDEA8300 push $0083EABD
|
||
|
||
***** TRY
|
||
|
|
||
0083E961 64FF30 push dword ptr fs:[eax]
|
||
0083E964 648920 mov fs:[eax], esp
|
||
0083E967 8D55FC lea edx, [ebp-$04]
|
||
0083E96A 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;
|
||
|
|
||
0083E96C E84B0DD5FF call 0058F6BC
|
||
0083E971 8D55F8 lea edx, [ebp-$08]
|
||
0083E974 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083E977 E870BFBCFF call 0040A8EC
|
||
0083E97C 837DF800 cmp dword ptr [ebp-$08], +$00
|
||
0083E980 750D jnz 0083E98F
|
||
0083E982 8D45FC lea eax, [ebp-$04]
|
||
0083E985 BAD4EA8300 mov edx, $0083EAD4
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083E98A E82D6ABCFF call 004053BC
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083E98F 8B9E60030000 mov ebx, [esi+$0360]
|
||
0083E995 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0083E997 E8A49AC8FF call 004C8440
|
||
0083E99C 6A00 push $00
|
||
0083E99E 6A00 push $00
|
||
0083E9A0 6A00 push $00
|
||
0083E9A2 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.StrToFloatDef(AnsiString;Extended):Extended;overload;
|
||
|
|
||
0083E9A5 E8BEEDBCFF call 0040D768
|
||
0083E9AA 8D45E8 lea eax, [ebp-$18]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0083E9AD E8DAA3BDFF call 00418D8C
|
||
0083E9B2 8D45E8 lea eax, [ebp-$18]
|
||
0083E9B5 50 push eax
|
||
|
||
* Possible String Reference to: 'DerateMoney'
|
||
|
|
||
0083E9B6 BAE0EA8300 mov edx, $0083EAE0
|
||
0083E9BB 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083E9BD E8F281C8FF call 004C6BB4
|
||
0083E9C2 5A pop edx
|
||
0083E9C3 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
0083E9C5 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0083E9CB 8BC3 mov eax, ebx
|
||
0083E9CD 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
0083E9CF FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryCmd : TADOQuery
|
||
|
|
||
0083E9D5 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0083E9DB 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083E9DD E8F26EC8FF call 004C58D4
|
||
0083E9E2 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083E9E4 E8C3F5C9FF call 004DDFAC
|
||
0083E9E9 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0083E9EB FF5244 call dword ptr [edx+$44]
|
||
0083E9EE 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083E9F0 E8B7F5C9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0083E9F5 BAF4EA8300 mov edx, $0083EAF4
|
||
0083E9FA 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083E9FC FF5138 call dword ptr [ecx+$38]
|
||
0083E9FF 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083EA01 E8A6F5C9FF call 004DDFAC
|
||
0083EA06 50 push eax
|
||
0083EA07 8D45E4 lea eax, [ebp-$1C]
|
||
0083EA0A 8B4DFC mov ecx, [ebp-$04]
|
||
|
||
* Possible String Reference to: ' set DerateMoney='
|
||
|
|
||
0083EA0D BA10EB8300 mov edx, $0083EB10
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
0083EA12 E8296CBCFF call 00405640
|
||
0083EA17 8B55E4 mov edx, [ebp-$1C]
|
||
0083EA1A 58 pop eax
|
||
0083EA1B 8B08 mov ecx, [eax]
|
||
0083EA1D FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' where YFId=''
|
||
|
|
||
0083EA20 682CEB8300 push $0083EB2C
|
||
|
||
* Possible String Reference to: 'YFId'
|
||
|
|
||
0083EA25 BA44EB8300 mov edx, $0083EB44
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083EA2A 8B8660030000 mov eax, [esi+$0360]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083EA30 E87F81C8FF call 004C6BB4
|
||
0083EA35 8D55D8 lea edx, [ebp-$28]
|
||
0083EA38 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0083EA3A FF5160 call dword ptr [ecx+$60]
|
||
0083EA3D 8B45D8 mov eax, [ebp-$28]
|
||
0083EA40 8D55DC lea edx, [ebp-$24]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083EA43 E8A4BEBCFF call 0040A8EC
|
||
0083EA48 FF75DC push dword ptr [ebp-$24]
|
||
0083EA4B 6854EB8300 push $0083EB54
|
||
0083EA50 8D45E0 lea eax, [ebp-$20]
|
||
0083EA53 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083EA58 E8576CBCFF call 004056B4
|
||
0083EA5D 8B45E0 mov eax, [ebp-$20]
|
||
0083EA60 50 push eax
|
||
0083EA61 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083EA63 E844F5C9FF call 004DDFAC
|
||
0083EA68 5A pop edx
|
||
0083EA69 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083EA6B FF5138 call dword ptr [ecx+$38]
|
||
0083EA6E 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
||
|
|
||
0083EA70 E85FF4C9FF call 004DDED4
|
||
|
||
* Reference to control TfrmSKCR_SH.Tv2 : TcxGridDBTableView
|
||
|
|
||
0083EA75 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;
|
||
|
|
||
0083EA7B E8CCD8E1FF call 0065C34C
|
||
|
||
* Reference to field TcxGridDBTableView.OFFS_0080
|
||
|
|
||
0083EA80 8B8080000000 mov eax, [eax+$0080]
|
||
0083EA86 33D2 xor edx, edx
|
||
|
||
* Reference to : TcxCustomGridTableView._PROC_0062075C()
|
||
|
|
||
0083EA88 E8CF1CDEFF call 0062075C
|
||
0083EA8D 33C0 xor eax, eax
|
||
0083EA8F 5A pop edx
|
||
0083EA90 59 pop ecx
|
||
0083EA91 59 pop ecx
|
||
0083EA92 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '^[<5B><>]<5D>'
|
||
|
|
||
0083EA95 68C4EA8300 push $0083EAC4
|
||
0083EA9A 8D45D8 lea eax, [ebp-$28]
|
||
0083EA9D BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
0083EAA2 E8A168BCFF call 00405348
|
||
0083EAA7 8D45E8 lea eax, [ebp-$18]
|
||
|
||
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
||
|
|
||
0083EAAA E8C55BBDFF call 00414674
|
||
0083EAAF 8D45F8 lea eax, [ebp-$08]
|
||
0083EAB2 BA02000000 mov edx, $00000002
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
0083EAB7 E88C68BCFF call 00405348
|
||
0083EABC C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
0083EABD E93260BCFF jmp 00404AF4
|
||
0083EAC2 EBD6 jmp 0083EA9A
|
||
|
||
****** END
|
||
|
|
||
0083EAC4 5E pop esi
|
||
0083EAC5 5B pop ebx
|
||
0083EAC6 8BE5 mov esp, ebp
|
||
0083EAC8 5D pop ebp
|
||
0083EAC9 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.tchkClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083EB58 55 push ebp
|
||
0083EB59 8BEC mov ebp, esp
|
||
0083EB5B B904000000 mov ecx, $00000004
|
||
0083EB60 6A00 push $00
|
||
0083EB62 6A00 push $00
|
||
0083EB64 49 dec ecx
|
||
0083EB65 75F9 jnz 0083EB60
|
||
0083EB67 51 push ecx
|
||
0083EB68 53 push ebx
|
||
0083EB69 56 push esi
|
||
0083EB6A 57 push edi
|
||
0083EB6B 8945FC mov [ebp-$04], eax
|
||
0083EB6E 33C0 xor eax, eax
|
||
0083EB70 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>]<5D><><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
0083EB71 686FED8300 push $0083ED6F
|
||
|
||
***** TRY
|
||
|
|
||
0083EB76 64FF30 push dword ptr fs:[eax]
|
||
0083EB79 648920 mov fs:[eax], esp
|
||
0083EB7C 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083EB7F 8B8060030000 mov eax, [eax+$0360]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0083EB85 E83693C8FF call 004C7EC0
|
||
0083EB8A 84C0 test al, al
|
||
0083EB8C 0F85BA010000 jnz 0083ED4C
|
||
0083EB92 A080ED8300 mov al, byte ptr [$0083ED80]
|
||
0083EB97 50 push eax
|
||
0083EB98 8D45EC lea eax, [ebp-$14]
|
||
0083EB9B B201 mov dl, $01
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
0083EB9D E8C2A1BDFF call 00418D64
|
||
0083EBA2 8D4DEC lea ecx, [ebp-$14]
|
||
0083EBA5 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083EBA8 8B8060030000 mov eax, [eax+$0360]
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
0083EBAE BA8CED8300 mov edx, $0083ED8C
|
||
0083EBB3 8B18 mov ebx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
||
|
|
||
0083EBB5 FF9344020000 call dword ptr [ebx+$0244]
|
||
0083EBBB 84C0 test al, al
|
||
0083EBBD 751D jnz 0083EBDC
|
||
0083EBBF 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
0083EBC1 B994ED8300 mov ecx, $0083ED94
|
||
|
||
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
||
|
|
||
0083EBC6 BA9CED8300 mov edx, $0083ED9C
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.tnochkClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083EE24 55 push ebp
|
||
0083EE25 8BEC mov ebp, esp
|
||
0083EE27 B904000000 mov ecx, $00000004
|
||
0083EE2C 6A00 push $00
|
||
0083EE2E 6A00 push $00
|
||
0083EE30 49 dec ecx
|
||
0083EE31 75F9 jnz 0083EE2C
|
||
0083EE33 51 push ecx
|
||
0083EE34 53 push ebx
|
||
0083EE35 56 push esi
|
||
0083EE36 57 push edi
|
||
0083EE37 8945FC mov [ebp-$04], eax
|
||
0083EE3A 33C0 xor eax, eax
|
||
0083EE3C 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>Z<EFBFBD><5A><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
0083EE3D 683BF08300 push $0083F03B
|
||
|
||
***** TRY
|
||
|
|
||
0083EE42 64FF30 push dword ptr fs:[eax]
|
||
0083EE45 648920 mov fs:[eax], esp
|
||
0083EE48 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083EE4B 8B8060030000 mov eax, [eax+$0360]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0083EE51 E86A90C8FF call 004C7EC0
|
||
0083EE56 84C0 test al, al
|
||
0083EE58 0F85BA010000 jnz 0083F018
|
||
0083EE5E A04CF08300 mov al, byte ptr [$0083F04C]
|
||
0083EE63 50 push eax
|
||
0083EE64 8D45EC lea eax, [ebp-$14]
|
||
0083EE67 B201 mov dl, $01
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
0083EE69 E8F69EBDFF call 00418D64
|
||
0083EE6E 8D4DEC lea ecx, [ebp-$14]
|
||
0083EE71 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083EE74 8B8060030000 mov eax, [eax+$0360]
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
0083EE7A BA58F08300 mov edx, $0083F058
|
||
0083EE7F 8B18 mov ebx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
||
|
|
||
0083EE81 FF9344020000 call dword ptr [ebx+$0244]
|
||
0083EE87 84C0 test al, al
|
||
0083EE89 751D jnz 0083EEA8
|
||
0083EE8B 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
0083EE8D B960F08300 mov ecx, $0083F060
|
||
|
||
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
||
|
|
||
0083EE92 BA68F08300 mov edx, $0083F068
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.cxTabControl1Change(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083F0F0 53 push ebx
|
||
0083F0F1 8BD8 mov ebx, eax
|
||
0083F0F3 8BC3 mov eax, ebx
|
||
|
||
|
|
||
0083F0F5 E88EB5FFFF call 0083A688
|
||
0083F0FA 8BC3 mov eax, ebx
|
||
|
||
|
|
||
0083F0FC E8C7B6FFFF call 0083A7C8
|
||
0083F101 5B pop ebx
|
||
0083F102 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.nochkClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083F104 55 push ebp
|
||
0083F105 8BEC mov ebp, esp
|
||
0083F107 B906000000 mov ecx, $00000006
|
||
0083F10C 6A00 push $00
|
||
0083F10E 6A00 push $00
|
||
0083F110 49 dec ecx
|
||
0083F111 75F9 jnz 0083F10C
|
||
0083F113 53 push ebx
|
||
0083F114 56 push esi
|
||
0083F115 57 push edi
|
||
0083F116 8945FC mov [ebp-$04], eax
|
||
0083F119 33C0 xor eax, eax
|
||
0083F11B 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>W<EFBFBD><57><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
0083F11C 6865F38300 push $0083F365
|
||
|
||
***** TRY
|
||
|
|
||
0083F121 64FF30 push dword ptr fs:[eax]
|
||
0083F124 648920 mov fs:[eax], esp
|
||
0083F127 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083F12A 8B8060030000 mov eax, [eax+$0360]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0083F130 E88B8DC8FF call 004C7EC0
|
||
0083F135 84C0 test al, al
|
||
0083F137 0F85F0010000 jnz 0083F32D
|
||
0083F13D A074F38300 mov al, byte ptr [$0083F374]
|
||
0083F142 50 push eax
|
||
0083F143 8D45EC lea eax, [ebp-$14]
|
||
0083F146 B201 mov dl, $01
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
0083F148 E8179CBDFF call 00418D64
|
||
0083F14D 8D4DEC lea ecx, [ebp-$14]
|
||
0083F150 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083F153 8B8060030000 mov eax, [eax+$0360]
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
0083F159 BA80F38300 mov edx, $0083F380
|
||
0083F15E 8B18 mov ebx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
||
|
|
||
0083F160 FF9344020000 call dword ptr [ebx+$0244]
|
||
0083F166 84C0 test al, al
|
||
0083F168 751D jnz 0083F187
|
||
0083F16A 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
0083F16C B988F38300 mov ecx, $0083F388
|
||
|
||
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
||
|
|
||
0083F171 BA90F38300 mov edx, $0083F390
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.TSDClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083F440 55 push ebp
|
||
0083F441 8BEC mov ebp, esp
|
||
0083F443 6A00 push $00
|
||
0083F445 6A00 push $00
|
||
0083F447 53 push ebx
|
||
0083F448 8BD8 mov ebx, eax
|
||
0083F44A 33C0 xor eax, eax
|
||
0083F44C 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>U<EFBFBD><55><EFBFBD><EFBFBD>[YY]<5D>'
|
||
|
|
||
0083F44D 680EF58300 push $0083F50E
|
||
|
||
***** TRY
|
||
|
|
||
0083F452 64FF30 push dword ptr fs:[eax]
|
||
0083F455 648920 mov fs:[eax], esp
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083F458 8B8360030000 mov eax, [ebx+$0360]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0083F45E E85D8AC8FF call 004C7EC0
|
||
0083F463 84C0 test al, al
|
||
0083F465 0F8588000000 jnz 0083F4F3
|
||
0083F46B 8BCB mov ecx, ebx
|
||
0083F46D B201 mov dl, $01
|
||
|
||
* Reference to class TfrmFjList10
|
||
|
|
||
0083F46F A188338100 mov eax, dword ptr [$00813388]
|
||
|
||
* Reference to: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
||
| or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
||
|
|
||
0083F474 E85729C6FF call 004A1DD0
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.N1Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083F538 B201 mov dl, $01
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083F53A 8B8060030000 mov eax, [eax+$0360]
|
||
|
||
* Reference to : TfrmSelExportField._PROC_007B84A4()
|
||
|
|
||
0083F540 E85F8FF7FF call 007B84A4
|
||
0083F545 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.N2Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083F548 33D2 xor edx, edx
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083F54A 8B8060030000 mov eax, [eax+$0360]
|
||
|
||
* Reference to : TfrmSelExportField._PROC_007B84A4()
|
||
|
|
||
0083F550 E84F8FF7FF call 007B84A4
|
||
0083F555 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.v2SselPropertiesChange(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083F558 53 push ebx
|
||
0083F559 56 push esi
|
||
0083F55A 8BD8 mov ebx, eax
|
||
|
||
* Reference to control TfrmSKCR_SH.ToolBar1 : TToolBar
|
||
|
|
||
0083F55C 8B83F8020000 mov eax, [ebx+$02F8]
|
||
0083F562 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TToolBar.SetFocus()
|
||
|
|
||
0083F564 FF92C4000000 call dword ptr [edx+$00C4]
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
0083F56A BAA8F58300 mov edx, $0083F5A8
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083F56F 8BB360030000 mov esi, [ebx+$0360]
|
||
0083F575 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083F577 E83876C8FF call 004C6BB4
|
||
0083F57C 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
||
|
|
||
0083F57E FF524C call dword ptr [edx+$4C]
|
||
0083F581 D835B0F58300 fdiv dword ptr [$0083F5B0]
|
||
0083F587 83C4F8 add esp, -$08
|
||
0083F58A DD1C24 fstp qword ptr [esp]
|
||
0083F58D 9B wait
|
||
|
||
* Reference to control TfrmSKCR_SH.Label12 : TLabel
|
||
|
|
||
0083F58E 8B93B4030000 mov edx, [ebx+$03B4]
|
||
0083F594 8BC6 mov eax, esi
|
||
|
||
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
||
|
|
||
0083F596 E8F577F7FF call 007B6D90
|
||
0083F59B 5E pop esi
|
||
0083F59C 5B pop ebx
|
||
0083F59D C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH.CheckBox1Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083F5B4 55 push ebp
|
||
0083F5B5 8BEC mov ebp, esp
|
||
0083F5B7 33C9 xor ecx, ecx
|
||
0083F5B9 51 push ecx
|
||
0083F5BA 51 push ecx
|
||
0083F5BB 51 push ecx
|
||
0083F5BC 51 push ecx
|
||
0083F5BD 51 push ecx
|
||
0083F5BE 51 push ecx
|
||
0083F5BF 51 push ecx
|
||
0083F5C0 51 push ecx
|
||
0083F5C1 53 push ebx
|
||
0083F5C2 56 push esi
|
||
0083F5C3 57 push edi
|
||
0083F5C4 8BF0 mov esi, eax
|
||
0083F5C6 33C0 xor eax, eax
|
||
0083F5C8 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>S<EFBFBD><53><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
0083F5C9 6803F78300 push $0083F703
|
||
|
||
***** TRY
|
||
|
|
||
0083F5CE 64FF30 push dword ptr fs:[eax]
|
||
0083F5D1 648920 mov fs:[eax], esp
|
||
0083F5D4 BA1CF78300 mov edx, $0083F71C
|
||
|
||
* Reference to control TfrmSKCR_SH.Label12 : TLabel
|
||
|
|
||
0083F5D9 8B86B4030000 mov eax, [esi+$03B4]
|
||
|
||
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
||
|
|
||
0083F5DF E83C90C4FF call 00488620
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083F5E4 8B8660030000 mov eax, [esi+$0360]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0083F5EA E8D188C8FF call 004C7EC0
|
||
0083F5EF 84C0 test al, al
|
||
0083F5F1 0F85E6000000 jnz 0083F6DD
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083F5F7 8B9E60030000 mov ebx, [esi+$0360]
|
||
0083F5FD 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
||
|
|
||
0083F5FF E8507FC8FF call 004C7554
|
||
0083F604 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.First(TDataSet);
|
||
|
|
||
0083F606 E8258AC8FF call 004C8030
|
||
0083F60B E9B2000000 jmp 0083F6C2
|
||
0083F610 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0083F612 E8298EC8FF call 004C8440
|
||
|
||
* Reference to control TfrmSKCR_SH.CheckBox1 : TCheckBox
|
||
|
|
||
0083F617 8B86C0030000 mov eax, [esi+$03C0]
|
||
0083F61D 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TCheckBox.GetChecked()
|
||
|
|
||
0083F61F FF92C8000000 call dword ptr [edx+$00C8]
|
||
0083F625 8BD0 mov edx, eax
|
||
0083F627 8D45F0 lea eax, [ebp-$10]
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
0083F62A E83597BDFF call 00418D64
|
||
0083F62F 8D45F0 lea eax, [ebp-$10]
|
||
0083F632 50 push eax
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
0083F633 BA28F78300 mov edx, $0083F728
|
||
0083F638 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083F63A E87575C8FF call 004C6BB4
|
||
0083F63F 5A pop edx
|
||
0083F640 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
0083F642 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
|
||
* Reference to control TfrmSKCR_SH.CheckBox1 : TCheckBox
|
||
|
|
||
0083F648 8B86C0030000 mov eax, [esi+$03C0]
|
||
0083F64E 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TCheckBox.GetChecked()
|
||
|
|
||
0083F650 FF92C8000000 call dword ptr [edx+$00C8]
|
||
0083F656 3C01 cmp al, $01
|
||
0083F658 7557 jnz 0083F6B1
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
0083F65A BA38F78300 mov edx, $0083F738
|
||
0083F65F 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083F661 E84E75C8FF call 004C6BB4
|
||
0083F666 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
||
|
|
||
0083F668 FF524C call dword ptr [edx+$4C]
|
||
0083F66B DF7DE4 fistp qword ptr [ebp-$1C]
|
||
0083F66E 9B wait
|
||
0083F66F 8D55E0 lea edx, [ebp-$20]
|
||
|
||
* Reference to control TfrmSKCR_SH.Label12 : TLabel
|
||
|
|
||
0083F672 8BBEB4030000 mov edi, [esi+$03B4]
|
||
0083F678 8BC7 mov eax, edi
|
||
|
||
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
||
|
|
||
0083F67A E8718FC4FF call 004885F0
|
||
0083F67F 8B45E0 mov eax, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083F682 E8A5E0BCFF call 0040D72C
|
||
0083F687 D80D40F78300 fmul dword ptr [$0083F740]
|
||
0083F68D DF6DE4 fild qword ptr [ebp-$1C]
|
||
0083F690 DEC1 faddp st(1), st(0)
|
||
0083F692 D83540F78300 fdiv dword ptr [$0083F740]
|
||
0083F698 83C4F4 add esp, -$0C
|
||
0083F69B DB3C24 fstp tbyte ptr [esp]
|
||
0083F69E 9B wait
|
||
0083F69F 8D45EC lea eax, [ebp-$14]
|
||
|
||
|
|
||
0083F6A2 E805DFBCFF call 0040D5AC
|
||
0083F6A7 8B55EC mov edx, [ebp-$14]
|
||
0083F6AA 8BC7 mov eax, edi
|
||
|
||
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
||
|
|
||
0083F6AC E86F8FC4FF call 00488620
|
||
0083F6B1 8BC3 mov eax, ebx
|
||
0083F6B3 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
0083F6B5 FF924C020000 call dword ptr [edx+$024C]
|
||
0083F6BB 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Next(TDataSet);
|
||
|
|
||
0083F6BD E88A8CC8FF call 004C834C
|
||
|
||
* Reference to field TClientDataSet.Eof : Boolean
|
||
|
|
||
0083F6C2 80BBA100000000 cmp byte ptr [ebx+$00A1], $00
|
||
0083F6C9 0F8441FFFFFF jz 0083F610
|
||
0083F6CF 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.First(TDataSet);
|
||
|
|
||
0083F6D1 E85A89C8FF call 004C8030
|
||
0083F6D6 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
||
|
|
||
0083F6D8 E8977EC8FF call 004C7574
|
||
0083F6DD 33C0 xor eax, eax
|
||
0083F6DF 5A pop edx
|
||
0083F6E0 59 pop ecx
|
||
0083F6E1 59 pop ecx
|
||
0083F6E2 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '_^[<5B><>]<5D>'
|
||
|
|
||
0083F6E5 680AF78300 push $0083F70A
|
||
0083F6EA 8D45E0 lea eax, [ebp-$20]
|
||
|
||
* Reference to: System.@LStrClr(void;void);
|
||
|
|
||
0083F6ED E8325CBCFF call 00405324
|
||
0083F6F2 8D45EC lea eax, [ebp-$14]
|
||
|
||
* Reference to: System.@LStrClr(void;void);
|
||
|
|
||
0083F6F5 E82A5CBCFF call 00405324
|
||
0083F6FA 8D45F0 lea eax, [ebp-$10]
|
||
|
||
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
||
|
|
||
0083F6FD E8724FBDFF call 00414674
|
||
0083F702 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
0083F703 E9EC53BCFF jmp 00404AF4
|
||
0083F708 EBE0 jmp 0083F6EA
|
||
|
||
****** END
|
||
|
|
||
0083F70A 5F pop edi
|
||
0083F70B 5E pop esi
|
||
0083F70C 5B pop ebx
|
||
0083F70D 8BE5 mov esp, ebp
|
||
0083F70F 5D pop ebp
|
||
0083F710 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH._PROC_0083A7C9(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083A7C9 8BEC mov ebp, esp
|
||
0083A7CB B904000000 mov ecx, $00000004
|
||
0083A7D0 6A00 push $00
|
||
0083A7D2 6A00 push $00
|
||
0083A7D4 49 dec ecx
|
||
0083A7D5 75F9 jnz 0083A7D0
|
||
0083A7D7 51 push ecx
|
||
0083A7D8 53 push ebx
|
||
0083A7D9 56 push esi
|
||
0083A7DA 8945FC mov [ebp-$04], eax
|
||
0083A7DD 33C0 xor eax, eax
|
||
0083A7DF 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>8<EFBFBD><38><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D><><EFBFBD><EFBFBD><EFBFBD>'
|
||
|
|
||
0083A7E0 68B7AA8300 push $0083AAB7
|
||
|
||
***** TRY
|
||
|
|
||
0083A7E5 64FF30 push dword ptr fs:[eax]
|
||
0083A7E8 648920 mov fs:[eax], esp
|
||
0083A7EB 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.ToolBar1 : TToolBar
|
||
|
|
||
0083A7EE 8B80F8020000 mov eax, [eax+$02F8]
|
||
0083A7F4 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TToolBar.SetFocus()
|
||
|
|
||
0083A7F6 FF92C4000000 call dword ptr [edx+$00C4]
|
||
0083A7FC 33C0 xor eax, eax
|
||
0083A7FE 55 push ebp
|
||
0083A7FF 6878AA8300 push $0083AA78
|
||
|
||
***** TRY
|
||
|
|
||
0083A804 64FF30 push dword ptr fs:[eax]
|
||
0083A807 648920 mov fs:[eax], esp
|
||
0083A80A 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryMain : TADOQuery
|
||
|
|
||
0083A80D 8B8020030000 mov eax, [eax+$0320]
|
||
|
||
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
||
|
|
||
0083A813 E83CCDC8FF call 004C7554
|
||
0083A818 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryMain : TADOQuery
|
||
|
|
||
0083A81B 8B9820030000 mov ebx, [eax+$0320]
|
||
0083A821 33D2 xor edx, edx
|
||
0083A823 8BC3 mov eax, ebx
|
||
0083A825 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_0190
|
||
|
|
||
0083A827 FF9190010000 call dword ptr [ecx+$0190]
|
||
0083A82D 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083A82F E8A0B0C8FF call 004C58D4
|
||
0083A834 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083A836 E87137CAFF call 004DDFAC
|
||
0083A83B 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0083A83D FF5244 call dword ptr [edx+$44]
|
||
0083A840 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083A842 E86537CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' select A.*, '
|
||
|
|
||
0083A847 BACCAA8300 mov edx, $0083AACC
|
||
0083A84C 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083A84E FF5138 call dword ptr [ecx+$38]
|
||
0083A851 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083A853 E85437CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'IFSD=cast((case when isnull((select
|
||
| T.TFID from TP_File T where T.WBID
|
||
| =A.YFID and T.TFType='SD'),'')='' t
|
||
| hen 0 else 1 end) as bit)'
|
||
|
|
||
0083A858 BAE4AA8300 mov edx, $0083AAE4
|
||
0083A85D 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083A85F FF5138 call dword ptr [ecx+$38]
|
||
0083A862 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083A864 E84337CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' from YF_Money_CR A'
|
||
|
|
||
0083A869 BA70AB8300 mov edx, $0083AB70
|
||
0083A86E 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083A870 FF5138 call dword ptr [ecx+$38]
|
||
0083A873 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083A875 E83237CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' left join YF_Money_KC B on A.CRID=
|
||
| B.CRID'
|
||
|
|
||
0083A87A BA90AB8300 mov edx, $0083AB90
|
||
0083A87F 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083A881 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: 'where A.CRTime>=''
|
||
|
|
||
0083A884 68C4AB8300 push $0083ABC4
|
||
0083A889 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.begdate : TDateTimePicker
|
||
|
|
||
0083A88C 8B8050030000 mov eax, [eax+$0350]
|
||
0083A892 FFB014020000 push dword ptr [eax+$0214]
|
||
0083A898 FFB010020000 push dword ptr [eax+$0210]
|
||
0083A89E 8D55F4 lea edx, [ebp-$0C]
|
||
|
||
* Possible String Reference to: 'yyyy-MM-dd'
|
||
|
|
||
0083A8A1 B8E0AB8300 mov eax, $0083ABE0
|
||
|
||
|
|
||
0083A8A6 E81143BDFF call 0040EBBC
|
||
0083A8AB FF75F4 push dword ptr [ebp-$0C]
|
||
|
||
* Possible String Reference to: '' '
|
||
|
|
||
0083A8AE 68F4AB8300 push $0083ABF4
|
||
0083A8B3 8D45F8 lea eax, [ebp-$08]
|
||
0083A8B6 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083A8BB E8F4ADBCFF call 004056B4
|
||
0083A8C0 8B45F8 mov eax, [ebp-$08]
|
||
0083A8C3 50 push eax
|
||
0083A8C4 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083A8C6 E8E136CAFF call 004DDFAC
|
||
0083A8CB 5A pop edx
|
||
0083A8CC 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083A8CE FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' and CRTime<''
|
||
|
|
||
0083A8D1 6800AC8300 push $0083AC00
|
||
0083A8D6 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.Enddate : TDateTimePicker
|
||
|
|
||
0083A8D9 8B8054030000 mov eax, [eax+$0354]
|
||
0083A8DF DD8010020000 fld qword ptr [eax+$0210]
|
||
0083A8E5 D80510AC8300 fadd dword ptr [$0083AC10]
|
||
0083A8EB 83C4F8 add esp, -$08
|
||
0083A8EE DD1C24 fstp qword ptr [esp]
|
||
0083A8F1 9B wait
|
||
0083A8F2 8D55EC lea edx, [ebp-$14]
|
||
|
||
* Possible String Reference to: 'yyyy-MM-dd'
|
||
|
|
||
0083A8F5 B8E0AB8300 mov eax, $0083ABE0
|
||
|
||
|
|
||
0083A8FA E8BD42BDFF call 0040EBBC
|
||
0083A8FF FF75EC push dword ptr [ebp-$14]
|
||
|
||
* Possible String Reference to: '' '
|
||
|
|
||
0083A902 68F4AB8300 push $0083ABF4
|
||
0083A907 8D45F0 lea eax, [ebp-$10]
|
||
0083A90A BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083A90F E8A0ADBCFF call 004056B4
|
||
0083A914 8B45F0 mov eax, [ebp-$10]
|
||
0083A917 50 push eax
|
||
0083A918 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083A91A E88D36CAFF call 004DDFAC
|
||
0083A91F 5A pop edx
|
||
0083A920 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083A922 FF5138 call dword ptr [ecx+$38]
|
||
0083A925 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083A927 E88036CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' and A.CRType='<27>տ<EFBFBD><D5BF>Ǽ<EFBFBD>' '
|
||
|
|
||
0083A92C BA1CAC8300 mov edx, $0083AC1C
|
||
0083A931 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083A933 FF5138 call dword ptr [ecx+$38]
|
||
0083A936 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.cxTabControl1 : TcxTabControl
|
||
|
|
||
0083A939 8B808C030000 mov eax, [eax+$038C]
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
0083A93F 83B83C03000000 cmp dword ptr [eax+$033C], +$00
|
||
0083A946 7511 jnz 0083A959
|
||
0083A948 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083A94A E85D36CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' and A.status='1' '
|
||
|
|
||
0083A94F BA40AC8300 mov edx, $0083AC40
|
||
0083A954 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083A956 FF5138 call dword ptr [ecx+$38]
|
||
0083A959 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.cxTabControl1 : TcxTabControl
|
||
|
|
||
0083A95C 8B808C030000 mov eax, [eax+$038C]
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
0083A962 83B83C03000001 cmp dword ptr [eax+$033C], +$01
|
||
0083A969 7511 jnz 0083A97C
|
||
0083A96B 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083A96D E83A36CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' and A.status='2' '
|
||
|
|
||
0083A972 BA5CAC8300 mov edx, $0083AC5C
|
||
0083A977 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083A979 FF5138 call dword ptr [ecx+$38]
|
||
0083A97C 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.cxTabControl1 : TcxTabControl
|
||
|
|
||
0083A97F 8B808C030000 mov eax, [eax+$038C]
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
0083A985 83B83C03000002 cmp dword ptr [eax+$033C], +$02
|
||
0083A98C 7511 jnz 0083A99F
|
||
0083A98E 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083A990 E81736CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' and isnull(A.status,'0')<>'0' '
|
||
|
|
||
0083A995 BA78AC8300 mov edx, $0083AC78
|
||
0083A99A 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083A99C FF5138 call dword ptr [ecx+$38]
|
||
0083A99F 8D55E8 lea edx, [ebp-$18]
|
||
0083A9A2 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.Money : TEdit
|
||
|
|
||
0083A9A5 8B8078030000 mov eax, [eax+$0378]
|
||
|
||
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
||
|
|
||
0083A9AB E840DCC4FF call 004885F0
|
||
0083A9B0 837DE800 cmp dword ptr [ebp-$18], +$00
|
||
0083A9B4 744C jz 0083AA02
|
||
|
||
* Possible String Reference to: 'and A.Money like '%'
|
||
|
|
||
0083A9B6 68A0AC8300 push $0083ACA0
|
||
0083A9BB 8D55DC lea edx, [ebp-$24]
|
||
0083A9BE 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.Money : TEdit
|
||
|
|
||
0083A9C1 8B8078030000 mov eax, [eax+$0378]
|
||
|
||
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
||
|
|
||
0083A9C7 E824DCC4FF call 004885F0
|
||
0083A9CC 8B45DC mov eax, [ebp-$24]
|
||
0083A9CF 8D55E0 lea edx, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083A9D2 E815FFBCFF call 0040A8EC
|
||
0083A9D7 FF75E0 push dword ptr [ebp-$20]
|
||
0083A9DA 68BCAC8300 push $0083ACBC
|
||
0083A9DF 68C8AC8300 push $0083ACC8
|
||
0083A9E4 8D45E4 lea eax, [ebp-$1C]
|
||
0083A9E7 BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083A9EC E8C3ACBCFF call 004056B4
|
||
0083A9F1 8B45E4 mov eax, [ebp-$1C]
|
||
0083A9F4 50 push eax
|
||
0083A9F5 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083A9F7 E8B035CAFF call 004DDFAC
|
||
0083A9FC 5A pop edx
|
||
0083A9FD 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083A9FF FF5138 call dword ptr [ecx+$38]
|
||
0083AA02 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
0083AA04 E8BFAEC8FF call 004C58C8
|
||
0083AA09 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083AA0C 8B9060030000 mov edx, [eax+$0360]
|
||
0083AA12 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryMain : TADOQuery
|
||
|
|
||
0083AA15 8B8020030000 mov eax, [eax+$0320]
|
||
|
||
|
|
||
0083AA1B E870C4F7FF call 007B6E90
|
||
0083AA20 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083AA23 8B9060030000 mov edx, [eax+$0360]
|
||
0083AA29 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryMain : TADOQuery
|
||
|
|
||
0083AA2C 8B8020030000 mov eax, [eax+$0320]
|
||
|
||
|
|
||
0083AA32 E8E1C5F7FF call 007B7018
|
||
0083AA37 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.Label12 : TLabel
|
||
|
|
||
0083AA3A 8B80B4030000 mov eax, [eax+$03B4]
|
||
0083AA40 BAD4AC8300 mov edx, $0083ACD4
|
||
|
||
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
||
|
|
||
0083AA45 E8D6DBC4FF call 00488620
|
||
0083AA4A 33C0 xor eax, eax
|
||
0083AA4C 5A pop edx
|
||
0083AA4D 59 pop ecx
|
||
0083AA4E 59 pop ecx
|
||
0083AA4F 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
0083AA52 687FAA8300 push $0083AA7F
|
||
0083AA57 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryMain : TADOQuery
|
||
|
|
||
0083AA5A 8B8020030000 mov eax, [eax+$0320]
|
||
|
||
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
||
|
|
||
0083AA60 E80FCBC8FF call 004C7574
|
||
0083AA65 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.ToolButton2 : TToolButton
|
||
|
|
||
0083AA68 8B8014030000 mov eax, [eax+$0314]
|
||
0083AA6E 66BEEBFF mov si, $FFEB
|
||
|
||
* Reference to: System.@CallDynaInst;
|
||
|
|
||
0083AA72 E8DD9ABCFF call 00404554
|
||
0083AA77 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
0083AA78 E977A0BCFF jmp 00404AF4
|
||
0083AA7D EBD8 jmp 0083AA57
|
||
|
||
****** END
|
||
|
|
||
0083AA7F 33C0 xor eax, eax
|
||
0083AA81 5A pop edx
|
||
0083AA82 59 pop ecx
|
||
0083AA83 59 pop ecx
|
||
0083AA84 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '^[<5B><>]<5D><><EFBFBD><EFBFBD><EFBFBD>'
|
||
|
|
||
0083AA87 68BEAA8300 push $0083AABE
|
||
0083AA8C 8D45DC lea eax, [ebp-$24]
|
||
|
||
* Reference to: System.@LStrClr(void;void);
|
||
|
|
||
0083AA8F E890A8BCFF call 00405324
|
||
0083AA94 8D45E0 lea eax, [ebp-$20]
|
||
0083AA97 BA02000000 mov edx, $00000002
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
0083AA9C E8A7A8BCFF call 00405348
|
||
0083AAA1 8D45E8 lea eax, [ebp-$18]
|
||
|
||
* Reference to: System.@LStrClr(void;void);
|
||
|
|
||
0083AAA4 E87BA8BCFF call 00405324
|
||
0083AAA9 8D45EC lea eax, [ebp-$14]
|
||
0083AAAC BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
0083AAB1 E892A8BCFF call 00405348
|
||
0083AAB6 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
0083AAB7 E938A0BCFF jmp 00404AF4
|
||
0083AABC EBCE jmp 0083AA8C
|
||
|
||
****** END
|
||
|
|
||
0083AABE 5E pop esi
|
||
0083AABF 5B pop ebx
|
||
0083AAC0 8BE5 mov esp, ebp
|
||
0083AAC2 5D pop ebp
|
||
0083AAC3 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH._PROC_0083B2C5(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083B2C5 8BEC mov ebp, esp
|
||
0083B2C7 B92A000000 mov ecx, $0000002A
|
||
0083B2CC 6A00 push $00
|
||
0083B2CE 6A00 push $00
|
||
0083B2D0 49 dec ecx
|
||
0083B2D1 75F9 jnz 0083B2CC
|
||
0083B2D3 51 push ecx
|
||
0083B2D4 53 push ebx
|
||
0083B2D5 56 push esi
|
||
0083B2D6 57 push edi
|
||
0083B2D7 8945FC mov [ebp-$04], eax
|
||
0083B2DA 33C0 xor eax, eax
|
||
0083B2DC 55 push ebp
|
||
0083B2DD 682DBA8300 push $0083BA2D
|
||
|
||
***** TRY
|
||
|
|
||
0083B2E2 64FF30 push dword ptr fs:[eax]
|
||
0083B2E5 648920 mov fs:[eax], esp
|
||
0083B2E8 33C0 xor eax, eax
|
||
0083B2EA 55 push ebp
|
||
0083B2EB 68FDB88300 push $0083B8FD
|
||
|
||
***** TRY
|
||
|
|
||
0083B2F0 64FF30 push dword ptr fs:[eax]
|
||
0083B2F3 648920 mov fs:[eax], esp
|
||
0083B2F6 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryCmd : TADOQuery
|
||
|
|
||
0083B2F9 8B800C030000 mov eax, [eax+$030C]
|
||
|
||
* Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection;
|
||
|
|
||
0083B2FF E8280BCAFF call 004DBE2C
|
||
|
||
* Reference to: ADODB.TADOConnection.BeginTrans(TADOConnection):Integer;
|
||
|
|
||
0083B304 E88B6FC9FF call 004D2294
|
||
|
||
* Possible String Reference to: 'YF_Money_CR'
|
||
|
|
||
0083B309 6848BA8300 push $0083BA48
|
||
0083B30E 6A04 push $04
|
||
0083B310 6A01 push $01
|
||
0083B312 8D55F8 lea edx, [ebp-$08]
|
||
0083B315 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryCmd : TADOQuery
|
||
|
|
||
0083B318 8B800C030000 mov eax, [eax+$030C]
|
||
|
||
* Possible String Reference to: 'FK'
|
||
|
|
||
0083B31E B95CBA8300 mov ecx, $0083BA5C
|
||
|
||
* Reference to : TfrmSelExportField._PROC_007B7708()
|
||
|
|
||
0083B323 E8E0C3F7FF call 007B7708
|
||
0083B328 84C0 test al, al
|
||
0083B32A 753A jnz 0083B366
|
||
0083B32C 33DB xor ebx, ebx
|
||
0083B32E 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR_SH.ADOQueryCmd : TADOQuery
|
||
|
|
||
0083B331 8B800C030000 mov eax, [eax+$030C]
|
||
|
||
* Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection;
|
||
|
|
||
0083B337 E8F00ACAFF call 004DBE2C
|
||
|
||
* Reference to: ADODB.TADOConnection.RollbackTrans(TADOConnection);
|
||
|
|
||
0083B33C E89F6FC9FF call 004D22E0
|
||
0083B341 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
0083B343 B960BA8300 mov ecx, $0083BA60
|
||
|
||
* Possible String Reference to: 'ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>'
|
||
|
|
||
0083B348 BA68BA8300 mov edx, $0083BA68
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH._PROC_0083BAE9(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083BAE9 7064 jo 0083BB4F
|
||
0083BAEB 61 popa
|
||
0083BAEC 7465 jz 0083BB53
|
||
0083BAEE 205946 and [ecx+$46], bl
|
||
0083BAF1 5F pop edi
|
||
0083BAF2 4D dec ebp
|
||
0083BAF3 6F outsd
|
||
0083BAF4 6E outsb
|
||
0083BAF5 65795F jns 0083BB57
|
||
0083BAF8 43 inc ebx
|
||
0083BAF9 52 push edx
|
||
0083BAFA 49 dec ecx
|
||
0083BAFB 44 inc esp
|
||
0083BAFC 207365 and [ebx+$65], dh
|
||
0083BAFF 7420 jz 0083BB21
|
||
0083BB01 43 inc ebx
|
||
0083BB02 52 push edx
|
||
0083BB03 49 dec ecx
|
||
0083BB04 44 inc esp
|
||
0083BB05 3D43524944 cmp eax, $44495243
|
||
0083BB0A 2B31 sub esi, dword ptr [ecx]
|
||
0083BB0C 0000 add [eax], al
|
||
|
||
0083BB0E 0000 add [eax], al
|
||
|
||
0083BB10 FFFF DB $FF, $FF //
|
||
0083BB12 FFFF DB $FF, $FF //
|
||
0083BB14 1C00 sbb al, $00
|
||
0083BB16 0000 add [eax], al
|
||
|
||
0083BB18 7365 jnb 0083BB7F
|
||
0083BB1A 6C insb
|
||
0083BB1B 656374202A arpl gs:[eax+$2A], si
|
||
0083BB20 206672 and [esi+$72], ah
|
||
0083BB23 6F outsd
|
||
0083BB24 6D insd
|
||
0083BB25 205946 and [ecx+$46], bl
|
||
0083BB28 5F pop edi
|
||
0083BB29 4D dec ebp
|
||
0083BB2A 6F outsd
|
||
0083BB2B 6E outsb
|
||
0083BB2C 65795F jns 0083BB8E
|
||
0083BB2F 43 inc ebx
|
||
0083BB30 52 push edx
|
||
0083BB31 49 dec ecx
|
||
0083BB32 44 inc esp
|
||
0083BB33 2000 and [eax], al
|
||
0083BB35 0000 add [eax], al
|
||
|
||
0083BB37 00FF add bh, bh
|
||
0083BB39 FFFF DB $FF, $FF //
|
||
0083BB3B FF2400 jmp dword ptr [eax+eax]
|
||
0083BB3E 0000 add [eax], al
|
||
|
||
0083BB40 7365 jnb 0083BBA7
|
||
0083BB42 6C insb
|
||
0083BB43 656374202A arpl gs:[eax+$2A], si
|
||
0083BB48 206672 and [esi+$72], ah
|
||
0083BB4B 6F outsd
|
||
0083BB4C 6D insd
|
||
0083BB4D 205946 and [ecx+$46], bl
|
||
0083BB50 5F pop edi
|
||
0083BB51 4D dec ebp
|
||
0083BB52 6F outsd
|
||
0083BB53 6E outsb
|
||
0083BB54 65795F jns 0083BBB6
|
||
0083BB57 4B dec ebx
|
||
0083BB58 43 inc ebx
|
||
0083BB59 207768 and [edi+$68], dh
|
||
0083BB5C 657265 jb 0083BBC4
|
||
0083BB5F 2031 and [ecx], dh
|
||
0083BB61 3C3E cmp al, $3E
|
||
0083BB63 3100 xor [eax], eax
|
||
0083BB65 0000 add [eax], al
|
||
|
||
0083BB67 00FF add bh, bh
|
||
0083BB69 FFFF DB $FF, $FF //
|
||
0083BB6B FF09 dec dword ptr [ecx]
|
||
0083BB6D 0000 add [eax], al
|
||
|
||
0083BB6F 004661 add [esi+$61], al
|
||
0083BB72 63746F72 arpl [edi+ebp*2+$72], si
|
||
0083BB76 794E jns 0083BBC6
|
||
0083BB78 6F outsd
|
||
0083BB79 0000 add [eax], al
|
||
|
||
0083BB7B 00FF add bh, bh
|
||
0083BB7D FFFF DB $FF, $FF //
|
||
0083BB7F FF07 inc dword ptr [edi]
|
||
0083BB81 0000 add [eax], al
|
||
|
||
0083BB83 005A64 add [edx+$64], bl
|
||
0083BB86 7953 jns 0083BBDB
|
||
0083BB88 7472 jz 0083BBFC
|
||
0083BB8A 3100 xor [eax], eax
|
||
0083BB8C FFFF DB $FF, $FF //
|
||
0083BB8E FFFF DB $FF, $FF //
|
||
0083BB90 06 push es
|
||
0083BB91 0000 add [eax], al
|
||
|
||
0083BB93 00D3 add bl, dl
|
||
0083BB95 A6 cmpsb
|
||
0083BB96 CA ret
|
||
|
||
0083BB97 D5 aad
|
||
0083BB98 CA ret
|
||
|
||
0083BB99 D5 aad
|
||
0083BB9A 0000 add [eax], al
|
||
|
||
0083BB9C FFFF DB $FF, $FF //
|
||
0083BB9E FFFF DB $FF, $FF //
|
||
0083BBA0 2400 and al, $00
|
||
0083BBA2 0000 add [eax], al
|
||
|
||
0083BBA4 7365 jnb 0083BC0B
|
||
0083BBA6 6C insb
|
||
0083BBA7 656374202A arpl gs:[eax+$2A], si
|
||
0083BBAC 206672 and [esi+$72], ah
|
||
0083BBAF 6F outsd
|
||
0083BBB0 6D insd
|
||
0083BBB1 205946 and [ecx+$46], bl
|
||
0083BBB4 5F pop edi
|
||
0083BBB5 4D dec ebp
|
||
0083BBB6 6F outsd
|
||
0083BBB7 6E outsb
|
||
0083BBB8 65795F jns 0083BC1A
|
||
0083BBBB 43 inc ebx
|
||
0083BBBC 52 push edx
|
||
0083BBBD 207768 and [edi+$68], dh
|
||
0083BBC0 657265 jb 0083BC28
|
||
0083BBC3 2031 and [ecx], dh
|
||
0083BBC5 3C3E cmp al, $3E
|
||
0083BBC7 3100 xor [eax], eax
|
||
0083BBC9 0000 add [eax], al
|
||
|
||
0083BBCB 00FF add bh, bh
|
||
0083BBCD FFFF DB $FF, $FF //
|
||
0083BBCF FF0400 inc dword ptr [eax+eax]
|
||
0083BBD2 0000 add [eax], al
|
||
|
||
0083BBD4 59 pop ecx
|
||
0083BBD5 46 inc esi
|
||
0083BBD6 49 dec ecx
|
||
0083BBD7 44 inc esp
|
||
0083BBD8 0000 add [eax], al
|
||
|
||
0083BBDA 0000 add [eax], al
|
||
|
||
0083BBDC FFFF DB $FF, $FF //
|
||
0083BBDE FFFF DB $FF, $FF //
|
||
0083BBE0 06 push es
|
||
0083BBE1 0000 add [eax], al
|
||
|
||
0083BBE3 004669 add [esi+$69], al
|
||
0083BBE6 6C insb
|
||
0083BBE7 6C insb
|
||
0083BBE8 657200 jb 0083BBEB
|
||
0083BBEB 00FF add bh, bh
|
||
0083BBED FFFF DB $FF, $FF //
|
||
0083BBEF FF06 inc dword ptr [esi]
|
||
0083BBF1 0000 add [eax], al
|
||
|
||
0083BBF3 004352 add [ebx+$52], al
|
||
0083BBF6 54 push esp
|
||
0083BBF7 7970 jns 0083BC69
|
||
0083BBF9 650000 add gs:[eax], al
|
||
0083BBFC FFFF DB $FF, $FF //
|
||
0083BBFE FFFF DB $FF, $FF //
|
||
0083BC00 0800 or [eax], al
|
||
0083BC02 0000 add [eax], al
|
||
|
||
0083BC04 CA ret
|
||
|
||
0083BC05 D5 aad
|
||
0083BC06 BFEEB5C7BC mov edi, $BCC7B5EE
|
||
0083BC0B C700000000FF mov dword ptr [eax], $FF000000
|
||
0083BC11 FFFF DB $FF, $FF //
|
||
0083BC13 FF06 inc dword ptr [esi]
|
||
0083BC15 0000 add [eax], al
|
||
|
||
0083BC17 004352 add [ebx+$52], al
|
||
0083BC1A 46 inc esi
|
||
0083BC1B 6C insb
|
||
0083BC1C 61 popa
|
||
0083BC1D 670000 add [bx+si], al
|
||
0083BC20 FFFF DB $FF, $FF //
|
||
0083BC22 FFFF DB $FF, $FF //
|
||
0083BC24 07 pop es
|
||
0083BC25 0000 add [eax], al
|
||
|
||
0083BC27 005174 add [ecx+$74], dl
|
||
0083BC2A 7946 jns 0083BC72
|
||
0083BC2C 6C insb
|
||
0083BC2D 61 popa
|
||
0083BC2E 6700FF add bh, bh
|
||
0083BC31 FFFF DB $FF, $FF //
|
||
0083BC33 FF06 inc dword ptr [esi]
|
||
0083BC35 0000 add [eax], al
|
||
|
||
0083BC37 004352 add [ebx+$52], al
|
||
0083BC3A 54 push esp
|
||
0083BC3B 696D650000FFFF imul ebp, [ebp+$65], $FFFF0000
|
||
0083BC42 FFFF DB $FF, $FF //
|
||
0083BC44 0A00 or al, byte ptr [eax]
|
||
0083BC46 0000 add [eax], al
|
||
|
||
0083BC48 59 pop ecx
|
||
0083BC49 46 inc esi
|
||
0083BC4A 44 inc esp
|
||
0083BC4B 656646 inc si
|
||
0083BC4E 6C insb
|
||
0083BC4F 61 popa
|
||
0083BC50 673100 xor [bx+si], eax
|
||
0083BC53 00FF add bh, bh
|
||
0083BC55 FFFF DB $FF, $FF //
|
||
0083BC57 FF06 inc dword ptr [esi]
|
||
0083BC59 0000 add [eax], al
|
||
|
||
0083BC5B 007374 add [ebx+$74], dh
|
||
0083BC5E 61 popa
|
||
0083BC5F 7475 jz 0083BCD6
|
||
0083BC61 7300 jnb 0083BC63
|
||
0083BC63 00FF add bh, bh
|
||
0083BC65 FFFF DB $FF, $FF //
|
||
0083BC67 FF0400 inc dword ptr [eax+eax]
|
||
0083BC6A 0000 add [eax], al
|
||
|
||
0083BC6C 59 pop ecx
|
||
0083BC6D 46 inc esi
|
||
0083BC6E 49 dec ecx
|
||
0083BC6F 640000 add fs:[eax], al
|
||
0083BC72 0000 add [eax], al
|
||
|
||
0083BC74 D4 aam
|
||
0083BC75 F6D0 not al
|
||
0083BC77 D0CA ror dl, 1
|
||
0083BC79 A7 cmpsd
|
||
0083BC7A B0DC mov al, $DC
|
||
0083BC7C 2100 and [eax], eax
|
||
0083BC7E 0000 add [eax], al
|
||
|
||
0083BC80 55 push ebp
|
||
0083BC81 8BEC mov ebp, esp
|
||
0083BC83 B908000000 mov ecx, $00000008
|
||
0083BC88 6A00 push $00
|
||
0083BC8A 6A00 push $00
|
||
0083BC8C 49 dec ecx
|
||
0083BC8D 75F9 jnz 0083BC88
|
||
0083BC8F 51 push ecx
|
||
0083BC90 53 push ebx
|
||
0083BC91 56 push esi
|
||
0083BC92 8BDA mov ebx, edx
|
||
0083BC94 8BF0 mov esi, eax
|
||
0083BC96 33C0 xor eax, eax
|
||
0083BC98 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>a<EFBFBD><61><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0083BC99 688EBE8300 push $0083BE8E
|
||
|
||
***** TRY
|
||
|
|
||
0083BC9E 64FF30 push dword ptr fs:[eax]
|
||
0083BCA1 648920 mov fs:[eax], esp
|
||
0083BCA4 8D55FC lea edx, [ebp-$04]
|
||
0083BCA7 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;
|
||
|
|
||
0083BCA9 E80E3AD5FF call 0058F6BC
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
0083BCAE 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;
|
||
|
|
||
0083BCB4 E89306E2FF 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;
|
||
|
|
||
0083BCB9 E8A65EE1FF call 00651B64
|
||
|
||
* Reference to field N.A..OFFS_0050
|
||
|
|
||
0083BCBE 8B4050 mov eax, [eax+$50]
|
||
0083BCC1 8D55F4 lea edx, [ebp-$0C]
|
||
0083BCC4 8B08 mov ecx, [eax]
|
||
0083BCC6 FF5110 call dword ptr [ecx+$10]
|
||
0083BCC9 8B45F4 mov eax, [ebp-$0C]
|
||
0083BCCC 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083BCCF E818ECBCFF call 0040A8EC
|
||
|
||
* Reference to control ConNo : N.A.
|
||
|
|
||
0083BCD4 8B9E60030000 mov ebx, [esi+$0360]
|
||
0083BCDA 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0083BCDC E85FC7C8FF call 004C8440
|
||
0083BCE1 8D55E0 lea edx, [ebp-$20]
|
||
0083BCE4 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083BCE7 E800ECBCFF call 0040A8EC
|
||
0083BCEC 8B55E0 mov edx, [ebp-$20]
|
||
0083BCEF 8D45E4 lea eax, [ebp-$1C]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0083BCF2 E8D1D0BDFF call 00418DC8
|
||
0083BCF7 8D45E4 lea eax, [ebp-$1C]
|
||
0083BCFA 50 push eax
|
||
0083BCFB 8B55F8 mov edx, [ebp-$08]
|
||
0083BCFE 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083BD00 E8AFAEC8FF call 004C6BB4
|
||
0083BD05 5A pop edx
|
||
0083BD06 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00B4
|
||
|
|
||
0083BD08 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0083BD0E 8BC3 mov eax, ebx
|
||
0083BD10 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
0083BD12 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
0083BD18 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0083BD1E 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083BD20 E8AF9BC8FF call 004C58D4
|
||
0083BD25 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;
|
||
|
|
||
0083BD27 E88022CAFF call 004DDFAC
|
||
0083BD2C 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
0083BD2E FF5244 call dword ptr [edx+$44]
|
||
0083BD31 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;
|
||
|
|
||
0083BD33 E87422CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YCL_SG_HZ '
|
||
|
|
||
0083BD38 BAA4BE8300 mov edx, $0083BEA4
|
||
0083BD3D 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0083BD3F FF5138 call dword ptr [ecx+$38]
|
||
0083BD42 8D55DC lea edx, [ebp-$24]
|
||
0083BD45 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083BD48 E89FEBBCFF call 0040A8EC
|
||
0083BD4D 837DDC00 cmp dword ptr [ebp-$24], +$00
|
||
0083BD51 7440 jz 0083BD93
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0083BD53 68C0BE8300 push $0083BEC0
|
||
0083BD58 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=''
|
||
|
|
||
0083BD5B 68D0BE8300 push $0083BED0
|
||
0083BD60 8D55D4 lea edx, [ebp-$2C]
|
||
0083BD63 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083BD66 E881EBBCFF call 0040A8EC
|
||
0083BD6B FF75D4 push dword ptr [ebp-$2C]
|
||
0083BD6E 68DCBE8300 push $0083BEDC
|
||
0083BD73 8D45D8 lea eax, [ebp-$28]
|
||
0083BD76 BA05000000 mov edx, $00000005
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083BD7B E83499BCFF call 004056B4
|
||
0083BD80 8B45D8 mov eax, [ebp-$28]
|
||
0083BD83 50 push eax
|
||
0083BD84 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;
|
||
|
|
||
0083BD86 E82122CAFF call 004DDFAC
|
||
0083BD8B 5A pop edx
|
||
0083BD8C 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0083BD8E FF5138 call dword ptr [ecx+$38]
|
||
0083BD91 EB2B jmp 0083BDBE
|
||
0083BD93 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;
|
||
|
|
||
0083BD95 E81222CAFF call 004DDFAC
|
||
0083BD9A 50 push eax
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0083BD9B 68C0BE8300 push $0083BEC0
|
||
0083BDA0 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=NULL'
|
||
|
|
||
0083BDA3 68E8BE8300 push $0083BEE8
|
||
0083BDA8 8D45D0 lea eax, [ebp-$30]
|
||
0083BDAB BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083BDB0 E8FF98BCFF call 004056B4
|
||
0083BDB5 8B55D0 mov edx, [ebp-$30]
|
||
0083BDB8 58 pop eax
|
||
0083BDB9 8B08 mov ecx, [eax]
|
||
0083BDBB FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
0083BDBE 68F8BE8300 push $0083BEF8
|
||
0083BDC3 8D55C8 lea edx, [ebp-$38]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH._PROC_0083BEA5(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083BEA5 50 push eax
|
||
0083BEA6 6461 popa
|
||
0083BEA8 7465 jz 0083BF0F
|
||
0083BEAA 205943 and [ecx+$43], bl
|
||
0083BEAD 4C dec esp
|
||
0083BEAE 5F pop edi
|
||
0083BEAF 53 push ebx
|
||
0083BEB0 47 inc edi
|
||
0083BEB1 5F pop edi
|
||
0083BEB2 48 dec eax
|
||
0083BEB3 5A pop edx
|
||
0083BEB4 2000 and [eax], al
|
||
0083BEB6 0000 add [eax], al
|
||
|
||
0083BEB8 FFFF DB $FF, $FF //
|
||
0083BEBA FFFF DB $FF, $FF //
|
||
0083BEBC 0500000020 add eax, +$20000000
|
||
0083BEC1 53 push ebx
|
||
0083BEC2 657420 jz 0083BEE5
|
||
0083BEC5 0000 add [eax], al
|
||
|
||
0083BEC7 00FF add bh, bh
|
||
0083BEC9 FFFF DB $FF, $FF //
|
||
0083BECB FF02 inc dword ptr [edx]
|
||
0083BECD 0000 add [eax], al
|
||
|
||
0083BECF 003D270000FF add [$FF000027], bh
|
||
0083BED5 FFFF DB $FF, $FF //
|
||
0083BED7 FF01 inc dword ptr [ecx]
|
||
0083BED9 0000 add [eax], al
|
||
|
||
0083BEDB 0027 add [edi], ah
|
||
0083BEDD 0000 add [eax], al
|
||
|
||
0083BEDF 00FF add bh, bh
|
||
0083BEE1 FFFF DB $FF, $FF //
|
||
0083BEE3 FF050000003D inc dword ptr [$3D000000]
|
||
0083BEE9 4E dec esi
|
||
0083BEEA 55 push ebp
|
||
0083BEEB 4C dec esp
|
||
0083BEEC 4C dec esp
|
||
0083BEED 0000 add [eax], al
|
||
|
||
0083BEEF 00FF add bh, bh
|
||
0083BEF1 FFFF DB $FF, $FF //
|
||
0083BEF3 FF09 dec dword ptr [ecx]
|
||
0083BEF5 0000 add [eax], al
|
||
|
||
0083BEF7 002C4564697465 add [$65746964+eax*2], ch
|
||
0083BEFE 723D jb 0083BF3D
|
||
0083BF00 27 daa
|
||
0083BF01 0000 add [eax], al
|
||
|
||
0083BF03 00FF add bh, bh
|
||
0083BF05 FFFF DB $FF, $FF //
|
||
0083BF07 FF1400 call dword ptr [eax+eax]
|
||
0083BF0A 0000 add [eax], al
|
||
|
||
0083BF0C 2C45 sub al, $45
|
||
0083BF0E 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0083BF17 657464 jz 0083BF7E
|
||
0083BF1A 61 popa
|
||
0083BF1B 7465 jz 0083BF82
|
||
0083BF1D 2829 sub [ecx], ch
|
||
0083BF1F 2000 and [eax], al
|
||
0083BF21 0000 add [eax], al
|
||
|
||
0083BF23 00FF add bh, bh
|
||
0083BF25 FFFF DB $FF, $FF //
|
||
0083BF27 FF0E dec dword ptr [esi]
|
||
0083BF29 0000 add [eax], al
|
||
|
||
0083BF2B 0020 add [eax], ah
|
||
0083BF2D 7768 jnbe 0083BF97
|
||
0083BF2F 657265 jb 0083BF97
|
||
0083BF32 205375 and [ebx+$75], dl
|
||
0083BF35 624964 bound ecx, qword ptr [ecx+$64]
|
||
0083BF38 3D270000FF cmp eax, $FF000027
|
||
0083BF3D FFFF DB $FF, $FF //
|
||
0083BF3F FF0500000053 inc dword ptr [$53000000]
|
||
0083BF45 7562 jnz 0083BFA9
|
||
0083BF47 49 dec ecx
|
||
0083BF48 640000 add fs:[eax], al
|
||
0083BF4B 00558B add [ebp-$75], dl
|
||
0083BF4E EC in al, dx
|
||
0083BF4F B91C000000 mov ecx, $0000001C
|
||
0083BF54 6A00 push $00
|
||
0083BF56 6A00 push $00
|
||
0083BF58 49 dec ecx
|
||
0083BF59 75F9 jnz 0083BF54
|
||
0083BF5B 51 push ecx
|
||
0083BF5C 53 push ebx
|
||
0083BF5D 56 push esi
|
||
0083BF5E 8BF2 mov esi, edx
|
||
0083BF60 8BD8 mov ebx, eax
|
||
0083BF62 33C0 xor eax, eax
|
||
0083BF64 55 push ebp
|
||
0083BF65 68C7C58300 push $0083C5C7
|
||
|
||
***** TRY
|
||
|
|
||
0083BF6A 64FF30 push dword ptr fs:[eax]
|
||
0083BF6D 648920 mov fs:[eax], esp
|
||
0083BF70 8D55FC lea edx, [ebp-$04]
|
||
0083BF73 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;
|
||
|
|
||
0083BF75 E84237D5FF call 0058F6BC
|
||
0083BF7A 8D55DC lea edx, [ebp-$24]
|
||
0083BF7D 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083BF80 E867E9BCFF call 0040A8EC
|
||
0083BF85 837DDC00 cmp dword ptr [ebp-$24], +$00
|
||
0083BF89 750D jnz 0083BF98
|
||
0083BF8B 8D45FC lea eax, [ebp-$04]
|
||
0083BF8E BADCC58300 mov edx, $0083C5DC
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083BF93 E82494BCFF call 004053BC
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
0083BF98 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;
|
||
|
|
||
0083BF9E E8A903E2FF 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;
|
||
|
|
||
0083BFA3 E8BC5BE1FF call 00651B64
|
||
|
||
* Reference to field N.A..OFFS_0050
|
||
|
|
||
0083BFA8 8B4050 mov eax, [eax+$50]
|
||
0083BFAB 8D55D8 lea edx, [ebp-$28]
|
||
0083BFAE 8B08 mov ecx, [eax]
|
||
0083BFB0 FF5110 call dword ptr [ecx+$10]
|
||
0083BFB3 8B45D8 mov eax, [ebp-$28]
|
||
0083BFB6 8D55E0 lea edx, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083BFB9 E82EE9BCFF call 0040A8EC
|
||
|
||
* Reference to control ConNo : N.A.
|
||
|
|
||
0083BFBE 8BB360030000 mov esi, [ebx+$0360]
|
||
0083BFC4 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0083BFC6 E875C4C8FF call 004C8440
|
||
0083BFCB 8D55C4 lea edx, [ebp-$3C]
|
||
0083BFCE 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083BFD1 E816E9BCFF call 0040A8EC
|
||
0083BFD6 8B55C4 mov edx, [ebp-$3C]
|
||
0083BFD9 8D45C8 lea eax, [ebp-$38]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0083BFDC E8E7CDBDFF call 00418DC8
|
||
0083BFE1 8D45C8 lea eax, [ebp-$38]
|
||
0083BFE4 50 push eax
|
||
0083BFE5 8B55E0 mov edx, [ebp-$20]
|
||
0083BFE8 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083BFEA E8C5ABC8FF call 004C6BB4
|
||
0083BFEF 5A pop edx
|
||
0083BFF0 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00B4
|
||
|
|
||
0083BFF2 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0083BFF8 8BC6 mov eax, esi
|
||
0083BFFA 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
0083BFFC FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control Label3 : TLabel
|
||
|
|
||
0083C002 8BB308030000 mov esi, [ebx+$0308]
|
||
0083C008 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083C00A E8C598C8FF call 004C58D4
|
||
0083C00F 8BC6 mov eax, esi
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
0083C011 E8961FCAFF call 004DDFAC
|
||
0083C016 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TLabel.GetClientRect()
|
||
|
|
||
0083C018 FF5244 call dword ptr [edx+$44]
|
||
|
||
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
|
||
| om YF_Money_CR where YFID=''
|
||
|
|
||
0083C01B 68E8C58300 push $0083C5E8
|
||
|
||
* Possible String Reference to: 'YFID'
|
||
|
|
||
0083C020 BA30C68300 mov edx, $0083C630
|
||
|
||
* Reference to control ConNo : N.A.
|
||
|
|
||
0083C025 8B8360030000 mov eax, [ebx+$0360]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083C02B E884ABC8FF call 004C6BB4
|
||
0083C030 8D55BC lea edx, [ebp-$44]
|
||
0083C033 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
0083C035 FF5160 call dword ptr [ecx+$60]
|
||
0083C038 FF75BC push dword ptr [ebp-$44]
|
||
0083C03B 6840C68300 push $0083C640
|
||
0083C040 8D45C0 lea eax, [ebp-$40]
|
||
0083C043 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083C048 E86796BCFF call 004056B4
|
||
0083C04D 8B45C0 mov eax, [ebp-$40]
|
||
0083C050 50 push eax
|
||
0083C051 8BC6 mov eax, esi
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
0083C053 E8541FCAFF call 004DDFAC
|
||
0083C058 5A pop edx
|
||
0083C059 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
||
|
|
||
0083C05B FF5138 call dword ptr [ecx+$38]
|
||
0083C05E 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
0083C060 E86398C8FF call 004C58C8
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
0083C065 BA4CC68300 mov edx, $0083C64C
|
||
|
||
* Reference to control Label3 : TLabel
|
||
|
|
||
0083C06A 8B8308030000 mov eax, [ebx+$0308]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083C070 E83FABC8FF call 004C6BB4
|
||
0083C075 8D55E4 lea edx, [ebp-$1C]
|
||
0083C078 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TLabel.SetDragMode(TDragMode)
|
||
|
|
||
0083C07A FF5160 call dword ptr [ecx+$60]
|
||
|
||
* Possible String Reference to: 'Qty'
|
||
|
|
||
0083C07D BA5CC68300 mov edx, $0083C65C
|
||
|
||
* Reference to control ConNo : N.A.
|
||
|
|
||
0083C082 8B8360030000 mov eax, [ebx+$0360]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083C088 E827ABC8FF call 004C6BB4
|
||
0083C08D 8D55B8 lea edx, [ebp-$48]
|
||
0083C090 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
0083C092 FF5160 call dword ptr [ecx+$60]
|
||
0083C095 8B45B8 mov eax, [ebp-$48]
|
||
0083C098 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C09B E84CE8BCFF call 0040A8EC
|
||
0083C0A0 8D55B4 lea edx, [ebp-$4C]
|
||
0083C0A3 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C0A6 E841E8BCFF call 0040A8EC
|
||
0083C0AB 837DB400 cmp dword ptr [ebp-$4C], +$00
|
||
0083C0AF 750D jnz 0083C0BE
|
||
0083C0B1 8D45F8 lea eax, [ebp-$08]
|
||
0083C0B4 BADCC58300 mov edx, $0083C5DC
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083C0B9 E8FE92BCFF call 004053BC
|
||
|
||
* Possible String Reference to: 'Price'
|
||
|
|
||
0083C0BE BA68C68300 mov edx, $0083C668
|
||
|
||
* Reference to control ConNo : N.A.
|
||
|
|
||
0083C0C3 8B8360030000 mov eax, [ebx+$0360]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083C0C9 E8E6AAC8FF call 004C6BB4
|
||
0083C0CE 8D55B0 lea edx, [ebp-$50]
|
||
0083C0D1 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
0083C0D3 FF5160 call dword ptr [ecx+$60]
|
||
0083C0D6 8B45B0 mov eax, [ebp-$50]
|
||
0083C0D9 8D55F4 lea edx, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C0DC E80BE8BCFF call 0040A8EC
|
||
0083C0E1 8D55AC lea edx, [ebp-$54]
|
||
0083C0E4 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C0E7 E800E8BCFF call 0040A8EC
|
||
0083C0EC 837DAC00 cmp dword ptr [ebp-$54], +$00
|
||
0083C0F0 750D jnz 0083C0FF
|
||
0083C0F2 8D45F4 lea eax, [ebp-$0C]
|
||
0083C0F5 BADCC58300 mov edx, $0083C5DC
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083C0FA E8BD92BCFF call 004053BC
|
||
|
||
* Possible String Reference to: 'Qty'
|
||
|
|
||
0083C0FF BA5CC68300 mov edx, $0083C65C
|
||
|
||
* Reference to control ConNo : N.A.
|
||
|
|
||
0083C104 8B8360030000 mov eax, [ebx+$0360]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083C10A E8A5AAC8FF call 004C6BB4
|
||
0083C10F 8D55A8 lea edx, [ebp-$58]
|
||
0083C112 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
0083C114 FF5160 call dword ptr [ecx+$60]
|
||
0083C117 8B45A8 mov eax, [ebp-$58]
|
||
0083C11A 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C11D E8CAE7BCFF call 0040A8EC
|
||
0083C122 8D55A4 lea edx, [ebp-$5C]
|
||
0083C125 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C128 E8BFE7BCFF call 0040A8EC
|
||
0083C12D 837DA400 cmp dword ptr [ebp-$5C], +$00
|
||
0083C131 750D jnz 0083C140
|
||
0083C133 8D45F8 lea eax, [ebp-$08]
|
||
0083C136 BADCC58300 mov edx, $0083C5DC
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083C13B E87C92BCFF call 004053BC
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
0083C140 BA78C68300 mov edx, $0083C678
|
||
|
||
* Reference to control ConNo : N.A.
|
||
|
|
||
0083C145 8B8360030000 mov eax, [ebx+$0360]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083C14B E864AAC8FF call 004C6BB4
|
||
0083C150 8D55A0 lea edx, [ebp-$60]
|
||
0083C153 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
0083C155 FF5160 call dword ptr [ecx+$60]
|
||
0083C158 8B45A0 mov eax, [ebp-$60]
|
||
0083C15B 8D55F0 lea edx, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C15E E889E7BCFF call 0040A8EC
|
||
0083C163 8D559C lea edx, [ebp-$64]
|
||
0083C166 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C169 E87EE7BCFF call 0040A8EC
|
||
0083C16E 837D9C00 cmp dword ptr [ebp-$64], +$00
|
||
0083C172 750D jnz 0083C181
|
||
0083C174 8D45F0 lea eax, [ebp-$10]
|
||
0083C177 BADCC58300 mov edx, $0083C5DC
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083C17C E83B92BCFF call 004053BC
|
||
|
||
* Possible String Reference to: 'HuiLv'
|
||
|
|
||
0083C181 BA88C68300 mov edx, $0083C688
|
||
|
||
* Reference to control ConNo : N.A.
|
||
|
|
||
0083C186 8B8360030000 mov eax, [ebx+$0360]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083C18C E823AAC8FF call 004C6BB4
|
||
0083C191 8D5598 lea edx, [ebp-$68]
|
||
0083C194 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
0083C196 FF5160 call dword ptr [ecx+$60]
|
||
0083C199 8B4598 mov eax, [ebp-$68]
|
||
0083C19C 8D55EC lea edx, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C19F E848E7BCFF call 0040A8EC
|
||
0083C1A4 8D5594 lea edx, [ebp-$6C]
|
||
0083C1A7 8B45EC mov eax, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C1AA E83DE7BCFF call 0040A8EC
|
||
0083C1AF 837D9400 cmp dword ptr [ebp-$6C], +$00
|
||
0083C1B3 750D jnz 0083C1C2
|
||
0083C1B5 8D45EC lea eax, [ebp-$14]
|
||
0083C1B8 BADCC58300 mov edx, $0083C5DC
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083C1BD E8FA91BCFF call 004053BC
|
||
0083C1C2 8D5590 lea edx, [ebp-$70]
|
||
0083C1C5 8B45E0 mov eax, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C1C8 E81FE7BCFF call 0040A8EC
|
||
0083C1CD 8B4590 mov eax, [ebp-$70]
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
0083C1D0 BA78C68300 mov edx, $0083C678
|
||
|
||
* Reference to: System.@LStrCmp;
|
||
|
|
||
0083C1D5 E86695BCFF call 00405740
|
||
0083C1DA 0F84AD000000 jz 0083C28D
|
||
0083C1E0 8D558C lea edx, [ebp-$74]
|
||
0083C1E3 8B45E0 mov eax, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C1E6 E801E7BCFF call 0040A8EC
|
||
0083C1EB 8B458C mov eax, [ebp-$74]
|
||
|
||
* Possible String Reference to: 'HuiLv'
|
||
|
|
||
0083C1EE BA88C68300 mov edx, $0083C688
|
||
|
||
* Reference to: System.@LStrCmp;
|
||
|
|
||
0083C1F3 E84895BCFF call 00405740
|
||
0083C1F8 7469 jz 0083C263
|
||
0083C1FA 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083C1FD E82A15BDFF call 0040D72C
|
||
0083C202 DB7D80 fstp tbyte ptr [ebp-$80]
|
||
0083C205 9B wait
|
||
0083C206 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083C209 E81E15BDFF call 0040D72C
|
||
0083C20E DB6D80 fld tbyte ptr [ebp-$80]
|
||
0083C211 DEC9 fmulp st(1), st(0)
|
||
0083C213 DBBD74FFFFFF fstp tbyte ptr [ebp+$FFFFFF74]
|
||
0083C219 9B wait
|
||
0083C21A 8B45EC mov eax, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083C21D E80A15BDFF call 0040D72C
|
||
0083C222 DBAD74FFFFFF fld tbyte ptr [ebp+$FFFFFF74]
|
||
0083C228 DEC9 fmulp st(1), st(0)
|
||
0083C22A 83C4F4 add esp, -$0C
|
||
0083C22D DB3C24 fstp tbyte ptr [esp]
|
||
0083C230 9B wait
|
||
0083C231 8D45E8 lea eax, [ebp-$18]
|
||
|
||
|
|
||
0083C234 E87313BDFF call 0040D5AC
|
||
0083C239 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083C23C E8EB14BDFF call 0040D72C
|
||
0083C241 DB7D80 fstp tbyte ptr [ebp-$80]
|
||
0083C244 9B wait
|
||
0083C245 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083C248 E8DF14BDFF call 0040D72C
|
||
0083C24D DB6D80 fld tbyte ptr [ebp-$80]
|
||
0083C250 DEC9 fmulp st(1), st(0)
|
||
0083C252 83C4F4 add esp, -$0C
|
||
0083C255 DB3C24 fstp tbyte ptr [esp]
|
||
0083C258 9B wait
|
||
0083C259 8D45F0 lea eax, [ebp-$10]
|
||
|
||
|
|
||
0083C25C E84B13BDFF call 0040D5AC
|
||
0083C261 EB52 jmp 0083C2B5
|
||
0083C263 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083C266 E8C114BDFF call 0040D72C
|
||
0083C26B DB7D80 fstp tbyte ptr [ebp-$80]
|
||
0083C26E 9B wait
|
||
0083C26F 8B45EC mov eax, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083C272 E8B514BDFF call 0040D72C
|
||
0083C277 DB6D80 fld tbyte ptr [ebp-$80]
|
||
0083C27A DEC9 fmulp st(1), st(0)
|
||
0083C27C 83C4F4 add esp, -$0C
|
||
0083C27F DB3C24 fstp tbyte ptr [esp]
|
||
0083C282 9B wait
|
||
0083C283 8D45E8 lea eax, [ebp-$18]
|
||
|
||
|
|
||
0083C286 E82113BDFF call 0040D5AC
|
||
0083C28B EB28 jmp 0083C2B5
|
||
0083C28D 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083C290 E89714BDFF call 0040D72C
|
||
0083C295 DB7D80 fstp tbyte ptr [ebp-$80]
|
||
0083C298 9B wait
|
||
0083C299 8B45EC mov eax, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083C29C E88B14BDFF call 0040D72C
|
||
0083C2A1 DB6D80 fld tbyte ptr [ebp-$80]
|
||
0083C2A4 DEC9 fmulp st(1), st(0)
|
||
0083C2A6 83C4F4 add esp, -$0C
|
||
0083C2A9 DB3C24 fstp tbyte ptr [esp]
|
||
0083C2AC 9B wait
|
||
0083C2AD 8D45E8 lea eax, [ebp-$18]
|
||
|
||
|
|
||
0083C2B0 E8F712BDFF call 0040D5AC
|
||
|
||
* Reference to control ConNo : N.A.
|
||
|
|
||
0083C2B5 8BB360030000 mov esi, [ebx+$0360]
|
||
0083C2BB 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0083C2BD E87EC1C8FF call 004C8440
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
0083C2C2 BA78C68300 mov edx, $0083C678
|
||
0083C2C7 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083C2C9 E8E6A8C8FF call 004C6BB4
|
||
0083C2CE 50 push eax
|
||
0083C2CF 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083C2D2 E85514BDFF call 0040D72C
|
||
0083C2D7 8D8564FFFFFF lea eax, [ebp+$FFFFFF64]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0083C2DD E8AACABDFF call 00418D8C
|
||
0083C2E2 8D9564FFFFFF lea edx, [ebp+$FFFFFF64]
|
||
0083C2E8 58 pop eax
|
||
0083C2E9 8B08 mov ecx, [eax]
|
||
0083C2EB FF91B4000000 call dword ptr [ecx+$00B4]
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
0083C2F1 BA4CC68300 mov edx, $0083C64C
|
||
0083C2F6 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083C2F8 E8B7A8C8FF call 004C6BB4
|
||
0083C2FD 50 push eax
|
||
0083C2FE 8B45E8 mov eax, [ebp-$18]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083C301 E82614BDFF call 0040D72C
|
||
0083C306 8D8554FFFFFF lea eax, [ebp+$FFFFFF54]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0083C30C E87BCABDFF call 00418D8C
|
||
0083C311 8D9554FFFFFF lea edx, [ebp+$FFFFFF54]
|
||
0083C317 58 pop eax
|
||
0083C318 8B08 mov ecx, [eax]
|
||
0083C31A FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0083C320 8BC6 mov eax, esi
|
||
0083C322 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
0083C324 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
0083C32A 8BB30C030000 mov esi, [ebx+$030C]
|
||
0083C330 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083C332 E89D95C8FF call 004C58D4
|
||
0083C337 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
0083C339 E86E1CCAFF call 004DDFAC
|
||
0083C33E 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
0083C340 FF5244 call dword ptr [edx+$44]
|
||
0083C343 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
0083C345 E8621CCAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0083C34A BA98C68300 mov edx, $0083C698
|
||
0083C34F 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0083C351 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0083C354 68B4C68300 push $0083C6B4
|
||
0083C359 FF75E0 push dword ptr [ebp-$20]
|
||
0083C35C 68C4C68300 push $0083C6C4
|
||
0083C361 8D954CFFFFFF lea edx, [ebp+$FFFFFF4C]
|
||
0083C367 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C36A E87DE5BCFF call 0040A8EC
|
||
0083C36F FFB54CFFFFFF push dword ptr [ebp+$FFFFFF4C]
|
||
0083C375 8D8550FFFFFF lea eax, [ebp+$FFFFFF50]
|
||
0083C37B BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083C380 E82F93BCFF call 004056B4
|
||
0083C385 8B8550FFFFFF mov eax, [ebp+$FFFFFF50]
|
||
0083C38B 50 push eax
|
||
0083C38C 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
0083C38E E8191CCAFF call 004DDFAC
|
||
0083C393 5A pop edx
|
||
0083C394 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0083C396 FF5138 call dword ptr [ecx+$38]
|
||
0083C399 8D9548FFFFFF lea edx, [ebp+$FFFFFF48]
|
||
0083C39F 8B45E0 mov eax, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C3A2 E845E5BCFF call 0040A8EC
|
||
0083C3A7 8B8548FFFFFF mov eax, [ebp+$FFFFFF48]
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
0083C3AD BA78C68300 mov edx, $0083C678
|
||
|
||
* Reference to: System.@LStrCmp;
|
||
|
|
||
0083C3B2 E88993BCFF call 00405740
|
||
0083C3B7 7427 jz 0083C3E0
|
||
0083C3B9 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
0083C3BB E8EC1BCAFF call 004DDFAC
|
||
0083C3C0 50 push eax
|
||
0083C3C1 8D8544FFFFFF lea eax, [ebp+$FFFFFF44]
|
||
0083C3C7 8B4DF0 mov ecx, [ebp-$10]
|
||
|
||
* Possible String Reference to: ',Money='
|
||
|
|
||
0083C3CA BAD0C68300 mov edx, $0083C6D0
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
0083C3CF E86C92BCFF call 00405640
|
||
0083C3D4 8B9544FFFFFF mov edx, [ebp+$FFFFFF44]
|
||
0083C3DA 58 pop eax
|
||
0083C3DB 8B08 mov ecx, [eax]
|
||
0083C3DD FF5138 call dword ptr [ecx+$38]
|
||
0083C3E0 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
0083C3E2 E8C51BCAFF call 004DDFAC
|
||
0083C3E7 50 push eax
|
||
0083C3E8 8D8540FFFFFF lea eax, [ebp+$FFFFFF40]
|
||
0083C3EE 8B4DE8 mov ecx, [ebp-$18]
|
||
|
||
* Possible String Reference to: ',BBMoney='
|
||
|
|
||
0083C3F1 BAE0C68300 mov edx, $0083C6E0
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
0083C3F6 E84592BCFF call 00405640
|
||
0083C3FB 8B9540FFFFFF mov edx, [ebp+$FFFFFF40]
|
||
0083C401 58 pop eax
|
||
0083C402 8B08 mov ecx, [eax]
|
||
0083C404 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
0083C407 68F4C68300 push $0083C6F4
|
||
0083C40C 8D9538FFFFFF lea edx, [ebp+$FFFFFF38]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH._PROC_0083C699(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083C699 50 push eax
|
||
0083C69A 6461 popa
|
||
0083C69C 7465 jz 0083C703
|
||
0083C69E 205946 and [ecx+$46], bl
|
||
0083C6A1 5F pop edi
|
||
0083C6A2 4D dec ebp
|
||
0083C6A3 6F outsd
|
||
0083C6A4 6E outsb
|
||
0083C6A5 65795F jns 0083C707
|
||
0083C6A8 43 inc ebx
|
||
0083C6A9 52 push edx
|
||
0083C6AA 2000 and [eax], al
|
||
0083C6AC FFFF DB $FF, $FF //
|
||
0083C6AE FFFF DB $FF, $FF //
|
||
0083C6B0 0500000020 add eax, +$20000000
|
||
0083C6B5 53 push ebx
|
||
0083C6B6 657420 jz 0083C6D9
|
||
0083C6B9 0000 add [eax], al
|
||
|
||
0083C6BB 00FF add bh, bh
|
||
0083C6BD FFFF DB $FF, $FF //
|
||
0083C6BF FF01 inc dword ptr [ecx]
|
||
0083C6C1 0000 add [eax], al
|
||
|
||
0083C6C3 003D000000FF add [$FF000000], bh
|
||
0083C6C9 FFFF DB $FF, $FF //
|
||
0083C6CB FF07 inc dword ptr [edi]
|
||
0083C6CD 0000 add [eax], al
|
||
|
||
0083C6CF 002C4D6F6E6579 add [$79656E6F+ecx*2], ch
|
||
0083C6D6 3D00FFFFFF cmp eax, $FFFFFF00
|
||
0083C6DB FF09 dec dword ptr [ecx]
|
||
0083C6DD 0000 add [eax], al
|
||
|
||
0083C6DF 002C42 add [edx+eax*2], ch
|
||
0083C6E2 42 inc edx
|
||
0083C6E3 4D dec ebp
|
||
0083C6E4 6F outsd
|
||
0083C6E5 6E outsb
|
||
0083C6E6 65793D jns 0083C726
|
||
0083C6E9 0000 add [eax], al
|
||
|
||
0083C6EB 00FF add bh, bh
|
||
0083C6ED FFFF DB $FF, $FF //
|
||
0083C6EF FF09 dec dword ptr [ecx]
|
||
0083C6F1 0000 add [eax], al
|
||
|
||
0083C6F3 002C4564697465 add [$65746964+eax*2], ch
|
||
0083C6FA 723D jb 0083C739
|
||
0083C6FC 27 daa
|
||
0083C6FD 0000 add [eax], al
|
||
|
||
0083C6FF 00FF add bh, bh
|
||
0083C701 FFFF DB $FF, $FF //
|
||
0083C703 FF1400 call dword ptr [eax+eax]
|
||
0083C706 0000 add [eax], al
|
||
|
||
0083C708 2C45 sub al, $45
|
||
0083C70A 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0083C713 657464 jz 0083C77A
|
||
0083C716 61 popa
|
||
0083C717 7465 jz 0083C77E
|
||
0083C719 2829 sub [ecx], ch
|
||
0083C71B 2000 and [eax], al
|
||
0083C71D 0000 add [eax], al
|
||
|
||
0083C71F 00FF add bh, bh
|
||
0083C721 FFFF DB $FF, $FF //
|
||
0083C723 FF0D00000020 dec dword ptr [$20000000]
|
||
0083C729 7768 jnbe 0083C793
|
||
0083C72B 657265 jb 0083C793
|
||
0083C72E 205946 and [ecx+$46], bl
|
||
0083C731 49 dec ecx
|
||
0083C732 643D27000000 cmp eax, $00000027
|
||
0083C738 FFFF DB $FF, $FF //
|
||
0083C73A FFFF DB $FF, $FF //
|
||
0083C73C 0400 add al, +$00
|
||
0083C73E 0000 add [eax], al
|
||
|
||
0083C740 59 pop ecx
|
||
0083C741 46 inc esi
|
||
0083C742 49 dec ecx
|
||
0083C743 640000 add fs:[eax], al
|
||
0083C746 0000 add [eax], al
|
||
|
||
0083C748 FFFF DB $FF, $FF //
|
||
0083C74A FFFF DB $FF, $FF //
|
||
0083C74C 2B00 sub eax, dword ptr [eax]
|
||
0083C74E 0000 add [eax], al
|
||
|
||
0083C750 55 push ebp
|
||
0083C751 7064 jo 0083C7B7
|
||
0083C753 61 popa
|
||
0083C754 7465 jz 0083C7BB
|
||
0083C756 205946 and [ecx+$46], bl
|
||
0083C759 5F pop edi
|
||
0083C75A 4D dec ebp
|
||
0083C75B 6F outsd
|
||
0083C75C 6E outsb
|
||
0083C75D 65795F jns 0083C7BF
|
||
0083C760 4B dec ebx
|
||
0083C761 43 inc ebx
|
||
0083C762 205365 and [ebx+$65], dl
|
||
0083C765 7420 jz 0083C787
|
||
0083C767 4B dec ebx
|
||
0083C768 43 inc ebx
|
||
0083C769 42 inc edx
|
||
0083C76A 42 inc edx
|
||
0083C76B 4D dec ebp
|
||
0083C76C 6F outsd
|
||
0083C76D 6E outsb
|
||
0083C76E 65793D jns 0083C7AE
|
||
0083C771 4B dec ebx
|
||
0083C772 43 inc ebx
|
||
0083C773 42 inc edx
|
||
0083C774 42 inc edx
|
||
0083C775 4D dec ebp
|
||
0083C776 6F outsd
|
||
0083C777 6E outsb
|
||
0083C778 65792D jns 0083C7A8
|
||
0083C77B 00FF add bh, bh
|
||
0083C77D FFFF DB $FF, $FF //
|
||
0083C77F FF01 inc dword ptr [ecx]
|
||
0083C781 0000 add [eax], al
|
||
|
||
0083C783 002B add [ebx], ch
|
||
0083C785 0000 add [eax], al
|
||
|
||
0083C787 00FF add bh, bh
|
||
0083C789 FFFF DB $FF, $FF //
|
||
0083C78B FF0D00000020 dec dword ptr [$20000000]
|
||
0083C791 7768 jnbe 0083C7FB
|
||
0083C793 657265 jb 0083C7FB
|
||
0083C796 204352 and [ebx+$52], al
|
||
0083C799 49 dec ecx
|
||
0083C79A 44 inc esp
|
||
0083C79B 3D27000000 cmp eax, $00000027
|
||
0083C7A0 FFFF DB $FF, $FF //
|
||
0083C7A2 FFFF DB $FF, $FF //
|
||
0083C7A4 0400 add al, +$00
|
||
0083C7A6 0000 add [eax], al
|
||
|
||
0083C7A8 43 inc ebx
|
||
0083C7A9 52 push edx
|
||
0083C7AA 49 dec ecx
|
||
0083C7AB 44 inc esp
|
||
0083C7AC 0000 add [eax], al
|
||
|
||
0083C7AE 0000 add [eax], al
|
||
|
||
0083C7B0 55 push ebp
|
||
0083C7B1 8BEC mov ebp, esp
|
||
0083C7B3 B908000000 mov ecx, $00000008
|
||
0083C7B8 6A00 push $00
|
||
0083C7BA 6A00 push $00
|
||
0083C7BC 49 dec ecx
|
||
0083C7BD 75F9 jnz 0083C7B8
|
||
0083C7BF 51 push ecx
|
||
0083C7C0 53 push ebx
|
||
0083C7C1 56 push esi
|
||
0083C7C2 8BDA mov ebx, edx
|
||
0083C7C4 8BF0 mov esi, eax
|
||
0083C7C6 33C0 xor eax, eax
|
||
0083C7C8 55 push ebp
|
||
0083C7C9 68D6C98300 push $0083C9D6
|
||
|
||
***** TRY
|
||
|
|
||
0083C7CE 64FF30 push dword ptr fs:[eax]
|
||
0083C7D1 648920 mov fs:[eax], esp
|
||
0083C7D4 8D55FC lea edx, [ebp-$04]
|
||
0083C7D7 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;
|
||
|
|
||
0083C7D9 E8DE2ED5FF call 0058F6BC
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
0083C7DE 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;
|
||
|
|
||
0083C7E4 E863FBE1FF 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;
|
||
|
|
||
0083C7E9 E87653E1FF call 00651B64
|
||
|
||
* Reference to field N.A..OFFS_0050
|
||
|
|
||
0083C7EE 8B4050 mov eax, [eax+$50]
|
||
0083C7F1 8D55F4 lea edx, [ebp-$0C]
|
||
0083C7F4 8B08 mov ecx, [eax]
|
||
0083C7F6 FF5110 call dword ptr [ecx+$10]
|
||
0083C7F9 8B45F4 mov eax, [ebp-$0C]
|
||
0083C7FC 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C7FF E8E8E0BCFF call 0040A8EC
|
||
|
||
* Reference to control ConNo : N.A.
|
||
|
|
||
0083C804 8B9E60030000 mov ebx, [esi+$0360]
|
||
0083C80A 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0083C80C E82FBCC8FF call 004C8440
|
||
0083C811 8D55E0 lea edx, [ebp-$20]
|
||
0083C814 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C817 E8D0E0BCFF call 0040A8EC
|
||
0083C81C 8B55E0 mov edx, [ebp-$20]
|
||
0083C81F 8D45E4 lea eax, [ebp-$1C]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0083C822 E8A1C5BDFF call 00418DC8
|
||
0083C827 8D45E4 lea eax, [ebp-$1C]
|
||
0083C82A 50 push eax
|
||
0083C82B 8B55F8 mov edx, [ebp-$08]
|
||
0083C82E 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083C830 E87FA3C8FF call 004C6BB4
|
||
0083C835 5A pop edx
|
||
0083C836 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00B4
|
||
|
|
||
0083C838 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0083C83E 8BC3 mov eax, ebx
|
||
0083C840 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
0083C842 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
0083C848 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0083C84E 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083C850 E87F90C8FF call 004C58D4
|
||
0083C855 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;
|
||
|
|
||
0083C857 E85017CAFF call 004DDFAC
|
||
0083C85C 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
0083C85E FF5244 call dword ptr [edx+$44]
|
||
0083C861 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;
|
||
|
|
||
0083C863 E84417CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0083C868 BAECC98300 mov edx, $0083C9EC
|
||
0083C86D 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0083C86F FF5138 call dword ptr [ecx+$38]
|
||
0083C872 8D55DC lea edx, [ebp-$24]
|
||
0083C875 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C878 E86FE0BCFF call 0040A8EC
|
||
0083C87D 837DDC00 cmp dword ptr [ebp-$24], +$00
|
||
0083C881 7440 jz 0083C8C3
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0083C883 6808CA8300 push $0083CA08
|
||
0083C888 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=''
|
||
|
|
||
0083C88B 6818CA8300 push $0083CA18
|
||
0083C890 8D55D4 lea edx, [ebp-$2C]
|
||
0083C893 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083C896 E851E0BCFF call 0040A8EC
|
||
0083C89B FF75D4 push dword ptr [ebp-$2C]
|
||
0083C89E 6824CA8300 push $0083CA24
|
||
0083C8A3 8D45D8 lea eax, [ebp-$28]
|
||
0083C8A6 BA05000000 mov edx, $00000005
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083C8AB E8048EBCFF call 004056B4
|
||
0083C8B0 8B45D8 mov eax, [ebp-$28]
|
||
0083C8B3 50 push eax
|
||
0083C8B4 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;
|
||
|
|
||
0083C8B6 E8F116CAFF call 004DDFAC
|
||
0083C8BB 5A pop edx
|
||
0083C8BC 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0083C8BE FF5138 call dword ptr [ecx+$38]
|
||
0083C8C1 EB2B jmp 0083C8EE
|
||
0083C8C3 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;
|
||
|
|
||
0083C8C5 E8E216CAFF call 004DDFAC
|
||
0083C8CA 50 push eax
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0083C8CB 6808CA8300 push $0083CA08
|
||
0083C8D0 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=NULL'
|
||
|
|
||
0083C8D3 6830CA8300 push $0083CA30
|
||
0083C8D8 8D45D0 lea eax, [ebp-$30]
|
||
0083C8DB BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083C8E0 E8CF8DBCFF call 004056B4
|
||
0083C8E5 8B55D0 mov edx, [ebp-$30]
|
||
0083C8E8 58 pop eax
|
||
0083C8E9 8B08 mov ecx, [eax]
|
||
0083C8EB FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
0083C8EE 6840CA8300 push $0083CA40
|
||
0083C8F3 8D55C8 lea edx, [ebp-$38]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH._PROC_0083C9ED(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083C9ED 50 push eax
|
||
0083C9EE 6461 popa
|
||
0083C9F0 7465 jz 0083CA57
|
||
0083C9F2 205946 and [ecx+$46], bl
|
||
0083C9F5 5F pop edi
|
||
0083C9F6 4D dec ebp
|
||
0083C9F7 6F outsd
|
||
0083C9F8 6E outsb
|
||
0083C9F9 65795F jns 0083CA5B
|
||
0083C9FC 43 inc ebx
|
||
0083C9FD 52 push edx
|
||
0083C9FE 2000 and [eax], al
|
||
0083CA00 FFFF DB $FF, $FF //
|
||
0083CA02 FFFF DB $FF, $FF //
|
||
0083CA04 0500000020 add eax, +$20000000
|
||
0083CA09 53 push ebx
|
||
0083CA0A 657420 jz 0083CA2D
|
||
0083CA0D 0000 add [eax], al
|
||
|
||
0083CA0F 00FF add bh, bh
|
||
0083CA11 FFFF DB $FF, $FF //
|
||
0083CA13 FF02 inc dword ptr [edx]
|
||
0083CA15 0000 add [eax], al
|
||
|
||
0083CA17 003D270000FF add [$FF000027], bh
|
||
0083CA1D FFFF DB $FF, $FF //
|
||
0083CA1F FF01 inc dword ptr [ecx]
|
||
0083CA21 0000 add [eax], al
|
||
|
||
0083CA23 0027 add [edi], ah
|
||
0083CA25 0000 add [eax], al
|
||
|
||
0083CA27 00FF add bh, bh
|
||
0083CA29 FFFF DB $FF, $FF //
|
||
0083CA2B FF050000003D inc dword ptr [$3D000000]
|
||
0083CA31 4E dec esi
|
||
0083CA32 55 push ebp
|
||
0083CA33 4C dec esp
|
||
0083CA34 4C dec esp
|
||
0083CA35 0000 add [eax], al
|
||
|
||
0083CA37 00FF add bh, bh
|
||
0083CA39 FFFF DB $FF, $FF //
|
||
0083CA3B FF09 dec dword ptr [ecx]
|
||
0083CA3D 0000 add [eax], al
|
||
|
||
0083CA3F 002C4564697465 add [$65746964+eax*2], ch
|
||
0083CA46 723D jb 0083CA85
|
||
0083CA48 27 daa
|
||
0083CA49 0000 add [eax], al
|
||
|
||
0083CA4B 00FF add bh, bh
|
||
0083CA4D FFFF DB $FF, $FF //
|
||
0083CA4F FF1400 call dword ptr [eax+eax]
|
||
0083CA52 0000 add [eax], al
|
||
|
||
0083CA54 2C45 sub al, $45
|
||
0083CA56 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0083CA5F 657464 jz 0083CAC6
|
||
0083CA62 61 popa
|
||
0083CA63 7465 jz 0083CACA
|
||
0083CA65 2829 sub [ecx], ch
|
||
0083CA67 2000 and [eax], al
|
||
0083CA69 0000 add [eax], al
|
||
|
||
0083CA6B 00FF add bh, bh
|
||
0083CA6D FFFF DB $FF, $FF //
|
||
0083CA6F FF0D00000020 dec dword ptr [$20000000]
|
||
0083CA75 7768 jnbe 0083CADF
|
||
0083CA77 657265 jb 0083CADF
|
||
0083CA7A 205946 and [ecx+$46], bl
|
||
0083CA7D 49 dec ecx
|
||
0083CA7E 643D27000000 cmp eax, $00000027
|
||
0083CA84 FFFF DB $FF, $FF //
|
||
0083CA86 FFFF DB $FF, $FF //
|
||
0083CA88 0400 add al, +$00
|
||
0083CA8A 0000 add [eax], al
|
||
|
||
0083CA8C 59 pop ecx
|
||
0083CA8D 46 inc esi
|
||
0083CA8E 49 dec ecx
|
||
0083CA8F 640000 add fs:[eax], al
|
||
0083CA92 0000 add [eax], al
|
||
|
||
0083CA94 55 push ebp
|
||
0083CA95 8BEC mov ebp, esp
|
||
0083CA97 B90D000000 mov ecx, $0000000D
|
||
0083CA9C 6A00 push $00
|
||
0083CA9E 6A00 push $00
|
||
0083CAA0 49 dec ecx
|
||
0083CAA1 75F9 jnz 0083CA9C
|
||
0083CAA3 53 push ebx
|
||
0083CAA4 8945FC mov [ebp-$04], eax
|
||
0083CAA7 33C0 xor eax, eax
|
||
0083CAA9 55 push ebp
|
||
0083CAAA 68EBCC8300 push $0083CCEB
|
||
|
||
***** TRY
|
||
|
|
||
0083CAAF 64FF30 push dword ptr fs:[eax]
|
||
0083CAB2 648920 mov fs:[eax], esp
|
||
0083CAB5 33C0 xor eax, eax
|
||
0083CAB7 55 push ebp
|
||
0083CAB8 686ECC8300 push $0083CC6E
|
||
|
||
***** TRY
|
||
|
|
||
0083CABD 64FF30 push dword ptr fs:[eax]
|
||
0083CAC0 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH._PROC_0083D149(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083D149 50 push eax
|
||
0083D14A 6461 popa
|
||
0083D14C 7465 jz 0083D1B3
|
||
0083D14E 205946 and [ecx+$46], bl
|
||
0083D151 5F pop edi
|
||
0083D152 4D dec ebp
|
||
0083D153 6F outsd
|
||
0083D154 6E outsb
|
||
0083D155 65795F jns 0083D1B7
|
||
0083D158 43 inc ebx
|
||
0083D159 52 push edx
|
||
0083D15A 2000 and [eax], al
|
||
0083D15C FFFF DB $FF, $FF //
|
||
0083D15E FFFF DB $FF, $FF //
|
||
0083D160 0D00000020 or eax, $20000000
|
||
0083D165 53 push ebx
|
||
0083D166 657420 jz 0083D189
|
||
0083D169 59 pop ecx
|
||
0083D16A 46 inc esi
|
||
0083D16B 43 inc ebx
|
||
0083D16C 6F outsd
|
||
0083D16D 64653D27000000 cmp eax, $00000027
|
||
0083D174 FFFF DB $FF, $FF //
|
||
0083D176 FFFF DB $FF, $FF //
|
||
0083D178 0100 add [eax], eax
|
||
0083D17A 0000 add [eax], al
|
||
|
||
0083D17C 27 daa
|
||
0083D17D 0000 add [eax], al
|
||
|
||
0083D17F 00FF add bh, bh
|
||
0083D181 FFFF DB $FF, $FF //
|
||
0083D183 FF0A dec dword ptr [edx]
|
||
0083D185 0000 add [eax], al
|
||
|
||
0083D187 0020 add [eax], ah
|
||
0083D189 2C59 sub al, $59
|
||
0083D18B 46 inc esi
|
||
0083D18C 4E dec esi
|
||
0083D18D 61 popa
|
||
0083D18E 6D insd
|
||
0083D18F 653D270000FF cmp eax, $FF000027
|
||
0083D195 FFFF DB $FF, $FF //
|
||
0083D197 FF09 dec dword ptr [ecx]
|
||
0083D199 0000 add [eax], al
|
||
|
||
0083D19B 002C4564697465 add [$65746964+eax*2], ch
|
||
0083D1A2 723D jb 0083D1E1
|
||
0083D1A4 27 daa
|
||
0083D1A5 0000 add [eax], al
|
||
|
||
0083D1A7 00FF add bh, bh
|
||
0083D1A9 FFFF DB $FF, $FF //
|
||
0083D1AB FF1400 call dword ptr [eax+eax]
|
||
0083D1AE 0000 add [eax], al
|
||
|
||
0083D1B0 2C45 sub al, $45
|
||
0083D1B2 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0083D1BB 657464 jz 0083D222
|
||
0083D1BE 61 popa
|
||
0083D1BF 7465 jz 0083D226
|
||
0083D1C1 2829 sub [ecx], ch
|
||
0083D1C3 2000 and [eax], al
|
||
0083D1C5 0000 add [eax], al
|
||
|
||
0083D1C7 00FF add bh, bh
|
||
0083D1C9 FFFF DB $FF, $FF //
|
||
0083D1CB FF0D00000020 dec dword ptr [$20000000]
|
||
0083D1D1 7768 jnbe 0083D23B
|
||
0083D1D3 657265 jb 0083D23B
|
||
0083D1D6 205946 and [ecx+$46], bl
|
||
0083D1D9 49 dec ecx
|
||
0083D1DA 643D27000000 cmp eax, $00000027
|
||
0083D1E0 FFFF DB $FF, $FF //
|
||
0083D1E2 FFFF DB $FF, $FF //
|
||
0083D1E4 0400 add al, +$00
|
||
0083D1E6 0000 add [eax], al
|
||
|
||
0083D1E8 59 pop ecx
|
||
0083D1E9 46 inc esi
|
||
0083D1EA 49 dec ecx
|
||
0083D1EB 640000 add fs:[eax], al
|
||
0083D1EE 0000 add [eax], al
|
||
|
||
0083D1F0 55 push ebp
|
||
0083D1F1 8BEC mov ebp, esp
|
||
0083D1F3 51 push ecx
|
||
0083D1F4 B906000000 mov ecx, $00000006
|
||
0083D1F9 6A00 push $00
|
||
0083D1FB 6A00 push $00
|
||
0083D1FD 49 dec ecx
|
||
0083D1FE 75F9 jnz 0083D1F9
|
||
0083D200 51 push ecx
|
||
0083D201 874DFC xchg [ebp-$04], ecx
|
||
0083D204 53 push ebx
|
||
0083D205 56 push esi
|
||
0083D206 8BF0 mov esi, eax
|
||
0083D208 33C0 xor eax, eax
|
||
0083D20A 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>v<EFBFBD><76><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0083D20B 6849D48300 push $0083D449
|
||
|
||
***** TRY
|
||
|
|
||
0083D210 64FF30 push dword ptr fs:[eax]
|
||
0083D213 648920 mov fs:[eax], esp
|
||
0083D216 33C0 xor eax, eax
|
||
0083D218 55 push ebp
|
||
0083D219 681FD48300 push $0083D41F
|
||
|
||
***** TRY
|
||
|
|
||
0083D21E 64FF30 push dword ptr fs:[eax]
|
||
0083D221 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH._PROC_0083D466(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083D466 6E outsb
|
||
0083D467 6974000000FFFFFF imul esi, [eax+eax+$00], $FFFFFF00
|
||
0083D46F FF08 dec dword ptr [eax]
|
||
0083D471 0000 add [eax], al
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH._PROC_0083D49C(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083D49C 6E outsb
|
||
0083D49D 697400FFFFFFFF13 imul esi, [eax+eax-$01], $13FFFFFF
|
||
0083D4A5 0000 add [eax], al
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH._PROC_0083D4A9(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083D4A9 50 push eax
|
||
0083D4AA 6461 popa
|
||
0083D4AC 7465 jz 0083D513
|
||
0083D4AE 205946 and [ecx+$46], bl
|
||
0083D4B1 5F pop edi
|
||
0083D4B2 4D dec ebp
|
||
0083D4B3 6F outsd
|
||
0083D4B4 6E outsb
|
||
0083D4B5 65795F jns 0083D517
|
||
0083D4B8 43 inc ebx
|
||
0083D4B9 52 push edx
|
||
0083D4BA 2000 and [eax], al
|
||
0083D4BC FFFF DB $FF, $FF //
|
||
0083D4BE FFFF DB $FF, $FF //
|
||
0083D4C0 0E push cs
|
||
0083D4C1 0000 add [eax], al
|
||
|
||
0083D4C3 0020 add [eax], ah
|
||
0083D4C5 53 push ebx
|
||
0083D4C6 657420 jz 0083D4E9
|
||
0083D4C9 51 push ecx
|
||
0083D4CA 7479 jz 0083D545
|
||
0083D4CC 55 push ebp
|
||
0083D4CD 6E outsb
|
||
0083D4CE 69743D270000FFFF imul esi, [ebp+edi+$27], $FFFF0000
|
||
0083D4D6 FFFF DB $FF, $FF //
|
||
0083D4D8 07 pop es
|
||
0083D4D9 0000 add [eax], al
|
||
|
||
0083D4DB 005A64 add [edx+$64], bl
|
||
0083D4DE 794E jns 0083D52E
|
||
0083D4E0 61 popa
|
||
0083D4E1 6D insd
|
||
0083D4E2 6500FF add bh, bh
|
||
0083D4E5 FFFF DB $FF, $FF //
|
||
0083D4E7 FF01 inc dword ptr [ecx]
|
||
0083D4E9 0000 add [eax], al
|
||
|
||
0083D4EB 0027 add [edi], ah
|
||
0083D4ED 0000 add [eax], al
|
||
|
||
0083D4EF 00FF add bh, bh
|
||
0083D4F1 FFFF DB $FF, $FF //
|
||
0083D4F3 FF09 dec dword ptr [ecx]
|
||
0083D4F5 0000 add [eax], al
|
||
|
||
0083D4F7 002C4564697465 add [$65746964+eax*2], ch
|
||
0083D4FE 723D jb 0083D53D
|
||
0083D500 27 daa
|
||
0083D501 0000 add [eax], al
|
||
|
||
0083D503 00FF add bh, bh
|
||
0083D505 FFFF DB $FF, $FF //
|
||
0083D507 FF1400 call dword ptr [eax+eax]
|
||
0083D50A 0000 add [eax], al
|
||
|
||
0083D50C 2C45 sub al, $45
|
||
0083D50E 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0083D517 657464 jz 0083D57E
|
||
0083D51A 61 popa
|
||
0083D51B 7465 jz 0083D582
|
||
0083D51D 2829 sub [ecx], ch
|
||
0083D51F 2000 and [eax], al
|
||
0083D521 0000 add [eax], al
|
||
|
||
0083D523 00FF add bh, bh
|
||
0083D525 FFFF DB $FF, $FF //
|
||
0083D527 FF0D00000020 dec dword ptr [$20000000]
|
||
0083D52D 7768 jnbe 0083D597
|
||
0083D52F 657265 jb 0083D597
|
||
0083D532 205946 and [ecx+$46], bl
|
||
0083D535 49 dec ecx
|
||
0083D536 643D27000000 cmp eax, $00000027
|
||
0083D53C FFFF DB $FF, $FF //
|
||
0083D53E FFFF DB $FF, $FF //
|
||
0083D540 0400 add al, +$00
|
||
0083D542 0000 add [eax], al
|
||
|
||
0083D544 59 pop ecx
|
||
0083D545 46 inc esi
|
||
0083D546 49 dec ecx
|
||
0083D547 640000 add fs:[eax], al
|
||
0083D54A 0000 add [eax], al
|
||
|
||
0083D54C 55 push ebp
|
||
0083D54D 8BEC mov ebp, esp
|
||
0083D54F 51 push ecx
|
||
0083D550 B906000000 mov ecx, $00000006
|
||
0083D555 6A00 push $00
|
||
0083D557 6A00 push $00
|
||
0083D559 49 dec ecx
|
||
0083D55A 75F9 jnz 0083D555
|
||
0083D55C 51 push ecx
|
||
0083D55D 874DFC xchg [ebp-$04], ecx
|
||
0083D560 53 push ebx
|
||
0083D561 56 push esi
|
||
0083D562 8BF0 mov esi, eax
|
||
0083D564 33C0 xor eax, eax
|
||
0083D566 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>Js<4A><73><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0083D567 68A5D78300 push $0083D7A5
|
||
|
||
***** TRY
|
||
|
|
||
0083D56C 64FF30 push dword ptr fs:[eax]
|
||
0083D56F 648920 mov fs:[eax], esp
|
||
0083D572 33C0 xor eax, eax
|
||
0083D574 55 push ebp
|
||
0083D575 687BD78300 push $0083D77B
|
||
|
||
***** TRY
|
||
|
|
||
0083D57A 64FF30 push dword ptr fs:[eax]
|
||
0083D57D 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH._PROC_0083D7ED(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083D7ED 50 push eax
|
||
0083D7EE 6461 popa
|
||
0083D7F0 7465 jz 0083D857
|
||
0083D7F2 205946 and [ecx+$46], bl
|
||
0083D7F5 5F pop edi
|
||
0083D7F6 4D dec ebp
|
||
0083D7F7 6F outsd
|
||
0083D7F8 6E outsb
|
||
0083D7F9 65795F jns 0083D85B
|
||
0083D7FC 43 inc ebx
|
||
0083D7FD 52 push edx
|
||
0083D7FE 2000 and [eax], al
|
||
0083D800 FFFF DB $FF, $FF //
|
||
0083D802 FFFF DB $FF, $FF //
|
||
0083D804 0D00000020 or eax, $20000000
|
||
0083D809 53 push ebx
|
||
0083D80A 657420 jz 0083D82D
|
||
0083D80D 42 inc edx
|
||
0083D80E 5A pop edx
|
||
0083D80F 54 push esp
|
||
0083D810 7970 jns 0083D882
|
||
0083D812 653D27000000 cmp eax, $00000027
|
||
0083D818 FFFF DB $FF, $FF //
|
||
0083D81A FFFF DB $FF, $FF //
|
||
0083D81C 07 pop es
|
||
0083D81D 0000 add [eax], al
|
||
|
||
0083D81F 005A64 add [edx+$64], bl
|
||
0083D822 794E jns 0083D872
|
||
0083D824 61 popa
|
||
0083D825 6D insd
|
||
0083D826 6500FF add bh, bh
|
||
0083D829 FFFF DB $FF, $FF //
|
||
0083D82B FF01 inc dword ptr [ecx]
|
||
0083D82D 0000 add [eax], al
|
||
|
||
0083D82F 0027 add [edi], ah
|
||
0083D831 0000 add [eax], al
|
||
|
||
0083D833 00FF add bh, bh
|
||
0083D835 FFFF DB $FF, $FF //
|
||
0083D837 FF09 dec dword ptr [ecx]
|
||
0083D839 0000 add [eax], al
|
||
|
||
0083D83B 002C4564697465 add [$65746964+eax*2], ch
|
||
0083D842 723D jb 0083D881
|
||
0083D844 27 daa
|
||
0083D845 0000 add [eax], al
|
||
|
||
0083D847 00FF add bh, bh
|
||
0083D849 FFFF DB $FF, $FF //
|
||
0083D84B FF1400 call dword ptr [eax+eax]
|
||
0083D84E 0000 add [eax], al
|
||
|
||
0083D850 2C45 sub al, $45
|
||
0083D852 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0083D85B 657464 jz 0083D8C2
|
||
0083D85E 61 popa
|
||
0083D85F 7465 jz 0083D8C6
|
||
0083D861 2829 sub [ecx], ch
|
||
0083D863 2000 and [eax], al
|
||
0083D865 0000 add [eax], al
|
||
|
||
0083D867 00FF add bh, bh
|
||
0083D869 FFFF DB $FF, $FF //
|
||
0083D86B FF0D00000020 dec dword ptr [$20000000]
|
||
0083D871 7768 jnbe 0083D8DB
|
||
0083D873 657265 jb 0083D8DB
|
||
0083D876 205946 and [ecx+$46], bl
|
||
0083D879 49 dec ecx
|
||
0083D87A 643D27000000 cmp eax, $00000027
|
||
0083D880 FFFF DB $FF, $FF //
|
||
0083D882 FFFF DB $FF, $FF //
|
||
0083D884 0400 add al, +$00
|
||
0083D886 0000 add [eax], al
|
||
|
||
0083D888 59 pop ecx
|
||
0083D889 46 inc esi
|
||
0083D88A 49 dec ecx
|
||
0083D88B 640000 add fs:[eax], al
|
||
0083D88E 0000 add [eax], al
|
||
|
||
0083D890 53 push ebx
|
||
0083D891 8BD8 mov ebx, eax
|
||
|
||
* Reference to control ToolButton1 : TToolButton
|
||
|
|
||
0083D893 8B8320030000 mov eax, [ebx+$0320]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0083D899 E822A6C8FF call 004C7EC0
|
||
0083D89E 84C0 test al, al
|
||
0083D8A0 7516 jnz 0083D8B8
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>'
|
||
|
|
||
0083D8A2 B9C4D88300 mov ecx, $0083D8C4
|
||
|
||
* Reference to control ToolButton1 : TToolButton
|
||
|
|
||
0083D8A7 8B9320030000 mov edx, [ebx+$0320]
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
0083D8AD 8B833C030000 mov eax, [ebx+$033C]
|
||
|
||
|
|
||
0083D8B3 E878A9F7FF call 007B8230
|
||
0083D8B8 5B pop ebx
|
||
0083D8B9 C3 ret
|
||
|
||
0083D8BA 0000 add [eax], al
|
||
|
||
0083D8BC FFFF DB $FF, $FF //
|
||
0083D8BE FFFF DB $FF, $FF //
|
||
0083D8C0 0800 or [eax], al
|
||
0083D8C2 0000 add [eax], al
|
||
|
||
0083D8C4 B8B6BFEEC1 mov eax, $C1EEBFB6
|
||
0083D8C9 D0B1ED000000 DB $D0, $B1, $ED, $00, $00, $00 // byte ptr [ecx+$00ED], 1
|
||
0083D8CF 00558B add [ebp-$75], dl
|
||
0083D8D2 EC in al, dx
|
||
0083D8D3 B915000000 mov ecx, $00000015
|
||
0083D8D8 6A00 push $00
|
||
0083D8DA 6A00 push $00
|
||
0083D8DC 49 dec ecx
|
||
0083D8DD 75F9 jnz 0083D8D8
|
||
0083D8DF 53 push ebx
|
||
0083D8E0 56 push esi
|
||
0083D8E1 8BF2 mov esi, edx
|
||
0083D8E3 8BD8 mov ebx, eax
|
||
0083D8E5 33C0 xor eax, eax
|
||
0083D8E7 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>m<EFBFBD><6D><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0083D8E8 685ADD8300 push $0083DD5A
|
||
|
||
***** TRY
|
||
|
|
||
0083D8ED 64FF30 push dword ptr fs:[eax]
|
||
0083D8F0 648920 mov fs:[eax], esp
|
||
0083D8F3 8D55FC lea edx, [ebp-$04]
|
||
0083D8F6 8BC6 mov eax, esi
|
||
|
||
* Reference to: Contnrs.TComponentList.Extract(TComponentList;TComponent):TComponent;
|
||
| or: Contnrs.TComponentList.GetItems(TComponentList;Integer):TComponent;
|
||
|
|
||
0083D8F8 E8BF1DD5FF call 0058F6BC
|
||
0083D8FD 8D55E4 lea edx, [ebp-$1C]
|
||
0083D900 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083D903 E8E4CFBCFF call 0040A8EC
|
||
0083D908 837DE400 cmp dword ptr [ebp-$1C], +$00
|
||
0083D90C 750D jnz 0083D91B
|
||
0083D90E 8D45FC lea eax, [ebp-$04]
|
||
0083D911 BA70DD8300 mov edx, $0083DD70
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083D916 E8A17ABCFF call 004053BC
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
0083D91B 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;
|
||
|
|
||
0083D921 E826EAE1FF 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;
|
||
|
|
||
0083D926 E83942E1FF call 00651B64
|
||
|
||
* Reference to field N.A..OFFS_0050
|
||
|
|
||
0083D92B 8B4050 mov eax, [eax+$50]
|
||
0083D92E 8D55E0 lea edx, [ebp-$20]
|
||
0083D931 8B08 mov ecx, [eax]
|
||
0083D933 FF5110 call dword ptr [ecx+$10]
|
||
0083D936 8B45E0 mov eax, [ebp-$20]
|
||
0083D939 8D55E8 lea edx, [ebp-$18]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083D93C E8ABCFBCFF call 0040A8EC
|
||
|
||
* Reference to control ConNo : N.A.
|
||
|
|
||
0083D941 8BB360030000 mov esi, [ebx+$0360]
|
||
0083D947 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0083D949 E8F2AAC8FF call 004C8440
|
||
0083D94E 8D55CC lea edx, [ebp-$34]
|
||
0083D951 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083D954 E893CFBCFF call 0040A8EC
|
||
0083D959 8B55CC mov edx, [ebp-$34]
|
||
0083D95C 8D45D0 lea eax, [ebp-$30]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0083D95F E864B4BDFF call 00418DC8
|
||
0083D964 8D45D0 lea eax, [ebp-$30]
|
||
0083D967 50 push eax
|
||
0083D968 8B55E8 mov edx, [ebp-$18]
|
||
0083D96B 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083D96D E84292C8FF call 004C6BB4
|
||
0083D972 5A pop edx
|
||
0083D973 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00B4
|
||
|
|
||
0083D975 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0083D97B 8BC6 mov eax, esi
|
||
0083D97D 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
0083D97F FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control Label3 : TLabel
|
||
|
|
||
0083D985 8BB308030000 mov esi, [ebx+$0308]
|
||
0083D98B 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083D98D E8427FC8FF call 004C58D4
|
||
0083D992 8BC6 mov eax, esi
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
0083D994 E81306CAFF call 004DDFAC
|
||
0083D999 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TLabel.GetClientRect()
|
||
|
|
||
0083D99B FF5244 call dword ptr [edx+$44]
|
||
|
||
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
|
||
| om YF_Money_CR where YFID=''
|
||
|
|
||
0083D99E 687CDD8300 push $0083DD7C
|
||
|
||
* Possible String Reference to: 'YFID'
|
||
|
|
||
0083D9A3 BAC4DD8300 mov edx, $0083DDC4
|
||
|
||
* Reference to control ConNo : N.A.
|
||
|
|
||
0083D9A8 8B8360030000 mov eax, [ebx+$0360]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083D9AE E80192C8FF call 004C6BB4
|
||
0083D9B3 8D55C4 lea edx, [ebp-$3C]
|
||
0083D9B6 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
0083D9B8 FF5160 call dword ptr [ecx+$60]
|
||
0083D9BB FF75C4 push dword ptr [ebp-$3C]
|
||
0083D9BE 68D4DD8300 push $0083DDD4
|
||
0083D9C3 8D45C8 lea eax, [ebp-$38]
|
||
0083D9C6 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083D9CB E8E47CBCFF call 004056B4
|
||
0083D9D0 8B45C8 mov eax, [ebp-$38]
|
||
0083D9D3 50 push eax
|
||
0083D9D4 8BC6 mov eax, esi
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
0083D9D6 E8D105CAFF call 004DDFAC
|
||
0083D9DB 5A pop edx
|
||
0083D9DC 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
||
|
|
||
0083D9DE FF5138 call dword ptr [ecx+$38]
|
||
0083D9E1 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
0083D9E3 E8E07EC8FF call 004C58C8
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
0083D9E8 BAE0DD8300 mov edx, $0083DDE0
|
||
|
||
* Reference to control Label3 : TLabel
|
||
|
|
||
0083D9ED 8B8308030000 mov eax, [ebx+$0308]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083D9F3 E8BC91C8FF call 004C6BB4
|
||
0083D9F8 8D55EC lea edx, [ebp-$14]
|
||
0083D9FB 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TLabel.SetDragMode(TDragMode)
|
||
|
|
||
0083D9FD FF5160 call dword ptr [ecx+$60]
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
0083DA00 BAF0DD8300 mov edx, $0083DDF0
|
||
|
||
* Reference to control ConNo : N.A.
|
||
|
|
||
0083DA05 8B8360030000 mov eax, [ebx+$0360]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083DA0B E8A491C8FF call 004C6BB4
|
||
0083DA10 8D55C0 lea edx, [ebp-$40]
|
||
0083DA13 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
0083DA15 FF5160 call dword ptr [ecx+$60]
|
||
0083DA18 8B45C0 mov eax, [ebp-$40]
|
||
0083DA1B 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083DA1E E8C9CEBCFF call 0040A8EC
|
||
0083DA23 8D55BC lea edx, [ebp-$44]
|
||
0083DA26 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083DA29 E8BECEBCFF call 0040A8EC
|
||
0083DA2E 837DBC00 cmp dword ptr [ebp-$44], +$00
|
||
0083DA32 750D jnz 0083DA41
|
||
0083DA34 8D45F8 lea eax, [ebp-$08]
|
||
0083DA37 BA70DD8300 mov edx, $0083DD70
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083DA3C E87B79BCFF call 004053BC
|
||
|
||
* Possible String Reference to: 'HuiLv'
|
||
|
|
||
0083DA41 BA00DE8300 mov edx, $0083DE00
|
||
|
||
* Reference to control ConNo : N.A.
|
||
|
|
||
0083DA46 8B8360030000 mov eax, [ebx+$0360]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083DA4C E86391C8FF call 004C6BB4
|
||
0083DA51 8D55B8 lea edx, [ebp-$48]
|
||
0083DA54 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
0083DA56 FF5160 call dword ptr [ecx+$60]
|
||
0083DA59 8B45B8 mov eax, [ebp-$48]
|
||
0083DA5C 8D55F4 lea edx, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083DA5F E888CEBCFF call 0040A8EC
|
||
0083DA64 8D55B4 lea edx, [ebp-$4C]
|
||
0083DA67 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083DA6A E87DCEBCFF call 0040A8EC
|
||
0083DA6F 837DB400 cmp dword ptr [ebp-$4C], +$00
|
||
0083DA73 750D jnz 0083DA82
|
||
0083DA75 8D45F4 lea eax, [ebp-$0C]
|
||
0083DA78 BA70DD8300 mov edx, $0083DD70
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083DA7D E83A79BCFF call 004053BC
|
||
0083DA82 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083DA85 E8A2FCBCFF call 0040D72C
|
||
0083DA8A DB7DA8 fstp tbyte ptr [ebp-$58]
|
||
0083DA8D 9B wait
|
||
0083DA8E 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083DA91 E896FCBCFF call 0040D72C
|
||
0083DA96 DB6DA8 fld tbyte ptr [ebp-$58]
|
||
0083DA99 DEC9 fmulp st(1), st(0)
|
||
0083DA9B 83C4F4 add esp, -$0C
|
||
0083DA9E DB3C24 fstp tbyte ptr [esp]
|
||
0083DAA1 9B wait
|
||
0083DAA2 8D45F0 lea eax, [ebp-$10]
|
||
|
||
|
|
||
0083DAA5 E802FBBCFF call 0040D5AC
|
||
|
||
* Reference to control ConNo : N.A.
|
||
|
|
||
0083DAAA 8BB360030000 mov esi, [ebx+$0360]
|
||
0083DAB0 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0083DAB2 E889A9C8FF call 004C8440
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
0083DAB7 BAF0DD8300 mov edx, $0083DDF0
|
||
0083DABC 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083DABE E8F190C8FF call 004C6BB4
|
||
0083DAC3 50 push eax
|
||
0083DAC4 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083DAC7 E860FCBCFF call 0040D72C
|
||
0083DACC 8D4598 lea eax, [ebp-$68]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0083DACF E8B8B2BDFF call 00418D8C
|
||
0083DAD4 8D5598 lea edx, [ebp-$68]
|
||
0083DAD7 58 pop eax
|
||
0083DAD8 8B08 mov ecx, [eax]
|
||
0083DADA FF91B4000000 call dword ptr [ecx+$00B4]
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
0083DAE0 BAE0DD8300 mov edx, $0083DDE0
|
||
0083DAE5 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083DAE7 E8C890C8FF call 004C6BB4
|
||
0083DAEC 50 push eax
|
||
0083DAED 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083DAF0 E837FCBCFF call 0040D72C
|
||
0083DAF5 8D4588 lea eax, [ebp-$78]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0083DAF8 E88FB2BDFF call 00418D8C
|
||
0083DAFD 8D5588 lea edx, [ebp-$78]
|
||
0083DB00 58 pop eax
|
||
0083DB01 8B08 mov ecx, [eax]
|
||
0083DB03 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0083DB09 8BC6 mov eax, esi
|
||
0083DB0B 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
0083DB0D FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
0083DB13 8BB30C030000 mov esi, [ebx+$030C]
|
||
0083DB19 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083DB1B E8B47DC8FF call 004C58D4
|
||
0083DB20 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
0083DB22 E88504CAFF call 004DDFAC
|
||
0083DB27 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
0083DB29 FF5244 call dword ptr [edx+$44]
|
||
0083DB2C 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
0083DB2E E87904CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0083DB33 BA10DE8300 mov edx, $0083DE10
|
||
0083DB38 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0083DB3A FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0083DB3D 682CDE8300 push $0083DE2C
|
||
0083DB42 FF75E8 push dword ptr [ebp-$18]
|
||
0083DB45 683CDE8300 push $0083DE3C
|
||
0083DB4A 8D5580 lea edx, [ebp-$80]
|
||
0083DB4D 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083DB50 E897CDBCFF call 0040A8EC
|
||
0083DB55 FF7580 push dword ptr [ebp-$80]
|
||
0083DB58 8D4584 lea eax, [ebp-$7C]
|
||
0083DB5B BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083DB60 E84F7BBCFF call 004056B4
|
||
0083DB65 8B4584 mov eax, [ebp-$7C]
|
||
0083DB68 50 push eax
|
||
0083DB69 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
0083DB6B E83C04CAFF call 004DDFAC
|
||
0083DB70 5A pop edx
|
||
0083DB71 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0083DB73 FF5138 call dword ptr [ecx+$38]
|
||
0083DB76 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
0083DB78 E82F04CAFF call 004DDFAC
|
||
0083DB7D 50 push eax
|
||
0083DB7E 8D857CFFFFFF lea eax, [ebp+$FFFFFF7C]
|
||
0083DB84 8B4DF0 mov ecx, [ebp-$10]
|
||
|
||
* Possible String Reference to: ',BBMoney='
|
||
|
|
||
0083DB87 BA48DE8300 mov edx, $0083DE48
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
0083DB8C E8AF7ABCFF call 00405640
|
||
0083DB91 8B957CFFFFFF mov edx, [ebp+$FFFFFF7C]
|
||
0083DB97 58 pop eax
|
||
0083DB98 8B08 mov ecx, [eax]
|
||
0083DB9A FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
0083DB9D 685CDE8300 push $0083DE5C
|
||
0083DBA2 8D9574FFFFFF lea edx, [ebp+$FFFFFF74]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH._PROC_0083DE11(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083DE11 50 push eax
|
||
0083DE12 6461 popa
|
||
0083DE14 7465 jz 0083DE7B
|
||
0083DE16 205946 and [ecx+$46], bl
|
||
0083DE19 5F pop edi
|
||
0083DE1A 4D dec ebp
|
||
0083DE1B 6F outsd
|
||
0083DE1C 6E outsb
|
||
0083DE1D 65795F jns 0083DE7F
|
||
0083DE20 43 inc ebx
|
||
0083DE21 52 push edx
|
||
0083DE22 2000 and [eax], al
|
||
0083DE24 FFFF DB $FF, $FF //
|
||
0083DE26 FFFF DB $FF, $FF //
|
||
0083DE28 0500000020 add eax, +$20000000
|
||
0083DE2D 53 push ebx
|
||
0083DE2E 657420 jz 0083DE51
|
||
0083DE31 0000 add [eax], al
|
||
|
||
0083DE33 00FF add bh, bh
|
||
0083DE35 FFFF DB $FF, $FF //
|
||
0083DE37 FF01 inc dword ptr [ecx]
|
||
0083DE39 0000 add [eax], al
|
||
|
||
0083DE3B 003D000000FF add [$FF000000], bh
|
||
0083DE41 FFFF DB $FF, $FF //
|
||
0083DE43 FF09 dec dword ptr [ecx]
|
||
0083DE45 0000 add [eax], al
|
||
|
||
0083DE47 002C42 add [edx+eax*2], ch
|
||
0083DE4A 42 inc edx
|
||
0083DE4B 4D dec ebp
|
||
0083DE4C 6F outsd
|
||
0083DE4D 6E outsb
|
||
0083DE4E 65793D jns 0083DE8E
|
||
0083DE51 0000 add [eax], al
|
||
|
||
0083DE53 00FF add bh, bh
|
||
0083DE55 FFFF DB $FF, $FF //
|
||
0083DE57 FF09 dec dword ptr [ecx]
|
||
0083DE59 0000 add [eax], al
|
||
|
||
0083DE5B 002C4564697465 add [$65746964+eax*2], ch
|
||
0083DE62 723D jb 0083DEA1
|
||
0083DE64 27 daa
|
||
0083DE65 0000 add [eax], al
|
||
|
||
0083DE67 00FF add bh, bh
|
||
0083DE69 FFFF DB $FF, $FF //
|
||
0083DE6B FF1400 call dword ptr [eax+eax]
|
||
0083DE6E 0000 add [eax], al
|
||
|
||
0083DE70 2C45 sub al, $45
|
||
0083DE72 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0083DE7B 657464 jz 0083DEE2
|
||
0083DE7E 61 popa
|
||
0083DE7F 7465 jz 0083DEE6
|
||
0083DE81 2829 sub [ecx], ch
|
||
0083DE83 2000 and [eax], al
|
||
0083DE85 0000 add [eax], al
|
||
|
||
0083DE87 00FF add bh, bh
|
||
0083DE89 FFFF DB $FF, $FF //
|
||
0083DE8B FF0D00000020 dec dword ptr [$20000000]
|
||
0083DE91 7768 jnbe 0083DEFB
|
||
0083DE93 657265 jb 0083DEFB
|
||
0083DE96 205946 and [ecx+$46], bl
|
||
0083DE99 49 dec ecx
|
||
0083DE9A 643D27000000 cmp eax, $00000027
|
||
0083DEA0 FFFF DB $FF, $FF //
|
||
0083DEA2 FFFF DB $FF, $FF //
|
||
0083DEA4 0400 add al, +$00
|
||
0083DEA6 0000 add [eax], al
|
||
|
||
0083DEA8 59 pop ecx
|
||
0083DEA9 46 inc esi
|
||
0083DEAA 49 dec ecx
|
||
0083DEAB 640000 add fs:[eax], al
|
||
0083DEAE 0000 add [eax], al
|
||
|
||
0083DEB0 FFFF DB $FF, $FF //
|
||
0083DEB2 FFFF DB $FF, $FF //
|
||
0083DEB4 2B00 sub eax, dword ptr [eax]
|
||
0083DEB6 0000 add [eax], al
|
||
|
||
0083DEB8 55 push ebp
|
||
0083DEB9 7064 jo 0083DF1F
|
||
0083DEBB 61 popa
|
||
0083DEBC 7465 jz 0083DF23
|
||
0083DEBE 205946 and [ecx+$46], bl
|
||
0083DEC1 5F pop edi
|
||
0083DEC2 4D dec ebp
|
||
0083DEC3 6F outsd
|
||
0083DEC4 6E outsb
|
||
0083DEC5 65795F jns 0083DF27
|
||
0083DEC8 4B dec ebx
|
||
0083DEC9 43 inc ebx
|
||
0083DECA 205365 and [ebx+$65], dl
|
||
0083DECD 7420 jz 0083DEEF
|
||
0083DECF 4B dec ebx
|
||
0083DED0 43 inc ebx
|
||
0083DED1 42 inc edx
|
||
0083DED2 42 inc edx
|
||
0083DED3 4D dec ebp
|
||
0083DED4 6F outsd
|
||
0083DED5 6E outsb
|
||
0083DED6 65793D jns 0083DF16
|
||
0083DED9 4B dec ebx
|
||
0083DEDA 43 inc ebx
|
||
0083DEDB 42 inc edx
|
||
0083DEDC 42 inc edx
|
||
0083DEDD 4D dec ebp
|
||
0083DEDE 6F outsd
|
||
0083DEDF 6E outsb
|
||
0083DEE0 65792B jns 0083DF0E
|
||
0083DEE3 00FF add bh, bh
|
||
0083DEE5 FFFF DB $FF, $FF //
|
||
0083DEE7 FF01 inc dword ptr [ecx]
|
||
0083DEE9 0000 add [eax], al
|
||
|
||
0083DEEB 002D000000FF add [$FF000000], ch
|
||
0083DEF1 FFFF DB $FF, $FF //
|
||
0083DEF3 FF0D00000020 dec dword ptr [$20000000]
|
||
0083DEF9 7768 jnbe 0083DF63
|
||
0083DEFB 657265 jb 0083DF63
|
||
0083DEFE 204352 and [ebx+$52], al
|
||
0083DF01 49 dec ecx
|
||
0083DF02 44 inc esp
|
||
0083DF03 3D27000000 cmp eax, $00000027
|
||
0083DF08 FFFF DB $FF, $FF //
|
||
0083DF0A FFFF DB $FF, $FF //
|
||
0083DF0C 0400 add al, +$00
|
||
0083DF0E 0000 add [eax], al
|
||
|
||
0083DF10 43 inc ebx
|
||
0083DF11 52 push edx
|
||
0083DF12 49 dec ecx
|
||
0083DF13 44 inc esp
|
||
0083DF14 0000 add [eax], al
|
||
|
||
0083DF16 0000 add [eax], al
|
||
|
||
0083DF18 55 push ebp
|
||
0083DF19 8BEC mov ebp, esp
|
||
0083DF1B 51 push ecx
|
||
0083DF1C B90B000000 mov ecx, $0000000B
|
||
0083DF21 6A00 push $00
|
||
0083DF23 6A00 push $00
|
||
0083DF25 49 dec ecx
|
||
0083DF26 75F9 jnz 0083DF21
|
||
0083DF28 874DFC xchg [ebp-$04], ecx
|
||
0083DF2B 53 push ebx
|
||
0083DF2C 56 push esi
|
||
0083DF2D 8BF0 mov esi, eax
|
||
0083DF2F 33C0 xor eax, eax
|
||
0083DF31 55 push ebp
|
||
0083DF32 680BE28300 push $0083E20B
|
||
|
||
***** TRY
|
||
|
|
||
0083DF37 64FF30 push dword ptr fs:[eax]
|
||
0083DF3A 648920 mov fs:[eax], esp
|
||
0083DF3D 33C0 xor eax, eax
|
||
0083DF3F 55 push ebp
|
||
0083DF40 68CCE18300 push $0083E1CC
|
||
|
||
***** TRY
|
||
|
|
||
0083DF45 64FF30 push dword ptr fs:[eax]
|
||
0083DF48 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH._PROC_0083E241(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083E241 50 push eax
|
||
0083E242 6461 popa
|
||
0083E244 7465 jz 0083E2AB
|
||
0083E246 205946 and [ecx+$46], bl
|
||
0083E249 5F pop edi
|
||
0083E24A 4D dec ebp
|
||
0083E24B 6F outsd
|
||
0083E24C 6E outsb
|
||
0083E24D 65795F jns 0083E2AF
|
||
0083E250 43 inc ebx
|
||
0083E251 52 push edx
|
||
0083E252 2000 and [eax], al
|
||
0083E254 FFFF DB $FF, $FF //
|
||
0083E256 FFFF DB $FF, $FF //
|
||
0083E258 0D00000020 or eax, $20000000
|
||
0083E25D 53 push ebx
|
||
0083E25E 657420 jz 0083E281
|
||
0083E261 4D dec ebp
|
||
0083E262 61 popa
|
||
0083E263 696E49643D2700 imul ebp, [esi+$49], $00273D64
|
||
0083E26A 0000 add [eax], al
|
||
|
||
0083E26C FFFF DB $FF, $FF //
|
||
0083E26E FFFF DB $FF, $FF //
|
||
0083E270 0100 add [eax], eax
|
||
0083E272 0000 add [eax], al
|
||
|
||
0083E274 27 daa
|
||
0083E275 0000 add [eax], al
|
||
|
||
0083E277 00FF add bh, bh
|
||
0083E279 FFFF DB $FF, $FF //
|
||
0083E27B FF0B dec dword ptr [ebx]
|
||
0083E27D 0000 add [eax], al
|
||
|
||
0083E27F 0020 add [eax], ah
|
||
0083E281 2C4F sub al, $4F
|
||
0083E283 7264 jb 0083E2E9
|
||
0083E285 65724E jb 0083E2D6
|
||
0083E288 6F outsd
|
||
0083E289 3D2700FFFF cmp eax, $FFFF0027
|
||
0083E28E FFFF DB $FF, $FF //
|
||
0083E290 0900 or [eax], eax
|
||
0083E292 0000 add [eax], al
|
||
|
||
0083E294 2C45 sub al, $45
|
||
0083E296 64697465723D270000 imul esi, fs:[ebp+$72], $0000273D
|
||
0083E29F 00FF add bh, bh
|
||
0083E2A1 FFFF DB $FF, $FF //
|
||
0083E2A3 FF1400 call dword ptr [eax+eax]
|
||
0083E2A6 0000 add [eax], al
|
||
|
||
0083E2A8 2C45 sub al, $45
|
||
0083E2AA 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0083E2B3 657464 jz 0083E31A
|
||
0083E2B6 61 popa
|
||
0083E2B7 7465 jz 0083E31E
|
||
0083E2B9 2829 sub [ecx], ch
|
||
0083E2BB 2000 and [eax], al
|
||
0083E2BD 0000 add [eax], al
|
||
|
||
0083E2BF 00FF add bh, bh
|
||
0083E2C1 FFFF DB $FF, $FF //
|
||
0083E2C3 FF0D00000020 dec dword ptr [$20000000]
|
||
0083E2C9 7768 jnbe 0083E333
|
||
0083E2CB 657265 jb 0083E333
|
||
0083E2CE 205946 and [ecx+$46], bl
|
||
0083E2D1 49 dec ecx
|
||
0083E2D2 643D27000000 cmp eax, $00000027
|
||
0083E2D8 FFFF DB $FF, $FF //
|
||
0083E2DA FFFF DB $FF, $FF //
|
||
0083E2DC 0400 add al, +$00
|
||
0083E2DE 0000 add [eax], al
|
||
|
||
0083E2E0 59 pop ecx
|
||
0083E2E1 46 inc esi
|
||
0083E2E2 49 dec ecx
|
||
0083E2E3 640000 add fs:[eax], al
|
||
0083E2E6 0000 add [eax], al
|
||
|
||
0083E2E8 55 push ebp
|
||
0083E2E9 8BEC mov ebp, esp
|
||
0083E2EB B909000000 mov ecx, $00000009
|
||
0083E2F0 6A00 push $00
|
||
0083E2F2 6A00 push $00
|
||
0083E2F4 49 dec ecx
|
||
0083E2F5 75F9 jnz 0083E2F0
|
||
0083E2F7 51 push ecx
|
||
0083E2F8 53 push ebx
|
||
0083E2F9 56 push esi
|
||
0083E2FA 8BDA mov ebx, edx
|
||
0083E2FC 8BF0 mov esi, eax
|
||
0083E2FE 33C0 xor eax, eax
|
||
0083E300 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>Qe<51><65><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0083E301 689EE58300 push $0083E59E
|
||
|
||
***** TRY
|
||
|
|
||
0083E306 64FF30 push dword ptr fs:[eax]
|
||
0083E309 648920 mov fs:[eax], esp
|
||
0083E30C 8D55FC lea edx, [ebp-$04]
|
||
0083E30F 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;
|
||
|
|
||
0083E311 E8A613D5FF call 0058F6BC
|
||
|
||
* Reference to control Label3 : TLabel
|
||
|
|
||
0083E316 8B9E08030000 mov ebx, [esi+$0308]
|
||
0083E31C 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083E31E E8B175C8FF call 004C58D4
|
||
0083E323 8BC3 mov eax, ebx
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
0083E325 E882FCC9FF call 004DDFAC
|
||
0083E32A 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TLabel.GetClientRect()
|
||
|
|
||
0083E32C FF5244 call dword ptr [edx+$44]
|
||
|
||
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
|
||
| om YF_Money_CR where YFID=''
|
||
|
|
||
0083E32F 68B4E58300 push $0083E5B4
|
||
|
||
* Possible String Reference to: 'YFID'
|
||
|
|
||
0083E334 BAFCE58300 mov edx, $0083E5FC
|
||
|
||
* Reference to control ConNo : N.A.
|
||
|
|
||
0083E339 8B8660030000 mov eax, [esi+$0360]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083E33F E87088C8FF call 004C6BB4
|
||
0083E344 8D55F0 lea edx, [ebp-$10]
|
||
0083E347 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
0083E349 FF5160 call dword ptr [ecx+$60]
|
||
0083E34C FF75F0 push dword ptr [ebp-$10]
|
||
0083E34F 680CE68300 push $0083E60C
|
||
0083E354 8D45F4 lea eax, [ebp-$0C]
|
||
0083E357 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083E35C E85373BCFF call 004056B4
|
||
0083E361 8B45F4 mov eax, [ebp-$0C]
|
||
0083E364 50 push eax
|
||
0083E365 8BC3 mov eax, ebx
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
0083E367 E840FCC9FF call 004DDFAC
|
||
0083E36C 5A pop edx
|
||
0083E36D 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
||
|
|
||
0083E36F FF5138 call dword ptr [ecx+$38]
|
||
0083E372 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
0083E374 E84F75C8FF call 004C58C8
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
0083E379 BA18E68300 mov edx, $0083E618
|
||
|
||
* Reference to control Label3 : TLabel
|
||
|
|
||
0083E37E 8B8608030000 mov eax, [esi+$0308]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083E384 E82B88C8FF call 004C6BB4
|
||
0083E389 8D55F8 lea edx, [ebp-$08]
|
||
0083E38C 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TLabel.SetDragMode(TDragMode)
|
||
|
|
||
0083E38E FF5160 call dword ptr [ecx+$60]
|
||
0083E391 8D55EC lea edx, [ebp-$14]
|
||
0083E394 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083E397 E850C5BCFF call 0040A8EC
|
||
0083E39C 837DEC00 cmp dword ptr [ebp-$14], +$00
|
||
0083E3A0 750D jnz 0083E3AF
|
||
0083E3A2 8D45FC lea eax, [ebp-$04]
|
||
0083E3A5 BA28E68300 mov edx, $0083E628
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083E3AA E80D70BCFF call 004053BC
|
||
|
||
* Reference to control ConNo : N.A.
|
||
|
|
||
0083E3AF 8B9E60030000 mov ebx, [esi+$0360]
|
||
0083E3B5 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0083E3B7 E884A0C8FF call 004C8440
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
0083E3BC BA18E68300 mov edx, $0083E618
|
||
0083E3C1 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083E3C3 E8EC87C8FF call 004C6BB4
|
||
0083E3C8 50 push eax
|
||
0083E3C9 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083E3CC E85BF3BCFF call 0040D72C
|
||
0083E3D1 8D45DC lea eax, [ebp-$24]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0083E3D4 E8B3A9BDFF call 00418D8C
|
||
0083E3D9 8D55DC lea edx, [ebp-$24]
|
||
0083E3DC 58 pop eax
|
||
0083E3DD 8B08 mov ecx, [eax]
|
||
0083E3DF FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0083E3E5 8BC3 mov eax, ebx
|
||
0083E3E7 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
0083E3E9 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
0083E3EF 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0083E3F5 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083E3F7 E8D874C8FF call 004C58D4
|
||
0083E3FC 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;
|
||
|
|
||
0083E3FE E8A9FBC9FF call 004DDFAC
|
||
0083E403 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
0083E405 FF5244 call dword ptr [edx+$44]
|
||
0083E408 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;
|
||
|
|
||
0083E40A E89DFBC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0083E40F BA34E68300 mov edx, $0083E634
|
||
0083E414 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0083E416 FF5138 call dword ptr [ecx+$38]
|
||
0083E419 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;
|
||
|
|
||
0083E41B E88CFBC9FF call 004DDFAC
|
||
0083E420 50 push eax
|
||
0083E421 8D45D8 lea eax, [ebp-$28]
|
||
0083E424 8B4DFC mov ecx, [ebp-$04]
|
||
|
||
* Possible String Reference to: ' set BBMoney='
|
||
|
|
||
0083E427 BA50E68300 mov edx, $0083E650
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
0083E42C E80F72BCFF call 00405640
|
||
0083E431 8B55D8 mov edx, [ebp-$28]
|
||
0083E434 58 pop eax
|
||
0083E435 8B08 mov ecx, [eax]
|
||
0083E437 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
0083E43A 6868E68300 push $0083E668
|
||
0083E43F 8D55D0 lea edx, [ebp-$30]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH._PROC_0083E635(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083E635 50 push eax
|
||
0083E636 6461 popa
|
||
0083E638 7465 jz 0083E69F
|
||
0083E63A 205946 and [ecx+$46], bl
|
||
0083E63D 5F pop edi
|
||
0083E63E 4D dec ebp
|
||
0083E63F 6F outsd
|
||
0083E640 6E outsb
|
||
0083E641 65795F jns 0083E6A3
|
||
0083E644 43 inc ebx
|
||
0083E645 52 push edx
|
||
0083E646 2000 and [eax], al
|
||
0083E648 FFFF DB $FF, $FF //
|
||
0083E64A FFFF DB $FF, $FF //
|
||
0083E64C 0D00000020 or eax, $20000000
|
||
0083E651 7365 jnb 0083E6B8
|
||
0083E653 7420 jz 0083E675
|
||
0083E655 42 inc edx
|
||
0083E656 42 inc edx
|
||
0083E657 4D dec ebp
|
||
0083E658 6F outsd
|
||
0083E659 6E outsb
|
||
0083E65A 65793D jns 0083E69A
|
||
0083E65D 0000 add [eax], al
|
||
|
||
0083E65F 00FF add bh, bh
|
||
0083E661 FFFF DB $FF, $FF //
|
||
0083E663 FF09 dec dword ptr [ecx]
|
||
0083E665 0000 add [eax], al
|
||
|
||
0083E667 002C4564697465 add [$65746964+eax*2], ch
|
||
0083E66E 723D jb 0083E6AD
|
||
0083E670 27 daa
|
||
0083E671 0000 add [eax], al
|
||
|
||
0083E673 00FF add bh, bh
|
||
0083E675 FFFF DB $FF, $FF //
|
||
0083E677 FF1400 call dword ptr [eax+eax]
|
||
0083E67A 0000 add [eax], al
|
||
|
||
0083E67C 2C45 sub al, $45
|
||
0083E67E 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0083E687 657464 jz 0083E6EE
|
||
0083E68A 61 popa
|
||
0083E68B 7465 jz 0083E6F2
|
||
0083E68D 2829 sub [ecx], ch
|
||
0083E68F 2000 and [eax], al
|
||
0083E691 0000 add [eax], al
|
||
|
||
0083E693 00FF add bh, bh
|
||
0083E695 FFFF DB $FF, $FF //
|
||
0083E697 FF0D00000020 dec dword ptr [$20000000]
|
||
0083E69D 7768 jnbe 0083E707
|
||
0083E69F 657265 jb 0083E707
|
||
0083E6A2 205946 and [ecx+$46], bl
|
||
0083E6A5 49 dec ecx
|
||
0083E6A6 643D27000000 cmp eax, $00000027
|
||
0083E6AC FFFF DB $FF, $FF //
|
||
0083E6AE FFFF DB $FF, $FF //
|
||
0083E6B0 0400 add al, +$00
|
||
0083E6B2 0000 add [eax], al
|
||
|
||
0083E6B4 59 pop ecx
|
||
0083E6B5 46 inc esi
|
||
0083E6B6 49 dec ecx
|
||
0083E6B7 640000 add fs:[eax], al
|
||
0083E6BA 0000 add [eax], al
|
||
|
||
0083E6BC FFFF DB $FF, $FF //
|
||
0083E6BE FFFF DB $FF, $FF //
|
||
0083E6C0 2B00 sub eax, dword ptr [eax]
|
||
0083E6C2 0000 add [eax], al
|
||
|
||
0083E6C4 55 push ebp
|
||
0083E6C5 7064 jo 0083E72B
|
||
0083E6C7 61 popa
|
||
0083E6C8 7465 jz 0083E72F
|
||
0083E6CA 205946 and [ecx+$46], bl
|
||
0083E6CD 5F pop edi
|
||
0083E6CE 4D dec ebp
|
||
0083E6CF 6F outsd
|
||
0083E6D0 6E outsb
|
||
0083E6D1 65795F jns 0083E733
|
||
0083E6D4 4B dec ebx
|
||
0083E6D5 43 inc ebx
|
||
0083E6D6 205365 and [ebx+$65], dl
|
||
0083E6D9 7420 jz 0083E6FB
|
||
0083E6DB 4B dec ebx
|
||
0083E6DC 43 inc ebx
|
||
0083E6DD 42 inc edx
|
||
0083E6DE 42 inc edx
|
||
0083E6DF 4D dec ebp
|
||
0083E6E0 6F outsd
|
||
0083E6E1 6E outsb
|
||
0083E6E2 65793D jns 0083E722
|
||
0083E6E5 4B dec ebx
|
||
0083E6E6 43 inc ebx
|
||
0083E6E7 42 inc edx
|
||
0083E6E8 42 inc edx
|
||
0083E6E9 4D dec ebp
|
||
0083E6EA 6F outsd
|
||
0083E6EB 6E outsb
|
||
0083E6EC 65792B jns 0083E71A
|
||
0083E6EF 00FF add bh, bh
|
||
0083E6F1 FFFF DB $FF, $FF //
|
||
0083E6F3 FF01 inc dword ptr [ecx]
|
||
0083E6F5 0000 add [eax], al
|
||
|
||
0083E6F7 002D000000FF add [$FF000000], ch
|
||
0083E6FD FFFF DB $FF, $FF //
|
||
0083E6FF FF0D00000020 dec dword ptr [$20000000]
|
||
0083E705 7768 jnbe 0083E76F
|
||
0083E707 657265 jb 0083E76F
|
||
0083E70A 204352 and [ebx+$52], al
|
||
0083E70D 49 dec ecx
|
||
0083E70E 44 inc esp
|
||
0083E70F 3D27000000 cmp eax, $00000027
|
||
0083E714 FFFF DB $FF, $FF //
|
||
0083E716 FFFF DB $FF, $FF //
|
||
0083E718 0400 add al, +$00
|
||
0083E71A 0000 add [eax], al
|
||
|
||
0083E71C 43 inc ebx
|
||
0083E71D 52 push edx
|
||
0083E71E 49 dec ecx
|
||
0083E71F 44 inc esp
|
||
0083E720 0000 add [eax], al
|
||
|
||
0083E722 0000 add [eax], al
|
||
|
||
|
||
|
|
||
0083E724 E89FC0FFFF call 0083A7C8
|
||
0083E729 C3 ret
|
||
|
||
0083E72A 8BC0 mov eax, eax
|
||
0083E72C 55 push ebp
|
||
0083E72D 8BEC mov ebp, esp
|
||
0083E72F B906000000 mov ecx, $00000006
|
||
0083E734 6A00 push $00
|
||
0083E736 6A00 push $00
|
||
0083E738 49 dec ecx
|
||
0083E739 75F9 jnz 0083E734
|
||
0083E73B 51 push ecx
|
||
0083E73C 53 push ebx
|
||
0083E73D 56 push esi
|
||
0083E73E 8BDA mov ebx, edx
|
||
0083E740 8BF0 mov esi, eax
|
||
0083E742 33C0 xor eax, eax
|
||
0083E744 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>&b<><62><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0083E745 68C9E88300 push $0083E8C9
|
||
|
||
***** TRY
|
||
|
|
||
0083E74A 64FF30 push dword ptr fs:[eax]
|
||
0083E74D 648920 mov fs:[eax], esp
|
||
0083E750 8D55FC lea edx, [ebp-$04]
|
||
0083E753 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;
|
||
|
|
||
0083E755 E8620FD5FF call 0058F6BC
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
0083E75A 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;
|
||
|
|
||
0083E760 E8E7DBE1FF 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;
|
||
|
|
||
0083E765 E8FA33E1FF call 00651B64
|
||
|
||
* Reference to field N.A..OFFS_0050
|
||
|
|
||
0083E76A 8B4050 mov eax, [eax+$50]
|
||
0083E76D 8D55F4 lea edx, [ebp-$0C]
|
||
0083E770 8B08 mov ecx, [eax]
|
||
0083E772 FF5110 call dword ptr [ecx+$10]
|
||
0083E775 8B45F4 mov eax, [ebp-$0C]
|
||
0083E778 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083E77B E86CC1BCFF call 0040A8EC
|
||
|
||
* Reference to control ConNo : N.A.
|
||
|
|
||
0083E780 8B9E60030000 mov ebx, [esi+$0360]
|
||
0083E786 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0083E788 E8B39CC8FF call 004C8440
|
||
0083E78D 8D55E0 lea edx, [ebp-$20]
|
||
0083E790 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083E793 E854C1BCFF call 0040A8EC
|
||
0083E798 8B55E0 mov edx, [ebp-$20]
|
||
0083E79B 8D45E4 lea eax, [ebp-$1C]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0083E79E E825A6BDFF call 00418DC8
|
||
0083E7A3 8D45E4 lea eax, [ebp-$1C]
|
||
0083E7A6 50 push eax
|
||
0083E7A7 8B55F8 mov edx, [ebp-$08]
|
||
0083E7AA 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083E7AC E80384C8FF call 004C6BB4
|
||
0083E7B1 5A pop edx
|
||
0083E7B2 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00B4
|
||
|
|
||
0083E7B4 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0083E7BA 8BC3 mov eax, ebx
|
||
0083E7BC 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
0083E7BE FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
0083E7C4 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0083E7CA 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083E7CC E80371C8FF call 004C58D4
|
||
0083E7D1 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;
|
||
|
|
||
0083E7D3 E8D4F7C9FF call 004DDFAC
|
||
0083E7D8 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
0083E7DA FF5244 call dword ptr [edx+$44]
|
||
0083E7DD 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;
|
||
|
|
||
0083E7DF E8C8F7C9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0083E7E4 BAE0E88300 mov edx, $0083E8E0
|
||
0083E7E9 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0083E7EB FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0083E7EE 68FCE88300 push $0083E8FC
|
||
0083E7F3 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=''
|
||
|
|
||
0083E7F6 680CE98300 push $0083E90C
|
||
0083E7FB 8D55D8 lea edx, [ebp-$28]
|
||
0083E7FE 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083E801 E8E6C0BCFF call 0040A8EC
|
||
0083E806 FF75D8 push dword ptr [ebp-$28]
|
||
0083E809 6818E98300 push $0083E918
|
||
0083E80E 8D45DC lea eax, [ebp-$24]
|
||
0083E811 BA05000000 mov edx, $00000005
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083E816 E8996EBCFF call 004056B4
|
||
0083E81B 8B45DC mov eax, [ebp-$24]
|
||
0083E81E 50 push eax
|
||
0083E81F 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;
|
||
|
|
||
0083E821 E886F7C9FF call 004DDFAC
|
||
0083E826 5A pop edx
|
||
0083E827 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0083E829 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' where YFId=''
|
||
|
|
||
0083E82C 6824E98300 push $0083E924
|
||
|
||
* Possible String Reference to: 'YFId'
|
||
|
|
||
0083E831 BA3CE98300 mov edx, $0083E93C
|
||
|
||
* Reference to control ConNo : N.A.
|
||
|
|
||
0083E836 8B8660030000 mov eax, [esi+$0360]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083E83C E87383C8FF call 004C6BB4
|
||
0083E841 8D55CC lea edx, [ebp-$34]
|
||
0083E844 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
0083E846 FF5160 call dword ptr [ecx+$60]
|
||
0083E849 8B45CC mov eax, [ebp-$34]
|
||
0083E84C 8D55D0 lea edx, [ebp-$30]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083E84F E898C0BCFF call 0040A8EC
|
||
0083E854 FF75D0 push dword ptr [ebp-$30]
|
||
0083E857 6818E98300 push $0083E918
|
||
0083E85C 8D45D4 lea eax, [ebp-$2C]
|
||
0083E85F BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083E864 E84B6EBCFF call 004056B4
|
||
0083E869 8B45D4 mov eax, [ebp-$2C]
|
||
0083E86C 50 push eax
|
||
0083E86D 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;
|
||
|
|
||
0083E86F E838F7C9FF call 004DDFAC
|
||
0083E874 5A pop edx
|
||
0083E875 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0083E877 FF5138 call dword ptr [ecx+$38]
|
||
0083E87A 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
||
|
|
||
0083E87C E853F6C9FF call 004DDED4
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
0083E881 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;
|
||
|
|
||
0083E887 E8C0DAE1FF call 0065C34C
|
||
|
||
* Reference to field N.A..OFFS_0080
|
||
|
|
||
0083E88C 8B8080000000 mov eax, [eax+$0080]
|
||
0083E892 33D2 xor edx, edx
|
||
|
||
* Reference to : TcxCustomGridTableView._PROC_0062075C()
|
||
|
|
||
0083E894 E8C31EDEFF call 0062075C
|
||
0083E899 33C0 xor eax, eax
|
||
0083E89B 5A pop edx
|
||
0083E89C 59 pop ecx
|
||
0083E89D 59 pop ecx
|
||
0083E89E 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '^[<5B><>]<5D>'
|
||
|
|
||
0083E8A1 68D0E88300 push $0083E8D0
|
||
0083E8A6 8D45CC lea eax, [ebp-$34]
|
||
0083E8A9 BA06000000 mov edx, $00000006
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
0083E8AE E8956ABCFF call 00405348
|
||
0083E8B3 8D45E4 lea eax, [ebp-$1C]
|
||
|
||
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
||
|
|
||
0083E8B6 E8B95DBDFF call 00414674
|
||
0083E8BB 8D45F4 lea eax, [ebp-$0C]
|
||
0083E8BE BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
0083E8C3 E8806ABCFF call 00405348
|
||
0083E8C8 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH._PROC_0083E8E1(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083E8E1 50 push eax
|
||
0083E8E2 6461 popa
|
||
0083E8E4 7465 jz 0083E94B
|
||
0083E8E6 205946 and [ecx+$46], bl
|
||
0083E8E9 5F pop edi
|
||
0083E8EA 4D dec ebp
|
||
0083E8EB 6F outsd
|
||
0083E8EC 6E outsb
|
||
0083E8ED 65795F jns 0083E94F
|
||
0083E8F0 43 inc ebx
|
||
0083E8F1 52 push edx
|
||
0083E8F2 2000 and [eax], al
|
||
0083E8F4 FFFF DB $FF, $FF //
|
||
0083E8F6 FFFF DB $FF, $FF //
|
||
0083E8F8 0500000020 add eax, +$20000000
|
||
0083E8FD 53 push ebx
|
||
0083E8FE 657420 jz 0083E921
|
||
0083E901 0000 add [eax], al
|
||
|
||
0083E903 00FF add bh, bh
|
||
0083E905 FFFF DB $FF, $FF //
|
||
0083E907 FF02 inc dword ptr [edx]
|
||
0083E909 0000 add [eax], al
|
||
|
||
0083E90B 003D270000FF add [$FF000027], bh
|
||
0083E911 FFFF DB $FF, $FF //
|
||
0083E913 FF01 inc dword ptr [ecx]
|
||
0083E915 0000 add [eax], al
|
||
|
||
0083E917 0027 add [edi], ah
|
||
0083E919 0000 add [eax], al
|
||
|
||
0083E91B 00FF add bh, bh
|
||
0083E91D FFFF DB $FF, $FF //
|
||
0083E91F FF0D00000020 dec dword ptr [$20000000]
|
||
0083E925 7768 jnbe 0083E98F
|
||
0083E927 657265 jb 0083E98F
|
||
0083E92A 205946 and [ecx+$46], bl
|
||
0083E92D 49 dec ecx
|
||
0083E92E 643D27000000 cmp eax, $00000027
|
||
0083E934 FFFF DB $FF, $FF //
|
||
0083E936 FFFF DB $FF, $FF //
|
||
0083E938 0400 add al, +$00
|
||
0083E93A 0000 add [eax], al
|
||
|
||
0083E93C 59 pop ecx
|
||
0083E93D 46 inc esi
|
||
0083E93E 49 dec ecx
|
||
0083E93F 640000 add fs:[eax], al
|
||
0083E942 0000 add [eax], al
|
||
|
||
0083E944 55 push ebp
|
||
0083E945 8BEC mov ebp, esp
|
||
0083E947 B905000000 mov ecx, $00000005
|
||
0083E94C 6A00 push $00
|
||
0083E94E 6A00 push $00
|
||
0083E950 49 dec ecx
|
||
0083E951 75F9 jnz 0083E94C
|
||
0083E953 53 push ebx
|
||
0083E954 56 push esi
|
||
0083E955 8BDA mov ebx, edx
|
||
0083E957 8BF0 mov esi, eax
|
||
0083E959 33C0 xor eax, eax
|
||
0083E95B 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>2`<60><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0083E95C 68BDEA8300 push $0083EABD
|
||
|
||
***** TRY
|
||
|
|
||
0083E961 64FF30 push dword ptr fs:[eax]
|
||
0083E964 648920 mov fs:[eax], esp
|
||
0083E967 8D55FC lea edx, [ebp-$04]
|
||
0083E96A 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;
|
||
|
|
||
0083E96C E84B0DD5FF call 0058F6BC
|
||
0083E971 8D55F8 lea edx, [ebp-$08]
|
||
0083E974 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083E977 E870BFBCFF call 0040A8EC
|
||
0083E97C 837DF800 cmp dword ptr [ebp-$08], +$00
|
||
0083E980 750D jnz 0083E98F
|
||
0083E982 8D45FC lea eax, [ebp-$04]
|
||
0083E985 BAD4EA8300 mov edx, $0083EAD4
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083E98A E82D6ABCFF call 004053BC
|
||
|
||
* Reference to control ConNo : N.A.
|
||
|
|
||
0083E98F 8B9E60030000 mov ebx, [esi+$0360]
|
||
0083E995 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0083E997 E8A49AC8FF call 004C8440
|
||
0083E99C 6A00 push $00
|
||
0083E99E 6A00 push $00
|
||
0083E9A0 6A00 push $00
|
||
0083E9A2 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.StrToFloatDef(AnsiString;Extended):Extended;overload;
|
||
|
|
||
0083E9A5 E8BEEDBCFF call 0040D768
|
||
0083E9AA 8D45E8 lea eax, [ebp-$18]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0083E9AD E8DAA3BDFF call 00418D8C
|
||
0083E9B2 8D45E8 lea eax, [ebp-$18]
|
||
0083E9B5 50 push eax
|
||
|
||
* Possible String Reference to: 'DerateMoney'
|
||
|
|
||
0083E9B6 BAE0EA8300 mov edx, $0083EAE0
|
||
0083E9BB 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083E9BD E8F281C8FF call 004C6BB4
|
||
0083E9C2 5A pop edx
|
||
0083E9C3 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00B4
|
||
|
|
||
0083E9C5 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0083E9CB 8BC3 mov eax, ebx
|
||
0083E9CD 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
0083E9CF FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
0083E9D5 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0083E9DB 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083E9DD E8F26EC8FF call 004C58D4
|
||
0083E9E2 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;
|
||
|
|
||
0083E9E4 E8C3F5C9FF call 004DDFAC
|
||
0083E9E9 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
0083E9EB FF5244 call dword ptr [edx+$44]
|
||
0083E9EE 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;
|
||
|
|
||
0083E9F0 E8B7F5C9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0083E9F5 BAF4EA8300 mov edx, $0083EAF4
|
||
0083E9FA 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0083E9FC FF5138 call dword ptr [ecx+$38]
|
||
0083E9FF 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;
|
||
|
|
||
0083EA01 E8A6F5C9FF call 004DDFAC
|
||
0083EA06 50 push eax
|
||
0083EA07 8D45E4 lea eax, [ebp-$1C]
|
||
0083EA0A 8B4DFC mov ecx, [ebp-$04]
|
||
|
||
* Possible String Reference to: ' set DerateMoney='
|
||
|
|
||
0083EA0D BA10EB8300 mov edx, $0083EB10
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
0083EA12 E8296CBCFF call 00405640
|
||
0083EA17 8B55E4 mov edx, [ebp-$1C]
|
||
0083EA1A 58 pop eax
|
||
0083EA1B 8B08 mov ecx, [eax]
|
||
0083EA1D FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' where YFId=''
|
||
|
|
||
0083EA20 682CEB8300 push $0083EB2C
|
||
|
||
* Possible String Reference to: 'YFId'
|
||
|
|
||
0083EA25 BA44EB8300 mov edx, $0083EB44
|
||
|
||
* Reference to control ConNo : N.A.
|
||
|
|
||
0083EA2A 8B8660030000 mov eax, [esi+$0360]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083EA30 E87F81C8FF call 004C6BB4
|
||
0083EA35 8D55D8 lea edx, [ebp-$28]
|
||
0083EA38 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
0083EA3A FF5160 call dword ptr [ecx+$60]
|
||
0083EA3D 8B45D8 mov eax, [ebp-$28]
|
||
0083EA40 8D55DC lea edx, [ebp-$24]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083EA43 E8A4BEBCFF call 0040A8EC
|
||
0083EA48 FF75DC push dword ptr [ebp-$24]
|
||
0083EA4B 6854EB8300 push $0083EB54
|
||
0083EA50 8D45E0 lea eax, [ebp-$20]
|
||
0083EA53 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0083EA58 E8576CBCFF call 004056B4
|
||
0083EA5D 8B45E0 mov eax, [ebp-$20]
|
||
0083EA60 50 push eax
|
||
0083EA61 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;
|
||
|
|
||
0083EA63 E844F5C9FF call 004DDFAC
|
||
0083EA68 5A pop edx
|
||
0083EA69 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0083EA6B FF5138 call dword ptr [ecx+$38]
|
||
0083EA6E 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
||
|
|
||
0083EA70 E85FF4C9FF call 004DDED4
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
0083EA75 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;
|
||
|
|
||
0083EA7B E8CCD8E1FF call 0065C34C
|
||
|
||
* Reference to field N.A..OFFS_0080
|
||
|
|
||
0083EA80 8B8080000000 mov eax, [eax+$0080]
|
||
0083EA86 33D2 xor edx, edx
|
||
|
||
* Reference to : TcxCustomGridTableView._PROC_0062075C()
|
||
|
|
||
0083EA88 E8CF1CDEFF call 0062075C
|
||
0083EA8D 33C0 xor eax, eax
|
||
0083EA8F 5A pop edx
|
||
0083EA90 59 pop ecx
|
||
0083EA91 59 pop ecx
|
||
0083EA92 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '^[<5B><>]<5D>'
|
||
|
|
||
0083EA95 68C4EA8300 push $0083EAC4
|
||
0083EA9A 8D45D8 lea eax, [ebp-$28]
|
||
0083EA9D BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
0083EAA2 E8A168BCFF call 00405348
|
||
0083EAA7 8D45E8 lea eax, [ebp-$18]
|
||
|
||
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
||
|
|
||
0083EAAA E8C55BBDFF call 00414674
|
||
0083EAAF 8D45F8 lea eax, [ebp-$08]
|
||
0083EAB2 BA02000000 mov edx, $00000002
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
0083EAB7 E88C68BCFF call 00405348
|
||
0083EABC C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH._PROC_0083EAF5(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083EAF5 50 push eax
|
||
0083EAF6 6461 popa
|
||
0083EAF8 7465 jz 0083EB5F
|
||
0083EAFA 205946 and [ecx+$46], bl
|
||
0083EAFD 5F pop edi
|
||
0083EAFE 4D dec ebp
|
||
0083EAFF 6F outsd
|
||
0083EB00 6E outsb
|
||
0083EB01 65795F jns 0083EB63
|
||
0083EB04 43 inc ebx
|
||
0083EB05 52 push edx
|
||
0083EB06 2000 and [eax], al
|
||
0083EB08 FFFF DB $FF, $FF //
|
||
0083EB0A FFFF DB $FF, $FF //
|
||
0083EB0C 1100 adc [eax], eax
|
||
0083EB0E 0000 add [eax], al
|
||
|
||
0083EB10 207365 and [ebx+$65], dh
|
||
0083EB13 7420 jz 0083EB35
|
||
0083EB15 44 inc esp
|
||
0083EB16 657261 jb 0083EB7A
|
||
0083EB19 7465 jz 0083EB80
|
||
0083EB1B 4D dec ebp
|
||
0083EB1C 6F outsd
|
||
0083EB1D 6E outsb
|
||
0083EB1E 65793D jns 0083EB5E
|
||
0083EB21 0000 add [eax], al
|
||
|
||
0083EB23 00FF add bh, bh
|
||
0083EB25 FFFF DB $FF, $FF //
|
||
0083EB27 FF0D00000020 dec dword ptr [$20000000]
|
||
0083EB2D 7768 jnbe 0083EB97
|
||
0083EB2F 657265 jb 0083EB97
|
||
0083EB32 205946 and [ecx+$46], bl
|
||
0083EB35 49 dec ecx
|
||
0083EB36 643D27000000 cmp eax, $00000027
|
||
0083EB3C FFFF DB $FF, $FF //
|
||
0083EB3E FFFF DB $FF, $FF //
|
||
0083EB40 0400 add al, +$00
|
||
0083EB42 0000 add [eax], al
|
||
|
||
0083EB44 59 pop ecx
|
||
0083EB45 46 inc esi
|
||
0083EB46 49 dec ecx
|
||
0083EB47 640000 add fs:[eax], al
|
||
0083EB4A 0000 add [eax], al
|
||
|
||
0083EB4C FFFF DB $FF, $FF //
|
||
0083EB4E FFFF DB $FF, $FF //
|
||
0083EB50 0100 add [eax], eax
|
||
0083EB52 0000 add [eax], al
|
||
|
||
0083EB54 27 daa
|
||
0083EB55 0000 add [eax], al
|
||
|
||
0083EB57 00558B add [ebp-$75], dl
|
||
0083EB5A EC in al, dx
|
||
0083EB5B B904000000 mov ecx, $00000004
|
||
0083EB60 6A00 push $00
|
||
0083EB62 6A00 push $00
|
||
0083EB64 49 dec ecx
|
||
0083EB65 75F9 jnz 0083EB60
|
||
0083EB67 51 push ecx
|
||
0083EB68 53 push ebx
|
||
0083EB69 56 push esi
|
||
0083EB6A 57 push edi
|
||
0083EB6B 8945FC mov [ebp-$04], eax
|
||
0083EB6E 33C0 xor eax, eax
|
||
0083EB70 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>]<5D><><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
0083EB71 686FED8300 push $0083ED6F
|
||
|
||
***** TRY
|
||
|
|
||
0083EB76 64FF30 push dword ptr fs:[eax]
|
||
0083EB79 648920 mov fs:[eax], esp
|
||
0083EB7C 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control ConNo : N.A.
|
||
|
|
||
0083EB7F 8B8060030000 mov eax, [eax+$0360]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0083EB85 E83693C8FF call 004C7EC0
|
||
0083EB8A 84C0 test al, al
|
||
0083EB8C 0F85BA010000 jnz 0083ED4C
|
||
0083EB92 A080ED8300 mov al, byte ptr [$0083ED80]
|
||
0083EB97 50 push eax
|
||
0083EB98 8D45EC lea eax, [ebp-$14]
|
||
0083EB9B B201 mov dl, $01
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
0083EB9D E8C2A1BDFF call 00418D64
|
||
0083EBA2 8D4DEC lea ecx, [ebp-$14]
|
||
0083EBA5 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control ConNo : N.A.
|
||
|
|
||
0083EBA8 8B8060030000 mov eax, [eax+$0360]
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
0083EBAE BA8CED8300 mov edx, $0083ED8C
|
||
0083EBB3 8B18 mov ebx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_0244
|
||
|
|
||
0083EBB5 FF9344020000 call dword ptr [ebx+$0244]
|
||
0083EBBB 84C0 test al, al
|
||
0083EBBD 751D jnz 0083EBDC
|
||
0083EBBF 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
0083EBC1 B994ED8300 mov ecx, $0083ED94
|
||
|
||
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
||
|
|
||
0083EBC6 BA9CED8300 mov edx, $0083ED9C
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH._PROC_0083F745(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083F745 8BEC mov ebp, esp
|
||
0083F747 33C0 xor eax, eax
|
||
0083F749 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>S<EFBFBD><53><EFBFBD><EFBFBD>]Ë<><C38B>-4Z<34>'
|
||
|
|
||
0083F74A 6869F78300 push $0083F769
|
||
|
||
***** TRY
|
||
|
|
||
0083F74F 64FF30 push dword ptr fs:[eax]
|
||
0083F752 648920 mov fs:[eax], esp
|
||
0083F755 FF05345A8900 inc dword ptr [$00895A34]
|
||
0083F75B 33C0 xor eax, eax
|
||
0083F75D 5A pop edx
|
||
0083F75E 59 pop ecx
|
||
0083F75F 59 pop ecx
|
||
0083F760 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: ']Ë<><C38B>-4Z<34>'
|
||
|
|
||
0083F763 6870F78300 push $0083F770
|
||
0083F768 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
0083F769 E98653BCFF jmp 00404AF4
|
||
0083F76E EBF8 jmp 0083F768
|
||
|
||
****** END
|
||
|
|
||
0083F770 5D pop ebp
|
||
0083F771 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH._PROC_0083F774(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083F774 832D345A890001 sub dword ptr [$00895A34], +$01
|
||
0083F77B C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH._PROC_0083F77C(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083F77C C8F7 enter , $F7
|
||
0083F77E 830000 add dword ptr [eax], +$00
|
||
0083F781 0000 add [eax], al
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH._PROC_0083F78B(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083F78B 00E0 add al, ah
|
||
0083F78D FF8300FEF883 inc dword ptr [ebx+$83F8FE00]
|
||
0083F793 0053FF add [ebx-$01], dl
|
||
0083F796 830000 add dword ptr [eax], +$00
|
||
0083F799 0000 add [eax], al
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH._PROC_0083F79F(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083F79F 008C04000088F1 add [esp+eax+$F1880000], cl
|
||
0083F7A6 49 dec ecx
|
||
0083F7A7 0028 add [eax], ch
|
||
0083F7A9 D4 aam
|
||
0083F7AA 42 inc edx
|
||
0083F7AB 005C1F4A add [edi+ebx+$4A], bl
|
||
0083F7AF 0010 add [eax], dl
|
||
0083F7B1 214A00 and [edx+$00], ecx
|
||
0083F7B4 BC4540008C mov esp, $8C004045
|
||
0083F7B9 45 inc ebp
|
||
0083F7BA 4A dec edx
|
||
0083F7BB 00E4 add ah, ah
|
||
0083F7BD 42 inc edx
|
||
0083F7BE 40 inc eax
|
||
0083F7BF 0000 add [eax], al
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH._PROC_0083F7E2(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083F7E2 48 dec eax
|
||
0083F7E3 0050D4 add [eax-$2C], dl
|
||
0083F7E6 42 inc edx
|
||
0083F7E7 0008 add [eax], cl
|
||
0083F7E9 2D4A007CD0 sub eax, $D07C004A
|
||
0083F7EE 42 inc edx
|
||
0083F7EF 00F4 add ah, dh
|
||
0083F7F1 6B4A00D0 imul ecx, [edx+$00], $D0
|
||
0083F7F5 1D4A0030F6 sbb eax, $F630004A
|
||
0083F7FA 48 dec eax
|
||
0083F7FB 004CFB48 add [ebx+edi*8+$48], cl
|
||
0083F7FF 0098FA48000C add [eax+$C0048FA], bl
|
||
0083F805 7948 jns 0083F84F
|
||
0083F807 00ACF04800E829 add [eax+esi*8+$29E80048], ch
|
||
0083F80E 4A dec edx
|
||
0083F80F 00E4 add ah, ah
|
||
0083F811 ED in eax, dx
|
||
0083F812 48 dec eax
|
||
0083F813 00547848 add [eax+edi*2+$48], dl
|
||
0083F817 005878 add [eax+$78], bl
|
||
0083F81A 48 dec eax
|
||
0083F81B 00DC add ah, bl
|
||
0083F81D 2A4A00 sub cl, byte ptr [edx+$00]
|
||
0083F820 3CA9 cmp al, $A9
|
||
0083F822 48 dec eax
|
||
0083F823 00C0 add al, al
|
||
0083F825 834800D0 or dword ptr [eax+$00], -$30
|
||
0083F829 7948 jns 0083F873
|
||
0083F82B 004C8548 add [ebp+eax*4+$48], cl
|
||
0083F82F 00D0 add al, dl
|
||
0083F831 2C4A sub al, $4A
|
||
0083F833 009C2B4A008486 add [ebx+ebp+$8684004A], bl
|
||
0083F83A 48 dec eax
|
||
0083F83B 00482D add [eax+$2D], cl
|
||
0083F83E 4A dec edx
|
||
0083F83F 00C0 add al, al
|
||
0083F841 A9480038EE test eax, $EE380048
|
||
0083F846 48 dec eax
|
||
0083F847 00F4 add ah, dh
|
||
0083F849 EE out dx, al
|
||
0083F84A 48 dec eax
|
||
0083F84B 00F0 add al, dh
|
||
0083F84D E94800D8EE jmp EF5BF89A
|
||
0083F852 48 dec eax
|
||
0083F853 00D8 add al, bl
|
||
0083F855 1B4A00 sbb ecx, [edx+$00]
|
||
0083F858 EC in al, dx
|
||
0083F859 334A00 xor ecx, [edx+$00]
|
||
0083F85C 20C4 and ah, al
|
||
0083F85E 48 dec eax
|
||
0083F85F 00B0404A0010 add [eax+$10004A40], dh
|
||
0083F865 44 inc esp
|
||
0083F866 4A dec edx
|
||
0083F867 00CC add ah, cl
|
||
0083F869 42 inc edx
|
||
0083F86A 4A dec edx
|
||
0083F86B 00B8C44800BC add [eax+$BC0048C4], bh
|
||
0083F871 C44800 les ecx, [eax+$00]
|
||
0083F874 48 dec eax
|
||
0083F875 45 inc ebp
|
||
0083F876 4A dec edx
|
||
0083F877 001CC3 add [ebx+eax*8], bl
|
||
0083F87A 48 dec eax
|
||
0083F87B 0018 add [eax], bl
|
||
0083F87D F0 lock
|
||
0083F87E 48 dec eax
|
||
0083F87F 00444C4A add [esp+ecx*2+$4A], al
|
||
0083F883 000C02 add [edx+eax], cl
|
||
0083F886 49 dec ecx
|
||
0083F887 0094EC48009C64 add [esp+ebp*8+$649C0048], dl
|
||
0083F88E 4A dec edx
|
||
0083F88F 008C154A003C18 add [ebp+edx+$183C004A], cl
|
||
0083F896 4A dec edx
|
||
0083F897 0038 add [eax], bh
|
||
0083F899 52 push edx
|
||
0083F89A 4A dec edx
|
||
0083F89B 005C224A add [edx+$4A], bl
|
||
0083F89F 00D8 add al, bl
|
||
0083F8A1 224A00 and cl, byte ptr [edx+$00]
|
||
0083F8A4 7C68 jl 0083F90E
|
||
0083F8A6 4A dec edx
|
||
0083F8A7 00941F4A003C60 add [edi+ebx+$603C004A], dl
|
||
0083F8AE 4A dec edx
|
||
0083F8AF 001447 add [edi+eax*2], dl
|
||
0083F8B2 4A dec edx
|
||
0083F8B3 0034654A00CC2C add [$2CCC004A], dh
|
||
0083F8BA 4A dec edx
|
||
0083F8BB 000E add [esi], cl
|
||
0083F8BD 0000 add [eax], al
|
||
|
||
0083F8BF 0000 add [eax], al
|
||
|
||
0083F8C1 0007 add [edi], al
|
||
0083F8C3 0000 add [eax], al
|
||
|
||
0083F8C5 0020 add [eax], ah
|
||
0083F8C7 114000 adc [eax+$00], eax
|
||
0083F8CA 7004 jo 0083F8D0
|
||
0083F8CC 0000 add [eax], al
|
||
|
||
0083F8CE 2011 and [ecx], dl
|
||
0083F8D0 40 inc eax
|
||
0083F8D1 00740400 add [esp+eax+$00], dh
|
||
0083F8D5 0020 add [eax], ah
|
||
0083F8D7 114000 adc [eax+$00], eax
|
||
0083F8DA 7804 js 0083F8E0
|
||
0083F8DC 0000 add [eax], al
|
||
|
||
0083F8DE 2011 and [ecx], dl
|
||
0083F8E0 40 inc eax
|
||
0083F8E1 007C0400 add [esp+eax+$00], bh
|
||
0083F8E5 0020 add [eax], ah
|
||
0083F8E7 114000 adc [eax+$00], eax
|
||
0083F8EA 80040000 add byte ptr [eax+eax], $00
|
||
0083F8EE 2011 and [ecx], dl
|
||
0083F8F0 40 inc eax
|
||
0083F8F1 00840400002011 add [esp+eax+$11200000], al
|
||
0083F8F8 40 inc eax
|
||
0083F8F9 00880400005E add [eax+$5E000004], cl
|
||
0083F8FF 00A7FF8300F8 add [edi+$F80083FF], ah
|
||
0083F905 0200 add al, byte ptr [eax]
|
||
0083F907 0000 add [eax], al
|
||
|
||
0083F909 0006 add [esi], al
|
||
0083F90B 50 push eax
|
||
0083F90C 61 popa
|
||
0083F90D 6E outsb
|
||
0083F90E 656C insb
|
||
0083F910 31FC xor esp, edi
|
||
0083F912 0200 add al, byte ptr [eax]
|
||
0083F914 0001 add [ecx], al
|
||
0083F916 0006 add [esi], al
|
||
0083F918 4C dec esp
|
||
0083F919 61 popa
|
||
0083F91A 62656C bound esp, qword ptr [ebp+$6C]
|
||
0083F91D 3200 xor al, byte ptr [eax]
|
||
0083F91F 0300 add eax, [eax]
|
||
0083F921 0002 add [edx], al
|
||
0083F923 0006 add [esi], al
|
||
0083F925 4B dec ebx
|
||
0083F926 48 dec eax
|
||
0083F927 4E dec esi
|
||
0083F928 61 popa
|
||
0083F929 6D insd
|
||
0083F92A 650403 add al, +$03
|
||
0083F92D 0000 add [eax], al
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR_SH._PROC_0083FFDF(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083FFDF 0007 add [edi], al
|
||
0083FFE1 0D5446726D or eax, $6D724654
|
||
0083FFE6 4A dec edx
|
||
0083FFE7 59 pop ecx
|
||
0083FFE8 4F dec edi
|
||
0083FFE9 7264 jb 0084004F
|
||
0083FFEB 657259 jb 00840047
|
||
0083FFEE 53 push ebx
|
||
0083FFEF C8F7 enter , $F7
|
||
0083FFF1 8300D0 add dword ptr [eax], -$30
|
||
0083FFF4 F2 repne
|
||
0083FFF5 49 dec ecx
|
||
0083FFF6 005E00 add [esi+$00], bl
|
||
0083FFF9 0B555F or edx, [ebp+$5F]
|
||
0083FFFC 4A dec edx
|
||
0083FFFD 59 pop ecx
|
||
0083FFFE 4F dec edi
|
||
0083FFFF 7264 jb 00840065
|
||
00840001 657259 jb 0084005D
|
||
00840004 53 push ebx
|
||
00840005 0000 add [eax], al
|
||
|
||
00840007 90 nop
|
||
00840008 55 push ebp
|
||
00840009 8BEC mov ebp, esp
|
||
0084000B B907000000 mov ecx, $00000007
|
||
00840010 6A00 push $00
|
||
00840012 6A00 push $00
|
||
00840014 49 dec ecx
|
||
00840015 75F9 jnz 00840010
|
||
00840017 53 push ebx
|
||
00840018 56 push esi
|
||
00840019 8BD8 mov ebx, eax
|
||
0084001B 33C0 xor eax, eax
|
||
0084001D 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>D<EFBFBD><44><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0084001E 68F6058400 push $008405F6
|
||
|
||
***** TRY
|
||
|
|
||
00840023 64FF30 push dword ptr fs:[eax]
|
||
00840026 648920 mov fs:[eax], esp
|
||
|
||
* Reference to control Label14 : N.A.
|
||
|
|
||
00840029 8BB368030000 mov esi, [ebx+$0368]
|
||
0084002F 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
00840031 E89E58C8FF call 004C58D4
|
||
00840036 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840038 E86FDFC9FF call 004DDFAC
|
||
0084003D 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
0084003F FF5244 call dword ptr [edx+$44]
|
||
00840042 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840044 E863DFC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'select AA.* From (select D.CRTime,D
|
||
| .FactoryName,C.SPName,Sum(C.Qty) TT
|
||
| Qty,Max(D.Price) Price,Sum(C.Qty*D.
|
||
| Price) PBMoney '
|
||
|
|
||
00840049 BA0C068400 mov edx, $0084060C
|
||
0084004E 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00840050 FF5138 call dword ptr [ecx+$38]
|
||
00840053 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840055 E852DFC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'from CK_SXPB_CR C '
|
||
|
|
||
0084005A BA90068400 mov edx, $00840690
|
||
0084005F 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00840061 FF5138 call dword ptr [ecx+$38]
|
||
00840064 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840066 E841DFC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' inner join YF_Money_CR D on C.FZSP
|
||
| ID=D.YFTypeId'
|
||
|
|
||
0084006B BAAC068400 mov edx, $008406AC
|
||
00840070 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00840072 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' where C.CKName='<27><><EFBFBD><EFBFBD>' and C.CRFlag
|
||
| ='<27><><EFBFBD><EFBFBD>' and C.ORDMainIdCK=''
|
||
|
|
||
00840075 68E8068400 push $008406E8
|
||
0084007A 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to control v1Column12 : N.A.
|
||
|
|
||
0084007D 8B8370040000 mov eax, [ebx+$0470]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00840083 E864A8BCFF call 0040A8EC
|
||
00840088 FF75F8 push dword ptr [ebp-$08]
|
||
0084008B 6830078400 push $00840730
|
||
00840090 8D45FC lea eax, [ebp-$04]
|
||
00840093 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00840098 E81756BCFF call 004056B4
|
||
0084009D 8B45FC mov eax, [ebp-$04]
|
||
008400A0 50 push eax
|
||
008400A1 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
008400A3 E804DFC9FF call 004DDFAC
|
||
008400A8 5A pop edx
|
||
008400A9 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
008400AB FF5138 call dword ptr [ecx+$38]
|
||
008400AE 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
008400B0 E8F7DEC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' group by D.CRTime,D.FactoryName,C.
|
||
| SPName'
|
||
|
|
||
008400B5 BA3C078400 mov edx, $0084073C
|
||
008400BA 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
008400BC FF5138 call dword ptr [ecx+$38]
|
||
008400BF 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
008400C1 E8E6DEC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' union all'
|
||
|
|
||
008400C6 BA70078400 mov edx, $00840770
|
||
008400CB 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
008400CD FF5138 call dword ptr [ecx+$38]
|
||
008400D0 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
008400D2 E8D5DEC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' select D.CRTime,D.FactoryName,C.SP
|
||
| Name,Sum(D.Qty) TTQty,Max(D.Price)
|
||
| Price,Sum(D.Qty*D.Price) PBMoney '
|
||
|
|
||
008400D7 BA84078400 mov edx, $00840784
|
||
008400DC 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
008400DE FF5138 call dword ptr [ecx+$38]
|
||
008400E1 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
008400E3 E8C4DEC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' from CK_SXPB_CR C '
|
||
|
|
||
008400E8 BAF4078400 mov edx, $008407F4
|
||
008400ED 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
008400EF FF5138 call dword ptr [ecx+$38]
|
||
008400F2 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
008400F4 E8B3DEC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' inner join YF_Money_CR D on C.SPID
|
||
| =D.YFTypeId'
|
||
|
|
||
008400F9 BA10088400 mov edx, $00840810
|
||
008400FE 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00840100 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' where C.CRType='<27>ɹ<EFBFBD><C9B9>˻<EFBFBD>' and C.CR
|
||
| Flag='<27><><EFBFBD><EFBFBD>' and C.ORDMainIdCK=''
|
||
|
|
||
00840103 6848088400 push $00840848
|
||
00840108 8D55F0 lea edx, [ebp-$10]
|
||
|
||
* Reference to control v1Column12 : N.A.
|
||
|
|
||
0084010B 8B8370040000 mov eax, [ebx+$0470]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00840111 E8D6A7BCFF call 0040A8EC
|
||
00840116 FF75F0 push dword ptr [ebp-$10]
|
||
00840119 6830078400 push $00840730
|
||
0084011E 8D45F4 lea eax, [ebp-$0C]
|
||
00840121 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00840126 E88955BCFF call 004056B4
|
||
0084012B 8B45F4 mov eax, [ebp-$0C]
|
||
0084012E 50 push eax
|
||
0084012F 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840131 E876DEC9FF call 004DDFAC
|
||
00840136 5A pop edx
|
||
00840137 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00840139 FF5138 call dword ptr [ecx+$38]
|
||
0084013C 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
0084013E E869DEC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' group by D.CRTime,D.FactoryName,C.
|
||
| SPName) AA'
|
||
|
|
||
00840143 BA94088400 mov edx, $00840894
|
||
00840148 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0084014A FF5138 call dword ptr [ecx+$38]
|
||
0084014D 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
0084014F E858DEC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' Order By AA.CRTime,AA.FactoryName'
|
||
|
|
||
00840154 BACC088400 mov edx, $008408CC
|
||
00840159 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0084015B FF5138 call dword ptr [ecx+$38]
|
||
0084015E 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
00840160 E86357C8FF call 004C58C8
|
||
|
||
* Reference to control ConPerson1 : N.A.
|
||
|
|
||
00840165 8B9358030000 mov edx, [ebx+$0358]
|
||
|
||
* Reference to control Label14 : N.A.
|
||
|
|
||
0084016B 8B8368030000 mov eax, [ebx+$0368]
|
||
|
||
|
|
||
00840171 E81A6DF7FF call 007B6E90
|
||
|
||
* Reference to control ConPerson1 : N.A.
|
||
|
|
||
00840176 8B9358030000 mov edx, [ebx+$0358]
|
||
|
||
* Reference to control Label14 : N.A.
|
||
|
|
||
0084017C 8B8368030000 mov eax, [ebx+$0368]
|
||
|
||
|
|
||
00840182 E8916EF7FF call 007B7018
|
||
|
||
* Reference to control Label14 : N.A.
|
||
|
|
||
00840187 8BB368030000 mov esi, [ebx+$0368]
|
||
0084018D 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0084018F E84057C8FF call 004C58D4
|
||
00840194 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840196 E811DEC9FF call 004DDFAC
|
||
0084019B 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
0084019D FF5244 call dword ptr [edx+$44]
|
||
008401A0 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
008401A2 E805DEC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'select C.CRTime,D.FactoryName,C.SPN
|
||
| ame,C.SPCF PRTColor,Sum(C.Qty) JGQt
|
||
| y,Max(D.Price) Price,Sum(C.Qty*D.Pr
|
||
| ice) JGMoney '
|
||
|
|
||
008401A7 BAF8088400 mov edx, $008408F8
|
||
008401AC 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
008401AE FF5138 call dword ptr [ecx+$38]
|
||
008401B1 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
008401B3 E8F4DDC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'from CK_SXPB_CR C '
|
||
|
|
||
008401B8 BA90068400 mov edx, $00840690
|
||
008401BD 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
008401BF FF5138 call dword ptr [ecx+$38]
|
||
008401C2 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
008401C4 E8E3DDC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' inner join YF_Money_CR D on C.FZSP
|
||
| ID=D.YFTypeId'
|
||
|
|
||
008401C9 BAAC068400 mov edx, $008406AC
|
||
008401CE 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
008401D0 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' where C.CKName in ('<27><><EFBFBD>ӹ<EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD>
|
||
| <20>','<27><>Ʒ') and D.CRType='Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>
|
||
| ' and C.CRFlag='<27><><EFBFBD><EFBFBD>' and C.OrdMain
|
||
| idCK=''
|
||
|
|
||
008401D3 6878098400 push $00840978
|
||
008401D8 8D55E8 lea edx, [ebp-$18]
|
||
|
||
* Reference to control v1Column12 : N.A.
|
||
|
|
||
008401DB 8B8370040000 mov eax, [ebx+$0470]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008401E1 E806A7BCFF call 0040A8EC
|
||
008401E6 FF75E8 push dword ptr [ebp-$18]
|
||
008401E9 6830078400 push $00840730
|
||
008401EE 8D45EC lea eax, [ebp-$14]
|
||
008401F1 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
008401F6 E8B954BCFF call 004056B4
|
||
008401FB 8B45EC mov eax, [ebp-$14]
|
||
008401FE 50 push eax
|
||
008401FF 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840201 E8A6DDC9FF call 004DDFAC
|
||
00840206 5A pop edx
|
||
00840207 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00840209 FF5138 call dword ptr [ecx+$38]
|
||
0084020C 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
0084020E E899DDC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' group by C.CRTime,D.FactoryName,C.
|
||
| SPName,C.SPCF'
|
||
|
|
||
00840213 BAF0098400 mov edx, $008409F0
|
||
00840218 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0084021A FF5138 call dword ptr [ecx+$38]
|
||
0084021D 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
0084021F E8A456C8FF call 004C58C8
|
||
|
||
* Reference to control Label10 : TLabel
|
||
|
|
||
00840224 8B935C030000 mov edx, [ebx+$035C]
|
||
|
||
* Reference to control Label14 : N.A.
|
||
|
|
||
0084022A 8B8368030000 mov eax, [ebx+$0368]
|
||
|
||
|
|
||
00840230 E85B6CF7FF call 007B6E90
|
||
|
||
* Reference to control Label10 : TLabel
|
||
|
|
||
00840235 8B935C030000 mov edx, [ebx+$035C]
|
||
|
||
* Reference to control Label14 : N.A.
|
||
|
|
||
0084023B 8B8368030000 mov eax, [ebx+$0368]
|
||
|
||
|
|
||
00840241 E8D26DF7FF call 007B7018
|
||
|
||
* Reference to control Label14 : N.A.
|
||
|
|
||
00840246 8BB368030000 mov esi, [ebx+$0368]
|
||
0084024C 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0084024E E88156C8FF call 004C58D4
|
||
00840253 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840255 E852DDC9FF call 004DDFAC
|
||
0084025A 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
0084025C FF5244 call dword ptr [edx+$44]
|
||
0084025F 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840261 E846DDC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'select C.CRTime,D.FactoryName,C.SPN
|
||
| ame,C.SPCF PRTColor,Sum(C.Qty) FLQt
|
||
| y,Max(D.Price) Price,Sum(C.Qty*D.Pr
|
||
| ice) FLMoney '
|
||
|
|
||
00840266 BA2C0A8400 mov edx, $00840A2C
|
||
0084026B 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0084026D FF5138 call dword ptr [ecx+$38]
|
||
00840270 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840272 E835DDC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'from CK_SXPB_CR C '
|
||
|
|
||
00840277 BA90068400 mov edx, $00840690
|
||
0084027C 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0084027E FF5138 call dword ptr [ecx+$38]
|
||
00840281 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840283 E824DDC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' inner join YF_Money_CR D on C.FZSP
|
||
| ID=D.YFTypeId'
|
||
|
|
||
00840288 BAAC068400 mov edx, $008406AC
|
||
0084028D 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0084028F FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' where C.CKName in ('<27><><EFBFBD><EFBFBD>') and C.C
|
||
| RFlag='<27><><EFBFBD><EFBFBD>' and C.OrdMainidCK=''
|
||
|
|
||
00840292 68AC0A8400 push $00840AAC
|
||
00840297 8D55E0 lea edx, [ebp-$20]
|
||
|
||
* Reference to control v1Column12 : N.A.
|
||
|
|
||
0084029A 8B8370040000 mov eax, [ebx+$0470]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008402A0 E847A6BCFF call 0040A8EC
|
||
008402A5 FF75E0 push dword ptr [ebp-$20]
|
||
008402A8 6830078400 push $00840730
|
||
008402AD 8D45E4 lea eax, [ebp-$1C]
|
||
008402B0 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
008402B5 E8FA53BCFF call 004056B4
|
||
008402BA 8B45E4 mov eax, [ebp-$1C]
|
||
008402BD 50 push eax
|
||
008402BE 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
008402C0 E8E7DCC9FF call 004DDFAC
|
||
008402C5 5A pop edx
|
||
008402C6 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
008402C8 FF5138 call dword ptr [ecx+$38]
|
||
008402CB 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
008402CD E8DADCC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' group by C.CRTime,D.FactoryName,C.
|
||
| SPName,C.SPCF'
|
||
|
|
||
008402D2 BAF0098400 mov edx, $008409F0
|
||
008402D7 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
008402D9 FF5138 call dword ptr [ecx+$38]
|
||
008402DC 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
008402DE E8E555C8FF call 004C58C8
|
||
|
||
* Reference to control FKPerson : N.A.
|
||
|
|
||
008402E3 8B9348040000 mov edx, [ebx+$0448]
|
||
|
||
* Reference to control Label14 : N.A.
|
||
|
|
||
008402E9 8B8368030000 mov eax, [ebx+$0368]
|
||
|
||
|
|
||
008402EF E89C6BF7FF call 007B6E90
|
||
|
||
* Reference to control FKPerson : N.A.
|
||
|
|
||
008402F4 8B9348040000 mov edx, [ebx+$0448]
|
||
|
||
* Reference to control Label14 : N.A.
|
||
|
|
||
008402FA 8B8368030000 mov eax, [ebx+$0368]
|
||
|
||
|
|
||
00840300 E8136DF7FF call 007B7018
|
||
|
||
* Reference to control Label14 : N.A.
|
||
|
|
||
00840305 8BB368030000 mov esi, [ebx+$0368]
|
||
0084030B 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0084030D E8C255C8FF call 004C58D4
|
||
00840312 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840314 E893DCC9FF call 004DDFAC
|
||
00840319 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
0084031B FF5244 call dword ptr [edx+$44]
|
||
0084031E 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840320 E887DCC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'select A.ConNo,A.CRTime,A.P_CodeNam
|
||
| e,A.P_Spec,A.BZType,A.Price'
|
||
|
|
||
00840325 BAF80A8400 mov edx, $00840AF8
|
||
0084032A 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0084032C FF5138 call dword ptr [ecx+$38]
|
||
0084032F 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840331 E876DCC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ',Sum(A.PS) PS,Sum(A.Qty) Qty,A.Huil
|
||
| v'
|
||
|
|
||
00840336 BA400B8400 mov edx, $00840B40
|
||
0084033B 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0084033D FF5138 call dword ptr [ecx+$38]
|
||
00840340 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840342 E865DCC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ',RMBMoney=Sum(A.Money*A.HuiLV),Mone
|
||
| y=Sum(A.Money)'
|
||
|
|
||
00840347 BA700B8400 mov edx, $00840B70
|
||
0084034C 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0084034E FF5138 call dword ptr [ecx+$38]
|
||
00840351 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840353 E854DCC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' from YF_Money_CR A '
|
||
|
|
||
00840358 BAAC0B8400 mov edx, $00840BAC
|
||
0084035D 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0084035F FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' where A.Mainid=''
|
||
|
|
||
00840362 68CC0B8400 push $00840BCC
|
||
00840367 8D55D8 lea edx, [ebp-$28]
|
||
|
||
* Reference to control v1Column12 : N.A.
|
||
|
|
||
0084036A 8B8370040000 mov eax, [ebx+$0470]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00840370 E877A5BCFF call 0040A8EC
|
||
00840375 FF75D8 push dword ptr [ebp-$28]
|
||
|
||
* Possible String Reference to: '' and A.CRType='Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>' '
|
||
|
|
||
00840378 68E80B8400 push $00840BE8
|
||
0084037D 8D45DC lea eax, [ebp-$24]
|
||
00840380 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00840385 E82A53BCFF call 004056B4
|
||
0084038A 8B45DC mov eax, [ebp-$24]
|
||
0084038D 50 push eax
|
||
0084038E 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840390 E817DCC9FF call 004DDFAC
|
||
00840395 5A pop edx
|
||
00840396 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00840398 FF5138 call dword ptr [ecx+$38]
|
||
0084039B 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
0084039D E80ADCC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' and A.CRFlag='Ӧ<><D3A6><EFBFBD><EFBFBD>' and A.Status
|
||
| <>'0''
|
||
|
|
||
008403A2 BA100C8400 mov edx, $00840C10
|
||
008403A7 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
008403A9 FF5138 call dword ptr [ecx+$38]
|
||
008403AC 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
008403AE E8F9DBC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' group by A.ConNo,A.CRTime,A.P_Code
|
||
| Name,A.P_Spec,A.BZType,A.Price,A.Hu
|
||
| ilv'
|
||
|
|
||
008403B3 BA440C8400 mov edx, $00840C44
|
||
008403B8 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
008403BA FF5138 call dword ptr [ecx+$38]
|
||
008403BD 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
008403BF E80455C8FF call 004C58C8
|
||
|
||
* Reference to control ConNo : N.A.
|
||
|
|
||
008403C4 8B9360030000 mov edx, [ebx+$0360]
|
||
|
||
* Reference to control Label14 : N.A.
|
||
|
|
||
008403CA 8B8368030000 mov eax, [ebx+$0368]
|
||
|
||
|
|
||
008403D0 E8BB6AF7FF call 007B6E90
|
||
|
||
* Reference to control ConNo : N.A.
|
||
|
|
||
008403D5 8B9360030000 mov edx, [ebx+$0360]
|
||
|
||
* Reference to control Label14 : N.A.
|
||
|
|
||
008403DB 8B8368030000 mov eax, [ebx+$0368]
|
||
|
||
|
|
||
008403E1 E8326CF7FF call 007B7018
|
||
|
||
* Reference to control Label14 : N.A.
|
||
|
|
||
008403E6 8BB368030000 mov esi, [ebx+$0368]
|
||
008403EC 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
008403EE E8E154C8FF call 004C58D4
|
||
008403F3 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
008403F5 E8B2DBC9FF call 004DDFAC
|
||
008403FA 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
008403FC FF5244 call dword ptr [edx+$44]
|
||
008403FF 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840401 E8A6DBC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'select B.ConNo,A.CRTime,A.BZType,A.
|
||
| Huilv'
|
||
|
|
||
00840406 BA980C8400 mov edx, $00840C98
|
||
0084040B 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0084040D FF5138 call dword ptr [ecx+$38]
|
||
00840410 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840412 E895DBC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ',RMBMoney=sum(E.Num*A.Huilv)'
|
||
|
|
||
00840417 BACC0C8400 mov edx, $00840CCC
|
||
0084041C 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0084041E FF5138 call dword ptr [ecx+$38]
|
||
00840421 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840423 E884DBC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ',USDMoney=sum(E.Num)'
|
||
|
|
||
00840428 BAF40C8400 mov edx, $00840CF4
|
||
0084042D 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0084042F FF5138 call dword ptr [ecx+$38]
|
||
00840432 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840434 E873DBC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'from YF_Money_CR A '
|
||
|
|
||
00840439 BA140D8400 mov edx, $00840D14
|
||
0084043E 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00840440 FF5138 call dword ptr [ecx+$38]
|
||
00840443 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840445 E862DBC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'inner join YF_log E on E.ListNo=A.Y
|
||
| FID '
|
||
|
|
||
0084044A BA300D8400 mov edx, $00840D30
|
||
0084044F 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00840451 FF5138 call dword ptr [ecx+$38]
|
||
00840454 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840456 E851DBC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'inner join YF_Money_CR B on B.YFID=
|
||
| E.ToNo and B.CRType='Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>' '
|
||
|
|
||
0084045B BA600D8400 mov edx, $00840D60
|
||
00840460 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00840462 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: 'where B.Mainid=''
|
||
|
|
||
00840465 68B00D8400 push $00840DB0
|
||
0084046A 8D55D0 lea edx, [ebp-$30]
|
||
|
||
* Reference to control v1Column12 : N.A.
|
||
|
|
||
0084046D 8B8370040000 mov eax, [ebx+$0470]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00840473 E874A4BCFF call 0040A8EC
|
||
00840478 FF75D0 push dword ptr [ebp-$30]
|
||
|
||
* Possible String Reference to: '' and A.CRType='<27>տ<EFBFBD><D5BF>Ǽ<EFBFBD>' '
|
||
|
|
||
0084047B 68CC0D8400 push $00840DCC
|
||
00840480 8D45D4 lea eax, [ebp-$2C]
|
||
00840483 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00840488 E82752BCFF call 004056B4
|
||
0084048D 8B45D4 mov eax, [ebp-$2C]
|
||
00840490 50 push eax
|
||
00840491 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840493 E814DBC9FF call 004DDFAC
|
||
00840498 5A pop edx
|
||
00840499 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0084049B FF5138 call dword ptr [ecx+$38]
|
||
0084049E 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
008404A0 E807DBC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' and A.status<>'0''
|
||
|
|
||
008404A5 BAF00D8400 mov edx, $00840DF0
|
||
008404AA 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
008404AC FF5138 call dword ptr [ecx+$38]
|
||
008404AF 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
008404B1 E8F6DAC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' group by B.ConNo,A.CRTime,A.BZType
|
||
| ,A.Huilv'
|
||
|
|
||
008404B6 BA0C0E8400 mov edx, $00840E0C
|
||
008404BB 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
008404BD FF5138 call dword ptr [ecx+$38]
|
||
008404C0 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
008404C2 E80154C8FF call 004C58C8
|
||
|
||
* Reference to control conDefstr1 : N.A.
|
||
|
|
||
008404C7 8B9314040000 mov edx, [ebx+$0414]
|
||
|
||
* Reference to control Label14 : N.A.
|
||
|
|
||
008404CD 8B8368030000 mov eax, [ebx+$0368]
|
||
|
||
|
|
||
008404D3 E8B869F7FF call 007B6E90
|
||
|
||
* Reference to control conDefstr1 : N.A.
|
||
|
|
||
008404D8 8B9314040000 mov edx, [ebx+$0414]
|
||
|
||
* Reference to control Label14 : N.A.
|
||
|
|
||
008404DE 8B8368030000 mov eax, [ebx+$0368]
|
||
|
||
|
|
||
008404E4 E82F6BF7FF call 007B7018
|
||
|
||
* Reference to control Label14 : N.A.
|
||
|
|
||
008404E9 8BB368030000 mov esi, [ebx+$0368]
|
||
008404EF 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
008404F1 E8DE53C8FF call 004C58D4
|
||
008404F6 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
008404F8 E8AFDAC9FF call 004DDFAC
|
||
008404FD 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
008404FF FF5244 call dword ptr [edx+$44]
|
||
00840502 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840504 E8A3DAC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'select A.CRTime,A.YFName,A.BZType,A
|
||
| .Note '
|
||
|
|
||
00840509 BA400E8400 mov edx, $00840E40
|
||
0084050E 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00840510 FF5138 call dword ptr [ecx+$38]
|
||
00840513 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840515 E892DAC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ',RMBMoney=Sum(A.Money*A.Huilv)'
|
||
|
|
||
0084051A BA740E8400 mov edx, $00840E74
|
||
0084051F 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00840521 FF5138 call dword ptr [ecx+$38]
|
||
00840524 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840526 E881DAC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' from YF_Money_CR A '
|
||
|
|
||
0084052B BAAC0B8400 mov edx, $00840BAC
|
||
00840530 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00840532 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' where A.Mainid=''
|
||
|
|
||
00840535 68CC0B8400 push $00840BCC
|
||
0084053A 8D55C8 lea edx, [ebp-$38]
|
||
|
||
* Reference to control v1Column12 : N.A.
|
||
|
|
||
0084053D 8B8370040000 mov eax, [ebx+$0470]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00840543 E8A4A3BCFF call 0040A8EC
|
||
00840548 FF75C8 push dword ptr [ebp-$38]
|
||
|
||
* Possible String Reference to: '' and A.CRType in ('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>','<27><>
|
||
| <20><><EFBFBD>ӷ<EFBFBD>') and isnull(A.FYType,'')<>'
|
||
| <20>ӹ<EFBFBD><D3B9><EFBFBD>' '
|
||
|
|
||
0084054B 689C0E8400 push $00840E9C
|
||
00840550 8D45CC lea eax, [ebp-$34]
|
||
00840553 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00840558 E85751BCFF call 004056B4
|
||
0084055D 8B45CC mov eax, [ebp-$34]
|
||
00840560 50 push eax
|
||
00840561 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840563 E844DAC9FF call 004DDFAC
|
||
00840568 5A pop edx
|
||
00840569 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0084056B FF5138 call dword ptr [ecx+$38]
|
||
0084056E 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840570 E837DAC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' and isnull(A.YFName,'')<>'<27><><EFBFBD>Ϸ<EFBFBD>'
|
||
| and isnull(A.FYType,'')<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' '
|
||
|
|
||
00840575 BAF40E8400 mov edx, $00840EF4
|
||
0084057A 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0084057C FF5138 call dword ptr [ecx+$38]
|
||
0084057F 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840581 E826DAC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' and isnull(A.YFName,'')<>'<27>ü<EFBFBD><C3BC>˹<EFBFBD>
|
||
| <20><>' and isnull(A.YFName,'')<>'<27><><EFBFBD><EFBFBD><EFBFBD>
|
||
| ˹<><CBB9><EFBFBD>' and isnull(A.YFName,'')<>'<27><>
|
||
| װ<>˹<EFBFBD><CBB9><EFBFBD>' '
|
||
|
|
||
00840586 BA440F8400 mov edx, $00840F44
|
||
0084058B 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0084058D FF5138 call dword ptr [ecx+$38]
|
||
00840590 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00840592 E815DAC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' and A.status<>'0''
|
||
|
|
||
00840597 BAF00D8400 mov edx, $00840DF0
|
||
0084059C 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0084059E FF5138 call dword ptr [ecx+$38]
|
||
008405A1 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
008405A3 E804DAC9FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' group by A.CRTime,A.YFName,A.BZTyp
|
||
| e,A.Note'
|
||
|
|
||
008405A8 BAC00F8400 mov edx, $00840FC0
|
||
008405AD 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
008405AF FF5138 call dword ptr [ecx+$38]
|
||
008405B2 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
008405B4 E80F53C8FF call 004C58C8
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
008405B9 8B9364030000 mov edx, [ebx+$0364]
|
||
|
||
* Reference to control Label14 : N.A.
|
||
|
|
||
008405BF 8B8368030000 mov eax, [ebx+$0368]
|
||
|
||
|
|
||
008405C5 E8C668F7FF call 007B6E90
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
008405CA 8B9364030000 mov edx, [ebx+$0364]
|
||
|
||
* Reference to control Label14 : N.A.
|
||
|
|
||
008405D0 8B8368030000 mov eax, [ebx+$0368]
|
||
|
||
|
|
||
008405D6 E83D6AF7FF call 007B7018
|
||
008405DB 33C0 xor eax, eax
|
||
008405DD 5A pop edx
|
||
008405DE 59 pop ecx
|
||
008405DF 59 pop ecx
|
||
008405E0 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '^[<5B><>]<5D>'
|
||
|
|
||
008405E3 68FD058400 push $008405FD
|
||
008405E8 8D45C8 lea eax, [ebp-$38]
|
||
008405EB BA0E000000 mov edx, $0000000E
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
008405F0 E8534DBCFF call 00405348
|
||
008405F5 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
end. |