unit U_FKCR; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls type TfrmFKCR=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; Label6: TLabel; begdate: TDateTimePicker; Enddate: TDateTimePicker; cxGridPopupMenu2: TcxGridPopupMenu; DS_HZ: TDataSource; CDS_HZ: TClientDataSet; VHL: TcxGridDBColumn; VBZ: TcxGridDBColumn; VYB: TcxGridDBColumn; VBB: TcxGridDBColumn; v2Column6: TcxGridDBColumn; Label4: TLabel; conNo: TEdit; v2Column1: TcxGridDBColumn; v2Ssel: TcxGridDBColumn; v2ComTaiTou: TcxGridDBColumn; Label5: TLabel; ComTaiTou: TEdit; Label10: TLabel; Label12: TLabel; v2Chkstatus: TcxGridDBColumn; PopupMenu1: TPopupMenu; N1: TMenuItem; N2: TMenuItem; v2FKType: TcxGridDBColumn; v2chknote: TcxGridDBColumn; CheckBox1: TCheckBox; Label7: TLabel; FKType: TEdit; v2BankName: TcxGridDBColumn; v2BankNo: TcxGridDBColumn; Label8: TLabel; BankName: TEdit; ADOQuery1: TADOQuery; TPrint: TToolButton; Order_FK: TClientDataSet; CheckBox2: TCheckBox; TSsel: TToolButton; RMXLSExport1: TRMXLSExport; v2FXMoney: TcxGridDBColumn; v2SXMoney: TcxGridDBColumn; TTJ: TToolButton; TCXTJ: TToolButton; cxTabControl1: TcxTabControl; TSDADD: TToolButton; v2FKTaitou: TcxGridDBColumn; v2HuiLv: TcxGridDBColumn; v2KPType: TcxGridDBColumn; v2KPStatus: TcxGridDBColumn; v2OrderNO: TcxGridDBColumn; Label9: TLabel; OrderNO: TEdit; 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 conNoChange(Sender : TObject); procedure v2Column1PropertiesEditValueChanged(Sender : TObject); procedure v2DerateMoneyPropertiesEditValueChanged(Sender : TObject); procedure v2fstr1PropertiesEditValueChanged(Sender : TObject); procedure TchkClick(Sender : TObject); procedure TNochkClick(Sender : TObject); procedure cxTabControl1Change(Sender : TObject); procedure v2ComTaiTouPropertiesButtonClick(Sender : TObject); procedure v2SselPropertiesChange(Sender : TObject); procedure Tv2StylesGetContentStyle(Sender : TObject); procedure THXClick(Sender : TObject); procedure N1Click(Sender : TObject); procedure N2Click(Sender : TObject); procedure v2FKTypePropertiesButtonClick(Sender : TObject); procedure CheckBox1Click(Sender : TObject); procedure v2BankNamePropertiesButtonClick(Sender : TObject); procedure v2BankNoPropertiesButtonClick(Sender : TObject); procedure v2FKTaiTouPropertiesButtonClick(Sender : TObject); procedure TPrintClick(Sender : TObject); procedure v2QtyPropertiesEditValueChanged(Sender : TObject); procedure v2PricePropertiesEditValueChanged(Sender : TObject); procedure v2SQPerponPropertiesButtonClick(Sender : TObject); procedure TSselClick(Sender : TObject); procedure TTJClick(Sender : TObject); procedure TCXTJClick(Sender : TObject); procedure TSDADDClick(Sender : TObject); procedure v2KPStatusPropertiesButtonClick(Sender : TObject); procedure v2OrderNOPropertiesButtonClick(Sender : TObject); procedure _PROC_007FD3BD(Sender : TObject); procedure _PROC_007FDDA9(Sender : TObject); procedure _PROC_007FEA55(Sender : TObject); procedure _PROC_007FEEC5(Sender : TObject); procedure _PROC_007FF6A1(Sender : TObject); procedure _PROC_007FF9DD(Sender : TObject); procedure _PROC_008006E9(Sender : TObject); procedure _PROC_00800A06(Sender : TObject); procedure _PROC_00800A3C(Sender : TObject); procedure _PROC_00800A49(Sender : TObject); procedure _PROC_00800D8D(Sender : TObject); procedure _PROC_008013E1(Sender : TObject); procedure _PROC_008018A1(Sender : TObject); procedure _PROC_00801C8D(Sender : TObject); procedure _PROC_0080205D(Sender : TObject); procedure _PROC_0080228D(Sender : TObject); procedure _PROC_00802401(Sender : TObject); procedure _PROC_00802CFD(Sender : TObject); procedure _PROC_0080344D(Sender : TObject); procedure _PROC_00803A45(Sender : TObject); procedure _PROC_00803DB1(Sender : TObject); procedure _PROC_0080427D(Sender : TObject); procedure _PROC_00804FD1(Sender : TObject); procedure _PROC_008052D5(Sender : TObject); procedure _PROC_008055C1(Sender : TObject); procedure _PROC_00806151(Sender : TObject); procedure _PROC_00806491(Sender : TObject); procedure _PROC_008065B2(Sender : TObject); private { Private declarations } public { Public declarations } end ; var frmFKCR: TfrmFKCR; {This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer} implementation {$R *.DFM} procedure TfrmFKCR.FormDestroy(Sender : TObject); begin (* 007FD7A8 33C0 xor eax, eax * Reference to GlobalVar_00893CE8 | 007FD7AA A3E83C8900 mov dword ptr [$00893CE8], eax 007FD7AF C3 ret *) end; procedure TfrmFKCR.FormClose(Sender : TObject); begin (* 007FD7B0 C60102 mov byte ptr [ecx], $02 007FD7B3 C3 ret *) end; procedure TfrmFKCR.TBCloseClick(Sender : TObject); begin (* 007FD7B4 53 push ebx 007FD7B5 8BD8 mov ebx, eax * Possible String Reference to: '财务管理' | 007FD7B7 B9E0D77F00 mov ecx, $007FD7E0 * Reference to control TfrmFKCR.Tv2 : TcxGridDBTableView | 007FD7BC 8B933C030000 mov edx, [ebx+$033C] * Possible String Reference to: '付款登记' | 007FD7C2 B8F4D77F00 mov eax, $007FD7F4 | 007FD7C7 E8D4A3FBFF call 007B7BA0 007FD7CC 8BC3 mov eax, ebx * Reference to: Forms.TCustomForm.Close(TCustomForm); | 007FD7CE E8C587CAFF call 004A5F98 007FD7D3 5B pop ebx 007FD7D4 C3 ret *) end; procedure TfrmFKCR.TBDelClick(Sender : TObject); begin (* 007FD800 55 push ebp 007FD801 8BEC mov ebp, esp 007FD803 33C9 xor ecx, ecx 007FD805 51 push ecx 007FD806 51 push ecx 007FD807 51 push ecx 007FD808 51 push ecx 007FD809 51 push ecx 007FD80A 51 push ecx 007FD80B 51 push ecx 007FD80C 51 push ecx 007FD80D 53 push ebx 007FD80E 56 push esi 007FD80F 57 push edi 007FD810 8945FC mov [ebp-$04], eax 007FD813 33C0 xor eax, eax 007FD815 55 push ebp * Possible String Reference to: '殍p脬_^[嬪]' | 007FD816 6807DA7F00 push $007FDA07 ***** TRY | 007FD81B 64FF30 push dword ptr fs:[eax] 007FD81E 648920 mov fs:[eax], esp 007FD821 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 007FD824 8B8064030000 mov eax, [eax+$0364] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 007FD82A E891A6CCFF call 004C7EC0 007FD82F 84C0 test al, al 007FD831 0F85AD010000 jnz 007FD9E4 007FD837 A018DA7F00 mov al, byte ptr [$007FDA18] 007FD83C 50 push eax 007FD83D 8D45EC lea eax, [ebp-$14] 007FD840 B201 mov dl, $01 * Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean); | 007FD842 E81DB5C1FF call 00418D64 007FD847 8D4DEC lea ecx, [ebp-$14] 007FD84A 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 007FD84D 8B8064030000 mov eax, [eax+$0364] * Possible String Reference to: 'ssel' | 007FD853 BA24DA7F00 mov edx, $007FDA24 007FD858 8B18 mov ebx, [eax] * Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions) | 007FD85A FF9344020000 call dword ptr [ebx+$0244] 007FD860 84C0 test al, al 007FD862 751D jnz 007FD881 007FD864 6A00 push $00 * Possible String Reference to: '提示' | 007FD866 B92CDA7F00 mov ecx, $007FDA2C * Possible String Reference to: '没有选择数据!' | 007FD86B BA34DA7F00 mov edx, $007FDA34 *) end; procedure TfrmFKCR.FormShow(Sender : TObject); begin (* 007FDAB4 53 push ebx 007FDAB5 8BD8 mov ebx, eax 007FDAB7 33C0 xor eax, eax * Reference to field TfrmFKCR.OFFS_0420 | 007FDAB9 898320040000 mov [ebx+$0420], eax * Possible String Reference to: '财务管理' | 007FDABF B92CDB7F00 mov ecx, $007FDB2C * Reference to control TfrmFKCR.Tv2 : TcxGridDBTableView | 007FDAC4 8B933C030000 mov edx, [ebx+$033C] * Possible String Reference to: '付款登记' | 007FDACA B840DB7F00 mov eax, $007FDB40 | 007FDACF E8D09EFBFF call 007B79A4 * Reference to control TfrmFKCR.ADOQueryTemp : TADOQuery | 007FDAD4 8B8308030000 mov eax, [ebx+$0308] | 007FDADA E8A96EFBFF call 007B4988 007FDADF 83C4F8 add esp, -$08 007FDAE2 DD1C24 fstp qword ptr [esp] 007FDAE5 9B wait * Reference to control TfrmFKCR.Enddate : TDateTimePicker | 007FDAE6 8B8358030000 mov eax, [ebx+$0358] * Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime); | 007FDAEC E83B47C7FF call 0047222C * Reference to control TfrmFKCR.ADOQueryTemp : TADOQuery | 007FDAF1 8B8308030000 mov eax, [ebx+$0308] | 007FDAF7 E88C6EFBFF call 007B4988 007FDAFC D8254CDB7F00 fsub dword ptr [$007FDB4C] 007FDB02 83C4F8 add esp, -$08 007FDB05 DD1C24 fstp qword ptr [esp] 007FDB08 9B wait * Reference to control TfrmFKCR.begdate : TDateTimePicker | 007FDB09 8B8354030000 mov eax, [ebx+$0354] * Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime); | 007FDB0F E81847C7FF call 0047222C 007FDB14 8BC3 mov eax, ebx | 007FDB16 E849F7FFFF call 007FD264 007FDB1B 8BC3 mov eax, ebx | 007FDB1D E89AF8FFFF call 007FD3BC 007FDB22 5B pop ebx 007FDB23 C3 ret *) end; procedure TfrmFKCR.TBRafreshClick(Sender : TObject); begin (* 007FDB50 53 push ebx 007FDB51 8BD8 mov ebx, eax * Reference to control TfrmFKCR.ToolBar1 : TToolBar | 007FDB53 8B83F8020000 mov eax, [ebx+$02F8] 007FDB59 8B10 mov edx, [eax] * Reference to method TToolBar.SetFocus() | 007FDB5B FF92C4000000 call dword ptr [edx+$00C4] 007FDB61 8BC3 mov eax, ebx | 007FDB63 E854F8FFFF call 007FD3BC 007FDB68 5B pop ebx 007FDB69 C3 ret *) end; procedure TfrmFKCR.ToolButton2Click(Sender : TObject); begin (* 007FDB6C 55 push ebp 007FDB6D 8BEC mov ebp, esp 007FDB6F 6A00 push $00 007FDB71 53 push ebx 007FDB72 8BD8 mov ebx, eax 007FDB74 33C0 xor eax, eax 007FDB76 55 push ebp * Possible String Reference to: '轱n腽[Y]' | 007FDB77 6800DC7F00 push $007FDC00 ***** TRY | 007FDB7C 64FF30 push dword ptr fs:[eax] 007FDB7F 648920 mov fs:[eax], esp * Reference to control TfrmFKCR.ADOQueryMain : TADOQuery | 007FDB82 8B8320030000 mov eax, [ebx+$0320] * Reference to: DB.TDataSet.GetActive(TDataSet):Boolean; | 007FDB88 E8877ECCFF call 004C5A14 007FDB8D 84C0 test al, al 007FDB8F 7459 jz 007FDBEA 007FDB91 BA14DC7F00 mov edx, $007FDC14 * Reference to control TfrmFKCR.Label12 : TLabel | 007FDB96 8B839C030000 mov eax, [ebx+$039C] * Reference to: Controls.TControl.SetText(TControl;TCaption); | 007FDB9C E87FAAC8FF call 00488620 007FDBA1 8D45FC lea eax, [ebp-$04] 007FDBA4 50 push eax 007FDBA5 B902000000 mov ecx, $00000002 007FDBAA BA01000000 mov edx, $00000001 * Reference to control TfrmFKCR.Panel1 : TPanel | 007FDBAF 8B8310030000 mov eax, [ebx+$0310] | 007FDBB5 E8F684FBFF call 007B60B0 007FDBBA 8B55FC mov edx, [ebp-$04] * Reference to control TfrmFKCR.ADOQueryMain : TADOQuery | 007FDBBD 8B8320030000 mov eax, [ebx+$0320] | 007FDBC3 E80091FBFF call 007B6CC8 * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 007FDBC8 8B9364030000 mov edx, [ebx+$0364] * Reference to control TfrmFKCR.ADOQueryMain : TADOQuery | 007FDBCE 8B8320030000 mov eax, [ebx+$0320] | 007FDBD4 E8B792FBFF call 007B6E90 * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 007FDBD9 8B9364030000 mov edx, [ebx+$0364] * Reference to control TfrmFKCR.ADOQueryMain : TADOQuery | 007FDBDF 8B8320030000 mov eax, [ebx+$0320] | 007FDBE5 E82E94FBFF call 007B7018 007FDBEA 33C0 xor eax, eax 007FDBEC 5A pop edx 007FDBED 59 pop ecx 007FDBEE 59 pop ecx 007FDBEF 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '[Y]' | 007FDBF2 6807DC7F00 push $007FDC07 007FDBF7 8D45FC lea eax, [ebp-$04] * Reference to: System.@LStrClr(void;void); | 007FDBFA E82577C0FF call 00405324 007FDBFF C3 ret * Reference to: System.@HandleFinally; | 007FDC00 E9EF6EC0FF jmp 00404AF4 007FDC05 EBF0 jmp 007FDBF7 ****** END | 007FDC07 5B pop ebx 007FDC08 59 pop ecx 007FDC09 5D pop ebp 007FDC0A C3 ret *) end; procedure TfrmFKCR.FactoryNameChange(Sender : TObject); begin (* 007FDC18 56 push esi * Reference to control TfrmFKCR.ToolButton2 : TToolButton | 007FDC19 8B8014030000 mov eax, [eax+$0314] 007FDC1F 66BEEBFF mov si, $FFEB * Reference to: System.@CallDynaInst; | 007FDC23 E82C69C0FF call 00404554 007FDC28 5E pop esi 007FDC29 C3 ret *) end; procedure TfrmFKCR.Button2Click(Sender : TObject); begin (* 007FDC2C 55 push ebp 007FDC2D 8BEC mov ebp, esp 007FDC2F 33C9 xor ecx, ecx 007FDC31 51 push ecx 007FDC32 51 push ecx 007FDC33 51 push ecx 007FDC34 51 push ecx 007FDC35 51 push ecx 007FDC36 53 push ebx 007FDC37 56 push esi 007FDC38 8BD8 mov ebx, eax 007FDC3A 33C0 xor eax, eax 007FDC3C 55 push ebp * Possible String Reference to: '槎m腚^[嬪]' | 007FDC3D 6839DD7F00 push $007FDD39 ***** TRY | 007FDC42 64FF30 push dword ptr fs:[eax] 007FDC45 648920 mov fs:[eax], esp * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 007FDC48 8B8364030000 mov eax, [ebx+$0364] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 007FDC4E E86DA2CCFF call 004C7EC0 007FDC53 84C0 test al, al 007FDC55 0F85C3000000 jnz 007FDD1E 007FDC5B 6A24 push $24 * Possible String Reference to: '提示' | 007FDC5D B948DD7F00 mov ecx, $007FDD48 * Possible String Reference to: '确定要删除数据吗？' | 007FDC62 BA50DD7F00 mov edx, $007FDD50 *) end; procedure TfrmFKCR.cxGridDBColumn8PropertiesEditValueChanged(Sender : TObject); begin (* 007FECA0 55 push ebp 007FECA1 8BEC mov ebp, esp 007FECA3 B908000000 mov ecx, $00000008 007FECA8 6A00 push $00 007FECAA 6A00 push $00 007FECAC 49 dec ecx 007FECAD 75F9 jnz 007FECA8 007FECAF 51 push ecx 007FECB0 53 push ebx 007FECB1 56 push esi 007FECB2 8BDA mov ebx, edx 007FECB4 8BF0 mov esi, eax 007FECB6 33C0 xor eax, eax 007FECB8 55 push ebp * Possible String Reference to: '锳\胫^[嬪]' | 007FECB9 68AEEE7F00 push $007FEEAE ***** TRY | 007FECBE 64FF30 push dword ptr fs:[eax] 007FECC1 648920 mov fs:[eax], esp 007FECC4 8D55FC lea edx, [ebp-$04] 007FECC7 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; | 007FECC9 E8EE09D9FF call 0058F6BC * Reference to control TfrmFKCR.Tv2 : TcxGridDBTableView | 007FECCE 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; | 007FECD4 E873D6E5FF 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; | 007FECD9 E8862EE5FF call 00651B64 * Reference to field TcxGridDBTableView.OFFS_0050 | 007FECDE 8B4050 mov eax, [eax+$50] 007FECE1 8D55F4 lea edx, [ebp-$0C] 007FECE4 8B08 mov ecx, [eax] 007FECE6 FF5110 call dword ptr [ecx+$10] 007FECE9 8B45F4 mov eax, [ebp-$0C] 007FECEC 8D55F8 lea edx, [ebp-$08] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FECEF E8F8BBC0FF call 0040A8EC * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 007FECF4 8B9E64030000 mov ebx, [esi+$0364] 007FECFA 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Edit(TDataSet); | 007FECFC E83F97CCFF call 004C8440 007FED01 8D55E0 lea edx, [ebp-$20] 007FED04 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FED07 E8E0BBC0FF call 0040A8EC 007FED0C 8B55E0 mov edx, [ebp-$20] 007FED0F 8D45E4 lea eax, [ebp-$1C] * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 007FED12 E8B1A0C1FF call 00418DC8 007FED17 8D45E4 lea eax, [ebp-$1C] 007FED1A 50 push eax 007FED1B 8B55F8 mov edx, [ebp-$08] 007FED1E 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007FED20 E88F7ECCFF call 004C6BB4 007FED25 5A pop edx 007FED26 8B08 mov ecx, [eax] * Reference to method TClientDataSet.DestroyFields() | 007FED28 FF91B4000000 call dword ptr [ecx+$00B4] 007FED2E 8BC3 mov eax, ebx 007FED30 8B10 mov edx, [eax] * Reference to method TClientDataSet.Post() | 007FED32 FF924C020000 call dword ptr [edx+$024C] * Reference to control TfrmFKCR.ADOQueryCmd : TADOQuery | 007FED38 8B9E0C030000 mov ebx, [esi+$030C] 007FED3E 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 007FED40 E88F6BCCFF call 004C58D4 007FED45 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007FED47 E860F2CDFF call 004DDFAC 007FED4C 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 007FED4E FF5244 call dword ptr [edx+$44] 007FED51 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007FED53 E854F2CDFF call 004DDFAC * Possible String Reference to: 'UPdate YCL_SG_HZ ' | 007FED58 BAC4EE7F00 mov edx, $007FEEC4 007FED5D 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007FED5F FF5138 call dword ptr [ecx+$38] 007FED62 8D55DC lea edx, [ebp-$24] 007FED65 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FED68 E87FBBC0FF call 0040A8EC 007FED6D 837DDC00 cmp dword ptr [ebp-$24], +$00 007FED71 7440 jz 007FEDB3 * Possible String Reference to: ' Set ' | 007FED73 68E0EE7F00 push $007FEEE0 007FED78 FF75F8 push dword ptr [ebp-$08] * Possible String Reference to: '='' | 007FED7B 68F0EE7F00 push $007FEEF0 007FED80 8D55D4 lea edx, [ebp-$2C] 007FED83 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FED86 E861BBC0FF call 0040A8EC 007FED8B FF75D4 push dword ptr [ebp-$2C] 007FED8E 68FCEE7F00 push $007FEEFC 007FED93 8D45D8 lea eax, [ebp-$28] 007FED96 BA05000000 mov edx, $00000005 * Reference to: System.@LStrCatN; | 007FED9B E81469C0FF call 004056B4 007FEDA0 8B45D8 mov eax, [ebp-$28] 007FEDA3 50 push eax 007FEDA4 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007FEDA6 E801F2CDFF call 004DDFAC 007FEDAB 5A pop edx 007FEDAC 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007FEDAE FF5138 call dword ptr [ecx+$38] 007FEDB1 EB2B jmp 007FEDDE 007FEDB3 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007FEDB5 E8F2F1CDFF call 004DDFAC 007FEDBA 50 push eax * Possible String Reference to: ' Set ' | 007FEDBB 68E0EE7F00 push $007FEEE0 007FEDC0 FF75F8 push dword ptr [ebp-$08] * Possible String Reference to: '=NULL' | 007FEDC3 6808EF7F00 push $007FEF08 007FEDC8 8D45D0 lea eax, [ebp-$30] 007FEDCB BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 007FEDD0 E8DF68C0FF call 004056B4 007FEDD5 8B55D0 mov edx, [ebp-$30] 007FEDD8 58 pop eax 007FEDD9 8B08 mov ecx, [eax] 007FEDDB FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ',Editer='' | 007FEDDE 6818EF7F00 push $007FEF18 007FEDE3 8D55C8 lea edx, [ebp-$38] *) end; procedure TfrmFKCR.cxGridDBColumn5PropertiesEditValueChanged(Sender : TObject); begin (* 007FEF6C 55 push ebp 007FEF6D 8BEC mov ebp, esp 007FEF6F B91C000000 mov ecx, $0000001C 007FEF74 6A00 push $00 007FEF76 6A00 push $00 007FEF78 49 dec ecx 007FEF79 75F9 jnz 007FEF74 007FEF7B 51 push ecx 007FEF7C 53 push ebx 007FEF7D 56 push esi 007FEF7E 8BF2 mov esi, edx 007FEF80 8BD8 mov ebx, eax 007FEF82 33C0 xor eax, eax 007FEF84 55 push ebp 007FEF85 68CFF57F00 push $007FF5CF ***** TRY | 007FEF8A 64FF30 push dword ptr fs:[eax] 007FEF8D 648920 mov fs:[eax], esp 007FEF90 8D55FC lea edx, [ebp-$04] 007FEF93 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; | 007FEF95 E82207D9FF call 0058F6BC 007FEF9A 8D55DC lea edx, [ebp-$24] 007FEF9D 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FEFA0 E847B9C0FF call 0040A8EC 007FEFA5 837DDC00 cmp dword ptr [ebp-$24], +$00 007FEFA9 750D jnz 007FEFB8 007FEFAB 8D45FC lea eax, [ebp-$04] 007FEFAE BAE4F57F00 mov edx, $007FF5E4 * Reference to: System.@LStrLAsg(void;void;void;void); | 007FEFB3 E80464C0FF call 004053BC * Reference to control TfrmFKCR.Tv2 : TcxGridDBTableView | 007FEFB8 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; | 007FEFBE E889D3E5FF 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; | 007FEFC3 E89C2BE5FF call 00651B64 * Reference to field TcxGridDBTableView.OFFS_0050 | 007FEFC8 8B4050 mov eax, [eax+$50] 007FEFCB 8D55D8 lea edx, [ebp-$28] 007FEFCE 8B08 mov ecx, [eax] 007FEFD0 FF5110 call dword ptr [ecx+$10] 007FEFD3 8B45D8 mov eax, [ebp-$28] 007FEFD6 8D55E0 lea edx, [ebp-$20] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FEFD9 E80EB9C0FF call 0040A8EC * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 007FEFDE 8BB364030000 mov esi, [ebx+$0364] 007FEFE4 8BC6 mov eax, esi * Reference to: DB.TDataSet.Edit(TDataSet); | 007FEFE6 E85594CCFF call 004C8440 007FEFEB 8D55C4 lea edx, [ebp-$3C] 007FEFEE 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FEFF1 E8F6B8C0FF call 0040A8EC 007FEFF6 8B55C4 mov edx, [ebp-$3C] 007FEFF9 8D45C8 lea eax, [ebp-$38] * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 007FEFFC E8C79DC1FF call 00418DC8 007FF001 8D45C8 lea eax, [ebp-$38] 007FF004 50 push eax 007FF005 8B55E0 mov edx, [ebp-$20] 007FF008 8BC6 mov eax, esi * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007FF00A E8A57BCCFF call 004C6BB4 007FF00F 5A pop edx 007FF010 8B08 mov ecx, [eax] * Reference to method TClientDataSet.DestroyFields() | 007FF012 FF91B4000000 call dword ptr [ecx+$00B4] 007FF018 8BC6 mov eax, esi 007FF01A 8B10 mov edx, [eax] * Reference to method TClientDataSet.Post() | 007FF01C FF924C020000 call dword ptr [edx+$024C] * Reference to control TfrmFKCR.ADOQueryTemp : TADOQuery | 007FF022 8BB308030000 mov esi, [ebx+$0308] 007FF028 8BC6 mov eax, esi * Reference to: DB.TDataSet.Close(TDataSet); | 007FF02A E8A568CCFF call 004C58D4 007FF02F 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007FF031 E876EFCDFF call 004DDFAC 007FF036 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 007FF038 FF5244 call dword ptr [edx+$44] * Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr | om YF_Money_CR where YFID='' | 007FF03B 68F0F57F00 push $007FF5F0 * Possible String Reference to: 'YFID' | 007FF040 BA38F67F00 mov edx, $007FF638 * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 007FF045 8B8364030000 mov eax, [ebx+$0364] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007FF04B E8647BCCFF call 004C6BB4 007FF050 8D55BC lea edx, [ebp-$44] 007FF053 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 007FF055 FF5160 call dword ptr [ecx+$60] 007FF058 FF75BC push dword ptr [ebp-$44] 007FF05B 6848F67F00 push $007FF648 007FF060 8D45C0 lea eax, [ebp-$40] 007FF063 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 007FF068 E84766C0FF call 004056B4 007FF06D 8B45C0 mov eax, [ebp-$40] 007FF070 50 push eax 007FF071 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007FF073 E834EFCDFF call 004DDFAC 007FF078 5A pop edx 007FF079 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007FF07B FF5138 call dword ptr [ecx+$38] 007FF07E 8BC6 mov eax, esi * Reference to: DB.TDataSet.Open(TDataSet); | 007FF080 E84368CCFF call 004C58C8 * Possible String Reference to: 'BBMoney' | 007FF085 BA54F67F00 mov edx, $007FF654 * Reference to control TfrmFKCR.ADOQueryTemp : TADOQuery | 007FF08A 8B8308030000 mov eax, [ebx+$0308] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007FF090 E81F7BCCFF call 004C6BB4 007FF095 8D55E4 lea edx, [ebp-$1C] 007FF098 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_60 | 007FF09A FF5160 call dword ptr [ecx+$60] * Possible String Reference to: 'Qty' | 007FF09D BA64F67F00 mov edx, $007FF664 * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 007FF0A2 8B8364030000 mov eax, [ebx+$0364] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007FF0A8 E8077BCCFF call 004C6BB4 007FF0AD 8D55B8 lea edx, [ebp-$48] 007FF0B0 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 007FF0B2 FF5160 call dword ptr [ecx+$60] 007FF0B5 8B45B8 mov eax, [ebp-$48] 007FF0B8 8D55F8 lea edx, [ebp-$08] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF0BB E82CB8C0FF call 0040A8EC 007FF0C0 8D55B4 lea edx, [ebp-$4C] 007FF0C3 8B45F8 mov eax, [ebp-$08] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF0C6 E821B8C0FF call 0040A8EC 007FF0CB 837DB400 cmp dword ptr [ebp-$4C], +$00 007FF0CF 750D jnz 007FF0DE 007FF0D1 8D45F8 lea eax, [ebp-$08] 007FF0D4 BAE4F57F00 mov edx, $007FF5E4 * Reference to: System.@LStrLAsg(void;void;void;void); | 007FF0D9 E8DE62C0FF call 004053BC * Possible String Reference to: 'Price' | 007FF0DE BA70F67F00 mov edx, $007FF670 * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 007FF0E3 8B8364030000 mov eax, [ebx+$0364] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007FF0E9 E8C67ACCFF call 004C6BB4 007FF0EE 8D55B0 lea edx, [ebp-$50] 007FF0F1 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 007FF0F3 FF5160 call dword ptr [ecx+$60] 007FF0F6 8B45B0 mov eax, [ebp-$50] 007FF0F9 8D55F4 lea edx, [ebp-$0C] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF0FC E8EBB7C0FF call 0040A8EC 007FF101 8D55AC lea edx, [ebp-$54] 007FF104 8B45F4 mov eax, [ebp-$0C] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF107 E8E0B7C0FF call 0040A8EC 007FF10C 837DAC00 cmp dword ptr [ebp-$54], +$00 007FF110 750D jnz 007FF11F 007FF112 8D45F4 lea eax, [ebp-$0C] 007FF115 BAE4F57F00 mov edx, $007FF5E4 * Reference to: System.@LStrLAsg(void;void;void;void); | 007FF11A E89D62C0FF call 004053BC * Possible String Reference to: 'Qty' | 007FF11F BA64F67F00 mov edx, $007FF664 * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 007FF124 8B8364030000 mov eax, [ebx+$0364] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007FF12A E8857ACCFF call 004C6BB4 007FF12F 8D55A8 lea edx, [ebp-$58] 007FF132 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 007FF134 FF5160 call dword ptr [ecx+$60] 007FF137 8B45A8 mov eax, [ebp-$58] 007FF13A 8D55F8 lea edx, [ebp-$08] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF13D E8AAB7C0FF call 0040A8EC 007FF142 8D55A4 lea edx, [ebp-$5C] 007FF145 8B45F8 mov eax, [ebp-$08] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF148 E89FB7C0FF call 0040A8EC 007FF14D 837DA400 cmp dword ptr [ebp-$5C], +$00 007FF151 750D jnz 007FF160 007FF153 8D45F8 lea eax, [ebp-$08] 007FF156 BAE4F57F00 mov edx, $007FF5E4 * Reference to: System.@LStrLAsg(void;void;void;void); | 007FF15B E85C62C0FF call 004053BC * Possible String Reference to: 'Money' | 007FF160 BA80F67F00 mov edx, $007FF680 * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 007FF165 8B8364030000 mov eax, [ebx+$0364] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007FF16B E8447ACCFF call 004C6BB4 007FF170 8D55A0 lea edx, [ebp-$60] 007FF173 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 007FF175 FF5160 call dword ptr [ecx+$60] 007FF178 8B45A0 mov eax, [ebp-$60] 007FF17B 8D55F0 lea edx, [ebp-$10] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF17E E869B7C0FF call 0040A8EC 007FF183 8D559C lea edx, [ebp-$64] 007FF186 8B45F0 mov eax, [ebp-$10] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF189 E85EB7C0FF call 0040A8EC 007FF18E 837D9C00 cmp dword ptr [ebp-$64], +$00 007FF192 750D jnz 007FF1A1 007FF194 8D45F0 lea eax, [ebp-$10] 007FF197 BAE4F57F00 mov edx, $007FF5E4 * Reference to: System.@LStrLAsg(void;void;void;void); | 007FF19C E81B62C0FF call 004053BC * Possible String Reference to: 'HuiLv' | 007FF1A1 BA90F67F00 mov edx, $007FF690 * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 007FF1A6 8B8364030000 mov eax, [ebx+$0364] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007FF1AC E8037ACCFF call 004C6BB4 007FF1B1 8D5598 lea edx, [ebp-$68] 007FF1B4 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 007FF1B6 FF5160 call dword ptr [ecx+$60] 007FF1B9 8B4598 mov eax, [ebp-$68] 007FF1BC 8D55EC lea edx, [ebp-$14] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF1BF E828B7C0FF call 0040A8EC 007FF1C4 8D5594 lea edx, [ebp-$6C] 007FF1C7 8B45EC mov eax, [ebp-$14] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF1CA E81DB7C0FF call 0040A8EC 007FF1CF 837D9400 cmp dword ptr [ebp-$6C], +$00 007FF1D3 750D jnz 007FF1E2 007FF1D5 8D45EC lea eax, [ebp-$14] 007FF1D8 BAE4F57F00 mov edx, $007FF5E4 * Reference to: System.@LStrLAsg(void;void;void;void); | 007FF1DD E8DA61C0FF call 004053BC 007FF1E2 8D5590 lea edx, [ebp-$70] 007FF1E5 8B45E0 mov eax, [ebp-$20] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF1E8 E8FFB6C0FF call 0040A8EC 007FF1ED 8B4590 mov eax, [ebp-$70] * Possible String Reference to: 'Money' | 007FF1F0 BA80F67F00 mov edx, $007FF680 * Reference to: System.@LStrCmp; | 007FF1F5 E84665C0FF call 00405740 007FF1FA 0F84AD000000 jz 007FF2AD 007FF200 8D558C lea edx, [ebp-$74] 007FF203 8B45E0 mov eax, [ebp-$20] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF206 E8E1B6C0FF call 0040A8EC 007FF20B 8B458C mov eax, [ebp-$74] * Possible String Reference to: 'HuiLv' | 007FF20E BA90F67F00 mov edx, $007FF690 * Reference to: System.@LStrCmp; | 007FF213 E82865C0FF call 00405740 007FF218 7469 jz 007FF283 007FF21A 8B45F8 mov eax, [ebp-$08] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 007FF21D E80AE5C0FF call 0040D72C 007FF222 DB7D80 fstp tbyte ptr [ebp-$80] 007FF225 9B wait 007FF226 8B45F4 mov eax, [ebp-$0C] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 007FF229 E8FEE4C0FF call 0040D72C 007FF22E DB6D80 fld tbyte ptr [ebp-$80] 007FF231 DEC9 fmulp st(1), st(0) 007FF233 DBBD74FFFFFF fstp tbyte ptr [ebp+$FFFFFF74] 007FF239 9B wait 007FF23A 8B45EC mov eax, [ebp-$14] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 007FF23D E8EAE4C0FF call 0040D72C 007FF242 DBAD74FFFFFF fld tbyte ptr [ebp+$FFFFFF74] 007FF248 DEC9 fmulp st(1), st(0) 007FF24A 83C4F4 add esp, -$0C 007FF24D DB3C24 fstp tbyte ptr [esp] 007FF250 9B wait 007FF251 8D45E8 lea eax, [ebp-$18] | 007FF254 E853E3C0FF call 0040D5AC 007FF259 8B45F8 mov eax, [ebp-$08] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 007FF25C E8CBE4C0FF call 0040D72C 007FF261 DB7D80 fstp tbyte ptr [ebp-$80] 007FF264 9B wait 007FF265 8B45F4 mov eax, [ebp-$0C] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 007FF268 E8BFE4C0FF call 0040D72C 007FF26D DB6D80 fld tbyte ptr [ebp-$80] 007FF270 DEC9 fmulp st(1), st(0) 007FF272 83C4F4 add esp, -$0C 007FF275 DB3C24 fstp tbyte ptr [esp] 007FF278 9B wait 007FF279 8D45F0 lea eax, [ebp-$10] | 007FF27C E82BE3C0FF call 0040D5AC 007FF281 EB52 jmp 007FF2D5 007FF283 8B45F0 mov eax, [ebp-$10] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 007FF286 E8A1E4C0FF call 0040D72C 007FF28B DB7D80 fstp tbyte ptr [ebp-$80] 007FF28E 9B wait 007FF28F 8B45EC mov eax, [ebp-$14] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 007FF292 E895E4C0FF call 0040D72C 007FF297 DB6D80 fld tbyte ptr [ebp-$80] 007FF29A DEC9 fmulp st(1), st(0) 007FF29C 83C4F4 add esp, -$0C 007FF29F DB3C24 fstp tbyte ptr [esp] 007FF2A2 9B wait 007FF2A3 8D45E8 lea eax, [ebp-$18] | 007FF2A6 E801E3C0FF call 0040D5AC 007FF2AB EB28 jmp 007FF2D5 007FF2AD 8B45F0 mov eax, [ebp-$10] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 007FF2B0 E877E4C0FF call 0040D72C 007FF2B5 DB7D80 fstp tbyte ptr [ebp-$80] 007FF2B8 9B wait 007FF2B9 8B45EC mov eax, [ebp-$14] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 007FF2BC E86BE4C0FF call 0040D72C 007FF2C1 DB6D80 fld tbyte ptr [ebp-$80] 007FF2C4 DEC9 fmulp st(1), st(0) 007FF2C6 83C4F4 add esp, -$0C 007FF2C9 DB3C24 fstp tbyte ptr [esp] 007FF2CC 9B wait 007FF2CD 8D45E8 lea eax, [ebp-$18] | 007FF2D0 E8D7E2C0FF call 0040D5AC * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 007FF2D5 8BB364030000 mov esi, [ebx+$0364] 007FF2DB 8BC6 mov eax, esi * Reference to: DB.TDataSet.Edit(TDataSet); | 007FF2DD E85E91CCFF call 004C8440 * Possible String Reference to: 'Money' | 007FF2E2 BA80F67F00 mov edx, $007FF680 007FF2E7 8BC6 mov eax, esi * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007FF2E9 E8C678CCFF call 004C6BB4 007FF2EE 50 push eax 007FF2EF 8B45F0 mov eax, [ebp-$10] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 007FF2F2 E835E4C0FF call 0040D72C 007FF2F7 8D8564FFFFFF lea eax, [ebp+$FFFFFF64] * Reference to: Variants.@VarFromReal; | 007FF2FD E88A9AC1FF call 00418D8C 007FF302 8D9564FFFFFF lea edx, [ebp+$FFFFFF64] 007FF308 58 pop eax 007FF309 8B08 mov ecx, [eax] 007FF30B FF91B4000000 call dword ptr [ecx+$00B4] * Possible String Reference to: 'BBMoney' | 007FF311 BA54F67F00 mov edx, $007FF654 007FF316 8BC6 mov eax, esi * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007FF318 E89778CCFF call 004C6BB4 007FF31D 50 push eax 007FF31E 8B45E8 mov eax, [ebp-$18] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 007FF321 E806E4C0FF call 0040D72C 007FF326 8D8554FFFFFF lea eax, [ebp+$FFFFFF54] * Reference to: Variants.@VarFromReal; | 007FF32C E85B9AC1FF call 00418D8C 007FF331 8D9554FFFFFF lea edx, [ebp+$FFFFFF54] 007FF337 58 pop eax 007FF338 8B08 mov ecx, [eax] 007FF33A FF91B4000000 call dword ptr [ecx+$00B4] 007FF340 8BC6 mov eax, esi 007FF342 8B10 mov edx, [eax] * Reference to method TClientDataSet.Post() | 007FF344 FF924C020000 call dword ptr [edx+$024C] * Reference to control TfrmFKCR.ADOQueryCmd : TADOQuery | 007FF34A 8BB30C030000 mov esi, [ebx+$030C] 007FF350 8BC6 mov eax, esi * Reference to: DB.TDataSet.Close(TDataSet); | 007FF352 E87D65CCFF call 004C58D4 007FF357 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007FF359 E84EECCDFF call 004DDFAC 007FF35E 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 007FF360 FF5244 call dword ptr [edx+$44] 007FF363 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007FF365 E842ECCDFF call 004DDFAC * Possible String Reference to: 'UPdate YF_Money_CR ' | 007FF36A BAA0F67F00 mov edx, $007FF6A0 007FF36F 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007FF371 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ' Set ' | 007FF374 68BCF67F00 push $007FF6BC 007FF379 FF75E0 push dword ptr [ebp-$20] 007FF37C 68CCF67F00 push $007FF6CC 007FF381 8D954CFFFFFF lea edx, [ebp+$FFFFFF4C] 007FF387 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF38A E85DB5C0FF call 0040A8EC 007FF38F FFB54CFFFFFF push dword ptr [ebp+$FFFFFF4C] 007FF395 8D8550FFFFFF lea eax, [ebp+$FFFFFF50] 007FF39B BA04000000 mov edx, $00000004 * Reference to: System.@LStrCatN; | 007FF3A0 E80F63C0FF call 004056B4 007FF3A5 8B8550FFFFFF mov eax, [ebp+$FFFFFF50] 007FF3AB 50 push eax 007FF3AC 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007FF3AE E8F9EBCDFF call 004DDFAC 007FF3B3 5A pop edx 007FF3B4 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007FF3B6 FF5138 call dword ptr [ecx+$38] 007FF3B9 8D9548FFFFFF lea edx, [ebp+$FFFFFF48] 007FF3BF 8B45E0 mov eax, [ebp-$20] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF3C2 E825B5C0FF call 0040A8EC 007FF3C7 8B8548FFFFFF mov eax, [ebp+$FFFFFF48] * Possible String Reference to: 'Money' | 007FF3CD BA80F67F00 mov edx, $007FF680 * Reference to: System.@LStrCmp; | 007FF3D2 E86963C0FF call 00405740 007FF3D7 7427 jz 007FF400 007FF3D9 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007FF3DB E8CCEBCDFF call 004DDFAC 007FF3E0 50 push eax 007FF3E1 8D8544FFFFFF lea eax, [ebp+$FFFFFF44] 007FF3E7 8B4DF0 mov ecx, [ebp-$10] * Possible String Reference to: ',Money=' | 007FF3EA BAD8F67F00 mov edx, $007FF6D8 * Reference to: System.@LStrCat3; | 007FF3EF E84C62C0FF call 00405640 007FF3F4 8B9544FFFFFF mov edx, [ebp+$FFFFFF44] 007FF3FA 58 pop eax 007FF3FB 8B08 mov ecx, [eax] 007FF3FD FF5138 call dword ptr [ecx+$38] 007FF400 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007FF402 E8A5EBCDFF call 004DDFAC 007FF407 50 push eax 007FF408 8D8540FFFFFF lea eax, [ebp+$FFFFFF40] 007FF40E 8B4DE8 mov ecx, [ebp-$18] * Possible String Reference to: ',BBMoney=' | 007FF411 BAE8F67F00 mov edx, $007FF6E8 * Reference to: System.@LStrCat3; | 007FF416 E82562C0FF call 00405640 007FF41B 8B9540FFFFFF mov edx, [ebp+$FFFFFF40] 007FF421 58 pop eax 007FF422 8B08 mov ecx, [eax] 007FF424 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ',Editer='' | 007FF427 68FCF67F00 push $007FF6FC 007FF42C 8D9538FFFFFF lea edx, [ebp+$FFFFFF38] *) end; procedure TfrmFKCR.cxGridDBColumn1PropertiesEditValueChanged(Sender : TObject); begin (* 007FF7B8 55 push ebp 007FF7B9 8BEC mov ebp, esp 007FF7BB B908000000 mov ecx, $00000008 007FF7C0 6A00 push $00 007FF7C2 6A00 push $00 007FF7C4 49 dec ecx 007FF7C5 75F9 jnz 007FF7C0 007FF7C7 51 push ecx 007FF7C8 53 push ebx 007FF7C9 56 push esi 007FF7CA 8BDA mov ebx, edx 007FF7CC 8BF0 mov esi, eax 007FF7CE 33C0 xor eax, eax 007FF7D0 55 push ebp * Possible String Reference to: ')Q胫^[嬪]' | 007FF7D1 68C6F97F00 push $007FF9C6 ***** TRY | 007FF7D6 64FF30 push dword ptr fs:[eax] 007FF7D9 648920 mov fs:[eax], esp 007FF7DC 8D55FC lea edx, [ebp-$04] 007FF7DF 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; | 007FF7E1 E8D6FED8FF call 0058F6BC * Reference to control TfrmFKCR.Tv2 : TcxGridDBTableView | 007FF7E6 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; | 007FF7EC E85BCBE5FF 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; | 007FF7F1 E86E23E5FF call 00651B64 * Reference to field TcxGridDBTableView.OFFS_0050 | 007FF7F6 8B4050 mov eax, [eax+$50] 007FF7F9 8D55F4 lea edx, [ebp-$0C] 007FF7FC 8B08 mov ecx, [eax] 007FF7FE FF5110 call dword ptr [ecx+$10] 007FF801 8B45F4 mov eax, [ebp-$0C] 007FF804 8D55F8 lea edx, [ebp-$08] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF807 E8E0B0C0FF call 0040A8EC * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 007FF80C 8B9E64030000 mov ebx, [esi+$0364] 007FF812 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Edit(TDataSet); | 007FF814 E8278CCCFF call 004C8440 007FF819 8D55E0 lea edx, [ebp-$20] 007FF81C 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF81F E8C8B0C0FF call 0040A8EC 007FF824 8B55E0 mov edx, [ebp-$20] 007FF827 8D45E4 lea eax, [ebp-$1C] * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 007FF82A E89995C1FF call 00418DC8 007FF82F 8D45E4 lea eax, [ebp-$1C] 007FF832 50 push eax 007FF833 8B55F8 mov edx, [ebp-$08] 007FF836 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007FF838 E87773CCFF call 004C6BB4 007FF83D 5A pop edx 007FF83E 8B08 mov ecx, [eax] * Reference to method TClientDataSet.DestroyFields() | 007FF840 FF91B4000000 call dword ptr [ecx+$00B4] 007FF846 8BC3 mov eax, ebx 007FF848 8B10 mov edx, [eax] * Reference to method TClientDataSet.Post() | 007FF84A FF924C020000 call dword ptr [edx+$024C] * Reference to control TfrmFKCR.ADOQueryCmd : TADOQuery | 007FF850 8B9E0C030000 mov ebx, [esi+$030C] 007FF856 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 007FF858 E87760CCFF call 004C58D4 007FF85D 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007FF85F E848E7CDFF call 004DDFAC 007FF864 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 007FF866 FF5244 call dword ptr [edx+$44] 007FF869 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007FF86B E83CE7CDFF call 004DDFAC * Possible String Reference to: 'UPdate YF_Money_CR ' | 007FF870 BADCF97F00 mov edx, $007FF9DC 007FF875 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007FF877 FF5138 call dword ptr [ecx+$38] 007FF87A 8D55DC lea edx, [ebp-$24] 007FF87D 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF880 E867B0C0FF call 0040A8EC 007FF885 837DDC00 cmp dword ptr [ebp-$24], +$00 007FF889 7440 jz 007FF8CB * Possible String Reference to: ' Set ' | 007FF88B 68F8F97F00 push $007FF9F8 007FF890 FF75F8 push dword ptr [ebp-$08] * Possible String Reference to: '='' | 007FF893 6808FA7F00 push $007FFA08 007FF898 8D55D4 lea edx, [ebp-$2C] 007FF89B 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF89E E849B0C0FF call 0040A8EC 007FF8A3 FF75D4 push dword ptr [ebp-$2C] 007FF8A6 6814FA7F00 push $007FFA14 007FF8AB 8D45D8 lea eax, [ebp-$28] 007FF8AE BA05000000 mov edx, $00000005 * Reference to: System.@LStrCatN; | 007FF8B3 E8FC5DC0FF call 004056B4 007FF8B8 8B45D8 mov eax, [ebp-$28] 007FF8BB 50 push eax 007FF8BC 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007FF8BE E8E9E6CDFF call 004DDFAC 007FF8C3 5A pop edx 007FF8C4 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007FF8C6 FF5138 call dword ptr [ecx+$38] 007FF8C9 EB2B jmp 007FF8F6 007FF8CB 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007FF8CD E8DAE6CDFF call 004DDFAC 007FF8D2 50 push eax * Possible String Reference to: ' Set ' | 007FF8D3 68F8F97F00 push $007FF9F8 007FF8D8 FF75F8 push dword ptr [ebp-$08] * Possible String Reference to: '=NULL' | 007FF8DB 6820FA7F00 push $007FFA20 007FF8E0 8D45D0 lea eax, [ebp-$30] 007FF8E3 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 007FF8E8 E8C75DC0FF call 004056B4 007FF8ED 8B55D0 mov edx, [ebp-$30] 007FF8F0 58 pop eax 007FF8F1 8B08 mov ecx, [eax] 007FF8F3 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ',Editer='' | 007FF8F6 6830FA7F00 push $007FFA30 007FF8FB 8D55C8 lea edx, [ebp-$38] *) end; procedure TfrmFKCR.ToolButton3Click(Sender : TObject); begin (* 007FFA84 55 push ebp 007FFA85 8BEC mov ebp, esp 007FFA87 B927000000 mov ecx, $00000027 007FFA8C 6A00 push $00 007FFA8E 6A00 push $00 007FFA90 49 dec ecx 007FFA91 75F9 jnz 007FFA8C 007FFA93 53 push ebx 007FFA94 56 push esi 007FFA95 8945FC mov [ebp-$04], eax 007FFA98 33C0 xor eax, eax 007FFA9A 55 push ebp * Possible String Reference to: '閩I殇^[嬪]' | 007FFA9B 6872018000 push $00800172 ***** TRY | 007FFAA0 64FF30 push dword ptr fs:[eax] 007FFAA3 648920 mov fs:[eax], esp 007FFAA6 33C0 xor eax, eax 007FFAA8 55 push ebp 007FFAA9 684C008000 push $0080004C ***** TRY | 007FFAAE 64FF30 push dword ptr fs:[eax] 007FFAB1 648920 mov fs:[eax], esp *) end; procedure TfrmFKCR.cxGridDBColumn3PropertiesButtonClick(Sender : TObject); begin (* 008002BC 55 push ebp 008002BD 8BEC mov ebp, esp 008002BF 51 push ecx 008002C0 B90C000000 mov ecx, $0000000C 008002C5 6A00 push $00 008002C7 6A00 push $00 008002C9 49 dec ecx 008002CA 75F9 jnz 008002C5 008002CC 874DFC xchg [ebp-$04], ecx 008002CF 53 push ebx 008002D0 56 push esi 008002D1 8BF0 mov esi, eax 008002D3 33C0 xor eax, eax 008002D5 55 push ebp * Possible String Reference to: '榀D肓^[嬪]' | 008002D6 6840068000 push $00800640 ***** TRY | 008002DB 64FF30 push dword ptr fs:[eax] 008002DE 648920 mov fs:[eax], esp * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 008002E1 8B8664030000 mov eax, [esi+$0364] * Possible String Reference to: 'Filler' | 008002E7 BA58068000 mov edx, $00800658 * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 008002EC E8C368CCFF call 004C6BB4 008002F1 8D55FC lea edx, [ebp-$04] 008002F4 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 008002F6 FF5160 call dword ptr [ecx+$60] 008002F9 8B45FC mov eax, [ebp-$04] 008002FC 50 push eax 008002FD 8D55F8 lea edx, [ebp-$08] *) end; procedure TfrmFKCR.cxGridDBColumn6PropertiesButtonClick(Sender : TObject); begin (* 00800790 55 push ebp 00800791 8BEC mov ebp, esp 00800793 51 push ecx 00800794 B906000000 mov ecx, $00000006 00800799 6A00 push $00 0080079B 6A00 push $00 0080079D 49 dec ecx 0080079E 75F9 jnz 00800799 008007A0 51 push ecx 008007A1 874DFC xchg [ebp-$04], ecx 008007A4 53 push ebx 008007A5 56 push esi 008007A6 8BF0 mov esi, eax 008007A8 33C0 xor eax, eax 008007AA 55 push ebp 008007AB 68E9098000 push $008009E9 ***** TRY | 008007B0 64FF30 push dword ptr fs:[eax] 008007B3 648920 mov fs:[eax], esp 008007B6 33C0 xor eax, eax 008007B8 55 push ebp 008007B9 68BF098000 push $008009BF ***** TRY | 008007BE 64FF30 push dword ptr fs:[eax] 008007C1 648920 mov fs:[eax], esp *) end; procedure TfrmFKCR.v2Column3PropertiesButtonClick(Sender : TObject); begin (* 00800AEC 55 push ebp 00800AED 8BEC mov ebp, esp 00800AEF 51 push ecx 00800AF0 B906000000 mov ecx, $00000006 00800AF5 6A00 push $00 00800AF7 6A00 push $00 00800AF9 49 dec ecx 00800AFA 75F9 jnz 00800AF5 00800AFC 51 push ecx 00800AFD 874DFC xchg [ebp-$04], ecx 00800B00 53 push ebx 00800B01 56 push esi 00800B02 8BF0 mov esi, eax 00800B04 33C0 xor eax, eax 00800B06 55 push ebp * Possible String Reference to: '楠=脬^[嬪]' | 00800B07 68450D8000 push $00800D45 ***** TRY | 00800B0C 64FF30 push dword ptr fs:[eax] 00800B0F 648920 mov fs:[eax], esp 00800B12 33C0 xor eax, eax 00800B14 55 push ebp 00800B15 681B0D8000 push $00800D1B ***** TRY | 00800B1A 64FF30 push dword ptr fs:[eax] 00800B1D 648920 mov fs:[eax], esp *) end; procedure TfrmFKCR.ToolButton1Click(Sender : TObject); begin (* 00800E30 53 push ebx 00800E31 8BD8 mov ebx, eax * Reference to control TfrmFKCR.ADOQueryMain : TADOQuery | 00800E33 8B8320030000 mov eax, [ebx+$0320] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 00800E39 E88270CCFF call 004C7EC0 00800E3E 84C0 test al, al 00800E40 7516 jnz 00800E58 * Possible String Reference to: '付款列表' | 00800E42 B9640E8000 mov ecx, $00800E64 * Reference to control TfrmFKCR.ADOQueryMain : TADOQuery | 00800E47 8B9320030000 mov edx, [ebx+$0320] * Reference to control TfrmFKCR.Tv2 : TcxGridDBTableView | 00800E4D 8B833C030000 mov eax, [ebx+$033C] | 00800E53 E8D873FBFF call 007B8230 00800E58 5B pop ebx 00800E59 C3 ret *) end; procedure TfrmFKCR.v2Column4PropertiesEditValueChanged(Sender : TObject); begin (* 00800E70 55 push ebp 00800E71 8BEC mov ebp, esp 00800E73 B915000000 mov ecx, $00000015 00800E78 6A00 push $00 00800E7A 6A00 push $00 00800E7C 49 dec ecx 00800E7D 75F9 jnz 00800E78 00800E7F 53 push ebx 00800E80 56 push esi 00800E81 8BF2 mov esi, edx 00800E83 8BD8 mov ebx, eax 00800E85 33C0 xor eax, eax 00800E87 55 push ebp * Possible String Reference to: '轭7氤^[嬪]' | 00800E88 6801138000 push $00801301 ***** TRY | 00800E8D 64FF30 push dword ptr fs:[eax] 00800E90 648920 mov fs:[eax], esp * Possible String Reference to: 'Filler' | 00800E93 BA18138000 mov edx, $00801318 * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 00800E98 8B8364030000 mov eax, [ebx+$0364] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00800E9E E8115DCCFF call 004C6BB4 00800EA3 8D55E4 lea edx, [ebp-$1C] 00800EA6 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 00800EA8 FF5160 call dword ptr [ecx+$60] 00800EAB 8B45E4 mov eax, [ebp-$1C] 00800EAE 50 push eax 00800EAF 8D55E0 lea edx, [ebp-$20] *) end; procedure TfrmFKCR.v2Column1PropertiesButtonClick(Sender : TObject); begin (* 008014E8 55 push ebp 008014E9 8BEC mov ebp, esp 008014EB 51 push ecx 008014EC B90E000000 mov ecx, $0000000E 008014F1 6A00 push $00 008014F3 6A00 push $00 008014F5 49 dec ecx 008014F6 75F9 jnz 008014F1 008014F8 51 push ecx 008014F9 874DFC xchg [ebp-$04], ecx 008014FC 53 push ebx 008014FD 8945FC mov [ebp-$04], eax 00801500 33C0 xor eax, eax 00801502 55 push ebp * Possible String Reference to: '闁2牍[嬪]' | 00801503 6859188000 push $00801859 ***** TRY | 00801508 64FF30 push dword ptr fs:[eax] 0080150B 648920 mov fs:[eax], esp 0080150E 33C0 xor eax, eax 00801510 55 push ebp 00801511 6805188000 push $00801805 ***** TRY | 00801516 64FF30 push dword ptr fs:[eax] 00801519 648920 mov fs:[eax], esp *) end; procedure TfrmFKCR.VBBPropertiesEditValueChanged(Sender : TObject); begin (* 00801958 55 push ebp 00801959 8BEC mov ebp, esp 0080195B B909000000 mov ecx, $00000009 00801960 6A00 push $00 00801962 6A00 push $00 00801964 49 dec ecx 00801965 75F9 jnz 00801960 00801967 51 push ecx 00801968 53 push ebx 00801969 56 push esi 0080196A 8BDA mov ebx, edx 0080196C 8BF0 mov esi, eax 0080196E 33C0 xor eax, eax 00801970 55 push ebp * Possible String Reference to: '轾.胫^[嬪]' | 00801971 68F61B8000 push $00801BF6 ***** TRY | 00801976 64FF30 push dword ptr fs:[eax] 00801979 648920 mov fs:[eax], esp 0080197C 8D55FC lea edx, [ebp-$04] 0080197F 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; | 00801981 E836DDD8FF call 0058F6BC * Reference to control TfrmFKCR.ADOQueryTemp : TADOQuery | 00801986 8B9E08030000 mov ebx, [esi+$0308] 0080198C 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 0080198E E8413FCCFF call 004C58D4 00801993 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00801995 E812C6CDFF call 004DDFAC 0080199A 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 0080199C FF5244 call dword ptr [edx+$44] * Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr | om YF_Money_CR where YFID='' | 0080199F 680C1C8000 push $00801C0C * Possible String Reference to: 'YFID' | 008019A4 BA541C8000 mov edx, $00801C54 * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 008019A9 8B8664030000 mov eax, [esi+$0364] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 008019AF E80052CCFF call 004C6BB4 008019B4 8D55F0 lea edx, [ebp-$10] 008019B7 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 008019B9 FF5160 call dword ptr [ecx+$60] 008019BC FF75F0 push dword ptr [ebp-$10] 008019BF 68641C8000 push $00801C64 008019C4 8D45F4 lea eax, [ebp-$0C] 008019C7 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 008019CC E8E33CC0FF call 004056B4 008019D1 8B45F4 mov eax, [ebp-$0C] 008019D4 50 push eax 008019D5 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 008019D7 E8D0C5CDFF call 004DDFAC 008019DC 5A pop edx 008019DD 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 008019DF FF5138 call dword ptr [ecx+$38] 008019E2 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Open(TDataSet); | 008019E4 E8DF3ECCFF call 004C58C8 * Possible String Reference to: 'BBMoney' | 008019E9 BA701C8000 mov edx, $00801C70 * Reference to control TfrmFKCR.ADOQueryTemp : TADOQuery | 008019EE 8B8608030000 mov eax, [esi+$0308] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 008019F4 E8BB51CCFF call 004C6BB4 008019F9 8D55F8 lea edx, [ebp-$08] 008019FC 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_60 | 008019FE FF5160 call dword ptr [ecx+$60] 00801A01 8D55EC lea edx, [ebp-$14] 00801A04 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 00801A07 E8E08EC0FF call 0040A8EC 00801A0C 837DEC00 cmp dword ptr [ebp-$14], +$00 00801A10 750D jnz 00801A1F 00801A12 8D45FC lea eax, [ebp-$04] 00801A15 BA801C8000 mov edx, $00801C80 * Reference to: System.@LStrLAsg(void;void;void;void); | 00801A1A E89D39C0FF call 004053BC * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 00801A1F 8B9E64030000 mov ebx, [esi+$0364] 00801A25 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Edit(TDataSet); | 00801A27 E8146ACCFF call 004C8440 * Possible String Reference to: 'BBMoney' | 00801A2C BA701C8000 mov edx, $00801C70 00801A31 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00801A33 E87C51CCFF call 004C6BB4 00801A38 50 push eax 00801A39 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 00801A3C E8EBBCC0FF call 0040D72C 00801A41 8D45DC lea eax, [ebp-$24] * Reference to: Variants.@VarFromReal; | 00801A44 E84373C1FF call 00418D8C 00801A49 8D55DC lea edx, [ebp-$24] 00801A4C 58 pop eax 00801A4D 8B08 mov ecx, [eax] 00801A4F FF91B4000000 call dword ptr [ecx+$00B4] 00801A55 8BC3 mov eax, ebx 00801A57 8B10 mov edx, [eax] * Reference to method TClientDataSet.Post() | 00801A59 FF924C020000 call dword ptr [edx+$024C] * Reference to control TfrmFKCR.ADOQueryCmd : TADOQuery | 00801A5F 8B9E0C030000 mov ebx, [esi+$030C] 00801A65 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 00801A67 E8683ECCFF call 004C58D4 00801A6C 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00801A6E E839C5CDFF call 004DDFAC 00801A73 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 00801A75 FF5244 call dword ptr [edx+$44] 00801A78 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00801A7A E82DC5CDFF call 004DDFAC * Possible String Reference to: 'UPdate YF_Money_CR ' | 00801A7F BA8C1C8000 mov edx, $00801C8C 00801A84 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 00801A86 FF5138 call dword ptr [ecx+$38] 00801A89 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00801A8B E81CC5CDFF call 004DDFAC 00801A90 50 push eax 00801A91 8D45D8 lea eax, [ebp-$28] 00801A94 8B4DFC mov ecx, [ebp-$04] * Possible String Reference to: ' set BBMoney=' | 00801A97 BAA81C8000 mov edx, $00801CA8 * Reference to: System.@LStrCat3; | 00801A9C E89F3BC0FF call 00405640 00801AA1 8B55D8 mov edx, [ebp-$28] 00801AA4 58 pop eax 00801AA5 8B08 mov ecx, [eax] 00801AA7 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ',Editer='' | 00801AAA 68C01C8000 push $00801CC0 00801AAF 8D55D0 lea edx, [ebp-$30] *) end; procedure TfrmFKCR.conNoChange(Sender : TObject); begin (* 00801D7C 55 push ebp 00801D7D 8BEC mov ebp, esp 00801D7F 6A00 push $00 00801D81 6A00 push $00 00801D83 53 push ebx 00801D84 56 push esi 00801D85 8BD8 mov ebx, eax 00801D87 33C0 xor eax, eax 00801D89 55 push ebp 00801D8A 68E81D8000 push $00801DE8 ***** TRY | 00801D8F 64FF30 push dword ptr fs:[eax] 00801D92 648920 mov fs:[eax], esp 00801D95 8D55F8 lea edx, [ebp-$08] * Reference to control TfrmFKCR.conNo : TEdit | 00801D98 8B8380030000 mov eax, [ebx+$0380] * Reference to: Controls.TControl.GetText(TControl):TCaption; | 00801D9E E84D68C8FF call 004885F0 00801DA3 8B45F8 mov eax, [ebp-$08] 00801DA6 8D55FC lea edx, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 00801DA9 E83E8BC0FF call 0040A8EC 00801DAE 8B45FC mov eax, [ebp-$04] * Reference to: System.@LStrLen(String):Integer; | or: System.@DynArrayLength; | or: System.DynArraySize(Pointer):Integer; | or: Variants.DynArraySize(Pointer):Integer; | 00801DB1 E83E38C0FF call 004055F4 00801DB6 83F803 cmp eax, +$03 00801DB9 7C0F jl 00801DCA * Reference to control TfrmFKCR.ToolButton2 : TToolButton | 00801DBB 8B8314030000 mov eax, [ebx+$0314] 00801DC1 66BEEBFF mov si, $FFEB * Reference to: System.@CallDynaInst; | 00801DC5 E88A27C0FF call 00404554 00801DCA 33C0 xor eax, eax 00801DCC 5A pop edx 00801DCD 59 pop ecx 00801DCE 59 pop ecx 00801DCF 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '^[YY]脥@' | 00801DD2 68EF1D8000 push $00801DEF 00801DD7 8D45F8 lea eax, [ebp-$08] * Reference to: System.@LStrClr(void;void); | 00801DDA E84535C0FF call 00405324 00801DDF 8D45FC lea eax, [ebp-$04] * Reference to: System.@LStrClr(void;void); | 00801DE2 E83D35C0FF call 00405324 00801DE7 C3 ret * Reference to: System.@HandleFinally; | 00801DE8 E9072DC0FF jmp 00404AF4 00801DED EBE8 jmp 00801DD7 ****** END | 00801DEF 5E pop esi 00801DF0 5B pop ebx 00801DF1 59 pop ecx 00801DF2 59 pop ecx 00801DF3 5D pop ebp 00801DF4 C3 ret *) end; procedure TfrmFKCR.v2Column1PropertiesEditValueChanged(Sender : TObject); begin (* 00801DF8 55 push ebp 00801DF9 8BEC mov ebp, esp 00801DFB B908000000 mov ecx, $00000008 00801E00 6A00 push $00 00801E02 6A00 push $00 00801E04 49 dec ecx 00801E05 75F9 jnz 00801E00 00801E07 51 push ecx 00801E08 53 push ebx 00801E09 56 push esi 00801E0A 8BDA mov ebx, edx 00801E0C 8BF0 mov esi, eax 00801E0E 33C0 xor eax, eax 00801E10 55 push ebp 00801E11 681B208000 push $0080201B ***** TRY | 00801E16 64FF30 push dword ptr fs:[eax] 00801E19 648920 mov fs:[eax], esp * Possible String Reference to: 'Filler' | 00801E1C BA30208000 mov edx, $00802030 * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 00801E21 8B8664030000 mov eax, [esi+$0364] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00801E27 E8884DCCFF call 004C6BB4 00801E2C 8D55F4 lea edx, [ebp-$0C] 00801E2F 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 00801E31 FF5160 call dword ptr [ecx+$60] 00801E34 8B45F4 mov eax, [ebp-$0C] 00801E37 50 push eax 00801E38 8D55F0 lea edx, [ebp-$10] *) end; procedure TfrmFKCR.v2DerateMoneyPropertiesEditValueChanged(Sender : TObject); begin (* 008020F4 55 push ebp 008020F5 8BEC mov ebp, esp 008020F7 B905000000 mov ecx, $00000005 008020FC 6A00 push $00 008020FE 6A00 push $00 00802100 49 dec ecx 00802101 75F9 jnz 008020FC 00802103 53 push ebx 00802104 56 push esi 00802105 8BDA mov ebx, edx 00802107 8BF0 mov esi, eax 00802109 33C0 xor eax, eax 0080210B 55 push ebp * Possible String Reference to: '闅(胫^[嬪]' | 0080210C 6855228000 push $00802255 ***** TRY | 00802111 64FF30 push dword ptr fs:[eax] 00802114 648920 mov fs:[eax], esp 00802117 8D55FC lea edx, [ebp-$04] 0080211A 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; | 0080211C E89BD5D8FF call 0058F6BC 00802121 8D55F8 lea edx, [ebp-$08] 00802124 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 00802127 E8C087C0FF call 0040A8EC 0080212C 837DF800 cmp dword ptr [ebp-$08], +$00 00802130 750D jnz 0080213F 00802132 8D45FC lea eax, [ebp-$04] 00802135 BA6C228000 mov edx, $0080226C * Reference to: System.@LStrLAsg(void;void;void;void); | 0080213A E87D32C0FF call 004053BC * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 0080213F 8B9E64030000 mov ebx, [esi+$0364] 00802145 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Edit(TDataSet); | 00802147 E8F462CCFF call 004C8440 0080214C 6A00 push $00 0080214E 6A00 push $00 00802150 6A00 push $00 00802152 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.StrToFloatDef(AnsiString;Extended):Extended;overload; | 00802155 E80EB6C0FF call 0040D768 0080215A 8D45E8 lea eax, [ebp-$18] * Reference to: Variants.@VarFromReal; | 0080215D E82A6CC1FF call 00418D8C 00802162 8D45E8 lea eax, [ebp-$18] 00802165 50 push eax * Possible String Reference to: 'DerateMoney' | 00802166 BA78228000 mov edx, $00802278 0080216B 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0080216D E8424ACCFF call 004C6BB4 00802172 5A pop edx 00802173 8B08 mov ecx, [eax] * Reference to method TClientDataSet.DestroyFields() | 00802175 FF91B4000000 call dword ptr [ecx+$00B4] 0080217B 8BC3 mov eax, ebx 0080217D 8B10 mov edx, [eax] * Reference to method TClientDataSet.Post() | 0080217F FF924C020000 call dword ptr [edx+$024C] * Reference to control TfrmFKCR.ADOQueryCmd : TADOQuery | 00802185 8B9E0C030000 mov ebx, [esi+$030C] 0080218B 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 0080218D E84237CCFF call 004C58D4 00802192 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00802194 E813BECDFF call 004DDFAC 00802199 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 0080219B FF5244 call dword ptr [edx+$44] 0080219E 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 008021A0 E807BECDFF call 004DDFAC * Possible String Reference to: 'UPdate YF_Money_CR ' | 008021A5 BA8C228000 mov edx, $0080228C 008021AA 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 008021AC FF5138 call dword ptr [ecx+$38] 008021AF 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 008021B1 E8F6BDCDFF call 004DDFAC 008021B6 50 push eax 008021B7 8D45E4 lea eax, [ebp-$1C] 008021BA 8B4DFC mov ecx, [ebp-$04] * Possible String Reference to: ' set DerateMoney=' | 008021BD BAA8228000 mov edx, $008022A8 * Reference to: System.@LStrCat3; | 008021C2 E87934C0FF call 00405640 008021C7 8B55E4 mov edx, [ebp-$1C] 008021CA 58 pop eax 008021CB 8B08 mov ecx, [eax] 008021CD FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ' where YFId='' | 008021D0 68C4228000 push $008022C4 * Possible String Reference to: 'YFId' | 008021D5 BADC228000 mov edx, $008022DC * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 008021DA 8B8664030000 mov eax, [esi+$0364] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 008021E0 E8CF49CCFF call 004C6BB4 008021E5 8D55D8 lea edx, [ebp-$28] 008021E8 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 008021EA FF5160 call dword ptr [ecx+$60] 008021ED 8B45D8 mov eax, [ebp-$28] 008021F0 8D55DC lea edx, [ebp-$24] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 008021F3 E8F486C0FF call 0040A8EC 008021F8 FF75DC push dword ptr [ebp-$24] 008021FB 68EC228000 push $008022EC 00802200 8D45E0 lea eax, [ebp-$20] 00802203 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 00802208 E8A734C0FF call 004056B4 0080220D 8B45E0 mov eax, [ebp-$20] 00802210 50 push eax 00802211 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00802213 E894BDCDFF call 004DDFAC 00802218 5A pop edx 00802219 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 0080221B FF5138 call dword ptr [ecx+$38] 0080221E 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer; | 00802220 E8AFBCCDFF call 004DDED4 00802225 33C0 xor eax, eax 00802227 5A pop edx 00802228 59 pop ecx 00802229 59 pop ecx 0080222A 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '^[嬪]' | 0080222D 685C228000 push $0080225C 00802232 8D45D8 lea eax, [ebp-$28] 00802235 BA04000000 mov edx, $00000004 * Reference to: System.@LStrArrayClr(void;void;Integer); | 0080223A E80931C0FF call 00405348 0080223F 8D45E8 lea eax, [ebp-$18] * Reference to: Variants.@VarClr(TVarData;TVarData); | 00802242 E82D24C1FF call 00414674 00802247 8D45F8 lea eax, [ebp-$08] 0080224A BA02000000 mov edx, $00000002 * Reference to: System.@LStrArrayClr(void;void;Integer); | 0080224F E8F430C0FF call 00405348 00802254 C3 ret * Reference to: System.@HandleFinally; | 00802255 E99A28C0FF jmp 00404AF4 0080225A EBD6 jmp 00802232 ****** END | 0080225C 5E pop esi 0080225D 5B pop ebx 0080225E 8BE5 mov esp, ebp 00802260 5D pop ebp 00802261 C3 ret *) end; procedure TfrmFKCR.v2fstr1PropertiesEditValueChanged(Sender : TObject); begin (* 008022F0 55 push ebp 008022F1 8BEC mov ebp, esp 008022F3 33C9 xor ecx, ecx 008022F5 51 push ecx 008022F6 51 push ecx 008022F7 51 push ecx 008022F8 51 push ecx 008022F9 51 push ecx 008022FA 51 push ecx 008022FB 51 push ecx 008022FC 53 push ebx 008022FD 56 push esi 008022FE 8BDA mov ebx, edx 00802300 8BF0 mov esi, eax 00802302 33C0 xor eax, eax 00802304 55 push ebp 00802305 68EB238000 push $008023EB ***** TRY | 0080230A 64FF30 push dword ptr fs:[eax] 0080230D 648920 mov fs:[eax], esp 00802310 8D55FC lea edx, [ebp-$04] 00802313 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; | 00802315 E8A2D3D8FF call 0058F6BC * Reference to control TfrmFKCR.ADOQueryCmd : TADOQuery | 0080231A 8B9E0C030000 mov ebx, [esi+$030C] 00802320 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 00802322 E8AD35CCFF call 004C58D4 00802327 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00802329 E87EBCCDFF call 004DDFAC 0080232E 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 00802330 FF5244 call dword ptr [edx+$44] 00802333 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00802335 E872BCCDFF call 004DDFAC * Possible String Reference to: 'UPdate YF_Money_CR ' | 0080233A BA00248000 mov edx, $00802400 0080233F 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 00802341 FF5138 call dword ptr [ecx+$38] 00802344 8D55F0 lea edx, [ebp-$10] 00802347 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0080234A E89D85C0FF call 0040A8EC 0080234F 8B45F0 mov eax, [ebp-$10] 00802352 8D55F4 lea edx, [ebp-$0C] * Reference to: SysUtils.QuotedStr(AnsiString):AnsiString; | 00802355 E89A86C0FF call 0040A9F4 0080235A 8B4DF4 mov ecx, [ebp-$0C] 0080235D 8D45F8 lea eax, [ebp-$08] * Possible String Reference to: ' set fstr1=' | 00802360 BA1C248000 mov edx, $0080241C * Reference to: System.@LStrCat3; | 00802365 E8D632C0FF call 00405640 0080236A 8B45F8 mov eax, [ebp-$08] 0080236D 50 push eax 0080236E 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00802370 E837BCCDFF call 004DDFAC 00802375 5A pop edx 00802376 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 00802378 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ' where YFId='' | 0080237B 6830248000 push $00802430 * Possible String Reference to: 'YFId' | 00802380 BA48248000 mov edx, $00802448 * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 00802385 8B8664030000 mov eax, [esi+$0364] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0080238B E82448CCFF call 004C6BB4 00802390 8D55E4 lea edx, [ebp-$1C] 00802393 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 00802395 FF5160 call dword ptr [ecx+$60] 00802398 8B45E4 mov eax, [ebp-$1C] 0080239B 8D55E8 lea edx, [ebp-$18] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0080239E E84985C0FF call 0040A8EC 008023A3 FF75E8 push dword ptr [ebp-$18] 008023A6 6858248000 push $00802458 008023AB 8D45EC lea eax, [ebp-$14] 008023AE BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 008023B3 E8FC32C0FF call 004056B4 008023B8 8B45EC mov eax, [ebp-$14] 008023BB 50 push eax 008023BC 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 008023BE E8E9BBCDFF call 004DDFAC 008023C3 5A pop edx 008023C4 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 008023C6 FF5138 call dword ptr [ecx+$38] 008023C9 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer; | 008023CB E804BBCDFF call 004DDED4 008023D0 33C0 xor eax, eax 008023D2 5A pop edx 008023D3 59 pop ecx 008023D4 59 pop ecx 008023D5 648910 mov fs:[eax], edx ****** FINALLY | 008023D8 68F2238000 push $008023F2 008023DD 8D45E4 lea eax, [ebp-$1C] 008023E0 BA07000000 mov edx, $00000007 * Reference to: System.@LStrArrayClr(void;void;Integer); | 008023E5 E85E2FC0FF call 00405348 008023EA C3 ret * Reference to: System.@HandleFinally; | 008023EB E90427C0FF jmp 00404AF4 008023F0 EBEB jmp 008023DD ****** END | 008023F2 5E pop esi 008023F3 5B pop ebx 008023F4 8BE5 mov esp, ebp 008023F6 5D pop ebp 008023F7 C3 ret *) end; procedure TfrmFKCR.TchkClick(Sender : TObject); begin (* 0080245C 55 push ebp 0080245D 8BEC mov ebp, esp 0080245F B904000000 mov ecx, $00000004 00802464 6A00 push $00 00802466 6A00 push $00 00802468 49 dec ecx 00802469 75F9 jnz 00802464 0080246B 51 push ecx 0080246C 53 push ebx 0080246D 56 push esi 0080246E 57 push edi 0080246F 8945FC mov [ebp-$04], eax 00802472 33C0 xor eax, eax 00802474 55 push ebp * Possible String Reference to: '閿$脬_^[嬪]' | 00802475 685B268000 push $0080265B ***** TRY | 0080247A 64FF30 push dword ptr fs:[eax] 0080247D 648920 mov fs:[eax], esp 00802480 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 00802483 8B8064030000 mov eax, [eax+$0364] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 00802489 E8325ACCFF call 004C7EC0 0080248E 84C0 test al, al 00802490 0F85A2010000 jnz 00802638 00802496 A06C268000 mov al, byte ptr [$0080266C] 0080249B 50 push eax 0080249C 8D45EC lea eax, [ebp-$14] 0080249F B201 mov dl, $01 * Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean); | 008024A1 E8BE68C1FF call 00418D64 008024A6 8D4DEC lea ecx, [ebp-$14] 008024A9 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 008024AC 8B8064030000 mov eax, [eax+$0364] * Possible String Reference to: 'ssel' | 008024B2 BA78268000 mov edx, $00802678 008024B7 8B18 mov ebx, [eax] * Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions) | 008024B9 FF9344020000 call dword ptr [ebx+$0244] 008024BF 84C0 test al, al 008024C1 751D jnz 008024E0 008024C3 6A00 push $00 * Possible String Reference to: '提示' | 008024C5 B980268000 mov ecx, $00802680 * Possible String Reference to: '没有选择数据!' | 008024CA BA88268000 mov edx, $00802688 *) end; procedure TfrmFKCR.TNochkClick(Sender : TObject); begin (* 00802710 55 push ebp 00802711 8BEC mov ebp, esp 00802713 B904000000 mov ecx, $00000004 00802718 6A00 push $00 0080271A 6A00 push $00 0080271C 49 dec ecx 0080271D 75F9 jnz 00802718 0080271F 51 push ecx 00802720 53 push ebx 00802721 56 push esi 00802722 57 push edi 00802723 8945FC mov [ebp-$04], eax 00802726 33C0 xor eax, eax 00802728 55 push ebp * Possible String Reference to: '猷!脬_^[嬪]' | 00802729 680F298000 push $0080290F ***** TRY | 0080272E 64FF30 push dword ptr fs:[eax] 00802731 648920 mov fs:[eax], esp 00802734 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 00802737 8B8064030000 mov eax, [eax+$0364] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 0080273D E87E57CCFF call 004C7EC0 00802742 84C0 test al, al 00802744 0F85A2010000 jnz 008028EC 0080274A A020298000 mov al, byte ptr [$00802920] 0080274F 50 push eax 00802750 8D45EC lea eax, [ebp-$14] 00802753 B201 mov dl, $01 * Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean); | 00802755 E80A66C1FF call 00418D64 0080275A 8D4DEC lea ecx, [ebp-$14] 0080275D 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 00802760 8B8064030000 mov eax, [eax+$0364] * Possible String Reference to: 'ssel' | 00802766 BA2C298000 mov edx, $0080292C 0080276B 8B18 mov ebx, [eax] * Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions) | 0080276D FF9344020000 call dword ptr [ebx+$0244] 00802773 84C0 test al, al 00802775 751D jnz 00802794 00802777 6A00 push $00 * Possible String Reference to: '提示' | 00802779 B934298000 mov ecx, $00802934 * Possible String Reference to: '没有选择数据!' | 0080277E BA3C298000 mov edx, $0080293C *) end; procedure TfrmFKCR.cxTabControl1Change(Sender : TObject); begin (* 008029B8 53 push ebx 008029B9 8BD8 mov ebx, eax 008029BB 8BC3 mov eax, ebx | 008029BD E8A2A8FFFF call 007FD264 008029C2 8BC3 mov eax, ebx | 008029C4 E8F3A9FFFF call 007FD3BC 008029C9 5B pop ebx 008029CA C3 ret *) end; procedure TfrmFKCR.v2ComTaiTouPropertiesButtonClick(Sender : TObject); begin (* 008029CC 55 push ebp 008029CD 8BEC mov ebp, esp 008029CF 51 push ecx 008029D0 B907000000 mov ecx, $00000007 008029D5 6A00 push $00 008029D7 6A00 push $00 008029D9 49 dec ecx 008029DA 75F9 jnz 008029D5 008029DC 51 push ecx 008029DD 874DFC xchg [ebp-$04], ecx 008029E0 53 push ebx 008029E1 56 push esi 008029E2 8BF0 mov esi, eax 008029E4 33C0 xor eax, eax 008029E6 55 push ebp 008029E7 68832C8000 push $00802C83 ***** TRY | 008029EC 64FF30 push dword ptr fs:[eax] 008029EF 648920 mov fs:[eax], esp * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 008029F2 8B8664030000 mov eax, [esi+$0364] * Possible String Reference to: 'Filler' | 008029F8 BA982C8000 mov edx, $00802C98 * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 008029FD E8B241CCFF call 004C6BB4 00802A02 8D55FC lea edx, [ebp-$04] 00802A05 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 00802A07 FF5160 call dword ptr [ecx+$60] 00802A0A 8B45FC mov eax, [ebp-$04] 00802A0D 50 push eax 00802A0E 8D55F8 lea edx, [ebp-$08] *) end; procedure TfrmFKCR.v2SselPropertiesChange(Sender : TObject); begin (* 00802D94 53 push ebx 00802D95 56 push esi 00802D96 8BD8 mov ebx, eax * Possible String Reference to: 'Money' | 00802D98 BAD42D8000 mov edx, $00802DD4 * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 00802D9D 8BB364030000 mov esi, [ebx+$0364] 00802DA3 8BC6 mov eax, esi * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00802DA5 E80A3ECCFF call 004C6BB4 00802DAA 8B10 mov edx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_4C | 00802DAC FF524C call dword ptr [edx+$4C] 00802DAF D835DC2D8000 fdiv dword ptr [$00802DDC] 00802DB5 83C4F8 add esp, -$08 00802DB8 DD1C24 fstp qword ptr [esp] 00802DBB 9B wait * Reference to control TfrmFKCR.Label12 : TLabel | 00802DBC 8B939C030000 mov edx, [ebx+$039C] 00802DC2 8BC6 mov eax, esi * Reference to : TfrmSelExportField._PROC_007B6D90() | 00802DC4 E8C73FFBFF call 007B6D90 00802DC9 5E pop esi 00802DCA 5B pop ebx 00802DCB C3 ret *) end; procedure TfrmFKCR.Tv2StylesGetContentStyle(Sender : TObject); begin (* 00802DE0 55 push ebp 00802DE1 8BEC mov ebp, esp 00802DE3 6A00 push $00 00802DE5 6A00 push $00 00802DE7 6A00 push $00 00802DE9 6A00 push $00 00802DEB 6A00 push $00 00802DED 6A00 push $00 00802DEF 6A00 push $00 00802DF1 6A00 push $00 00802DF3 53 push ebx 00802DF4 56 push esi 00802DF5 8BF1 mov esi, ecx 00802DF7 8BD8 mov ebx, eax 00802DF9 33C0 xor eax, eax 00802DFB 55 push ebp 00802DFC 68722E8000 push $00802E72 ***** TRY | 00802E01 64FF30 push dword ptr fs:[eax] 00802E04 648920 mov fs:[eax], esp * Possible String Reference to: 'ChkStatus' | 00802E07 BA8C2E8000 mov edx, $00802E8C * Reference to control TfrmFKCR.Tv2 : TcxGridDBTableView | 00802E0C 8B833C030000 mov eax, [ebx+$033C] * Reference to: ComCtrls.TCustomListView.GetViewOrigin(TCustomListView):Windows.TPoint; | or: ComCtrls.TCustomListView.GetBoundingRect(TCustomListView):Windows.TRect; | or: DB.TDataLink.MoveBy(TDataLink;Integer):Integer; | or: InCookie.TInCookies.AddSrcCookie(TInCookies;AnsiString); | or: Outline.TOutlineNode.GetNode(TOutlineNode;Longint):TOutlineNode; | or: QFileDialog.TFileDialogForm.GetDirectory(TFileDialogForm):WideString; | 00802E12 E8098CE6FF call 0066BA20 * Reference to field TcxGridDBTableView.OFFS_006C | 00802E17 8B586C mov ebx, [eax+$6C] 00802E1A 8D4DF0 lea ecx, [ebp-$10] 00802E1D 8BD3 mov edx, ebx 00802E1F 8BC6 mov eax, esi 00802E21 8B18 mov ebx, [eax] 00802E23 FF5340 call dword ptr [ebx+$40] 00802E26 8D45F0 lea eax, [ebp-$10] 00802E29 50 push eax 00802E2A 8D45E0 lea eax, [ebp-$20] * Possible String Reference to: '不通过' | 00802E2D BAA02E8000 mov edx, $00802EA0 * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 00802E32 E8915FC1FF call 00418DC8 00802E37 8D55E0 lea edx, [ebp-$20] 00802E3A 58 pop eax * Reference to: Variants.@VarCmpEQ(TVarData;TVarData;TVarData;TVarData); | or: Variants.@VarCmpNE(TVarData;TVarData;TVarData;TVarData); | or: Variants.@VarCmpLT(TVarData;TVarData;TVarData;TVarData); | or: Variants.@VarCmpLE(TVarData;TVarData;TVarData;TVarData); | or: Variants.@VarCmpGT(TVarData;TVarData;TVarData;TVarData); | or: Variants.@VarCmpGE(TVarData;TVarData;TVarData;TVarData); | 00802E3B E8ACA5C1FF call 0041D3EC 00802E40 750F jnz 00802E51 *) end; procedure TfrmFKCR.THXClick(Sender : TObject); begin (* 00802EA8 55 push ebp 00802EA9 8BEC mov ebp, esp 00802EAB B904000000 mov ecx, $00000004 00802EB0 6A00 push $00 00802EB2 6A00 push $00 00802EB4 49 dec ecx 00802EB5 75F9 jnz 00802EB0 00802EB7 51 push ecx 00802EB8 53 push ebx 00802EB9 56 push esi 00802EBA 8BD8 mov ebx, eax 00802EBC 33C0 xor eax, eax 00802EBE 55 push ebp 00802EBF 6862308000 push $00803062 ***** TRY | 00802EC4 64FF30 push dword ptr fs:[eax] 00802EC7 648920 mov fs:[eax], esp 00802ECA 8BCB mov ecx, ebx 00802ECC B201 mov dl, $01 * Reference to class TfrmYFFP_HX | 00802ECE A1B88D7E00 mov eax, dword ptr [$007E8DB8] * Reference to: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent); | or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent); | 00802ED3 E8F8EEC9FF call 004A1DD0 *) end; procedure TfrmFKCR.N1Click(Sender : TObject); begin (* 00803148 B201 mov dl, $01 * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 0080314A 8B8064030000 mov eax, [eax+$0364] * Reference to : TfrmSelExportField._PROC_007B84A4() | 00803150 E84F53FBFF call 007B84A4 00803155 C3 ret *) end; procedure TfrmFKCR.N2Click(Sender : TObject); begin (* 00803158 33D2 xor edx, edx * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 0080315A 8B8064030000 mov eax, [eax+$0364] * Reference to : TfrmSelExportField._PROC_007B84A4() | 00803160 E83F53FBFF call 007B84A4 00803165 C3 ret *) end; procedure TfrmFKCR.v2FKTypePropertiesButtonClick(Sender : TObject); begin (* 00803168 55 push ebp 00803169 8BEC mov ebp, esp 0080316B 51 push ecx 0080316C B906000000 mov ecx, $00000006 00803171 6A00 push $00 00803173 6A00 push $00 00803175 49 dec ecx 00803176 75F9 jnz 00803171 00803178 51 push ecx 00803179 874DFC xchg [ebp-$04], ecx 0080317C 53 push ebx 0080317D 56 push esi 0080317E 8BF0 mov esi, eax 00803180 33C0 xor eax, eax 00803182 55 push ebp 00803183 68D4338000 push $008033D4 ***** TRY | 00803188 64FF30 push dword ptr fs:[eax] 0080318B 648920 mov fs:[eax], esp * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 0080318E 8B8664030000 mov eax, [esi+$0364] * Possible String Reference to: 'Filler' | 00803194 BAEC338000 mov edx, $008033EC * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00803199 E8163ACCFF call 004C6BB4 0080319E 8D55FC lea edx, [ebp-$04] 008031A1 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 008031A3 FF5160 call dword ptr [ecx+$60] 008031A6 8B45FC mov eax, [ebp-$04] 008031A9 50 push eax 008031AA 8D55F8 lea edx, [ebp-$08] *) end; procedure TfrmFKCR.CheckBox1Click(Sender : TObject); begin (* 008034AC 55 push ebp 008034AD 8BEC mov ebp, esp 008034AF 33C9 xor ecx, ecx 008034B1 51 push ecx 008034B2 51 push ecx 008034B3 51 push ecx 008034B4 51 push ecx 008034B5 51 push ecx 008034B6 51 push ecx 008034B7 51 push ecx 008034B8 51 push ecx 008034B9 53 push ebx 008034BA 56 push esi 008034BB 57 push edi 008034BC 8BF0 mov esi, eax 008034BE 33C0 xor eax, eax 008034C0 55 push ebp 008034C1 68FB358000 push $008035FB ***** TRY | 008034C6 64FF30 push dword ptr fs:[eax] 008034C9 648920 mov fs:[eax], esp 008034CC BA14368000 mov edx, $00803614 * Reference to control TfrmFKCR.Label12 : TLabel | 008034D1 8B869C030000 mov eax, [esi+$039C] * Reference to: Controls.TControl.SetText(TControl;TCaption); | 008034D7 E84451C8FF call 00488620 * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 008034DC 8B8664030000 mov eax, [esi+$0364] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 008034E2 E8D949CCFF call 004C7EC0 008034E7 84C0 test al, al 008034E9 0F85E6000000 jnz 008035D5 * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 008034EF 8B9E64030000 mov ebx, [esi+$0364] 008034F5 8BC3 mov eax, ebx * Reference to: DB.TDataSet.DisableControls(TDataSet); | 008034F7 E85840CCFF call 004C7554 008034FC 8BC3 mov eax, ebx * Reference to: DB.TDataSet.First(TDataSet); | 008034FE E82D4BCCFF call 004C8030 00803503 E9B2000000 jmp 008035BA 00803508 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Edit(TDataSet); | 0080350A E8314FCCFF call 004C8440 * Reference to control TfrmFKCR.CheckBox1 : TCheckBox | 0080350F 8B86B8030000 mov eax, [esi+$03B8] 00803515 8B10 mov edx, [eax] * Reference to method TCheckBox.GetChecked() | 00803517 FF92C8000000 call dword ptr [edx+$00C8] 0080351D 8BD0 mov edx, eax 0080351F 8D45F0 lea eax, [ebp-$10] * Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean); | 00803522 E83D58C1FF call 00418D64 00803527 8D45F0 lea eax, [ebp-$10] 0080352A 50 push eax * Possible String Reference to: 'ssel' | 0080352B BA20368000 mov edx, $00803620 00803530 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00803532 E87D36CCFF call 004C6BB4 00803537 5A pop edx 00803538 8B08 mov ecx, [eax] * Reference to method TClientDataSet.DestroyFields() | 0080353A FF91B4000000 call dword ptr [ecx+$00B4] * Reference to control TfrmFKCR.CheckBox1 : TCheckBox | 00803540 8B86B8030000 mov eax, [esi+$03B8] 00803546 8B10 mov edx, [eax] * Reference to method TCheckBox.GetChecked() | 00803548 FF92C8000000 call dword ptr [edx+$00C8] 0080354E 3C01 cmp al, $01 00803550 7557 jnz 008035A9 * Possible String Reference to: 'Money' | 00803552 BA30368000 mov edx, $00803630 00803557 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00803559 E85636CCFF call 004C6BB4 0080355E 8B10 mov edx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_4C | 00803560 FF524C call dword ptr [edx+$4C] 00803563 DF7DE4 fistp qword ptr [ebp-$1C] 00803566 9B wait 00803567 8D55E0 lea edx, [ebp-$20] * Reference to control TfrmFKCR.Label12 : TLabel | 0080356A 8BBE9C030000 mov edi, [esi+$039C] 00803570 8BC7 mov eax, edi * Reference to: Controls.TControl.GetText(TControl):TCaption; | 00803572 E87950C8FF call 004885F0 00803577 8B45E0 mov eax, [ebp-$20] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 0080357A E8ADA1C0FF call 0040D72C 0080357F D80D38368000 fmul dword ptr [$00803638] 00803585 DF6DE4 fild qword ptr [ebp-$1C] 00803588 DEC1 faddp st(1), st(0) 0080358A D83538368000 fdiv dword ptr [$00803638] 00803590 83C4F4 add esp, -$0C 00803593 DB3C24 fstp tbyte ptr [esp] 00803596 9B wait 00803597 8D45EC lea eax, [ebp-$14] | 0080359A E80DA0C0FF call 0040D5AC 0080359F 8B55EC mov edx, [ebp-$14] 008035A2 8BC7 mov eax, edi * Reference to: Controls.TControl.SetText(TControl;TCaption); | 008035A4 E87750C8FF call 00488620 008035A9 8BC3 mov eax, ebx 008035AB 8B10 mov edx, [eax] * Reference to method TClientDataSet.Post() | 008035AD FF924C020000 call dword ptr [edx+$024C] 008035B3 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Next(TDataSet); | 008035B5 E8924DCCFF call 004C834C * Reference to field TClientDataSet.Eof : Boolean | 008035BA 80BBA100000000 cmp byte ptr [ebx+$00A1], $00 008035C1 0F8441FFFFFF jz 00803508 008035C7 8BC3 mov eax, ebx * Reference to: DB.TDataSet.First(TDataSet); | 008035C9 E8624ACCFF call 004C8030 008035CE 8BC3 mov eax, ebx * Reference to: DB.TDataSet.EnableControls(TDataSet); | 008035D0 E89F3FCCFF call 004C7574 008035D5 33C0 xor eax, eax 008035D7 5A pop edx 008035D8 59 pop ecx 008035D9 59 pop ecx 008035DA 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '_^[嬪]' | 008035DD 6802368000 push $00803602 008035E2 8D45E0 lea eax, [ebp-$20] * Reference to: System.@LStrClr(void;void); | 008035E5 E83A1DC0FF call 00405324 008035EA 8D45EC lea eax, [ebp-$14] * Reference to: System.@LStrClr(void;void); | 008035ED E8321DC0FF call 00405324 008035F2 8D45F0 lea eax, [ebp-$10] * Reference to: Variants.@VarClr(TVarData;TVarData); | 008035F5 E87A10C1FF call 00414674 008035FA C3 ret * Reference to: System.@HandleFinally; | 008035FB E9F414C0FF jmp 00404AF4 00803600 EBE0 jmp 008035E2 ****** END | 00803602 5F pop edi 00803603 5E pop esi 00803604 5B pop ebx 00803605 8BE5 mov esp, ebp 00803607 5D pop ebp 00803608 C3 ret *) end; procedure TfrmFKCR.v2BankNamePropertiesButtonClick(Sender : TObject); begin (* 0080363C 55 push ebp 0080363D 8BEC mov ebp, esp 0080363F 51 push ecx 00803640 B90B000000 mov ecx, $0000000B 00803645 6A00 push $00 00803647 6A00 push $00 00803649 49 dec ecx 0080364A 75F9 jnz 00803645 0080364C 874DFC xchg [ebp-$04], ecx 0080364F 53 push ebx 00803650 56 push esi 00803651 8BF0 mov esi, eax 00803653 33C0 xor eax, eax 00803655 55 push ebp 00803656 6884398000 push $00803984 ***** TRY | 0080365B 64FF30 push dword ptr fs:[eax] 0080365E 648920 mov fs:[eax], esp * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 00803661 8B8664030000 mov eax, [esi+$0364] * Possible String Reference to: 'Filler' | 00803667 BA9C398000 mov edx, $0080399C * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0080366C E84335CCFF call 004C6BB4 00803671 8D55FC lea edx, [ebp-$04] 00803674 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 00803676 FF5160 call dword ptr [ecx+$60] 00803679 8B45FC mov eax, [ebp-$04] 0080367C 50 push eax 0080367D 8D55F8 lea edx, [ebp-$08] *) end; procedure TfrmFKCR.v2BankNoPropertiesButtonClick(Sender : TObject); begin (* 00803AB8 55 push ebp 00803AB9 8BEC mov ebp, esp 00803ABB 51 push ecx 00803ABC B906000000 mov ecx, $00000006 00803AC1 6A00 push $00 00803AC3 6A00 push $00 00803AC5 49 dec ecx 00803AC6 75F9 jnz 00803AC1 00803AC8 51 push ecx 00803AC9 874DFC xchg [ebp-$04], ecx 00803ACC 53 push ebx 00803ACD 56 push esi 00803ACE 8BF0 mov esi, eax 00803AD0 33C0 xor eax, eax 00803AD2 55 push ebp * Possible String Reference to: '樗胫^[嬪]' | 00803AD3 68243D8000 push $00803D24 ***** TRY | 00803AD8 64FF30 push dword ptr fs:[eax] 00803ADB 648920 mov fs:[eax], esp * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 00803ADE 8B8664030000 mov eax, [esi+$0364] * Possible String Reference to: 'Filler' | 00803AE4 BA3C3D8000 mov edx, $00803D3C * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00803AE9 E8C630CCFF call 004C6BB4 00803AEE 8D55FC lea edx, [ebp-$04] 00803AF1 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 00803AF3 FF5160 call dword ptr [ecx+$60] 00803AF6 8B45FC mov eax, [ebp-$04] 00803AF9 50 push eax 00803AFA 8D55F8 lea edx, [ebp-$08] *) end; procedure TfrmFKCR.v2FKTaiTouPropertiesButtonClick(Sender : TObject); begin (* 00803E10 55 push ebp 00803E11 8BEC mov ebp, esp 00803E13 51 push ecx 00803E14 B909000000 mov ecx, $00000009 00803E19 6A00 push $00 00803E1B 6A00 push $00 00803E1D 49 dec ecx 00803E1E 75F9 jnz 00803E19 00803E20 874DFC xchg [ebp-$04], ecx 00803E23 53 push ebx 00803E24 56 push esi 00803E25 8BD8 mov ebx, eax 00803E27 33C0 xor eax, eax 00803E29 55 push ebp 00803E2A 685A418000 push $0080415A ***** TRY | 00803E2F 64FF30 push dword ptr fs:[eax] 00803E32 648920 mov fs:[eax], esp * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 00803E35 8B8364030000 mov eax, [ebx+$0364] * Possible String Reference to: 'Filler' | 00803E3B BA70418000 mov edx, $00804170 * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00803E40 E86F2DCCFF call 004C6BB4 00803E45 8D55FC lea edx, [ebp-$04] 00803E48 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 00803E4A FF5160 call dword ptr [ecx+$60] 00803E4D 8B45FC mov eax, [ebp-$04] 00803E50 50 push eax 00803E51 8D55F8 lea edx, [ebp-$08] *) end; procedure TfrmFKCR.TPrintClick(Sender : TObject); begin (* 008042D0 55 push ebp 008042D1 8BEC mov ebp, esp 008042D3 B923000000 mov ecx, $00000023 008042D8 6A00 push $00 008042DA 6A00 push $00 008042DC 49 dec ecx 008042DD 75F9 jnz 008042D8 008042DF 51 push ecx 008042E0 53 push ebx 008042E1 56 push esi 008042E2 8BD8 mov ebx, eax 008042E4 33C0 xor eax, eax 008042E6 55 push ebp * Possible String Reference to: '楹镹^[嬪]' | 008042E7 68354B8000 push $00804B35 ***** TRY | 008042EC 64FF30 push dword ptr fs:[eax] 008042EF 648920 mov fs:[eax], esp * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 008042F2 8B8364030000 mov eax, [ebx+$0364] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 008042F8 E8C33BCCFF call 004C7EC0 008042FD 84C0 test al, al 008042FF 0F857B070000 jnz 00804A80 00804305 A0484B8000 mov al, byte ptr [$00804B48] 0080430A 50 push eax 0080430B 8D45D4 lea eax, [ebp-$2C] 0080430E B201 mov dl, $01 * Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean); | 00804310 E84F4AC1FF call 00418D64 00804315 8D4DD4 lea ecx, [ebp-$2C] * Possible String Reference to: 'Ssel' | 00804318 BA544B8000 mov edx, $00804B54 * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 0080431D 8B8364030000 mov eax, [ebx+$0364] 00804323 8B30 mov esi, [eax] * Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions) | 00804325 FF9644020000 call dword ptr [esi+$0244] 0080432B 84C0 test al, al 0080432D 751D jnz 0080434C 0080432F 6A00 push $00 * Possible String Reference to: '提示' | 00804331 B95C4B8000 mov ecx, $00804B5C * Possible String Reference to: '没有选择数据' | 00804336 BA644B8000 mov edx, $00804B64 *) end; procedure TfrmFKCR.v2QtyPropertiesEditValueChanged(Sender : TObject); begin (* 00804D5C 55 push ebp 00804D5D 8BEC mov ebp, esp 00804D5F B90A000000 mov ecx, $0000000A 00804D64 6A00 push $00 00804D66 6A00 push $00 00804D68 49 dec ecx 00804D69 75F9 jnz 00804D64 00804D6B 51 push ecx 00804D6C 53 push ebx 00804D6D 56 push esi 00804D6E 8BDA mov ebx, edx 00804D70 8BF0 mov esi, eax 00804D72 33C0 xor eax, eax 00804D74 55 push ebp * Possible String Reference to: '閙肫^[嬪]' | 00804D75 68824F8000 push $00804F82 ***** TRY | 00804D7A 64FF30 push dword ptr fs:[eax] 00804D7D 648920 mov fs:[eax], esp 00804D80 8D55FC lea edx, [ebp-$04] 00804D83 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; | 00804D85 E832A9D8FF call 0058F6BC 00804D8A 8D55F8 lea edx, [ebp-$08] 00804D8D 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 00804D90 E8575BC0FF call 0040A8EC 00804D95 837DF800 cmp dword ptr [ebp-$08], +$00 00804D99 750D jnz 00804DA8 00804D9B 8D45FC lea eax, [ebp-$04] 00804D9E BA984F8000 mov edx, $00804F98 * Reference to: System.@LStrLAsg(void;void;void;void); | 00804DA3 E81406C0FF call 004053BC * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 00804DA8 8B9E64030000 mov ebx, [esi+$0364] 00804DAE 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Edit(TDataSet); | 00804DB0 E88B36CCFF call 004C8440 00804DB5 8D55E4 lea edx, [ebp-$1C] 00804DB8 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 00804DBB E82C5BC0FF call 0040A8EC 00804DC0 8B55E4 mov edx, [ebp-$1C] 00804DC3 8D45E8 lea eax, [ebp-$18] * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 00804DC6 E8FD3FC1FF call 00418DC8 00804DCB 8D45E8 lea eax, [ebp-$18] 00804DCE 50 push eax * Possible String Reference to: 'Qty' | 00804DCF BAA44F8000 mov edx, $00804FA4 00804DD4 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00804DD6 E8D91DCCFF call 004C6BB4 00804DDB 5A pop edx 00804DDC 8B08 mov ecx, [eax] * Reference to method TClientDataSet.DestroyFields() | 00804DDE FF91B4000000 call dword ptr [ecx+$00B4] * Possible String Reference to: 'Qty' | 00804DE4 BAA44F8000 mov edx, $00804FA4 00804DE9 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00804DEB E8C41DCCFF call 004C6BB4 00804DF0 8B10 mov edx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_54 | 00804DF2 FF5254 call dword ptr [edx+$54] 00804DF5 DD5DCC fstp qword ptr [ebp-$34] 00804DF8 9B wait * Possible String Reference to: 'Price' | 00804DF9 BAB04F8000 mov edx, $00804FB0 00804DFE 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00804E00 E8AF1DCCFF call 004C6BB4 00804E05 8B10 mov edx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_54 | 00804E07 FF5254 call dword ptr [edx+$54] 00804E0A DC4DCC fmul qword ptr [ebp-$34] 00804E0D 8D45D4 lea eax, [ebp-$2C] * Reference to: Variants.@VarFromReal; | 00804E10 E8773FC1FF call 00418D8C 00804E15 8D45D4 lea eax, [ebp-$2C] 00804E18 50 push eax * Possible String Reference to: 'Money' | 00804E19 BAC04F8000 mov edx, $00804FC0 00804E1E 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00804E20 E88F1DCCFF call 004C6BB4 00804E25 5A pop edx 00804E26 8B08 mov ecx, [eax] * Reference to method TClientDataSet.DestroyFields() | 00804E28 FF91B4000000 call dword ptr [ecx+$00B4] * Reference to control TfrmFKCR.ADOQueryCmd : TADOQuery | 00804E2E 8B9E0C030000 mov ebx, [esi+$030C] 00804E34 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 00804E36 E8990ACCFF call 004C58D4 00804E3B 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00804E3D E86A91CDFF call 004DDFAC 00804E42 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 00804E44 FF5244 call dword ptr [edx+$44] 00804E47 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00804E49 E85E91CDFF call 004DDFAC * Possible String Reference to: 'UPdate YF_Money_CR ' | 00804E4E BAD04F8000 mov edx, $00804FD0 00804E53 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 00804E55 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ' Set Qty='' | 00804E58 68EC4F8000 push $00804FEC 00804E5D 8D55C4 lea edx, [ebp-$3C] 00804E60 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 00804E63 E8845AC0FF call 0040A8EC 00804E68 FF75C4 push dword ptr [ebp-$3C] 00804E6B 6800508000 push $00805000 00804E70 8D45C8 lea eax, [ebp-$38] 00804E73 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 00804E78 E83708C0FF call 004056B4 00804E7D 8B45C8 mov eax, [ebp-$38] 00804E80 50 push eax 00804E81 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00804E83 E82491CDFF call 004DDFAC 00804E88 5A pop edx 00804E89 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 00804E8B FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ',Money='' | 00804E8E 680C508000 push $0080500C * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 00804E93 8B8664030000 mov eax, [esi+$0364] * Possible String Reference to: 'Money' | 00804E99 BAC04F8000 mov edx, $00804FC0 * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00804E9E E8111DCCFF call 004C6BB4 00804EA3 8D55B8 lea edx, [ebp-$48] 00804EA6 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 00804EA8 FF5160 call dword ptr [ecx+$60] 00804EAB 8B45B8 mov eax, [ebp-$48] 00804EAE 8D55BC lea edx, [ebp-$44] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 00804EB1 E8365AC0FF call 0040A8EC 00804EB6 FF75BC push dword ptr [ebp-$44] 00804EB9 6800508000 push $00805000 00804EBE 8D45C0 lea eax, [ebp-$40] 00804EC1 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 00804EC6 E8E907C0FF call 004056B4 00804ECB 8B45C0 mov eax, [ebp-$40] 00804ECE 50 push eax 00804ECF 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00804ED1 E8D690CDFF call 004DDFAC 00804ED6 5A pop edx 00804ED7 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 00804ED9 FF5138 call dword ptr [ecx+$38] 00804EDC 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00804EDE E8C990CDFF call 004DDFAC * Possible String Reference to: ',Edittime=getdate() ' | 00804EE3 BA20508000 mov edx, $00805020 00804EE8 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 00804EEA FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ' where YFId='' | 00804EED 6840508000 push $00805040 * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 00804EF2 8B8664030000 mov eax, [esi+$0364] * Possible String Reference to: 'YFId' | 00804EF8 BA58508000 mov edx, $00805058 * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00804EFD E8B21CCCFF call 004C6BB4 00804F02 8D55AC lea edx, [ebp-$54] 00804F05 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 00804F07 FF5160 call dword ptr [ecx+$60] 00804F0A 8B45AC mov eax, [ebp-$54] 00804F0D 8D55B0 lea edx, [ebp-$50] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 00804F10 E8D759C0FF call 0040A8EC 00804F15 FF75B0 push dword ptr [ebp-$50] 00804F18 6800508000 push $00805000 00804F1D 8D45B4 lea eax, [ebp-$4C] 00804F20 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 00804F25 E88A07C0FF call 004056B4 00804F2A 8B45B4 mov eax, [ebp-$4C] 00804F2D 50 push eax 00804F2E 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00804F30 E87790CDFF call 004DDFAC 00804F35 5A pop edx 00804F36 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 00804F38 FF5138 call dword ptr [ecx+$38] 00804F3B 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer; | 00804F3D E8928FCDFF call 004DDED4 00804F42 33C0 xor eax, eax 00804F44 5A pop edx 00804F45 59 pop ecx 00804F46 59 pop ecx 00804F47 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '^[嬪]' | 00804F4A 68894F8000 push $00804F89 00804F4F 8D45AC lea eax, [ebp-$54] 00804F52 BA08000000 mov edx, $00000008 * Reference to: System.@LStrArrayClr(void;void;Integer); | 00804F57 E8EC03C0FF call 00405348 00804F5C 8D45D4 lea eax, [ebp-$2C] * Reference to: Variants.@VarClr(TVarData;TVarData); | 00804F5F E810F7C0FF call 00414674 00804F64 8D45E4 lea eax, [ebp-$1C] * Reference to: System.@LStrClr(void;void); | 00804F67 E8B803C0FF call 00405324 00804F6C 8D45E8 lea eax, [ebp-$18] * Reference to: Variants.@VarClr(TVarData;TVarData); | 00804F6F E800F7C0FF call 00414674 00804F74 8D45F8 lea eax, [ebp-$08] 00804F77 BA02000000 mov edx, $00000002 * Reference to: System.@LStrArrayClr(void;void;Integer); | 00804F7C E8C703C0FF call 00405348 00804F81 C3 ret * Reference to: System.@HandleFinally; | 00804F82 E96DFBBFFF jmp 00404AF4 00804F87 EBC6 jmp 00804F4F ****** END | 00804F89 5E pop esi 00804F8A 5B pop ebx 00804F8B 8BE5 mov esp, ebp 00804F8D 5D pop ebp 00804F8E C3 ret *) end; procedure TfrmFKCR.v2PricePropertiesEditValueChanged(Sender : TObject); begin (* 00805060 55 push ebp 00805061 8BEC mov ebp, esp 00805063 B90A000000 mov ecx, $0000000A 00805068 6A00 push $00 0080506A 6A00 push $00 0080506C 49 dec ecx 0080506D 75F9 jnz 00805068 0080506F 51 push ecx 00805070 53 push ebx 00805071 56 push esi 00805072 8BDA mov ebx, edx 00805074 8BF0 mov esi, eax 00805076 33C0 xor eax, eax 00805078 55 push ebp * Possible String Reference to: '閕肫^[嬪]' | 00805079 6886528000 push $00805286 ***** TRY | 0080507E 64FF30 push dword ptr fs:[eax] 00805081 648920 mov fs:[eax], esp 00805084 8D55FC lea edx, [ebp-$04] 00805087 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; | 00805089 E82EA6D8FF call 0058F6BC 0080508E 8D55F8 lea edx, [ebp-$08] 00805091 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 00805094 E85358C0FF call 0040A8EC 00805099 837DF800 cmp dword ptr [ebp-$08], +$00 0080509D 750D jnz 008050AC 0080509F 8D45FC lea eax, [ebp-$04] 008050A2 BA9C528000 mov edx, $0080529C * Reference to: System.@LStrLAsg(void;void;void;void); | 008050A7 E81003C0FF call 004053BC * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 008050AC 8B9E64030000 mov ebx, [esi+$0364] 008050B2 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Edit(TDataSet); | 008050B4 E88733CCFF call 004C8440 008050B9 8D55E4 lea edx, [ebp-$1C] 008050BC 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 008050BF E82858C0FF call 0040A8EC 008050C4 8B55E4 mov edx, [ebp-$1C] 008050C7 8D45E8 lea eax, [ebp-$18] * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 008050CA E8F93CC1FF call 00418DC8 008050CF 8D45E8 lea eax, [ebp-$18] 008050D2 50 push eax * Possible String Reference to: 'Price' | 008050D3 BAA8528000 mov edx, $008052A8 008050D8 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 008050DA E8D51ACCFF call 004C6BB4 008050DF 5A pop edx 008050E0 8B08 mov ecx, [eax] * Reference to method TClientDataSet.DestroyFields() | 008050E2 FF91B4000000 call dword ptr [ecx+$00B4] * Possible String Reference to: 'Qty' | 008050E8 BAB8528000 mov edx, $008052B8 008050ED 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 008050EF E8C01ACCFF call 004C6BB4 008050F4 8B10 mov edx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_54 | 008050F6 FF5254 call dword ptr [edx+$54] 008050F9 DD5DCC fstp qword ptr [ebp-$34] 008050FC 9B wait * Possible String Reference to: 'Price' | 008050FD BAA8528000 mov edx, $008052A8 00805102 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00805104 E8AB1ACCFF call 004C6BB4 00805109 8B10 mov edx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_54 | 0080510B FF5254 call dword ptr [edx+$54] 0080510E DC4DCC fmul qword ptr [ebp-$34] 00805111 8D45D4 lea eax, [ebp-$2C] * Reference to: Variants.@VarFromReal; | 00805114 E8733CC1FF call 00418D8C 00805119 8D45D4 lea eax, [ebp-$2C] 0080511C 50 push eax * Possible String Reference to: 'Money' | 0080511D BAC4528000 mov edx, $008052C4 00805122 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00805124 E88B1ACCFF call 004C6BB4 00805129 5A pop edx 0080512A 8B08 mov ecx, [eax] * Reference to method TClientDataSet.DestroyFields() | 0080512C FF91B4000000 call dword ptr [ecx+$00B4] * Reference to control TfrmFKCR.ADOQueryCmd : TADOQuery | 00805132 8B9E0C030000 mov ebx, [esi+$030C] 00805138 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 0080513A E89507CCFF call 004C58D4 0080513F 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00805141 E8668ECDFF call 004DDFAC 00805146 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 00805148 FF5244 call dword ptr [edx+$44] 0080514B 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0080514D E85A8ECDFF call 004DDFAC * Possible String Reference to: 'UPdate YF_Money_CR ' | 00805152 BAD4528000 mov edx, $008052D4 00805157 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 00805159 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ' Set Price='' | 0080515C 68F0528000 push $008052F0 00805161 8D55C4 lea edx, [ebp-$3C] 00805164 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 00805167 E88057C0FF call 0040A8EC 0080516C FF75C4 push dword ptr [ebp-$3C] 0080516F 6808538000 push $00805308 00805174 8D45C8 lea eax, [ebp-$38] 00805177 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 0080517C E83305C0FF call 004056B4 00805181 8B45C8 mov eax, [ebp-$38] 00805184 50 push eax 00805185 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00805187 E8208ECDFF call 004DDFAC 0080518C 5A pop edx 0080518D 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 0080518F FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ',Money='' | 00805192 6814538000 push $00805314 * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 00805197 8B8664030000 mov eax, [esi+$0364] * Possible String Reference to: 'Money' | 0080519D BAC4528000 mov edx, $008052C4 * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 008051A2 E80D1ACCFF call 004C6BB4 008051A7 8D55B8 lea edx, [ebp-$48] 008051AA 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 008051AC FF5160 call dword ptr [ecx+$60] 008051AF 8B45B8 mov eax, [ebp-$48] 008051B2 8D55BC lea edx, [ebp-$44] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 008051B5 E83257C0FF call 0040A8EC 008051BA FF75BC push dword ptr [ebp-$44] 008051BD 6808538000 push $00805308 008051C2 8D45C0 lea eax, [ebp-$40] 008051C5 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 008051CA E8E504C0FF call 004056B4 008051CF 8B45C0 mov eax, [ebp-$40] 008051D2 50 push eax 008051D3 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 008051D5 E8D28DCDFF call 004DDFAC 008051DA 5A pop edx 008051DB 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 008051DD FF5138 call dword ptr [ecx+$38] 008051E0 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 008051E2 E8C58DCDFF call 004DDFAC * Possible String Reference to: ',Edittime=getdate() ' | 008051E7 BA28538000 mov edx, $00805328 008051EC 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 008051EE FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ' where YFId='' | 008051F1 6848538000 push $00805348 * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 008051F6 8B8664030000 mov eax, [esi+$0364] * Possible String Reference to: 'YFId' | 008051FC BA60538000 mov edx, $00805360 * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00805201 E8AE19CCFF call 004C6BB4 00805206 8D55AC lea edx, [ebp-$54] 00805209 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 0080520B FF5160 call dword ptr [ecx+$60] 0080520E 8B45AC mov eax, [ebp-$54] 00805211 8D55B0 lea edx, [ebp-$50] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 00805214 E8D356C0FF call 0040A8EC 00805219 FF75B0 push dword ptr [ebp-$50] 0080521C 6808538000 push $00805308 00805221 8D45B4 lea eax, [ebp-$4C] 00805224 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 00805229 E88604C0FF call 004056B4 0080522E 8B45B4 mov eax, [ebp-$4C] 00805231 50 push eax 00805232 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00805234 E8738DCDFF call 004DDFAC 00805239 5A pop edx 0080523A 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 0080523C FF5138 call dword ptr [ecx+$38] 0080523F 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer; | 00805241 E88E8CCDFF call 004DDED4 00805246 33C0 xor eax, eax 00805248 5A pop edx 00805249 59 pop ecx 0080524A 59 pop ecx 0080524B 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '^[嬪]' | 0080524E 688D528000 push $0080528D 00805253 8D45AC lea eax, [ebp-$54] 00805256 BA08000000 mov edx, $00000008 * Reference to: System.@LStrArrayClr(void;void;Integer); | 0080525B E8E800C0FF call 00405348 00805260 8D45D4 lea eax, [ebp-$2C] * Reference to: Variants.@VarClr(TVarData;TVarData); | 00805263 E80CF4C0FF call 00414674 00805268 8D45E4 lea eax, [ebp-$1C] * Reference to: System.@LStrClr(void;void); | 0080526B E8B400C0FF call 00405324 00805270 8D45E8 lea eax, [ebp-$18] * Reference to: Variants.@VarClr(TVarData;TVarData); | 00805273 E8FCF3C0FF call 00414674 00805278 8D45F8 lea eax, [ebp-$08] 0080527B BA02000000 mov edx, $00000002 * Reference to: System.@LStrArrayClr(void;void;Integer); | 00805280 E8C300C0FF call 00405348 00805285 C3 ret * Reference to: System.@HandleFinally; | 00805286 E969F8BFFF jmp 00404AF4 0080528B EBC6 jmp 00805253 ****** END | 0080528D 5E pop esi 0080528E 5B pop ebx 0080528F 8BE5 mov esp, ebp 00805291 5D pop ebp 00805292 C3 ret *) end; procedure TfrmFKCR.v2SQPerponPropertiesButtonClick(Sender : TObject); begin (* 00805368 55 push ebp 00805369 8BEC mov ebp, esp 0080536B 51 push ecx 0080536C B905000000 mov ecx, $00000005 00805371 6A00 push $00 00805373 6A00 push $00 00805375 49 dec ecx 00805376 75F9 jnz 00805371 00805378 51 push ecx 00805379 874DFC xchg [ebp-$04], ecx 0080537C 53 push ebx 0080537D 56 push esi 0080537E 8BF0 mov esi, eax 00805380 33C0 xor eax, eax 00805382 55 push ebp * Possible String Reference to: '閧蹩脬^[嬪]' | 00805383 6874558000 push $00805574 ***** TRY | 00805388 64FF30 push dword ptr fs:[eax] 0080538B 648920 mov fs:[eax], esp 0080538E 33C0 xor eax, eax 00805390 55 push ebp 00805391 684A558000 push $0080554A ***** TRY | 00805396 64FF30 push dword ptr fs:[eax] 00805399 648920 mov fs:[eax], esp *) end; procedure TfrmFKCR.TSselClick(Sender : TObject); begin (* 00805620 53 push ebx 00805621 8BD8 mov ebx, eax * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 00805623 8B8364030000 mov eax, [ebx+$0364] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 00805629 E89228CCFF call 004C7EC0 0080562E 84C0 test al, al 00805630 750A jnz 0080563C * Reference to field TfrmFKCR.ModalResult : TModalResult | 00805632 C7834C02000001000000 mov dword ptr [ebx+$024C], $00000001 0080563C 5B pop ebx 0080563D C3 ret *) end; procedure TfrmFKCR.TTJClick(Sender : TObject); begin (* 00805640 55 push ebp 00805641 8BEC mov ebp, esp 00805643 B904000000 mov ecx, $00000004 00805648 6A00 push $00 0080564A 6A00 push $00 0080564C 49 dec ecx 0080564D 75F9 jnz 00805648 0080564F 51 push ecx 00805650 53 push ebx 00805651 56 push esi 00805652 57 push edi 00805653 8945FC mov [ebp-$04], eax 00805656 33C0 xor eax, eax 00805658 55 push ebp * Possible String Reference to: '榘蚩脬_^[嬪]' | 00805659 683F588000 push $0080583F ***** TRY | 0080565E 64FF30 push dword ptr fs:[eax] 00805661 648920 mov fs:[eax], esp 00805664 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 00805667 8B8064030000 mov eax, [eax+$0364] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 0080566D E84E28CCFF call 004C7EC0 00805672 84C0 test al, al 00805674 0F85A2010000 jnz 0080581C 0080567A A050588000 mov al, byte ptr [$00805850] 0080567F 50 push eax 00805680 8D45EC lea eax, [ebp-$14] 00805683 B201 mov dl, $01 * Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean); | 00805685 E8DA36C1FF call 00418D64 0080568A 8D4DEC lea ecx, [ebp-$14] 0080568D 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 00805690 8B8064030000 mov eax, [eax+$0364] * Possible String Reference to: 'ssel' | 00805696 BA5C588000 mov edx, $0080585C 0080569B 8B18 mov ebx, [eax] * Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions) | 0080569D FF9344020000 call dword ptr [ebx+$0244] 008056A3 84C0 test al, al 008056A5 751D jnz 008056C4 008056A7 6A00 push $00 * Possible String Reference to: '提示' | 008056A9 B964588000 mov ecx, $00805864 * Possible String Reference to: '没有选择数据!' | 008056AE BA6C588000 mov edx, $0080586C *) end; procedure TfrmFKCR.TCXTJClick(Sender : TObject); begin (* 008058E8 55 push ebp 008058E9 8BEC mov ebp, esp 008058EB B904000000 mov ecx, $00000004 008058F0 6A00 push $00 008058F2 6A00 push $00 008058F4 49 dec ecx 008058F5 75F9 jnz 008058F0 008058F7 51 push ecx 008058F8 53 push ebx 008058F9 56 push esi 008058FA 57 push edi 008058FB 8945FC mov [ebp-$04], eax 008058FE 33C0 xor eax, eax 00805900 55 push ebp 00805901 68E75A8000 push $00805AE7 ***** TRY | 00805906 64FF30 push dword ptr fs:[eax] 00805909 648920 mov fs:[eax], esp 0080590C 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 0080590F 8B8064030000 mov eax, [eax+$0364] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 00805915 E8A625CCFF call 004C7EC0 0080591A 84C0 test al, al 0080591C 0F85A2010000 jnz 00805AC4 00805922 A0F85A8000 mov al, byte ptr [$00805AF8] 00805927 50 push eax 00805928 8D45EC lea eax, [ebp-$14] 0080592B B201 mov dl, $01 * Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean); | 0080592D E83234C1FF call 00418D64 00805932 8D4DEC lea ecx, [ebp-$14] 00805935 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 00805938 8B8064030000 mov eax, [eax+$0364] * Possible String Reference to: 'ssel' | 0080593E BA045B8000 mov edx, $00805B04 00805943 8B18 mov ebx, [eax] * Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions) | 00805945 FF9344020000 call dword ptr [ebx+$0244] 0080594B 84C0 test al, al 0080594D 751D jnz 0080596C 0080594F 6A00 push $00 * Possible String Reference to: '提示' | 00805951 B90C5B8000 mov ecx, $00805B0C * Possible String Reference to: '没有选择数据!' | 00805956 BA145B8000 mov edx, $00805B14 *) end; procedure TfrmFKCR.TSDADDClick(Sender : TObject); begin (* 00805B90 55 push ebp 00805B91 8BEC mov ebp, esp 00805B93 B911000000 mov ecx, $00000011 00805B98 6A00 push $00 00805B9A 6A00 push $00 00805B9C 49 dec ecx 00805B9D 75F9 jnz 00805B98 00805B9F 56 push esi 00805BA0 8945FC mov [ebp-$04], eax 00805BA3 33C0 xor eax, eax 00805BA5 55 push ebp 00805BA6 68345E8000 push $00805E34 ***** TRY | 00805BAB 64FF30 push dword ptr fs:[eax] 00805BAE 648920 mov fs:[eax], esp 00805BB1 33C0 xor eax, eax 00805BB3 55 push ebp 00805BB4 68A95D8000 push $00805DA9 ***** TRY | 00805BB9 64FF30 push dword ptr fs:[eax] 00805BBC 648920 mov fs:[eax], esp *) end; procedure TfrmFKCR.v2KPStatusPropertiesButtonClick(Sender : TObject); begin (* 00805EF4 55 push ebp 00805EF5 8BEC mov ebp, esp 00805EF7 51 push ecx 00805EF8 B905000000 mov ecx, $00000005 00805EFD 6A00 push $00 00805EFF 6A00 push $00 00805F01 49 dec ecx 00805F02 75F9 jnz 00805EFD 00805F04 51 push ecx 00805F05 874DFC xchg [ebp-$04], ecx 00805F08 53 push ebx 00805F09 56 push esi 00805F0A 8BF0 mov esi, eax 00805F0C 33C0 xor eax, eax 00805F0E 55 push ebp * Possible String Reference to: '轱榭脬^[嬪]' | 00805F0F 6800618000 push $00806100 ***** TRY | 00805F14 64FF30 push dword ptr fs:[eax] 00805F17 648920 mov fs:[eax], esp 00805F1A 33C0 xor eax, eax 00805F1C 55 push ebp 00805F1D 68D6608000 push $008060D6 ***** TRY | 00805F22 64FF30 push dword ptr fs:[eax] 00805F25 648920 mov fs:[eax], esp *) end; procedure TfrmFKCR.v2OrderNOPropertiesButtonClick(Sender : TObject); begin (* 008061B0 55 push ebp 008061B1 8BEC mov ebp, esp 008061B3 51 push ecx 008061B4 B90A000000 mov ecx, $0000000A 008061B9 6A00 push $00 008061BB 6A00 push $00 008061BD 49 dec ecx 008061BE 75F9 jnz 008061B9 008061C0 874DFC xchg [ebp-$04], ecx 008061C3 53 push ebx 008061C4 56 push esi 008061C5 8BF0 mov esi, eax 008061C7 33C0 xor eax, eax 008061C9 55 push ebp * Possible String Reference to: '闂婵胛^[嬪]' | 008061CA 6858648000 push $00806458 ***** TRY | 008061CF 64FF30 push dword ptr fs:[eax] 008061D2 648920 mov fs:[eax], esp 008061D5 33C0 xor eax, eax 008061D7 55 push ebp 008061D8 6819648000 push $00806419 ***** TRY | 008061DD 64FF30 push dword ptr fs:[eax] 008061E0 648920 mov fs:[eax], esp *) end; procedure TfrmFKCR._PROC_007FD3BD(Sender : TObject); begin (* 007FD3BD 8BEC mov ebp, esp 007FD3BF 33C9 xor ecx, ecx 007FD3C1 51 push ecx 007FD3C2 51 push ecx 007FD3C3 51 push ecx 007FD3C4 51 push ecx 007FD3C5 51 push ecx 007FD3C6 53 push ebx 007FD3C7 56 push esi 007FD3C8 8945FC mov [ebp-$04], eax 007FD3CB 33C0 xor eax, eax 007FD3CD 55 push ebp * Possible String Reference to: '檑t腚^[嬪]' | 007FD3CE 6814D67F00 push $007FD614 ***** TRY | 007FD3D3 64FF30 push dword ptr fs:[eax] 007FD3D6 648920 mov fs:[eax], esp 007FD3D9 33C0 xor eax, eax 007FD3DB 55 push ebp 007FD3DC 68F2D57F00 push $007FD5F2 ***** TRY | 007FD3E1 64FF30 push dword ptr fs:[eax] 007FD3E4 648920 mov fs:[eax], esp 007FD3E7 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.ADOQueryMain : TADOQuery | 007FD3EA 8B8020030000 mov eax, [eax+$0320] * Reference to: DB.TDataSet.DisableControls(TDataSet); | 007FD3F0 E85FA1CCFF call 004C7554 007FD3F5 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.ADOQueryMain : TADOQuery | 007FD3F8 8B9820030000 mov ebx, [eax+$0320] 007FD3FE 33D2 xor edx, edx 007FD400 8BC3 mov eax, ebx 007FD402 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_0190 | 007FD404 FF9190010000 call dword ptr [ecx+$0190] 007FD40A 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 007FD40C E8C384CCFF call 004C58D4 007FD411 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007FD413 E8940BCEFF call 004DDFAC 007FD418 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 007FD41A FF5244 call dword ptr [edx+$44] 007FD41D 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007FD41F E8880BCEFF call 004DDFAC * Possible String Reference to: ' select A.*' | 007FD424 BA2CD67F00 mov edx, $007FD62C 007FD429 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007FD42B FF5138 call dword ptr [ecx+$38] 007FD42E 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007FD430 E8770BCEFF call 004DDFAC * Possible String Reference to: ',WKFPMoney=(isnull(A.Money,0)-isnul | l(A.YKFPMoney,0))' | 007FD435 BA40D67F00 mov edx, $007FD640 007FD43A 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007FD43C FF5138 call dword ptr [ecx+$38] 007FD43F 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007FD441 E8660BCEFF call 004DDFAC * Possible String Reference to: ' from YF_Money_CR A' | 007FD446 BA80D67F00 mov edx, $007FD680 007FD44B 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007FD44D FF5138 call dword ptr [ecx+$38] 007FD450 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007FD452 E8550BCEFF call 004DDFAC * Possible String Reference to: ' inner join YF_Money_KC B on A.CRID | =B.CRID' | 007FD457 BAA0D67F00 mov edx, $007FD6A0 007FD45C 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007FD45E FF5138 call dword ptr [ecx+$38] * Possible String Reference to: 'where A.CRTime>='' | 007FD461 68D4D67F00 push $007FD6D4 007FD466 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.begdate : TDateTimePicker | 007FD469 8B8054030000 mov eax, [eax+$0354] 007FD46F FFB014020000 push dword ptr [eax+$0214] 007FD475 FFB010020000 push dword ptr [eax+$0210] 007FD47B 8D55F4 lea edx, [ebp-$0C] * Possible String Reference to: 'yyyy-MM-dd' | 007FD47E B8F0D67F00 mov eax, $007FD6F0 | 007FD483 E83417C1FF call 0040EBBC 007FD488 FF75F4 push dword ptr [ebp-$0C] * Possible String Reference to: '' ' | 007FD48B 6804D77F00 push $007FD704 007FD490 8D45F8 lea eax, [ebp-$08] 007FD493 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 007FD498 E81782C0FF call 004056B4 007FD49D 8B45F8 mov eax, [ebp-$08] 007FD4A0 50 push eax 007FD4A1 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007FD4A3 E8040BCEFF call 004DDFAC 007FD4A8 5A pop edx 007FD4A9 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007FD4AB FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ' and CRTime<'' | 007FD4AE 6810D77F00 push $007FD710 007FD4B3 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.Enddate : TDateTimePicker | 007FD4B6 8B8058030000 mov eax, [eax+$0358] 007FD4BC DD8010020000 fld qword ptr [eax+$0210] 007FD4C2 D80520D77F00 fadd dword ptr [$007FD720] 007FD4C8 83C4F8 add esp, -$08 007FD4CB DD1C24 fstp qword ptr [esp] 007FD4CE 9B wait 007FD4CF 8D55EC lea edx, [ebp-$14] * Possible String Reference to: 'yyyy-MM-dd' | 007FD4D2 B8F0D67F00 mov eax, $007FD6F0 | 007FD4D7 E8E016C1FF call 0040EBBC 007FD4DC FF75EC push dword ptr [ebp-$14] * Possible String Reference to: '' ' | 007FD4DF 6804D77F00 push $007FD704 007FD4E4 8D45F0 lea eax, [ebp-$10] 007FD4E7 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 007FD4EC E8C381C0FF call 004056B4 007FD4F1 8B45F0 mov eax, [ebp-$10] 007FD4F4 50 push eax 007FD4F5 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007FD4F7 E8B00ACEFF call 004DDFAC 007FD4FC 5A pop edx 007FD4FD 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007FD4FF FF5138 call dword ptr [ecx+$38] 007FD502 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007FD504 E8A30ACEFF call 004DDFAC * Possible String Reference to: ' and A.CRType='付款登记' ' | 007FD509 BA2CD77F00 mov edx, $007FD72C 007FD50E 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007FD510 FF5138 call dword ptr [ecx+$38] 007FD513 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.cxTabControl1 : TcxTabControl | 007FD516 8B80FC030000 mov eax, [eax+$03FC] * Reference to control ADOTemp : N.A. | 007FD51C 83B83C03000000 cmp dword ptr [eax+$033C], +$00 007FD523 7511 jnz 007FD536 007FD525 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007FD527 E8800ACEFF call 004DDFAC * Possible String Reference to: ' and A.status='0' ' | 007FD52C BA50D77F00 mov edx, $007FD750 007FD531 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007FD533 FF5138 call dword ptr [ecx+$38] 007FD536 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.cxTabControl1 : TcxTabControl | 007FD539 8B80FC030000 mov eax, [eax+$03FC] * Reference to control ADOTemp : N.A. | 007FD53F 83B83C03000001 cmp dword ptr [eax+$033C], +$01 007FD546 7511 jnz 007FD559 007FD548 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007FD54A E85D0ACEFF call 004DDFAC * Possible String Reference to: ' and A.status='1' ' | 007FD54F BA6CD77F00 mov edx, $007FD76C 007FD554 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007FD556 FF5138 call dword ptr [ecx+$38] 007FD559 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.cxTabControl1 : TcxTabControl | 007FD55C 8B80FC030000 mov eax, [eax+$03FC] * Reference to control ADOTemp : N.A. | 007FD562 83B83C03000002 cmp dword ptr [eax+$033C], +$02 007FD569 7511 jnz 007FD57C 007FD56B 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007FD56D E83A0ACEFF call 004DDFAC * Possible String Reference to: ' and A.status='2' ' | 007FD572 BA88D77F00 mov edx, $007FD788 007FD577 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007FD579 FF5138 call dword ptr [ecx+$38] 007FD57C 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Open(TDataSet); | 007FD57E E84583CCFF call 004C58C8 007FD583 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 007FD586 8B9064030000 mov edx, [eax+$0364] 007FD58C 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.ADOQueryMain : TADOQuery | 007FD58F 8B8020030000 mov eax, [eax+$0320] | 007FD595 E8F698FBFF call 007B6E90 007FD59A 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.CDS_HZ : TClientDataSet | 007FD59D 8B9064030000 mov edx, [eax+$0364] 007FD5A3 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.ADOQueryMain : TADOQuery | 007FD5A6 8B8020030000 mov eax, [eax+$0320] | 007FD5AC E8679AFBFF call 007B7018 007FD5B1 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.Label12 : TLabel | 007FD5B4 8B809C030000 mov eax, [eax+$039C] 007FD5BA BAA4D77F00 mov edx, $007FD7A4 * Reference to: Controls.TControl.SetText(TControl;TCaption); | 007FD5BF E85CB0C8FF call 00488620 007FD5C4 33C0 xor eax, eax 007FD5C6 5A pop edx 007FD5C7 59 pop ecx 007FD5C8 59 pop ecx 007FD5C9 648910 mov fs:[eax], edx ****** FINALLY | 007FD5CC 68F9D57F00 push $007FD5F9 007FD5D1 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.ADOQueryMain : TADOQuery | 007FD5D4 8B8020030000 mov eax, [eax+$0320] * Reference to: DB.TDataSet.EnableControls(TDataSet); | 007FD5DA E8959FCCFF call 004C7574 007FD5DF 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.ToolButton2 : TToolButton | 007FD5E2 8B8014030000 mov eax, [eax+$0314] 007FD5E8 66BEEBFF mov si, $FFEB * Reference to: System.@CallDynaInst; | 007FD5EC E8636FC0FF call 00404554 007FD5F1 C3 ret * Reference to: System.@HandleFinally; | 007FD5F2 E9FD74C0FF jmp 00404AF4 007FD5F7 EBD8 jmp 007FD5D1 ****** END | 007FD5F9 33C0 xor eax, eax 007FD5FB 5A pop edx 007FD5FC 59 pop ecx 007FD5FD 59 pop ecx 007FD5FE 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '^[嬪]' | 007FD601 681BD67F00 push $007FD61B 007FD606 8D45EC lea eax, [ebp-$14] 007FD609 BA04000000 mov edx, $00000004 * Reference to: System.@LStrArrayClr(void;void;Integer); | 007FD60E E8357DC0FF call 00405348 007FD613 C3 ret * Reference to: System.@HandleFinally; | 007FD614 E9DB74C0FF jmp 00404AF4 007FD619 EBEB jmp 007FD606 ****** END | 007FD61B 5E pop esi 007FD61C 5B pop ebx 007FD61D 8BE5 mov esp, ebp 007FD61F 5D pop ebp 007FD620 C3 ret *) end; procedure TfrmFKCR._PROC_007FDDA9(Sender : TObject); begin (* 007FDDA9 8BEC mov ebp, esp 007FDDAB B947000000 mov ecx, $00000047 007FDDB0 6A00 push $00 007FDDB2 6A00 push $00 007FDDB4 49 dec ecx 007FDDB5 75F9 jnz 007FDDB0 007FDDB7 51 push ecx 007FDDB8 53 push ebx 007FDDB9 56 push esi 007FDDBA 57 push edi 007FDDBB 8945FC mov [ebp-$04], eax 007FDDBE 33C0 xor eax, eax 007FDDC0 55 push ebp 007FDDC1 6898E97F00 push $007FE998 ***** TRY | 007FDDC6 64FF30 push dword ptr fs:[eax] 007FDDC9 648920 mov fs:[eax], esp 007FDDCC 33C0 xor eax, eax 007FDDCE 55 push ebp 007FDDCF 6864E77F00 push $007FE764 ***** TRY | 007FDDD4 64FF30 push dword ptr fs:[eax] 007FDDD7 648920 mov fs:[eax], esp 007FDDDA 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.ADOQueryCmd : TADOQuery | 007FDDDD 8B800C030000 mov eax, [eax+$030C] * Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection; | 007FDDE3 E844E0CDFF call 004DBE2C * Reference to: ADODB.TADOConnection.BeginTrans(TADOConnection):Integer; | 007FDDE8 E8A744CDFF call 004D2294 * Possible String Reference to: 'YF_Money_CR' | 007FDDED 68B4E97F00 push $007FE9B4 007FDDF2 6A04 push $04 007FDDF4 6A01 push $01 007FDDF6 8D55F8 lea edx, [ebp-$08] 007FDDF9 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.ADOQueryCmd : TADOQuery | 007FDDFC 8B800C030000 mov eax, [eax+$030C] * Possible String Reference to: 'FK' | 007FDE02 B9C8E97F00 mov ecx, $007FE9C8 * Reference to : TfrmSelExportField._PROC_007B7708() | 007FDE07 E8FC98FBFF call 007B7708 007FDE0C 84C0 test al, al 007FDE0E 753A jnz 007FDE4A 007FDE10 33DB xor ebx, ebx 007FDE12 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFKCR.ADOQueryCmd : TADOQuery | 007FDE15 8B800C030000 mov eax, [eax+$030C] * Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection; | 007FDE1B E80CE0CDFF call 004DBE2C * Reference to: ADODB.TADOConnection.RollbackTrans(TADOConnection); | 007FDE20 E8BB44CDFF call 004D22E0 007FDE25 6A00 push $00 * Possible String Reference to: '提示' | 007FDE27 B9CCE97F00 mov ecx, $007FE9CC * Possible String Reference to: '取最大号失败！' | 007FDE2C BAD4E97F00 mov edx, $007FE9D4 *) end; procedure TfrmFKCR._PROC_007FEA55(Sender : TObject); begin (* 007FEA55 7064 jo 007FEABB 007FEA57 61 popa 007FEA58 7465 jz 007FEABF 007FEA5A 205946 and [ecx+$46], bl 007FEA5D 5F pop edi 007FEA5E 4D dec ebp 007FEA5F 6F outsd 007FEA60 6E outsb 007FEA61 65795F jns 007FEAC3 007FEA64 43 inc ebx 007FEA65 52 push edx 007FEA66 49 dec ecx 007FEA67 44 inc esp 007FEA68 207365 and [ebx+$65], dh 007FEA6B 7420 jz 007FEA8D 007FEA6D 43 inc ebx 007FEA6E 52 push edx 007FEA6F 49 dec ecx 007FEA70 44 inc esp 007FEA71 3D43524944 cmp eax, $44495243 007FEA76 2B31 sub esi, dword ptr [ecx] 007FEA78 0000 add [eax], al 007FEA7A 0000 add [eax], al 007FEA7C FFFF DB $FF, $FF // 007FEA7E FFFF DB $FF, $FF // 007FEA80 1C00 sbb al, $00 007FEA82 0000 add [eax], al 007FEA84 7365 jnb 007FEAEB 007FEA86 6C insb 007FEA87 656374202A arpl gs:[eax+$2A], si 007FEA8C 206672 and [esi+$72], ah 007FEA8F 6F outsd 007FEA90 6D insd 007FEA91 205946 and [ecx+$46], bl 007FEA94 5F pop edi 007FEA95 4D dec ebp 007FEA96 6F outsd 007FEA97 6E outsb 007FEA98 65795F jns 007FEAFA 007FEA9B 43 inc ebx 007FEA9C 52 push edx 007FEA9D 49 dec ecx 007FEA9E 44 inc esp 007FEA9F 2000 and [eax], al 007FEAA1 0000 add [eax], al 007FEAA3 00FF add bh, bh 007FEAA5 FFFF DB $FF, $FF // 007FEAA7 FF23 jmp dword ptr [ebx] 007FEAA9 0000 add [eax], al 007FEAAB 007365 add [ebx+$65], dh 007FEAAE 6C insb 007FEAAF 656374202A arpl gs:[eax+$2A], si 007FEAB4 206672 and [esi+$72], ah 007FEAB7 6F outsd 007FEAB8 6D insd 007FEAB9 205946 and [ecx+$46], bl 007FEABC 5F pop edi 007FEABD 4D dec ebp 007FEABE 6F outsd 007FEABF 6E outsb 007FEAC0 65795F jns 007FEB22 007FEAC3 4B dec ebx 007FEAC4 43 inc ebx 007FEAC5 207768 and [edi+$68], dh 007FEAC8 657265 jb 007FEB30 007FEACB 2031 and [ecx], dh 007FEACD 3D3200FFFF cmp eax, $FFFF0032 007FEAD2 FFFF DB $FF, $FF // 007FEAD4 0900 or [eax], eax 007FEAD6 0000 add [eax], al 007FEAD8 46 inc esi 007FEAD9 61 popa 007FEADA 63746F72 arpl [edi+ebp*2+$72], si 007FEADE 794E jns 007FEB2E 007FEAE0 6F outsd 007FEAE1 0000 add [eax], al 007FEAE3 00FF add bh, bh 007FEAE5 FFFF DB $FF, $FF // 007FEAE7 FF07 inc dword ptr [edi] 007FEAE9 0000 add [eax], al 007FEAEB 005A64 add [edx+$64], bl 007FEAEE 7953 jns 007FEB43 007FEAF0 7472 jz 007FEB64 007FEAF2 3100 xor [eax], eax 007FEAF4 FFFF DB $FF, $FF // 007FEAF6 FFFF DB $FF, $FF // 007FEAF8 06 push es 007FEAF9 0000 add [eax], al 007FEAFB 00D3 add bl, dl 007FEAFD A6 cmpsb 007FEAFE B8B6B8B600 mov eax, $00B6B8B6 007FEB03 00FF add bh, bh 007FEB05 FFFF DB $FF, $FF // 007FEB07 FF23 jmp dword ptr [ebx] 007FEB09 0000 add [eax], al 007FEB0B 007365 add [ebx+$65], dh 007FEB0E 6C insb 007FEB0F 656374202A arpl gs:[eax+$2A], si 007FEB14 206672 and [esi+$72], ah 007FEB17 6F outsd 007FEB18 6D insd 007FEB19 205946 and [ecx+$46], bl 007FEB1C 5F pop edi 007FEB1D 4D dec ebp 007FEB1E 6F outsd 007FEB1F 6E outsb 007FEB20 65795F jns 007FEB82 007FEB23 43 inc ebx 007FEB24 52 push edx 007FEB25 207768 and [edi+$68], dh 007FEB28 657265 jb 007FEB90 007FEB2B 2031 and [ecx], dh 007FEB2D 3D3200FFFF cmp eax, $FFFF0032 007FEB32 FFFF DB $FF, $FF // 007FEB34 0400 add al, +$00 007FEB36 0000 add [eax], al 007FEB38 59 pop ecx 007FEB39 46 inc esi 007FEB3A 49 dec ecx 007FEB3B 44 inc esp 007FEB3C 0000 add [eax], al 007FEB3E 0000 add [eax], al 007FEB40 FFFF DB $FF, $FF // 007FEB42 FFFF DB $FF, $FF // 007FEB44 06 push es 007FEB45 0000 add [eax], al 007FEB47 004669 add [esi+$69], al 007FEB4A 6C insb 007FEB4B 6C insb 007FEB4C 657200 jb 007FEB4F 007FEB4F 00FF add bh, bh 007FEB51 FFFF DB $FF, $FF // 007FEB53 FF06 inc dword ptr [esi] 007FEB55 0000 add [eax], al 007FEB57 004352 add [ebx+$52], al 007FEB5A 54 push esp 007FEB5B 7970 jns 007FEBCD 007FEB5D 650000 add gs:[eax], al 007FEB60 FFFF DB $FF, $FF // 007FEB62 FFFF DB $FF, $FF // 007FEB64 0800 or [eax], al 007FEB66 0000 add [eax], al 007FEB68 B8B6BFEEB5 mov eax, $B5EEBFB6 007FEB6D C7BCC700000000FFFFFFFF mov dword ptr [edi+eax*8+$0000], $FFFFFFFF 007FEB78 06 push es 007FEB79 0000 add [eax], al 007FEB7B 00425A add [edx+$5A], al 007FEB7E 54 push esp 007FEB7F 7970 jns 007FEBF1 007FEB81 650000 add gs:[eax], al 007FEB84 FFFF DB $FF, $FF // 007FEB86 FFFF DB $FF, $FF // 007FEB88 0200 add al, byte ptr [eax] 007FEB8A 0000 add [eax], al 007FEB8C A3A40000FF mov dword ptr [$FF0000A4], eax 007FEB91 FFFF DB $FF, $FF // 007FEB93 FF06 inc dword ptr [esi] 007FEB95 0000 add [eax], al 007FEB97 004352 add [ebx+$52], al 007FEB9A 46 inc esi 007FEB9B 6C insb 007FEB9C 61 popa 007FEB9D 670000 add [bx+si], al 007FEBA0 FFFF DB $FF, $FF // 007FEBA2 FFFF DB $FF, $FF // 007FEBA4 07 pop es 007FEBA5 0000 add [eax], al 007FEBA7 005174 add [ecx+$74], dl 007FEBAA 7946 jns 007FEBF2 007FEBAC 6C insb 007FEBAD 61 popa 007FEBAE 6700FF add bh, bh 007FEBB1 FFFF DB $FF, $FF // 007FEBB3 FF06 inc dword ptr [esi] 007FEBB5 0000 add [eax], al 007FEBB7 005946 add [ecx+$46], bl 007FEBBA 4E dec esi 007FEBBB 61 popa 007FEBBC 6D insd 007FEBBD 650000 add gs:[eax], al 007FEBC0 FFFF DB $FF, $FF // 007FEBC2 FFFF DB $FF, $FF // 007FEBC4 0800 or [eax], al 007FEBC6 0000 add [eax], al 007FEBC8 42 inc edx 007FEBC9 61 popa 007FEBCA 6E outsb 007FEBCB 6B4E616D imul ecx, [esi+$61], $6D 007FEBCF 650000 add gs:[eax], al 007FEBD2 0000 add [eax], al 007FEBD4 FFFF DB $FF, $FF // 007FEBD6 FFFF DB $FF, $FF // 007FEBD8 06 push es 007FEBD9 0000 add [eax], al 007FEBDB 004261 add [edx+$61], al 007FEBDE 6E outsb 007FEBDF 6B4E6F00 imul ecx, [esi+$6F], $00 007FEBE3 00FF add bh, bh 007FEBE5 FFFF DB $FF, $FF // 007FEBE7 FF08 dec dword ptr [eax] 007FEBE9 0000 add [eax], al 007FEBEB 00464B add [esi+$4B], al 007FEBEE 54 push esp 007FEBEF 61 popa 007FEBF0 69546F7500000000 imul edx, [edi+ebp*2+$75], $00000000 007FEBF8 FFFF DB $FF, $FF // 007FEBFA FFFF DB $FF, $FF // 007FEBFC 06 push es 007FEBFD 0000 add [eax], al *) end; procedure TfrmFKCR._PROC_007FEEC5(Sender : TObject); begin (* 007FEEC5 50 push eax 007FEEC6 6461 popa 007FEEC8 7465 jz 007FEF2F 007FEECA 205943 and [ecx+$43], bl 007FEECD 4C dec esp 007FEECE 5F pop edi 007FEECF 53 push ebx 007FEED0 47 inc edi 007FEED1 5F pop edi 007FEED2 48 dec eax 007FEED3 5A pop edx 007FEED4 2000 and [eax], al 007FEED6 0000 add [eax], al 007FEED8 FFFF DB $FF, $FF // 007FEEDA FFFF DB $FF, $FF // 007FEEDC 0500000020 add eax, +$20000000 007FEEE1 53 push ebx 007FEEE2 657420 jz 007FEF05 007FEEE5 0000 add [eax], al 007FEEE7 00FF add bh, bh 007FEEE9 FFFF DB $FF, $FF // 007FEEEB FF02 inc dword ptr [edx] 007FEEED 0000 add [eax], al 007FEEEF 003D270000FF add [$FF000027], bh 007FEEF5 FFFF DB $FF, $FF // 007FEEF7 FF01 inc dword ptr [ecx] 007FEEF9 0000 add [eax], al 007FEEFB 0027 add [edi], ah 007FEEFD 0000 add [eax], al 007FEEFF 00FF add bh, bh 007FEF01 FFFF DB $FF, $FF // 007FEF03 FF050000003D inc dword ptr [$3D000000] 007FEF09 4E dec esi 007FEF0A 55 push ebp 007FEF0B 4C dec esp 007FEF0C 4C dec esp 007FEF0D 0000 add [eax], al 007FEF0F 00FF add bh, bh 007FEF11 FFFF DB $FF, $FF // 007FEF13 FF09 dec dword ptr [ecx] 007FEF15 0000 add [eax], al 007FEF17 002C4564697465 add [$65746964+eax*2], ch 007FEF1E 723D jb 007FEF5D 007FEF20 27 daa 007FEF21 0000 add [eax], al 007FEF23 00FF add bh, bh 007FEF25 FFFF DB $FF, $FF // 007FEF27 FF1400 call dword ptr [eax+eax] 007FEF2A 0000 add [eax], al 007FEF2C 2C45 sub al, $45 007FEF2E 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D 007FEF37 657464 jz 007FEF9E 007FEF3A 61 popa 007FEF3B 7465 jz 007FEFA2 007FEF3D 2829 sub [ecx], ch 007FEF3F 2000 and [eax], al 007FEF41 0000 add [eax], al 007FEF43 00FF add bh, bh 007FEF45 FFFF DB $FF, $FF // 007FEF47 FF0E dec dword ptr [esi] 007FEF49 0000 add [eax], al 007FEF4B 0020 add [eax], ah 007FEF4D 7768 jnbe 007FEFB7 007FEF4F 657265 jb 007FEFB7 007FEF52 205375 and [ebx+$75], dl 007FEF55 624964 bound ecx, qword ptr [ecx+$64] 007FEF58 3D270000FF cmp eax, $FF000027 007FEF5D FFFF DB $FF, $FF // 007FEF5F FF0500000053 inc dword ptr [$53000000] 007FEF65 7562 jnz 007FEFC9 007FEF67 49 dec ecx 007FEF68 640000 add fs:[eax], al 007FEF6B 00558B add [ebp-$75], dl 007FEF6E EC in al, dx 007FEF6F B91C000000 mov ecx, $0000001C 007FEF74 6A00 push $00 007FEF76 6A00 push $00 007FEF78 49 dec ecx 007FEF79 75F9 jnz 007FEF74 007FEF7B 51 push ecx 007FEF7C 53 push ebx 007FEF7D 56 push esi 007FEF7E 8BF2 mov esi, edx 007FEF80 8BD8 mov ebx, eax 007FEF82 33C0 xor eax, eax 007FEF84 55 push ebp 007FEF85 68CFF57F00 push $007FF5CF ***** TRY | 007FEF8A 64FF30 push dword ptr fs:[eax] 007FEF8D 648920 mov fs:[eax], esp 007FEF90 8D55FC lea edx, [ebp-$04] 007FEF93 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; | 007FEF95 E82207D9FF call 0058F6BC 007FEF9A 8D55DC lea edx, [ebp-$24] 007FEF9D 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FEFA0 E847B9C0FF call 0040A8EC 007FEFA5 837DDC00 cmp dword ptr [ebp-$24], +$00 007FEFA9 750D jnz 007FEFB8 007FEFAB 8D45FC lea eax, [ebp-$04] 007FEFAE BAE4F57F00 mov edx, $007FF5E4 * Reference to: System.@LStrLAsg(void;void;void;void); | 007FEFB3 E80464C0FF call 004053BC * Reference to control ADOTemp : N.A. | 007FEFB8 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; | 007FEFBE E889D3E5FF 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; | 007FEFC3 E89C2BE5FF call 00651B64 * Reference to field N.A..OFFS_0050 | 007FEFC8 8B4050 mov eax, [eax+$50] 007FEFCB 8D55D8 lea edx, [ebp-$28] 007FEFCE 8B08 mov ecx, [eax] 007FEFD0 FF5110 call dword ptr [ecx+$10] 007FEFD3 8B45D8 mov eax, [ebp-$28] 007FEFD6 8D55E0 lea edx, [ebp-$20] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FEFD9 E80EB9C0FF call 0040A8EC * Reference to control Label11 : N.A. | 007FEFDE 8BB364030000 mov esi, [ebx+$0364] 007FEFE4 8BC6 mov eax, esi * Reference to: DB.TDataSet.Edit(TDataSet); | 007FEFE6 E85594CCFF call 004C8440 007FEFEB 8D55C4 lea edx, [ebp-$3C] 007FEFEE 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FEFF1 E8F6B8C0FF call 0040A8EC 007FEFF6 8B55C4 mov edx, [ebp-$3C] 007FEFF9 8D45C8 lea eax, [ebp-$38] * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 007FEFFC E8C79DC1FF call 00418DC8 007FF001 8D45C8 lea eax, [ebp-$38] 007FF004 50 push eax 007FF005 8B55E0 mov edx, [ebp-$20] 007FF008 8BC6 mov eax, esi * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007FF00A E8A57BCCFF call 004C6BB4 007FF00F 5A pop edx 007FF010 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_00B4 | 007FF012 FF91B4000000 call dword ptr [ecx+$00B4] 007FF018 8BC6 mov eax, esi 007FF01A 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_024C | 007FF01C FF924C020000 call dword ptr [edx+$024C] * Reference to control Label3 : TLabel | 007FF022 8BB308030000 mov esi, [ebx+$0308] 007FF028 8BC6 mov eax, esi * Reference to: DB.TDataSet.Close(TDataSet); | 007FF02A E8A568CCFF call 004C58D4 007FF02F 8BC6 mov eax, esi * Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass; | or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu; | 007FF031 E876EFCDFF call 004DDFAC 007FF036 8B10 mov edx, [eax] * Reference to method TLabel.GetClientRect() | 007FF038 FF5244 call dword ptr [edx+$44] * Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr | om YF_Money_CR where YFID='' | 007FF03B 68F0F57F00 push $007FF5F0 * Possible String Reference to: 'YFID' | 007FF040 BA38F67F00 mov edx, $007FF638 * Reference to control Label11 : N.A. | 007FF045 8B8364030000 mov eax, [ebx+$0364] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007FF04B E8647BCCFF call 004C6BB4 007FF050 8D55BC lea edx, [ebp-$44] 007FF053 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_60 | 007FF055 FF5160 call dword ptr [ecx+$60] 007FF058 FF75BC push dword ptr [ebp-$44] 007FF05B 6848F67F00 push $007FF648 007FF060 8D45C0 lea eax, [ebp-$40] 007FF063 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 007FF068 E84766C0FF call 004056B4 007FF06D 8B45C0 mov eax, [ebp-$40] 007FF070 50 push eax 007FF071 8BC6 mov eax, esi * Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass; | or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu; | 007FF073 E834EFCDFF call 004DDFAC 007FF078 5A pop edx 007FF079 8B08 mov ecx, [eax] * Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer) | 007FF07B FF5138 call dword ptr [ecx+$38] 007FF07E 8BC6 mov eax, esi * Reference to: DB.TDataSet.Open(TDataSet); | 007FF080 E84368CCFF call 004C58C8 * Possible String Reference to: 'BBMoney' | 007FF085 BA54F67F00 mov edx, $007FF654 * Reference to control Label3 : TLabel | 007FF08A 8B8308030000 mov eax, [ebx+$0308] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007FF090 E81F7BCCFF call 004C6BB4 007FF095 8D55E4 lea edx, [ebp-$1C] 007FF098 8B08 mov ecx, [eax] * Reference to method TLabel.SetDragMode(TDragMode) | 007FF09A FF5160 call dword ptr [ecx+$60] * Possible String Reference to: 'Qty' | 007FF09D BA64F67F00 mov edx, $007FF664 * Reference to control Label11 : N.A. | 007FF0A2 8B8364030000 mov eax, [ebx+$0364] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007FF0A8 E8077BCCFF call 004C6BB4 007FF0AD 8D55B8 lea edx, [ebp-$48] 007FF0B0 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_60 | 007FF0B2 FF5160 call dword ptr [ecx+$60] 007FF0B5 8B45B8 mov eax, [ebp-$48] 007FF0B8 8D55F8 lea edx, [ebp-$08] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF0BB E82CB8C0FF call 0040A8EC 007FF0C0 8D55B4 lea edx, [ebp-$4C] 007FF0C3 8B45F8 mov eax, [ebp-$08] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF0C6 E821B8C0FF call 0040A8EC 007FF0CB 837DB400 cmp dword ptr [ebp-$4C], +$00 007FF0CF 750D jnz 007FF0DE 007FF0D1 8D45F8 lea eax, [ebp-$08] 007FF0D4 BAE4F57F00 mov edx, $007FF5E4 * Reference to: System.@LStrLAsg(void;void;void;void); | 007FF0D9 E8DE62C0FF call 004053BC * Possible String Reference to: 'Price' | 007FF0DE BA70F67F00 mov edx, $007FF670 * Reference to control Label11 : N.A. | 007FF0E3 8B8364030000 mov eax, [ebx+$0364] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007FF0E9 E8C67ACCFF call 004C6BB4 007FF0EE 8D55B0 lea edx, [ebp-$50] 007FF0F1 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_60 | 007FF0F3 FF5160 call dword ptr [ecx+$60] 007FF0F6 8B45B0 mov eax, [ebp-$50] 007FF0F9 8D55F4 lea edx, [ebp-$0C] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF0FC E8EBB7C0FF call 0040A8EC 007FF101 8D55AC lea edx, [ebp-$54] 007FF104 8B45F4 mov eax, [ebp-$0C] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF107 E8E0B7C0FF call 0040A8EC 007FF10C 837DAC00 cmp dword ptr [ebp-$54], +$00 007FF110 750D jnz 007FF11F 007FF112 8D45F4 lea eax, [ebp-$0C] 007FF115 BAE4F57F00 mov edx, $007FF5E4 * Reference to: System.@LStrLAsg(void;void;void;void); | 007FF11A E89D62C0FF call 004053BC * Possible String Reference to: 'Qty' | 007FF11F BA64F67F00 mov edx, $007FF664 * Reference to control Label11 : N.A. | 007FF124 8B8364030000 mov eax, [ebx+$0364] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007FF12A E8857ACCFF call 004C6BB4 007FF12F 8D55A8 lea edx, [ebp-$58] 007FF132 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_60 | 007FF134 FF5160 call dword ptr [ecx+$60] 007FF137 8B45A8 mov eax, [ebp-$58] 007FF13A 8D55F8 lea edx, [ebp-$08] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF13D E8AAB7C0FF call 0040A8EC 007FF142 8D55A4 lea edx, [ebp-$5C] 007FF145 8B45F8 mov eax, [ebp-$08] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF148 E89FB7C0FF call 0040A8EC 007FF14D 837DA400 cmp dword ptr [ebp-$5C], +$00 007FF151 750D jnz 007FF160 007FF153 8D45F8 lea eax, [ebp-$08] 007FF156 BAE4F57F00 mov edx, $007FF5E4 * Reference to: System.@LStrLAsg(void;void;void;void); | 007FF15B E85C62C0FF call 004053BC * Possible String Reference to: 'Money' | 007FF160 BA80F67F00 mov edx, $007FF680 * Reference to control Label11 : N.A. | 007FF165 8B8364030000 mov eax, [ebx+$0364] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007FF16B E8447ACCFF call 004C6BB4 007FF170 8D55A0 lea edx, [ebp-$60] 007FF173 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_60 | 007FF175 FF5160 call dword ptr [ecx+$60] 007FF178 8B45A0 mov eax, [ebp-$60] 007FF17B 8D55F0 lea edx, [ebp-$10] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF17E E869B7C0FF call 0040A8EC 007FF183 8D559C lea edx, [ebp-$64] 007FF186 8B45F0 mov eax, [ebp-$10] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF189 E85EB7C0FF call 0040A8EC 007FF18E 837D9C00 cmp dword ptr [ebp-$64], +$00 007FF192 750D jnz 007FF1A1 007FF194 8D45F0 lea eax, [ebp-$10] 007FF197 BAE4F57F00 mov edx, $007FF5E4 * Reference to: System.@LStrLAsg(void;void;void;void); | 007FF19C E81B62C0FF call 004053BC * Possible String Reference to: 'HuiLv' | 007FF1A1 BA90F67F00 mov edx, $007FF690 * Reference to control Label11 : N.A. | 007FF1A6 8B8364030000 mov eax, [ebx+$0364] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007FF1AC E8037ACCFF call 004C6BB4 007FF1B1 8D5598 lea edx, [ebp-$68] 007FF1B4 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_60 | 007FF1B6 FF5160 call dword ptr [ecx+$60] 007FF1B9 8B4598 mov eax, [ebp-$68] 007FF1BC 8D55EC lea edx, [ebp-$14] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF1BF E828B7C0FF call 0040A8EC 007FF1C4 8D5594 lea edx, [ebp-$6C] 007FF1C7 8B45EC mov eax, [ebp-$14] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF1CA E81DB7C0FF call 0040A8EC 007FF1CF 837D9400 cmp dword ptr [ebp-$6C], +$00 007FF1D3 750D jnz 007FF1E2 007FF1D5 8D45EC lea eax, [ebp-$14] 007FF1D8 BAE4F57F00 mov edx, $007FF5E4 * Reference to: System.@LStrLAsg(void;void;void;void); | 007FF1DD E8DA61C0FF call 004053BC 007FF1E2 8D5590 lea edx, [ebp-$70] 007FF1E5 8B45E0 mov eax, [ebp-$20] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF1E8 E8FFB6C0FF call 0040A8EC 007FF1ED 8B4590 mov eax, [ebp-$70] * Possible String Reference to: 'Money' | 007FF1F0 BA80F67F00 mov edx, $007FF680 * Reference to: System.@LStrCmp; | 007FF1F5 E84665C0FF call 00405740 007FF1FA 0F84AD000000 jz 007FF2AD 007FF200 8D558C lea edx, [ebp-$74] 007FF203 8B45E0 mov eax, [ebp-$20] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF206 E8E1B6C0FF call 0040A8EC 007FF20B 8B458C mov eax, [ebp-$74] * Possible String Reference to: 'HuiLv' | 007FF20E BA90F67F00 mov edx, $007FF690 * Reference to: System.@LStrCmp; | 007FF213 E82865C0FF call 00405740 007FF218 7469 jz 007FF283 007FF21A 8B45F8 mov eax, [ebp-$08] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 007FF21D E80AE5C0FF call 0040D72C 007FF222 DB7D80 fstp tbyte ptr [ebp-$80] 007FF225 9B wait 007FF226 8B45F4 mov eax, [ebp-$0C] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 007FF229 E8FEE4C0FF call 0040D72C 007FF22E DB6D80 fld tbyte ptr [ebp-$80] 007FF231 DEC9 fmulp st(1), st(0) 007FF233 DBBD74FFFFFF fstp tbyte ptr [ebp+$FFFFFF74] 007FF239 9B wait 007FF23A 8B45EC mov eax, [ebp-$14] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 007FF23D E8EAE4C0FF call 0040D72C 007FF242 DBAD74FFFFFF fld tbyte ptr [ebp+$FFFFFF74] 007FF248 DEC9 fmulp st(1), st(0) 007FF24A 83C4F4 add esp, -$0C 007FF24D DB3C24 fstp tbyte ptr [esp] 007FF250 9B wait 007FF251 8D45E8 lea eax, [ebp-$18] | 007FF254 E853E3C0FF call 0040D5AC 007FF259 8B45F8 mov eax, [ebp-$08] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 007FF25C E8CBE4C0FF call 0040D72C 007FF261 DB7D80 fstp tbyte ptr [ebp-$80] 007FF264 9B wait 007FF265 8B45F4 mov eax, [ebp-$0C] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 007FF268 E8BFE4C0FF call 0040D72C 007FF26D DB6D80 fld tbyte ptr [ebp-$80] 007FF270 DEC9 fmulp st(1), st(0) 007FF272 83C4F4 add esp, -$0C 007FF275 DB3C24 fstp tbyte ptr [esp] 007FF278 9B wait 007FF279 8D45F0 lea eax, [ebp-$10] | 007FF27C E82BE3C0FF call 0040D5AC 007FF281 EB52 jmp 007FF2D5 007FF283 8B45F0 mov eax, [ebp-$10] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 007FF286 E8A1E4C0FF call 0040D72C 007FF28B DB7D80 fstp tbyte ptr [ebp-$80] 007FF28E 9B wait 007FF28F 8B45EC mov eax, [ebp-$14] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 007FF292 E895E4C0FF call 0040D72C 007FF297 DB6D80 fld tbyte ptr [ebp-$80] 007FF29A DEC9 fmulp st(1), st(0) 007FF29C 83C4F4 add esp, -$0C 007FF29F DB3C24 fstp tbyte ptr [esp] 007FF2A2 9B wait 007FF2A3 8D45E8 lea eax, [ebp-$18] | 007FF2A6 E801E3C0FF call 0040D5AC 007FF2AB EB28 jmp 007FF2D5 007FF2AD 8B45F0 mov eax, [ebp-$10] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 007FF2B0 E877E4C0FF call 0040D72C 007FF2B5 DB7D80 fstp tbyte ptr [ebp-$80] 007FF2B8 9B wait 007FF2B9 8B45EC mov eax, [ebp-$14] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 007FF2BC E86BE4C0FF call 0040D72C 007FF2C1 DB6D80 fld tbyte ptr [ebp-$80] 007FF2C4 DEC9 fmulp st(1), st(0) 007FF2C6 83C4F4 add esp, -$0C 007FF2C9 DB3C24 fstp tbyte ptr [esp] 007FF2CC 9B wait 007FF2CD 8D45E8 lea eax, [ebp-$18] | 007FF2D0 E8D7E2C0FF call 0040D5AC * Reference to control Label11 : N.A. | 007FF2D5 8BB364030000 mov esi, [ebx+$0364] 007FF2DB 8BC6 mov eax, esi * Reference to: DB.TDataSet.Edit(TDataSet); | 007FF2DD E85E91CCFF call 004C8440 * Possible String Reference to: 'Money' | 007FF2E2 BA80F67F00 mov edx, $007FF680 007FF2E7 8BC6 mov eax, esi * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007FF2E9 E8C678CCFF call 004C6BB4 007FF2EE 50 push eax 007FF2EF 8B45F0 mov eax, [ebp-$10] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 007FF2F2 E835E4C0FF call 0040D72C 007FF2F7 8D8564FFFFFF lea eax, [ebp+$FFFFFF64] * Reference to: Variants.@VarFromReal; | 007FF2FD E88A9AC1FF call 00418D8C 007FF302 8D9564FFFFFF lea edx, [ebp+$FFFFFF64] 007FF308 58 pop eax 007FF309 8B08 mov ecx, [eax] 007FF30B FF91B4000000 call dword ptr [ecx+$00B4] * Possible String Reference to: 'BBMoney' | 007FF311 BA54F67F00 mov edx, $007FF654 007FF316 8BC6 mov eax, esi * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007FF318 E89778CCFF call 004C6BB4 007FF31D 50 push eax 007FF31E 8B45E8 mov eax, [ebp-$18] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 007FF321 E806E4C0FF call 0040D72C 007FF326 8D8554FFFFFF lea eax, [ebp+$FFFFFF54] * Reference to: Variants.@VarFromReal; | 007FF32C E85B9AC1FF call 00418D8C 007FF331 8D9554FFFFFF lea edx, [ebp+$FFFFFF54] 007FF337 58 pop eax 007FF338 8B08 mov ecx, [eax] 007FF33A FF91B4000000 call dword ptr [ecx+$00B4] 007FF340 8BC6 mov eax, esi 007FF342 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_024C | 007FF344 FF924C020000 call dword ptr [edx+$024C] * Reference to control OrdDate : N.A. | 007FF34A 8BB30C030000 mov esi, [ebx+$030C] 007FF350 8BC6 mov eax, esi * Reference to: DB.TDataSet.Close(TDataSet); | 007FF352 E87D65CCFF call 004C58D4 007FF357 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; | 007FF359 E84EECCDFF call 004DDFAC 007FF35E 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_44 | 007FF360 FF5244 call dword ptr [edx+$44] 007FF363 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; | 007FF365 E842ECCDFF call 004DDFAC * Possible String Reference to: 'UPdate YF_Money_CR ' | 007FF36A BAA0F67F00 mov edx, $007FF6A0 007FF36F 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 007FF371 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ' Set ' | 007FF374 68BCF67F00 push $007FF6BC 007FF379 FF75E0 push dword ptr [ebp-$20] 007FF37C 68CCF67F00 push $007FF6CC 007FF381 8D954CFFFFFF lea edx, [ebp+$FFFFFF4C] 007FF387 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF38A E85DB5C0FF call 0040A8EC 007FF38F FFB54CFFFFFF push dword ptr [ebp+$FFFFFF4C] 007FF395 8D8550FFFFFF lea eax, [ebp+$FFFFFF50] 007FF39B BA04000000 mov edx, $00000004 * Reference to: System.@LStrCatN; | 007FF3A0 E80F63C0FF call 004056B4 007FF3A5 8B8550FFFFFF mov eax, [ebp+$FFFFFF50] 007FF3AB 50 push eax 007FF3AC 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; | 007FF3AE E8F9EBCDFF call 004DDFAC 007FF3B3 5A pop edx 007FF3B4 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 007FF3B6 FF5138 call dword ptr [ecx+$38] 007FF3B9 8D9548FFFFFF lea edx, [ebp+$FFFFFF48] 007FF3BF 8B45E0 mov eax, [ebp-$20] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF3C2 E825B5C0FF call 0040A8EC 007FF3C7 8B8548FFFFFF mov eax, [ebp+$FFFFFF48] * Possible String Reference to: 'Money' | 007FF3CD BA80F67F00 mov edx, $007FF680 * Reference to: System.@LStrCmp; | 007FF3D2 E86963C0FF call 00405740 007FF3D7 7427 jz 007FF400 007FF3D9 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; | 007FF3DB E8CCEBCDFF call 004DDFAC 007FF3E0 50 push eax 007FF3E1 8D8544FFFFFF lea eax, [ebp+$FFFFFF44] 007FF3E7 8B4DF0 mov ecx, [ebp-$10] * Possible String Reference to: ',Money=' | 007FF3EA BAD8F67F00 mov edx, $007FF6D8 * Reference to: System.@LStrCat3; | 007FF3EF E84C62C0FF call 00405640 007FF3F4 8B9544FFFFFF mov edx, [ebp+$FFFFFF44] 007FF3FA 58 pop eax 007FF3FB 8B08 mov ecx, [eax] 007FF3FD FF5138 call dword ptr [ecx+$38] 007FF400 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; | 007FF402 E8A5EBCDFF call 004DDFAC 007FF407 50 push eax 007FF408 8D8540FFFFFF lea eax, [ebp+$FFFFFF40] 007FF40E 8B4DE8 mov ecx, [ebp-$18] * Possible String Reference to: ',BBMoney=' | 007FF411 BAE8F67F00 mov edx, $007FF6E8 * Reference to: System.@LStrCat3; | 007FF416 E82562C0FF call 00405640 007FF41B 8B9540FFFFFF mov edx, [ebp+$FFFFFF40] 007FF421 58 pop eax 007FF422 8B08 mov ecx, [eax] 007FF424 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ',Editer='' | 007FF427 68FCF67F00 push $007FF6FC 007FF42C 8D9538FFFFFF lea edx, [ebp+$FFFFFF38] *) end; procedure TfrmFKCR._PROC_007FF6A1(Sender : TObject); begin (* 007FF6A1 50 push eax 007FF6A2 6461 popa 007FF6A4 7465 jz 007FF70B 007FF6A6 205946 and [ecx+$46], bl 007FF6A9 5F pop edi 007FF6AA 4D dec ebp 007FF6AB 6F outsd 007FF6AC 6E outsb 007FF6AD 65795F jns 007FF70F 007FF6B0 43 inc ebx 007FF6B1 52 push edx 007FF6B2 2000 and [eax], al 007FF6B4 FFFF DB $FF, $FF // 007FF6B6 FFFF DB $FF, $FF // 007FF6B8 0500000020 add eax, +$20000000 007FF6BD 53 push ebx 007FF6BE 657420 jz 007FF6E1 007FF6C1 0000 add [eax], al 007FF6C3 00FF add bh, bh 007FF6C5 FFFF DB $FF, $FF // 007FF6C7 FF01 inc dword ptr [ecx] 007FF6C9 0000 add [eax], al 007FF6CB 003D000000FF add [$FF000000], bh 007FF6D1 FFFF DB $FF, $FF // 007FF6D3 FF07 inc dword ptr [edi] 007FF6D5 0000 add [eax], al 007FF6D7 002C4D6F6E6579 add [$79656E6F+ecx*2], ch 007FF6DE 3D00FFFFFF cmp eax, $FFFFFF00 007FF6E3 FF09 dec dword ptr [ecx] 007FF6E5 0000 add [eax], al 007FF6E7 002C42 add [edx+eax*2], ch 007FF6EA 42 inc edx 007FF6EB 4D dec ebp 007FF6EC 6F outsd 007FF6ED 6E outsb 007FF6EE 65793D jns 007FF72E 007FF6F1 0000 add [eax], al 007FF6F3 00FF add bh, bh 007FF6F5 FFFF DB $FF, $FF // 007FF6F7 FF09 dec dword ptr [ecx] 007FF6F9 0000 add [eax], al 007FF6FB 002C4564697465 add [$65746964+eax*2], ch 007FF702 723D jb 007FF741 007FF704 27 daa 007FF705 0000 add [eax], al 007FF707 00FF add bh, bh 007FF709 FFFF DB $FF, $FF // 007FF70B FF1400 call dword ptr [eax+eax] 007FF70E 0000 add [eax], al 007FF710 2C45 sub al, $45 007FF712 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D 007FF71B 657464 jz 007FF782 007FF71E 61 popa 007FF71F 7465 jz 007FF786 007FF721 2829 sub [ecx], ch 007FF723 2000 and [eax], al 007FF725 0000 add [eax], al 007FF727 00FF add bh, bh 007FF729 FFFF DB $FF, $FF // 007FF72B FF0D00000020 dec dword ptr [$20000000] 007FF731 7768 jnbe 007FF79B 007FF733 657265 jb 007FF79B 007FF736 205946 and [ecx+$46], bl 007FF739 49 dec ecx 007FF73A 643D27000000 cmp eax, $00000027 007FF740 FFFF DB $FF, $FF // 007FF742 FFFF DB $FF, $FF // 007FF744 0400 add al, +$00 007FF746 0000 add [eax], al 007FF748 59 pop ecx 007FF749 46 inc esi 007FF74A 49 dec ecx 007FF74B 640000 add fs:[eax], al 007FF74E 0000 add [eax], al 007FF750 FFFF DB $FF, $FF // 007FF752 FFFF DB $FF, $FF // 007FF754 2B00 sub eax, dword ptr [eax] 007FF756 0000 add [eax], al 007FF758 55 push ebp 007FF759 7064 jo 007FF7BF 007FF75B 61 popa 007FF75C 7465 jz 007FF7C3 007FF75E 205946 and [ecx+$46], bl 007FF761 5F pop edi 007FF762 4D dec ebp 007FF763 6F outsd 007FF764 6E outsb 007FF765 65795F jns 007FF7C7 007FF768 4B dec ebx 007FF769 43 inc ebx 007FF76A 205365 and [ebx+$65], dl 007FF76D 7420 jz 007FF78F 007FF76F 4B dec ebx 007FF770 43 inc ebx 007FF771 42 inc edx 007FF772 42 inc edx 007FF773 4D dec ebp 007FF774 6F outsd 007FF775 6E outsb 007FF776 65793D jns 007FF7B6 007FF779 4B dec ebx 007FF77A 43 inc ebx 007FF77B 42 inc edx 007FF77C 42 inc edx 007FF77D 4D dec ebp 007FF77E 6F outsd 007FF77F 6E outsb 007FF780 65792D jns 007FF7B0 007FF783 00FF add bh, bh 007FF785 FFFF DB $FF, $FF // 007FF787 FF01 inc dword ptr [ecx] 007FF789 0000 add [eax], al 007FF78B 002B add [ebx], ch 007FF78D 0000 add [eax], al 007FF78F 00FF add bh, bh 007FF791 FFFF DB $FF, $FF // 007FF793 FF0D00000020 dec dword ptr [$20000000] 007FF799 7768 jnbe 007FF803 007FF79B 657265 jb 007FF803 007FF79E 204352 and [ebx+$52], al 007FF7A1 49 dec ecx 007FF7A2 44 inc esp 007FF7A3 3D27000000 cmp eax, $00000027 007FF7A8 FFFF DB $FF, $FF // 007FF7AA FFFF DB $FF, $FF // 007FF7AC 0400 add al, +$00 007FF7AE 0000 add [eax], al 007FF7B0 43 inc ebx 007FF7B1 52 push edx 007FF7B2 49 dec ecx 007FF7B3 44 inc esp 007FF7B4 0000 add [eax], al 007FF7B6 0000 add [eax], al 007FF7B8 55 push ebp 007FF7B9 8BEC mov ebp, esp 007FF7BB B908000000 mov ecx, $00000008 007FF7C0 6A00 push $00 007FF7C2 6A00 push $00 007FF7C4 49 dec ecx 007FF7C5 75F9 jnz 007FF7C0 007FF7C7 51 push ecx 007FF7C8 53 push ebx 007FF7C9 56 push esi 007FF7CA 8BDA mov ebx, edx 007FF7CC 8BF0 mov esi, eax 007FF7CE 33C0 xor eax, eax 007FF7D0 55 push ebp * Possible String Reference to: ')Q胫^[嬪]' | 007FF7D1 68C6F97F00 push $007FF9C6 ***** TRY | 007FF7D6 64FF30 push dword ptr fs:[eax] 007FF7D9 648920 mov fs:[eax], esp 007FF7DC 8D55FC lea edx, [ebp-$04] 007FF7DF 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; | 007FF7E1 E8D6FED8FF call 0058F6BC * Reference to control ADOTemp : N.A. | 007FF7E6 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; | 007FF7EC E85BCBE5FF 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; | 007FF7F1 E86E23E5FF call 00651B64 * Reference to field N.A..OFFS_0050 | 007FF7F6 8B4050 mov eax, [eax+$50] 007FF7F9 8D55F4 lea edx, [ebp-$0C] 007FF7FC 8B08 mov ecx, [eax] 007FF7FE FF5110 call dword ptr [ecx+$10] 007FF801 8B45F4 mov eax, [ebp-$0C] 007FF804 8D55F8 lea edx, [ebp-$08] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF807 E8E0B0C0FF call 0040A8EC * Reference to control Label11 : N.A. | 007FF80C 8B9E64030000 mov ebx, [esi+$0364] 007FF812 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Edit(TDataSet); | 007FF814 E8278CCCFF call 004C8440 007FF819 8D55E0 lea edx, [ebp-$20] 007FF81C 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF81F E8C8B0C0FF call 0040A8EC 007FF824 8B55E0 mov edx, [ebp-$20] 007FF827 8D45E4 lea eax, [ebp-$1C] * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 007FF82A E89995C1FF call 00418DC8 007FF82F 8D45E4 lea eax, [ebp-$1C] 007FF832 50 push eax 007FF833 8B55F8 mov edx, [ebp-$08] 007FF836 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007FF838 E87773CCFF call 004C6BB4 007FF83D 5A pop edx 007FF83E 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_00B4 | 007FF840 FF91B4000000 call dword ptr [ecx+$00B4] 007FF846 8BC3 mov eax, ebx 007FF848 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_024C | 007FF84A FF924C020000 call dword ptr [edx+$024C] * Reference to control OrdDate : N.A. | 007FF850 8B9E0C030000 mov ebx, [esi+$030C] 007FF856 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 007FF858 E87760CCFF call 004C58D4 007FF85D 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; | 007FF85F E848E7CDFF call 004DDFAC 007FF864 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_44 | 007FF866 FF5244 call dword ptr [edx+$44] 007FF869 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; | 007FF86B E83CE7CDFF call 004DDFAC * Possible String Reference to: 'UPdate YF_Money_CR ' | 007FF870 BADCF97F00 mov edx, $007FF9DC 007FF875 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 007FF877 FF5138 call dword ptr [ecx+$38] 007FF87A 8D55DC lea edx, [ebp-$24] 007FF87D 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF880 E867B0C0FF call 0040A8EC 007FF885 837DDC00 cmp dword ptr [ebp-$24], +$00 007FF889 7440 jz 007FF8CB * Possible String Reference to: ' Set ' | 007FF88B 68F8F97F00 push $007FF9F8 007FF890 FF75F8 push dword ptr [ebp-$08] * Possible String Reference to: '='' | 007FF893 6808FA7F00 push $007FFA08 007FF898 8D55D4 lea edx, [ebp-$2C] 007FF89B 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007FF89E E849B0C0FF call 0040A8EC 007FF8A3 FF75D4 push dword ptr [ebp-$2C] 007FF8A6 6814FA7F00 push $007FFA14 007FF8AB 8D45D8 lea eax, [ebp-$28] 007FF8AE BA05000000 mov edx, $00000005 * Reference to: System.@LStrCatN; | 007FF8B3 E8FC5DC0FF call 004056B4 007FF8B8 8B45D8 mov eax, [ebp-$28] 007FF8BB 50 push eax 007FF8BC 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; | 007FF8BE E8E9E6CDFF call 004DDFAC 007FF8C3 5A pop edx 007FF8C4 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 007FF8C6 FF5138 call dword ptr [ecx+$38] 007FF8C9 EB2B jmp 007FF8F6 007FF8CB 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; | 007FF8CD E8DAE6CDFF call 004DDFAC 007FF8D2 50 push eax * Possible String Reference to: ' Set ' | 007FF8D3 68F8F97F00 push $007FF9F8 007FF8D8 FF75F8 push dword ptr [ebp-$08] * Possible String Reference to: '=NULL' | 007FF8DB 6820FA7F00 push $007FFA20 007FF8E0 8D45D0 lea eax, [ebp-$30] 007FF8E3 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 007FF8E8 E8C75DC0FF call 004056B4 007FF8ED 8B55D0 mov edx, [ebp-$30] 007FF8F0 58 pop eax 007FF8F1 8B08 mov ecx, [eax] 007FF8F3 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ',Editer='' | 007FF8F6 6830FA7F00 push $007FFA30 007FF8FB 8D55C8 lea edx, [ebp-$38] *) end; procedure TfrmFKCR._PROC_007FF9DD(Sender : TObject); begin (* 007FF9DD 50 push eax 007FF9DE 6461 popa 007FF9E0 7465 jz 007FFA47 007FF9E2 205946 and [ecx+$46], bl 007FF9E5 5F pop edi 007FF9E6 4D dec ebp 007FF9E7 6F outsd 007FF9E8 6E outsb 007FF9E9 65795F jns 007FFA4B 007FF9EC 43 inc ebx 007FF9ED 52 push edx 007FF9EE 2000 and [eax], al 007FF9F0 FFFF DB $FF, $FF // 007FF9F2 FFFF DB $FF, $FF // 007FF9F4 0500000020 add eax, +$20000000 007FF9F9 53 push ebx 007FF9FA 657420 jz 007FFA1D 007FF9FD 0000 add [eax], al 007FF9FF 00FF add bh, bh 007FFA01 FFFF DB $FF, $FF // 007FFA03 FF02 inc dword ptr [edx] 007FFA05 0000 add [eax], al 007FFA07 003D270000FF add [$FF000027], bh 007FFA0D FFFF DB $FF, $FF // 007FFA0F FF01 inc dword ptr [ecx] 007FFA11 0000 add [eax], al 007FFA13 0027 add [edi], ah 007FFA15 0000 add [eax], al 007FFA17 00FF add bh, bh 007FFA19 FFFF DB $FF, $FF // 007FFA1B FF050000003D inc dword ptr [$3D000000] 007FFA21 4E dec esi 007FFA22 55 push ebp 007FFA23 4C dec esp 007FFA24 4C dec esp 007FFA25 0000 add [eax], al 007FFA27 00FF add bh, bh 007FFA29 FFFF DB $FF, $FF // 007FFA2B FF09 dec dword ptr [ecx] 007FFA2D 0000 add [eax], al 007FFA2F 002C4564697465 add [$65746964+eax*2], ch 007FFA36 723D jb 007FFA75 007FFA38 27 daa 007FFA39 0000 add [eax], al 007FFA3B 00FF add bh, bh 007FFA3D FFFF DB $FF, $FF // 007FFA3F FF1400 call dword ptr [eax+eax] 007FFA42 0000 add [eax], al 007FFA44 2C45 sub al, $45 007FFA46 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D 007FFA4F 657464 jz 007FFAB6 007FFA52 61 popa 007FFA53 7465 jz 007FFABA 007FFA55 2829 sub [ecx], ch 007FFA57 2000 and [eax], al 007FFA59 0000 add [eax], al 007FFA5B 00FF add bh, bh 007FFA5D FFFF DB $FF, $FF // 007FFA5F FF0D00000020 dec dword ptr [$20000000] 007FFA65 7768 jnbe 007FFACF 007FFA67 657265 jb 007FFACF 007FFA6A 205946 and [ecx+$46], bl 007FFA6D 49 dec ecx 007FFA6E 643D27000000 cmp eax, $00000027 007FFA74 FFFF DB $FF, $FF // 007FFA76 FFFF DB $FF, $FF // 007FFA78 0400 add al, +$00 007FFA7A 0000 add [eax], al 007FFA7C 59 pop ecx 007FFA7D 46 inc esi 007FFA7E 49 dec ecx 007FFA7F 640000 add fs:[eax], al 007FFA82 0000 add [eax], al 007FFA84 55 push ebp 007FFA85 8BEC mov ebp, esp 007FFA87 B927000000 mov ecx, $00000027 007FFA8C 6A00 push $00 007FFA8E 6A00 push $00 007FFA90 49 dec ecx 007FFA91 75F9 jnz 007FFA8C 007FFA93 53 push ebx 007FFA94 56 push esi 007FFA95 8945FC mov [ebp-$04], eax 007FFA98 33C0 xor eax, eax 007FFA9A 55 push ebp * Possible String Reference to: '閩I殇^[嬪]' | 007FFA9B 6872018000 push $00800172 ***** TRY | 007FFAA0 64FF30 push dword ptr fs:[eax] 007FFAA3 648920 mov fs:[eax], esp 007FFAA6 33C0 xor eax, eax 007FFAA8 55 push ebp 007FFAA9 684C008000 push $0080004C ***** TRY | 007FFAAE 64FF30 push dword ptr fs:[eax] 007FFAB1 648920 mov fs:[eax], esp *) end; procedure TfrmFKCR._PROC_008006E9(Sender : TObject); begin (* 008006E9 50 push eax 008006EA 6461 popa 008006EC 7465 jz 00800753 008006EE 205946 and [ecx+$46], bl 008006F1 5F pop edi 008006F2 4D dec ebp 008006F3 6F outsd 008006F4 6E outsb 008006F5 65795F jns 00800757 008006F8 43 inc ebx 008006F9 52 push edx 008006FA 2000 and [eax], al 008006FC FFFF DB $FF, $FF // 008006FE FFFF DB $FF, $FF // 00800700 0D00000020 or eax, $20000000 00800705 53 push ebx 00800706 657420 jz 00800729 00800709 59 pop ecx 0080070A 46 inc esi 0080070B 43 inc ebx 0080070C 6F outsd 0080070D 64653D27000000 cmp eax, $00000027 00800714 FFFF DB $FF, $FF // 00800716 FFFF DB $FF, $FF // 00800718 0100 add [eax], eax 0080071A 0000 add [eax], al 0080071C 27 daa 0080071D 0000 add [eax], al 0080071F 00FF add bh, bh 00800721 FFFF DB $FF, $FF // 00800723 FF0A dec dword ptr [edx] 00800725 0000 add [eax], al 00800727 0020 add [eax], ah 00800729 2C59 sub al, $59 0080072B 46 inc esi 0080072C 4E dec esi 0080072D 61 popa 0080072E 6D insd 0080072F 653D270000FF cmp eax, $FF000027 00800735 FFFF DB $FF, $FF // 00800737 FF09 dec dword ptr [ecx] 00800739 0000 add [eax], al 0080073B 002C4564697465 add [$65746964+eax*2], ch 00800742 723D jb 00800781 00800744 27 daa 00800745 0000 add [eax], al 00800747 00FF add bh, bh 00800749 FFFF DB $FF, $FF // 0080074B FF1400 call dword ptr [eax+eax] 0080074E 0000 add [eax], al 00800750 2C45 sub al, $45 00800752 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D 0080075B 657464 jz 008007C2 0080075E 61 popa 0080075F 7465 jz 008007C6 00800761 2829 sub [ecx], ch 00800763 2000 and [eax], al 00800765 0000 add [eax], al 00800767 00FF add bh, bh 00800769 FFFF DB $FF, $FF // 0080076B FF0D00000020 dec dword ptr [$20000000] 00800771 7768 jnbe 008007DB 00800773 657265 jb 008007DB 00800776 205946 and [ecx+$46], bl 00800779 49 dec ecx 0080077A 643D27000000 cmp eax, $00000027 00800780 FFFF DB $FF, $FF // 00800782 FFFF DB $FF, $FF // 00800784 0400 add al, +$00 00800786 0000 add [eax], al 00800788 59 pop ecx 00800789 46 inc esi 0080078A 49 dec ecx 0080078B 640000 add fs:[eax], al 0080078E 0000 add [eax], al 00800790 55 push ebp 00800791 8BEC mov ebp, esp 00800793 51 push ecx 00800794 B906000000 mov ecx, $00000006 00800799 6A00 push $00 0080079B 6A00 push $00 0080079D 49 dec ecx 0080079E 75F9 jnz 00800799 008007A0 51 push ecx 008007A1 874DFC xchg [ebp-$04], ecx 008007A4 53 push ebx 008007A5 56 push esi 008007A6 8BF0 mov esi, eax 008007A8 33C0 xor eax, eax 008007AA 55 push ebp 008007AB 68E9098000 push $008009E9 ***** TRY | 008007B0 64FF30 push dword ptr fs:[eax] 008007B3 648920 mov fs:[eax], esp 008007B6 33C0 xor eax, eax 008007B8 55 push ebp 008007B9 68BF098000 push $008009BF ***** TRY | 008007BE 64FF30 push dword ptr fs:[eax] 008007C1 648920 mov fs:[eax], esp *) end; procedure TfrmFKCR._PROC_00800A06(Sender : TObject); begin (* 00800A06 6E outsb 00800A07 6974000000FFFFFF imul esi, [eax+eax+$00], $FFFFFF00 00800A0F FF08 dec dword ptr [eax] 00800A11 0000 add [eax], al *) end; procedure TfrmFKCR._PROC_00800A3C(Sender : TObject); begin (* 00800A3C 6E outsb 00800A3D 697400FFFFFFFF13 imul esi, [eax+eax-$01], $13FFFFFF 00800A45 0000 add [eax], al *) end; procedure TfrmFKCR._PROC_00800A49(Sender : TObject); begin (* 00800A49 50 push eax 00800A4A 6461 popa 00800A4C 7465 jz 00800AB3 00800A4E 205946 and [ecx+$46], bl 00800A51 5F pop edi 00800A52 4D dec ebp 00800A53 6F outsd 00800A54 6E outsb 00800A55 65795F jns 00800AB7 00800A58 43 inc ebx 00800A59 52 push edx 00800A5A 2000 and [eax], al 00800A5C FFFF DB $FF, $FF // 00800A5E FFFF DB $FF, $FF // 00800A60 0E push cs 00800A61 0000 add [eax], al 00800A63 0020 add [eax], ah 00800A65 53 push ebx 00800A66 657420 jz 00800A89 00800A69 51 push ecx 00800A6A 7479 jz 00800AE5 00800A6C 55 push ebp 00800A6D 6E outsb 00800A6E 69743D270000FFFF imul esi, [ebp+edi+$27], $FFFF0000 00800A76 FFFF DB $FF, $FF // 00800A78 07 pop es 00800A79 0000 add [eax], al 00800A7B 005A64 add [edx+$64], bl 00800A7E 794E jns 00800ACE 00800A80 61 popa 00800A81 6D insd 00800A82 6500FF add bh, bh 00800A85 FFFF DB $FF, $FF // 00800A87 FF01 inc dword ptr [ecx] 00800A89 0000 add [eax], al 00800A8B 0027 add [edi], ah 00800A8D 0000 add [eax], al 00800A8F 00FF add bh, bh 00800A91 FFFF DB $FF, $FF // 00800A93 FF09 dec dword ptr [ecx] 00800A95 0000 add [eax], al 00800A97 002C4564697465 add [$65746964+eax*2], ch 00800A9E 723D jb 00800ADD 00800AA0 27 daa 00800AA1 0000 add [eax], al 00800AA3 00FF add bh, bh 00800AA5 FFFF DB $FF, $FF // 00800AA7 FF1400 call dword ptr [eax+eax] 00800AAA 0000 add [eax], al 00800AAC 2C45 sub al, $45 00800AAE 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D 00800AB7 657464 jz 00800B1E 00800ABA 61 popa 00800ABB 7465 jz 00800B22 00800ABD 2829 sub [ecx], ch 00800ABF 2000 and [eax], al 00800AC1 0000 add [eax], al 00800AC3 00FF add bh, bh 00800AC5 FFFF DB $FF, $FF // 00800AC7 FF0D00000020 dec dword ptr [$20000000] 00800ACD 7768 jnbe 00800B37 00800ACF 657265 jb 00800B37 00800AD2 205946 and [ecx+$46], bl 00800AD5 49 dec ecx 00800AD6 643D27000000 cmp eax, $00000027 00800ADC FFFF DB $FF, $FF // 00800ADE FFFF DB $FF, $FF // 00800AE0 0400 add al, +$00 00800AE2 0000 add [eax], al 00800AE4 59 pop ecx 00800AE5 46 inc esi 00800AE6 49 dec ecx 00800AE7 640000 add fs:[eax], al 00800AEA 0000 add [eax], al 00800AEC 55 push ebp 00800AED 8BEC mov ebp, esp 00800AEF 51 push ecx 00800AF0 B906000000 mov ecx, $00000006 00800AF5 6A00 push $00 00800AF7 6A00 push $00 00800AF9 49 dec ecx 00800AFA 75F9 jnz 00800AF5 00800AFC 51 push ecx 00800AFD 874DFC xchg [ebp-$04], ecx 00800B00 53 push ebx 00800B01 56 push esi 00800B02 8BF0 mov esi, eax 00800B04 33C0 xor eax, eax 00800B06 55 push ebp * Possible String Reference to: '楠=脬^[嬪]' | 00800B07 68450D8000 push $00800D45 ***** TRY | 00800B0C 64FF30 push dword ptr fs:[eax] 00800B0F 648920 mov fs:[eax], esp 00800B12 33C0 xor eax, eax 00800B14 55 push ebp 00800B15 681B0D8000 push $00800D1B ***** TRY | 00800B1A 64FF30 push dword ptr fs:[eax] 00800B1D 648920 mov fs:[eax], esp *) end; procedure TfrmFKCR._PROC_00800D8D(Sender : TObject); begin (* 00800D8D 50 push eax 00800D8E 6461 popa 00800D90 7465 jz 00800DF7 00800D92 205946 and [ecx+$46], bl 00800D95 5F pop edi 00800D96 4D dec ebp 00800D97 6F outsd 00800D98 6E outsb 00800D99 65795F jns 00800DFB 00800D9C 43 inc ebx 00800D9D 52 push edx 00800D9E 2000 and [eax], al 00800DA0 FFFF DB $FF, $FF // 00800DA2 FFFF DB $FF, $FF // 00800DA4 0D00000020 or eax, $20000000 00800DA9 53 push ebx 00800DAA 657420 jz 00800DCD 00800DAD 42 inc edx 00800DAE 5A pop edx 00800DAF 54 push esp 00800DB0 7970 jns 00800E22 00800DB2 653D27000000 cmp eax, $00000027 00800DB8 FFFF DB $FF, $FF // 00800DBA FFFF DB $FF, $FF // 00800DBC 07 pop es 00800DBD 0000 add [eax], al 00800DBF 005A64 add [edx+$64], bl 00800DC2 794E jns 00800E12 00800DC4 61 popa 00800DC5 6D insd 00800DC6 6500FF add bh, bh 00800DC9 FFFF DB $FF, $FF // 00800DCB FF01 inc dword ptr [ecx] 00800DCD 0000 add [eax], al 00800DCF 0027 add [edi], ah 00800DD1 0000 add [eax], al 00800DD3 00FF add bh, bh 00800DD5 FFFF DB $FF, $FF // 00800DD7 FF09 dec dword ptr [ecx] 00800DD9 0000 add [eax], al 00800DDB 002C4564697465 add [$65746964+eax*2], ch 00800DE2 723D jb 00800E21 00800DE4 27 daa 00800DE5 0000 add [eax], al 00800DE7 00FF add bh, bh 00800DE9 FFFF DB $FF, $FF // 00800DEB FF1400 call dword ptr [eax+eax] 00800DEE 0000 add [eax], al 00800DF0 2C45 sub al, $45 00800DF2 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D 00800DFB 657464 jz 00800E62 00800DFE 61 popa 00800DFF 7465 jz 00800E66 00800E01 2829 sub [ecx], ch 00800E03 2000 and [eax], al 00800E05 0000 add [eax], al 00800E07 00FF add bh, bh 00800E09 FFFF DB $FF, $FF // 00800E0B FF0D00000020 dec dword ptr [$20000000] 00800E11 7768 jnbe 00800E7B 00800E13 657265 jb 00800E7B 00800E16 205946 and [ecx+$46], bl 00800E19 49 dec ecx 00800E1A 643D27000000 cmp eax, $00000027 00800E20 FFFF DB $FF, $FF // 00800E22 FFFF DB $FF, $FF // 00800E24 0400 add al, +$00 00800E26 0000 add [eax], al 00800E28 59 pop ecx 00800E29 46 inc esi 00800E2A 49 dec ecx 00800E2B 640000 add fs:[eax], al 00800E2E 0000 add [eax], al 00800E30 53 push ebx 00800E31 8BD8 mov ebx, eax * Reference to control ToolButton1 : TToolButton | 00800E33 8B8320030000 mov eax, [ebx+$0320] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 00800E39 E88270CCFF call 004C7EC0 00800E3E 84C0 test al, al 00800E40 7516 jnz 00800E58 * Possible String Reference to: '付款列表' | 00800E42 B9640E8000 mov ecx, $00800E64 * Reference to control ToolButton1 : TToolButton | 00800E47 8B9320030000 mov edx, [ebx+$0320] * Reference to control ADOTemp : N.A. | 00800E4D 8B833C030000 mov eax, [ebx+$033C] | 00800E53 E8D873FBFF call 007B8230 00800E58 5B pop ebx 00800E59 C3 ret 00800E5A 0000 add [eax], al 00800E5C FFFF DB $FF, $FF // 00800E5E FFFF DB $FF, $FF // 00800E60 0800 or [eax], al 00800E62 0000 add [eax], al 00800E64 B8B6BFEEC1 mov eax, $C1EEBFB6 00800E69 D0B1ED000000 DB $D0, $B1, $ED, $00, $00, $00 // byte ptr [ecx+$00ED], 1 00800E6F 00558B add [ebp-$75], dl 00800E72 EC in al, dx 00800E73 B915000000 mov ecx, $00000015 00800E78 6A00 push $00 00800E7A 6A00 push $00 00800E7C 49 dec ecx 00800E7D 75F9 jnz 00800E78 00800E7F 53 push ebx 00800E80 56 push esi 00800E81 8BF2 mov esi, edx 00800E83 8BD8 mov ebx, eax 00800E85 33C0 xor eax, eax 00800E87 55 push ebp * Possible String Reference to: '轭7氤^[嬪]' | 00800E88 6801138000 push $00801301 ***** TRY | 00800E8D 64FF30 push dword ptr fs:[eax] 00800E90 648920 mov fs:[eax], esp * Possible String Reference to: 'Filler' | 00800E93 BA18138000 mov edx, $00801318 * Reference to control Label11 : N.A. | 00800E98 8B8364030000 mov eax, [ebx+$0364] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00800E9E E8115DCCFF call 004C6BB4 00800EA3 8D55E4 lea edx, [ebp-$1C] 00800EA6 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_60 | 00800EA8 FF5160 call dword ptr [ecx+$60] 00800EAB 8B45E4 mov eax, [ebp-$1C] 00800EAE 50 push eax 00800EAF 8D55E0 lea edx, [ebp-$20] *) end; procedure TfrmFKCR._PROC_008013E1(Sender : TObject); begin (* 008013E1 50 push eax 008013E2 6461 popa 008013E4 7465 jz 0080144B 008013E6 205946 and [ecx+$46], bl 008013E9 5F pop edi 008013EA 4D dec ebp 008013EB 6F outsd 008013EC 6E outsb 008013ED 65795F jns 0080144F 008013F0 43 inc ebx 008013F1 52 push edx 008013F2 2000 and [eax], al 008013F4 FFFF DB $FF, $FF // 008013F6 FFFF DB $FF, $FF // 008013F8 0500000020 add eax, +$20000000 008013FD 53 push ebx 008013FE 657420 jz 00801421 00801401 0000 add [eax], al 00801403 00FF add bh, bh 00801405 FFFF DB $FF, $FF // 00801407 FF01 inc dword ptr [ecx] 00801409 0000 add [eax], al 0080140B 003D000000FF add [$FF000000], bh 00801411 FFFF DB $FF, $FF // 00801413 FF09 dec dword ptr [ecx] 00801415 0000 add [eax], al 00801417 002C42 add [edx+eax*2], ch 0080141A 42 inc edx 0080141B 4D dec ebp 0080141C 6F outsd 0080141D 6E outsb 0080141E 65793D jns 0080145E 00801421 0000 add [eax], al 00801423 00FF add bh, bh 00801425 FFFF DB $FF, $FF // 00801427 FF09 dec dword ptr [ecx] 00801429 0000 add [eax], al 0080142B 002C4564697465 add [$65746964+eax*2], ch 00801432 723D jb 00801471 00801434 27 daa 00801435 0000 add [eax], al 00801437 00FF add bh, bh 00801439 FFFF DB $FF, $FF // 0080143B FF1400 call dword ptr [eax+eax] 0080143E 0000 add [eax], al 00801440 2C45 sub al, $45 00801442 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D 0080144B 657464 jz 008014B2 0080144E 61 popa 0080144F 7465 jz 008014B6 00801451 2829 sub [ecx], ch 00801453 2000 and [eax], al 00801455 0000 add [eax], al 00801457 00FF add bh, bh 00801459 FFFF DB $FF, $FF // 0080145B FF0D00000020 dec dword ptr [$20000000] 00801461 7768 jnbe 008014CB 00801463 657265 jb 008014CB 00801466 205946 and [ecx+$46], bl 00801469 49 dec ecx 0080146A 643D27000000 cmp eax, $00000027 00801470 FFFF DB $FF, $FF // 00801472 FFFF DB $FF, $FF // 00801474 0400 add al, +$00 00801476 0000 add [eax], al 00801478 59 pop ecx 00801479 46 inc esi 0080147A 49 dec ecx 0080147B 640000 add fs:[eax], al 0080147E 0000 add [eax], al 00801480 FFFF DB $FF, $FF // 00801482 FFFF DB $FF, $FF // 00801484 2B00 sub eax, dword ptr [eax] 00801486 0000 add [eax], al 00801488 55 push ebp 00801489 7064 jo 008014EF 0080148B 61 popa 0080148C 7465 jz 008014F3 0080148E 205946 and [ecx+$46], bl 00801491 5F pop edi 00801492 4D dec ebp 00801493 6F outsd 00801494 6E outsb 00801495 65795F jns 008014F7 00801498 4B dec ebx 00801499 43 inc ebx 0080149A 205365 and [ebx+$65], dl 0080149D 7420 jz 008014BF 0080149F 4B dec ebx 008014A0 43 inc ebx 008014A1 42 inc edx 008014A2 42 inc edx 008014A3 4D dec ebp 008014A4 6F outsd 008014A5 6E outsb 008014A6 65793D jns 008014E6 008014A9 4B dec ebx 008014AA 43 inc ebx 008014AB 42 inc edx 008014AC 42 inc edx 008014AD 4D dec ebp 008014AE 6F outsd 008014AF 6E outsb 008014B0 65792B jns 008014DE 008014B3 00FF add bh, bh 008014B5 FFFF DB $FF, $FF // 008014B7 FF01 inc dword ptr [ecx] 008014B9 0000 add [eax], al 008014BB 002D000000FF add [$FF000000], ch 008014C1 FFFF DB $FF, $FF // 008014C3 FF0D00000020 dec dword ptr [$20000000] 008014C9 7768 jnbe 00801533 008014CB 657265 jb 00801533 008014CE 204352 and [ebx+$52], al 008014D1 49 dec ecx 008014D2 44 inc esp 008014D3 3D27000000 cmp eax, $00000027 008014D8 FFFF DB $FF, $FF // 008014DA FFFF DB $FF, $FF // 008014DC 0400 add al, +$00 008014DE 0000 add [eax], al 008014E0 43 inc ebx 008014E1 52 push edx 008014E2 49 dec ecx 008014E3 44 inc esp 008014E4 0000 add [eax], al 008014E6 0000 add [eax], al 008014E8 55 push ebp 008014E9 8BEC mov ebp, esp 008014EB 51 push ecx 008014EC B90E000000 mov ecx, $0000000E 008014F1 6A00 push $00 008014F3 6A00 push $00 008014F5 49 dec ecx 008014F6 75F9 jnz 008014F1 008014F8 51 push ecx 008014F9 874DFC xchg [ebp-$04], ecx 008014FC 53 push ebx 008014FD 8945FC mov [ebp-$04], eax 00801500 33C0 xor eax, eax 00801502 55 push ebp * Possible String Reference to: '闁2牍[嬪]' | 00801503 6859188000 push $00801859 ***** TRY | 00801508 64FF30 push dword ptr fs:[eax] 0080150B 648920 mov fs:[eax], esp 0080150E 33C0 xor eax, eax 00801510 55 push ebp 00801511 6805188000 push $00801805 ***** TRY | 00801516 64FF30 push dword ptr fs:[eax] 00801519 648920 mov fs:[eax], esp *) end; procedure TfrmFKCR._PROC_008018A1(Sender : TObject); begin (* 008018A1 50 push eax 008018A2 6461 popa 008018A4 7465 jz 0080190B 008018A6 205946 and [ecx+$46], bl 008018A9 5F pop edi 008018AA 4D dec ebp 008018AB 6F outsd 008018AC 6E outsb 008018AD 65795F jns 0080190F 008018B0 43 inc ebx 008018B1 52 push edx 008018B2 2000 and [eax], al 008018B4 FFFF DB $FF, $FF // 008018B6 FFFF DB $FF, $FF // 008018B8 0D00000020 or eax, $20000000 008018BD 53 push ebx 008018BE 657420 jz 008018E1 008018C1 4D dec ebp 008018C2 61 popa 008018C3 696E49643D2700 imul ebp, [esi+$49], $00273D64 008018CA 0000 add [eax], al 008018CC FFFF DB $FF, $FF // 008018CE FFFF DB $FF, $FF // 008018D0 0100 add [eax], eax 008018D2 0000 add [eax], al 008018D4 27 daa 008018D5 0000 add [eax], al 008018D7 00FF add bh, bh 008018D9 FFFF DB $FF, $FF // 008018DB FF09 dec dword ptr [ecx] 008018DD 0000 add [eax], al 008018DF 0020 add [eax], ah 008018E1 2C53 sub al, $53 008018E3 7562 jnz 00801947 008018E5 49 dec ecx 008018E6 643D27000000 cmp eax, $00000027 008018EC FFFF DB $FF, $FF // 008018EE FFFF DB $FF, $FF // 008018F0 0500000053 add eax, +$53000000 008018F5 7562 jnz 00801959 008018F7 49 dec ecx 008018F8 640000 add fs:[eax], al 008018FB 00FF add bh, bh 008018FD FFFF DB $FF, $FF // 008018FF FF09 dec dword ptr [ecx] 00801901 0000 add [eax], al 00801903 002C4564697465 add [$65746964+eax*2], ch 0080190A 723D jb 00801949 0080190C 27 daa 0080190D 0000 add [eax], al 0080190F 00FF add bh, bh 00801911 FFFF DB $FF, $FF // 00801913 FF1400 call dword ptr [eax+eax] 00801916 0000 add [eax], al 00801918 2C45 sub al, $45 0080191A 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D 00801923 657464 jz 0080198A 00801926 61 popa 00801927 7465 jz 0080198E 00801929 2829 sub [ecx], ch 0080192B 2000 and [eax], al 0080192D 0000 add [eax], al 0080192F 00FF add bh, bh 00801931 FFFF DB $FF, $FF // 00801933 FF0D00000020 dec dword ptr [$20000000] 00801939 7768 jnbe 008019A3 0080193B 657265 jb 008019A3 0080193E 205946 and [ecx+$46], bl 00801941 49 dec ecx 00801942 643D27000000 cmp eax, $00000027 00801948 FFFF DB $FF, $FF // 0080194A FFFF DB $FF, $FF // 0080194C 0400 add al, +$00 0080194E 0000 add [eax], al 00801950 59 pop ecx 00801951 46 inc esi 00801952 49 dec ecx 00801953 640000 add fs:[eax], al 00801956 0000 add [eax], al 00801958 55 push ebp 00801959 8BEC mov ebp, esp 0080195B B909000000 mov ecx, $00000009 00801960 6A00 push $00 00801962 6A00 push $00 00801964 49 dec ecx 00801965 75F9 jnz 00801960 00801967 51 push ecx 00801968 53 push ebx 00801969 56 push esi 0080196A 8BDA mov ebx, edx 0080196C 8BF0 mov esi, eax 0080196E 33C0 xor eax, eax 00801970 55 push ebp * Possible String Reference to: '轾.胫^[嬪]' | 00801971 68F61B8000 push $00801BF6 ***** TRY | 00801976 64FF30 push dword ptr fs:[eax] 00801979 648920 mov fs:[eax], esp 0080197C 8D55FC lea edx, [ebp-$04] 0080197F 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; | 00801981 E836DDD8FF call 0058F6BC * Reference to control Label3 : TLabel | 00801986 8B9E08030000 mov ebx, [esi+$0308] 0080198C 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 0080198E E8413FCCFF call 004C58D4 00801993 8BC3 mov eax, ebx * Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass; | or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu; | 00801995 E812C6CDFF call 004DDFAC 0080199A 8B10 mov edx, [eax] * Reference to method TLabel.GetClientRect() | 0080199C FF5244 call dword ptr [edx+$44] * Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr | om YF_Money_CR where YFID='' | 0080199F 680C1C8000 push $00801C0C * Possible String Reference to: 'YFID' | 008019A4 BA541C8000 mov edx, $00801C54 * Reference to control Label11 : N.A. | 008019A9 8B8664030000 mov eax, [esi+$0364] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 008019AF E80052CCFF call 004C6BB4 008019B4 8D55F0 lea edx, [ebp-$10] 008019B7 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_60 | 008019B9 FF5160 call dword ptr [ecx+$60] 008019BC FF75F0 push dword ptr [ebp-$10] 008019BF 68641C8000 push $00801C64 008019C4 8D45F4 lea eax, [ebp-$0C] 008019C7 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 008019CC E8E33CC0FF call 004056B4 008019D1 8B45F4 mov eax, [ebp-$0C] 008019D4 50 push eax 008019D5 8BC3 mov eax, ebx * Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass; | or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu; | 008019D7 E8D0C5CDFF call 004DDFAC 008019DC 5A pop edx 008019DD 8B08 mov ecx, [eax] * Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer) | 008019DF FF5138 call dword ptr [ecx+$38] 008019E2 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Open(TDataSet); | 008019E4 E8DF3ECCFF call 004C58C8 * Possible String Reference to: 'BBMoney' | 008019E9 BA701C8000 mov edx, $00801C70 * Reference to control Label3 : TLabel | 008019EE 8B8608030000 mov eax, [esi+$0308] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 008019F4 E8BB51CCFF call 004C6BB4 008019F9 8D55F8 lea edx, [ebp-$08] 008019FC 8B08 mov ecx, [eax] * Reference to method TLabel.SetDragMode(TDragMode) | 008019FE FF5160 call dword ptr [ecx+$60] 00801A01 8D55EC lea edx, [ebp-$14] 00801A04 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 00801A07 E8E08EC0FF call 0040A8EC 00801A0C 837DEC00 cmp dword ptr [ebp-$14], +$00 00801A10 750D jnz 00801A1F 00801A12 8D45FC lea eax, [ebp-$04] 00801A15 BA801C8000 mov edx, $00801C80 * Reference to: System.@LStrLAsg(void;void;void;void); | 00801A1A E89D39C0FF call 004053BC * Reference to control Label11 : N.A. | 00801A1F 8B9E64030000 mov ebx, [esi+$0364] 00801A25 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Edit(TDataSet); | 00801A27 E8146ACCFF call 004C8440 * Possible String Reference to: 'BBMoney' | 00801A2C BA701C8000 mov edx, $00801C70 00801A31 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00801A33 E87C51CCFF call 004C6BB4 00801A38 50 push eax 00801A39 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 00801A3C E8EBBCC0FF call 0040D72C 00801A41 8D45DC lea eax, [ebp-$24] * Reference to: Variants.@VarFromReal; | 00801A44 E84373C1FF call 00418D8C 00801A49 8D55DC lea edx, [ebp-$24] 00801A4C 58 pop eax 00801A4D 8B08 mov ecx, [eax] 00801A4F FF91B4000000 call dword ptr [ecx+$00B4] 00801A55 8BC3 mov eax, ebx 00801A57 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_024C | 00801A59 FF924C020000 call dword ptr [edx+$024C] * Reference to control OrdDate : N.A. | 00801A5F 8B9E0C030000 mov ebx, [esi+$030C] 00801A65 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 00801A67 E8683ECCFF call 004C58D4 00801A6C 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; | 00801A6E E839C5CDFF call 004DDFAC 00801A73 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_44 | 00801A75 FF5244 call dword ptr [edx+$44] 00801A78 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; | 00801A7A E82DC5CDFF call 004DDFAC * Possible String Reference to: 'UPdate YF_Money_CR ' | 00801A7F BA8C1C8000 mov edx, $00801C8C 00801A84 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 00801A86 FF5138 call dword ptr [ecx+$38] 00801A89 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; | 00801A8B E81CC5CDFF call 004DDFAC 00801A90 50 push eax 00801A91 8D45D8 lea eax, [ebp-$28] 00801A94 8B4DFC mov ecx, [ebp-$04] * Possible String Reference to: ' set BBMoney=' | 00801A97 BAA81C8000 mov edx, $00801CA8 * Reference to: System.@LStrCat3; | 00801A9C E89F3BC0FF call 00405640 00801AA1 8B55D8 mov edx, [ebp-$28] 00801AA4 58 pop eax 00801AA5 8B08 mov ecx, [eax] 00801AA7 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ',Editer='' | 00801AAA 68C01C8000 push $00801CC0 00801AAF 8D55D0 lea edx, [ebp-$30] *) end; procedure TfrmFKCR._PROC_00801C8D(Sender : TObject); begin (* 00801C8D 50 push eax 00801C8E 6461 popa 00801C90 7465 jz 00801CF7 00801C92 205946 and [ecx+$46], bl 00801C95 5F pop edi 00801C96 4D dec ebp 00801C97 6F outsd 00801C98 6E outsb 00801C99 65795F jns 00801CFB 00801C9C 43 inc ebx 00801C9D 52 push edx 00801C9E 2000 and [eax], al 00801CA0 FFFF DB $FF, $FF // 00801CA2 FFFF DB $FF, $FF // 00801CA4 0D00000020 or eax, $20000000 00801CA9 7365 jnb 00801D10 00801CAB 7420 jz 00801CCD 00801CAD 42 inc edx 00801CAE 42 inc edx 00801CAF 4D dec ebp 00801CB0 6F outsd 00801CB1 6E outsb 00801CB2 65793D jns 00801CF2 00801CB5 0000 add [eax], al 00801CB7 00FF add bh, bh 00801CB9 FFFF DB $FF, $FF // 00801CBB FF09 dec dword ptr [ecx] 00801CBD 0000 add [eax], al 00801CBF 002C4564697465 add [$65746964+eax*2], ch 00801CC6 723D jb 00801D05 00801CC8 27 daa 00801CC9 0000 add [eax], al 00801CCB 00FF add bh, bh 00801CCD FFFF DB $FF, $FF // 00801CCF FF1400 call dword ptr [eax+eax] 00801CD2 0000 add [eax], al 00801CD4 2C45 sub al, $45 00801CD6 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D 00801CDF 657464 jz 00801D46 00801CE2 61 popa 00801CE3 7465 jz 00801D4A 00801CE5 2829 sub [ecx], ch 00801CE7 2000 and [eax], al 00801CE9 0000 add [eax], al 00801CEB 00FF add bh, bh 00801CED FFFF DB $FF, $FF // 00801CEF FF0D00000020 dec dword ptr [$20000000] 00801CF5 7768 jnbe 00801D5F 00801CF7 657265 jb 00801D5F 00801CFA 205946 and [ecx+$46], bl 00801CFD 49 dec ecx 00801CFE 643D27000000 cmp eax, $00000027 00801D04 FFFF DB $FF, $FF // 00801D06 FFFF DB $FF, $FF // 00801D08 0400 add al, +$00 00801D0A 0000 add [eax], al 00801D0C 59 pop ecx 00801D0D 46 inc esi 00801D0E 49 dec ecx 00801D0F 640000 add fs:[eax], al 00801D12 0000 add [eax], al 00801D14 FFFF DB $FF, $FF // 00801D16 FFFF DB $FF, $FF // 00801D18 2B00 sub eax, dword ptr [eax] 00801D1A 0000 add [eax], al 00801D1C 55 push ebp 00801D1D 7064 jo 00801D83 00801D1F 61 popa 00801D20 7465 jz 00801D87 00801D22 205946 and [ecx+$46], bl 00801D25 5F pop edi 00801D26 4D dec ebp 00801D27 6F outsd 00801D28 6E outsb 00801D29 65795F jns 00801D8B 00801D2C 4B dec ebx 00801D2D 43 inc ebx 00801D2E 205365 and [ebx+$65], dl 00801D31 7420 jz 00801D53 00801D33 4B dec ebx 00801D34 43 inc ebx 00801D35 42 inc edx 00801D36 42 inc edx 00801D37 4D dec ebp 00801D38 6F outsd 00801D39 6E outsb 00801D3A 65793D jns 00801D7A 00801D3D 4B dec ebx 00801D3E 43 inc ebx 00801D3F 42 inc edx 00801D40 42 inc edx 00801D41 4D dec ebp 00801D42 6F outsd 00801D43 6E outsb 00801D44 65792B jns 00801D72 00801D47 00FF add bh, bh 00801D49 FFFF DB $FF, $FF // 00801D4B FF01 inc dword ptr [ecx] 00801D4D 0000 add [eax], al 00801D4F 002D000000FF add [$FF000000], ch 00801D55 FFFF DB $FF, $FF // 00801D57 FF0D00000020 dec dword ptr [$20000000] 00801D5D 7768 jnbe 00801DC7 00801D5F 657265 jb 00801DC7 00801D62 204352 and [ebx+$52], al 00801D65 49 dec ecx 00801D66 44 inc esp 00801D67 3D27000000 cmp eax, $00000027 00801D6C FFFF DB $FF, $FF // 00801D6E FFFF DB $FF, $FF // 00801D70 0400 add al, +$00 00801D72 0000 add [eax], al 00801D74 43 inc ebx 00801D75 52 push edx 00801D76 49 dec ecx 00801D77 44 inc esp 00801D78 0000 add [eax], al 00801D7A 0000 add [eax], al 00801D7C 55 push ebp 00801D7D 8BEC mov ebp, esp 00801D7F 6A00 push $00 00801D81 6A00 push $00 00801D83 53 push ebx 00801D84 56 push esi 00801D85 8BD8 mov ebx, eax 00801D87 33C0 xor eax, eax 00801D89 55 push ebp 00801D8A 68E81D8000 push $00801DE8 ***** TRY | 00801D8F 64FF30 push dword ptr fs:[eax] 00801D92 648920 mov fs:[eax], esp 00801D95 8D55F8 lea edx, [ebp-$08] * Reference to control v1OrderUnit : N.A. | 00801D98 8B8380030000 mov eax, [ebx+$0380] * Reference to: Controls.TControl.GetText(TControl):TCaption; | 00801D9E E84D68C8FF call 004885F0 00801DA3 8B45F8 mov eax, [ebp-$08] 00801DA6 8D55FC lea edx, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 00801DA9 E83E8BC0FF call 0040A8EC 00801DAE 8B45FC mov eax, [ebp-$04] * Reference to: System.@LStrLen(String):Integer; | or: System.@DynArrayLength; | or: System.DynArraySize(Pointer):Integer; | or: Variants.DynArraySize(Pointer):Integer; | 00801DB1 E83E38C0FF call 004055F4 00801DB6 83F803 cmp eax, +$03 00801DB9 7C0F jl 00801DCA * Reference to control DlyDate : N.A. | 00801DBB 8B8314030000 mov eax, [ebx+$0314] 00801DC1 66BEEBFF mov si, $FFEB * Reference to: System.@CallDynaInst; | 00801DC5 E88A27C0FF call 00404554 00801DCA 33C0 xor eax, eax 00801DCC 5A pop edx 00801DCD 59 pop ecx 00801DCE 59 pop ecx 00801DCF 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '^[YY]脥@' | 00801DD2 68EF1D8000 push $00801DEF 00801DD7 8D45F8 lea eax, [ebp-$08] * Reference to: System.@LStrClr(void;void); | 00801DDA E84535C0FF call 00405324 00801DDF 8D45FC lea eax, [ebp-$04] * Reference to: System.@LStrClr(void;void); | 00801DE2 E83D35C0FF call 00405324 00801DE7 C3 ret *) end; procedure TfrmFKCR._PROC_0080205D(Sender : TObject); begin (* 0080205D 50 push eax 0080205E 6461 popa 00802060 7465 jz 008020C7 00802062 205946 and [ecx+$46], bl 00802065 5F pop edi 00802066 4D dec ebp 00802067 6F outsd 00802068 6E outsb 00802069 65795F jns 008020CB 0080206C 43 inc ebx 0080206D 52 push edx 0080206E 2000 and [eax], al 00802070 FFFF DB $FF, $FF // 00802072 FFFF DB $FF, $FF // 00802074 0500000020 add eax, +$20000000 00802079 53 push ebx 0080207A 657420 jz 0080209D 0080207D 0000 add [eax], al 0080207F 00FF add bh, bh 00802081 FFFF DB $FF, $FF // 00802083 FF02 inc dword ptr [edx] 00802085 0000 add [eax], al 00802087 003D270000FF add [$FF000027], bh 0080208D FFFF DB $FF, $FF // 0080208F FF01 inc dword ptr [ecx] 00802091 0000 add [eax], al 00802093 0027 add [edi], ah 00802095 0000 add [eax], al 00802097 00FF add bh, bh 00802099 FFFF DB $FF, $FF // 0080209B FF09 dec dword ptr [ecx] 0080209D 0000 add [eax], al 0080209F 002C4564697465 add [$65746964+eax*2], ch 008020A6 723D jb 008020E5 008020A8 27 daa 008020A9 0000 add [eax], al 008020AB 00FF add bh, bh 008020AD FFFF DB $FF, $FF // 008020AF FF1400 call dword ptr [eax+eax] 008020B2 0000 add [eax], al 008020B4 2C45 sub al, $45 008020B6 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D 008020BF 657464 jz 00802126 008020C2 61 popa 008020C3 7465 jz 0080212A 008020C5 2829 sub [ecx], ch 008020C7 2000 and [eax], al 008020C9 0000 add [eax], al 008020CB 00FF add bh, bh 008020CD FFFF DB $FF, $FF // 008020CF FF0D00000020 dec dword ptr [$20000000] 008020D5 7768 jnbe 0080213F 008020D7 657265 jb 0080213F 008020DA 205946 and [ecx+$46], bl 008020DD 49 dec ecx 008020DE 643D27000000 cmp eax, $00000027 008020E4 FFFF DB $FF, $FF // 008020E6 FFFF DB $FF, $FF // 008020E8 0400 add al, +$00 008020EA 0000 add [eax], al 008020EC 59 pop ecx 008020ED 46 inc esi 008020EE 49 dec ecx 008020EF 640000 add fs:[eax], al 008020F2 0000 add [eax], al 008020F4 55 push ebp 008020F5 8BEC mov ebp, esp 008020F7 B905000000 mov ecx, $00000005 008020FC 6A00 push $00 008020FE 6A00 push $00 00802100 49 dec ecx 00802101 75F9 jnz 008020FC 00802103 53 push ebx 00802104 56 push esi 00802105 8BDA mov ebx, edx 00802107 8BF0 mov esi, eax 00802109 33C0 xor eax, eax 0080210B 55 push ebp * Possible String Reference to: '闅(胫^[嬪]' | 0080210C 6855228000 push $00802255 ***** TRY | 00802111 64FF30 push dword ptr fs:[eax] 00802114 648920 mov fs:[eax], esp 00802117 8D55FC lea edx, [ebp-$04] 0080211A 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; | 0080211C E89BD5D8FF call 0058F6BC 00802121 8D55F8 lea edx, [ebp-$08] 00802124 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 00802127 E8C087C0FF call 0040A8EC 0080212C 837DF800 cmp dword ptr [ebp-$08], +$00 00802130 750D jnz 0080213F 00802132 8D45FC lea eax, [ebp-$04] 00802135 BA6C228000 mov edx, $0080226C * Reference to: System.@LStrLAsg(void;void;void;void); | 0080213A E87D32C0FF call 004053BC * Reference to control Label11 : N.A. | 0080213F 8B9E64030000 mov ebx, [esi+$0364] 00802145 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Edit(TDataSet); | 00802147 E8F462CCFF call 004C8440 0080214C 6A00 push $00 0080214E 6A00 push $00 00802150 6A00 push $00 00802152 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.StrToFloatDef(AnsiString;Extended):Extended;overload; | 00802155 E80EB6C0FF call 0040D768 0080215A 8D45E8 lea eax, [ebp-$18] * Reference to: Variants.@VarFromReal; | 0080215D E82A6CC1FF call 00418D8C 00802162 8D45E8 lea eax, [ebp-$18] 00802165 50 push eax * Possible String Reference to: 'DerateMoney' | 00802166 BA78228000 mov edx, $00802278 0080216B 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0080216D E8424ACCFF call 004C6BB4 00802172 5A pop edx 00802173 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_00B4 | 00802175 FF91B4000000 call dword ptr [ecx+$00B4] 0080217B 8BC3 mov eax, ebx 0080217D 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_024C | 0080217F FF924C020000 call dword ptr [edx+$024C] * Reference to control OrdDate : N.A. | 00802185 8B9E0C030000 mov ebx, [esi+$030C] 0080218B 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 0080218D E84237CCFF call 004C58D4 00802192 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; | 00802194 E813BECDFF call 004DDFAC 00802199 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_44 | 0080219B FF5244 call dword ptr [edx+$44] 0080219E 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; | 008021A0 E807BECDFF call 004DDFAC * Possible String Reference to: 'UPdate YF_Money_CR ' | 008021A5 BA8C228000 mov edx, $0080228C 008021AA 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 008021AC FF5138 call dword ptr [ecx+$38] 008021AF 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; | 008021B1 E8F6BDCDFF call 004DDFAC 008021B6 50 push eax 008021B7 8D45E4 lea eax, [ebp-$1C] 008021BA 8B4DFC mov ecx, [ebp-$04] * Possible String Reference to: ' set DerateMoney=' | 008021BD BAA8228000 mov edx, $008022A8 * Reference to: System.@LStrCat3; | 008021C2 E87934C0FF call 00405640 008021C7 8B55E4 mov edx, [ebp-$1C] 008021CA 58 pop eax 008021CB 8B08 mov ecx, [eax] 008021CD FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ' where YFId='' | 008021D0 68C4228000 push $008022C4 * Possible String Reference to: 'YFId' | 008021D5 BADC228000 mov edx, $008022DC * Reference to control Label11 : N.A. | 008021DA 8B8664030000 mov eax, [esi+$0364] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 008021E0 E8CF49CCFF call 004C6BB4 008021E5 8D55D8 lea edx, [ebp-$28] 008021E8 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_60 | 008021EA FF5160 call dword ptr [ecx+$60] 008021ED 8B45D8 mov eax, [ebp-$28] 008021F0 8D55DC lea edx, [ebp-$24] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 008021F3 E8F486C0FF call 0040A8EC 008021F8 FF75DC push dword ptr [ebp-$24] 008021FB 68EC228000 push $008022EC 00802200 8D45E0 lea eax, [ebp-$20] 00802203 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 00802208 E8A734C0FF call 004056B4 0080220D 8B45E0 mov eax, [ebp-$20] 00802210 50 push eax 00802211 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; | 00802213 E894BDCDFF call 004DDFAC 00802218 5A pop edx 00802219 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 0080221B FF5138 call dword ptr [ecx+$38] 0080221E 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer; | 00802220 E8AFBCCDFF call 004DDED4 00802225 33C0 xor eax, eax 00802227 5A pop edx 00802228 59 pop ecx 00802229 59 pop ecx 0080222A 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '^[嬪]' | 0080222D 685C228000 push $0080225C 00802232 8D45D8 lea eax, [ebp-$28] 00802235 BA04000000 mov edx, $00000004 * Reference to: System.@LStrArrayClr(void;void;Integer); | 0080223A E80931C0FF call 00405348 0080223F 8D45E8 lea eax, [ebp-$18] * Reference to: Variants.@VarClr(TVarData;TVarData); | 00802242 E82D24C1FF call 00414674 00802247 8D45F8 lea eax, [ebp-$08] 0080224A BA02000000 mov edx, $00000002 * Reference to: System.@LStrArrayClr(void;void;Integer); | 0080224F E8F430C0FF call 00405348 00802254 C3 ret *) end; procedure TfrmFKCR._PROC_0080228D(Sender : TObject); begin (* 0080228D 50 push eax 0080228E 6461 popa 00802290 7465 jz 008022F7 00802292 205946 and [ecx+$46], bl 00802295 5F pop edi 00802296 4D dec ebp 00802297 6F outsd 00802298 6E outsb 00802299 65795F jns 008022FB 0080229C 43 inc ebx 0080229D 52 push edx 0080229E 2000 and [eax], al 008022A0 FFFF DB $FF, $FF // 008022A2 FFFF DB $FF, $FF // 008022A4 1100 adc [eax], eax 008022A6 0000 add [eax], al 008022A8 207365 and [ebx+$65], dh 008022AB 7420 jz 008022CD 008022AD 44 inc esp 008022AE 657261 jb 00802312 008022B1 7465 jz 00802318 008022B3 4D dec ebp 008022B4 6F outsd 008022B5 6E outsb 008022B6 65793D jns 008022F6 008022B9 0000 add [eax], al 008022BB 00FF add bh, bh 008022BD FFFF DB $FF, $FF // 008022BF FF0D00000020 dec dword ptr [$20000000] 008022C5 7768 jnbe 0080232F 008022C7 657265 jb 0080232F 008022CA 205946 and [ecx+$46], bl 008022CD 49 dec ecx 008022CE 643D27000000 cmp eax, $00000027 008022D4 FFFF DB $FF, $FF // 008022D6 FFFF DB $FF, $FF // 008022D8 0400 add al, +$00 008022DA 0000 add [eax], al 008022DC 59 pop ecx 008022DD 46 inc esi 008022DE 49 dec ecx 008022DF 640000 add fs:[eax], al 008022E2 0000 add [eax], al 008022E4 FFFF DB $FF, $FF // 008022E6 FFFF DB $FF, $FF // 008022E8 0100 add [eax], eax 008022EA 0000 add [eax], al 008022EC 27 daa 008022ED 0000 add [eax], al 008022EF 00558B add [ebp-$75], dl 008022F2 EC in al, dx 008022F3 33C9 xor ecx, ecx 008022F5 51 push ecx 008022F6 51 push ecx 008022F7 51 push ecx 008022F8 51 push ecx 008022F9 51 push ecx 008022FA 51 push ecx 008022FB 51 push ecx 008022FC 53 push ebx 008022FD 56 push esi 008022FE 8BDA mov ebx, edx 00802300 8BF0 mov esi, eax 00802302 33C0 xor eax, eax 00802304 55 push ebp 00802305 68EB238000 push $008023EB ***** TRY | 0080230A 64FF30 push dword ptr fs:[eax] 0080230D 648920 mov fs:[eax], esp 00802310 8D55FC lea edx, [ebp-$04] 00802313 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; | 00802315 E8A2D3D8FF call 0058F6BC * Reference to control OrdDate : N.A. | 0080231A 8B9E0C030000 mov ebx, [esi+$030C] 00802320 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 00802322 E8AD35CCFF call 004C58D4 00802327 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; | 00802329 E87EBCCDFF call 004DDFAC 0080232E 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_44 | 00802330 FF5244 call dword ptr [edx+$44] 00802333 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; | 00802335 E872BCCDFF call 004DDFAC * Possible String Reference to: 'UPdate YF_Money_CR ' | 0080233A BA00248000 mov edx, $00802400 0080233F 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 00802341 FF5138 call dword ptr [ecx+$38] 00802344 8D55F0 lea edx, [ebp-$10] 00802347 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0080234A E89D85C0FF call 0040A8EC 0080234F 8B45F0 mov eax, [ebp-$10] 00802352 8D55F4 lea edx, [ebp-$0C] * Reference to: SysUtils.QuotedStr(AnsiString):AnsiString; | 00802355 E89A86C0FF call 0040A9F4 0080235A 8B4DF4 mov ecx, [ebp-$0C] 0080235D 8D45F8 lea eax, [ebp-$08] * Possible String Reference to: ' set fstr1=' | 00802360 BA1C248000 mov edx, $0080241C * Reference to: System.@LStrCat3; | 00802365 E8D632C0FF call 00405640 0080236A 8B45F8 mov eax, [ebp-$08] 0080236D 50 push eax 0080236E 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; | 00802370 E837BCCDFF call 004DDFAC 00802375 5A pop edx 00802376 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 00802378 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ' where YFId='' | 0080237B 6830248000 push $00802430 * Possible String Reference to: 'YFId' | 00802380 BA48248000 mov edx, $00802448 * Reference to control Label11 : N.A. | 00802385 8B8664030000 mov eax, [esi+$0364] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0080238B E82448CCFF call 004C6BB4 00802390 8D55E4 lea edx, [ebp-$1C] 00802393 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_60 | 00802395 FF5160 call dword ptr [ecx+$60] 00802398 8B45E4 mov eax, [ebp-$1C] 0080239B 8D55E8 lea edx, [ebp-$18] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0080239E E84985C0FF call 0040A8EC 008023A3 FF75E8 push dword ptr [ebp-$18] 008023A6 6858248000 push $00802458 008023AB 8D45EC lea eax, [ebp-$14] 008023AE BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 008023B3 E8FC32C0FF call 004056B4 008023B8 8B45EC mov eax, [ebp-$14] 008023BB 50 push eax 008023BC 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; | 008023BE E8E9BBCDFF call 004DDFAC 008023C3 5A pop edx 008023C4 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 008023C6 FF5138 call dword ptr [ecx+$38] 008023C9 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer; | 008023CB E804BBCDFF call 004DDED4 008023D0 33C0 xor eax, eax 008023D2 5A pop edx 008023D3 59 pop ecx 008023D4 59 pop ecx 008023D5 648910 mov fs:[eax], edx ****** FINALLY | 008023D8 68F2238000 push $008023F2 008023DD 8D45E4 lea eax, [ebp-$1C] 008023E0 BA07000000 mov edx, $00000007 * Reference to: System.@LStrArrayClr(void;void;Integer); | 008023E5 E85E2FC0FF call 00405348 008023EA C3 ret *) end; procedure TfrmFKCR._PROC_00802401(Sender : TObject); begin (* 00802401 50 push eax 00802402 6461 popa 00802404 7465 jz 0080246B 00802406 205946 and [ecx+$46], bl 00802409 5F pop edi 0080240A 4D dec ebp 0080240B 6F outsd 0080240C 6E outsb 0080240D 65795F jns 0080246F 00802410 43 inc ebx 00802411 52 push edx 00802412 2000 and [eax], al 00802414 FFFF DB $FF, $FF // 00802416 FFFF DB $FF, $FF // 00802418 0B00 or eax, [eax] 0080241A 0000 add [eax], al 0080241C 207365 and [ebx+$65], dh 0080241F 7420 jz 00802441 00802421 667374 jnb 00802498 00802424 7231 jb 00802457 00802426 3D00FFFFFF cmp eax, $FFFFFF00 0080242B FF0D00000020 dec dword ptr [$20000000] 00802431 7768 jnbe 0080249B 00802433 657265 jb 0080249B 00802436 205946 and [ecx+$46], bl 00802439 49 dec ecx 0080243A 643D27000000 cmp eax, $00000027 00802440 FFFF DB $FF, $FF // 00802442 FFFF DB $FF, $FF // 00802444 0400 add al, +$00 00802446 0000 add [eax], al 00802448 59 pop ecx 00802449 46 inc esi 0080244A 49 dec ecx 0080244B 640000 add fs:[eax], al 0080244E 0000 add [eax], al 00802450 FFFF DB $FF, $FF // 00802452 FFFF DB $FF, $FF // 00802454 0100 add [eax], eax 00802456 0000 add [eax], al 00802458 27 daa 00802459 0000 add [eax], al 0080245B 00558B add [ebp-$75], dl 0080245E EC in al, dx 0080245F B904000000 mov ecx, $00000004 00802464 6A00 push $00 00802466 6A00 push $00 00802468 49 dec ecx 00802469 75F9 jnz 00802464 0080246B 51 push ecx 0080246C 53 push ebx 0080246D 56 push esi 0080246E 57 push edi 0080246F 8945FC mov [ebp-$04], eax 00802472 33C0 xor eax, eax 00802474 55 push ebp * Possible String Reference to: '閿$脬_^[嬪]' | 00802475 685B268000 push $0080265B ***** TRY | 0080247A 64FF30 push dword ptr fs:[eax] 0080247D 648920 mov fs:[eax], esp 00802480 8B45FC mov eax, [ebp-$04] * Reference to control Label11 : N.A. | 00802483 8B8064030000 mov eax, [eax+$0364] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 00802489 E8325ACCFF call 004C7EC0 0080248E 84C0 test al, al 00802490 0F85A2010000 jnz 00802638 00802496 A06C268000 mov al, byte ptr [$0080266C] 0080249B 50 push eax 0080249C 8D45EC lea eax, [ebp-$14] 0080249F B201 mov dl, $01 * Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean); | 008024A1 E8BE68C1FF call 00418D64 008024A6 8D4DEC lea ecx, [ebp-$14] 008024A9 8B45FC mov eax, [ebp-$04] * Reference to control Label11 : N.A. | 008024AC 8B8064030000 mov eax, [eax+$0364] * Possible String Reference to: 'ssel' | 008024B2 BA78268000 mov edx, $00802678 008024B7 8B18 mov ebx, [eax] * Possible reference to virtual method TN.A..OFFS_0244 | 008024B9 FF9344020000 call dword ptr [ebx+$0244] 008024BF 84C0 test al, al 008024C1 751D jnz 008024E0 008024C3 6A00 push $00 * Possible String Reference to: '提示' | 008024C5 B980268000 mov ecx, $00802680 * Possible String Reference to: '没有选择数据!' | 008024CA BA88268000 mov edx, $00802688 *) end; procedure TfrmFKCR._PROC_00802CFD(Sender : TObject); begin (* 00802CFD 50 push eax 00802CFE 6461 popa 00802D00 7465 jz 00802D67 00802D02 205946 and [ecx+$46], bl 00802D05 5F pop edi 00802D06 4D dec ebp 00802D07 6F outsd 00802D08 6E outsb 00802D09 65795F jns 00802D6B 00802D0C 43 inc ebx 00802D0D 52 push edx 00802D0E 2000 and [eax], al 00802D10 FFFF DB $FF, $FF // 00802D12 FFFF DB $FF, $FF // 00802D14 1000 adc [eax], al 00802D16 0000 add [eax], al 00802D18 205365 and [ebx+$65], dl 00802D1B 7420 jz 00802D3D 00802D1D 43 inc ebx 00802D1E 6F outsd 00802D1F 6D insd 00802D20 54 push esp 00802D21 61 popa 00802D22 69546F753D270000 imul edx, [edi+ebp*2+$75], $0000273D 00802D2A 0000 add [eax], al 00802D2C FFFF DB $FF, $FF // 00802D2E FFFF DB $FF, $FF // 00802D30 0100 add [eax], eax 00802D32 0000 add [eax], al 00802D34 27 daa 00802D35 0000 add [eax], al 00802D37 00FF add bh, bh 00802D39 FFFF DB $FF, $FF // 00802D3B FF09 dec dword ptr [ecx] 00802D3D 0000 add [eax], al 00802D3F 002C4564697465 add [$65746964+eax*2], ch 00802D46 723D jb 00802D85 00802D48 27 daa 00802D49 0000 add [eax], al 00802D4B 00FF add bh, bh 00802D4D FFFF DB $FF, $FF // 00802D4F FF1400 call dword ptr [eax+eax] 00802D52 0000 add [eax], al 00802D54 2C45 sub al, $45 00802D56 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D 00802D5F 657464 jz 00802DC6 00802D62 61 popa 00802D63 7465 jz 00802DCA 00802D65 2829 sub [ecx], ch 00802D67 2000 and [eax], al 00802D69 0000 add [eax], al 00802D6B 00FF add bh, bh 00802D6D FFFF DB $FF, $FF // 00802D6F FF0D00000020 dec dword ptr [$20000000] 00802D75 7768 jnbe 00802DDF 00802D77 657265 jb 00802DDF 00802D7A 205946 and [ecx+$46], bl 00802D7D 49 dec ecx 00802D7E 643D27000000 cmp eax, $00000027 00802D84 FFFF DB $FF, $FF // 00802D86 FFFF DB $FF, $FF // 00802D88 0400 add al, +$00 00802D8A 0000 add [eax], al 00802D8C 59 pop ecx 00802D8D 46 inc esi 00802D8E 49 dec ecx 00802D8F 640000 add fs:[eax], al 00802D92 0000 add [eax], al 00802D94 53 push ebx 00802D95 56 push esi 00802D96 8BD8 mov ebx, eax * Possible String Reference to: 'Money' | 00802D98 BAD42D8000 mov edx, $00802DD4 * Reference to control Label11 : N.A. | 00802D9D 8BB364030000 mov esi, [ebx+$0364] 00802DA3 8BC6 mov eax, esi * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00802DA5 E80A3ECCFF call 004C6BB4 00802DAA 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_4C | 00802DAC FF524C call dword ptr [edx+$4C] 00802DAF D835DC2D8000 fdiv dword ptr [$00802DDC] 00802DB5 83C4F8 add esp, -$08 00802DB8 DD1C24 fstp qword ptr [esp] 00802DBB 9B wait * Reference to control Payment : N.A. | 00802DBC 8B939C030000 mov edx, [ebx+$039C] 00802DC2 8BC6 mov eax, esi * Reference to : TfrmSelExportField._PROC_007B6D90() | 00802DC4 E8C73FFBFF call 007B6D90 00802DC9 5E pop esi 00802DCA 5B pop ebx 00802DCB C3 ret 00802DCC FFFF DB $FF, $FF // 00802DCE FFFF DB $FF, $FF // 00802DD0 050000004D add eax, +$4D000000 00802DD5 6F outsd 00802DD6 6E outsb 00802DD7 657900 jns 00802DDA 00802DDA 0000 add [eax], al 00802DDC 00401C add [eax+$1C], al 00802DDF 46 inc esi 00802DE0 55 push ebp 00802DE1 8BEC mov ebp, esp 00802DE3 6A00 push $00 00802DE5 6A00 push $00 00802DE7 6A00 push $00 00802DE9 6A00 push $00 00802DEB 6A00 push $00 00802DED 6A00 push $00 00802DEF 6A00 push $00 00802DF1 6A00 push $00 00802DF3 53 push ebx 00802DF4 56 push esi 00802DF5 8BF1 mov esi, ecx 00802DF7 8BD8 mov ebx, eax 00802DF9 33C0 xor eax, eax 00802DFB 55 push ebp 00802DFC 68722E8000 push $00802E72 ***** TRY | 00802E01 64FF30 push dword ptr fs:[eax] 00802E04 648920 mov fs:[eax], esp * Possible String Reference to: 'ChkStatus' | 00802E07 BA8C2E8000 mov edx, $00802E8C * Reference to control ADOTemp : N.A. | 00802E0C 8B833C030000 mov eax, [ebx+$033C] * Reference to: ComCtrls.TCustomListView.GetViewOrigin(TCustomListView):Windows.TPoint; | or: ComCtrls.TCustomListView.GetBoundingRect(TCustomListView):Windows.TRect; | or: DB.TDataLink.MoveBy(TDataLink;Integer):Integer; | or: InCookie.TInCookies.AddSrcCookie(TInCookies;AnsiString); | or: Outline.TOutlineNode.GetNode(TOutlineNode;Longint):TOutlineNode; | or: QFileDialog.TFileDialogForm.GetDirectory(TFileDialogForm):WideString; | 00802E12 E8098CE6FF call 0066BA20 * Reference to field N.A..OFFS_006C | 00802E17 8B586C mov ebx, [eax+$6C] 00802E1A 8D4DF0 lea ecx, [ebp-$10] 00802E1D 8BD3 mov edx, ebx 00802E1F 8BC6 mov eax, esi 00802E21 8B18 mov ebx, [eax] 00802E23 FF5340 call dword ptr [ebx+$40] 00802E26 8D45F0 lea eax, [ebp-$10] 00802E29 50 push eax 00802E2A 8D45E0 lea eax, [ebp-$20] * Possible String Reference to: '不通过' | 00802E2D BAA02E8000 mov edx, $00802EA0 * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 00802E32 E8915FC1FF call 00418DC8 00802E37 8D55E0 lea edx, [ebp-$20] 00802E3A 58 pop eax * Reference to: Variants.@VarCmpEQ(TVarData;TVarData;TVarData;TVarData); | or: Variants.@VarCmpNE(TVarData;TVarData;TVarData;TVarData); | or: Variants.@VarCmpLT(TVarData;TVarData;TVarData;TVarData); | or: Variants.@VarCmpLE(TVarData;TVarData;TVarData;TVarData); | or: Variants.@VarCmpGT(TVarData;TVarData;TVarData;TVarData); | or: Variants.@VarCmpGE(TVarData;TVarData;TVarData;TVarData); | 00802E3B E8ACA5C1FF call 0041D3EC 00802E40 750F jnz 00802E51 *) end; procedure TfrmFKCR._PROC_0080344D(Sender : TObject); begin (* 0080344D 50 push eax 0080344E 6461 popa 00803450 7465 jz 008034B7 00803452 205946 and [ecx+$46], bl 00803455 5F pop edi 00803456 4D dec ebp 00803457 6F outsd 00803458 6E outsb 00803459 65795F jns 008034BB 0080345C 43 inc ebx 0080345D 52 push edx 0080345E 2000 and [eax], al 00803460 FFFF DB $FF, $FF // 00803462 FFFF DB $FF, $FF // 00803464 0D00000020 or eax, $20000000 00803469 53 push ebx 0080346A 657420 jz 0080348D 0080346D 46 inc esi 0080346E 4B dec ebx 0080346F 54 push esp 00803470 7970 jns 008034E2 00803472 653D27000000 cmp eax, $00000027 00803478 FFFF DB $FF, $FF // 0080347A FFFF DB $FF, $FF // 0080347C 0100 add [eax], eax 0080347E 0000 add [eax], al 00803480 27 daa 00803481 0000 add [eax], al 00803483 00FF add bh, bh 00803485 FFFF DB $FF, $FF // 00803487 FF0D00000020 dec dword ptr [$20000000] 0080348D 7768 jnbe 008034F7 0080348F 657265 jb 008034F7 00803492 205946 and [ecx+$46], bl 00803495 49 dec ecx 00803496 643D27000000 cmp eax, $00000027 0080349C FFFF DB $FF, $FF // 0080349E FFFF DB $FF, $FF // 008034A0 0400 add al, +$00 008034A2 0000 add [eax], al 008034A4 59 pop ecx 008034A5 46 inc esi 008034A6 49 dec ecx 008034A7 640000 add fs:[eax], al 008034AA 0000 add [eax], al 008034AC 55 push ebp 008034AD 8BEC mov ebp, esp 008034AF 33C9 xor ecx, ecx 008034B1 51 push ecx 008034B2 51 push ecx 008034B3 51 push ecx 008034B4 51 push ecx 008034B5 51 push ecx 008034B6 51 push ecx 008034B7 51 push ecx 008034B8 51 push ecx 008034B9 53 push ebx 008034BA 56 push esi 008034BB 57 push edi 008034BC 8BF0 mov esi, eax 008034BE 33C0 xor eax, eax 008034C0 55 push ebp 008034C1 68FB358000 push $008035FB ***** TRY | 008034C6 64FF30 push dword ptr fs:[eax] 008034C9 648920 mov fs:[eax], esp 008034CC BA14368000 mov edx, $00803614 * Reference to control Payment : N.A. | 008034D1 8B869C030000 mov eax, [esi+$039C] * Reference to: Controls.TControl.SetText(TControl;TCaption); | 008034D7 E84451C8FF call 00488620 * Reference to control Label11 : N.A. | 008034DC 8B8664030000 mov eax, [esi+$0364] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 008034E2 E8D949CCFF call 004C7EC0 008034E7 84C0 test al, al 008034E9 0F85E6000000 jnz 008035D5 * Reference to control Label11 : N.A. | 008034EF 8B9E64030000 mov ebx, [esi+$0364] 008034F5 8BC3 mov eax, ebx * Reference to: DB.TDataSet.DisableControls(TDataSet); | 008034F7 E85840CCFF call 004C7554 008034FC 8BC3 mov eax, ebx * Reference to: DB.TDataSet.First(TDataSet); | 008034FE E82D4BCCFF call 004C8030 00803503 E9B2000000 jmp 008035BA 00803508 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Edit(TDataSet); | 0080350A E8314FCCFF call 004C8440 * Reference to control Label19 : N.A. | 0080350F 8B86B8030000 mov eax, [esi+$03B8] 00803515 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_00C8 | 00803517 FF92C8000000 call dword ptr [edx+$00C8] 0080351D 8BD0 mov edx, eax 0080351F 8D45F0 lea eax, [ebp-$10] * Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean); | 00803522 E83D58C1FF call 00418D64 00803527 8D45F0 lea eax, [ebp-$10] 0080352A 50 push eax * Possible String Reference to: 'ssel' | 0080352B BA20368000 mov edx, $00803620 00803530 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00803532 E87D36CCFF call 004C6BB4 00803537 5A pop edx 00803538 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_00B4 | 0080353A FF91B4000000 call dword ptr [ecx+$00B4] * Reference to control Label19 : N.A. | 00803540 8B86B8030000 mov eax, [esi+$03B8] 00803546 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_00C8 | 00803548 FF92C8000000 call dword ptr [edx+$00C8] 0080354E 3C01 cmp al, $01 00803550 7557 jnz 008035A9 * Possible String Reference to: 'Money' | 00803552 BA30368000 mov edx, $00803630 00803557 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00803559 E85636CCFF call 004C6BB4 0080355E 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_4C | 00803560 FF524C call dword ptr [edx+$4C] 00803563 DF7DE4 fistp qword ptr [ebp-$1C] 00803566 9B wait 00803567 8D55E0 lea edx, [ebp-$20] * Reference to control Payment : N.A. | 0080356A 8BBE9C030000 mov edi, [esi+$039C] 00803570 8BC7 mov eax, edi * Reference to: Controls.TControl.GetText(TControl):TCaption; | 00803572 E87950C8FF call 004885F0 00803577 8B45E0 mov eax, [ebp-$20] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 0080357A E8ADA1C0FF call 0040D72C 0080357F D80D38368000 fmul dword ptr [$00803638] 00803585 DF6DE4 fild qword ptr [ebp-$1C] 00803588 DEC1 faddp st(1), st(0) 0080358A D83538368000 fdiv dword ptr [$00803638] 00803590 83C4F4 add esp, -$0C 00803593 DB3C24 fstp tbyte ptr [esp] 00803596 9B wait 00803597 8D45EC lea eax, [ebp-$14] | 0080359A E80DA0C0FF call 0040D5AC 0080359F 8B55EC mov edx, [ebp-$14] 008035A2 8BC7 mov eax, edi * Reference to: Controls.TControl.SetText(TControl;TCaption); | 008035A4 E87750C8FF call 00488620 008035A9 8BC3 mov eax, ebx 008035AB 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_024C | 008035AD FF924C020000 call dword ptr [edx+$024C] 008035B3 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Next(TDataSet); | 008035B5 E8924DCCFF call 004C834C * Reference to field N.A..OFFS_00A1 | 008035BA 80BBA100000000 cmp byte ptr [ebx+$00A1], $00 008035C1 0F8441FFFFFF jz 00803508 008035C7 8BC3 mov eax, ebx * Reference to: DB.TDataSet.First(TDataSet); | 008035C9 E8624ACCFF call 004C8030 008035CE 8BC3 mov eax, ebx * Reference to: DB.TDataSet.EnableControls(TDataSet); | 008035D0 E89F3FCCFF call 004C7574 008035D5 33C0 xor eax, eax 008035D7 5A pop edx 008035D8 59 pop ecx 008035D9 59 pop ecx 008035DA 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '_^[嬪]' | 008035DD 6802368000 push $00803602 008035E2 8D45E0 lea eax, [ebp-$20] * Reference to: System.@LStrClr(void;void); | 008035E5 E83A1DC0FF call 00405324 008035EA 8D45EC lea eax, [ebp-$14] * Reference to: System.@LStrClr(void;void); | 008035ED E8321DC0FF call 00405324 008035F2 8D45F0 lea eax, [ebp-$10] * Reference to: Variants.@VarClr(TVarData;TVarData); | 008035F5 E87A10C1FF call 00414674 008035FA C3 ret *) end; procedure TfrmFKCR._PROC_00803A45(Sender : TObject); begin (* 00803A45 50 push eax 00803A46 6461 popa 00803A48 7465 jz 00803AAF 00803A4A 205946 and [ecx+$46], bl 00803A4D 5F pop edi 00803A4E 4D dec ebp 00803A4F 6F outsd 00803A50 6E outsb 00803A51 65795F jns 00803AB3 00803A54 43 inc ebx 00803A55 52 push edx 00803A56 2000 and [eax], al 00803A58 FFFF DB $FF, $FF // 00803A5A FFFF DB $FF, $FF // 00803A5C 0F0000 sldt word ptr [eax] 00803A5F 0020 add [eax], ah 00803A61 53 push ebx 00803A62 657420 jz 00803A85 00803A65 42 inc edx 00803A66 61 popa 00803A67 6E outsb 00803A68 6B4E616D imul ecx, [esi+$61], $6D 00803A6C 653D2700FFFF cmp eax, $FFFF0027 00803A72 FFFF DB $FF, $FF // 00803A74 0100 add [eax], eax 00803A76 0000 add [eax], al 00803A78 27 daa 00803A79 0000 add [eax], al 00803A7B 00FF add bh, bh 00803A7D FFFF DB $FF, $FF // 00803A7F FF09 dec dword ptr [ecx] 00803A81 0000 add [eax], al 00803A83 002C42 add [edx+eax*2], ch 00803A86 61 popa 00803A87 6E outsb 00803A88 6B4E6F3D imul ecx, [esi+$6F], $3D 00803A8C 27 daa 00803A8D 0000 add [eax], al 00803A8F 00FF add bh, bh 00803A91 FFFF DB $FF, $FF // 00803A93 FF0D00000020 dec dword ptr [$20000000] 00803A99 7768 jnbe 00803B03 00803A9B 657265 jb 00803B03 00803A9E 205946 and [ecx+$46], bl 00803AA1 49 dec ecx 00803AA2 643D27000000 cmp eax, $00000027 00803AA8 FFFF DB $FF, $FF // 00803AAA FFFF DB $FF, $FF // 00803AAC 0400 add al, +$00 00803AAE 0000 add [eax], al 00803AB0 59 pop ecx 00803AB1 46 inc esi 00803AB2 49 dec ecx 00803AB3 640000 add fs:[eax], al 00803AB6 0000 add [eax], al 00803AB8 55 push ebp 00803AB9 8BEC mov ebp, esp 00803ABB 51 push ecx 00803ABC B906000000 mov ecx, $00000006 00803AC1 6A00 push $00 00803AC3 6A00 push $00 00803AC5 49 dec ecx 00803AC6 75F9 jnz 00803AC1 00803AC8 51 push ecx 00803AC9 874DFC xchg [ebp-$04], ecx 00803ACC 53 push ebx 00803ACD 56 push esi 00803ACE 8BF0 mov esi, eax 00803AD0 33C0 xor eax, eax 00803AD2 55 push ebp * Possible String Reference to: '樗胫^[嬪]' | 00803AD3 68243D8000 push $00803D24 ***** TRY | 00803AD8 64FF30 push dword ptr fs:[eax] 00803ADB 648920 mov fs:[eax], esp * Reference to control Label11 : N.A. | 00803ADE 8B8664030000 mov eax, [esi+$0364] * Possible String Reference to: 'Filler' | 00803AE4 BA3C3D8000 mov edx, $00803D3C * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00803AE9 E8C630CCFF call 004C6BB4 00803AEE 8D55FC lea edx, [ebp-$04] 00803AF1 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_60 | 00803AF3 FF5160 call dword ptr [ecx+$60] 00803AF6 8B45FC mov eax, [ebp-$04] 00803AF9 50 push eax 00803AFA 8D55F8 lea edx, [ebp-$08] *) end; procedure TfrmFKCR._PROC_00803DB1(Sender : TObject); begin (* 00803DB1 50 push eax 00803DB2 6461 popa 00803DB4 7465 jz 00803E1B 00803DB6 205946 and [ecx+$46], bl 00803DB9 5F pop edi 00803DBA 4D dec ebp 00803DBB 6F outsd 00803DBC 6E outsb 00803DBD 65795F jns 00803E1F 00803DC0 43 inc ebx 00803DC1 52 push edx 00803DC2 2000 and [eax], al 00803DC4 FFFF DB $FF, $FF // 00803DC6 FFFF DB $FF, $FF // 00803DC8 0D00000020 or eax, $20000000 00803DCD 53 push ebx 00803DCE 657420 jz 00803DF1 00803DD1 42 inc edx 00803DD2 61 popa 00803DD3 6E outsb 00803DD4 6B4E6F3D imul ecx, [esi+$6F], $3D 00803DD8 27 daa 00803DD9 0000 add [eax], al 00803DDB 00FF add bh, bh 00803DDD FFFF DB $FF, $FF // 00803DDF FF01 inc dword ptr [ecx] 00803DE1 0000 add [eax], al 00803DE3 0027 add [edi], ah 00803DE5 0000 add [eax], al 00803DE7 00FF add bh, bh 00803DE9 FFFF DB $FF, $FF // 00803DEB FF0D00000020 dec dword ptr [$20000000] 00803DF1 7768 jnbe 00803E5B 00803DF3 657265 jb 00803E5B 00803DF6 205946 and [ecx+$46], bl 00803DF9 49 dec ecx 00803DFA 643D27000000 cmp eax, $00000027 00803E00 FFFF DB $FF, $FF // 00803E02 FFFF DB $FF, $FF // 00803E04 0400 add al, +$00 00803E06 0000 add [eax], al 00803E08 59 pop ecx 00803E09 46 inc esi 00803E0A 49 dec ecx 00803E0B 640000 add fs:[eax], al 00803E0E 0000 add [eax], al 00803E10 55 push ebp 00803E11 8BEC mov ebp, esp 00803E13 51 push ecx 00803E14 B909000000 mov ecx, $00000009 00803E19 6A00 push $00 00803E1B 6A00 push $00 00803E1D 49 dec ecx 00803E1E 75F9 jnz 00803E19 00803E20 874DFC xchg [ebp-$04], ecx 00803E23 53 push ebx 00803E24 56 push esi 00803E25 8BD8 mov ebx, eax 00803E27 33C0 xor eax, eax 00803E29 55 push ebp 00803E2A 685A418000 push $0080415A ***** TRY | 00803E2F 64FF30 push dword ptr fs:[eax] 00803E32 648920 mov fs:[eax], esp * Reference to control Label11 : N.A. | 00803E35 8B8364030000 mov eax, [ebx+$0364] * Possible String Reference to: 'Filler' | 00803E3B BA70418000 mov edx, $00804170 * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00803E40 E86F2DCCFF call 004C6BB4 00803E45 8D55FC lea edx, [ebp-$04] 00803E48 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_60 | 00803E4A FF5160 call dword ptr [ecx+$60] 00803E4D 8B45FC mov eax, [ebp-$04] 00803E50 50 push eax 00803E51 8D55F8 lea edx, [ebp-$08] *) end; procedure TfrmFKCR._PROC_0080427D(Sender : TObject); begin (* 0080427D 50 push eax 0080427E 6461 popa 00804280 7465 jz 008042E7 00804282 205946 and [ecx+$46], bl 00804285 5F pop edi 00804286 4D dec ebp 00804287 6F outsd 00804288 6E outsb 00804289 65795F jns 008042EB 0080428C 43 inc ebx 0080428D 52 push edx 0080428E 2000 and [eax], al 00804290 FFFF DB $FF, $FF // 00804292 FFFF DB $FF, $FF // 00804294 0F0000 sldt word ptr [eax] 00804297 0020 add [eax], ah 00804299 53 push ebx 0080429A 657420 jz 008042BD 0080429D 46 inc esi 0080429E 4B dec ebx 0080429F 54 push esp 008042A0 61 popa 008042A1 69746F753D2700FF imul esi, [edi+ebp*2+$75], $FF00273D 008042A9 FFFF DB $FF, $FF // 008042AB FF0D00000020 dec dword ptr [$20000000] 008042B1 7768 jnbe 0080431B 008042B3 657265 jb 0080431B 008042B6 205946 and [ecx+$46], bl 008042B9 49 dec ecx 008042BA 643D27000000 cmp eax, $00000027 008042C0 FFFF DB $FF, $FF // 008042C2 FFFF DB $FF, $FF // 008042C4 0400 add al, +$00 008042C6 0000 add [eax], al 008042C8 59 pop ecx 008042C9 46 inc esi 008042CA 49 dec ecx 008042CB 640000 add fs:[eax], al 008042CE 0000 add [eax], al 008042D0 55 push ebp 008042D1 8BEC mov ebp, esp 008042D3 B923000000 mov ecx, $00000023 008042D8 6A00 push $00 008042DA 6A00 push $00 008042DC 49 dec ecx 008042DD 75F9 jnz 008042D8 008042DF 51 push ecx 008042E0 53 push ebx 008042E1 56 push esi 008042E2 8BD8 mov ebx, eax 008042E4 33C0 xor eax, eax 008042E6 55 push ebp * Possible String Reference to: '楹镹^[嬪]' | 008042E7 68354B8000 push $00804B35 ***** TRY | 008042EC 64FF30 push dword ptr fs:[eax] 008042EF 648920 mov fs:[eax], esp * Reference to control Label11 : N.A. | 008042F2 8B8364030000 mov eax, [ebx+$0364] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 008042F8 E8C33BCCFF call 004C7EC0 008042FD 84C0 test al, al 008042FF 0F857B070000 jnz 00804A80 00804305 A0484B8000 mov al, byte ptr [$00804B48] 0080430A 50 push eax 0080430B 8D45D4 lea eax, [ebp-$2C] 0080430E B201 mov dl, $01 * Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean); | 00804310 E84F4AC1FF call 00418D64 00804315 8D4DD4 lea ecx, [ebp-$2C] * Possible String Reference to: 'Ssel' | 00804318 BA544B8000 mov edx, $00804B54 * Reference to control Label11 : N.A. | 0080431D 8B8364030000 mov eax, [ebx+$0364] 00804323 8B30 mov esi, [eax] * Possible reference to virtual method TN.A..OFFS_0244 | 00804325 FF9644020000 call dword ptr [esi+$0244] 0080432B 84C0 test al, al 0080432D 751D jnz 0080434C 0080432F 6A00 push $00 * Possible String Reference to: '提示' | 00804331 B95C4B8000 mov ecx, $00804B5C * Possible String Reference to: '没有选择数据' | 00804336 BA644B8000 mov edx, $00804B64 *) end; procedure TfrmFKCR._PROC_00804FD1(Sender : TObject); begin (* 00804FD1 50 push eax 00804FD2 6461 popa 00804FD4 7465 jz 0080503B 00804FD6 205946 and [ecx+$46], bl 00804FD9 5F pop edi 00804FDA 4D dec ebp 00804FDB 6F outsd 00804FDC 6E outsb 00804FDD 65795F jns 0080503F 00804FE0 43 inc ebx 00804FE1 52 push edx 00804FE2 2000 and [eax], al 00804FE4 FFFF DB $FF, $FF // 00804FE6 FFFF DB $FF, $FF // 00804FE8 0A00 or al, byte ptr [eax] 00804FEA 0000 add [eax], al 00804FEC 205365 and [ebx+$65], dl 00804FEF 7420 jz 00805011 00804FF1 51 push ecx 00804FF2 7479 jz 0080506D 00804FF4 3D270000FF cmp eax, $FF000027 00804FF9 FFFF DB $FF, $FF // 00804FFB FF01 inc dword ptr [ecx] 00804FFD 0000 add [eax], al 00804FFF 0027 add [edi], ah 00805001 0000 add [eax], al 00805003 00FF add bh, bh 00805005 FFFF DB $FF, $FF // 00805007 FF08 dec dword ptr [eax] 00805009 0000 add [eax], al 0080500B 002C4D6F6E6579 add [$79656E6F+ecx*2], ch 00805012 3D27000000 cmp eax, $00000027 00805017 00FF add bh, bh 00805019 FFFF DB $FF, $FF // 0080501B FF1400 call dword ptr [eax+eax] 0080501E 0000 add [eax], al 00805020 2C45 sub al, $45 00805022 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D 0080502B 657464 jz 00805092 0080502E 61 popa 0080502F 7465 jz 00805096 00805031 2829 sub [ecx], ch 00805033 2000 and [eax], al 00805035 0000 add [eax], al 00805037 00FF add bh, bh 00805039 FFFF DB $FF, $FF // 0080503B FF0D00000020 dec dword ptr [$20000000] 00805041 7768 jnbe 008050AB 00805043 657265 jb 008050AB 00805046 205946 and [ecx+$46], bl 00805049 49 dec ecx 0080504A 643D27000000 cmp eax, $00000027 00805050 FFFF DB $FF, $FF // 00805052 FFFF DB $FF, $FF // 00805054 0400 add al, +$00 00805056 0000 add [eax], al 00805058 59 pop ecx 00805059 46 inc esi 0080505A 49 dec ecx 0080505B 640000 add fs:[eax], al 0080505E 0000 add [eax], al 00805060 55 push ebp 00805061 8BEC mov ebp, esp 00805063 B90A000000 mov ecx, $0000000A 00805068 6A00 push $00 0080506A 6A00 push $00 0080506C 49 dec ecx 0080506D 75F9 jnz 00805068 0080506F 51 push ecx 00805070 53 push ebx 00805071 56 push esi 00805072 8BDA mov ebx, edx 00805074 8BF0 mov esi, eax 00805076 33C0 xor eax, eax 00805078 55 push ebp * Possible String Reference to: '閕肫^[嬪]' | 00805079 6886528000 push $00805286 ***** TRY | 0080507E 64FF30 push dword ptr fs:[eax] 00805081 648920 mov fs:[eax], esp 00805084 8D55FC lea edx, [ebp-$04] 00805087 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; | 00805089 E82EA6D8FF call 0058F6BC 0080508E 8D55F8 lea edx, [ebp-$08] 00805091 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 00805094 E85358C0FF call 0040A8EC 00805099 837DF800 cmp dword ptr [ebp-$08], +$00 0080509D 750D jnz 008050AC 0080509F 8D45FC lea eax, [ebp-$04] 008050A2 BA9C528000 mov edx, $0080529C * Reference to: System.@LStrLAsg(void;void;void;void); | 008050A7 E81003C0FF call 004053BC * Reference to control Label11 : N.A. | 008050AC 8B9E64030000 mov ebx, [esi+$0364] 008050B2 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Edit(TDataSet); | 008050B4 E88733CCFF call 004C8440 008050B9 8D55E4 lea edx, [ebp-$1C] 008050BC 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 008050BF E82858C0FF call 0040A8EC 008050C4 8B55E4 mov edx, [ebp-$1C] 008050C7 8D45E8 lea eax, [ebp-$18] * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 008050CA E8F93CC1FF call 00418DC8 008050CF 8D45E8 lea eax, [ebp-$18] 008050D2 50 push eax * Possible String Reference to: 'Price' | 008050D3 BAA8528000 mov edx, $008052A8 008050D8 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 008050DA E8D51ACCFF call 004C6BB4 008050DF 5A pop edx 008050E0 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_00B4 | 008050E2 FF91B4000000 call dword ptr [ecx+$00B4] * Possible String Reference to: 'Qty' | 008050E8 BAB8528000 mov edx, $008052B8 008050ED 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 008050EF E8C01ACCFF call 004C6BB4 008050F4 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_54 | 008050F6 FF5254 call dword ptr [edx+$54] 008050F9 DD5DCC fstp qword ptr [ebp-$34] 008050FC 9B wait * Possible String Reference to: 'Price' | 008050FD BAA8528000 mov edx, $008052A8 00805102 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00805104 E8AB1ACCFF call 004C6BB4 00805109 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_54 | 0080510B FF5254 call dword ptr [edx+$54] 0080510E DC4DCC fmul qword ptr [ebp-$34] 00805111 8D45D4 lea eax, [ebp-$2C] * Reference to: Variants.@VarFromReal; | 00805114 E8733CC1FF call 00418D8C 00805119 8D45D4 lea eax, [ebp-$2C] 0080511C 50 push eax * Possible String Reference to: 'Money' | 0080511D BAC4528000 mov edx, $008052C4 00805122 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00805124 E88B1ACCFF call 004C6BB4 00805129 5A pop edx 0080512A 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_00B4 | 0080512C FF91B4000000 call dword ptr [ecx+$00B4] * Reference to control OrdDate : N.A. | 00805132 8B9E0C030000 mov ebx, [esi+$030C] 00805138 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 0080513A E89507CCFF call 004C58D4 0080513F 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; | 00805141 E8668ECDFF call 004DDFAC 00805146 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_44 | 00805148 FF5244 call dword ptr [edx+$44] 0080514B 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; | 0080514D E85A8ECDFF call 004DDFAC * Possible String Reference to: 'UPdate YF_Money_CR ' | 00805152 BAD4528000 mov edx, $008052D4 00805157 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 00805159 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ' Set Price='' | 0080515C 68F0528000 push $008052F0 00805161 8D55C4 lea edx, [ebp-$3C] 00805164 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 00805167 E88057C0FF call 0040A8EC 0080516C FF75C4 push dword ptr [ebp-$3C] 0080516F 6808538000 push $00805308 00805174 8D45C8 lea eax, [ebp-$38] 00805177 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 0080517C E83305C0FF call 004056B4 00805181 8B45C8 mov eax, [ebp-$38] 00805184 50 push eax 00805185 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; | 00805187 E8208ECDFF call 004DDFAC 0080518C 5A pop edx 0080518D 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 0080518F FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ',Money='' | 00805192 6814538000 push $00805314 * Reference to control Label11 : N.A. | 00805197 8B8664030000 mov eax, [esi+$0364] * Possible String Reference to: 'Money' | 0080519D BAC4528000 mov edx, $008052C4 * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 008051A2 E80D1ACCFF call 004C6BB4 008051A7 8D55B8 lea edx, [ebp-$48] 008051AA 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_60 | 008051AC FF5160 call dword ptr [ecx+$60] 008051AF 8B45B8 mov eax, [ebp-$48] 008051B2 8D55BC lea edx, [ebp-$44] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 008051B5 E83257C0FF call 0040A8EC 008051BA FF75BC push dword ptr [ebp-$44] 008051BD 6808538000 push $00805308 008051C2 8D45C0 lea eax, [ebp-$40] 008051C5 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 008051CA E8E504C0FF call 004056B4 008051CF 8B45C0 mov eax, [ebp-$40] 008051D2 50 push eax 008051D3 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; | 008051D5 E8D28DCDFF call 004DDFAC 008051DA 5A pop edx 008051DB 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 008051DD FF5138 call dword ptr [ecx+$38] 008051E0 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; | 008051E2 E8C58DCDFF call 004DDFAC * Possible String Reference to: ',Edittime=getdate() ' | 008051E7 BA28538000 mov edx, $00805328 008051EC 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 008051EE FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ' where YFId='' | 008051F1 6848538000 push $00805348 * Reference to control Label11 : N.A. | 008051F6 8B8664030000 mov eax, [esi+$0364] * Possible String Reference to: 'YFId' | 008051FC BA60538000 mov edx, $00805360 * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00805201 E8AE19CCFF call 004C6BB4 00805206 8D55AC lea edx, [ebp-$54] 00805209 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_60 | 0080520B FF5160 call dword ptr [ecx+$60] 0080520E 8B45AC mov eax, [ebp-$54] 00805211 8D55B0 lea edx, [ebp-$50] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 00805214 E8D356C0FF call 0040A8EC 00805219 FF75B0 push dword ptr [ebp-$50] 0080521C 6808538000 push $00805308 00805221 8D45B4 lea eax, [ebp-$4C] 00805224 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 00805229 E88604C0FF call 004056B4 0080522E 8B45B4 mov eax, [ebp-$4C] 00805231 50 push eax 00805232 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; | 00805234 E8738DCDFF call 004DDFAC 00805239 5A pop edx 0080523A 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 0080523C FF5138 call dword ptr [ecx+$38] 0080523F 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer; | 00805241 E88E8CCDFF call 004DDED4 00805246 33C0 xor eax, eax 00805248 5A pop edx 00805249 59 pop ecx 0080524A 59 pop ecx 0080524B 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '^[嬪]' | 0080524E 688D528000 push $0080528D 00805253 8D45AC lea eax, [ebp-$54] 00805256 BA08000000 mov edx, $00000008 * Reference to: System.@LStrArrayClr(void;void;Integer); | 0080525B E8E800C0FF call 00405348 00805260 8D45D4 lea eax, [ebp-$2C] * Reference to: Variants.@VarClr(TVarData;TVarData); | 00805263 E80CF4C0FF call 00414674 00805268 8D45E4 lea eax, [ebp-$1C] * Reference to: System.@LStrClr(void;void); | 0080526B E8B400C0FF call 00405324 00805270 8D45E8 lea eax, [ebp-$18] * Reference to: Variants.@VarClr(TVarData;TVarData); | 00805273 E8FCF3C0FF call 00414674 00805278 8D45F8 lea eax, [ebp-$08] 0080527B BA02000000 mov edx, $00000002 * Reference to: System.@LStrArrayClr(void;void;Integer); | 00805280 E8C300C0FF call 00405348 00805285 C3 ret *) end; procedure TfrmFKCR._PROC_008052D5(Sender : TObject); begin (* 008052D5 50 push eax 008052D6 6461 popa 008052D8 7465 jz 0080533F 008052DA 205946 and [ecx+$46], bl 008052DD 5F pop edi 008052DE 4D dec ebp 008052DF 6F outsd 008052E0 6E outsb 008052E1 65795F jns 00805343 008052E4 43 inc ebx 008052E5 52 push edx 008052E6 2000 and [eax], al 008052E8 FFFF DB $FF, $FF // 008052EA FFFF DB $FF, $FF // 008052EC 0C00 or al, $00 008052EE 0000 add [eax], al 008052F0 205365 and [ebx+$65], dl 008052F3 7420 jz 00805315 008052F5 50 push eax 008052F6 7269 jb 00805361 008052F8 63653D arpl [ebp+$3D], sp 008052FB 27 daa 008052FC 0000 add [eax], al 008052FE 0000 add [eax], al 00805300 FFFF DB $FF, $FF // 00805302 FFFF DB $FF, $FF // 00805304 0100 add [eax], eax 00805306 0000 add [eax], al 00805308 27 daa 00805309 0000 add [eax], al 0080530B 00FF add bh, bh 0080530D FFFF DB $FF, $FF // 0080530F FF08 dec dword ptr [eax] 00805311 0000 add [eax], al 00805313 002C4D6F6E6579 add [$79656E6F+ecx*2], ch 0080531A 3D27000000 cmp eax, $00000027 0080531F 00FF add bh, bh 00805321 FFFF DB $FF, $FF // 00805323 FF1400 call dword ptr [eax+eax] 00805326 0000 add [eax], al 00805328 2C45 sub al, $45 0080532A 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D 00805333 657464 jz 0080539A 00805336 61 popa 00805337 7465 jz 0080539E 00805339 2829 sub [ecx], ch 0080533B 2000 and [eax], al 0080533D 0000 add [eax], al 0080533F 00FF add bh, bh 00805341 FFFF DB $FF, $FF // 00805343 FF0D00000020 dec dword ptr [$20000000] 00805349 7768 jnbe 008053B3 0080534B 657265 jb 008053B3 0080534E 205946 and [ecx+$46], bl 00805351 49 dec ecx 00805352 643D27000000 cmp eax, $00000027 00805358 FFFF DB $FF, $FF // 0080535A FFFF DB $FF, $FF // 0080535C 0400 add al, +$00 0080535E 0000 add [eax], al 00805360 59 pop ecx 00805361 46 inc esi 00805362 49 dec ecx 00805363 640000 add fs:[eax], al 00805366 0000 add [eax], al 00805368 55 push ebp 00805369 8BEC mov ebp, esp 0080536B 51 push ecx 0080536C B905000000 mov ecx, $00000005 00805371 6A00 push $00 00805373 6A00 push $00 00805375 49 dec ecx 00805376 75F9 jnz 00805371 00805378 51 push ecx 00805379 874DFC xchg [ebp-$04], ecx 0080537C 53 push ebx 0080537D 56 push esi 0080537E 8BF0 mov esi, eax 00805380 33C0 xor eax, eax 00805382 55 push ebp * Possible String Reference to: '閧蹩脬^[嬪]' | 00805383 6874558000 push $00805574 ***** TRY | 00805388 64FF30 push dword ptr fs:[eax] 0080538B 648920 mov fs:[eax], esp 0080538E 33C0 xor eax, eax 00805390 55 push ebp 00805391 684A558000 push $0080554A ***** TRY | 00805396 64FF30 push dword ptr fs:[eax] 00805399 648920 mov fs:[eax], esp *) end; procedure TfrmFKCR._PROC_008055C1(Sender : TObject); begin (* 008055C1 50 push eax 008055C2 6461 popa 008055C4 7465 jz 0080562B 008055C6 205946 and [ecx+$46], bl 008055C9 5F pop edi 008055CA 4D dec ebp 008055CB 6F outsd 008055CC 6E outsb 008055CD 65795F jns 0080562F 008055D0 43 inc ebx 008055D1 52 push edx 008055D2 2000 and [eax], al 008055D4 FFFF DB $FF, $FF // 008055D6 FFFF DB $FF, $FF // 008055D8 0F0000 sldt word ptr [eax] 008055DB 0020 add [eax], ah 008055DD 53 push ebx 008055DE 657420 jz 00805601 008055E1 53 push ebx 008055E2 51 push ecx 008055E3 50 push eax 008055E4 657270 jb 00805657 008055E7 6F outsd 008055E8 6E outsb 008055E9 3D2700FFFF cmp eax, $FFFF0027 008055EE FFFF DB $FF, $FF // 008055F0 0100 add [eax], eax 008055F2 0000 add [eax], al 008055F4 27 daa 008055F5 0000 add [eax], al 008055F7 00FF add bh, bh 008055F9 FFFF DB $FF, $FF // 008055FB FF0D00000020 dec dword ptr [$20000000] 00805601 7768 jnbe 0080566B 00805603 657265 jb 0080566B 00805606 205946 and [ecx+$46], bl 00805609 49 dec ecx 0080560A 643D27000000 cmp eax, $00000027 00805610 FFFF DB $FF, $FF // 00805612 FFFF DB $FF, $FF // 00805614 0400 add al, +$00 00805616 0000 add [eax], al 00805618 59 pop ecx 00805619 46 inc esi 0080561A 49 dec ecx 0080561B 640000 add fs:[eax], al 0080561E 0000 add [eax], al 00805620 53 push ebx 00805621 8BD8 mov ebx, eax * Reference to control Label11 : N.A. | 00805623 8B8364030000 mov eax, [ebx+$0364] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 00805629 E89228CCFF call 004C7EC0 0080562E 84C0 test al, al 00805630 750A jnz 0080563C 00805632 C7834C02000001000000 mov dword ptr [ebx+$024C], $00000001 0080563C 5B pop ebx 0080563D C3 ret 0080563E 8BC0 mov eax, eax 00805640 55 push ebp 00805641 8BEC mov ebp, esp 00805643 B904000000 mov ecx, $00000004 00805648 6A00 push $00 0080564A 6A00 push $00 0080564C 49 dec ecx 0080564D 75F9 jnz 00805648 0080564F 51 push ecx 00805650 53 push ebx 00805651 56 push esi 00805652 57 push edi 00805653 8945FC mov [ebp-$04], eax 00805656 33C0 xor eax, eax 00805658 55 push ebp * Possible String Reference to: '榘蚩脬_^[嬪]' | 00805659 683F588000 push $0080583F ***** TRY | 0080565E 64FF30 push dword ptr fs:[eax] 00805661 648920 mov fs:[eax], esp 00805664 8B45FC mov eax, [ebp-$04] * Reference to control Label11 : N.A. | 00805667 8B8064030000 mov eax, [eax+$0364] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 0080566D E84E28CCFF call 004C7EC0 00805672 84C0 test al, al 00805674 0F85A2010000 jnz 0080581C 0080567A A050588000 mov al, byte ptr [$00805850] 0080567F 50 push eax 00805680 8D45EC lea eax, [ebp-$14] 00805683 B201 mov dl, $01 * Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean); | 00805685 E8DA36C1FF call 00418D64 0080568A 8D4DEC lea ecx, [ebp-$14] 0080568D 8B45FC mov eax, [ebp-$04] * Reference to control Label11 : N.A. | 00805690 8B8064030000 mov eax, [eax+$0364] * Possible String Reference to: 'ssel' | 00805696 BA5C588000 mov edx, $0080585C 0080569B 8B18 mov ebx, [eax] * Possible reference to virtual method TN.A..OFFS_0244 | 0080569D FF9344020000 call dword ptr [ebx+$0244] 008056A3 84C0 test al, al 008056A5 751D jnz 008056C4 008056A7 6A00 push $00 * Possible String Reference to: '提示' | 008056A9 B964588000 mov ecx, $00805864 * Possible String Reference to: '没有选择数据!' | 008056AE BA6C588000 mov edx, $0080586C *) end; procedure TfrmFKCR._PROC_00806151(Sender : TObject); begin (* 00806151 50 push eax 00806152 6461 popa 00806154 7465 jz 008061BB 00806156 205946 and [ecx+$46], bl 00806159 5F pop edi 0080615A 4D dec ebp 0080615B 6F outsd 0080615C 6E outsb 0080615D 65795F jns 008061BF 00806160 43 inc ebx 00806161 52 push edx 00806162 2000 and [eax], al 00806164 FFFF DB $FF, $FF // 00806166 FFFF DB $FF, $FF // 00806168 0F0000 sldt word ptr [eax] 0080616B 0020 add [eax], ah 0080616D 53 push ebx 0080616E 657420 jz 00806191 00806171 4B dec ebx 00806172 50 push eax 00806173 53 push ebx 00806174 7461 jz 008061D7 00806176 7475 jz 008061ED 00806178 733D jnb 008061B7 0080617A 27 daa 0080617B 00FF add bh, bh 0080617D FFFF DB $FF, $FF // 0080617F FF01 inc dword ptr [ecx] 00806181 0000 add [eax], al 00806183 0027 add [edi], ah 00806185 0000 add [eax], al 00806187 00FF add bh, bh 00806189 FFFF DB $FF, $FF // 0080618B FF0D00000020 dec dword ptr [$20000000] 00806191 7768 jnbe 008061FB 00806193 657265 jb 008061FB 00806196 205946 and [ecx+$46], bl 00806199 49 dec ecx 0080619A 643D27000000 cmp eax, $00000027 008061A0 FFFF DB $FF, $FF // 008061A2 FFFF DB $FF, $FF // 008061A4 0400 add al, +$00 008061A6 0000 add [eax], al 008061A8 59 pop ecx 008061A9 46 inc esi 008061AA 49 dec ecx 008061AB 640000 add fs:[eax], al 008061AE 0000 add [eax], al 008061B0 55 push ebp 008061B1 8BEC mov ebp, esp 008061B3 51 push ecx 008061B4 B90A000000 mov ecx, $0000000A 008061B9 6A00 push $00 008061BB 6A00 push $00 008061BD 49 dec ecx 008061BE 75F9 jnz 008061B9 008061C0 874DFC xchg [ebp-$04], ecx 008061C3 53 push ebx 008061C4 56 push esi 008061C5 8BF0 mov esi, eax 008061C7 33C0 xor eax, eax 008061C9 55 push ebp * Possible String Reference to: '闂婵胛^[嬪]' | 008061CA 6858648000 push $00806458 ***** TRY | 008061CF 64FF30 push dword ptr fs:[eax] 008061D2 648920 mov fs:[eax], esp 008061D5 33C0 xor eax, eax 008061D7 55 push ebp 008061D8 6819648000 push $00806419 ***** TRY | 008061DD 64FF30 push dword ptr fs:[eax] 008061E0 648920 mov fs:[eax], esp *) end; procedure TfrmFKCR._PROC_00806491(Sender : TObject); begin (* 00806491 50 push eax 00806492 6461 popa 00806494 7465 jz 008064FB 00806496 205946 and [ecx+$46], bl 00806499 5F pop edi 0080649A 4D dec ebp 0080649B 6F outsd 0080649C 6E outsb 0080649D 65795F jns 008064FF 008064A0 43 inc ebx 008064A1 52 push edx 008064A2 2000 and [eax], al 008064A4 FFFF DB $FF, $FF // 008064A6 FFFF DB $FF, $FF // 008064A8 0E push cs 008064A9 0000 add [eax], al 008064AB 0020 add [eax], ah 008064AD 53 push ebx 008064AE 657420 jz 008064D1 008064B1 4F dec edi 008064B2 7264 jb 00806518 008064B4 65724E jb 00806505 008064B7 4F dec edi 008064B8 3D270000FF cmp eax, $FF000027 008064BD FFFF DB $FF, $FF // 008064BF FF07 inc dword ptr [edi] 008064C1 0000 add [eax], al 008064C3 004F72 add [edi+$72], cl 008064C6 6465724E jb 00806518 008064CA 4F dec edi 008064CB 00FF add bh, bh 008064CD FFFF DB $FF, $FF // 008064CF FF01 inc dword ptr [ecx] 008064D1 0000 add [eax], al 008064D3 0027 add [edi], ah 008064D5 0000 add [eax], al 008064D7 00FF add bh, bh 008064D9 FFFF DB $FF, $FF // 008064DB FF09 dec dword ptr [ecx] 008064DD 0000 add [eax], al 008064DF 0020 add [eax], ah 008064E1 2C43 sub al, $43 008064E3 6F outsd 008064E4 6E outsb 008064E5 4E dec esi 008064E6 4F dec edi 008064E7 3D27000000 cmp eax, $00000027 008064EC FFFF DB $FF, $FF // 008064EE FFFF DB $FF, $FF // 008064F0 0D00000020 or eax, $20000000 008064F5 7768 jnbe 0080655F 008064F7 657265 jb 0080655F 008064FA 205946 and [ecx+$46], bl 008064FD 49 dec ecx 008064FE 643D27000000 cmp eax, $00000027 00806504 FFFF DB $FF, $FF // 00806506 FFFF DB $FF, $FF // 00806508 0400 add al, +$00 0080650A 0000 add [eax], al 0080650C 59 pop ecx 0080650D 46 inc esi 0080650E 49 dec ecx 0080650F 640000 add fs:[eax], al 00806512 0000 add [eax], al 00806514 55 push ebp 00806515 8BEC mov ebp, esp 00806517 33C0 xor eax, eax 00806519 55 push ebp * Possible String Reference to: '槎蹇滕]脣纼-<' | 0080651A 6839658000 push $00806539 ***** TRY | 0080651F 64FF30 push dword ptr fs:[eax] 00806522 648920 mov fs:[eax], esp 00806525 FF05EC3C8900 inc dword ptr [$00893CEC] 0080652B 33C0 xor eax, eax 0080652D 5A pop edx 0080652E 59 pop ecx 0080652F 59 pop ecx 00806530 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: ']脣纼-<' | 00806533 6840658000 push $00806540 00806538 C3 ret * Reference to: System.@HandleFinally; | 00806539 E9B6E5BFFF jmp 00404AF4 0080653E EBF8 jmp 00806538 ****** END | 00806540 5D pop ebp 00806541 C3 ret 00806542 8BC0 mov eax, eax 00806544 832DEC3C890001 sub dword ptr [$00893CEC], +$01 0080654B C3 ret 0080654C 98 cwde 0080654D 65800000 add byte ptr gs:[eax], $00 00806551 0000 add [eax], al 00806553 0000 add [eax], al 00806555 0000 add [eax], al 00806557 008C668000206C add [esi+$6C200080], cl 0080655E 8000B6 add byte ptr [eax], $B6 00806561 668000F9 add byte ptr [eax], $F9 00806565 6A80 push $80 00806567 0000 add [eax], al *) end; procedure TfrmFKCR._PROC_008065B2(Sender : TObject); begin (* 008065B2 48 dec eax 008065B3 0050D4 add [eax-$2C], dl 008065B6 42 inc edx 008065B7 0008 add [eax], cl 008065B9 2D4A007CD0 sub eax, $D07C004A 008065BE 42 inc edx 008065BF 00F4 add ah, dh 008065C1 6B4A00D0 imul ecx, [edx+$00], $D0 008065C5 1D4A0030F6 sbb eax, $F630004A 008065CA 48 dec eax 008065CB 004CFB48 add [ebx+edi*8+$48], cl 008065CF 0098FA48000C add [eax+$C0048FA], bl 008065D5 7948 jns 0080661F 008065D7 00ACF04800E829 add [eax+esi*8+$29E80048], ch 008065DE 4A dec edx 008065DF 00E4 add ah, ah 008065E1 ED in eax, dx 008065E2 48 dec eax 008065E3 00547848 add [eax+edi*2+$48], dl 008065E7 005878 add [eax+$78], bl 008065EA 48 dec eax 008065EB 00DC add ah, bl 008065ED 2A4A00 sub cl, byte ptr [edx+$00] 008065F0 3CA9 cmp al, $A9 008065F2 48 dec eax 008065F3 00C0 add al, al 008065F5 834800D0 or dword ptr [eax+$00], -$30 008065F9 7948 jns 00806643 008065FB 004C8548 add [ebp+eax*4+$48], cl 008065FF 00D0 add al, dl 00806601 2C4A sub al, $4A 00806603 009C2B4A008486 add [ebx+ebp+$8684004A], bl 0080660A 48 dec eax 0080660B 00482D add [eax+$2D], cl 0080660E 4A dec edx 0080660F 00C0 add al, al 00806611 A9480038EE test eax, $EE380048 00806616 48 dec eax 00806617 00F4 add ah, dh 00806619 EE out dx, al 0080661A 48 dec eax 0080661B 00F0 add al, dh 0080661D E94800D8EE jmp EF58666A 00806622 48 dec eax 00806623 00D8 add al, bl 00806625 1B4A00 sbb ecx, [edx+$00] 00806628 EC in al, dx 00806629 334A00 xor ecx, [edx+$00] 0080662C 20C4 and ah, al 0080662E 48 dec eax 0080662F 00B0404A0010 add [eax+$10004A40], dh 00806635 44 inc esp 00806636 4A dec edx 00806637 00CC add ah, cl 00806639 42 inc edx 0080663A 4A dec edx 0080663B 00B8C44800BC add [eax+$BC0048C4], bh 00806641 C44800 les ecx, [eax+$00] 00806644 48 dec eax 00806645 45 inc ebp 00806646 4A dec edx 00806647 001CC3 add [ebx+eax*8], bl 0080664A 48 dec eax 0080664B 0018 add [eax], bl 0080664D F0 lock 0080664E 48 dec eax 0080664F 00444C4A add [esp+ecx*2+$4A], al 00806653 000C02 add [edx+eax], cl 00806656 49 dec ecx 00806657 0094EC48009C64 add [esp+ebp*8+$649C0048], dl 0080665E 4A dec edx 0080665F 008C154A003C18 add [ebp+edx+$183C004A], cl 00806666 4A dec edx 00806667 0038 add [eax], bh 00806669 52 push edx 0080666A 4A dec edx 0080666B 005C224A add [edx+$4A], bl 0080666F 00D8 add al, bl 00806671 224A00 and cl, byte ptr [edx+$00] 00806674 7C68 jl 008066DE 00806676 4A dec edx 00806677 00941F4A003C60 add [edi+ebx+$603C004A], dl 0080667E 4A dec edx 0080667F 001447 add [edi+eax*2], dl 00806682 4A dec edx 00806683 0034654A00CC2C add [$2CCC004A], dh 0080668A 4A dec edx 0080668B 000E add [esi], cl 0080668D 0000 add [eax], al 0080668F 0000 add [eax], al 00806691 000400 add [eax+eax], al 00806694 0000 add [eax], al 00806696 2011 and [ecx], dl 00806698 40 inc eax 00806699 000C04 add [esp+eax], cl 0080669C 0000 add [eax], al 0080669E 2011 and [ecx], dl 008066A0 40 inc eax 008066A1 0010 add [eax], dl 008066A3 0400 add al, +$00 008066A5 0020 add [eax], ah 008066A7 114000 adc [eax+$00], eax 008066AA 1404 adc al, $04 008066AC 0000 add [eax], al 008066AE 2011 and [ecx], dl 008066B0 40 inc eax 008066B1 0018 add [eax], bl 008066B3 0400 add al, +$00 008066B5 004500 add [ebp+$00], al 008066B8 D26B80 shr byte ptr [ebx-$80], cl 008066BB 00F8 add al, bh 008066BD 0200 add al, byte ptr [eax] 008066BF 0000 add [eax], al 008066C1 0008 add [eax], cl 008066C3 54 push esp 008066C4 6F outsd 008066C5 6F outsd 008066C6 6C insb 008066C7 42 inc edx 008066C8 61 popa 008066C9 7231 jb 008066FC 008066CB FC cld 008066CC 0200 add al, byte ptr [eax] 008066CE 0001 add [ecx], al 008066D0 0009 add [ecx], cl 008066D2 54 push esp 008066D3 42 inc edx 008066D4 52 push edx 008066D5 61 popa 008066D6 667265 jb 0080673E 008066D9 7368 jnb 00806743 008066DB 0003 add [ebx], al 008066DD 0000 add [eax], al 008066DF 0100 add [eax], eax 008066E1 07 pop es 008066E2 54 push esp 008066E3 42 inc edx 008066E4 43 inc ebx 008066E5 6C insb 008066E6 6F outsd 008066E7 7365 jnb 0080674E 008066E9 0403 add al, +$03 008066EB 0000 add [eax], al 008066ED 0200 add al, byte ptr [eax] 008066EF 0C41 or al, $41 008066F1 44 inc esp 008066F2 4F dec edi 008066F3 51 push ecx 008066F4 7565 jnz 0080675B 008066F6 7279 jb 00806771 008066F8 54 push esp 008066F9 656D insd 008066FB 7008 jo 00806705 008066FD 0300 add eax, [eax] 008066FF 0002 add [edx], al 00806701 000B add [ebx], cl 00806703 41 inc ecx 00806704 44 inc esp 00806705 4F dec edi 00806706 51 push ecx 00806707 7565 jnz 0080676E 00806709 7279 jb 00806784 0080670B 43 inc ebx 0080670C 6D insd 0080670D 640C03 or al, $03 00806710 0000 add [eax], al 00806712 0300 add eax, [eax] 00806714 06 push es 00806715 50 push eax 00806716 61 popa 00806717 6E outsb 00806718 656C insb 0080671A 3110 xor [eax], edx 0080671C 0300 add eax, [eax] 0080671E 0001 add [ecx], al 00806720 000B add [ebx], cl 00806722 54 push esp 00806723 6F outsd 00806724 6F outsd 00806725 6C insb 00806726 42 inc edx 00806727 7574 jnz 0080679D 00806729 746F jz 0080679A 0080672B 6E outsb 0080672C 321403 xor dl, byte ptr [ebx+eax] 0080672F 0000 add [eax], al 00806731 0200 add al, byte ptr [eax] 00806733 0C41 or al, $41 00806735 44 inc esp 00806736 4F dec edi 00806737 51 push ecx 00806738 7565 jnz 0080679F 0080673A 7279 jb 008067B5 0080673C 4D dec ebp 0080673D 61 popa 0080673E 696E1803000001 imul ebp, [esi+$18], $01000003 00806745 000B add [ebx], cl 00806747 54 push esp 00806748 6F outsd 00806749 6F outsd 0080674A 6C insb 0080674B 42 inc edx 0080674C 7574 jnz 008067C2 0080674E 746F jz 008067BF 00806750 6E outsb 00806751 311C03 xor [ebx+eax], ebx 00806754 0000 add [eax], al 00806756 0400 add al, +$00 00806758 03524D add edx, [edx+$4D] 0080675B 3120 xor [eax], esp 0080675D 0300 add eax, [eax] 0080675F 00050009524D add [$4D520900], al 00806765 44 inc esp 00806766 42 inc edx 00806767 5F pop edi 00806768 4D dec ebp 00806769 61 popa 0080676A 696E2403000006 imul ebp, [esi+$24], $06000003 00806771 0006 add [esi], al 00806773 4C dec esp 00806774 61 popa 00806775 62656C bound esp, qword ptr [ebp+$6C] 00806778 3328 xor ebp, [eax] 0080677A 0300 add eax, [eax] 0080677C 0006 add [esi], al 0080677E 0006 add [esi], al 00806780 4C dec esp 00806781 61 popa 00806782 62656C bound esp, qword ptr [ebp+$6C] 00806785 322C03 xor ch, byte ptr [ebx+eax] 00806788 0000 add [eax], al 0080678A 06 push es 0080678B 0006 add [esi], al 0080678D 4C dec esp 0080678E 61 popa 0080678F 62656C bound esp, qword ptr [ebp+$6C] 00806792 363003 xor ss:[ebx], al 00806795 0000 add [eax], al 00806797 07 pop es 00806798 0007 add [edi], al 0080679A 626567 bound esp, qword ptr [ebp+$67] 0080679D 6461 popa 0080679F 7465 jz 00806806 008067A1 3403 xor al, $03 008067A3 0000 add [eax], al 008067A5 07 pop es 008067A6 0007 add [edi], al 008067A8 45 inc ebp 008067A9 6E outsb 008067AA 646461 popa 008067AD 7465 jz 00806814 008067AF 3803 cmp [ebx], al 008067B1 0000 add [eax], al 008067B3 0800 or [eax], al 008067B5 106378 adc [ebx+$78], ah 008067B8 47 inc edi 008067B9 7269 jb 00806824 008067BB 6450 push eax 008067BD 6F outsd 008067BE 7075 jo 00806835 008067C0 704D jo 0080680F 008067C2 656E outsb 008067C4 7532 jnz 008067F8 008067C6 3C03 cmp al, $03 008067C8 0000 add [eax], al 008067CA 0900 or [eax], eax 008067CC 0544535F48 add eax, +$485F5344 008067D1 5A pop edx 008067D2 40 inc eax 008067D3 0300 add eax, [eax] 008067D5 000A add [edx], cl 008067D7 0006 add [esi], al 008067D9 43 inc ebx 008067DA 44 inc esp 008067DB 53 push ebx 008067DC 5F pop edi 008067DD 48 dec eax 008067DE 5A pop edx 008067DF 44 inc esp 008067E0 0300 add eax, [eax] 008067E2 000B add [ebx], cl 008067E4 0007 add [edi], al 008067E6 637847 arpl [eax+$47], di 008067E9 7269 jb 00806854 008067EB 64314803 xor fs:[eax+$03], ecx 008067EF 0000 add [eax], al 008067F1 0C00 or al, $00 008067F3 03545631 add edx, [esi+edx*2+$31] 008067F7 4C dec esp 008067F8 0300 add eax, [eax] 008067FA 000D000F6378 add [$78630F00], cl 00806800 47 inc edi 00806801 7269 jb 0080686C 00806803 6444 inc esp 00806805 42 inc edx 00806806 43 inc ebx 00806807 6F outsd 00806808 6C insb 00806809 756D jnz 00806878 0080680B 6E outsb 0080680C 385003 cmp [eax+$03], dl 0080680F 0000 add [eax], al 00806811 0D00106378 or eax, $78631000 00806816 47 inc edi 00806817 7269 jb 00806882 00806819 6444 inc esp 0080681B 42 inc edx 0080681C 43 inc ebx 0080681D 6F outsd 0080681E 6C insb 0080681F 756D jnz 0080688E 00806821 6E outsb 00806822 3130 xor [eax], esi 00806824 54 push esp 00806825 0300 add eax, [eax] 00806827 000D00106378 add [$78631000], cl 0080682D 47 inc edi 0080682E 7269 jb 00806899 00806830 6444 inc esp 00806832 42 inc edx 00806833 43 inc ebx 00806834 6F outsd 00806835 6C insb 00806836 756D jnz 008068A5 00806838 6E outsb 00806839 3131 xor [ecx], esi 0080683B 58 pop eax 0080683C 0300 add eax, [eax] 0080683E 000E add [esi], cl 00806840 000C63 add [ebx], cl 00806843 7847 js 0080688C 00806845 7269 jb 008068B0 00806847 644C dec esp 00806849 657665 jbe 008068B1 0080684C 6C insb 0080684D 325C0300 xor bl, byte ptr [ebx+eax+$00] 00806851 000D000D5631 add [$31560D00], cl 00806857 46 inc esi 00806858 61 popa 00806859 63746F72 arpl [edi+ebp*2+$72], si 0080685D 794E jns 008068AD 0080685F 61 popa 00806860 6D insd 00806861 6560 pusha 00806863 0300 add eax, [eax] 00806865 000F add [edi], cl 00806867 000B add [ebx], cl 00806869 637853 arpl [eax+$53], di 0080686C 706C jo 008068DA 0080686E 6974746572316403 imul esi, [esp+esi*2+$65], $03643172 00806876 0000 add [eax], al 00806878 1000 adc [eax], al 0080687A 0B4661 or eax, [esi+$61] 0080687D 63746F72 arpl [edi+ebp*2+$72], si 00806881 794E jns 008068D1 00806883 61 popa 00806884 6D insd 00806885 65680300000A push $0A000003 0080688B 000B add [ebx], cl 0080688D 59 pop ecx 0080688E 46 inc esi 0080688F 6F outsd 00806890 7264 jb 008068F6 00806892 65725F jb 008068F4 00806895 53 push ebx 00806896 7562 jnz 008068FA 00806898 6C insb 00806899 0300 add eax, [eax] 0080689B 0009 add [ecx], cl 0080689D 000B add [ebx], cl 0080689F 44 inc esp 008068A0 61 popa 008068A1 7461 jz 00806904 008068A3 53 push ebx 008068A4 6F outsd 008068A5 7572 jnz 00806919 008068A7 636531 arpl [ebp+$31], sp 008068AA 7003 jo 008068AF 008068AC 0000 add [eax], al 008068AE 06 push es 008068AF 0006 add [esi], al 008068B1 4C dec esp 008068B2 61 popa 008068B3 62656C bound esp, qword ptr [ebp+$6C] 008068B6 37 aaa 008068B7 7403 jz 008068BC 008068B9 0000 add [eax], al 008068BB 1100 adc [eax], eax 008068BD 08464B or [esi+$4B], al 008068C0 54 push esp 008068C1 61 popa 008068C2 69746F7578030000 imul esi, [edi+ebp*2+$75], $00000378 008068CA 0D000C5631 or eax, $31560C00 008068CF 52 push edx 008068D0 4D dec ebp 008068D1 42 inc edx 008068D2 53 push ebx 008068D3 51 push ecx 008068D4 4D dec ebp 008068D5 6F outsd 008068D6 6E outsb 008068D7 65797C jns 00806956 008068DA 0300 add eax, [eax] 008068DC 0003 add [ebx], al 008068DE 0006 add [esi], al 008068E0 50 push eax 008068E1 61 popa 008068E2 6E outsb 008068E3 656C insb 008068E5 32800300000B xor al, byte ptr [eax+$B000003] 008068EB 0007 add [edi], al 008068ED 637847 arpl [eax+$47], di 008068F0 7269 jb 0080695B 008068F2 6432840300000C00 xor al, byte ptr fs:[ebx+eax+$C0000] 008068FA 03547632 add edx, [esi+esi*2+$32] 008068FE 8803 mov [ebx], al 00806900 0000 add [eax], al 00806902 0D00097632 or eax, $32760900 00806907 43 inc ebx 00806908 6F outsd 00806909 6C insb 0080690A 756D jnz 00806979 0080690C 6E outsb 0080690D 328C0300000D00 xor cl, byte ptr [ebx+eax+$D0000] 00806914 0D76326661 or eax, $61663276 00806919 63746F72 arpl [edi+ebp*2+$72], si 0080691D 794E jns 0080696D 0080691F 61 popa 00806920 6D insd 00806921 6590 nop 00806923 0300 add eax, [eax] 00806925 000D00087632 add [$32760800], cl 0080692B 59 pop ecx 0080692C 46 inc esi 0080692D 4E dec esi 0080692E 61 popa 0080692F 6D insd 00806930 6594 xchg eax, esp 00806932 0300 add eax, [eax] 00806934 000D000B7632 add [$32760B00], cl 0080693A 43 inc ebx 0080693B 6F outsd 0080693C 6D insd 0080693D 54 push esp 0080693E 61 popa 0080693F 69546F7598030000 imul edx, [edi+ebp*2+$75], $00000398 00806947 0D00097632 or eax, $32760900 0080694C 43 inc ebx 0080694D 6F outsd 0080694E 6C insb 0080694F 756D jnz 008069BE 00806951 6E outsb 00806952 359C030000 xor eax, $0000039C 00806957 0D00087632 or eax, $32760800 0080695C 50 push eax 0080695D 5F pop edi 0080695E 53 push ebx 0080695F 7065 jo 008069C6 00806961 63A00300000D arpl [eax+$D000003], sp 00806967 0008 add [eax], cl 00806969 7632 jbe 0080699D 0080696B 46 inc esi 0080696C 4B dec ebx 0080696D 54 push esp 0080696E 7970 jns 008069E0 00806970 65A4 movsb 00806972 0300 add eax, [eax] 00806974 000D00097632 add [$32760900], cl 0080697A 43 inc ebx 0080697B 6F outsd 0080697C 6C insb 0080697D 756D jnz 008069EC 0080697F 6E outsb 00806980 36A803 test al, $03 00806983 0000 add [eax], al 00806985 0D00097632 or eax, $32760900 0080698A 51 push ecx 0080698B 7479 jz 00806A06 0080698D 55 push ebp 0080698E 6E outsb 0080698F 6974AC0300000D00 imul esi, [esp+ebp*4+$03], $000D0000 00806997 097632 or [esi+$32], esi 0080699A 43 inc ebx 0080699B 6F outsd 0080699C 6C insb 0080699D 756D jnz 00806A0C 0080699F 6E outsb 008069A0 37 aaa 008069A1 B003 mov al, $03 008069A3 0000 add [eax], al 008069A5 0D00097632 or eax, $32760900 008069AA 4B dec ebx 008069AB 50 push eax 008069AC 4D dec ebp 008069AD 6F outsd 008069AE 6E outsb 008069AF 6579B4 jns 00806966 008069B2 0300 add eax, [eax] 008069B4 000D00077632 add [$32760700], cl 008069BA 4D dec ebp 008069BB 6F outsd 008069BC 6E outsb 008069BD 6579B8 jns 00806978 008069C0 0300 add eax, [eax] 008069C2 000D000A7632 add [$32760A00], cl 008069C8 43 inc ebx 008069C9 6F outsd 008069CA 6C insb 008069CB 756D jnz 00806A3A 008069CD 6E outsb 008069CE 3130 xor [eax], esi 008069D0 BC0300000E mov esp, $0E000003 008069D5 000C63 add [ebx], cl 008069D8 7847 js 00806A21 008069DA 7269 jb 00806A45 008069DC 644C dec esp 008069DE 657665 jbe 00806A46 008069E1 6C insb 008069E2 31C0 xor eax, eax 008069E4 0300 add eax, [eax] 008069E6 0003 add [ebx], al 008069E8 0006 add [esi], al 008069EA 50 push eax 008069EB 61 popa 008069EC 6E outsb 008069ED 656C insb 008069EF 33C4 xor eax, esp 008069F1 0300 add eax, [eax] 008069F3 0006 add [esi], al 008069F5 0007 add [edi], al 008069F7 4C dec esp 008069F8 61 popa 008069F9 62656C bound esp, qword ptr [ebp+$6C] 008069FC 3133 xor [ebx], esi 008069FE C803 enter , $03 00806A00 0000 add [eax], al 00806A02 06 push es 00806A03 0007 add [edi], al 00806A05 4C dec esp 00806A06 61 popa 00806A07 62656C bound esp, qword ptr [ebp+$6C] 00806A0A 3134CC xor [esp+ecx*8], esi 00806A0D 0300 add eax, [eax] 00806A0F 0006 add [esi], al 00806A11 0007 add [edi], al 00806A13 4C dec esp 00806A14 61 popa 00806A15 62656C bound esp, qword ptr [ebp+$6C] 00806A18 3135D0030000 xor [$000003D0], esi 00806A1E 06 push es 00806A1F 0007 add [edi], al 00806A21 4C dec esp 00806A22 61 popa 00806A23 62656C bound esp, qword ptr [ebp+$6C] 00806A26 3137 xor [edi], esi 00806A28 D4 aam 00806A29 0300 add eax, [eax] 00806A2B 0006 add [esi], al 00806A2D 0007 add [edi], al 00806A2F 4C dec esp 00806A30 61 popa 00806A31 62656C bound esp, qword ptr [ebp+$6C] 00806A34 3138 xor [eax], edi 00806A36 D803 fadd dword ptr [ebx] 00806A38 0000 add [eax], al 00806A3A 1100 adc [eax], eax 00806A3C 0545646974 add eax, +$74696445 00806A41 33DC xor ebx, esp 00806A43 0300 add eax, [eax] 00806A45 0011 add [ecx], dl 00806A47 000545646974 add [$74696445], al 00806A4D 34E0 xor al, $E0 00806A4F 0300 add eax, [eax] 00806A51 0011 add [ecx], dl 00806A53 000545646974 add [$74696445], al 00806A59 35E4030000 xor eax, $000003E4 00806A5E 1100 adc [eax], eax 00806A60 09436F or [ebx+$6F], eax 00806A63 6D insd 00806A64 54 push esp 00806A65 61 popa 00806A66 69546F75E8030000 imul edx, [edi+ebp*2+$75], $000003E8 00806A6E 1100 adc [eax], eax 00806A70 06 push es 00806A71 59 pop ecx 00806A72 46 inc esi 00806A73 4E dec esi 00806A74 61 popa 00806A75 6D insd 00806A76 65EC in al, dx 00806A78 0300 add eax, [eax] 00806A7A 0006 add [esi], al 00806A7C 0006 add [esi], al 00806A7E 4C dec esp 00806A7F 61 popa 00806A80 62656C bound esp, qword ptr [ebp+$6C] 00806A83 31F0 xor eax, esi 00806A85 0300 add eax, [eax] 00806A87 0011 add [ecx], dl 00806A89 000A add [edx], cl 00806A8B 50 push eax 00806A8C 5F pop edi 00806A8D 43 inc ebx 00806A8E 6F outsd 00806A8F 64654E dec esi 00806A92 61 popa 00806A93 6D insd 00806A94 65F4 hlt 00806A96 0300 add eax, [eax] 00806A98 0006 add [esi], al 00806A9A 0006 add [esi], al 00806A9C 4C dec esp 00806A9D 61 popa 00806A9E 62656C bound esp, qword ptr [ebp+$6C] 00806AA1 34F8 xor al, $F8 00806AA3 0300 add eax, [eax] 00806AA5 0011 add [ecx], dl 00806AA7 0006 add [esi], al 00806AA9 50 push eax 00806AAA 5F pop edi 00806AAB 53 push ebx 00806AAC 7065 jo 00806B13 00806AAE 63FC arpl sp, di 00806AB0 0300 add eax, [eax] 00806AB2 000D000A5631 add [$31560A00], cl 00806AB8 52 push edx 00806AB9 4D dec ebp 00806ABA 42 inc edx 00806ABB 4B dec ebx 00806ABC 50 push eax 00806ABD 57 push edi 00806ABE 53 push ebx 00806ABF 4B dec ebx 00806AC0 000400 add [eax+eax], al 00806AC3 0008 add [eax], cl 00806AC5 0010 add [eax], dl 00806AC7 637847 arpl [eax+$47], di 00806ACA 7269 jb 00806B35 00806ACC 6450 push eax 00806ACE 6F outsd 00806ACF 7075 jo 00806B46 00806AD1 704D jo 00806B20 00806AD3 656E outsb 00806AD5 7531 jnz 00806B08 00806AD7 0404 add al, +$04 00806AD9 0000 add [eax], al 00806ADB 0D000A7632 or eax, $32760A00 00806AE0 46 inc esi 00806AE1 4B dec ebx 00806AE2 54 push esp 00806AE3 61 popa 00806AE4 69746F7508040000 imul esi, [edi+ebp*2+$75], $00000408 00806AEC 0D000A5631 or eax, $31560A00 00806AF1 46 inc esi 00806AF2 4B dec ebx 00806AF3 54 push esp 00806AF4 61 popa 00806AF5 69746F750A001200 imul esi, [edi+ebp*2+$75], $0012000A 00806AFD 1C77 sbb al, $77 00806AFF 80000B add byte ptr [eax], $0B 00806B02 46 inc esi 00806B03 6F outsd 00806B04 726D jb 00806B73 00806B06 44 inc esp 00806B07 657374 jnb 00806B7E 00806B0A 726F jb 00806B7B 00806B0C 7910 jns 00806B1E 00806B0E 002477 add [edi+esi*2], ah 00806B11 800009 add byte ptr [eax], $09 00806B14 46 inc esi 00806B15 6F outsd 00806B16 726D jb 00806B85 00806B18 43 inc ebx 00806B19 6C insb 00806B1A 6F outsd 00806B1B 7365 jnb 00806B82 00806B1D 1300 adc eax, [eax] 00806B1F 287780 sub [edi-$80], dh 00806B22 000C54 add [esp+edx*2], cl 00806B25 42 inc edx 00806B26 43 inc ebx 00806B27 6C insb 00806B28 6F outsd 00806B29 7365 jnb 00806B90 00806B2B 43 inc ebx 00806B2C 6C insb 00806B2D 69636B0F00A477 imul esp, [ebx+$6B], $77A4000F 00806B34 800008 add byte ptr [eax], $08 00806B37 46 inc esi 00806B38 6F outsd 00806B39 726D jb 00806BA8 00806B3B 53 push ebx 00806B3C 686F771500 push $0015776F 00806B41 40 inc eax 00806B42 7980 jns 00806AC4 00806B44 000E add [esi], cl 00806B46 54 push esp 00806B47 42 inc edx 00806B48 52 push edx 00806B49 61 popa 00806B4A 667265 jb 00806BB2 00806B4D 7368 jnb 00806BB7 00806B4F 43 inc ebx 00806B50 6C insb 00806B51 69636B17004879 imul esp, [ebx+$6B], $79480017 00806B58 800010 add byte ptr [eax], $10 00806B5B 54 push esp 00806B5C 6F outsd 00806B5D 6F outsd 00806B5E 6C insb 00806B5F 42 inc edx 00806B60 7574 jnz 00806BD6 00806B62 746F jz 00806BD3 00806B64 6E outsb 00806B65 32436C xor al, byte ptr [ebx+$6C] 00806B68 69636B18007879 imul esp, [ebx+$6B], $79780018 00806B6F 800011 add byte ptr [eax], $11 00806B72 46 inc esi 00806B73 61 popa 00806B74 63746F72 arpl [edi+ebp*2+$72], si 00806B78 794E jns 00806BC8 00806B7A 61 popa 00806B7B 6D insd 00806B7C 6543 inc ebx 00806B7E 68616E6765 push $65676E61 00806B83 17 pop ss 00806B84 008C7980001054 add [ecx+edi*2+$54100080], cl 00806B8B 6F outsd 00806B8C 6F outsd 00806B8D 6C insb 00806B8E 42 inc edx 00806B8F 7574 jnz 00806C05 00806B91 746F jz 00806C02 00806B93 6E outsb 00806B94 31436C xor [ebx+$6C], eax 00806B97 69636B1300D479 imul esp, [ebx+$6B], $79D40013 00806B9E 80000C add byte ptr [eax], $0C 00806BA1 54 push esp 00806BA2 56 push esi 00806BA3 314365 xor [ebx+$65], eax 00806BA6 6C insb 00806BA7 6C insb 00806BA8 43 inc ebx 00806BA9 6C insb 00806BAA 69636B1300507E imul esp, [ebx+$6B], $7E500013 00806BB1 80000C add byte ptr [eax], $0C 00806BB4 59 pop ecx 00806BB5 46 inc esi 00806BB6 4E dec esi 00806BB7 61 popa 00806BB8 6D insd 00806BB9 6543 inc ebx 00806BBB 68616E6765 push $65676E61 00806BC0 11546672 adc [esi+$72], edx 00806BC4 6D insd 00806BC5 59 pop ecx 00806BC6 53 push ebx 00806BC7 53 push ebx 00806BC8 4B dec ebx 00806BC9 4C dec esp 00806BCA 6973745F4B5046 imul esi, [ebx+$74], $46504B5F 00806BD1 4B dec ebx 00806BD2 1200 adc al, byte ptr [eax] 00806BD4 28944500648A45 sub [ebp+eax*2+$458A6400], dl 00806BDB 00B8124D0020 add [eax+$20004D12], bh 00806BE1 42 inc edx 00806BE2 44 inc esp 00806BE3 0064D378 add [ebx+edx*8+$78], ah 00806BE7 00A80A78001C add [eax+$1C00780A], ch 00806BED 5F pop edi 00806BEE 47 inc edi 00806BEF 00E0 add al, ah 00806BF1 A5 movsd 00806BF2 45 inc ebp 00806BF3 005876 add [eax+$76], bl 00806BF6 7C00 jl 00806BF8 00806BF8 087F4B or [edi+$4B], bh 00806BFB 0088996A0000 add [eax+$6A99], cl 00806C01 16 push ss 00806C02 6300 arpl [eax], ax 00806C04 F4 hlt 00806C05 B466 mov ah, $66 00806C07 0034B1 add [ecx+esi*4], dh 00806C0A 6600A40E640050BF add [esi+ecx+$BF500064], ah 00806C12 7B00 jnp 00806C14 00806C14 F4 hlt 00806C15 814700B8674700 add dword ptr [edi+$00], $004767B8 00806C1C 206C8000 and [eax+eax*4+$00], ch 00806C20 07 pop es 00806C21 11546672 adc [esi+$72], edx 00806C25 6D insd 00806C26 59 pop ecx 00806C27 53 push ebx 00806C28 53 push ebx 00806C29 4B dec ebx 00806C2A 4C dec esp 00806C2B 6973745F4B5046 imul esi, [ebx+$74], $46504B5F 00806C32 4B dec ebx 00806C33 98 cwde 00806C34 658000D0 add byte ptr gs:[eax], $D0 00806C38 F2 repne 00806C39 49 dec ecx 00806C3A 005E00 add [esi+$00], bl 00806C3D 0F55 DB $0F, $55 // 00806C3F 5F pop edi 00806C40 59 pop ecx 00806C41 53 push ebx 00806C42 53 push ebx 00806C43 4B dec ebx 00806C44 4C dec esp 00806C45 6973745F4B5046 imul esi, [ebx+$74], $46504B5F 00806C4C 4B dec ebx 00806C4D 0000 add [eax], al *) end; end.