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

10198 lines
384 KiB
ObjectPascal
Raw Normal View History

1
2024-07-23 20:18:14 +08:00
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='<EFBFBD>տ<EFBFBD><EFBFBD>Ǽ<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='<EFBFBD><EFBFBD><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='<EFBFBD>ɹ<EFBFBD><EFBFBD>˻<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 ('<EFBFBD><EFBFBD><EFBFBD>ӹ<EFBFBD>','<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
| <EFBFBD>','<EFBFBD><EFBFBD>Ʒ') and D.CRType='Ӧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>
| ' and C.CRFlag='<EFBFBD><EFBFBD><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 ('<EFBFBD><EFBFBD><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='Ӧ<EFBFBD><EFBFBD><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>','<EFBFBD><EFBFBD>
| <EFBFBD><EFBFBD><EFBFBD>ӷ<EFBFBD>') and isnull(A.FYType,'')<>'
| <EFBFBD>ӹ<EFBFBD><EFBFBD><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,'')<>'<EFBFBD><EFBFBD><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,'')<>'<EFBFBD>ü<EFBFBD><EFBFBD>˹<EFBFBD>
| <EFBFBD><EFBFBD>' and isnull(A.YFName,'')<>'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
| ˹<EFBFBD><EFBFBD><EFBFBD>' and isnull(A.YFName,'')<>'<EFBFBD><EFBFBD>
| װ<EFBFBD>˹<EFBFBD><EFBFBD><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.
Reference in New Issue Copy Permalink