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