unit U_YSCR_PBSH; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls type TfrmYSCR_PBSH=class(TForm) ToolBar1: TToolBar; TBRafresh: TToolButton; TBDel: TToolButton; TBClose: TToolButton; ADOQueryTemp: TADOQuery; ADOQueryCmd: TADOQuery; Panel1: TPanel; ToolButton2: TToolButton; Label1: TLabel; ADOQueryMain: TADOQuery; ToolButton1: TToolButton; RM1: TRMGridReport; RMDB_Main: TRMDBDataSet; Label3: TLabel; FactoryName: TEdit; Label2: TLabel; Label6: TLabel; begdate: TDateTimePicker; Enddate: TDateTimePicker; cxGridPopupMenu2: TcxGridPopupMenu; DS_HZ: TDataSource; CDS_HZ: TClientDataSet; ToolButton3: TToolButton; P_CodeName: TEdit; Label4: TLabel; P_Spec: TEdit; Label5: TLabel; Label7: TLabel; Edit1: TEdit; Button1: TToolButton; CheckBox1: TCheckBox; orderNo: TEdit; Label8: TLabel; Tchk: TToolButton; cxTabControl1: TcxTabControl; cxGrid2: TcxGrid; Tv2: TcxGridDBTableView; v2Column5: TcxGridDBColumn; cxGridDBColumn1: TcxGridDBColumn; v2Column6: TcxGridDBColumn; cxGridDBColumn3: TcxGridDBColumn; v2PS: TcxGridDBColumn; cxQty: TcxGridDBColumn; cxGridDBColumn6: TcxGridDBColumn; v2Column1: TcxGridDBColumn; VBZ: TcxGridDBColumn; VMoney: TcxGridDBColumn; v2KP: TcxGridDBColumn; v2ConNo: TcxGridDBColumn; VOrderNo: TcxGridDBColumn; v2P_CodeName: TcxGridDBColumn; v2Column4: TcxGridDBColumn; v2ComTaitou: TcxGridDBColumn; v2PBNote: TcxGridDBColumn; v2Column2: TcxGridDBColumn; cxGridLevel1: TcxGridLevel; Label10: TLabel; FeeType: TEdit; Label15: TLabel; Price: TEdit; YFName: TComboBox; Tnochk: TToolButton; Label11: TLabel; ConNo: TEdit; Label12: TLabel; Label13: TLabel; Label14: TLabel; Label16: TLabel; ChkNote: TEdit; Label17: TLabel; Label18: TLabel; Note: TEdit; Label19: TLabel; KPNo: TEdit; v2KPNo: TcxGridDBColumn; v2ConPrice: TcxGridDBColumn; v2ChkNote: TcxGridDBColumn; v2Huilv: TcxGridDBColumn; v2OrderUnit: 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 nochkClick(Sender : TObject); procedure v2Column5PropertiesChange(Sender : TObject); procedure cxTabControl2Change(Sender : TObject); procedure TZZSHClick(Sender : TObject); procedure TEJCXClick(Sender : TObject); procedure _PROC_0086B8F1(Sender : TObject); procedure _PROC_0086BBF7(Sender : TObject); procedure _PROC_0086C36D(Sender : TObject); procedure _PROC_0086CBAD(Sender : TObject); procedure _PROC_0086CF69(Sender : TObject); procedure _PROC_0086D7F1(Sender : TObject); procedure _PROC_0086DB2D(Sender : TObject); procedure _PROC_0086E2E9(Sender : TObject); procedure _PROC_0086E68A(Sender : TObject); procedure _PROC_0086E6C0(Sender : TObject); procedure _PROC_0086E6CD(Sender : TObject); procedure _PROC_0086EA95(Sender : TObject); procedure _PROC_0086F0D5(Sender : TObject); procedure _PROC_0086F3D5(Sender : TObject); procedure _PROC_0086F655(Sender : TObject); procedure _PROC_0086FA79(Sender : TObject); procedure _PROC_00871275(Sender : TObject); procedure _PROC_008712A4(Sender : TObject); procedure _PROC_008712AC(Sender : TObject); procedure _PROC_008712DC(Sender : TObject); procedure _PROC_008712E4(Sender : TObject); procedure _PROC_0087134A(Sender : TObject); private { Private declarations } public { Public declarations } end ; var frmYSCR_PBSH: TfrmYSCR_PBSH; {This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer} implementation {$R *.DFM} procedure TfrmYSCR_PBSH.FormDestroy(Sender : TObject); begin (* 0086BD64 33C0 xor eax, eax * Reference to GlobalVar_00895AAC | 0086BD66 A3AC5A8900 mov dword ptr [$00895AAC], eax 0086BD6B C3 ret *) end; procedure TfrmYSCR_PBSH.FormClose(Sender : TObject); begin (* 0086BD6C C60102 mov byte ptr [ecx], $02 0086BD6F C3 ret *) end; procedure TfrmYSCR_PBSH.TBCloseClick(Sender : TObject); begin (* 0086BD70 53 push ebx 0086BD71 8BD8 mov ebx, eax * Possible String Reference to: '财务管理' | 0086BD73 B99CBD8600 mov ecx, $0086BD9C * Reference to control TfrmYSCR_PBSH.Tv2 : TcxGridDBTableView | 0086BD78 8B9388030000 mov edx, [ebx+$0388] * Possible String Reference to: '应收款登记2' | 0086BD7E B8B0BD8600 mov eax, $0086BDB0 | 0086BD83 E818BEF4FF call 007B7BA0 0086BD88 8BC3 mov eax, ebx * Reference to: Forms.TCustomForm.Close(TCustomForm); | 0086BD8A E809A2C3FF call 004A5F98 0086BD8F 5B pop ebx 0086BD90 C3 ret *) end; procedure TfrmYSCR_PBSH.TBDelClick(Sender : TObject); begin (* 0086BDBC 55 push ebp 0086BDBD 8BEC mov ebp, esp 0086BDBF 33C9 xor ecx, ecx 0086BDC1 51 push ecx 0086BDC2 51 push ecx 0086BDC3 51 push ecx 0086BDC4 51 push ecx 0086BDC5 51 push ecx 0086BDC6 51 push ecx 0086BDC7 51 push ecx 0086BDC8 51 push ecx 0086BDC9 53 push ebx 0086BDCA 56 push esi 0086BDCB 57 push edi 0086BDCC 8945FC mov [ebp-$04], eax 0086BDCF 33C0 xor eax, eax 0086BDD1 55 push ebp * Possible String Reference to: ',嫻脬_^[嬪]' | 0086BDD2 68C3BF8600 push $0086BFC3 ***** TRY | 0086BDD7 64FF30 push dword ptr fs:[eax] 0086BDDA 648920 mov fs:[eax], esp 0086BDDD 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 0086BDE0 8B804C030000 mov eax, [eax+$034C] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 0086BDE6 E8D5C0C5FF call 004C7EC0 0086BDEB 84C0 test al, al 0086BDED 0F85AD010000 jnz 0086BFA0 0086BDF3 A0D4BF8600 mov al, byte ptr [$0086BFD4] 0086BDF8 50 push eax 0086BDF9 8D45EC lea eax, [ebp-$14] 0086BDFC B201 mov dl, $01 * Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean); | 0086BDFE E861CFBAFF call 00418D64 0086BE03 8D4DEC lea ecx, [ebp-$14] 0086BE06 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 0086BE09 8B804C030000 mov eax, [eax+$034C] * Possible String Reference to: 'ssel' | 0086BE0F BAE0BF8600 mov edx, $0086BFE0 0086BE14 8B18 mov ebx, [eax] * Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions) | 0086BE16 FF9344020000 call dword ptr [ebx+$0244] 0086BE1C 84C0 test al, al 0086BE1E 751D jnz 0086BE3D 0086BE20 6A00 push $00 * Possible String Reference to: '提示' | 0086BE22 B9E8BF8600 mov ecx, $0086BFE8 * Possible String Reference to: '没有选择数据!' | 0086BE27 BAF0BF8600 mov edx, $0086BFF0 *) end; procedure TfrmYSCR_PBSH.FormShow(Sender : TObject); begin (* 0086C070 53 push ebx 0086C071 8BD8 mov ebx, eax * Possible String Reference to: '财务管理' | 0086C073 B9E0C08600 mov ecx, $0086C0E0 * Reference to control TfrmYSCR_PBSH.Tv2 : TcxGridDBTableView | 0086C078 8B9388030000 mov edx, [ebx+$0388] * Possible String Reference to: '应收款登记2' | 0086C07E B8F4C08600 mov eax, $0086C0F4 | 0086C083 E81CB9F4FF call 007B79A4 * Reference to control TfrmYSCR_PBSH.ADOQueryTemp : TADOQuery | 0086C088 8B8308030000 mov eax, [ebx+$0308] | 0086C08E E8F588F4FF call 007B4988 0086C093 83C4F8 add esp, -$08 0086C096 DD1C24 fstp qword ptr [esp] 0086C099 9B wait * Reference to control TfrmYSCR_PBSH.Enddate : TDateTimePicker | 0086C09A 8B8340030000 mov eax, [ebx+$0340] * Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime); | 0086C0A0 E88761C0FF call 0047222C * Reference to control TfrmYSCR_PBSH.ADOQueryTemp : TADOQuery | 0086C0A5 8B8308030000 mov eax, [ebx+$0308] | 0086C0AB E8D888F4FF call 007B4988 0086C0B0 D82500C18600 fsub dword ptr [$0086C100] 0086C0B6 83C4F8 add esp, -$08 0086C0B9 DD1C24 fstp qword ptr [esp] 0086C0BC 9B wait * Reference to control TfrmYSCR_PBSH.begdate : TDateTimePicker | 0086C0BD 8B833C030000 mov eax, [ebx+$033C] * Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime); | 0086C0C3 E86461C0FF call 0047222C 0086C0C8 8BC3 mov eax, ebx | 0086C0CA E83DF7FFFF call 0086B80C 0086C0CF 8BC3 mov eax, ebx | 0086C0D1 E81AF8FFFF call 0086B8F0 0086C0D6 5B pop ebx 0086C0D7 C3 ret *) end; procedure TfrmYSCR_PBSH.TBRafreshClick(Sender : TObject); begin (* 0086C104 53 push ebx 0086C105 8BD8 mov ebx, eax * Reference to control TfrmYSCR_PBSH.begdate : TDateTimePicker | 0086C107 8B833C030000 mov eax, [ebx+$033C] 0086C10D 8B10 mov edx, [eax] * Reference to method TDateTimePicker.SetFocus() | 0086C10F FF92C4000000 call dword ptr [edx+$00C4] 0086C115 8BC3 mov eax, ebx | 0086C117 E8D4F7FFFF call 0086B8F0 0086C11C 5B pop ebx 0086C11D C3 ret *) end; procedure TfrmYSCR_PBSH.ToolButton2Click(Sender : TObject); begin (* 0086C120 55 push ebp 0086C121 8BEC mov ebp, esp 0086C123 6A00 push $00 0086C125 53 push ebx 0086C126 8BD8 mov ebx, eax 0086C128 33C0 xor eax, eax 0086C12A 55 push ebp * Possible String Reference to: '+壒腽[Y]' | 0086C12B 68C4C18600 push $0086C1C4 ***** TRY | 0086C130 64FF30 push dword ptr fs:[eax] 0086C133 648920 mov fs:[eax], esp 0086C136 BAD8C18600 mov edx, $0086C1D8 * Reference to control TfrmYSCR_PBSH.Label14 : TLabel | 0086C13B 8B8300040000 mov eax, [ebx+$0400] * Reference to: Controls.TControl.SetText(TControl;TCaption); | 0086C141 E8DAC4C1FF call 00488620 0086C146 BAD8C18600 mov edx, $0086C1D8 * Reference to control TfrmYSCR_PBSH.Label16 : TLabel | 0086C14B 8B8304040000 mov eax, [ebx+$0404] * Reference to: Controls.TControl.SetText(TControl;TCaption); | 0086C151 E8CAC4C1FF call 00488620 * Reference to control TfrmYSCR_PBSH.ADOQueryMain : TADOQuery | 0086C156 8B831C030000 mov eax, [ebx+$031C] * Reference to: DB.TDataSet.GetActive(TDataSet):Boolean; | 0086C15C E8B398C5FF call 004C5A14 0086C161 84C0 test al, al 0086C163 7449 jz 0086C1AE 0086C165 8D45FC lea eax, [ebp-$04] 0086C168 50 push eax 0086C169 B902000000 mov ecx, $00000002 0086C16E BA01000000 mov edx, $00000001 * Reference to control TfrmYSCR_PBSH.Panel1 : TPanel | 0086C173 8B8310030000 mov eax, [ebx+$0310] | 0086C179 E8329FF4FF call 007B60B0 0086C17E 8B55FC mov edx, [ebp-$04] * Reference to control TfrmYSCR_PBSH.ADOQueryMain : TADOQuery | 0086C181 8B831C030000 mov eax, [ebx+$031C] | 0086C187 E83CABF4FF call 007B6CC8 * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 0086C18C 8B934C030000 mov edx, [ebx+$034C] * Reference to control TfrmYSCR_PBSH.ADOQueryMain : TADOQuery | 0086C192 8B831C030000 mov eax, [ebx+$031C] | 0086C198 E8F3ACF4FF call 007B6E90 * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 0086C19D 8B934C030000 mov edx, [ebx+$034C] * Reference to control TfrmYSCR_PBSH.ADOQueryMain : TADOQuery | 0086C1A3 8B831C030000 mov eax, [ebx+$031C] | 0086C1A9 E86AAEF4FF call 007B7018 0086C1AE 33C0 xor eax, eax 0086C1B0 5A pop edx 0086C1B1 59 pop ecx 0086C1B2 59 pop ecx 0086C1B3 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '[Y]' | 0086C1B6 68CBC18600 push $0086C1CB 0086C1BB 8D45FC lea eax, [ebp-$04] * Reference to: System.@LStrClr(void;void); | 0086C1BE E86191B9FF call 00405324 0086C1C3 C3 ret * Reference to: System.@HandleFinally; | 0086C1C4 E92B89B9FF jmp 00404AF4 0086C1C9 EBF0 jmp 0086C1BB ****** END | 0086C1CB 5B pop ebx 0086C1CC 59 pop ecx 0086C1CD 5D pop ebp 0086C1CE C3 ret *) end; procedure TfrmYSCR_PBSH.FactoryNameChange(Sender : TObject); begin (* 0086C1DC 56 push esi * Reference to control TfrmYSCR_PBSH.ToolButton2 : TToolButton | 0086C1DD 8B8014030000 mov eax, [eax+$0314] 0086C1E3 66BEEBFF mov si, $FFEB * Reference to: System.@CallDynaInst; | 0086C1E7 E86883B9FF call 00404554 0086C1EC 5E pop esi 0086C1ED C3 ret *) end; procedure TfrmYSCR_PBSH.Button2Click(Sender : TObject); begin (* 0086C1F0 55 push ebp 0086C1F1 8BEC mov ebp, esp 0086C1F3 33C9 xor ecx, ecx 0086C1F5 51 push ecx 0086C1F6 51 push ecx 0086C1F7 51 push ecx 0086C1F8 51 push ecx 0086C1F9 51 push ecx 0086C1FA 53 push ebx 0086C1FB 56 push esi 0086C1FC 8BD8 mov ebx, eax 0086C1FE 33C0 xor eax, eax 0086C200 55 push ebp * Possible String Reference to: '轵嚬腚^[嬪]' | 0086C201 68FDC28600 push $0086C2FD ***** TRY | 0086C206 64FF30 push dword ptr fs:[eax] 0086C209 648920 mov fs:[eax], esp * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 0086C20C 8B834C030000 mov eax, [ebx+$034C] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 0086C212 E8A9BCC5FF call 004C7EC0 0086C217 84C0 test al, al 0086C219 0F85C3000000 jnz 0086C2E2 0086C21F 6A24 push $24 * Possible String Reference to: '提示' | 0086C221 B90CC38600 mov ecx, $0086C30C * Possible String Reference to: '确定要删除数据吗？' | 0086C226 BA14C38600 mov edx, $0086C314 *) end; procedure TfrmYSCR_PBSH.cxGridDBColumn8PropertiesEditValueChanged(Sender : TObject); begin (* 0086CD44 55 push ebp 0086CD45 8BEC mov ebp, esp 0086CD47 B908000000 mov ecx, $00000008 0086CD4C 6A00 push $00 0086CD4E 6A00 push $00 0086CD50 49 dec ecx 0086CD51 75F9 jnz 0086CD4C 0086CD53 51 push ecx 0086CD54 53 push ebx 0086CD55 56 push esi 0086CD56 8BDA mov ebx, edx 0086CD58 8BF0 mov esi, eax 0086CD5A 33C0 xor eax, eax 0086CD5C 55 push ebp * Possible String Reference to: '闈{胫^[嬪]' | 0086CD5D 6852CF8600 push $0086CF52 ***** TRY | 0086CD62 64FF30 push dword ptr fs:[eax] 0086CD65 648920 mov fs:[eax], esp 0086CD68 8D55FC lea edx, [ebp-$04] 0086CD6B 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; | 0086CD6D E84A29D2FF call 0058F6BC * Reference to control TfrmYSCR_PBSH.Tv2 : TcxGridDBTableView | 0086CD72 8B8688030000 mov eax, [esi+$0388] * 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; | 0086CD78 E8CFF5DEFF 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; | 0086CD7D E8E24DDEFF call 00651B64 * Reference to field TcxGridDBTableView.OFFS_0050 | 0086CD82 8B4050 mov eax, [eax+$50] 0086CD85 8D55F4 lea edx, [ebp-$0C] 0086CD88 8B08 mov ecx, [eax] 0086CD8A FF5110 call dword ptr [ecx+$10] 0086CD8D 8B45F4 mov eax, [ebp-$0C] 0086CD90 8D55F8 lea edx, [ebp-$08] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086CD93 E854DBB9FF call 0040A8EC * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 0086CD98 8B9E4C030000 mov ebx, [esi+$034C] 0086CD9E 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Edit(TDataSet); | 0086CDA0 E89BB6C5FF call 004C8440 0086CDA5 8D55E0 lea edx, [ebp-$20] 0086CDA8 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086CDAB E83CDBB9FF call 0040A8EC 0086CDB0 8B55E0 mov edx, [ebp-$20] 0086CDB3 8D45E4 lea eax, [ebp-$1C] * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 0086CDB6 E80DC0BAFF call 00418DC8 0086CDBB 8D45E4 lea eax, [ebp-$1C] 0086CDBE 50 push eax 0086CDBF 8B55F8 mov edx, [ebp-$08] 0086CDC2 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0086CDC4 E8EB9DC5FF call 004C6BB4 0086CDC9 5A pop edx 0086CDCA 8B08 mov ecx, [eax] * Reference to method TClientDataSet.DestroyFields() | 0086CDCC FF91B4000000 call dword ptr [ecx+$00B4] 0086CDD2 8BC3 mov eax, ebx 0086CDD4 8B10 mov edx, [eax] * Reference to method TClientDataSet.Post() | 0086CDD6 FF924C020000 call dword ptr [edx+$024C] * Reference to control TfrmYSCR_PBSH.ADOQueryCmd : TADOQuery | 0086CDDC 8B9E0C030000 mov ebx, [esi+$030C] 0086CDE2 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 0086CDE4 E8EB8AC5FF call 004C58D4 0086CDE9 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086CDEB E8BC11C7FF call 004DDFAC 0086CDF0 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 0086CDF2 FF5244 call dword ptr [edx+$44] 0086CDF5 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086CDF7 E8B011C7FF call 004DDFAC * Possible String Reference to: 'UPdate YCL_SG_HZ ' | 0086CDFC BA68CF8600 mov edx, $0086CF68 0086CE01 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 0086CE03 FF5138 call dword ptr [ecx+$38] 0086CE06 8D55DC lea edx, [ebp-$24] 0086CE09 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086CE0C E8DBDAB9FF call 0040A8EC 0086CE11 837DDC00 cmp dword ptr [ebp-$24], +$00 0086CE15 7440 jz 0086CE57 * Possible String Reference to: ' Set ' | 0086CE17 6884CF8600 push $0086CF84 0086CE1C FF75F8 push dword ptr [ebp-$08] * Possible String Reference to: '='' | 0086CE1F 6894CF8600 push $0086CF94 0086CE24 8D55D4 lea edx, [ebp-$2C] 0086CE27 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086CE2A E8BDDAB9FF call 0040A8EC 0086CE2F FF75D4 push dword ptr [ebp-$2C] 0086CE32 68A0CF8600 push $0086CFA0 0086CE37 8D45D8 lea eax, [ebp-$28] 0086CE3A BA05000000 mov edx, $00000005 * Reference to: System.@LStrCatN; | 0086CE3F E87088B9FF call 004056B4 0086CE44 8B45D8 mov eax, [ebp-$28] 0086CE47 50 push eax 0086CE48 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086CE4A E85D11C7FF call 004DDFAC 0086CE4F 5A pop edx 0086CE50 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 0086CE52 FF5138 call dword ptr [ecx+$38] 0086CE55 EB2B jmp 0086CE82 0086CE57 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086CE59 E84E11C7FF call 004DDFAC 0086CE5E 50 push eax * Possible String Reference to: ' Set ' | 0086CE5F 6884CF8600 push $0086CF84 0086CE64 FF75F8 push dword ptr [ebp-$08] * Possible String Reference to: '=NULL' | 0086CE67 68ACCF8600 push $0086CFAC 0086CE6C 8D45D0 lea eax, [ebp-$30] 0086CE6F BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 0086CE74 E83B88B9FF call 004056B4 0086CE79 8B55D0 mov edx, [ebp-$30] 0086CE7C 58 pop eax 0086CE7D 8B08 mov ecx, [eax] 0086CE7F FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ',Editer='' | 0086CE82 68BCCF8600 push $0086CFBC 0086CE87 8D55C8 lea edx, [ebp-$38] *) end; procedure TfrmYSCR_PBSH.cxGridDBColumn5PropertiesEditValueChanged(Sender : TObject); begin (* 0086D010 55 push ebp 0086D011 8BEC mov ebp, esp 0086D013 B91F000000 mov ecx, $0000001F 0086D018 6A00 push $00 0086D01A 6A00 push $00 0086D01C 49 dec ecx 0086D01D 75F9 jnz 0086D018 0086D01F 53 push ebx 0086D020 56 push esi 0086D021 8BF2 mov esi, edx 0086D023 8BD8 mov ebx, eax 0086D025 33C0 xor eax, eax 0086D027 55 push ebp * Possible String Reference to: '殂s霕^[嬪]' | 0086D028 680CD78600 push $0086D70C ***** TRY | 0086D02D 64FF30 push dword ptr fs:[eax] 0086D030 648920 mov fs:[eax], esp 0086D033 8D55FC lea edx, [ebp-$04] 0086D036 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; | 0086D038 E87F26D2FF call 0058F6BC 0086D03D 8D55DC lea edx, [ebp-$24] 0086D040 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086D043 E8A4D8B9FF call 0040A8EC 0086D048 837DDC00 cmp dword ptr [ebp-$24], +$00 0086D04C 750D jnz 0086D05B 0086D04E 8D45FC lea eax, [ebp-$04] 0086D051 BA24D78600 mov edx, $0086D724 * Reference to: System.@LStrLAsg(void;void;void;void); | 0086D056 E86183B9FF call 004053BC * Reference to control TfrmYSCR_PBSH.Tv2 : TcxGridDBTableView | 0086D05B 8B8388030000 mov eax, [ebx+$0388] * 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; | 0086D061 E8E6F2DEFF 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; | 0086D066 E8F94ADEFF call 00651B64 * Reference to field TcxGridDBTableView.OFFS_0050 | 0086D06B 8B4050 mov eax, [eax+$50] 0086D06E 8D55D8 lea edx, [ebp-$28] 0086D071 8B08 mov ecx, [eax] 0086D073 FF5110 call dword ptr [ecx+$10] 0086D076 8B45D8 mov eax, [ebp-$28] 0086D079 8D55E0 lea edx, [ebp-$20] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086D07C E86BD8B9FF call 0040A8EC * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 0086D081 8BB34C030000 mov esi, [ebx+$034C] 0086D087 8BC6 mov eax, esi * Reference to: DB.TDataSet.Edit(TDataSet); | 0086D089 E8B2B3C5FF call 004C8440 0086D08E 8D55C4 lea edx, [ebp-$3C] 0086D091 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086D094 E853D8B9FF call 0040A8EC 0086D099 8B55C4 mov edx, [ebp-$3C] 0086D09C 8D45C8 lea eax, [ebp-$38] * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 0086D09F E824BDBAFF call 00418DC8 0086D0A4 8D45C8 lea eax, [ebp-$38] 0086D0A7 50 push eax 0086D0A8 8B55E0 mov edx, [ebp-$20] 0086D0AB 8BC6 mov eax, esi * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0086D0AD E8029BC5FF call 004C6BB4 0086D0B2 5A pop edx 0086D0B3 8B08 mov ecx, [eax] * Reference to method TClientDataSet.DestroyFields() | 0086D0B5 FF91B4000000 call dword ptr [ecx+$00B4] 0086D0BB 8D55C0 lea edx, [ebp-$40] *) end; procedure TfrmYSCR_PBSH.cxGridDBColumn1PropertiesEditValueChanged(Sender : TObject); begin (* 0086D908 55 push ebp 0086D909 8BEC mov ebp, esp 0086D90B B908000000 mov ecx, $00000008 0086D910 6A00 push $00 0086D912 6A00 push $00 0086D914 49 dec ecx 0086D915 75F9 jnz 0086D910 0086D917 51 push ecx 0086D918 53 push ebx 0086D919 56 push esi 0086D91A 8BDA mov ebx, edx 0086D91C 8BF0 mov esi, eax 0086D91E 33C0 xor eax, eax 0086D920 55 push ebp * Possible String Reference to: '橘o胫^[嬪]' | 0086D921 6816DB8600 push $0086DB16 ***** TRY | 0086D926 64FF30 push dword ptr fs:[eax] 0086D929 648920 mov fs:[eax], esp 0086D92C 8D55FC lea edx, [ebp-$04] 0086D92F 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; | 0086D931 E8861DD2FF call 0058F6BC * Reference to control TfrmYSCR_PBSH.Tv2 : TcxGridDBTableView | 0086D936 8B8688030000 mov eax, [esi+$0388] * 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; | 0086D93C E80BEADEFF 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; | 0086D941 E81E42DEFF call 00651B64 * Reference to field TcxGridDBTableView.OFFS_0050 | 0086D946 8B4050 mov eax, [eax+$50] 0086D949 8D55F4 lea edx, [ebp-$0C] 0086D94C 8B08 mov ecx, [eax] 0086D94E FF5110 call dword ptr [ecx+$10] 0086D951 8B45F4 mov eax, [ebp-$0C] 0086D954 8D55F8 lea edx, [ebp-$08] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086D957 E890CFB9FF call 0040A8EC * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 0086D95C 8B9E4C030000 mov ebx, [esi+$034C] 0086D962 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Edit(TDataSet); | 0086D964 E8D7AAC5FF call 004C8440 0086D969 8D55E0 lea edx, [ebp-$20] 0086D96C 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086D96F E878CFB9FF call 0040A8EC 0086D974 8B55E0 mov edx, [ebp-$20] 0086D977 8D45E4 lea eax, [ebp-$1C] * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 0086D97A E849B4BAFF call 00418DC8 0086D97F 8D45E4 lea eax, [ebp-$1C] 0086D982 50 push eax 0086D983 8B55F8 mov edx, [ebp-$08] 0086D986 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0086D988 E82792C5FF call 004C6BB4 0086D98D 5A pop edx 0086D98E 8B08 mov ecx, [eax] * Reference to method TClientDataSet.DestroyFields() | 0086D990 FF91B4000000 call dword ptr [ecx+$00B4] 0086D996 8BC3 mov eax, ebx 0086D998 8B10 mov edx, [eax] * Reference to method TClientDataSet.Post() | 0086D99A FF924C020000 call dword ptr [edx+$024C] * Reference to control TfrmYSCR_PBSH.ADOQueryCmd : TADOQuery | 0086D9A0 8B9E0C030000 mov ebx, [esi+$030C] 0086D9A6 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 0086D9A8 E8277FC5FF call 004C58D4 0086D9AD 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086D9AF E8F805C7FF call 004DDFAC 0086D9B4 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 0086D9B6 FF5244 call dword ptr [edx+$44] 0086D9B9 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086D9BB E8EC05C7FF call 004DDFAC * Possible String Reference to: 'UPdate YF_Money_CR ' | 0086D9C0 BA2CDB8600 mov edx, $0086DB2C 0086D9C5 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 0086D9C7 FF5138 call dword ptr [ecx+$38] 0086D9CA 8D55DC lea edx, [ebp-$24] 0086D9CD 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086D9D0 E817CFB9FF call 0040A8EC 0086D9D5 837DDC00 cmp dword ptr [ebp-$24], +$00 0086D9D9 7440 jz 0086DA1B * Possible String Reference to: ' Set ' | 0086D9DB 6848DB8600 push $0086DB48 0086D9E0 FF75F8 push dword ptr [ebp-$08] * Possible String Reference to: '='' | 0086D9E3 6858DB8600 push $0086DB58 0086D9E8 8D55D4 lea edx, [ebp-$2C] 0086D9EB 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086D9EE E8F9CEB9FF call 0040A8EC 0086D9F3 FF75D4 push dword ptr [ebp-$2C] 0086D9F6 6864DB8600 push $0086DB64 0086D9FB 8D45D8 lea eax, [ebp-$28] 0086D9FE BA05000000 mov edx, $00000005 * Reference to: System.@LStrCatN; | 0086DA03 E8AC7CB9FF call 004056B4 0086DA08 8B45D8 mov eax, [ebp-$28] 0086DA0B 50 push eax 0086DA0C 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086DA0E E89905C7FF call 004DDFAC 0086DA13 5A pop edx 0086DA14 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 0086DA16 FF5138 call dword ptr [ecx+$38] 0086DA19 EB2B jmp 0086DA46 0086DA1B 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086DA1D E88A05C7FF call 004DDFAC 0086DA22 50 push eax * Possible String Reference to: ' Set ' | 0086DA23 6848DB8600 push $0086DB48 0086DA28 FF75F8 push dword ptr [ebp-$08] * Possible String Reference to: '=NULL' | 0086DA2B 6870DB8600 push $0086DB70 0086DA30 8D45D0 lea eax, [ebp-$30] 0086DA33 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 0086DA38 E8777CB9FF call 004056B4 0086DA3D 8B55D0 mov edx, [ebp-$30] 0086DA40 58 pop eax 0086DA41 8B08 mov ecx, [eax] 0086DA43 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ',Editer='' | 0086DA46 6880DB8600 push $0086DB80 0086DA4B 8D55C8 lea edx, [ebp-$38] *) end; procedure TfrmYSCR_PBSH.ToolButton3Click(Sender : TObject); begin (* 0086DBD4 55 push ebp 0086DBD5 8BEC mov ebp, esp 0086DBD7 B90C000000 mov ecx, $0000000C 0086DBDC 6A00 push $00 0086DBDE 6A00 push $00 0086DBE0 49 dec ecx 0086DBE1 75F9 jnz 0086DBDC 0086DBE3 51 push ecx 0086DBE4 53 push ebx 0086DBE5 56 push esi 0086DBE6 8BF0 mov esi, eax 0086DBE8 33C0 xor eax, eax 0086DBEA 55 push ebp * Possible String Reference to: '殁l氆^[嬪]' | 0086DBEB 680DDE8600 push $0086DE0D ***** TRY | 0086DBF0 64FF30 push dword ptr fs:[eax] 0086DBF3 648920 mov fs:[eax], esp 0086DBF6 33C0 xor eax, eax 0086DBF8 55 push ebp 0086DBF9 68ABDD8600 push $0086DDAB ***** TRY | 0086DBFE 64FF30 push dword ptr fs:[eax] 0086DC01 648920 mov fs:[eax], esp *) end; procedure TfrmYSCR_PBSH.cxGridDBColumn3PropertiesButtonClick(Sender : TObject); begin (* 0086DE94 55 push ebp 0086DE95 8BEC mov ebp, esp 0086DE97 51 push ecx 0086DE98 B90C000000 mov ecx, $0000000C 0086DE9D 6A00 push $00 0086DE9F 6A00 push $00 0086DEA1 49 dec ecx 0086DEA2 75F9 jnz 0086DE9D 0086DEA4 51 push ecx 0086DEA5 874DFC xchg [ebp-$04], ecx 0086DEA8 53 push ebx 0086DEA9 56 push esi 0086DEAA 8BF0 mov esi, eax 0086DEAC 33C0 xor eax, eax 0086DEAE 55 push ebp * Possible String Reference to: '榕h肓^[嬪]' | 0086DEAF 682AE28600 push $0086E22A ***** TRY | 0086DEB4 64FF30 push dword ptr fs:[eax] 0086DEB7 648920 mov fs:[eax], esp * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 0086DEBA 8B864C030000 mov eax, [esi+$034C] * Possible String Reference to: 'YFType' | 0086DEC0 BA40E28600 mov edx, $0086E240 * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0086DEC5 E8EA8CC5FF call 004C6BB4 0086DECA 8D55F8 lea edx, [ebp-$08] 0086DECD 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 0086DECF FF5160 call dword ptr [ecx+$60] 0086DED2 8B45F8 mov eax, [ebp-$08] 0086DED5 8D55FC lea edx, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086DED8 E80FCAB9FF call 0040A8EC 0086DEDD 837DFC00 cmp dword ptr [ebp-$04], +$00 0086DEE1 741D jz 0086DF00 0086DEE3 6A00 push $00 * Possible String Reference to: '提示' | 0086DEE5 B948E28600 mov ecx, $0086E248 * Possible String Reference to: '自动生成数据不能更改!' | 0086DEEA BA50E28600 mov edx, $0086E250 *) end; procedure TfrmYSCR_PBSH.cxGridDBColumn6PropertiesButtonClick(Sender : TObject); begin (* 0086E390 55 push ebp 0086E391 8BEC mov ebp, esp 0086E393 51 push ecx 0086E394 B907000000 mov ecx, $00000007 0086E399 6A00 push $00 0086E39B 6A00 push $00 0086E39D 49 dec ecx 0086E39E 75F9 jnz 0086E399 0086E3A0 51 push ecx 0086E3A1 874DFC xchg [ebp-$04], ecx 0086E3A4 53 push ebx 0086E3A5 56 push esi 0086E3A6 8BF0 mov esi, eax 0086E3A8 33C0 xor eax, eax 0086E3AA 55 push ebp * Possible String Reference to: '槌d胫^[嬪]' | 0086E3AB 683CE68600 push $0086E63C ***** TRY | 0086E3B0 64FF30 push dword ptr fs:[eax] 0086E3B3 648920 mov fs:[eax], esp * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 0086E3B6 8B864C030000 mov eax, [esi+$034C] * Possible String Reference to: 'YFType' | 0086E3BC BA54E68600 mov edx, $0086E654 * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0086E3C1 E8EE87C5FF call 004C6BB4 0086E3C6 8D55F8 lea edx, [ebp-$08] 0086E3C9 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 0086E3CB FF5160 call dword ptr [ecx+$60] 0086E3CE 8B45F8 mov eax, [ebp-$08] 0086E3D1 8D55FC lea edx, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086E3D4 E813C5B9FF call 0040A8EC 0086E3D9 837DFC00 cmp dword ptr [ebp-$04], +$00 0086E3DD 741D jz 0086E3FC 0086E3DF 6A00 push $00 * Possible String Reference to: '提示' | 0086E3E1 B95CE68600 mov ecx, $0086E65C * Possible String Reference to: '自动生成数据不能更改!' | 0086E3E6 BA64E68600 mov edx, $0086E664 *) end; procedure TfrmYSCR_PBSH.v2Column3PropertiesButtonClick(Sender : TObject); begin (* 0086E770 55 push ebp 0086E771 8BEC mov ebp, esp 0086E773 51 push ecx 0086E774 B907000000 mov ecx, $00000007 0086E779 6A00 push $00 0086E77B 6A00 push $00 0086E77D 49 dec ecx 0086E77E 75F9 jnz 0086E779 0086E780 51 push ecx 0086E781 874DFC xchg [ebp-$04], ecx 0086E784 53 push ebx 0086E785 56 push esi 0086E786 8BF0 mov esi, eax 0086E788 33C0 xor eax, eax 0086E78A 55 push ebp * Possible String Reference to: '橛`胫^[嬪]' | 0086E78B 681CEA8600 push $0086EA1C ***** TRY | 0086E790 64FF30 push dword ptr fs:[eax] 0086E793 648920 mov fs:[eax], esp * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 0086E796 8B864C030000 mov eax, [esi+$034C] * Possible String Reference to: 'YFType' | 0086E79C BA34EA8600 mov edx, $0086EA34 * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0086E7A1 E80E84C5FF call 004C6BB4 0086E7A6 8D55F8 lea edx, [ebp-$08] 0086E7A9 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 0086E7AB FF5160 call dword ptr [ecx+$60] 0086E7AE 8B45F8 mov eax, [ebp-$08] 0086E7B1 8D55FC lea edx, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086E7B4 E833C1B9FF call 0040A8EC 0086E7B9 837DFC00 cmp dword ptr [ebp-$04], +$00 0086E7BD 741D jz 0086E7DC 0086E7BF 6A00 push $00 * Possible String Reference to: '提示' | 0086E7C1 B93CEA8600 mov ecx, $0086EA3C * Possible String Reference to: '自动生成数据不能更改!' | 0086E7C6 BA44EA8600 mov edx, $0086EA44 *) end; procedure TfrmYSCR_PBSH.ToolButton1Click(Sender : TObject); begin (* 0086EB38 53 push ebx 0086EB39 8BD8 mov ebx, eax * Reference to control TfrmYSCR_PBSH.ADOQueryMain : TADOQuery | 0086EB3B 8B831C030000 mov eax, [ebx+$031C] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 0086EB41 E87A93C5FF call 004C7EC0 0086EB46 84C0 test al, al 0086EB48 7516 jnz 0086EB60 * Possible String Reference to: '应收款列表' | 0086EB4A B96CEB8600 mov ecx, $0086EB6C * Reference to control TfrmYSCR_PBSH.ADOQueryMain : TADOQuery | 0086EB4F 8B931C030000 mov edx, [ebx+$031C] * Reference to control TfrmYSCR_PBSH.Tv2 : TcxGridDBTableView | 0086EB55 8B8388030000 mov eax, [ebx+$0388] | 0086EB5B E8D096F4FF call 007B8230 0086EB60 5B pop ebx 0086EB61 C3 ret *) end; procedure TfrmYSCR_PBSH.v2Column7PropertiesButtonClick(Sender : TObject); begin (* 0086EB78 55 push ebp 0086EB79 8BEC mov ebp, esp 0086EB7B 51 push ecx 0086EB7C B912000000 mov ecx, $00000012 0086EB81 6A00 push $00 0086EB83 6A00 push $00 0086EB85 49 dec ecx 0086EB86 75F9 jnz 0086EB81 0086EB88 51 push ecx 0086EB89 874DFC xchg [ebp-$04], ecx 0086EB8C 53 push ebx 0086EB8D 8945FC mov [ebp-$04], eax 0086EB90 33C0 xor eax, eax 0086EB92 55 push ebp * Possible String Reference to: '榫Z氅[嬪]' | 0086EB93 6831F08600 push $0086F031 ***** TRY | 0086EB98 64FF30 push dword ptr fs:[eax] 0086EB9B 648920 mov fs:[eax], esp 0086EB9E 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 0086EBA1 8B804C030000 mov eax, [eax+$034C] * Possible String Reference to: 'YFType' | 0086EBA7 BA48F08600 mov edx, $0086F048 * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0086EBAC E80380C5FF call 004C6BB4 0086EBB1 8D55F4 lea edx, [ebp-$0C] 0086EBB4 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 0086EBB6 FF5160 call dword ptr [ecx+$60] 0086EBB9 8B45F4 mov eax, [ebp-$0C] 0086EBBC 8D55F8 lea edx, [ebp-$08] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086EBBF E828BDB9FF call 0040A8EC 0086EBC4 837DF800 cmp dword ptr [ebp-$08], +$00 0086EBC8 741D jz 0086EBE7 0086EBCA 6A00 push $00 * Possible String Reference to: '提示' | 0086EBCC B950F08600 mov ecx, $0086F050 * Possible String Reference to: '自动生成数据不能删除!' | 0086EBD1 BA58F08600 mov edx, $0086F058 *) end; procedure TfrmYSCR_PBSH.v2PSPropertiesEditValueChanged(Sender : TObject); begin (* 0086F1C8 55 push ebp 0086F1C9 8BEC mov ebp, esp 0086F1CB B908000000 mov ecx, $00000008 0086F1D0 6A00 push $00 0086F1D2 6A00 push $00 0086F1D4 49 dec ecx 0086F1D5 75F9 jnz 0086F1D0 0086F1D7 53 push ebx 0086F1D8 56 push esi 0086F1D9 8BDA mov ebx, edx 0086F1DB 8BF0 mov esi, eax 0086F1DD 33C0 xor eax, eax 0086F1DF 55 push ebp * Possible String Reference to: '?W胫^[嬪]' | 0086F1E0 68B0F38600 push $0086F3B0 ***** TRY | 0086F1E5 64FF30 push dword ptr fs:[eax] 0086F1E8 648920 mov fs:[eax], esp 0086F1EB 8D55FC lea edx, [ebp-$04] 0086F1EE 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; | 0086F1F0 E8C704D2FF call 0058F6BC 0086F1F5 8D55F4 lea edx, [ebp-$0C] 0086F1F8 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086F1FB E8ECB6B9FF call 0040A8EC 0086F200 837DF400 cmp dword ptr [ebp-$0C], +$00 0086F204 750D jnz 0086F213 0086F206 8D45FC lea eax, [ebp-$04] 0086F209 BAC8F38600 mov edx, $0086F3C8 * Reference to: System.@LStrLAsg(void;void;void;void); | 0086F20E E8A961B9FF call 004053BC * Reference to control TfrmYSCR_PBSH.Tv2 : TcxGridDBTableView | 0086F213 8B8688030000 mov eax, [esi+$0388] * 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; | 0086F219 E82ED1DEFF 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; | 0086F21E E84129DEFF call 00651B64 * Reference to field TcxGridDBTableView.OFFS_0050 | 0086F223 8B4050 mov eax, [eax+$50] 0086F226 8D55F0 lea edx, [ebp-$10] 0086F229 8B08 mov ecx, [eax] 0086F22B FF5110 call dword ptr [ecx+$10] 0086F22E 8B45F0 mov eax, [ebp-$10] 0086F231 8D55F8 lea edx, [ebp-$08] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086F234 E8B3B6B9FF call 0040A8EC * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 0086F239 8B9E4C030000 mov ebx, [esi+$034C] 0086F23F 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Edit(TDataSet); | 0086F241 E8FA91C5FF call 004C8440 0086F246 8D55DC lea edx, [ebp-$24] 0086F249 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086F24C E89BB6B9FF call 0040A8EC 0086F251 8B55DC mov edx, [ebp-$24] 0086F254 8D45E0 lea eax, [ebp-$20] * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 0086F257 E86C9BBAFF call 00418DC8 0086F25C 8D45E0 lea eax, [ebp-$20] 0086F25F 50 push eax 0086F260 8B55F8 mov edx, [ebp-$08] 0086F263 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0086F265 E84A79C5FF call 004C6BB4 0086F26A 5A pop edx 0086F26B 8B08 mov ecx, [eax] * Reference to method TClientDataSet.DestroyFields() | 0086F26D FF91B4000000 call dword ptr [ecx+$00B4] 0086F273 8BC3 mov eax, ebx 0086F275 8B10 mov edx, [eax] * Reference to method TClientDataSet.Post() | 0086F277 FF924C020000 call dword ptr [edx+$024C] * Reference to control TfrmYSCR_PBSH.ADOQueryCmd : TADOQuery | 0086F27D 8B9E0C030000 mov ebx, [esi+$030C] 0086F283 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 0086F285 E84A66C5FF call 004C58D4 0086F28A 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086F28C E81BEDC6FF call 004DDFAC 0086F291 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 0086F293 FF5244 call dword ptr [edx+$44] 0086F296 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086F298 E80FEDC6FF call 004DDFAC * Possible String Reference to: 'UPdate YF_Money_CR ' | 0086F29D BAD4F38600 mov edx, $0086F3D4 0086F2A2 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 0086F2A4 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ' Set ' | 0086F2A7 68F0F38600 push $0086F3F0 0086F2AC FF75F8 push dword ptr [ebp-$08] 0086F2AF 6800F48600 push $0086F400 0086F2B4 8D55D4 lea edx, [ebp-$2C] 0086F2B7 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086F2BA E82DB6B9FF call 0040A8EC 0086F2BF FF75D4 push dword ptr [ebp-$2C] 0086F2C2 8D45D8 lea eax, [ebp-$28] 0086F2C5 BA04000000 mov edx, $00000004 * Reference to: System.@LStrCatN; | 0086F2CA E8E563B9FF call 004056B4 0086F2CF 8B45D8 mov eax, [ebp-$28] 0086F2D2 50 push eax 0086F2D3 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086F2D5 E8D2ECC6FF call 004DDFAC 0086F2DA 5A pop edx 0086F2DB 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 0086F2DD FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ',Editer='' | 0086F2E0 680CF48600 push $0086F40C 0086F2E5 8D55CC lea edx, [ebp-$34] *) end; procedure TfrmYSCR_PBSH.v2Column2PropertiesEditValueChanged(Sender : TObject); begin (* 0086F46C 55 push ebp 0086F46D 8BEC mov ebp, esp 0086F46F B907000000 mov ecx, $00000007 0086F474 6A00 push $00 0086F476 6A00 push $00 0086F478 49 dec ecx 0086F479 75F9 jnz 0086F474 0086F47B 51 push ecx 0086F47C 53 push ebx 0086F47D 56 push esi 0086F47E 8BDA mov ebx, edx 0086F480 8BF0 mov esi, eax 0086F482 33C0 xor eax, eax 0086F484 55 push ebp * Possible String Reference to: '槌T胫^[嬪]' | 0086F485 683CF68600 push $0086F63C ***** TRY | 0086F48A 64FF30 push dword ptr fs:[eax] 0086F48D 648920 mov fs:[eax], esp 0086F490 8D55FC lea edx, [ebp-$04] 0086F493 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; | 0086F495 E82202D2FF call 0058F6BC * Reference to control TfrmYSCR_PBSH.Tv2 : TcxGridDBTableView | 0086F49A 8B8688030000 mov eax, [esi+$0388] * 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; | 0086F4A0 E8A7CEDEFF 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; | 0086F4A5 E8BA26DEFF call 00651B64 * Reference to field TcxGridDBTableView.OFFS_0050 | 0086F4AA 8B4050 mov eax, [eax+$50] 0086F4AD 8D55F4 lea edx, [ebp-$0C] 0086F4B0 8B08 mov ecx, [eax] 0086F4B2 FF5110 call dword ptr [ecx+$10] 0086F4B5 8B45F4 mov eax, [ebp-$0C] 0086F4B8 8D55F8 lea edx, [ebp-$08] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086F4BB E82CB4B9FF call 0040A8EC * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 0086F4C0 8B9E4C030000 mov ebx, [esi+$034C] 0086F4C6 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Edit(TDataSet); | 0086F4C8 E8738FC5FF call 004C8440 0086F4CD 8D55E0 lea edx, [ebp-$20] 0086F4D0 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086F4D3 E814B4B9FF call 0040A8EC 0086F4D8 8B55E0 mov edx, [ebp-$20] 0086F4DB 8D45E4 lea eax, [ebp-$1C] * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 0086F4DE E8E598BAFF call 00418DC8 0086F4E3 8D45E4 lea eax, [ebp-$1C] 0086F4E6 50 push eax 0086F4E7 8B55F8 mov edx, [ebp-$08] 0086F4EA 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0086F4EC E8C376C5FF call 004C6BB4 0086F4F1 5A pop edx 0086F4F2 8B08 mov ecx, [eax] * Reference to method TClientDataSet.DestroyFields() | 0086F4F4 FF91B4000000 call dword ptr [ecx+$00B4] 0086F4FA 8BC3 mov eax, ebx 0086F4FC 8B10 mov edx, [eax] * Reference to method TClientDataSet.Post() | 0086F4FE FF924C020000 call dword ptr [edx+$024C] * Reference to control TfrmYSCR_PBSH.ADOQueryCmd : TADOQuery | 0086F504 8B9E0C030000 mov ebx, [esi+$030C] 0086F50A 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 0086F50C E8C363C5FF call 004C58D4 0086F511 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086F513 E894EAC6FF call 004DDFAC 0086F518 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 0086F51A FF5244 call dword ptr [edx+$44] 0086F51D 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086F51F E888EAC6FF call 004DDFAC * Possible String Reference to: 'UPdate YF_Money_CR ' | 0086F524 BA54F68600 mov edx, $0086F654 0086F529 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 0086F52B FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ' Set ' | 0086F52E 6870F68600 push $0086F670 0086F533 FF75F8 push dword ptr [ebp-$08] * Possible String Reference to: '='' | 0086F536 6880F68600 push $0086F680 0086F53B 8D55D8 lea edx, [ebp-$28] 0086F53E 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086F541 E8A6B3B9FF call 0040A8EC 0086F546 FF75D8 push dword ptr [ebp-$28] 0086F549 688CF68600 push $0086F68C 0086F54E 8D45DC lea eax, [ebp-$24] 0086F551 BA05000000 mov edx, $00000005 * Reference to: System.@LStrCatN; | 0086F556 E85961B9FF call 004056B4 0086F55B 8B45DC mov eax, [ebp-$24] 0086F55E 50 push eax 0086F55F 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086F561 E846EAC6FF call 004DDFAC 0086F566 5A pop edx 0086F567 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 0086F569 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ',Editer='' | 0086F56C 6898F68600 push $0086F698 0086F571 8D55D0 lea edx, [ebp-$30] *) end; procedure TfrmYSCR_PBSH.v2KPMoneyPropertiesEditValueChanged(Sender : TObject); begin (* 0086F6EC 55 push ebp 0086F6ED 8BEC mov ebp, esp 0086F6EF B90C000000 mov ecx, $0000000C 0086F6F4 6A00 push $00 0086F6F6 6A00 push $00 0086F6F8 49 dec ecx 0086F6F9 75F9 jnz 0086F6F4 0086F6FB 53 push ebx 0086F6FC 56 push esi 0086F6FD 8BDA mov ebx, edx 0086F6FF 8BF0 mov esi, eax 0086F701 33C0 xor eax, eax 0086F703 55 push ebp 0086F704 68E3F98600 push $0086F9E3 ***** TRY | 0086F709 64FF30 push dword ptr fs:[eax] 0086F70C 648920 mov fs:[eax], esp 0086F70F 8D55FC lea edx, [ebp-$04] 0086F712 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; | 0086F714 E8A3FFD1FF call 0058F6BC 0086F719 8D55EC lea edx, [ebp-$14] 0086F71C 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086F71F E8C8B1B9FF call 0040A8EC 0086F724 837DEC00 cmp dword ptr [ebp-$14], +$00 0086F728 750D jnz 0086F737 0086F72A 8D45FC lea eax, [ebp-$04] 0086F72D BAF8F98600 mov edx, $0086F9F8 * Reference to: System.@LStrLAsg(void;void;void;void); | 0086F732 E8855CB9FF call 004053BC * Reference to control TfrmYSCR_PBSH.Tv2 : TcxGridDBTableView | 0086F737 8B8688030000 mov eax, [esi+$0388] * 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; | 0086F73D E80ACCDEFF 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; | 0086F742 E81D24DEFF call 00651B64 * Reference to field TcxGridDBTableView.OFFS_0050 | 0086F747 8B4050 mov eax, [eax+$50] 0086F74A 8D55E8 lea edx, [ebp-$18] 0086F74D 8B08 mov ecx, [eax] 0086F74F FF5110 call dword ptr [ecx+$10] 0086F752 8B45E8 mov eax, [ebp-$18] 0086F755 8D55F0 lea edx, [ebp-$10] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086F758 E88FB1B9FF call 0040A8EC * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 0086F75D 8B9E4C030000 mov ebx, [esi+$034C] 0086F763 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Edit(TDataSet); | 0086F765 E8D68CC5FF call 004C8440 0086F76A 8D55D4 lea edx, [ebp-$2C] 0086F76D 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086F770 E877B1B9FF call 0040A8EC 0086F775 8B55D4 mov edx, [ebp-$2C] 0086F778 8D45D8 lea eax, [ebp-$28] * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 0086F77B E84896BAFF call 00418DC8 0086F780 8D45D8 lea eax, [ebp-$28] 0086F783 50 push eax 0086F784 8B55F0 mov edx, [ebp-$10] 0086F787 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0086F789 E82674C5FF call 004C6BB4 0086F78E 5A pop edx 0086F78F 8B08 mov ecx, [eax] * Reference to method TClientDataSet.DestroyFields() | 0086F791 FF91B4000000 call dword ptr [ecx+$00B4] 0086F797 8BC3 mov eax, ebx 0086F799 8B10 mov edx, [eax] * Reference to method TClientDataSet.Post() | 0086F79B FF924C020000 call dword ptr [edx+$024C] * Reference to control TfrmYSCR_PBSH.ADOQueryTemp : TADOQuery | 0086F7A1 8B9E08030000 mov ebx, [esi+$0308] 0086F7A7 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 0086F7A9 E82661C5FF call 004C58D4 0086F7AE 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086F7B0 E8F7E7C6FF call 004DDFAC 0086F7B5 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 0086F7B7 FF5244 call dword ptr [edx+$44] * Possible String Reference to: 'select isnull(KPMoney,0) KPMoney fr | om YF_Money_CR where YFID='' | 0086F7BA 6804FA8600 push $0086FA04 * Possible String Reference to: 'YFID' | 0086F7BF BA4CFA8600 mov edx, $0086FA4C * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 0086F7C4 8B864C030000 mov eax, [esi+$034C] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0086F7CA E8E573C5FF call 004C6BB4 0086F7CF 8D55CC lea edx, [ebp-$34] 0086F7D2 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 0086F7D4 FF5160 call dword ptr [ecx+$60] 0086F7D7 FF75CC push dword ptr [ebp-$34] 0086F7DA 685CFA8600 push $0086FA5C 0086F7DF 8D45D0 lea eax, [ebp-$30] 0086F7E2 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 0086F7E7 E8C85EB9FF call 004056B4 0086F7EC 8B45D0 mov eax, [ebp-$30] 0086F7EF 50 push eax 0086F7F0 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086F7F2 E8B5E7C6FF call 004DDFAC 0086F7F7 5A pop edx 0086F7F8 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 0086F7FA FF5138 call dword ptr [ecx+$38] 0086F7FD 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Open(TDataSet); | 0086F7FF E8C460C5FF call 004C58C8 * Possible String Reference to: 'KPMoney' | 0086F804 BA68FA8600 mov edx, $0086FA68 * Reference to control TfrmYSCR_PBSH.ADOQueryTemp : TADOQuery | 0086F809 8B8608030000 mov eax, [esi+$0308] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0086F80F E8A073C5FF call 004C6BB4 0086F814 8D55F4 lea edx, [ebp-$0C] 0086F817 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_60 | 0086F819 FF5160 call dword ptr [ecx+$60] * Possible String Reference to: 'KPMoney' | 0086F81C BA68FA8600 mov edx, $0086FA68 * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 0086F821 8B864C030000 mov eax, [esi+$034C] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0086F827 E88873C5FF call 004C6BB4 0086F82C 8D55F8 lea edx, [ebp-$08] 0086F82F 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 0086F831 FF5160 call dword ptr [ecx+$60] * Reference to control TfrmYSCR_PBSH.ADOQueryCmd : TADOQuery | 0086F834 8B9E0C030000 mov ebx, [esi+$030C] 0086F83A 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 0086F83C E89360C5FF call 004C58D4 0086F841 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086F843 E864E7C6FF call 004DDFAC 0086F848 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 0086F84A FF5244 call dword ptr [edx+$44] 0086F84D 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086F84F E858E7C6FF call 004DDFAC * Possible String Reference to: 'UPdate YF_Money_CR ' | 0086F854 BA78FA8600 mov edx, $0086FA78 0086F859 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 0086F85B FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ' Set ' | 0086F85E 6894FA8600 push $0086FA94 0086F863 FF75F0 push dword ptr [ebp-$10] 0086F866 68A4FA8600 push $0086FAA4 0086F86B 8D55C4 lea edx, [ebp-$3C] 0086F86E 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086F871 E876B0B9FF call 0040A8EC 0086F876 FF75C4 push dword ptr [ebp-$3C] 0086F879 8D45C8 lea eax, [ebp-$38] 0086F87C BA04000000 mov edx, $00000004 * Reference to: System.@LStrCatN; | 0086F881 E82E5EB9FF call 004056B4 0086F886 8B45C8 mov eax, [ebp-$38] 0086F889 50 push eax 0086F88A 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086F88C E81BE7C6FF call 004DDFAC 0086F891 5A pop edx 0086F892 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 0086F894 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ',Editer='' | 0086F897 68B0FA8600 push $0086FAB0 0086F89C 8D55BC lea edx, [ebp-$44] *) end; procedure TfrmYSCR_PBSH.Button1Click(Sender : TObject); begin (* 0086FB6C 55 push ebp 0086FB6D 8BEC mov ebp, esp 0086FB6F B910000000 mov ecx, $00000010 0086FB74 6A00 push $00 0086FB76 6A00 push $00 0086FB78 49 dec ecx 0086FB79 75F9 jnz 0086FB74 0086FB7B 51 push ecx 0086FB7C 53 push ebx 0086FB7D 56 push esi 0086FB7E 57 push edi 0086FB7F 8945FC mov [ebp-$04], eax 0086FB82 33C0 xor eax, eax 0086FB84 55 push ebp * Possible String Reference to: '轵K霠_^[嬪]' | 0086FB85 68FDFE8600 push $0086FEFD ***** TRY | 0086FB8A 64FF30 push dword ptr fs:[eax] 0086FB8D 648920 mov fs:[eax], esp 0086FB90 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 0086FB93 8B804C030000 mov eax, [eax+$034C] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 0086FB99 E82283C5FF call 004C7EC0 0086FB9E 84C0 test al, al 0086FBA0 0F85F1020000 jnz 0086FE97 0086FBA6 A00CFF8600 mov al, byte ptr [$0086FF0C] 0086FBAB 50 push eax 0086FBAC 8D45EC lea eax, [ebp-$14] 0086FBAF B201 mov dl, $01 * Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean); | 0086FBB1 E8AE91BAFF call 00418D64 0086FBB6 8D4DEC lea ecx, [ebp-$14] 0086FBB9 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 0086FBBC 8B804C030000 mov eax, [eax+$034C] * Possible String Reference to: 'ssel' | 0086FBC2 BA18FF8600 mov edx, $0086FF18 0086FBC7 8B18 mov ebx, [eax] * Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions) | 0086FBC9 FF9344020000 call dword ptr [ebx+$0244] 0086FBCF 84C0 test al, al 0086FBD1 751D jnz 0086FBF0 0086FBD3 6A00 push $00 * Possible String Reference to: '提示' | 0086FBD5 B920FF8600 mov ecx, $0086FF20 * Possible String Reference to: '没有选择数据!' | 0086FBDA BA28FF8600 mov edx, $0086FF28 *) end; procedure TfrmYSCR_PBSH.CheckBox1Click(Sender : TObject); begin (* 0086FFE8 55 push ebp 0086FFE9 8BEC mov ebp, esp 0086FFEB B905000000 mov ecx, $00000005 0086FFF0 6A00 push $00 0086FFF2 6A00 push $00 0086FFF4 49 dec ecx 0086FFF5 75F9 jnz 0086FFF0 0086FFF7 53 push ebx 0086FFF8 56 push esi 0086FFF9 57 push edi 0086FFFA 8BF0 mov esi, eax 0086FFFC 33C0 xor eax, eax 0086FFFE 55 push ebp 0086FFFF 68B6018700 push $008701B6 ***** TRY | 00870004 64FF30 push dword ptr fs:[eax] 00870007 648920 mov fs:[eax], esp 0087000A BACC018700 mov edx, $008701CC * Reference to control TfrmYSCR_PBSH.Label14 : TLabel | 0087000F 8B8600040000 mov eax, [esi+$0400] * Reference to: Controls.TControl.SetText(TControl;TCaption); | 00870015 E80686C1FF call 00488620 0087001A BACC018700 mov edx, $008701CC * Reference to control TfrmYSCR_PBSH.Label16 : TLabel | 0087001F 8B8604040000 mov eax, [esi+$0404] * Reference to: Controls.TControl.SetText(TControl;TCaption); | 00870025 E8F685C1FF call 00488620 * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 0087002A 8B864C030000 mov eax, [esi+$034C] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 00870030 E88B7EC5FF call 004C7EC0 00870035 84C0 test al, al 00870037 0F8543010000 jnz 00870180 * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 0087003D 8B9E4C030000 mov ebx, [esi+$034C] 00870043 8BC3 mov eax, ebx * Reference to: DB.TDataSet.DisableControls(TDataSet); | 00870045 E80A75C5FF call 004C7554 0087004A 8BC3 mov eax, ebx * Reference to: DB.TDataSet.First(TDataSet); | 0087004C E8DF7FC5FF call 004C8030 00870051 E90F010000 jmp 00870165 00870056 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Edit(TDataSet); | 00870058 E8E383C5FF call 004C8440 * Reference to control TfrmYSCR_PBSH.CheckBox1 : TCheckBox | 0087005D 8B8670030000 mov eax, [esi+$0370] 00870063 8B10 mov edx, [eax] * Reference to method TCheckBox.GetChecked() | 00870065 FF92C8000000 call dword ptr [edx+$00C8] 0087006B 8BD0 mov edx, eax 0087006D 8D45F0 lea eax, [ebp-$10] * Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean); | 00870070 E8EF8CBAFF call 00418D64 00870075 8D45F0 lea eax, [ebp-$10] 00870078 50 push eax * Possible String Reference to: 'ssel' | 00870079 BAD8018700 mov edx, $008701D8 0087007E 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00870080 E82F6BC5FF call 004C6BB4 00870085 5A pop edx 00870086 8B08 mov ecx, [eax] * Reference to method TClientDataSet.DestroyFields() | 00870088 FF91B4000000 call dword ptr [ecx+$00B4] * Reference to control TfrmYSCR_PBSH.CheckBox1 : TCheckBox | 0087008E 8B8670030000 mov eax, [esi+$0370] 00870094 8B10 mov edx, [eax] * Reference to method TCheckBox.GetChecked() | 00870096 FF92C8000000 call dword ptr [edx+$00C8] 0087009C 3C01 cmp al, $01 0087009E 0F85B0000000 jnz 00870154 * Possible String Reference to: 'Qty' | 008700A4 BAE8018700 mov edx, $008701E8 008700A9 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 008700AB E8046BC5FF call 004C6BB4 008700B0 8B10 mov edx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_4C | 008700B2 FF524C call dword ptr [edx+$4C] 008700B5 DF7DE4 fistp qword ptr [ebp-$1C] 008700B8 9B wait 008700B9 8D55E0 lea edx, [ebp-$20] * Reference to control TfrmYSCR_PBSH.Label14 : TLabel | 008700BC 8BBE00040000 mov edi, [esi+$0400] 008700C2 8BC7 mov eax, edi * Reference to: Controls.TControl.GetText(TControl):TCaption; | 008700C4 E82785C1FF call 004885F0 008700C9 8B45E0 mov eax, [ebp-$20] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 008700CC E85BD6B9FF call 0040D72C 008700D1 D80DEC018700 fmul dword ptr [$008701EC] 008700D7 DF6DE4 fild qword ptr [ebp-$1C] 008700DA DEC1 faddp st(1), st(0) 008700DC D835EC018700 fdiv dword ptr [$008701EC] 008700E2 83C4F4 add esp, -$0C 008700E5 DB3C24 fstp tbyte ptr [esp] 008700E8 9B wait 008700E9 8D45EC lea eax, [ebp-$14] | 008700EC E8BBD4B9FF call 0040D5AC 008700F1 8B55EC mov edx, [ebp-$14] 008700F4 8BC7 mov eax, edi * Reference to: Controls.TControl.SetText(TControl;TCaption); | 008700F6 E82585C1FF call 00488620 * Possible String Reference to: 'Money' | 008700FB BAF8018700 mov edx, $008701F8 00870100 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00870102 E8AD6AC5FF call 004C6BB4 00870107 8B10 mov edx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_4C | 00870109 FF524C call dword ptr [edx+$4C] 0087010C DF7DE4 fistp qword ptr [ebp-$1C] 0087010F 9B wait 00870110 8D55D8 lea edx, [ebp-$28] * Reference to control TfrmYSCR_PBSH.Label16 : TLabel | 00870113 8B8604040000 mov eax, [esi+$0404] * Reference to: Controls.TControl.GetText(TControl):TCaption; | 00870119 E8D284C1FF call 004885F0 0087011E 8B45D8 mov eax, [ebp-$28] * Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload; | 00870121 E806D6B9FF call 0040D72C 00870126 D80DEC018700 fmul dword ptr [$008701EC] 0087012C DF6DE4 fild qword ptr [ebp-$1C] 0087012F DEC1 faddp st(1), st(0) 00870131 D835EC018700 fdiv dword ptr [$008701EC] 00870137 83C4F4 add esp, -$0C 0087013A DB3C24 fstp tbyte ptr [esp] 0087013D 9B wait 0087013E 8D45DC lea eax, [ebp-$24] | 00870141 E866D4B9FF call 0040D5AC 00870146 8B55DC mov edx, [ebp-$24] * Reference to control TfrmYSCR_PBSH.Label16 : TLabel | 00870149 8B8604040000 mov eax, [esi+$0404] * Reference to: Controls.TControl.SetText(TControl;TCaption); | 0087014F E8CC84C1FF call 00488620 00870154 8BC3 mov eax, ebx 00870156 8B10 mov edx, [eax] * Reference to method TClientDataSet.Post() | 00870158 FF924C020000 call dword ptr [edx+$024C] 0087015E 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Next(TDataSet); | 00870160 E8E781C5FF call 004C834C * Reference to field TClientDataSet.Eof : Boolean | 00870165 80BBA100000000 cmp byte ptr [ebx+$00A1], $00 0087016C 0F84E4FEFFFF jz 00870056 00870172 8BC3 mov eax, ebx * Reference to: DB.TDataSet.First(TDataSet); | 00870174 E8B77EC5FF call 004C8030 00870179 8BC3 mov eax, ebx * Reference to: DB.TDataSet.EnableControls(TDataSet); | 0087017B E8F473C5FF call 004C7574 00870180 33C0 xor eax, eax 00870182 5A pop edx 00870183 59 pop ecx 00870184 59 pop ecx 00870185 648910 mov fs:[eax], edx ****** FINALLY | 00870188 68BD018700 push $008701BD 0087018D 8D45D8 lea eax, [ebp-$28] * Reference to: System.@LStrClr(void;void); | 00870190 E88F51B9FF call 00405324 00870195 8D45DC lea eax, [ebp-$24] * Reference to: System.@LStrClr(void;void); | 00870198 E88751B9FF call 00405324 0087019D 8D45E0 lea eax, [ebp-$20] * Reference to: System.@LStrClr(void;void); | 008701A0 E87F51B9FF call 00405324 008701A5 8D45EC lea eax, [ebp-$14] * Reference to: System.@LStrClr(void;void); | 008701A8 E87751B9FF call 00405324 008701AD 8D45F0 lea eax, [ebp-$10] * Reference to: Variants.@VarClr(TVarData;TVarData); | 008701B0 E8BF44BAFF call 00414674 008701B5 C3 ret * Reference to: System.@HandleFinally; | 008701B6 E93949B9FF jmp 00404AF4 008701BB EBD0 jmp 0087018D ****** END | 008701BD 5F pop edi 008701BE 5E pop esi 008701BF 5B pop ebx 008701C0 8BE5 mov esp, ebp 008701C2 5D pop ebp 008701C3 C3 ret *) end; procedure TfrmYSCR_PBSH.cxTabControl1Change(Sender : TObject); begin (* 00870200 53 push ebx 00870201 8BD8 mov ebx, eax 00870203 8BC3 mov eax, ebx | 00870205 E802B6FFFF call 0086B80C 0087020A 8BC3 mov eax, ebx | 0087020C E8DFB6FFFF call 0086B8F0 00870211 5B pop ebx 00870212 C3 ret *) end; procedure TfrmYSCR_PBSH.FormCreate(Sender : TObject); begin (* 00870214 55 push ebp 00870215 8BEC mov ebp, esp 00870217 6A00 push $00 00870219 6A00 push $00 0087021B 53 push ebx 0087021C 8BD8 mov ebx, eax 0087021E 33C0 xor eax, eax 00870220 55 push ebp 00870221 688E028700 push $0087028E ***** TRY | 00870226 64FF30 push dword ptr fs:[eax] 00870229 648920 mov fs:[eax], esp 0087022C B205 mov dl, $05 * Reference to control TfrmYSCR_PBSH.cxGrid2 : TcxGrid | 0087022E 8B8384030000 mov eax, [ebx+$0384] * Reference to: Controls.TControl.SetAlign(TControl;TAlign); | 00870234 E8A378C1FF call 00487ADC 00870239 8D55FC lea edx, [ebp-$04] *) end; procedure TfrmYSCR_PBSH.TchkClick(Sender : TObject); begin (* 0087029C 55 push ebp 0087029D 8BEC mov ebp, esp 0087029F B906000000 mov ecx, $00000006 008702A4 6A00 push $00 008702A6 6A00 push $00 008702A8 49 dec ecx 008702A9 75F9 jnz 008702A4 008702AB 51 push ecx 008702AC 53 push ebx 008702AD 56 push esi 008702AE 57 push edi 008702AF 8945FC mov [ebp-$04], eax 008702B2 33C0 xor eax, eax 008702B4 55 push ebp * Possible String Reference to: '橼E胛_^[嬪]' | 008702B5 6815058700 push $00870515 ***** TRY | 008702BA 64FF30 push dword ptr fs:[eax] 008702BD 648920 mov fs:[eax], esp 008702C0 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 008702C3 8B804C030000 mov eax, [eax+$034C] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 008702C9 E8F27BC5FF call 004C7EC0 008702CE 84C0 test al, al 008702D0 0F8507020000 jnz 008704DD 008702D6 A024058700 mov al, byte ptr [$00870524] 008702DB 50 push eax 008702DC 8D45EC lea eax, [ebp-$14] 008702DF B201 mov dl, $01 * Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean); | 008702E1 E87E8ABAFF call 00418D64 008702E6 8D4DEC lea ecx, [ebp-$14] 008702E9 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 008702EC 8B804C030000 mov eax, [eax+$034C] * Possible String Reference to: 'ssel' | 008702F2 BA30058700 mov edx, $00870530 008702F7 8B18 mov ebx, [eax] * Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions) | 008702F9 FF9344020000 call dword ptr [ebx+$0244] 008702FF 84C0 test al, al 00870301 751D jnz 00870320 00870303 6A00 push $00 * Possible String Reference to: '提示' | 00870305 B938058700 mov ecx, $00870538 * Possible String Reference to: '没有选择数据!' | 0087030A BA40058700 mov edx, $00870540 *) end; procedure TfrmYSCR_PBSH.TnochkClick(Sender : TObject); begin (* 008705F0 55 push ebp 008705F1 8BEC mov ebp, esp 008705F3 B904000000 mov ecx, $00000004 008705F8 6A00 push $00 008705FA 6A00 push $00 008705FC 49 dec ecx 008705FD 75F9 jnz 008705F8 008705FF 51 push ecx 00870600 53 push ebx 00870601 56 push esi 00870602 57 push edi 00870603 8945FC mov [ebp-$04], eax 00870606 33C0 xor eax, eax 00870608 55 push ebp * Possible String Reference to: '殍B脬_^[嬪]' | 00870609 6807088700 push $00870807 ***** TRY | 0087060E 64FF30 push dword ptr fs:[eax] 00870611 648920 mov fs:[eax], esp 00870614 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 00870617 8B804C030000 mov eax, [eax+$034C] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 0087061D E89E78C5FF call 004C7EC0 00870622 84C0 test al, al 00870624 0F85BA010000 jnz 008707E4 0087062A A018088700 mov al, byte ptr [$00870818] 0087062F 50 push eax 00870630 8D45EC lea eax, [ebp-$14] 00870633 B201 mov dl, $01 * Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean); | 00870635 E82A87BAFF call 00418D64 0087063A 8D4DEC lea ecx, [ebp-$14] 0087063D 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 00870640 8B804C030000 mov eax, [eax+$034C] * Possible String Reference to: 'ssel' | 00870646 BA24088700 mov edx, $00870824 0087064B 8B18 mov ebx, [eax] * Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions) | 0087064D FF9344020000 call dword ptr [ebx+$0244] 00870653 84C0 test al, al 00870655 751D jnz 00870674 00870657 6A00 push $00 * Possible String Reference to: '提示' | 00870659 B92C088700 mov ecx, $0087082C * Possible String Reference to: '没有选择数据!' | 0087065E BA34088700 mov edx, $00870834 *) end; procedure TfrmYSCR_PBSH.nochkClick(Sender : TObject); begin (* 008708BC 55 push ebp 008708BD 8BEC mov ebp, esp 008708BF B906000000 mov ecx, $00000006 008708C4 6A00 push $00 008708C6 6A00 push $00 008708C8 49 dec ecx 008708C9 75F9 jnz 008708C4 008708CB 51 push ecx 008708CC 53 push ebx 008708CD 56 push esi 008708CE 57 push edi 008708CF 8945FC mov [ebp-$04], eax 008708D2 33C0 xor eax, eax 008708D4 55 push ebp * Possible String Reference to: '閫?肫_^[嬪]' | 008708D5 686F0B8700 push $00870B6F ***** TRY | 008708DA 64FF30 push dword ptr fs:[eax] 008708DD 648920 mov fs:[eax], esp 008708E0 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 008708E3 8B804C030000 mov eax, [eax+$034C] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 008708E9 E8D275C5FF call 004C7EC0 008708EE 84C0 test al, al 008708F0 0F8539020000 jnz 00870B2F 008708F6 A0800B8700 mov al, byte ptr [$00870B80] 008708FB 50 push eax 008708FC 8D45EC lea eax, [ebp-$14] 008708FF B201 mov dl, $01 * Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean); | 00870901 E85E84BAFF call 00418D64 00870906 8D4DEC lea ecx, [ebp-$14] 00870909 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 0087090C 8B804C030000 mov eax, [eax+$034C] * Possible String Reference to: 'ssel' | 00870912 BA8C0B8700 mov edx, $00870B8C 00870917 8B18 mov ebx, [eax] * Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions) | 00870919 FF9344020000 call dword ptr [ebx+$0244] 0087091F 84C0 test al, al 00870921 751D jnz 00870940 00870923 6A00 push $00 * Possible String Reference to: '提示' | 00870925 B9940B8700 mov ecx, $00870B94 * Possible String Reference to: '没有选择数据!' | 0087092A BA9C0B8700 mov edx, $00870B9C *) end; procedure TfrmYSCR_PBSH.v2Column5PropertiesChange(Sender : TObject); begin (* 00870C74 53 push ebx 00870C75 56 push esi 00870C76 8BD8 mov ebx, eax * Reference to control TfrmYSCR_PBSH.ToolBar1 : TToolBar | 00870C78 8B83F8020000 mov eax, [ebx+$02F8] 00870C7E 8B10 mov edx, [eax] * Reference to method TToolBar.SetFocus() | 00870C80 FF92C4000000 call dword ptr [edx+$00C4] * Possible String Reference to: 'Qty' | 00870C86 BAF40C8700 mov edx, $00870CF4 * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 00870C8B 8BB34C030000 mov esi, [ebx+$034C] 00870C91 8BC6 mov eax, esi * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00870C93 E81C5FC5FF call 004C6BB4 00870C98 8B10 mov edx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_4C | 00870C9A FF524C call dword ptr [edx+$4C] 00870C9D D835F80C8700 fdiv dword ptr [$00870CF8] 00870CA3 83C4F8 add esp, -$08 00870CA6 DD1C24 fstp qword ptr [esp] 00870CA9 9B wait * Reference to control TfrmYSCR_PBSH.Label14 : TLabel | 00870CAA 8B9300040000 mov edx, [ebx+$0400] 00870CB0 8BC6 mov eax, esi * Reference to : TfrmSelExportField._PROC_007B6D90() | 00870CB2 E8D960F4FF call 007B6D90 * Possible String Reference to: 'Money' | 00870CB7 BA040D8700 mov edx, $00870D04 * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 00870CBC 8BB34C030000 mov esi, [ebx+$034C] 00870CC2 8BC6 mov eax, esi * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00870CC4 E8EB5EC5FF call 004C6BB4 00870CC9 8B10 mov edx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_4C | 00870CCB FF524C call dword ptr [edx+$4C] 00870CCE D835F80C8700 fdiv dword ptr [$00870CF8] 00870CD4 83C4F8 add esp, -$08 00870CD7 DD1C24 fstp qword ptr [esp] 00870CDA 9B wait * Reference to control TfrmYSCR_PBSH.Label16 : TLabel | 00870CDB 8B9304040000 mov edx, [ebx+$0404] 00870CE1 8BC6 mov eax, esi * Reference to : TfrmSelExportField._PROC_007B6D90() | 00870CE3 E8A860F4FF call 007B6D90 00870CE8 5E pop esi 00870CE9 5B pop ebx 00870CEA C3 ret *) end; procedure TfrmYSCR_PBSH.cxTabControl2Change(Sender : TObject); begin (* 00870D0C 53 push ebx 00870D0D 8BD8 mov ebx, eax 00870D0F 8BC3 mov eax, ebx | 00870D11 E8F6AAFFFF call 0086B80C 00870D16 8BC3 mov eax, ebx | 00870D18 E8D3ABFFFF call 0086B8F0 00870D1D 5B pop ebx 00870D1E C3 ret *) end; procedure TfrmYSCR_PBSH.TZZSHClick(Sender : TObject); begin (* 00870D20 55 push ebp 00870D21 8BEC mov ebp, esp 00870D23 B904000000 mov ecx, $00000004 00870D28 6A00 push $00 00870D2A 6A00 push $00 00870D2C 49 dec ecx 00870D2D 75F9 jnz 00870D28 00870D2F 51 push ecx 00870D30 53 push ebx 00870D31 56 push esi 00870D32 57 push edi 00870D33 8945FC mov [ebp-$04], eax 00870D36 33C0 xor eax, eax 00870D38 55 push ebp * Possible String Reference to: '樾;脬_^[嬪]' | 00870D39 681F0F8700 push $00870F1F ***** TRY | 00870D3E 64FF30 push dword ptr fs:[eax] 00870D41 648920 mov fs:[eax], esp 00870D44 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 00870D47 8B804C030000 mov eax, [eax+$034C] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 00870D4D E86E71C5FF call 004C7EC0 00870D52 84C0 test al, al 00870D54 0F85A2010000 jnz 00870EFC 00870D5A A0300F8700 mov al, byte ptr [$00870F30] 00870D5F 50 push eax 00870D60 8D45EC lea eax, [ebp-$14] 00870D63 B201 mov dl, $01 * Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean); | 00870D65 E8FA7FBAFF call 00418D64 00870D6A 8D4DEC lea ecx, [ebp-$14] 00870D6D 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 00870D70 8B804C030000 mov eax, [eax+$034C] * Possible String Reference to: 'ssel' | 00870D76 BA3C0F8700 mov edx, $00870F3C 00870D7B 8B18 mov ebx, [eax] * Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions) | 00870D7D FF9344020000 call dword ptr [ebx+$0244] 00870D83 84C0 test al, al 00870D85 751D jnz 00870DA4 00870D87 6A00 push $00 * Possible String Reference to: '提示' | 00870D89 B9440F8700 mov ecx, $00870F44 * Possible String Reference to: '没有选择数据!' | 00870D8E BA4C0F8700 mov edx, $00870F4C *) end; procedure TfrmYSCR_PBSH.TEJCXClick(Sender : TObject); begin (* 00870FC8 55 push ebp 00870FC9 8BEC mov ebp, esp 00870FCB B904000000 mov ecx, $00000004 00870FD0 6A00 push $00 00870FD2 6A00 push $00 00870FD4 49 dec ecx 00870FD5 75F9 jnz 00870FD0 00870FD7 51 push ecx 00870FD8 53 push ebx 00870FD9 56 push esi 00870FDA 57 push edi 00870FDB 8945FC mov [ebp-$04], eax 00870FDE 33C0 xor eax, eax 00870FE0 55 push ebp * Possible String Reference to: '(9脬_^[嬪]' | 00870FE1 68C7118700 push $008711C7 ***** TRY | 00870FE6 64FF30 push dword ptr fs:[eax] 00870FE9 648920 mov fs:[eax], esp 00870FEC 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 00870FEF 8B804C030000 mov eax, [eax+$034C] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 00870FF5 E8C66EC5FF call 004C7EC0 00870FFA 84C0 test al, al 00870FFC 0F85A2010000 jnz 008711A4 00871002 A0D8118700 mov al, byte ptr [$008711D8] 00871007 50 push eax 00871008 8D45EC lea eax, [ebp-$14] 0087100B B201 mov dl, $01 * Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean); | 0087100D E8527DBAFF call 00418D64 00871012 8D4DEC lea ecx, [ebp-$14] 00871015 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 00871018 8B804C030000 mov eax, [eax+$034C] * Possible String Reference to: 'ssel' | 0087101E BAE4118700 mov edx, $008711E4 00871023 8B18 mov ebx, [eax] * Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions) | 00871025 FF9344020000 call dword ptr [ebx+$0244] 0087102B 84C0 test al, al 0087102D 751D jnz 0087104C 0087102F 6A00 push $00 * Possible String Reference to: '提示' | 00871031 B9EC118700 mov ecx, $008711EC * Possible String Reference to: '没有选择数据!' | 00871036 BAF4118700 mov edx, $008711F4 *) end; procedure TfrmYSCR_PBSH._PROC_0086B8F1(Sender : TObject); begin (* 0086B8F1 8BEC mov ebp, esp 0086B8F3 33C9 xor ecx, ecx 0086B8F5 51 push ecx 0086B8F6 51 push ecx 0086B8F7 51 push ecx 0086B8F8 51 push ecx 0086B8F9 51 push ecx 0086B8FA 53 push ebx 0086B8FB 56 push esi 0086B8FC 8945FC mov [ebp-$04], eax 0086B8FF 33C0 xor eax, eax 0086B901 55 push ebp * Possible String Reference to: '閪徆腚^[嬪]' | 0086B902 6871BB8600 push $0086BB71 ***** TRY | 0086B907 64FF30 push dword ptr fs:[eax] 0086B90A 648920 mov fs:[eax], esp 0086B90D 33C0 xor eax, eax 0086B90F 55 push ebp 0086B910 684FBB8600 push $0086BB4F ***** TRY | 0086B915 64FF30 push dword ptr fs:[eax] 0086B918 648920 mov fs:[eax], esp 0086B91B 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.ADOQueryMain : TADOQuery | 0086B91E 8B801C030000 mov eax, [eax+$031C] * Reference to: DB.TDataSet.DisableControls(TDataSet); | 0086B924 E82BBCC5FF call 004C7554 0086B929 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.ADOQueryMain : TADOQuery | 0086B92C 8B981C030000 mov ebx, [eax+$031C] 0086B932 33D2 xor edx, edx 0086B934 8BC3 mov eax, ebx 0086B936 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_0190 | 0086B938 FF9190010000 call dword ptr [ecx+$0190] 0086B93E 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 0086B940 E88F9FC5FF call 004C58D4 0086B945 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086B947 E86026C7FF call 004DDFAC 0086B94C 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 0086B94E FF5244 call dword ptr [edx+$44] 0086B951 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086B953 E85426C7FF call 004DDFAC * Possible String Reference to: 'select A.*' | 0086B958 BA88BB8600 mov edx, $0086BB88 0086B95D 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 0086B95F FF5138 call dword ptr [ecx+$38] 0086B962 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086B964 E84326C7FF call 004DDFAC * Possible String Reference to: ',ConPrice=(select B.HYPrice from JY | OrderCon_Sub B where A.ConID=B.Subi | d)' | 0086B969 BA9CBB8600 mov edx, $0086BB9C 0086B96E 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 0086B970 FF5138 call dword ptr [ecx+$38] 0086B973 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086B975 E83226C7FF call 004DDFAC * Possible String Reference to: ',OrderUnit=(select Top 1 B.OrderUni | t from JYOrderCon_Sub B where B.Sub | id=A.ConID)' | 0086B97A BAF0BB8600 mov edx, $0086BBF0 0086B97F 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 0086B981 FF5138 call dword ptr [ecx+$38] 0086B984 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086B986 E82126C7FF call 004DDFAC * Possible String Reference to: ' from YF_Money_CR A' | 0086B98B BA4CBC8600 mov edx, $0086BC4C 0086B990 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 0086B992 FF5138 call dword ptr [ecx+$38] 0086B995 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086B997 E81026C7FF call 004DDFAC * Possible String Reference to: ' where A.CRType='应收款登记' ' | 0086B99C BA68BC8600 mov edx, $0086BC68 0086B9A1 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 0086B9A3 FF5138 call dword ptr [ecx+$38] 0086B9A6 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.cxTabControl1 : TcxTabControl | 0086B9A9 8B8080030000 mov eax, [eax+$0380] * Reference to control ADOTemp : N.A. | 0086B9AF 83B83C03000000 cmp dword ptr [eax+$033C], +$00 0086B9B6 0F84A1000000 jz 0086BA5D * Possible String Reference to: ' and A.CRTime>='' | 0086B9BC 6890BC8600 push $0086BC90 0086B9C1 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.begdate : TDateTimePicker | 0086B9C4 8B803C030000 mov eax, [eax+$033C] 0086B9CA FFB014020000 push dword ptr [eax+$0214] 0086B9D0 FFB010020000 push dword ptr [eax+$0210] 0086B9D6 8D55F4 lea edx, [ebp-$0C] * Possible String Reference to: 'yyyy-MM-dd' | 0086B9D9 B8ACBC8600 mov eax, $0086BCAC | 0086B9DE E8D931BAFF call 0040EBBC 0086B9E3 FF75F4 push dword ptr [ebp-$0C] * Possible String Reference to: '' ' | 0086B9E6 68C0BC8600 push $0086BCC0 0086B9EB 8D45F8 lea eax, [ebp-$08] 0086B9EE BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 0086B9F3 E8BC9CB9FF call 004056B4 0086B9F8 8B45F8 mov eax, [ebp-$08] 0086B9FB 50 push eax 0086B9FC 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086B9FE E8A925C7FF call 004DDFAC 0086BA03 5A pop edx 0086BA04 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 0086BA06 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ' and A.CRTime<'' | 0086BA09 68CCBC8600 push $0086BCCC 0086BA0E 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.Enddate : TDateTimePicker | 0086BA11 8B8040030000 mov eax, [eax+$0340] 0086BA17 DD8010020000 fld qword ptr [eax+$0210] 0086BA1D D805DCBC8600 fadd dword ptr [$0086BCDC] 0086BA23 83C4F8 add esp, -$08 0086BA26 DD1C24 fstp qword ptr [esp] 0086BA29 9B wait 0086BA2A 8D55EC lea edx, [ebp-$14] * Possible String Reference to: 'yyyy-MM-dd' | 0086BA2D B8ACBC8600 mov eax, $0086BCAC | 0086BA32 E88531BAFF call 0040EBBC 0086BA37 FF75EC push dword ptr [ebp-$14] * Possible String Reference to: '' ' | 0086BA3A 68C0BC8600 push $0086BCC0 0086BA3F 8D45F0 lea eax, [ebp-$10] 0086BA42 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 0086BA47 E8689CB9FF call 004056B4 0086BA4C 8B45F0 mov eax, [ebp-$10] 0086BA4F 50 push eax 0086BA50 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086BA52 E85525C7FF call 004DDFAC 0086BA57 5A pop edx 0086BA58 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 0086BA5A FF5138 call dword ptr [ecx+$38] 0086BA5D 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.cxTabControl1 : TcxTabControl | 0086BA60 8B8080030000 mov eax, [eax+$0380] * Reference to control ADOTemp : N.A. | 0086BA66 83B83C03000000 cmp dword ptr [eax+$033C], +$00 0086BA6D 7511 jnz 0086BA80 0086BA6F 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086BA71 E83625C7FF call 004DDFAC * Possible String Reference to: ' and isnull(A.status,'0')='1'' | 0086BA76 BAE8BC8600 mov edx, $0086BCE8 0086BA7B 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 0086BA7D FF5138 call dword ptr [ecx+$38] 0086BA80 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.cxTabControl1 : TcxTabControl | 0086BA83 8B8080030000 mov eax, [eax+$0380] * Reference to control ADOTemp : N.A. | 0086BA89 83B83C03000001 cmp dword ptr [eax+$033C], +$01 0086BA90 7511 jnz 0086BAA3 0086BA92 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086BA94 E81325C7FF call 004DDFAC * Possible String Reference to: ' and isnull(A.status,'0')='2'' | 0086BA99 BA10BD8600 mov edx, $0086BD10 0086BA9E 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 0086BAA0 FF5138 call dword ptr [ecx+$38] 0086BAA3 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.cxTabControl1 : TcxTabControl | 0086BAA6 8B8080030000 mov eax, [eax+$0380] * Reference to control ADOTemp : N.A. | 0086BAAC 83B83C03000002 cmp dword ptr [eax+$033C], +$02 0086BAB3 7511 jnz 0086BAC6 0086BAB5 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 0086BAB7 E8F024C7FF call 004DDFAC * Possible String Reference to: ' and isnull(A.status,'0')<>'0'' | 0086BABC BA38BD8600 mov edx, $0086BD38 0086BAC1 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 0086BAC3 FF5138 call dword ptr [ecx+$38] 0086BAC6 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Open(TDataSet); | 0086BAC8 E8FB9DC5FF call 004C58C8 0086BACD 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 0086BAD0 8B904C030000 mov edx, [eax+$034C] 0086BAD6 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.ADOQueryMain : TADOQuery | 0086BAD9 8B801C030000 mov eax, [eax+$031C] | 0086BADF E8ACB3F4FF call 007B6E90 0086BAE4 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet | 0086BAE7 8B904C030000 mov edx, [eax+$034C] 0086BAED 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.ADOQueryMain : TADOQuery | 0086BAF0 8B801C030000 mov eax, [eax+$031C] | 0086BAF6 E81DB5F4FF call 007B7018 0086BAFB 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.Label14 : TLabel | 0086BAFE 8B8000040000 mov eax, [eax+$0400] 0086BB04 BA60BD8600 mov edx, $0086BD60 * Reference to: Controls.TControl.SetText(TControl;TCaption); | 0086BB09 E812CBC1FF call 00488620 0086BB0E 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.Label16 : TLabel | 0086BB11 8B8004040000 mov eax, [eax+$0404] 0086BB17 BA60BD8600 mov edx, $0086BD60 * Reference to: Controls.TControl.SetText(TControl;TCaption); | 0086BB1C E8FFCAC1FF call 00488620 0086BB21 33C0 xor eax, eax 0086BB23 5A pop edx 0086BB24 59 pop ecx 0086BB25 59 pop ecx 0086BB26 648910 mov fs:[eax], edx ****** FINALLY | 0086BB29 6856BB8600 push $0086BB56 0086BB2E 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.ADOQueryMain : TADOQuery | 0086BB31 8B801C030000 mov eax, [eax+$031C] * Reference to: DB.TDataSet.EnableControls(TDataSet); | 0086BB37 E838BAC5FF call 004C7574 0086BB3C 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.ToolButton2 : TToolButton | 0086BB3F 8B8014030000 mov eax, [eax+$0314] 0086BB45 66BEEBFF mov si, $FFEB * Reference to: System.@CallDynaInst; | 0086BB49 E8068AB9FF call 00404554 0086BB4E C3 ret * Reference to: System.@HandleFinally; | 0086BB4F E9A08FB9FF jmp 00404AF4 0086BB54 EBD8 jmp 0086BB2E ****** END | 0086BB56 33C0 xor eax, eax 0086BB58 5A pop edx 0086BB59 59 pop ecx 0086BB5A 59 pop ecx 0086BB5B 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '^[嬪]' | 0086BB5E 6878BB8600 push $0086BB78 0086BB63 8D45EC lea eax, [ebp-$14] 0086BB66 BA04000000 mov edx, $00000004 * Reference to: System.@LStrArrayClr(void;void;Integer); | 0086BB6B E8D897B9FF call 00405348 0086BB70 C3 ret * Reference to: System.@HandleFinally; | 0086BB71 E97E8FB9FF jmp 00404AF4 0086BB76 EBEB jmp 0086BB63 ****** END | 0086BB78 5E pop esi 0086BB79 5B pop ebx 0086BB7A 8BE5 mov esp, ebp 0086BB7C 5D pop ebp 0086BB7D C3 ret *) end; procedure TfrmYSCR_PBSH._PROC_0086BBF7(Sender : TObject); begin (* 0086BBF7 6E outsb 0086BBF8 69743D2873656C65 imul esi, [ebp+edi+$28], $656C6573 0086BC00 63742054 arpl [eax+$54], si 0086BC04 6F outsd 0086BC05 7020 jo 0086BC27 0086BC07 3120 xor [eax], esp 0086BC09 42 inc edx 0086BC0A 2E4F dec edi 0086BC0C 7264 jb 0086BC72 0086BC0E 657255 jb 0086BC66 0086BC11 6E outsb 0086BC12 69742066726F6D20 imul esi, [eax+$66], $206D6F72 0086BC1A 4A dec edx 0086BC1B 59 pop ecx 0086BC1C 4F dec edi 0086BC1D 7264 jb 0086BC83 0086BC1F 657243 jb 0086BC65 0086BC22 6F outsd 0086BC23 6E outsb 0086BC24 5F pop edi 0086BC25 53 push ebx 0086BC26 7562 jnz 0086BC8A 0086BC28 204220 and [edx+$20], al 0086BC2B 7768 jnbe 0086BC95 0086BC2D 657265 jb 0086BC95 0086BC30 20422E and [edx+$2E], al 0086BC33 53 push ebx 0086BC34 7562 jnz 0086BC98 0086BC36 69643D412E436F6E imul esp, [ebp+edi+$41], $6E6F432E 0086BC3E 49 dec ecx 0086BC3F 44 inc esp 0086BC40 2900 sub dword ptr [eax], eax 0086BC42 0000 add [eax], al 0086BC44 FFFF DB $FF, $FF // 0086BC46 FFFF DB $FF, $FF // 0086BC48 1300 adc eax, [eax] 0086BC4A 0000 add [eax], al 0086BC4C 206672 and [esi+$72], ah 0086BC4F 6F outsd 0086BC50 6D insd 0086BC51 205946 and [ecx+$46], bl 0086BC54 5F pop edi 0086BC55 4D dec ebp 0086BC56 6F outsd 0086BC57 6E outsb 0086BC58 65795F jns 0086BCBA 0086BC5B 43 inc ebx 0086BC5C 52 push edx 0086BC5D 204100 and [ecx+$00], al 0086BC60 FFFF DB $FF, $FF // 0086BC62 FFFF DB $FF, $FF // 0086BC64 1D00000020 sbb eax, $20000000 0086BC69 7768 jnbe 0086BCD3 0086BC6B 657265 jb 0086BCD3 0086BC6E 20412E and [ecx+$2E], al 0086BC71 43 inc ebx 0086BC72 52 push edx 0086BC73 54 push esp 0086BC74 7970 jns 0086BCE6 0086BC76 653D27D3A6CA cmp eax, $CAA6D327 0086BC7C D5 aad 0086BC7D BFEEB5C7BC mov edi, $BCC7B5EE 0086BC82 C72720000000 mov dword ptr [edi], $00000020 0086BC88 FFFF DB $FF, $FF // 0086BC8A FFFF DB $FF, $FF // 0086BC8C 1000 adc [eax], al 0086BC8E 0000 add [eax], al 0086BC90 20616E and [ecx+$6E], ah 0086BC93 6420412E and fs:[ecx+$2E], al 0086BC97 43 inc ebx 0086BC98 52 push edx 0086BC99 54 push esp 0086BC9A 696D653E3D2700 imul ebp, [ebp+$65], $00273D3E 0086BCA1 0000 add [eax], al 0086BCA3 00FF add bh, bh 0086BCA5 FFFF DB $FF, $FF // 0086BCA7 FF0A dec dword ptr [edx] 0086BCA9 0000 add [eax], al 0086BCAB 007979 add [ecx+$79], bh 0086BCAE 7979 jns 0086BD29 0086BCB0 2D4D4D2D64 sub eax, $642D4D4D 0086BCB5 640000 add fs:[eax], al 0086BCB8 FFFF DB $FF, $FF // 0086BCBA FFFF DB $FF, $FF // 0086BCBC 0200 add al, byte ptr [eax] 0086BCBE 0000 add [eax], al 0086BCC0 27 daa 0086BCC1 2000 and [eax], al 0086BCC3 00FF add bh, bh 0086BCC5 FFFF DB $FF, $FF // 0086BCC7 FF0F dec dword ptr [edi] 0086BCC9 0000 add [eax], al 0086BCCB 0020 add [eax], ah 0086BCCD 61 popa 0086BCCE 6E outsb 0086BCCF 6420412E and fs:[ecx+$2E], al 0086BCD3 43 inc ebx 0086BCD4 52 push edx 0086BCD5 54 push esp 0086BCD6 696D653C270000 imul ebp, [ebp+$65], $0000273C 0086BCDD 00803FFFFFFF add [eax+$FFFFFF3F], al 0086BCE3 FF1D00000020 call [$20000000] 0086BCE9 61 popa 0086BCEA 6E outsb 0086BCEB 64206973 and fs:[ecx+$73], ch 0086BCEF 6E outsb 0086BCF0 756C jnz 0086BD5E 0086BCF2 6C insb 0086BCF3 28412E sub [ecx+$2E], al 0086BCF6 7374 jnb 0086BD6C 0086BCF8 61 popa 0086BCF9 7475 jz 0086BD70 0086BCFB 732C jnb 0086BD29 0086BCFD 27 daa 0086BCFE 3027 xor [edi], ah 0086BD00 293D27312700 sub dword ptr [$00273127], edi 0086BD06 0000 add [eax], al 0086BD08 FFFF DB $FF, $FF // 0086BD0A FFFF DB $FF, $FF // 0086BD0C 1D00000020 sbb eax, $20000000 0086BD11 61 popa 0086BD12 6E outsb 0086BD13 64206973 and fs:[ecx+$73], ch 0086BD17 6E outsb 0086BD18 756C jnz 0086BD86 0086BD1A 6C insb 0086BD1B 28412E sub [ecx+$2E], al 0086BD1E 7374 jnb 0086BD94 0086BD20 61 popa 0086BD21 7475 jz 0086BD98 0086BD23 732C jnb 0086BD51 0086BD25 27 daa 0086BD26 3027 xor [edi], ah 0086BD28 293D27322700 sub dword ptr [$00273227], edi 0086BD2E 0000 add [eax], al 0086BD30 FFFF DB $FF, $FF // 0086BD32 FFFF DB $FF, $FF // 0086BD34 1E push ds 0086BD35 0000 add [eax], al 0086BD37 0020 add [eax], ah 0086BD39 61 popa 0086BD3A 6E outsb 0086BD3B 64206973 and fs:[ecx+$73], ch 0086BD3F 6E outsb 0086BD40 756C jnz 0086BDAE 0086BD42 6C insb 0086BD43 28412E sub [ecx+$2E], al 0086BD46 7374 jnb 0086BDBC 0086BD48 61 popa 0086BD49 7475 jz 0086BDC0 0086BD4B 732C jnb 0086BD79 0086BD4D 27 daa 0086BD4E 3027 xor [edi], ah 0086BD50 293C3E sub dword ptr [esi+edi], edi 0086BD53 27 daa 0086BD54 3027 xor [edi], ah 0086BD56 0000 add [eax], al 0086BD58 FFFF DB $FF, $FF // 0086BD5A FFFF DB $FF, $FF // 0086BD5C 0100 add [eax], eax 0086BD5E 0000 add [eax], al 0086BD60 3000 xor [eax], al 0086BD62 0000 add [eax], al 0086BD64 33C0 xor eax, eax * Reference to GlobalVar_00895AAC | 0086BD66 A3AC5A8900 mov dword ptr [$00895AAC], eax 0086BD6B C3 ret 0086BD6C C60102 mov byte ptr [ecx], $02 0086BD6F C3 ret 0086BD70 53 push ebx 0086BD71 8BD8 mov ebx, eax * Possible String Reference to: '财务管理' | 0086BD73 B99CBD8600 mov ecx, $0086BD9C * Reference to control Label5 : TLabel | 0086BD78 8B9388030000 mov edx, [ebx+$0388] * Possible String Reference to: '应收款登记2' | 0086BD7E B8B0BD8600 mov eax, $0086BDB0 | 0086BD83 E818BEF4FF call 007B7BA0 0086BD88 8BC3 mov eax, ebx * Reference to: Forms.TCustomForm.Close(TCustomForm); | 0086BD8A E809A2C3FF call 004A5F98 0086BD8F 5B pop ebx 0086BD90 C3 ret 0086BD91 0000 add [eax], al 0086BD93 00FF add bh, bh 0086BD95 FFFF DB $FF, $FF // 0086BD97 FF08 dec dword ptr [eax] 0086BD99 0000 add [eax], al 0086BD9B 00B2C6CEF1B9 add [edx+$B9F1CEC6], dh 0086BDA1 DCC0 fadd st(0), st(0) 0086BDA3 ED in eax, dx 0086BDA4 0000 add [eax], al 0086BDA6 0000 add [eax], al 0086BDA8 FFFF DB $FF, $FF // 0086BDAA FFFF DB $FF, $FF // 0086BDAC 0B00 or eax, [eax] 0086BDAE 0000 add [eax], al 0086BDB0 D3A6CAD5BFEE shl dword ptr [esi+$EEBFD5CA], cl 0086BDB6 B5C7 mov ch, $C7 0086BDB8 BCC7320055 mov esp, $550032C7 0086BDBD 8BEC mov ebp, esp 0086BDBF 33C9 xor ecx, ecx 0086BDC1 51 push ecx 0086BDC2 51 push ecx 0086BDC3 51 push ecx 0086BDC4 51 push ecx 0086BDC5 51 push ecx 0086BDC6 51 push ecx 0086BDC7 51 push ecx 0086BDC8 51 push ecx 0086BDC9 53 push ebx 0086BDCA 56 push esi 0086BDCB 57 push edi 0086BDCC 8945FC mov [ebp-$04], eax 0086BDCF 33C0 xor eax, eax 0086BDD1 55 push ebp * Possible String Reference to: ',嫻脬_^[嬪]' | 0086BDD2 68C3BF8600 push $0086BFC3 ***** TRY | 0086BDD7 64FF30 push dword ptr fs:[eax] 0086BDDA 648920 mov fs:[eax], esp 0086BDDD 8B45FC mov eax, [ebp-$04] * Reference to control ADOQuery1 : N.A. | 0086BDE0 8B804C030000 mov eax, [eax+$034C] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 0086BDE6 E8D5C0C5FF call 004C7EC0 0086BDEB 84C0 test al, al 0086BDED 0F85AD010000 jnz 0086BFA0 0086BDF3 A0D4BF8600 mov al, byte ptr [$0086BFD4] 0086BDF8 50 push eax 0086BDF9 8D45EC lea eax, [ebp-$14] 0086BDFC B201 mov dl, $01 * Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean); | 0086BDFE E861CFBAFF call 00418D64 0086BE03 8D4DEC lea ecx, [ebp-$14] 0086BE06 8B45FC mov eax, [ebp-$04] * Reference to control ADOQuery1 : N.A. | 0086BE09 8B804C030000 mov eax, [eax+$034C] * Possible String Reference to: 'ssel' | 0086BE0F BAE0BF8600 mov edx, $0086BFE0 0086BE14 8B18 mov ebx, [eax] * Possible reference to virtual method TN.A..OFFS_0244 | 0086BE16 FF9344020000 call dword ptr [ebx+$0244] 0086BE1C 84C0 test al, al 0086BE1E 751D jnz 0086BE3D 0086BE20 6A00 push $00 * Possible String Reference to: '提示' | 0086BE22 B9E8BF8600 mov ecx, $0086BFE8 * Possible String Reference to: '没有选择数据!' | 0086BE27 BAF0BF8600 mov edx, $0086BFF0 *) end; procedure TfrmYSCR_PBSH._PROC_0086C36D(Sender : TObject); begin (* 0086C36D 8BEC mov ebp, esp 0086C36F B92B000000 mov ecx, $0000002B 0086C374 6A00 push $00 0086C376 6A00 push $00 0086C378 49 dec ecx 0086C379 75F9 jnz 0086C374 0086C37B 53 push ebx 0086C37C 56 push esi 0086C37D 57 push edi 0086C37E 8945FC mov [ebp-$04], eax 0086C381 33C0 xor eax, eax 0086C383 55 push ebp * Possible String Reference to: '嬅_^[嬪]' | 0086C384 68F0CA8600 push $0086CAF0 ***** TRY | 0086C389 64FF30 push dword ptr fs:[eax] 0086C38C 648920 mov fs:[eax], esp 0086C38F 33C0 xor eax, eax 0086C391 55 push ebp 0086C392 68B5C98600 push $0086C9B5 ***** TRY | 0086C397 64FF30 push dword ptr fs:[eax] 0086C39A 648920 mov fs:[eax], esp 0086C39D 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.ADOQueryCmd : TADOQuery | 0086C3A0 8B800C030000 mov eax, [eax+$030C] * Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection; | 0086C3A6 E881FAC6FF call 004DBE2C * Reference to: ADODB.TADOConnection.BeginTrans(TADOConnection):Integer; | 0086C3AB E8E45EC6FF call 004D2294 * Possible String Reference to: 'YF_Money_CR' | 0086C3B0 680CCB8600 push $0086CB0C 0086C3B5 6A04 push $04 0086C3B7 6A01 push $01 0086C3B9 8D55F8 lea edx, [ebp-$08] 0086C3BC 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.ADOQueryCmd : TADOQuery | 0086C3BF 8B800C030000 mov eax, [eax+$030C] * Possible String Reference to: 'YS' | 0086C3C5 B920CB8600 mov ecx, $0086CB20 * Reference to : TfrmSelExportField._PROC_007B7708() | 0086C3CA E839B3F4FF call 007B7708 0086C3CF 84C0 test al, al 0086C3D1 753A jnz 0086C40D 0086C3D3 33DB xor ebx, ebx 0086C3D5 8B45FC mov eax, [ebp-$04] * Reference to control TfrmYSCR_PBSH.ADOQueryCmd : TADOQuery | 0086C3D8 8B800C030000 mov eax, [eax+$030C] * Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection; | 0086C3DE E849FAC6FF call 004DBE2C * Reference to: ADODB.TADOConnection.RollbackTrans(TADOConnection); | 0086C3E3 E8F85EC6FF call 004D22E0 0086C3E8 6A00 push $00 * Possible String Reference to: '提示' | 0086C3EA B924CB8600 mov ecx, $0086CB24 * Possible String Reference to: '取最大号失败！' | 0086C3EF BA2CCB8600 mov edx, $0086CB2C *) end; procedure TfrmYSCR_PBSH._PROC_0086CBAD(Sender : TObject); begin (* 0086CBAD 7064 jo 0086CC13 0086CBAF 61 popa 0086CBB0 7465 jz 0086CC17 0086CBB2 205946 and [ecx+$46], bl 0086CBB5 5F pop edi 0086CBB6 4D dec ebp 0086CBB7 6F outsd 0086CBB8 6E outsb 0086CBB9 65795F jns 0086CC1B 0086CBBC 43 inc ebx 0086CBBD 52 push edx 0086CBBE 49 dec ecx 0086CBBF 44 inc esp 0086CBC0 207365 and [ebx+$65], dh 0086CBC3 7420 jz 0086CBE5 0086CBC5 43 inc ebx 0086CBC6 52 push edx 0086CBC7 49 dec ecx 0086CBC8 44 inc esp 0086CBC9 3D43524944 cmp eax, $44495243 0086CBCE 2B31 sub esi, dword ptr [ecx] 0086CBD0 0000 add [eax], al 0086CBD2 0000 add [eax], al 0086CBD4 FFFF DB $FF, $FF // 0086CBD6 FFFF DB $FF, $FF // 0086CBD8 1C00 sbb al, $00 0086CBDA 0000 add [eax], al 0086CBDC 7365 jnb 0086CC43 0086CBDE 6C insb 0086CBDF 656374202A arpl gs:[eax+$2A], si 0086CBE4 206672 and [esi+$72], ah 0086CBE7 6F outsd 0086CBE8 6D insd 0086CBE9 205946 and [ecx+$46], bl 0086CBEC 5F pop edi 0086CBED 4D dec ebp 0086CBEE 6F outsd 0086CBEF 6E outsb 0086CBF0 65795F jns 0086CC52 0086CBF3 43 inc ebx 0086CBF4 52 push edx 0086CBF5 49 dec ecx 0086CBF6 44 inc esp 0086CBF7 2000 and [eax], al 0086CBF9 0000 add [eax], al 0086CBFB 00FF add bh, bh 0086CBFD FFFF DB $FF, $FF // 0086CBFF FF2400 jmp dword ptr [eax+eax] 0086CC02 0000 add [eax], al 0086CC04 7365 jnb 0086CC6B 0086CC06 6C insb 0086CC07 656374202A arpl gs:[eax+$2A], si 0086CC0C 206672 and [esi+$72], ah 0086CC0F 6F outsd 0086CC10 6D insd 0086CC11 205946 and [ecx+$46], bl 0086CC14 5F pop edi 0086CC15 4D dec ebp 0086CC16 6F outsd 0086CC17 6E outsb 0086CC18 65795F jns 0086CC7A 0086CC1B 4B dec ebx 0086CC1C 43 inc ebx 0086CC1D 207768 and [edi+$68], dh 0086CC20 657265 jb 0086CC88 0086CC23 2031 and [ecx], dh 0086CC25 3C3E cmp al, $3E 0086CC27 3100 xor [eax], eax 0086CC29 0000 add [eax], al 0086CC2B 00FF add bh, bh 0086CC2D FFFF DB $FF, $FF // 0086CC2F FF09 dec dword ptr [ecx] 0086CC31 0000 add [eax], al 0086CC33 004661 add [esi+$61], al 0086CC36 63746F72 arpl [edi+ebp*2+$72], si 0086CC3A 794E jns 0086CC8A 0086CC3C 6F outsd 0086CC3D 0000 add [eax], al 0086CC3F 00FF add bh, bh 0086CC41 FFFF DB $FF, $FF // 0086CC43 FF07 inc dword ptr [edi] 0086CC45 0000 add [eax], al 0086CC47 005A64 add [edx+$64], bl 0086CC4A 7953 jns 0086CC9F 0086CC4C 7472 jz 0086CCC0 0086CC4E 3100 xor [eax], eax 0086CC50 FFFF DB $FF, $FF // 0086CC52 FFFF DB $FF, $FF // 0086CC54 06 push es 0086CC55 0000 add [eax], al 0086CC57 00D3 add bl, dl 0086CC59 A6 cmpsb 0086CC5A CA ret 0086CC5B D5 aad 0086CC5C CA ret 0086CC5D D5 aad 0086CC5E 0000 add [eax], al 0086CC60 FFFF DB $FF, $FF // 0086CC62 FFFF DB $FF, $FF // 0086CC64 2400 and al, $00 0086CC66 0000 add [eax], al 0086CC68 7365 jnb 0086CCCF 0086CC6A 6C insb 0086CC6B 656374202A arpl gs:[eax+$2A], si 0086CC70 206672 and [esi+$72], ah 0086CC73 6F outsd 0086CC74 6D insd 0086CC75 205946 and [ecx+$46], bl 0086CC78 5F pop edi 0086CC79 4D dec ebp 0086CC7A 6F outsd 0086CC7B 6E outsb 0086CC7C 65795F jns 0086CCDE 0086CC7F 43 inc ebx 0086CC80 52 push edx 0086CC81 207768 and [edi+$68], dh 0086CC84 657265 jb 0086CCEC 0086CC87 2031 and [ecx], dh 0086CC89 3C3E cmp al, $3E 0086CC8B 3100 xor [eax], eax 0086CC8D 0000 add [eax], al 0086CC8F 00FF add bh, bh 0086CC91 FFFF DB $FF, $FF // 0086CC93 FF0400 inc dword ptr [eax+eax] 0086CC96 0000 add [eax], al 0086CC98 59 pop ecx 0086CC99 46 inc esi 0086CC9A 49 dec ecx 0086CC9B 44 inc esp 0086CC9C 0000 add [eax], al 0086CC9E 0000 add [eax], al 0086CCA0 FFFF DB $FF, $FF // 0086CCA2 FFFF DB $FF, $FF // 0086CCA4 06 push es 0086CCA5 0000 add [eax], al 0086CCA7 004669 add [esi+$69], al 0086CCAA 6C insb 0086CCAB 6C insb 0086CCAC 657200 jb 0086CCAF 0086CCAF 00FF add bh, bh 0086CCB1 FFFF DB $FF, $FF // 0086CCB3 FF06 inc dword ptr [esi] 0086CCB5 0000 add [eax], al 0086CCB7 004352 add [ebx+$52], al 0086CCBA 54 push esp 0086CCBB 7970 jns 0086CD2D 0086CCBD 650000 add gs:[eax], al 0086CCC0 FFFF DB $FF, $FF // 0086CCC2 FFFF DB $FF, $FF // 0086CCC4 0A00 or al, byte ptr [eax] 0086CCC6 0000 add [eax], al 0086CCC8 D3A6CAD5BFEE shl dword ptr [esi+$EEBFD5CA], cl 0086CCCE B5C7 mov ch, $C7 0086CCD0 BCC70000FF mov esp, $FF0000C7 0086CCD5 FFFF DB $FF, $FF // 0086CCD7 FF06 inc dword ptr [esi] 0086CCD9 0000 add [eax], al 0086CCDB 004352 add [ebx+$52], al 0086CCDE 46 inc esi 0086CCDF 6C insb 0086CCE0 61 popa 0086CCE1 670000 add [bx+si], al 0086CCE4 FFFF DB $FF, $FF // 0086CCE6 FFFF DB $FF, $FF // 0086CCE8 07 pop es 0086CCE9 0000 add [eax], al 0086CCEB 005174 add [ecx+$74], dl 0086CCEE 7946 jns 0086CD36 0086CCF0 6C insb 0086CCF1 61 popa 0086CCF2 6700FF add bh, bh 0086CCF5 FFFF DB $FF, $FF // 0086CCF7 FF06 inc dword ptr [esi] 0086CCF9 0000 add [eax], al 0086CCFB 004352 add [ebx+$52], al 0086CCFE 54 push esp 0086CCFF 696D650000FFFF imul ebp, [ebp+$65], $FFFF0000 0086CD06 FFFF DB $FF, $FF // 0086CD08 0A00 or al, byte ptr [eax] 0086CD0A 0000 add [eax], al 0086CD0C 59 pop ecx 0086CD0D 46 inc esi 0086CD0E 44 inc esp 0086CD0F 656646 inc si 0086CD12 6C insb 0086CD13 61 popa 0086CD14 673100 xor [bx+si], eax 0086CD17 00FF add bh, bh 0086CD19 FFFF DB $FF, $FF // 0086CD1B FF06 inc dword ptr [esi] 0086CD1D 0000 add [eax], al 0086CD1F 007374 add [ebx+$74], dh 0086CD22 61 popa 0086CD23 7475 jz 0086CD9A 0086CD25 7300 jnb 0086CD27 0086CD27 00FF add bh, bh 0086CD29 FFFF DB $FF, $FF // 0086CD2B FF0400 inc dword ptr [eax+eax] 0086CD2E 0000 add [eax], al 0086CD30 59 pop ecx 0086CD31 46 inc esi 0086CD32 49 dec ecx 0086CD33 640000 add fs:[eax], al 0086CD36 0000 add [eax], al 0086CD38 D4 aam 0086CD39 F6D0 not al 0086CD3B D0CA ror dl, 1 0086CD3D A7 cmpsd 0086CD3E B0DC mov al, $DC 0086CD40 2100 and [eax], eax 0086CD42 0000 add [eax], al 0086CD44 55 push ebp 0086CD45 8BEC mov ebp, esp 0086CD47 B908000000 mov ecx, $00000008 0086CD4C 6A00 push $00 0086CD4E 6A00 push $00 0086CD50 49 dec ecx 0086CD51 75F9 jnz 0086CD4C 0086CD53 51 push ecx 0086CD54 53 push ebx 0086CD55 56 push esi 0086CD56 8BDA mov ebx, edx 0086CD58 8BF0 mov esi, eax 0086CD5A 33C0 xor eax, eax 0086CD5C 55 push ebp * Possible String Reference to: '闈{胫^[嬪]' | 0086CD5D 6852CF8600 push $0086CF52 ***** TRY | 0086CD62 64FF30 push dword ptr fs:[eax] 0086CD65 648920 mov fs:[eax], esp 0086CD68 8D55FC lea edx, [ebp-$04] 0086CD6B 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; | 0086CD6D E84A29D2FF call 0058F6BC * Reference to control Label5 : TLabel | 0086CD72 8B8688030000 mov eax, [esi+$0388] * Reference to: Contnrs.TComponentList.First(TComponentList):TComponent; | or: Contnrs.TComponentList.Last(TComponentList):TComponent; | 0086CD78 E8CFF5DEFF call 0065C34C * Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass; | or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu; | 0086CD7D E8E24DDEFF call 00651B64 * Reference to field TLabel.ControlStyle : TControlStyle | 0086CD82 8B4050 mov eax, [eax+$50] 0086CD85 8D55F4 lea edx, [ebp-$0C] 0086CD88 8B08 mov ecx, [eax] * Possible reference to virtual method TControlStyle.OFFS_10 | 0086CD8A FF5110 call dword ptr [ecx+$10] 0086CD8D 8B45F4 mov eax, [ebp-$0C] 0086CD90 8D55F8 lea edx, [ebp-$08] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086CD93 E854DBB9FF call 0040A8EC * Reference to control ADOQuery1 : N.A. | 0086CD98 8B9E4C030000 mov ebx, [esi+$034C] 0086CD9E 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Edit(TDataSet); | 0086CDA0 E89BB6C5FF call 004C8440 0086CDA5 8D55E0 lea edx, [ebp-$20] 0086CDA8 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086CDAB E83CDBB9FF call 0040A8EC 0086CDB0 8B55E0 mov edx, [ebp-$20] 0086CDB3 8D45E4 lea eax, [ebp-$1C] * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 0086CDB6 E80DC0BAFF call 00418DC8 0086CDBB 8D45E4 lea eax, [ebp-$1C] 0086CDBE 50 push eax 0086CDBF 8B55F8 mov edx, [ebp-$08] 0086CDC2 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0086CDC4 E8EB9DC5FF call 004C6BB4 0086CDC9 5A pop edx 0086CDCA 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_00B4 | 0086CDCC FF91B4000000 call dword ptr [ecx+$00B4] 0086CDD2 8BC3 mov eax, ebx 0086CDD4 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_024C | 0086CDD6 FF924C020000 call dword ptr [edx+$024C] * Reference to control OrdDate : N.A. | 0086CDDC 8B9E0C030000 mov ebx, [esi+$030C] 0086CDE2 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 0086CDE4 E8EB8AC5FF call 004C58D4 0086CDE9 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; | 0086CDEB E8BC11C7FF call 004DDFAC 0086CDF0 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_44 | 0086CDF2 FF5244 call dword ptr [edx+$44] 0086CDF5 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; | 0086CDF7 E8B011C7FF call 004DDFAC * Possible String Reference to: 'UPdate YCL_SG_HZ ' | 0086CDFC BA68CF8600 mov edx, $0086CF68 0086CE01 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 0086CE03 FF5138 call dword ptr [ecx+$38] 0086CE06 8D55DC lea edx, [ebp-$24] 0086CE09 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086CE0C E8DBDAB9FF call 0040A8EC 0086CE11 837DDC00 cmp dword ptr [ebp-$24], +$00 0086CE15 7440 jz 0086CE57 * Possible String Reference to: ' Set ' | 0086CE17 6884CF8600 push $0086CF84 0086CE1C FF75F8 push dword ptr [ebp-$08] * Possible String Reference to: '='' | 0086CE1F 6894CF8600 push $0086CF94 0086CE24 8D55D4 lea edx, [ebp-$2C] 0086CE27 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086CE2A E8BDDAB9FF call 0040A8EC 0086CE2F FF75D4 push dword ptr [ebp-$2C] 0086CE32 68A0CF8600 push $0086CFA0 0086CE37 8D45D8 lea eax, [ebp-$28] 0086CE3A BA05000000 mov edx, $00000005 * Reference to: System.@LStrCatN; | 0086CE3F E87088B9FF call 004056B4 0086CE44 8B45D8 mov eax, [ebp-$28] 0086CE47 50 push eax 0086CE48 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; | 0086CE4A E85D11C7FF call 004DDFAC 0086CE4F 5A pop edx 0086CE50 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 0086CE52 FF5138 call dword ptr [ecx+$38] 0086CE55 EB2B jmp 0086CE82 0086CE57 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; | 0086CE59 E84E11C7FF call 004DDFAC 0086CE5E 50 push eax * Possible String Reference to: ' Set ' | 0086CE5F 6884CF8600 push $0086CF84 0086CE64 FF75F8 push dword ptr [ebp-$08] * Possible String Reference to: '=NULL' | 0086CE67 68ACCF8600 push $0086CFAC 0086CE6C 8D45D0 lea eax, [ebp-$30] 0086CE6F BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 0086CE74 E83B88B9FF call 004056B4 0086CE79 8B55D0 mov edx, [ebp-$30] 0086CE7C 58 pop eax 0086CE7D 8B08 mov ecx, [eax] 0086CE7F FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ',Editer='' | 0086CE82 68BCCF8600 push $0086CFBC 0086CE87 8D55C8 lea edx, [ebp-$38] *) end; procedure TfrmYSCR_PBSH._PROC_0086CF69(Sender : TObject); begin (* 0086CF69 50 push eax 0086CF6A 6461 popa 0086CF6C 7465 jz 0086CFD3 0086CF6E 205943 and [ecx+$43], bl 0086CF71 4C dec esp 0086CF72 5F pop edi 0086CF73 53 push ebx 0086CF74 47 inc edi 0086CF75 5F pop edi 0086CF76 48 dec eax 0086CF77 5A pop edx 0086CF78 2000 and [eax], al 0086CF7A 0000 add [eax], al 0086CF7C FFFF DB $FF, $FF // 0086CF7E FFFF DB $FF, $FF // 0086CF80 0500000020 add eax, +$20000000 0086CF85 53 push ebx 0086CF86 657420 jz 0086CFA9 0086CF89 0000 add [eax], al 0086CF8B 00FF add bh, bh 0086CF8D FFFF DB $FF, $FF // 0086CF8F FF02 inc dword ptr [edx] 0086CF91 0000 add [eax], al 0086CF93 003D270000FF add [$FF000027], bh 0086CF99 FFFF DB $FF, $FF // 0086CF9B FF01 inc dword ptr [ecx] 0086CF9D 0000 add [eax], al 0086CF9F 0027 add [edi], ah 0086CFA1 0000 add [eax], al 0086CFA3 00FF add bh, bh 0086CFA5 FFFF DB $FF, $FF // 0086CFA7 FF050000003D inc dword ptr [$3D000000] 0086CFAD 4E dec esi 0086CFAE 55 push ebp 0086CFAF 4C dec esp 0086CFB0 4C dec esp 0086CFB1 0000 add [eax], al 0086CFB3 00FF add bh, bh 0086CFB5 FFFF DB $FF, $FF // 0086CFB7 FF09 dec dword ptr [ecx] 0086CFB9 0000 add [eax], al 0086CFBB 002C4564697465 add [$65746964+eax*2], ch 0086CFC2 723D jb 0086D001 0086CFC4 27 daa 0086CFC5 0000 add [eax], al 0086CFC7 00FF add bh, bh 0086CFC9 FFFF DB $FF, $FF // 0086CFCB FF1400 call dword ptr [eax+eax] 0086CFCE 0000 add [eax], al 0086CFD0 2C45 sub al, $45 0086CFD2 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D 0086CFDB 657464 jz 0086D042 0086CFDE 61 popa 0086CFDF 7465 jz 0086D046 0086CFE1 2829 sub [ecx], ch 0086CFE3 2000 and [eax], al 0086CFE5 0000 add [eax], al 0086CFE7 00FF add bh, bh 0086CFE9 FFFF DB $FF, $FF // 0086CFEB FF0E dec dword ptr [esi] 0086CFED 0000 add [eax], al 0086CFEF 0020 add [eax], ah 0086CFF1 7768 jnbe 0086D05B 0086CFF3 657265 jb 0086D05B 0086CFF6 205375 and [ebx+$75], dl 0086CFF9 624964 bound ecx, qword ptr [ecx+$64] 0086CFFC 3D270000FF cmp eax, $FF000027 0086D001 FFFF DB $FF, $FF // 0086D003 FF0500000053 inc dword ptr [$53000000] 0086D009 7562 jnz 0086D06D 0086D00B 49 dec ecx 0086D00C 640000 add fs:[eax], al 0086D00F 00558B add [ebp-$75], dl 0086D012 EC in al, dx 0086D013 B91F000000 mov ecx, $0000001F 0086D018 6A00 push $00 0086D01A 6A00 push $00 0086D01C 49 dec ecx 0086D01D 75F9 jnz 0086D018 0086D01F 53 push ebx 0086D020 56 push esi 0086D021 8BF2 mov esi, edx 0086D023 8BD8 mov ebx, eax 0086D025 33C0 xor eax, eax 0086D027 55 push ebp * Possible String Reference to: '殂s霕^[嬪]' | 0086D028 680CD78600 push $0086D70C ***** TRY | 0086D02D 64FF30 push dword ptr fs:[eax] 0086D030 648920 mov fs:[eax], esp 0086D033 8D55FC lea edx, [ebp-$04] 0086D036 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; | 0086D038 E87F26D2FF call 0058F6BC 0086D03D 8D55DC lea edx, [ebp-$24] 0086D040 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086D043 E8A4D8B9FF call 0040A8EC 0086D048 837DDC00 cmp dword ptr [ebp-$24], +$00 0086D04C 750D jnz 0086D05B 0086D04E 8D45FC lea eax, [ebp-$04] 0086D051 BA24D78600 mov edx, $0086D724 * Reference to: System.@LStrLAsg(void;void;void;void); | 0086D056 E86183B9FF call 004053BC * Reference to control Label5 : TLabel | 0086D05B 8B8388030000 mov eax, [ebx+$0388] * Reference to: Contnrs.TComponentList.First(TComponentList):TComponent; | or: Contnrs.TComponentList.Last(TComponentList):TComponent; | 0086D061 E8E6F2DEFF call 0065C34C * Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass; | or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu; | 0086D066 E8F94ADEFF call 00651B64 * Reference to field TLabel.ControlStyle : TControlStyle | 0086D06B 8B4050 mov eax, [eax+$50] 0086D06E 8D55D8 lea edx, [ebp-$28] 0086D071 8B08 mov ecx, [eax] * Possible reference to virtual method TControlStyle.OFFS_10 | 0086D073 FF5110 call dword ptr [ecx+$10] 0086D076 8B45D8 mov eax, [ebp-$28] 0086D079 8D55E0 lea edx, [ebp-$20] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086D07C E86BD8B9FF call 0040A8EC * Reference to control ADOQuery1 : N.A. | 0086D081 8BB34C030000 mov esi, [ebx+$034C] 0086D087 8BC6 mov eax, esi * Reference to: DB.TDataSet.Edit(TDataSet); | 0086D089 E8B2B3C5FF call 004C8440 0086D08E 8D55C4 lea edx, [ebp-$3C] 0086D091 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086D094 E853D8B9FF call 0040A8EC 0086D099 8B55C4 mov edx, [ebp-$3C] 0086D09C 8D45C8 lea eax, [ebp-$38] * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 0086D09F E824BDBAFF call 00418DC8 0086D0A4 8D45C8 lea eax, [ebp-$38] 0086D0A7 50 push eax 0086D0A8 8B55E0 mov edx, [ebp-$20] 0086D0AB 8BC6 mov eax, esi * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0086D0AD E8029BC5FF call 004C6BB4 0086D0B2 5A pop edx 0086D0B3 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_00B4 | 0086D0B5 FF91B4000000 call dword ptr [ecx+$00B4] 0086D0BB 8D55C0 lea edx, [ebp-$40] *) end; procedure TfrmYSCR_PBSH._PROC_0086D7F1(Sender : TObject); begin (* 0086D7F1 50 push eax 0086D7F2 6461 popa 0086D7F4 7465 jz 0086D85B 0086D7F6 205946 and [ecx+$46], bl 0086D7F9 5F pop edi 0086D7FA 4D dec ebp 0086D7FB 6F outsd 0086D7FC 6E outsb 0086D7FD 65795F jns 0086D85F 0086D800 43 inc ebx 0086D801 52 push edx 0086D802 2000 and [eax], al 0086D804 FFFF DB $FF, $FF // 0086D806 FFFF DB $FF, $FF // 0086D808 0500000020 add eax, +$20000000 0086D80D 53 push ebx 0086D80E 657420 jz 0086D831 0086D811 0000 add [eax], al 0086D813 00FF add bh, bh 0086D815 FFFF DB $FF, $FF // 0086D817 FF01 inc dword ptr [ecx] 0086D819 0000 add [eax], al 0086D81B 003D000000FF add [$FF000000], bh 0086D821 FFFF DB $FF, $FF // 0086D823 FF07 inc dword ptr [edi] 0086D825 0000 add [eax], al 0086D827 002C4D6F6E6579 add [$79656E6F+ecx*2], ch 0086D82E 3D00FFFFFF cmp eax, $FFFFFF00 0086D833 FF09 dec dword ptr [ecx] 0086D835 0000 add [eax], al 0086D837 002C42 add [edx+eax*2], ch 0086D83A 42 inc edx 0086D83B 4D dec ebp 0086D83C 6F outsd 0086D83D 6E outsb 0086D83E 65793D jns 0086D87E 0086D841 0000 add [eax], al 0086D843 00FF add bh, bh 0086D845 FFFF DB $FF, $FF // 0086D847 FF09 dec dword ptr [ecx] 0086D849 0000 add [eax], al 0086D84B 002C4564697465 add [$65746964+eax*2], ch 0086D852 723D jb 0086D891 0086D854 27 daa 0086D855 0000 add [eax], al 0086D857 00FF add bh, bh 0086D859 FFFF DB $FF, $FF // 0086D85B FF1400 call dword ptr [eax+eax] 0086D85E 0000 add [eax], al 0086D860 2C45 sub al, $45 0086D862 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D 0086D86B 657464 jz 0086D8D2 0086D86E 61 popa 0086D86F 7465 jz 0086D8D6 0086D871 2829 sub [ecx], ch 0086D873 2000 and [eax], al 0086D875 0000 add [eax], al 0086D877 00FF add bh, bh 0086D879 FFFF DB $FF, $FF // 0086D87B FF0D00000020 dec dword ptr [$20000000] 0086D881 7768 jnbe 0086D8EB 0086D883 657265 jb 0086D8EB 0086D886 205946 and [ecx+$46], bl 0086D889 49 dec ecx 0086D88A 643D27000000 cmp eax, $00000027 0086D890 FFFF DB $FF, $FF // 0086D892 FFFF DB $FF, $FF // 0086D894 0400 add al, +$00 0086D896 0000 add [eax], al 0086D898 59 pop ecx 0086D899 46 inc esi 0086D89A 49 dec ecx 0086D89B 640000 add fs:[eax], al 0086D89E 0000 add [eax], al 0086D8A0 FFFF DB $FF, $FF // 0086D8A2 FFFF DB $FF, $FF // 0086D8A4 2B00 sub eax, dword ptr [eax] 0086D8A6 0000 add [eax], al 0086D8A8 55 push ebp 0086D8A9 7064 jo 0086D90F 0086D8AB 61 popa 0086D8AC 7465 jz 0086D913 0086D8AE 205946 and [ecx+$46], bl 0086D8B1 5F pop edi 0086D8B2 4D dec ebp 0086D8B3 6F outsd 0086D8B4 6E outsb 0086D8B5 65795F jns 0086D917 0086D8B8 4B dec ebx 0086D8B9 43 inc ebx 0086D8BA 205365 and [ebx+$65], dl 0086D8BD 7420 jz 0086D8DF 0086D8BF 4B dec ebx 0086D8C0 43 inc ebx 0086D8C1 42 inc edx 0086D8C2 42 inc edx 0086D8C3 4D dec ebp 0086D8C4 6F outsd 0086D8C5 6E outsb 0086D8C6 65793D jns 0086D906 0086D8C9 4B dec ebx 0086D8CA 43 inc ebx 0086D8CB 42 inc edx 0086D8CC 42 inc edx 0086D8CD 4D dec ebp 0086D8CE 6F outsd 0086D8CF 6E outsb 0086D8D0 65792D jns 0086D900 0086D8D3 00FF add bh, bh 0086D8D5 FFFF DB $FF, $FF // 0086D8D7 FF01 inc dword ptr [ecx] 0086D8D9 0000 add [eax], al 0086D8DB 002B add [ebx], ch 0086D8DD 0000 add [eax], al 0086D8DF 00FF add bh, bh 0086D8E1 FFFF DB $FF, $FF // 0086D8E3 FF0D00000020 dec dword ptr [$20000000] 0086D8E9 7768 jnbe 0086D953 0086D8EB 657265 jb 0086D953 0086D8EE 204352 and [ebx+$52], al 0086D8F1 49 dec ecx 0086D8F2 44 inc esp 0086D8F3 3D27000000 cmp eax, $00000027 0086D8F8 FFFF DB $FF, $FF // 0086D8FA FFFF DB $FF, $FF // 0086D8FC 0400 add al, +$00 0086D8FE 0000 add [eax], al 0086D900 43 inc ebx 0086D901 52 push edx 0086D902 49 dec ecx 0086D903 44 inc esp 0086D904 0000 add [eax], al 0086D906 0000 add [eax], al 0086D908 55 push ebp 0086D909 8BEC mov ebp, esp 0086D90B B908000000 mov ecx, $00000008 0086D910 6A00 push $00 0086D912 6A00 push $00 0086D914 49 dec ecx 0086D915 75F9 jnz 0086D910 0086D917 51 push ecx 0086D918 53 push ebx 0086D919 56 push esi 0086D91A 8BDA mov ebx, edx 0086D91C 8BF0 mov esi, eax 0086D91E 33C0 xor eax, eax 0086D920 55 push ebp * Possible String Reference to: '橘o胫^[嬪]' | 0086D921 6816DB8600 push $0086DB16 ***** TRY | 0086D926 64FF30 push dword ptr fs:[eax] 0086D929 648920 mov fs:[eax], esp 0086D92C 8D55FC lea edx, [ebp-$04] 0086D92F 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; | 0086D931 E8861DD2FF call 0058F6BC * Reference to control Label5 : TLabel | 0086D936 8B8688030000 mov eax, [esi+$0388] * Reference to: Contnrs.TComponentList.First(TComponentList):TComponent; | or: Contnrs.TComponentList.Last(TComponentList):TComponent; | 0086D93C E80BEADEFF call 0065C34C * Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass; | or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu; | 0086D941 E81E42DEFF call 00651B64 * Reference to field TLabel.ControlStyle : TControlStyle | 0086D946 8B4050 mov eax, [eax+$50] 0086D949 8D55F4 lea edx, [ebp-$0C] 0086D94C 8B08 mov ecx, [eax] * Possible reference to virtual method TControlStyle.OFFS_10 | 0086D94E FF5110 call dword ptr [ecx+$10] 0086D951 8B45F4 mov eax, [ebp-$0C] 0086D954 8D55F8 lea edx, [ebp-$08] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086D957 E890CFB9FF call 0040A8EC * Reference to control ADOQuery1 : N.A. | 0086D95C 8B9E4C030000 mov ebx, [esi+$034C] 0086D962 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Edit(TDataSet); | 0086D964 E8D7AAC5FF call 004C8440 0086D969 8D55E0 lea edx, [ebp-$20] 0086D96C 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086D96F E878CFB9FF call 0040A8EC 0086D974 8B55E0 mov edx, [ebp-$20] 0086D977 8D45E4 lea eax, [ebp-$1C] * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 0086D97A E849B4BAFF call 00418DC8 0086D97F 8D45E4 lea eax, [ebp-$1C] 0086D982 50 push eax 0086D983 8B55F8 mov edx, [ebp-$08] 0086D986 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0086D988 E82792C5FF call 004C6BB4 0086D98D 5A pop edx 0086D98E 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_00B4 | 0086D990 FF91B4000000 call dword ptr [ecx+$00B4] 0086D996 8BC3 mov eax, ebx 0086D998 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_024C | 0086D99A FF924C020000 call dword ptr [edx+$024C] * Reference to control OrdDate : N.A. | 0086D9A0 8B9E0C030000 mov ebx, [esi+$030C] 0086D9A6 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 0086D9A8 E8277FC5FF call 004C58D4 0086D9AD 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; | 0086D9AF E8F805C7FF call 004DDFAC 0086D9B4 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_44 | 0086D9B6 FF5244 call dword ptr [edx+$44] 0086D9B9 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; | 0086D9BB E8EC05C7FF call 004DDFAC * Possible String Reference to: 'UPdate YF_Money_CR ' | 0086D9C0 BA2CDB8600 mov edx, $0086DB2C 0086D9C5 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 0086D9C7 FF5138 call dword ptr [ecx+$38] 0086D9CA 8D55DC lea edx, [ebp-$24] 0086D9CD 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086D9D0 E817CFB9FF call 0040A8EC 0086D9D5 837DDC00 cmp dword ptr [ebp-$24], +$00 0086D9D9 7440 jz 0086DA1B * Possible String Reference to: ' Set ' | 0086D9DB 6848DB8600 push $0086DB48 0086D9E0 FF75F8 push dword ptr [ebp-$08] * Possible String Reference to: '='' | 0086D9E3 6858DB8600 push $0086DB58 0086D9E8 8D55D4 lea edx, [ebp-$2C] 0086D9EB 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086D9EE E8F9CEB9FF call 0040A8EC 0086D9F3 FF75D4 push dword ptr [ebp-$2C] 0086D9F6 6864DB8600 push $0086DB64 0086D9FB 8D45D8 lea eax, [ebp-$28] 0086D9FE BA05000000 mov edx, $00000005 * Reference to: System.@LStrCatN; | 0086DA03 E8AC7CB9FF call 004056B4 0086DA08 8B45D8 mov eax, [ebp-$28] 0086DA0B 50 push eax 0086DA0C 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; | 0086DA0E E89905C7FF call 004DDFAC 0086DA13 5A pop edx 0086DA14 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 0086DA16 FF5138 call dword ptr [ecx+$38] 0086DA19 EB2B jmp 0086DA46 0086DA1B 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; | 0086DA1D E88A05C7FF call 004DDFAC 0086DA22 50 push eax * Possible String Reference to: ' Set ' | 0086DA23 6848DB8600 push $0086DB48 0086DA28 FF75F8 push dword ptr [ebp-$08] * Possible String Reference to: '=NULL' | 0086DA2B 6870DB8600 push $0086DB70 0086DA30 8D45D0 lea eax, [ebp-$30] 0086DA33 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 0086DA38 E8777CB9FF call 004056B4 0086DA3D 8B55D0 mov edx, [ebp-$30] 0086DA40 58 pop eax 0086DA41 8B08 mov ecx, [eax] 0086DA43 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ',Editer='' | 0086DA46 6880DB8600 push $0086DB80 0086DA4B 8D55C8 lea edx, [ebp-$38] *) end; procedure TfrmYSCR_PBSH._PROC_0086DB2D(Sender : TObject); begin (* 0086DB2D 50 push eax 0086DB2E 6461 popa 0086DB30 7465 jz 0086DB97 0086DB32 205946 and [ecx+$46], bl 0086DB35 5F pop edi 0086DB36 4D dec ebp 0086DB37 6F outsd 0086DB38 6E outsb 0086DB39 65795F jns 0086DB9B 0086DB3C 43 inc ebx 0086DB3D 52 push edx 0086DB3E 2000 and [eax], al 0086DB40 FFFF DB $FF, $FF // 0086DB42 FFFF DB $FF, $FF // 0086DB44 0500000020 add eax, +$20000000 0086DB49 53 push ebx 0086DB4A 657420 jz 0086DB6D 0086DB4D 0000 add [eax], al 0086DB4F 00FF add bh, bh 0086DB51 FFFF DB $FF, $FF // 0086DB53 FF02 inc dword ptr [edx] 0086DB55 0000 add [eax], al 0086DB57 003D270000FF add [$FF000027], bh 0086DB5D FFFF DB $FF, $FF // 0086DB5F FF01 inc dword ptr [ecx] 0086DB61 0000 add [eax], al 0086DB63 0027 add [edi], ah 0086DB65 0000 add [eax], al 0086DB67 00FF add bh, bh 0086DB69 FFFF DB $FF, $FF // 0086DB6B FF050000003D inc dword ptr [$3D000000] 0086DB71 4E dec esi 0086DB72 55 push ebp 0086DB73 4C dec esp 0086DB74 4C dec esp 0086DB75 0000 add [eax], al 0086DB77 00FF add bh, bh 0086DB79 FFFF DB $FF, $FF // 0086DB7B FF09 dec dword ptr [ecx] 0086DB7D 0000 add [eax], al 0086DB7F 002C4564697465 add [$65746964+eax*2], ch 0086DB86 723D jb 0086DBC5 0086DB88 27 daa 0086DB89 0000 add [eax], al 0086DB8B 00FF add bh, bh 0086DB8D FFFF DB $FF, $FF // 0086DB8F FF1400 call dword ptr [eax+eax] 0086DB92 0000 add [eax], al 0086DB94 2C45 sub al, $45 0086DB96 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D 0086DB9F 657464 jz 0086DC06 0086DBA2 61 popa 0086DBA3 7465 jz 0086DC0A 0086DBA5 2829 sub [ecx], ch 0086DBA7 2000 and [eax], al 0086DBA9 0000 add [eax], al 0086DBAB 00FF add bh, bh 0086DBAD FFFF DB $FF, $FF // 0086DBAF FF0D00000020 dec dword ptr [$20000000] 0086DBB5 7768 jnbe 0086DC1F 0086DBB7 657265 jb 0086DC1F 0086DBBA 205946 and [ecx+$46], bl 0086DBBD 49 dec ecx 0086DBBE 643D27000000 cmp eax, $00000027 0086DBC4 FFFF DB $FF, $FF // 0086DBC6 FFFF DB $FF, $FF // 0086DBC8 0400 add al, +$00 0086DBCA 0000 add [eax], al 0086DBCC 59 pop ecx 0086DBCD 46 inc esi 0086DBCE 49 dec ecx 0086DBCF 640000 add fs:[eax], al 0086DBD2 0000 add [eax], al 0086DBD4 55 push ebp 0086DBD5 8BEC mov ebp, esp 0086DBD7 B90C000000 mov ecx, $0000000C 0086DBDC 6A00 push $00 0086DBDE 6A00 push $00 0086DBE0 49 dec ecx 0086DBE1 75F9 jnz 0086DBDC 0086DBE3 51 push ecx 0086DBE4 53 push ebx 0086DBE5 56 push esi 0086DBE6 8BF0 mov esi, eax 0086DBE8 33C0 xor eax, eax 0086DBEA 55 push ebp * Possible String Reference to: '殁l氆^[嬪]' | 0086DBEB 680DDE8600 push $0086DE0D ***** TRY | 0086DBF0 64FF30 push dword ptr fs:[eax] 0086DBF3 648920 mov fs:[eax], esp 0086DBF6 33C0 xor eax, eax 0086DBF8 55 push ebp 0086DBF9 68ABDD8600 push $0086DDAB ***** TRY | 0086DBFE 64FF30 push dword ptr fs:[eax] 0086DC01 648920 mov fs:[eax], esp *) end; procedure TfrmYSCR_PBSH._PROC_0086E2E9(Sender : TObject); begin (* 0086E2E9 50 push eax 0086E2EA 6461 popa 0086E2EC 7465 jz 0086E353 0086E2EE 205946 and [ecx+$46], bl 0086E2F1 5F pop edi 0086E2F2 4D dec ebp 0086E2F3 6F outsd 0086E2F4 6E outsb 0086E2F5 65795F jns 0086E357 0086E2F8 43 inc ebx 0086E2F9 52 push edx 0086E2FA 2000 and [eax], al 0086E2FC FFFF DB $FF, $FF // 0086E2FE FFFF DB $FF, $FF // 0086E300 0D00000020 or eax, $20000000 0086E305 53 push ebx 0086E306 657420 jz 0086E329 0086E309 59 pop ecx 0086E30A 46 inc esi 0086E30B 43 inc ebx 0086E30C 6F outsd 0086E30D 64653D27000000 cmp eax, $00000027 0086E314 FFFF DB $FF, $FF // 0086E316 FFFF DB $FF, $FF // 0086E318 0100 add [eax], eax 0086E31A 0000 add [eax], al 0086E31C 27 daa 0086E31D 0000 add [eax], al 0086E31F 00FF add bh, bh 0086E321 FFFF DB $FF, $FF // 0086E323 FF0A dec dword ptr [edx] 0086E325 0000 add [eax], al 0086E327 0020 add [eax], ah 0086E329 2C59 sub al, $59 0086E32B 46 inc esi 0086E32C 4E dec esi 0086E32D 61 popa 0086E32E 6D insd 0086E32F 653D270000FF cmp eax, $FF000027 0086E335 FFFF DB $FF, $FF // 0086E337 FF09 dec dword ptr [ecx] 0086E339 0000 add [eax], al 0086E33B 002C4564697465 add [$65746964+eax*2], ch 0086E342 723D jb 0086E381 0086E344 27 daa 0086E345 0000 add [eax], al 0086E347 00FF add bh, bh 0086E349 FFFF DB $FF, $FF // 0086E34B FF1400 call dword ptr [eax+eax] 0086E34E 0000 add [eax], al 0086E350 2C45 sub al, $45 0086E352 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D 0086E35B 657464 jz 0086E3C2 0086E35E 61 popa 0086E35F 7465 jz 0086E3C6 0086E361 2829 sub [ecx], ch 0086E363 2000 and [eax], al 0086E365 0000 add [eax], al 0086E367 00FF add bh, bh 0086E369 FFFF DB $FF, $FF // 0086E36B FF0D00000020 dec dword ptr [$20000000] 0086E371 7768 jnbe 0086E3DB 0086E373 657265 jb 0086E3DB 0086E376 205946 and [ecx+$46], bl 0086E379 49 dec ecx 0086E37A 643D27000000 cmp eax, $00000027 0086E380 FFFF DB $FF, $FF // 0086E382 FFFF DB $FF, $FF // 0086E384 0400 add al, +$00 0086E386 0000 add [eax], al 0086E388 59 pop ecx 0086E389 46 inc esi 0086E38A 49 dec ecx 0086E38B 640000 add fs:[eax], al 0086E38E 0000 add [eax], al 0086E390 55 push ebp 0086E391 8BEC mov ebp, esp 0086E393 51 push ecx 0086E394 B907000000 mov ecx, $00000007 0086E399 6A00 push $00 0086E39B 6A00 push $00 0086E39D 49 dec ecx 0086E39E 75F9 jnz 0086E399 0086E3A0 51 push ecx 0086E3A1 874DFC xchg [ebp-$04], ecx 0086E3A4 53 push ebx 0086E3A5 56 push esi 0086E3A6 8BF0 mov esi, eax 0086E3A8 33C0 xor eax, eax 0086E3AA 55 push ebp * Possible String Reference to: '槌d胫^[嬪]' | 0086E3AB 683CE68600 push $0086E63C ***** TRY | 0086E3B0 64FF30 push dword ptr fs:[eax] 0086E3B3 648920 mov fs:[eax], esp * Reference to control ADOQuery1 : N.A. | 0086E3B6 8B864C030000 mov eax, [esi+$034C] * Possible String Reference to: 'YFType' | 0086E3BC BA54E68600 mov edx, $0086E654 * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0086E3C1 E8EE87C5FF call 004C6BB4 0086E3C6 8D55F8 lea edx, [ebp-$08] 0086E3C9 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_60 | 0086E3CB FF5160 call dword ptr [ecx+$60] 0086E3CE 8B45F8 mov eax, [ebp-$08] 0086E3D1 8D55FC lea edx, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086E3D4 E813C5B9FF call 0040A8EC 0086E3D9 837DFC00 cmp dword ptr [ebp-$04], +$00 0086E3DD 741D jz 0086E3FC 0086E3DF 6A00 push $00 * Possible String Reference to: '提示' | 0086E3E1 B95CE68600 mov ecx, $0086E65C * Possible String Reference to: '自动生成数据不能更改!' | 0086E3E6 BA64E68600 mov edx, $0086E664 *) end; procedure TfrmYSCR_PBSH._PROC_0086E68A(Sender : TObject); begin (* 0086E68A 6E outsb 0086E68B 6974000000FFFFFF imul esi, [eax+eax+$00], $FFFFFF00 0086E693 FF08 dec dword ptr [eax] 0086E695 0000 add [eax], al *) end; procedure TfrmYSCR_PBSH._PROC_0086E6C0(Sender : TObject); begin (* 0086E6C0 6E outsb 0086E6C1 697400FFFFFFFF13 imul esi, [eax+eax-$01], $13FFFFFF 0086E6C9 0000 add [eax], al *) end; procedure TfrmYSCR_PBSH._PROC_0086E6CD(Sender : TObject); begin (* 0086E6CD 50 push eax 0086E6CE 6461 popa 0086E6D0 7465 jz 0086E737 0086E6D2 205946 and [ecx+$46], bl 0086E6D5 5F pop edi 0086E6D6 4D dec ebp 0086E6D7 6F outsd 0086E6D8 6E outsb 0086E6D9 65795F jns 0086E73B 0086E6DC 43 inc ebx 0086E6DD 52 push edx 0086E6DE 2000 and [eax], al 0086E6E0 FFFF DB $FF, $FF // 0086E6E2 FFFF DB $FF, $FF // 0086E6E4 0E push cs 0086E6E5 0000 add [eax], al 0086E6E7 0020 add [eax], ah 0086E6E9 53 push ebx 0086E6EA 657420 jz 0086E70D 0086E6ED 51 push ecx 0086E6EE 7479 jz 0086E769 0086E6F0 55 push ebp 0086E6F1 6E outsb 0086E6F2 69743D270000FFFF imul esi, [ebp+edi+$27], $FFFF0000 0086E6FA FFFF DB $FF, $FF // 0086E6FC 07 pop es 0086E6FD 0000 add [eax], al 0086E6FF 005A64 add [edx+$64], bl 0086E702 794E jns 0086E752 0086E704 61 popa 0086E705 6D insd 0086E706 6500FF add bh, bh 0086E709 FFFF DB $FF, $FF // 0086E70B FF01 inc dword ptr [ecx] 0086E70D 0000 add [eax], al 0086E70F 0027 add [edi], ah 0086E711 0000 add [eax], al 0086E713 00FF add bh, bh 0086E715 FFFF DB $FF, $FF // 0086E717 FF09 dec dword ptr [ecx] 0086E719 0000 add [eax], al 0086E71B 002C4564697465 add [$65746964+eax*2], ch 0086E722 723D jb 0086E761 0086E724 27 daa 0086E725 0000 add [eax], al 0086E727 00FF add bh, bh 0086E729 FFFF DB $FF, $FF // 0086E72B FF1400 call dword ptr [eax+eax] 0086E72E 0000 add [eax], al 0086E730 2C45 sub al, $45 0086E732 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D 0086E73B 657464 jz 0086E7A2 0086E73E 61 popa 0086E73F 7465 jz 0086E7A6 0086E741 2829 sub [ecx], ch 0086E743 2000 and [eax], al 0086E745 0000 add [eax], al 0086E747 00FF add bh, bh 0086E749 FFFF DB $FF, $FF // 0086E74B FF0D00000020 dec dword ptr [$20000000] 0086E751 7768 jnbe 0086E7BB 0086E753 657265 jb 0086E7BB 0086E756 205946 and [ecx+$46], bl 0086E759 49 dec ecx 0086E75A 643D27000000 cmp eax, $00000027 0086E760 FFFF DB $FF, $FF // 0086E762 FFFF DB $FF, $FF // 0086E764 0400 add al, +$00 0086E766 0000 add [eax], al 0086E768 59 pop ecx 0086E769 46 inc esi 0086E76A 49 dec ecx 0086E76B 640000 add fs:[eax], al 0086E76E 0000 add [eax], al 0086E770 55 push ebp 0086E771 8BEC mov ebp, esp 0086E773 51 push ecx 0086E774 B907000000 mov ecx, $00000007 0086E779 6A00 push $00 0086E77B 6A00 push $00 0086E77D 49 dec ecx 0086E77E 75F9 jnz 0086E779 0086E780 51 push ecx 0086E781 874DFC xchg [ebp-$04], ecx 0086E784 53 push ebx 0086E785 56 push esi 0086E786 8BF0 mov esi, eax 0086E788 33C0 xor eax, eax 0086E78A 55 push ebp * Possible String Reference to: '橛`胫^[嬪]' | 0086E78B 681CEA8600 push $0086EA1C ***** TRY | 0086E790 64FF30 push dword ptr fs:[eax] 0086E793 648920 mov fs:[eax], esp * Reference to control ADOQuery1 : N.A. | 0086E796 8B864C030000 mov eax, [esi+$034C] * Possible String Reference to: 'YFType' | 0086E79C BA34EA8600 mov edx, $0086EA34 * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0086E7A1 E80E84C5FF call 004C6BB4 0086E7A6 8D55F8 lea edx, [ebp-$08] 0086E7A9 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_60 | 0086E7AB FF5160 call dword ptr [ecx+$60] 0086E7AE 8B45F8 mov eax, [ebp-$08] 0086E7B1 8D55FC lea edx, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086E7B4 E833C1B9FF call 0040A8EC 0086E7B9 837DFC00 cmp dword ptr [ebp-$04], +$00 0086E7BD 741D jz 0086E7DC 0086E7BF 6A00 push $00 * Possible String Reference to: '提示' | 0086E7C1 B93CEA8600 mov ecx, $0086EA3C * Possible String Reference to: '自动生成数据不能更改!' | 0086E7C6 BA44EA8600 mov edx, $0086EA44 *) end; procedure TfrmYSCR_PBSH._PROC_0086EA95(Sender : TObject); begin (* 0086EA95 50 push eax 0086EA96 6461 popa 0086EA98 7465 jz 0086EAFF 0086EA9A 205946 and [ecx+$46], bl 0086EA9D 5F pop edi 0086EA9E 4D dec ebp 0086EA9F 6F outsd 0086EAA0 6E outsb 0086EAA1 65795F jns 0086EB03 0086EAA4 43 inc ebx 0086EAA5 52 push edx 0086EAA6 2000 and [eax], al 0086EAA8 FFFF DB $FF, $FF // 0086EAAA FFFF DB $FF, $FF // 0086EAAC 0D00000020 or eax, $20000000 0086EAB1 53 push ebx 0086EAB2 657420 jz 0086EAD5 0086EAB5 42 inc edx 0086EAB6 5A pop edx 0086EAB7 54 push esp 0086EAB8 7970 jns 0086EB2A 0086EABA 653D27000000 cmp eax, $00000027 0086EAC0 FFFF DB $FF, $FF // 0086EAC2 FFFF DB $FF, $FF // 0086EAC4 07 pop es 0086EAC5 0000 add [eax], al 0086EAC7 005A64 add [edx+$64], bl 0086EACA 794E jns 0086EB1A 0086EACC 61 popa 0086EACD 6D insd 0086EACE 6500FF add bh, bh 0086EAD1 FFFF DB $FF, $FF // 0086EAD3 FF01 inc dword ptr [ecx] 0086EAD5 0000 add [eax], al 0086EAD7 0027 add [edi], ah 0086EAD9 0000 add [eax], al 0086EADB 00FF add bh, bh 0086EADD FFFF DB $FF, $FF // 0086EADF FF09 dec dword ptr [ecx] 0086EAE1 0000 add [eax], al 0086EAE3 002C4564697465 add [$65746964+eax*2], ch 0086EAEA 723D jb 0086EB29 0086EAEC 27 daa 0086EAED 0000 add [eax], al 0086EAEF 00FF add bh, bh 0086EAF1 FFFF DB $FF, $FF // 0086EAF3 FF1400 call dword ptr [eax+eax] 0086EAF6 0000 add [eax], al 0086EAF8 2C45 sub al, $45 0086EAFA 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D 0086EB03 657464 jz 0086EB6A 0086EB06 61 popa 0086EB07 7465 jz 0086EB6E 0086EB09 2829 sub [ecx], ch 0086EB0B 2000 and [eax], al 0086EB0D 0000 add [eax], al 0086EB0F 00FF add bh, bh 0086EB11 FFFF DB $FF, $FF // 0086EB13 FF0D00000020 dec dword ptr [$20000000] 0086EB19 7768 jnbe 0086EB83 0086EB1B 657265 jb 0086EB83 0086EB1E 205946 and [ecx+$46], bl 0086EB21 49 dec ecx 0086EB22 643D27000000 cmp eax, $00000027 0086EB28 FFFF DB $FF, $FF // 0086EB2A FFFF DB $FF, $FF // 0086EB2C 0400 add al, +$00 0086EB2E 0000 add [eax], al 0086EB30 59 pop ecx 0086EB31 46 inc esi 0086EB32 49 dec ecx 0086EB33 640000 add fs:[eax], al 0086EB36 0000 add [eax], al 0086EB38 53 push ebx 0086EB39 8BD8 mov ebx, eax * Reference to control ToolBar2 : N.A. | 0086EB3B 8B831C030000 mov eax, [ebx+$031C] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 0086EB41 E87A93C5FF call 004C7EC0 0086EB46 84C0 test al, al 0086EB48 7516 jnz 0086EB60 * Possible String Reference to: '应收款列表' | 0086EB4A B96CEB8600 mov ecx, $0086EB6C * Reference to control ToolBar2 : N.A. | 0086EB4F 8B931C030000 mov edx, [ebx+$031C] * Reference to control Label5 : TLabel | 0086EB55 8B8388030000 mov eax, [ebx+$0388] | 0086EB5B E8D096F4FF call 007B8230 0086EB60 5B pop ebx 0086EB61 C3 ret 0086EB62 0000 add [eax], al 0086EB64 FFFF DB $FF, $FF // 0086EB66 FFFF DB $FF, $FF // 0086EB68 0A00 or al, byte ptr [eax] 0086EB6A 0000 add [eax], al 0086EB6C D3A6CAD5BFEE shl dword ptr [esi+$EEBFD5CA], cl 0086EB72 C1D0B1 rcl eax, $B1 0086EB75 ED in eax, dx 0086EB76 0000 add [eax], al 0086EB78 55 push ebp 0086EB79 8BEC mov ebp, esp 0086EB7B 51 push ecx 0086EB7C B912000000 mov ecx, $00000012 0086EB81 6A00 push $00 0086EB83 6A00 push $00 0086EB85 49 dec ecx 0086EB86 75F9 jnz 0086EB81 0086EB88 51 push ecx 0086EB89 874DFC xchg [ebp-$04], ecx 0086EB8C 53 push ebx 0086EB8D 8945FC mov [ebp-$04], eax 0086EB90 33C0 xor eax, eax 0086EB92 55 push ebp * Possible String Reference to: '榫Z氅[嬪]' | 0086EB93 6831F08600 push $0086F031 ***** TRY | 0086EB98 64FF30 push dword ptr fs:[eax] 0086EB9B 648920 mov fs:[eax], esp 0086EB9E 8B45FC mov eax, [ebp-$04] * Reference to control ADOQuery1 : N.A. | 0086EBA1 8B804C030000 mov eax, [eax+$034C] * Possible String Reference to: 'YFType' | 0086EBA7 BA48F08600 mov edx, $0086F048 * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0086EBAC E80380C5FF call 004C6BB4 0086EBB1 8D55F4 lea edx, [ebp-$0C] 0086EBB4 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_60 | 0086EBB6 FF5160 call dword ptr [ecx+$60] 0086EBB9 8B45F4 mov eax, [ebp-$0C] 0086EBBC 8D55F8 lea edx, [ebp-$08] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086EBBF E828BDB9FF call 0040A8EC 0086EBC4 837DF800 cmp dword ptr [ebp-$08], +$00 0086EBC8 741D jz 0086EBE7 0086EBCA 6A00 push $00 * Possible String Reference to: '提示' | 0086EBCC B950F08600 mov ecx, $0086F050 * Possible String Reference to: '自动生成数据不能删除!' | 0086EBD1 BA58F08600 mov edx, $0086F058 *) end; procedure TfrmYSCR_PBSH._PROC_0086F0D5(Sender : TObject); begin (* 0086F0D5 50 push eax 0086F0D6 6461 popa 0086F0D8 7465 jz 0086F13F 0086F0DA 205946 and [ecx+$46], bl 0086F0DD 5F pop edi 0086F0DE 4D dec ebp 0086F0DF 6F outsd 0086F0E0 6E outsb 0086F0E1 65795F jns 0086F143 0086F0E4 43 inc ebx 0086F0E5 52 push edx 0086F0E6 2000 and [eax], al 0086F0E8 FFFF DB $FF, $FF // 0086F0EA FFFF DB $FF, $FF // 0086F0EC 0D00000020 or eax, $20000000 0086F0F1 53 push ebx 0086F0F2 657420 jz 0086F115 0086F0F5 4D dec ebp 0086F0F6 61 popa 0086F0F7 696E49643D2700 imul ebp, [esi+$49], $00273D64 0086F0FE 0000 add [eax], al 0086F100 FFFF DB $FF, $FF // 0086F102 FFFF DB $FF, $FF // 0086F104 06 push es 0086F105 0000 add [eax], al 0086F107 004D61 add [ebp+$61], cl 0086F10A 696E49640000FF imul ebp, [esi+$49], $FF000064 0086F111 FFFF DB $FF, $FF // 0086F113 FF01 inc dword ptr [ecx] 0086F115 0000 add [eax], al 0086F117 0027 add [edi], ah 0086F119 0000 add [eax], al 0086F11B 00FF add bh, bh 0086F11D FFFF DB $FF, $FF // 0086F11F FF09 dec dword ptr [ecx] 0086F121 0000 add [eax], al 0086F123 0020 add [eax], ah 0086F125 2C53 sub al, $53 0086F127 7562 jnz 0086F18B 0086F129 49 dec ecx 0086F12A 643D27000000 cmp eax, $00000027 0086F130 FFFF DB $FF, $FF // 0086F132 FFFF DB $FF, $FF // 0086F134 0500000053 add eax, +$53000000 0086F139 7562 jnz 0086F19D 0086F13B 49 dec ecx 0086F13C 640000 add fs:[eax], al 0086F13F 00FF add bh, bh 0086F141 FFFF DB $FF, $FF // 0086F143 FF0E dec dword ptr [esi] 0086F145 0000 add [eax], al 0086F147 0020 add [eax], ah 0086F149 2C70 sub al, $70 0086F14B 5F pop edi 0086F14C 43 inc ebx 0086F14D 6F outsd 0086F14E 64654E dec esi 0086F151 61 popa 0086F152 6D insd 0086F153 653D270000FF cmp eax, $FF000027 0086F159 FFFF DB $FF, $FF // 0086F15B FF0B dec dword ptr [ebx] 0086F15D 0000 add [eax], al 0086F15F 0020 add [eax], ah 0086F161 2C70 sub al, $70 0086F163 5F pop edi 0086F164 43 inc ebx 0086F165 6F outsd 0086F166 6C insb 0086F167 6F outsd 0086F168 723D jb 0086F1A7 0086F16A 27 daa 0086F16B 00FF add bh, bh 0086F16D FFFF DB $FF, $FF // 0086F16F FF09 dec dword ptr [ecx] 0086F171 0000 add [eax], al 0086F173 002C4564697465 add [$65746964+eax*2], ch 0086F17A 723D jb 0086F1B9 0086F17C 27 daa 0086F17D 0000 add [eax], al 0086F17F 00FF add bh, bh 0086F181 FFFF DB $FF, $FF // 0086F183 FF1400 call dword ptr [eax+eax] 0086F186 0000 add [eax], al 0086F188 2C45 sub al, $45 0086F18A 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D 0086F193 657464 jz 0086F1FA 0086F196 61 popa 0086F197 7465 jz 0086F1FE 0086F199 2829 sub [ecx], ch 0086F19B 2000 and [eax], al 0086F19D 0000 add [eax], al 0086F19F 00FF add bh, bh 0086F1A1 FFFF DB $FF, $FF // 0086F1A3 FF0D00000020 dec dword ptr [$20000000] 0086F1A9 7768 jnbe 0086F213 0086F1AB 657265 jb 0086F213 0086F1AE 205946 and [ecx+$46], bl 0086F1B1 49 dec ecx 0086F1B2 643D27000000 cmp eax, $00000027 0086F1B8 FFFF DB $FF, $FF // 0086F1BA FFFF DB $FF, $FF // 0086F1BC 0400 add al, +$00 0086F1BE 0000 add [eax], al 0086F1C0 59 pop ecx 0086F1C1 46 inc esi 0086F1C2 49 dec ecx 0086F1C3 640000 add fs:[eax], al 0086F1C6 0000 add [eax], al 0086F1C8 55 push ebp 0086F1C9 8BEC mov ebp, esp 0086F1CB B908000000 mov ecx, $00000008 0086F1D0 6A00 push $00 0086F1D2 6A00 push $00 0086F1D4 49 dec ecx 0086F1D5 75F9 jnz 0086F1D0 0086F1D7 53 push ebx 0086F1D8 56 push esi 0086F1D9 8BDA mov ebx, edx 0086F1DB 8BF0 mov esi, eax 0086F1DD 33C0 xor eax, eax 0086F1DF 55 push ebp * Possible String Reference to: '?W胫^[嬪]' | 0086F1E0 68B0F38600 push $0086F3B0 ***** TRY | 0086F1E5 64FF30 push dword ptr fs:[eax] 0086F1E8 648920 mov fs:[eax], esp 0086F1EB 8D55FC lea edx, [ebp-$04] 0086F1EE 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; | 0086F1F0 E8C704D2FF call 0058F6BC 0086F1F5 8D55F4 lea edx, [ebp-$0C] 0086F1F8 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086F1FB E8ECB6B9FF call 0040A8EC 0086F200 837DF400 cmp dword ptr [ebp-$0C], +$00 0086F204 750D jnz 0086F213 0086F206 8D45FC lea eax, [ebp-$04] 0086F209 BAC8F38600 mov edx, $0086F3C8 * Reference to: System.@LStrLAsg(void;void;void;void); | 0086F20E E8A961B9FF call 004053BC * Reference to control Label5 : TLabel | 0086F213 8B8688030000 mov eax, [esi+$0388] * Reference to: Contnrs.TComponentList.First(TComponentList):TComponent; | or: Contnrs.TComponentList.Last(TComponentList):TComponent; | 0086F219 E82ED1DEFF call 0065C34C * Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass; | or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu; | 0086F21E E84129DEFF call 00651B64 * Reference to field TLabel.ControlStyle : TControlStyle | 0086F223 8B4050 mov eax, [eax+$50] 0086F226 8D55F0 lea edx, [ebp-$10] 0086F229 8B08 mov ecx, [eax] * Possible reference to virtual method TControlStyle.OFFS_10 | 0086F22B FF5110 call dword ptr [ecx+$10] 0086F22E 8B45F0 mov eax, [ebp-$10] 0086F231 8D55F8 lea edx, [ebp-$08] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086F234 E8B3B6B9FF call 0040A8EC * Reference to control ADOQuery1 : N.A. | 0086F239 8B9E4C030000 mov ebx, [esi+$034C] 0086F23F 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Edit(TDataSet); | 0086F241 E8FA91C5FF call 004C8440 0086F246 8D55DC lea edx, [ebp-$24] 0086F249 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086F24C E89BB6B9FF call 0040A8EC 0086F251 8B55DC mov edx, [ebp-$24] 0086F254 8D45E0 lea eax, [ebp-$20] * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 0086F257 E86C9BBAFF call 00418DC8 0086F25C 8D45E0 lea eax, [ebp-$20] 0086F25F 50 push eax 0086F260 8B55F8 mov edx, [ebp-$08] 0086F263 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0086F265 E84A79C5FF call 004C6BB4 0086F26A 5A pop edx 0086F26B 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_00B4 | 0086F26D FF91B4000000 call dword ptr [ecx+$00B4] 0086F273 8BC3 mov eax, ebx 0086F275 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_024C | 0086F277 FF924C020000 call dword ptr [edx+$024C] * Reference to control OrdDate : N.A. | 0086F27D 8B9E0C030000 mov ebx, [esi+$030C] 0086F283 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 0086F285 E84A66C5FF call 004C58D4 0086F28A 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; | 0086F28C E81BEDC6FF call 004DDFAC 0086F291 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_44 | 0086F293 FF5244 call dword ptr [edx+$44] 0086F296 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; | 0086F298 E80FEDC6FF call 004DDFAC * Possible String Reference to: 'UPdate YF_Money_CR ' | 0086F29D BAD4F38600 mov edx, $0086F3D4 0086F2A2 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 0086F2A4 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ' Set ' | 0086F2A7 68F0F38600 push $0086F3F0 0086F2AC FF75F8 push dword ptr [ebp-$08] 0086F2AF 6800F48600 push $0086F400 0086F2B4 8D55D4 lea edx, [ebp-$2C] 0086F2B7 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086F2BA E82DB6B9FF call 0040A8EC 0086F2BF FF75D4 push dword ptr [ebp-$2C] 0086F2C2 8D45D8 lea eax, [ebp-$28] 0086F2C5 BA04000000 mov edx, $00000004 * Reference to: System.@LStrCatN; | 0086F2CA E8E563B9FF call 004056B4 0086F2CF 8B45D8 mov eax, [ebp-$28] 0086F2D2 50 push eax 0086F2D3 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; | 0086F2D5 E8D2ECC6FF call 004DDFAC 0086F2DA 5A pop edx 0086F2DB 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 0086F2DD FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ',Editer='' | 0086F2E0 680CF48600 push $0086F40C 0086F2E5 8D55CC lea edx, [ebp-$34] *) end; procedure TfrmYSCR_PBSH._PROC_0086F3D5(Sender : TObject); begin (* 0086F3D5 50 push eax 0086F3D6 6461 popa 0086F3D8 7465 jz 0086F43F 0086F3DA 205946 and [ecx+$46], bl 0086F3DD 5F pop edi 0086F3DE 4D dec ebp 0086F3DF 6F outsd 0086F3E0 6E outsb 0086F3E1 65795F jns 0086F443 0086F3E4 43 inc ebx 0086F3E5 52 push edx 0086F3E6 2000 and [eax], al 0086F3E8 FFFF DB $FF, $FF // 0086F3EA FFFF DB $FF, $FF // 0086F3EC 0500000020 add eax, +$20000000 0086F3F1 53 push ebx 0086F3F2 657420 jz 0086F415 0086F3F5 0000 add [eax], al 0086F3F7 00FF add bh, bh 0086F3F9 FFFF DB $FF, $FF // 0086F3FB FF01 inc dword ptr [ecx] 0086F3FD 0000 add [eax], al 0086F3FF 003D000000FF add [$FF000000], bh 0086F405 FFFF DB $FF, $FF // 0086F407 FF09 dec dword ptr [ecx] 0086F409 0000 add [eax], al 0086F40B 002C4564697465 add [$65746964+eax*2], ch 0086F412 723D jb 0086F451 0086F414 27 daa 0086F415 0000 add [eax], al 0086F417 00FF add bh, bh 0086F419 FFFF DB $FF, $FF // 0086F41B FF01 inc dword ptr [ecx] 0086F41D 0000 add [eax], al 0086F41F 0027 add [edi], ah 0086F421 0000 add [eax], al 0086F423 00FF add bh, bh 0086F425 FFFF DB $FF, $FF // 0086F427 FF1400 call dword ptr [eax+eax] 0086F42A 0000 add [eax], al 0086F42C 2C45 sub al, $45 0086F42E 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D 0086F437 657464 jz 0086F49E 0086F43A 61 popa 0086F43B 7465 jz 0086F4A2 0086F43D 2829 sub [ecx], ch 0086F43F 2000 and [eax], al 0086F441 0000 add [eax], al 0086F443 00FF add bh, bh 0086F445 FFFF DB $FF, $FF // 0086F447 FF0D00000020 dec dword ptr [$20000000] 0086F44D 7768 jnbe 0086F4B7 0086F44F 657265 jb 0086F4B7 0086F452 205946 and [ecx+$46], bl 0086F455 49 dec ecx 0086F456 643D27000000 cmp eax, $00000027 0086F45C FFFF DB $FF, $FF // 0086F45E FFFF DB $FF, $FF // 0086F460 0400 add al, +$00 0086F462 0000 add [eax], al 0086F464 59 pop ecx 0086F465 46 inc esi 0086F466 49 dec ecx 0086F467 640000 add fs:[eax], al 0086F46A 0000 add [eax], al 0086F46C 55 push ebp 0086F46D 8BEC mov ebp, esp 0086F46F B907000000 mov ecx, $00000007 0086F474 6A00 push $00 0086F476 6A00 push $00 0086F478 49 dec ecx 0086F479 75F9 jnz 0086F474 0086F47B 51 push ecx 0086F47C 53 push ebx 0086F47D 56 push esi 0086F47E 8BDA mov ebx, edx 0086F480 8BF0 mov esi, eax 0086F482 33C0 xor eax, eax 0086F484 55 push ebp * Possible String Reference to: '槌T胫^[嬪]' | 0086F485 683CF68600 push $0086F63C ***** TRY | 0086F48A 64FF30 push dword ptr fs:[eax] 0086F48D 648920 mov fs:[eax], esp 0086F490 8D55FC lea edx, [ebp-$04] 0086F493 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; | 0086F495 E82202D2FF call 0058F6BC * Reference to control Label5 : TLabel | 0086F49A 8B8688030000 mov eax, [esi+$0388] * Reference to: Contnrs.TComponentList.First(TComponentList):TComponent; | or: Contnrs.TComponentList.Last(TComponentList):TComponent; | 0086F4A0 E8A7CEDEFF call 0065C34C * Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass; | or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu; | 0086F4A5 E8BA26DEFF call 00651B64 * Reference to field TLabel.ControlStyle : TControlStyle | 0086F4AA 8B4050 mov eax, [eax+$50] 0086F4AD 8D55F4 lea edx, [ebp-$0C] 0086F4B0 8B08 mov ecx, [eax] * Possible reference to virtual method TControlStyle.OFFS_10 | 0086F4B2 FF5110 call dword ptr [ecx+$10] 0086F4B5 8B45F4 mov eax, [ebp-$0C] 0086F4B8 8D55F8 lea edx, [ebp-$08] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086F4BB E82CB4B9FF call 0040A8EC * Reference to control ADOQuery1 : N.A. | 0086F4C0 8B9E4C030000 mov ebx, [esi+$034C] 0086F4C6 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Edit(TDataSet); | 0086F4C8 E8738FC5FF call 004C8440 0086F4CD 8D55E0 lea edx, [ebp-$20] 0086F4D0 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086F4D3 E814B4B9FF call 0040A8EC 0086F4D8 8B55E0 mov edx, [ebp-$20] 0086F4DB 8D45E4 lea eax, [ebp-$1C] * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 0086F4DE E8E598BAFF call 00418DC8 0086F4E3 8D45E4 lea eax, [ebp-$1C] 0086F4E6 50 push eax 0086F4E7 8B55F8 mov edx, [ebp-$08] 0086F4EA 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0086F4EC E8C376C5FF call 004C6BB4 0086F4F1 5A pop edx 0086F4F2 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_00B4 | 0086F4F4 FF91B4000000 call dword ptr [ecx+$00B4] 0086F4FA 8BC3 mov eax, ebx 0086F4FC 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_024C | 0086F4FE FF924C020000 call dword ptr [edx+$024C] * Reference to control OrdDate : N.A. | 0086F504 8B9E0C030000 mov ebx, [esi+$030C] 0086F50A 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 0086F50C E8C363C5FF call 004C58D4 0086F511 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; | 0086F513 E894EAC6FF call 004DDFAC 0086F518 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_44 | 0086F51A FF5244 call dword ptr [edx+$44] 0086F51D 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; | 0086F51F E888EAC6FF call 004DDFAC * Possible String Reference to: 'UPdate YF_Money_CR ' | 0086F524 BA54F68600 mov edx, $0086F654 0086F529 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 0086F52B FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ' Set ' | 0086F52E 6870F68600 push $0086F670 0086F533 FF75F8 push dword ptr [ebp-$08] * Possible String Reference to: '='' | 0086F536 6880F68600 push $0086F680 0086F53B 8D55D8 lea edx, [ebp-$28] 0086F53E 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086F541 E8A6B3B9FF call 0040A8EC 0086F546 FF75D8 push dword ptr [ebp-$28] 0086F549 688CF68600 push $0086F68C 0086F54E 8D45DC lea eax, [ebp-$24] 0086F551 BA05000000 mov edx, $00000005 * Reference to: System.@LStrCatN; | 0086F556 E85961B9FF call 004056B4 0086F55B 8B45DC mov eax, [ebp-$24] 0086F55E 50 push eax 0086F55F 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; | 0086F561 E846EAC6FF call 004DDFAC 0086F566 5A pop edx 0086F567 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 0086F569 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ',Editer='' | 0086F56C 6898F68600 push $0086F698 0086F571 8D55D0 lea edx, [ebp-$30] *) end; procedure TfrmYSCR_PBSH._PROC_0086F655(Sender : TObject); begin (* 0086F655 50 push eax 0086F656 6461 popa 0086F658 7465 jz 0086F6BF 0086F65A 205946 and [ecx+$46], bl 0086F65D 5F pop edi 0086F65E 4D dec ebp 0086F65F 6F outsd 0086F660 6E outsb 0086F661 65795F jns 0086F6C3 0086F664 43 inc ebx 0086F665 52 push edx 0086F666 2000 and [eax], al 0086F668 FFFF DB $FF, $FF // 0086F66A FFFF DB $FF, $FF // 0086F66C 0500000020 add eax, +$20000000 0086F671 53 push ebx 0086F672 657420 jz 0086F695 0086F675 0000 add [eax], al 0086F677 00FF add bh, bh 0086F679 FFFF DB $FF, $FF // 0086F67B FF02 inc dword ptr [edx] 0086F67D 0000 add [eax], al 0086F67F 003D270000FF add [$FF000027], bh 0086F685 FFFF DB $FF, $FF // 0086F687 FF01 inc dword ptr [ecx] 0086F689 0000 add [eax], al 0086F68B 0027 add [edi], ah 0086F68D 0000 add [eax], al 0086F68F 00FF add bh, bh 0086F691 FFFF DB $FF, $FF // 0086F693 FF09 dec dword ptr [ecx] 0086F695 0000 add [eax], al 0086F697 002C4564697465 add [$65746964+eax*2], ch 0086F69E 723D jb 0086F6DD 0086F6A0 27 daa 0086F6A1 0000 add [eax], al 0086F6A3 00FF add bh, bh 0086F6A5 FFFF DB $FF, $FF // 0086F6A7 FF1400 call dword ptr [eax+eax] 0086F6AA 0000 add [eax], al 0086F6AC 2C45 sub al, $45 0086F6AE 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D 0086F6B7 657464 jz 0086F71E 0086F6BA 61 popa 0086F6BB 7465 jz 0086F722 0086F6BD 2829 sub [ecx], ch 0086F6BF 2000 and [eax], al 0086F6C1 0000 add [eax], al 0086F6C3 00FF add bh, bh 0086F6C5 FFFF DB $FF, $FF // 0086F6C7 FF0D00000020 dec dword ptr [$20000000] 0086F6CD 7768 jnbe 0086F737 0086F6CF 657265 jb 0086F737 0086F6D2 205946 and [ecx+$46], bl 0086F6D5 49 dec ecx 0086F6D6 643D27000000 cmp eax, $00000027 0086F6DC FFFF DB $FF, $FF // 0086F6DE FFFF DB $FF, $FF // 0086F6E0 0400 add al, +$00 0086F6E2 0000 add [eax], al 0086F6E4 59 pop ecx 0086F6E5 46 inc esi 0086F6E6 49 dec ecx 0086F6E7 640000 add fs:[eax], al 0086F6EA 0000 add [eax], al 0086F6EC 55 push ebp 0086F6ED 8BEC mov ebp, esp 0086F6EF B90C000000 mov ecx, $0000000C 0086F6F4 6A00 push $00 0086F6F6 6A00 push $00 0086F6F8 49 dec ecx 0086F6F9 75F9 jnz 0086F6F4 0086F6FB 53 push ebx 0086F6FC 56 push esi 0086F6FD 8BDA mov ebx, edx 0086F6FF 8BF0 mov esi, eax 0086F701 33C0 xor eax, eax 0086F703 55 push ebp 0086F704 68E3F98600 push $0086F9E3 ***** TRY | 0086F709 64FF30 push dword ptr fs:[eax] 0086F70C 648920 mov fs:[eax], esp 0086F70F 8D55FC lea edx, [ebp-$04] 0086F712 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; | 0086F714 E8A3FFD1FF call 0058F6BC 0086F719 8D55EC lea edx, [ebp-$14] 0086F71C 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086F71F E8C8B1B9FF call 0040A8EC 0086F724 837DEC00 cmp dword ptr [ebp-$14], +$00 0086F728 750D jnz 0086F737 0086F72A 8D45FC lea eax, [ebp-$04] 0086F72D BAF8F98600 mov edx, $0086F9F8 * Reference to: System.@LStrLAsg(void;void;void;void); | 0086F732 E8855CB9FF call 004053BC * Reference to control Label5 : TLabel | 0086F737 8B8688030000 mov eax, [esi+$0388] * Reference to: Contnrs.TComponentList.First(TComponentList):TComponent; | or: Contnrs.TComponentList.Last(TComponentList):TComponent; | 0086F73D E80ACCDEFF call 0065C34C * Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass; | or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu; | 0086F742 E81D24DEFF call 00651B64 * Reference to field TLabel.ControlStyle : TControlStyle | 0086F747 8B4050 mov eax, [eax+$50] 0086F74A 8D55E8 lea edx, [ebp-$18] 0086F74D 8B08 mov ecx, [eax] * Possible reference to virtual method TControlStyle.OFFS_10 | 0086F74F FF5110 call dword ptr [ecx+$10] 0086F752 8B45E8 mov eax, [ebp-$18] 0086F755 8D55F0 lea edx, [ebp-$10] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086F758 E88FB1B9FF call 0040A8EC * Reference to control ADOQuery1 : N.A. | 0086F75D 8B9E4C030000 mov ebx, [esi+$034C] 0086F763 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Edit(TDataSet); | 0086F765 E8D68CC5FF call 004C8440 0086F76A 8D55D4 lea edx, [ebp-$2C] 0086F76D 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086F770 E877B1B9FF call 0040A8EC 0086F775 8B55D4 mov edx, [ebp-$2C] 0086F778 8D45D8 lea eax, [ebp-$28] * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 0086F77B E84896BAFF call 00418DC8 0086F780 8D45D8 lea eax, [ebp-$28] 0086F783 50 push eax 0086F784 8B55F0 mov edx, [ebp-$10] 0086F787 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0086F789 E82674C5FF call 004C6BB4 0086F78E 5A pop edx 0086F78F 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_00B4 | 0086F791 FF91B4000000 call dword ptr [ecx+$00B4] 0086F797 8BC3 mov eax, ebx 0086F799 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_024C | 0086F79B FF924C020000 call dword ptr [edx+$024C] * Reference to control Label3 : TLabel | 0086F7A1 8B9E08030000 mov ebx, [esi+$0308] 0086F7A7 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 0086F7A9 E82661C5FF call 004C58D4 0086F7AE 8BC3 mov eax, ebx * Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass; | or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu; | 0086F7B0 E8F7E7C6FF call 004DDFAC 0086F7B5 8B10 mov edx, [eax] * Reference to method TLabel.GetClientRect() | 0086F7B7 FF5244 call dword ptr [edx+$44] * Possible String Reference to: 'select isnull(KPMoney,0) KPMoney fr | om YF_Money_CR where YFID='' | 0086F7BA 6804FA8600 push $0086FA04 * Possible String Reference to: 'YFID' | 0086F7BF BA4CFA8600 mov edx, $0086FA4C * Reference to control ADOQuery1 : N.A. | 0086F7C4 8B864C030000 mov eax, [esi+$034C] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0086F7CA E8E573C5FF call 004C6BB4 0086F7CF 8D55CC lea edx, [ebp-$34] 0086F7D2 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_60 | 0086F7D4 FF5160 call dword ptr [ecx+$60] 0086F7D7 FF75CC push dword ptr [ebp-$34] 0086F7DA 685CFA8600 push $0086FA5C 0086F7DF 8D45D0 lea eax, [ebp-$30] 0086F7E2 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 0086F7E7 E8C85EB9FF call 004056B4 0086F7EC 8B45D0 mov eax, [ebp-$30] 0086F7EF 50 push eax 0086F7F0 8BC3 mov eax, ebx * Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass; | or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu; | 0086F7F2 E8B5E7C6FF call 004DDFAC 0086F7F7 5A pop edx 0086F7F8 8B08 mov ecx, [eax] * Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer) | 0086F7FA FF5138 call dword ptr [ecx+$38] 0086F7FD 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Open(TDataSet); | 0086F7FF E8C460C5FF call 004C58C8 * Possible String Reference to: 'KPMoney' | 0086F804 BA68FA8600 mov edx, $0086FA68 * Reference to control Label3 : TLabel | 0086F809 8B8608030000 mov eax, [esi+$0308] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0086F80F E8A073C5FF call 004C6BB4 0086F814 8D55F4 lea edx, [ebp-$0C] 0086F817 8B08 mov ecx, [eax] * Reference to method TLabel.SetDragMode(TDragMode) | 0086F819 FF5160 call dword ptr [ecx+$60] * Possible String Reference to: 'KPMoney' | 0086F81C BA68FA8600 mov edx, $0086FA68 * Reference to control ADOQuery1 : N.A. | 0086F821 8B864C030000 mov eax, [esi+$034C] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 0086F827 E88873C5FF call 004C6BB4 0086F82C 8D55F8 lea edx, [ebp-$08] 0086F82F 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_60 | 0086F831 FF5160 call dword ptr [ecx+$60] * Reference to control OrdDate : N.A. | 0086F834 8B9E0C030000 mov ebx, [esi+$030C] 0086F83A 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 0086F83C E89360C5FF call 004C58D4 0086F841 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; | 0086F843 E864E7C6FF call 004DDFAC 0086F848 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_44 | 0086F84A FF5244 call dword ptr [edx+$44] 0086F84D 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; | 0086F84F E858E7C6FF call 004DDFAC * Possible String Reference to: 'UPdate YF_Money_CR ' | 0086F854 BA78FA8600 mov edx, $0086FA78 0086F859 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 0086F85B FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ' Set ' | 0086F85E 6894FA8600 push $0086FA94 0086F863 FF75F0 push dword ptr [ebp-$10] 0086F866 68A4FA8600 push $0086FAA4 0086F86B 8D55C4 lea edx, [ebp-$3C] 0086F86E 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 0086F871 E876B0B9FF call 0040A8EC 0086F876 FF75C4 push dword ptr [ebp-$3C] 0086F879 8D45C8 lea eax, [ebp-$38] 0086F87C BA04000000 mov edx, $00000004 * Reference to: System.@LStrCatN; | 0086F881 E82E5EB9FF call 004056B4 0086F886 8B45C8 mov eax, [ebp-$38] 0086F889 50 push eax 0086F88A 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; | 0086F88C E81BE7C6FF call 004DDFAC 0086F891 5A pop edx 0086F892 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 0086F894 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ',Editer='' | 0086F897 68B0FA8600 push $0086FAB0 0086F89C 8D55BC lea edx, [ebp-$44] *) end; procedure TfrmYSCR_PBSH._PROC_0086FA79(Sender : TObject); begin (* 0086FA79 50 push eax 0086FA7A 6461 popa 0086FA7C 7465 jz 0086FAE3 0086FA7E 205946 and [ecx+$46], bl 0086FA81 5F pop edi 0086FA82 4D dec ebp 0086FA83 6F outsd 0086FA84 6E outsb 0086FA85 65795F jns 0086FAE7 0086FA88 43 inc ebx 0086FA89 52 push edx 0086FA8A 2000 and [eax], al 0086FA8C FFFF DB $FF, $FF // 0086FA8E FFFF DB $FF, $FF // 0086FA90 0500000020 add eax, +$20000000 0086FA95 53 push ebx 0086FA96 657420 jz 0086FAB9 0086FA99 0000 add [eax], al 0086FA9B 00FF add bh, bh 0086FA9D FFFF DB $FF, $FF // 0086FA9F FF01 inc dword ptr [ecx] 0086FAA1 0000 add [eax], al 0086FAA3 003D000000FF add [$FF000000], bh 0086FAA9 FFFF DB $FF, $FF // 0086FAAB FF09 dec dword ptr [ecx] 0086FAAD 0000 add [eax], al 0086FAAF 002C4564697465 add [$65746964+eax*2], ch 0086FAB6 723D jb 0086FAF5 0086FAB8 27 daa 0086FAB9 0000 add [eax], al 0086FABB 00FF add bh, bh 0086FABD FFFF DB $FF, $FF // 0086FABF FF1400 call dword ptr [eax+eax] 0086FAC2 0000 add [eax], al 0086FAC4 2C45 sub al, $45 0086FAC6 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D 0086FACF 657464 jz 0086FB36 0086FAD2 61 popa 0086FAD3 7465 jz 0086FB3A 0086FAD5 2829 sub [ecx], ch 0086FAD7 2000 and [eax], al 0086FAD9 0000 add [eax], al 0086FADB 00FF add bh, bh 0086FADD FFFF DB $FF, $FF // 0086FADF FF0D00000020 dec dword ptr [$20000000] 0086FAE5 7768 jnbe 0086FB4F 0086FAE7 657265 jb 0086FB4F 0086FAEA 205946 and [ecx+$46], bl 0086FAED 49 dec ecx 0086FAEE 643D27000000 cmp eax, $00000027 0086FAF4 FFFF DB $FF, $FF // 0086FAF6 FFFF DB $FF, $FF // 0086FAF8 0400 add al, +$00 0086FAFA 0000 add [eax], al 0086FAFC 59 pop ecx 0086FAFD 46 inc esi 0086FAFE 49 dec ecx 0086FAFF 640000 add fs:[eax], al 0086FB02 0000 add [eax], al 0086FB04 FFFF DB $FF, $FF // 0086FB06 FFFF DB $FF, $FF // 0086FB08 2B00 sub eax, dword ptr [eax] 0086FB0A 0000 add [eax], al 0086FB0C 55 push ebp 0086FB0D 7064 jo 0086FB73 0086FB0F 61 popa 0086FB10 7465 jz 0086FB77 0086FB12 205946 and [ecx+$46], bl 0086FB15 5F pop edi 0086FB16 4D dec ebp 0086FB17 6F outsd 0086FB18 6E outsb 0086FB19 65795F jns 0086FB7B 0086FB1C 4B dec ebx 0086FB1D 43 inc ebx 0086FB1E 205365 and [ebx+$65], dl 0086FB21 7420 jz 0086FB43 0086FB23 4B dec ebx 0086FB24 43 inc ebx 0086FB25 4B dec ebx 0086FB26 50 push eax 0086FB27 4D dec ebp 0086FB28 6F outsd 0086FB29 6E outsb 0086FB2A 65793D jns 0086FB6A 0086FB2D 4B dec ebx 0086FB2E 43 inc ebx 0086FB2F 4B dec ebx 0086FB30 50 push eax 0086FB31 4D dec ebp 0086FB32 6F outsd 0086FB33 6E outsb 0086FB34 65792D jns 0086FB64 0086FB37 00FF add bh, bh 0086FB39 FFFF DB $FF, $FF // 0086FB3B FF01 inc dword ptr [ecx] 0086FB3D 0000 add [eax], al 0086FB3F 002B add [ebx], ch 0086FB41 0000 add [eax], al 0086FB43 00FF add bh, bh 0086FB45 FFFF DB $FF, $FF // 0086FB47 FF0D00000020 dec dword ptr [$20000000] 0086FB4D 7768 jnbe 0086FBB7 0086FB4F 657265 jb 0086FBB7 0086FB52 204352 and [ebx+$52], al 0086FB55 49 dec ecx 0086FB56 44 inc esp 0086FB57 3D27000000 cmp eax, $00000027 0086FB5C FFFF DB $FF, $FF // 0086FB5E FFFF DB $FF, $FF // 0086FB60 0400 add al, +$00 0086FB62 0000 add [eax], al 0086FB64 43 inc ebx 0086FB65 52 push edx 0086FB66 49 dec ecx 0086FB67 44 inc esp 0086FB68 0000 add [eax], al 0086FB6A 0000 add [eax], al 0086FB6C 55 push ebp 0086FB6D 8BEC mov ebp, esp 0086FB6F B910000000 mov ecx, $00000010 0086FB74 6A00 push $00 0086FB76 6A00 push $00 0086FB78 49 dec ecx 0086FB79 75F9 jnz 0086FB74 0086FB7B 51 push ecx 0086FB7C 53 push ebx 0086FB7D 56 push esi 0086FB7E 57 push edi 0086FB7F 8945FC mov [ebp-$04], eax 0086FB82 33C0 xor eax, eax 0086FB84 55 push ebp * Possible String Reference to: '轵K霠_^[嬪]' | 0086FB85 68FDFE8600 push $0086FEFD ***** TRY | 0086FB8A 64FF30 push dword ptr fs:[eax] 0086FB8D 648920 mov fs:[eax], esp 0086FB90 8B45FC mov eax, [ebp-$04] * Reference to control ADOQuery1 : N.A. | 0086FB93 8B804C030000 mov eax, [eax+$034C] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 0086FB99 E82283C5FF call 004C7EC0 0086FB9E 84C0 test al, al 0086FBA0 0F85F1020000 jnz 0086FE97 0086FBA6 A00CFF8600 mov al, byte ptr [$0086FF0C] 0086FBAB 50 push eax 0086FBAC 8D45EC lea eax, [ebp-$14] 0086FBAF B201 mov dl, $01 * Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean); | 0086FBB1 E8AE91BAFF call 00418D64 0086FBB6 8D4DEC lea ecx, [ebp-$14] 0086FBB9 8B45FC mov eax, [ebp-$04] * Reference to control ADOQuery1 : N.A. | 0086FBBC 8B804C030000 mov eax, [eax+$034C] * Possible String Reference to: 'ssel' | 0086FBC2 BA18FF8600 mov edx, $0086FF18 0086FBC7 8B18 mov ebx, [eax] * Possible reference to virtual method TN.A..OFFS_0244 | 0086FBC9 FF9344020000 call dword ptr [ebx+$0244] 0086FBCF 84C0 test al, al 0086FBD1 751D jnz 0086FBF0 0086FBD3 6A00 push $00 * Possible String Reference to: '提示' | 0086FBD5 B920FF8600 mov ecx, $0086FF20 * Possible String Reference to: '没有选择数据!' | 0086FBDA BA28FF8600 mov edx, $0086FF28 *) end; procedure TfrmYSCR_PBSH._PROC_00871275(Sender : TObject); begin (* 00871275 8BEC mov ebp, esp 00871277 33C0 xor eax, eax 00871279 55 push ebp * Possible String Reference to: '閂8滕]脣纼-癦' | 0087127A 6899128700 push $00871299 ***** TRY | 0087127F 64FF30 push dword ptr fs:[eax] 00871282 648920 mov fs:[eax], esp 00871285 FF05B05A8900 inc dword ptr [$00895AB0] 0087128B 33C0 xor eax, eax 0087128D 5A pop edx 0087128E 59 pop ecx 0087128F 59 pop ecx 00871290 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: ']脣纼-癦' | 00871293 68A0128700 push $008712A0 00871298 C3 ret * Reference to: System.@HandleFinally; | 00871299 E95638B9FF jmp 00404AF4 0087129E EBF8 jmp 00871298 ****** END | 008712A0 5D pop ebp 008712A1 C3 ret *) end; procedure TfrmYSCR_PBSH._PROC_008712A4(Sender : TObject); begin (* 008712A4 832DB05A890001 sub dword ptr [$00895AB0], +$01 008712AB C3 ret *) end; procedure TfrmYSCR_PBSH._PROC_008712AC(Sender : TObject); begin (* 008712AC 55 push ebp 008712AD 8BEC mov ebp, esp 008712AF 33C0 xor eax, eax 008712B1 55 push ebp 008712B2 68D1128700 push $008712D1 ***** TRY | 008712B7 64FF30 push dword ptr fs:[eax] 008712BA 648920 mov fs:[eax], esp 008712BD FF05B45A8900 inc dword ptr [$00895AB4] 008712C3 33C0 xor eax, eax 008712C5 5A pop edx 008712C6 59 pop ecx 008712C7 59 pop ecx 008712C8 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: ']脣纼-碯' | 008712CB 68D8128700 push $008712D8 008712D0 C3 ret * Reference to: System.@HandleFinally; | 008712D1 E91E38B9FF jmp 00404AF4 008712D6 EBF8 jmp 008712D0 ****** END | 008712D8 5D pop ebp 008712D9 C3 ret *) end; procedure TfrmYSCR_PBSH._PROC_008712DC(Sender : TObject); begin (* 008712DC 832DB45A890001 sub dword ptr [$00895AB4], +$01 008712E3 C3 ret *) end; procedure TfrmYSCR_PBSH._PROC_008712E4(Sender : TObject); begin (* 008712E4 3013 xor [ebx], dl 008712E6 8700 xchg [eax], eax 008712E8 0000 add [eax], al *) end; procedure TfrmYSCR_PBSH._PROC_0087134A(Sender : TObject); begin (* 0087134A 48 dec eax 0087134B 0050D4 add [eax-$2C], dl 0087134E 42 inc edx 0087134F 0008 add [eax], cl 00871351 2D4A007CD0 sub eax, $D07C004A 00871356 42 inc edx 00871357 00F4 add ah, dh 00871359 6B4A00D0 imul ecx, [edx+$00], $D0 0087135D 1D4A0030F6 sbb eax, $F630004A 00871362 48 dec eax 00871363 004CFB48 add [ebx+edi*8+$48], cl 00871367 0098FA48000C add [eax+$C0048FA], bl 0087136D 7948 jns 008713B7 0087136F 00ACF04800E829 add [eax+esi*8+$29E80048], ch 00871376 4A dec edx 00871377 00E4 add ah, ah 00871379 ED in eax, dx 0087137A 48 dec eax 0087137B 00547848 add [eax+edi*2+$48], dl 0087137F 005878 add [eax+$78], bl 00871382 48 dec eax 00871383 00DC add ah, bl 00871385 2A4A00 sub cl, byte ptr [edx+$00] 00871388 3CA9 cmp al, $A9 0087138A 48 dec eax 0087138B 00C0 add al, al 0087138D 834800D0 or dword ptr [eax+$00], -$30 00871391 7948 jns 008713DB 00871393 004C8548 add [ebp+eax*4+$48], cl 00871397 00D0 add al, dl 00871399 2C4A sub al, $4A 0087139B 009C2B4A008486 add [ebx+ebp+$8684004A], bl 008713A2 48 dec eax 008713A3 00482D add [eax+$2D], cl 008713A6 4A dec edx 008713A7 00C0 add al, al 008713A9 A9480038EE test eax, $EE380048 008713AE 48 dec eax 008713AF 00F4 add ah, dh 008713B1 EE out dx, al 008713B2 48 dec eax 008713B3 00F0 add al, dh 008713B5 E94800D8EE jmp EF5F1402 008713BA 48 dec eax 008713BB 00D8 add al, bl 008713BD 1B4A00 sbb ecx, [edx+$00] 008713C0 EC in al, dx 008713C1 334A00 xor ecx, [edx+$00] 008713C4 20C4 and ah, al 008713C6 48 dec eax 008713C7 00B0404A0010 add [eax+$10004A40], dh 008713CD 44 inc esp 008713CE 4A dec edx 008713CF 00CC add ah, cl 008713D1 42 inc edx 008713D2 4A dec edx 008713D3 00B8C44800BC add [eax+$BC0048C4], bh 008713D9 C44800 les ecx, [eax+$00] 008713DC 48 dec eax 008713DD 45 inc ebp 008713DE 4A dec edx 008713DF 001CC3 add [ebx+eax*8], bl 008713E2 48 dec eax 008713E3 0018 add [eax], bl 008713E5 F0 lock 008713E6 48 dec eax 008713E7 00444C4A add [esp+ecx*2+$4A], al 008713EB 000C02 add [edx+eax], cl 008713EE 49 dec ecx 008713EF 0094EC48009C64 add [esp+ebp*8+$649C0048], dl 008713F6 4A dec edx 008713F7 008C154A003C18 add [ebp+edx+$183C004A], cl 008713FE 4A dec edx 008713FF 0038 add [eax], bh 00871401 52 push edx 00871402 4A dec edx 00871403 005C224A add [edx+$4A], bl 00871407 00D8 add al, bl 00871409 224A00 and cl, byte ptr [edx+$00] 0087140C 7C68 jl 00871476 0087140E 4A dec edx 0087140F 00941F4A003C60 add [edi+ebx+$603C004A], dl 00871416 4A dec edx 00871417 001447 add [edi+eax*2], dl 0087141A 4A dec edx 0087141B 0034654A00CC2C add [$2CCC004A], dh 00871422 4A dec edx 00871423 000E add [esi], cl 00871425 0000 add [eax], al 00871427 0000 add [eax], al 00871429 0003 add [ebx], al 0087142B 0000 add [eax], al 0087142D 0020 add [eax], ah 0087142F 114000 adc [eax+$00], eax 00871432 AC lodsb 00871433 0300 add eax, [eax] 00871435 0020 add [eax], ah 00871437 114000 adc [eax+$00], eax 0087143A B003 mov al, $03 0087143C 0000 add [eax], al 0087143E 2011 and [ecx], dl 00871440 40 inc eax 00871441 00B40300002C00 add [ebx+eax+$2C0000], dh 00871448 06 push es 00871449 1B8700F80200 sbb eax, [edi+$2F800] 0087144F 0000 add [eax], al 00871451 0008 add [eax], cl 00871453 54 push esp 00871454 6F outsd 00871455 6F outsd 00871456 6C insb 00871457 42 inc edx 00871458 61 popa 00871459 7231 jb 0087148C 0087145B FC cld 0087145C 0200 add al, byte ptr [eax] 0087145E 0001 add [ecx], al 00871460 0009 add [ecx], cl 00871462 54 push esp 00871463 42 inc edx 00871464 52 push edx 00871465 61 popa 00871466 667265 jb 008714CE 00871469 7368 jnb 008714D3 0087146B 0003 add [ebx], al 0087146D 0000 add [eax], al 0087146F 0100 add [eax], eax 00871471 07 pop es 00871472 54 push esp 00871473 42 inc edx 00871474 43 inc ebx 00871475 6C insb 00871476 6F outsd 00871477 7365 jnb 008714DE 00871479 0403 add al, +$03 0087147B 0000 add [eax], al 0087147D 0200 add al, byte ptr [eax] 0087147F 0C41 or al, $41 00871481 44 inc esp 00871482 4F dec edi 00871483 51 push ecx 00871484 7565 jnz 008714EB 00871486 7279 jb 00871501 00871488 54 push esp 00871489 656D insd 0087148B 7008 jo 00871495 0087148D 0300 add eax, [eax] 0087148F 0002 add [edx], al 00871491 000B add [ebx], cl 00871493 41 inc ecx 00871494 44 inc esp 00871495 4F dec edi 00871496 51 push ecx 00871497 7565 jnz 008714FE 00871499 7279 jb 00871514 0087149B 43 inc ebx 0087149C 6D insd 0087149D 640C03 or al, $03 008714A0 0000 add [eax], al 008714A2 0300 add eax, [eax] 008714A4 06 push es 008714A5 50 push eax 008714A6 61 popa 008714A7 6E outsb 008714A8 656C insb 008714AA 3110 xor [eax], edx 008714AC 0300 add eax, [eax] 008714AE 0001 add [ecx], al 008714B0 000B add [ebx], cl 008714B2 54 push esp 008714B3 6F outsd 008714B4 6F outsd 008714B5 6C insb 008714B6 42 inc edx 008714B7 7574 jnz 0087152D 008714B9 746F jz 0087152A 008714BB 6E outsb 008714BC 321403 xor dl, byte ptr [ebx+eax] 008714BF 0000 add [eax], al 008714C1 0200 add al, byte ptr [eax] 008714C3 0C41 or al, $41 008714C5 44 inc esp 008714C6 4F dec edi 008714C7 51 push ecx 008714C8 7565 jnz 0087152F 008714CA 7279 jb 00871545 008714CC 4D dec ebp 008714CD 61 popa 008714CE 696E1803000001 imul ebp, [esi+$18], $01000003 008714D5 000B add [ebx], cl 008714D7 54 push esp 008714D8 6F outsd 008714D9 6F outsd 008714DA 6C insb 008714DB 42 inc edx 008714DC 7574 jnz 00871552 008714DE 746F jz 0087154F 008714E0 6E outsb 008714E1 311C03 xor [ebx+eax], ebx 008714E4 0000 add [eax], al 008714E6 0400 add al, +$00 008714E8 03524D add edx, [edx+$4D] 008714EB 3120 xor [eax], esp 008714ED 0300 add eax, [eax] 008714EF 00050009524D add [$4D520900], al 008714F5 44 inc esp 008714F6 42 inc edx 008714F7 5F pop edi 008714F8 4D dec ebp 008714F9 61 popa 008714FA 696E2403000006 imul ebp, [esi+$24], $06000003 00871501 0007 add [edi], al 00871503 637847 arpl [eax+$47], di 00871506 7269 jb 00871571 00871508 643228 xor ch, byte ptr fs:[eax] 0087150B 0300 add eax, [eax] 0087150D 0007 add [edi], al 0087150F 0003 add [ebx], al 00871511 54 push esp 00871512 7632 jbe 00871546 00871514 2C03 sub al, $03 00871516 0000 add [eax], al 00871518 0800 or [eax], al 0087151A 095631 or [esi+$31], edx 0087151D 42 inc edx 0087151E 656744 inc esp 00871521 61 popa 00871522 7465 jz 00871589 00871524 3003 xor [ebx], al 00871526 0000 add [eax], al 00871528 0800 or [eax], al 0087152A 07 pop es 0087152B 56 push esi 0087152C 314875 xor [eax+$75], ecx 0087152F 694C763403000009 imul ecx, [esi+esi*2+$34], $09000003 00871537 000C63 add [ebx], cl 0087153A 7847 js 00871583 0087153C 7269 jb 008715A7 0087153E 644C dec esp 00871540 657665 jbe 008715A8 00871543 6C insb 00871544 3138 xor [eax], edi 00871546 0300 add eax, [eax] 00871548 000A add [edx], cl 0087154A 0006 add [esi], al 0087154C 4C dec esp 0087154D 61 popa 0087154E 62656C bound esp, qword ptr [ebp+$6C] 00871551 323C03 xor bh, byte ptr [ebx+eax] 00871554 0000 add [eax], al 00871556 0B00 or eax, [eax] 00871558 07 pop es 00871559 626567 bound esp, qword ptr [ebp+$67] 0087155C 6461 popa 0087155E 7465 jz 008715C5 00871560 40 inc eax 00871561 0300 add eax, [eax] 00871563 000C00 add [eax+eax], cl 00871566 106378 adc [ebx+$78], ah 00871569 47 inc edi 0087156A 7269 jb 008715D5 0087156C 6450 push eax 0087156E 6F outsd 0087156F 7075 jo 008715E6 00871571 704D jo 008715C0 00871573 656E outsb 00871575 7532 jnz 008715A9 00871577 44 inc esp 00871578 0300 add eax, [eax] 0087157A 000D00054453 add [$53440500], cl 00871580 5F pop edi 00871581 48 dec eax 00871582 5A pop edx 00871583 48 dec eax 00871584 0300 add eax, [eax] 00871586 000E add [esi], cl 00871588 0006 add [esi], al 0087158A 43 inc ebx 0087158B 44 inc esp 0087158C 53 push ebx 0087158D 5F pop edi 0087158E 48 dec eax 0087158F 5A pop edx 00871590 4C dec esp 00871591 0300 add eax, [eax] 00871593 0008 add [eax], cl 00871595 0009 add [ecx], cl 00871597 7632 jbe 008715CB 00871599 45 inc ebp 0087159A 6E outsb 0087159B 6444 inc esp 0087159D 61 popa 0087159E 7465 jz 00871605 008715A0 50 push eax 008715A1 0300 add eax, [eax] 008715A3 0008 add [eax], cl 008715A5 0006 add [esi], al 008715A7 7632 jbe 008715DB 008715A9 7373 jnb 0087161E 008715AB 656C insb 008715AD 54 push esp 008715AE 0300 add eax, [eax] 008715B0 000F add [edi], cl 008715B2 000545646974 add [$74696445], al 008715B8 315803 xor [eax+$03], ebx 008715BB 0000 add [eax], al 008715BD 0A00 or al, byte ptr [eax] 008715BF 06 push es 008715C0 4C dec esp 008715C1 61 popa 008715C2 62656C bound esp, qword ptr [ebp+$6C] 008715C5 37 aaa 008715C6 5C pop esp 008715C7 0300 add eax, [eax] 008715C9 0010 add [eax], dl 008715CB 0007 add [edi], al 008715CD 42 inc edx 008715CE 7574 jnz 00871644 008715D0 746F jz 00871641 008715D2 6E outsb 008715D3 316003 xor [eax+$03], esp 008715D6 0000 add [eax], al 008715D8 0100 add [eax], eax 008715DA 0454 add al, +$54 008715DC 41 inc ecx 008715DD 44 inc esp 008715DE 44 inc esp 008715DF 640300 add eax, fs:[eax] 008715E2 0001 add [ecx], al 008715E4 000454 add [esp+edx*2], al 008715E7 44 inc esp 008715E8 656C insb 008715EA 6803000011 push $11000003 008715EF 0012 add [edx], dl 008715F1 637853 arpl [eax+$53], di 008715F4 7479 jz 0087166F 008715F6 6C insb 008715F7 6552 push edx 008715F9 65706F jo 0087166B 008715FC 7369 jnb 00871667 008715FE 746F jz 0087166F 00871600 7279 jb 0087167B 00871602 316C0300 xor [ebx+eax+$00], ebp 00871606 0012 add [edx], dl 00871608 0008 add [eax], cl 0087160A 637853 arpl [eax+$53], di 0087160D 7479 jz 00871688 0087160F 6C insb 00871610 65317003 xor gs:[eax+$03], esi 00871614 0000 add [eax], al 00871616 1300 adc eax, [eax] 00871618 0A506F or dl, byte ptr [eax+$6F] 0087161B 7075 jo 00871692 0087161D 704D jo 0087166C 0087161F 656E outsb 00871621 7531 jnz 00871654 00871623 7403 jz 00871628 00871625 0000 add [eax], al 00871627 1400 adc al, $00 00871629 024E31 add cl, byte ptr [esi+$31] 0087162C 7803 js 00871631 0087162E 0000 add [eax], al 00871630 1400 adc al, $00 00871632 024E32 add cl, byte ptr [esi+$32] 00871635 7C03 jl 0087163A 00871637 0000 add [eax], al 00871639 0100 add [eax], eax 0087163B 0454 add al, +$54 0087163D 53 push ebx 0087163E 656C insb 00871640 800300 add byte ptr [ebx], $00 00871643 0008 add [eax], cl 00871645 0008 add [eax], cl 00871647 7632 jbe 0087167B 00871649 46 inc esi 0087164A 696C6C6572840300 imul ebp, [esp+ebp*2+$65], $00038472 00871652 0008 add [eax], cl 00871654 0006 add [esi], al 00871656 7632 jbe 0087168A 00871658 4E dec esi 00871659 6F outsd 0087165A 7465 jz 008716C1 0087165C 8803 mov [ebx], al 0087165E 0000 add [eax], al 00871660 0A00 or al, byte ptr [eax] 00871662 06 push es 00871663 4C dec esp 00871664 61 popa 00871665 62656C bound esp, qword ptr [ebp+$6C] 00871668 318C0300000F00 xor [ebx+eax+$F0000], ecx 0087166F 054875694C add eax, +$4C697548 00871674 56 push esi 00871675 90 nop 00871676 0300 add eax, [eax] 00871678 0001 add [ecx], al 0087167A 000554536176 add [$76615354], al 00871680 6594 xchg eax, esp 00871682 0300 add eax, [eax] 00871684 0002 add [edx], al 00871686 0009 add [ecx], cl 00871688 41 inc ecx 00871689 44 inc esp 0087168A 4F dec edi 0087168B 51 push ecx 0087168C 7565 jnz 008716F3 0087168E 7279 jb 00871709 00871690 319803000008 xor [eax+$8000003], ebx 00871696 0008 add [eax], cl 00871698 7632 jbe 008716CC 0087169A 47 inc edi 0087169B 53 push ebx 0087169C 54 push esp 0087169D 7970 jns 0087170F 0087169F 659C pushf 008716A1 0300 add eax, [eax] 008716A3 000A add [edx], cl 008716A5 0006 add [esi], al 008716A7 4C dec esp 008716A8 61 popa 008716A9 62656C bound esp, qword ptr [ebp+$6C] 008716AC 33A00300000A xor esp, [eax+$A000003] 008716B2 0006 add [esi], al 008716B4 4C dec esp 008716B5 61 popa 008716B6 62656C bound esp, qword ptr [ebp+$6C] 008716B9 34A4 xor al, $A4 008716BB 0300 add eax, [eax] 008716BD 001500064753 add [$53470600], dl 008716C3 54 push esp 008716C4 7970 jns 00871736 008716C6 6525001200F8 and eax, $F8001200 008716CC 1D87000B46 sbb eax, $460B0087 008716D1 6F outsd 008716D2 726D jb 00871741 008716D4 44 inc esp 008716D5 657374 jnb 0087174C 008716D8 726F jb 00871749 008716DA 7910 jns 008716EC 008716DC 0000 add [eax], al 008716DE 1E push ds 008716DF 8700 xchg [eax], eax 008716E1 09466F or [esi+$6F], eax 008716E4 726D jb 00871753 008716E6 43 inc ebx 008716E7 6C insb 008716E8 6F outsd 008716E9 7365 jnb 00871750 008716EB 1300 adc eax, [eax] 008716ED 041E add al, +$1E 008716EF 8700 xchg [eax], eax 008716F1 0C54 or al, $54 008716F3 42 inc edx 008716F4 43 inc ebx 008716F5 6C insb 008716F6 6F outsd 008716F7 7365 jnb 0087175E 008716F9 43 inc ebx 008716FA 6C insb 008716FB 69636B0F00501E imul esp, [ebx+$6B], $1E50000F 00871702 8700 xchg [eax], eax 00871704 08466F or [esi+$6F], al 00871707 726D jb 00871776 00871709 53 push ebx 0087170A 686F771500 push $0015776F 0087170F C01E87 rcr byte ptr [esi], $87 00871712 000E add [esi], cl 00871714 54 push esp 00871715 42 inc edx 00871716 52 push edx 00871717 61 popa 00871718 667265 jb 00871780 0087171B 7368 jnb 00871785 0087171D 43 inc ebx 0087171E 6C insb 0087171F 69636B1700DC1E imul esp, [ebx+$6B], $1EDC0017 00871726 8700 xchg [eax], eax 00871728 10546F6F adc [edi+ebp*2+$6F], dl 0087172C 6C insb 0087172D 42 inc edx 0087172E 7574 jnz 008717A4 00871730 746F jz 008717A1 00871732 6E outsb 00871733 32436C xor al, byte ptr [ebx+$6C] 00871736 69636B18005C1F imul esp, [ebx+$6B], $1F5C0018 0087173D 8700 xchg [eax], eax 0087173F 114661 adc [esi+$61], eax 00871742 63746F72 arpl [edi+ebp*2+$72], si 00871746 794E jns 00871796 00871748 61 popa 00871749 6D insd 0087174A 6543 inc ebx 0087174C 68616E6765 push $65676E61 00871751 1300 adc eax, [eax] 00871753 701F jo 00871774 00871755 8700 xchg [eax], eax 00871757 0C42 or al, $42 00871759 7574 jnz 008717CF 0087175B 746F jz 008717CC 0087175D 6E outsb 0087175E 32436C xor al, byte ptr [ebx+$6C] 00871761 69636B3000EC20 imul esp, [ebx+$6B], $20EC0030 00871768 8700 xchg [eax], eax 0087176A 296378 sub dword ptr [ebx+$78], esp 0087176D 47 inc edi 0087176E 7269 jb 008717D9 00871770 6444 inc esp 00871772 42 inc edx 00871773 43 inc ebx 00871774 6F outsd 00871775 6C insb 00871776 756D jnz 008717E5 00871778 6E outsb 00871779 385072 cmp [eax+$72], dl 0087177C 6F outsd 0087177D 7065 jo 008717E4 0087177F 7274 jb 008717F5 00871781 69657345646974 imul esp, [ebp+$73], $74696445 00871788 56 push esi 00871789 61 popa 0087178A 6C insb 0087178B 7565 jnz 008717F2 0087178D 43 inc ebx 0087178E 68616E6765 push $65676E61 00871793 643000 xor fs:[eax], al 00871796 B823870029 mov eax, $29008723 0087179B 637847 arpl [eax+$47], di 0087179E 7269 jb 00871809 008717A0 6444 inc esp 008717A2 42 inc edx 008717A3 43 inc ebx 008717A4 6F outsd 008717A5 6C insb 008717A6 756D jnz 00871815 008717A8 6E outsb 008717A9 3550726F70 xor eax, $706F7250 008717AE 657274 jb 00871825 008717B1 69657345646974 imul esp, [ebp+$73], $74696445 008717B8 56 push esi 008717B9 61 popa 008717BA 6C insb 008717BB 7565 jnz 00871822 008717BD 43 inc ebx 008717BE 68616E6765 push $65676E61 008717C3 643000 xor fs:[eax], al 008717C6 60 pusha 008717C7 2D87002963 sub eax, $63290087 008717CC 7847 js 00871815 008717CE 7269 jb 00871839 008717D0 6444 inc esp 008717D2 42 inc edx 008717D3 43 inc ebx 008717D4 6F outsd 008717D5 6C insb 008717D6 756D jnz 00871845 008717D8 6E outsb 008717D9 315072 xor [eax+$72], edx 008717DC 6F outsd 008717DD 7065 jo 00871844 008717DF 7274 jb 00871855 008717E1 69657345646974 imul esp, [ebp+$73], $74696445 008717E8 56 push esi 008717E9 61 popa 008717EA 6C insb 008717EB 7565 jnz 00871852 008717ED 43 inc ebx 008717EE 68616E6765 push $65676E61 008717F3 642B00 sub eax, dword ptr fs:[eax] 008717F6 D830 fdiv dword ptr [eax] 008717F8 8700 xchg [eax], eax 008717FA 2463 and al, $63 008717FC 7847 js 00871845 008717FE 7269 jb 00871869 00871800 6444 inc esp 00871802 42 inc edx 00871803 43 inc ebx 00871804 6F outsd 00871805 6C insb 00871806 756D jnz 00871875 00871808 6E outsb 00871809 335072 xor edx, [eax+$72] 0087180C 6F outsd 0087180D 7065 jo 00871874 0087180F 7274 jb 00871885 00871811 69657342757474 imul esp, [ebp+$73], $74747542 00871818 6F outsd 00871819 6E outsb 0087181A 43 inc ebx 0087181B 6C insb 0087181C 69636B2B00F035 imul esp, [ebx+$6B], $35F0002B 00871823 8700 xchg [eax], eax 00871825 2463 and al, $63 00871827 7847 js 00871870 00871829 7269 jb 00871894 0087182B 6444 inc esp 0087182D 42 inc edx 0087182E 43 inc ebx 0087182F 6F outsd 00871830 6C insb 00871831 756D jnz 008718A0 00871833 6E outsb 00871834 3650 push eax 00871836 726F jb 008718A7 00871838 7065 jo 0087189F 0087183A 7274 jb 008718B0 0087183C 69657342757474 imul esp, [ebp+$73], $74747542 00871843 6F outsd 00871844 6E outsb 00871845 43 inc ebx 00871846 6C insb 00871847 69636B25004C39 imul esp, [ebx+$6B], $394C0025 0087184E 8700 xchg [eax], eax 00871850 1E push ds 00871851 7632 jbe 00871885 00871853 43 inc ebx 00871854 6F outsd 00871855 6C insb 00871856 756D jnz 008718C5 00871858 6E outsb 00871859 335072 xor edx, [eax+$72] 0087185C 6F outsd 0087185D 7065 jo 008718C4 0087185F 7274 jb 008718D5 00871861 69657342757474 imul esp, [ebp+$73], $74747542 00871868 6F outsd 00871869 6E outsb 0087186A 43 inc ebx 0087186B 6C insb 0087186C 69636B1700903C imul esp, [ebx+$6B], $3C900017 00871873 8700 xchg [eax], eax 00871875 10546F6F adc [edi+ebp*2+$6F], dl 00871879 6C insb 0087187A 42 inc edx 0087187B 7574 jnz 008718F1 0087187D 746F jz 008718EE 0087187F 6E outsb 00871880 31436C xor [ebx+$6C], eax 00871883 69636B2A00D03C imul esp, [ebx+$6B], $3CD0002A 0087188A 8700 xchg [eax], eax 0087188C 237632 and esi, [esi+$32] 0087188F 43 inc ebx 00871890 6F outsd 00871891 6C insb 00871892 756D jnz 00871901 00871894 6E outsb 00871895 325072 xor dl, byte ptr [eax+$72] 00871898 6F outsd 00871899 7065 jo 00871900 0087189B 7274 jb 00871911 0087189D 69657345646974 imul esp, [ebp+$73], $74696445 008718A4 56 push esi 008718A5 61 popa 008718A6 6C insb 008718A7 7565 jnz 0087190E 008718A9 43 inc ebx 008718AA 68616E6765 push $65676E61 008718AF 642500044087 and eax, $87400400 008718B5 001E add [esi], bl 008718B7 7632 jbe 008718EB 008718B9 50 push eax 008718BA 53 push ebx 008718BB 50 push eax 008718BC 726F jb 0087192D 008718BE 7065 jo 00871925 008718C0 7274 jb 00871936 008718C2 69657345646974 imul esp, [ebp+$73], $74696445 008718C9 56 push esi 008718CA 61 popa 008718CB 6C insb 008718CC 7565 jnz 00871933 008718CE 43 inc ebx 008718CF 68616E6765 push $65676E61 008718D4 642A00 sub al, byte ptr fs:[eax] 008718D7 A842 test al, $42 008718D9 8700 xchg [eax], eax 008718DB 237632 and esi, [esi+$32] 008718DE 42 inc edx 008718DF 61 popa 008718E0 7463 jz 00871945 008718E2 684E6F5072 push $72506F4E 008718E7 6F outsd 008718E8 7065 jo 0087194F 008718EA 7274 jb 00871960 008718EC 69657345646974 imul esp, [ebp+$73], $74696445 008718F3 56 push esi 008718F4 61 popa 008718F5 6C insb 008718F6 7565 jnz 0087195D 008718F8 43 inc ebx 008718F9 68616E6765 push $65676E61 008718FE 642500804687 and eax, $87468000 00871904 001E add [esi], bl 00871906 7632 jbe 0087193A 00871908 50 push eax 00871909 61 popa 0087190A 794D jns 00871959 0087190C 656E outsb 0087190E 7450 jz 00871960 00871910 726F jb 00871981 00871912 7065 jo 00871979 00871914 7274 jb 0087198A 00871916 69657342757474 imul esp, [ebp+$73], $74747542 0087191D 6F outsd 0087191E 6E outsb 0087191F 43 inc ebx 00871920 6C insb 00871921 69636B2800B449 imul esp, [ebx+$6B], $49B40028 00871928 8700 xchg [eax], eax 0087192A 217632 and [esi+$32], esi 0087192D 54 push esp 0087192E 5F pop edi 0087192F 7174 jno 008719A5 00871931 7950 jns 00871983 00871933 726F jb 008719A4 00871935 7065 jo 0087199C 00871937 7274 jb 008719AD 00871939 69657345646974 imul esp, [ebp+$73], $74696445 00871940 56 push esi 00871941 61 popa 00871942 6C insb 00871943 7565 jnz 008719AA 00871945 43 inc ebx 00871946 68616E6765 push $65676E61 0087194B 641300 adc eax, fs:[eax] 0087194E 44 inc esp 0087194F 4D dec ebp 00871950 8700 xchg [eax], eax 00871952 0C42 or al, $42 00871954 7574 jnz 008719CA 00871956 746F jz 008719C7 00871958 6E outsb 00871959 31436C xor [ebx+$6C], eax 0087195C 69636B2A00C051 imul esp, [ebx+$6B], $51C0002A 00871963 8700 xchg [eax], eax 00871965 237632 and esi, [esi+$32] 00871968 54 push esp 00871969 5F pop edi 0087196A 50 push eax 0087196B 7269 jb 008719D6 0087196D 636550 arpl [ebp+$50], sp 00871970 726F jb 008719E1 00871972 7065 jo 008719D9 00871974 7274 jb 008719EA 00871976 69657345646974 imul esp, [ebp+$73], $74696445 0087197D 56 push esi 0087197E 61 popa 0087197F 6C insb 00871980 7565 jnz 008719E7 00871982 43 inc ebx 00871983 68616E6765 push $65676E61 00871988 642500505587 and eax, $87555000 0087198E 001E add [esi], bl 00871990 7632 jbe 008719C4 00871992 4F dec edi 00871993 7264 jb 008719F9 00871995 65724E jb 008719E6 00871998 4F dec edi 00871999 50 push eax 0087199A 726F jb 00871A0B 0087199C 7065 jo 00871A03 0087199E 7274 jb 00871A14 008719A0 69657342757474 imul esp, [ebp+$73], $74747542 008719A7 6F outsd 008719A8 6E outsb 008719A9 43 inc ebx 008719AA 6C insb 008719AB 69636B2700445A imul esp, [ebx+$6B], $5A440027 008719B2 8700 xchg [eax], eax 008719B4 207632 and [esi+$32], dh 008719B7 43 inc ebx 008719B8 6F outsd 008719B9 6D insd 008719BA 54 push esp 008719BB 61 popa 008719BC 69546F7550726F70 imul edx, [edi+ebp*2+$75], $706F7250 008719C4 657274 jb 00871A3B 008719C7 69657342757474 imul esp, [ebp+$73], $74747542 008719CE 6F outsd 008719CF 6E outsb 008719D0 43 inc ebx 008719D1 6C insb 008719D2 69636B2500805D imul esp, [ebx+$6B], $5D800025 008719D9 8700 xchg [eax], eax 008719DB 1E push ds 008719DC 7632 jbe 00871A10 008719DE 50 push eax 008719DF 5F pop edi 008719E0 43 inc ebx 008719E1 6F outsd 008719E2 6C insb 008719E3 6F outsd 008719E4 7250 jb 00871A36 008719E6 726F jb 00871A57 008719E8 7065 jo 00871A4F 008719EA 7274 jb 00871A60 008719EC 69657342757474 imul esp, [ebp+$73], $74747542 008719F3 6F outsd 008719F4 6E outsb 008719F5 43 inc ebx 008719F6 6C insb 008719F7 69636B10005061 imul esp, [ebx+$6B], $61500010 008719FE 8700 xchg [eax], eax 00871A00 09544144 or [ecx+eax*2+$44], edx 00871A04 44 inc esp 00871A05 43 inc ebx 00871A06 6C insb 00871A07 69636B10001062 imul esp, [ebx+$6B], $62100010 00871A0E 8700 xchg [eax], eax 00871A10 09544465 or [esp+eax*2+$65], edx 00871A14 6C insb 00871A15 43 inc ebx 00871A16 6C insb 00871A17 69636B0E000C64 imul esp, [ebx+$6B], $640C000E 00871A1E 8700 xchg [eax], eax 00871A20 07 pop es 00871A21 4E dec esi 00871A22 31436C xor [ebx+$6C], eax 00871A25 69636B0E001C64 imul esp, [ebx+$6B], $641C000E 00871A2C 8700 xchg [eax], eax 00871A2E 07 pop es 00871A2F 4E dec esi 00871A30 32436C xor al, byte ptr [ebx+$6C] 00871A33 69636B29002C64 imul esp, [ebx+$6B], $642C0029 00871A3A 8700 xchg [eax], eax 00871A3C 227632 and dh, byte ptr [esi+$32] 00871A3F 4B dec ebx 00871A40 50 push eax 00871A41 54 push esp 00871A42 7970 jns 00871AB4 00871A44 6550 push eax 00871A46 726F jb 00871AB7 00871A48 7065 jo 00871AAF 00871A4A 7274 jb 00871AC0 00871A4C 69657345646974 imul esp, [ebp+$73], $74696445 00871A53 56 push esi 00871A54 61 popa 00871A55 6C insb 00871A56 7565 jnz 00871ABD 00871A58 43 inc ebx 00871A59 68616E6765 push $65676E61 00871A5E 641A00 sbb al, byte ptr fs:[eax] 00871A61 FC cld 00871A62 658700 xchg gs:[eax], eax 00871A65 136378 adc esp, [ebx+$78] 00871A68 54 push esp 00871A69 61 popa 00871A6A 62436F bound eax, qword ptr [ebx+$6F] 00871A6D 6E outsb 00871A6E 7472 jz 00871AE2 00871A70 6F outsd 00871A71 6C insb 00871A72 324368 xor al, byte ptr [ebx+$68] 00871A75 61 popa 00871A76 6E outsb 00871A77 67651000 adc gs:[bx+si], al 00871A7B 0466 add al, +$66 00871A7D 8700 xchg [eax], eax 00871A7F 09545365 or [ebx+edx*2+$65], edx 00871A83 6C insb 00871A84 43 inc ebx 00871A85 6C insb 00871A86 69636B1200CC66 imul esp, [ebx+$6B], $66CC0012 00871A8D 8700 xchg [eax], eax 00871A8F 0B4875 or ecx, [eax+$75] 00871A92 694C564368616E67 imul ecx, [esi+edx*2+$43], $676E6168 00871A9A 651100 adc gs:[eax], eax 00871A9D E066 loopn +$66 00871A9F 8700 xchg [eax], eax 00871AA1 0A545361 or dl, byte ptr [ebx+edx*2+$61] 00871AA5 7665 jbe 00871B0C 00871AA7 43 inc ebx 00871AA8 6C insb 00871AA9 69636B2400C06A imul esp, [ebx+$6B], $6AC00024 00871AB0 8700 xchg [eax], eax 00871AB2 1D76324753 sbb eax, $53473276 00871AB7 54 push esp 00871AB8 7970 jns 00871B2A 00871ABA 6550 push eax 00871ABC 726F jb 00871B2D 00871ABE 7065 jo 00871B25 00871AC0 7274 jb 00871B36 00871AC2 69657342757474 imul esp, [ebp+$73], $74747542 00871AC9 6F outsd 00871ACA 6E outsb 00871ACB 43 inc ebx 00871ACC 6C insb 00871ACD 69636B1300286C imul esp, [ebx+$6B], $6C280013 00871AD4 8700 xchg [eax], eax 00871AD6 0C47 or al, $47 00871AD8 53 push ebx 00871AD9 54 push esp 00871ADA 7970 jns 00871B4C 00871ADC 6543 inc ebx 00871ADE 68616E6765 push $65676E61 00871AE3 1400 adc al, $00 00871AE5 3C6C cmp al, $6C 00871AE7 8700 xchg [eax], eax 00871AE9 0D62656764 or eax, $64676562 00871AEE 61 popa 00871AEF 7465 jz 00871B56 00871AF1 43 inc ebx 00871AF2 68616E6765 push $65676E61 00871AF7 0E push cs 00871AF8 54 push esp 00871AF9 66726D jb 00871B69 00871AFC 43 inc ebx 00871AFD 61 popa 00871AFE 6957754875694C imul edx, [edi+$75], $4C697548 00871B05 56 push esi 00871B06 16 push ss 00871B07 0028 add [eax], ch 00871B09 94 xchg eax, esp 00871B0A 45 inc ebp 00871B0B 00648A45 add [edx+ecx*4+$45], ah 00871B0F 00B8124D0020 add [eax+$20004D12], bh 00871B15 42 inc edx 00871B16 44 inc esp 00871B17 0064D378 add [ebx+edx*8+$78], ah 00871B1B 00A80A780000 add [eax+$780A], ch 00871B21 16 push ss 00871B22 6300 arpl [eax], ax 00871B24 F4 hlt 00871B25 B466 mov ah, $66 00871B27 0034B1 add [ecx+esi*4], dh 00871B2A 6600A40E64001C5F add [esi+ecx+$5F1C0064], ah 00871B32 47 inc edi 00871B33 00E0 add al, ah 00871B35 A5 movsd 00871B36 45 inc ebp 00871B37 005876 add [eax+$76], bl 00871B3A 7C00 jl 00871B3C 00871B3C 087F4B or [edi+$4B], bh 00871B3F 0088996A00B8 add [eax+$B8006A99], cl 00871B45 6747 inc edi 00871B47 0000 add [eax], al 00871B49 8E4700 mov es, word ptr [edi+$00] 00871B4C 9C pushf 00871B4D 6D insd 00871B4E 4F dec edi 00871B4F 005070 add [eax+$70], dl 00871B52 4F dec edi 00871B53 00887E49008C add [eax+$8C00497E], cl 00871B59 7649 jbe 00871BA4 00871B5B 00F4 add ah, dh 00871B5D 814700641B8700 add dword ptr [edi+$00], $00871B64 00871B64 07 pop es 00871B65 0E push cs 00871B66 54 push esp 00871B67 66726D jb 00871BD7 00871B6A 43 inc ebx 00871B6B 61 popa 00871B6C 6957754875694C imul edx, [edi+$75], $4C697548 00871B73 56 push esi 00871B74 3013 xor [ebx], dl 00871B76 8700 xchg [eax], eax 00871B78 D0F2 DB $D0, $F2 // dl, 1 00871B7A 49 dec ecx 00871B7B 005E00 add [esi+$00], bl 00871B7E 0C55 or al, $55 00871B80 5F pop edi 00871B81 43 inc ebx 00871B82 61 popa 00871B83 6957754875696C imul edx, [edi+$75], $6C697548 00871B8A 56 push esi 00871B8B 0000 add [eax], al 00871B8D 8D4000 lea eax, [eax+$00] 00871B90 55 push ebp 00871B91 8BEC mov ebp, esp 00871B93 33C9 xor ecx, ecx 00871B95 51 push ecx 00871B96 51 push ecx 00871B97 51 push ecx 00871B98 51 push ecx 00871B99 51 push ecx 00871B9A 53 push ebx 00871B9B 8945FC mov [ebp-$04], eax 00871B9E 33C0 xor eax, eax 00871BA0 55 push ebp * Possible String Reference to: '榈-腚[嬪]' | 00871BA1 683A1D8700 push $00871D3A ***** TRY | 00871BA6 64FF30 push dword ptr fs:[eax] 00871BA9 648920 mov fs:[eax], esp 00871BAC 33C0 xor eax, eax 00871BAE 55 push ebp 00871BAF 68181D8700 push $00871D18 ***** TRY | 00871BB4 64FF30 push dword ptr fs:[eax] 00871BB7 648920 mov fs:[eax], esp 00871BBA 8B45FC mov eax, [ebp-$04] * Reference to control DlyDate : N.A. | 00871BBD 8B8014030000 mov eax, [eax+$0314] * Reference to: DB.TDataSet.DisableControls(TDataSet); | 00871BC3 E88C59C5FF call 004C7554 00871BC8 8B45FC mov eax, [ebp-$04] * Reference to control DlyDate : N.A. | 00871BCB 8B9814030000 mov ebx, [eax+$0314] 00871BD1 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 00871BD3 E8FC3CC5FF call 004C58D4 00871BD8 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; | 00871BDA E8CDC3C6FF call 004DDFAC 00871BDF 8B10 mov edx, [eax] * Possible reference to virtual method TN.A..OFFS_44 | 00871BE1 FF5244 call dword ptr [edx+$44] 00871BE4 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; | 00871BE6 E8C1C3C6FF call 004DDFAC * Possible String Reference to: ' select A.*' | 00871BEB BA501D8700 mov edx, $00871D50 00871BF0 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 00871BF2 FF5138 call dword ptr [ecx+$38] 00871BF5 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; | 00871BF7 E8B0C3C6FF call 004DDFAC * Possible String Reference to: ' from JYOrder_HuiLV A' | 00871BFC BA641D8700 mov edx, $00871D64 00871C01 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 00871C03 FF5138 call dword ptr [ecx+$38] 00871C06 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; | 00871C08 E89FC3C6FF call 004DDFAC * Possible String Reference to: ' where 1=1 ' | 00871C0D BA841D8700 mov edx, $00871D84 00871C12 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 00871C14 FF5138 call dword ptr [ecx+$38] 00871C17 8B45FC mov eax, [ebp-$04] * Reference to control ADOTemp : N.A. | 00871C1A 8B803C030000 mov eax, [eax+$033C] * Reference to field N.A..OFFS_0252 | 00871C20 80B85202000001 cmp byte ptr [eax+$0252], $01 00871C27 0F859A000000 jnz 00871CC7 * Possible String Reference to: ' and A.BegDate<='' | 00871C2D 68981D8700 push $00871D98 00871C32 8B45FC mov eax, [ebp-$04] * Reference to control ADOTemp : N.A. | 00871C35 8B803C030000 mov eax, [eax+$033C] 00871C3B FFB014020000 push dword ptr [eax+$0214] 00871C41 FFB010020000 push dword ptr [eax+$0210] 00871C47 8D55F4 lea edx, [ebp-$0C] * Possible String Reference to: 'yyyy-MM-dd' | 00871C4A B8B41D8700 mov eax, $00871DB4 | 00871C4F E868CFB9FF call 0040EBBC 00871C54 FF75F4 push dword ptr [ebp-$0C] * Possible String Reference to: '' ' | 00871C57 68C81D8700 push $00871DC8 00871C5C 8D45F8 lea eax, [ebp-$08] 00871C5F BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 00871C64 E84B3AB9FF call 004056B4 00871C69 8B45F8 mov eax, [ebp-$08] 00871C6C 50 push eax 00871C6D 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; | 00871C6F E838C3C6FF call 004DDFAC 00871C74 5A pop edx 00871C75 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 00871C77 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ' and isnull(A.endDate,getdate())>'' | 00871C7A 68D41D8700 push $00871DD4 00871C7F 8B45FC mov eax, [ebp-$04] * Reference to control ADOTemp : N.A. | 00871C82 8B803C030000 mov eax, [eax+$033C] 00871C88 FFB014020000 push dword ptr [eax+$0214] 00871C8E FFB010020000 push dword ptr [eax+$0210] 00871C94 8D55EC lea edx, [ebp-$14] * Possible String Reference to: 'yyyy-MM-dd' | 00871C97 B8B41D8700 mov eax, $00871DB4 | 00871C9C E81BCFB9FF call 0040EBBC 00871CA1 FF75EC push dword ptr [ebp-$14] * Possible String Reference to: '' ' | 00871CA4 68C81D8700 push $00871DC8 00871CA9 8D45F0 lea eax, [ebp-$10] 00871CAC BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 00871CB1 E8FE39B9FF call 004056B4 00871CB6 8B45F0 mov eax, [ebp-$10] 00871CB9 50 push eax 00871CBA 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; | 00871CBC E8EBC2C6FF call 004DDFAC 00871CC1 5A pop edx 00871CC2 8B08 mov ecx, [eax] * Possible reference to virtual method TN.A..OFFS_38 | 00871CC4 FF5138 call dword ptr [ecx+$38] 00871CC7 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Open(TDataSet); | 00871CC9 E8FA3BC5FF call 004C58C8 00871CCE 8B45FC mov eax, [ebp-$04] * Reference to control Order_Sub : N.A. | 00871CD1 8B9048030000 mov edx, [eax+$0348] 00871CD7 8B45FC mov eax, [ebp-$04] * Reference to control DlyDate : N.A. | 00871CDA 8B8014030000 mov eax, [eax+$0314] | 00871CE0 E8AB51F4FF call 007B6E90 00871CE5 8B45FC mov eax, [ebp-$04] * Reference to control Order_Sub : N.A. | 00871CE8 8B9048030000 mov edx, [eax+$0348] 00871CEE 8B45FC mov eax, [ebp-$04] * Reference to control DlyDate : N.A. | 00871CF1 8B8014030000 mov eax, [eax+$0314] | 00871CF7 E81C53F4FF call 007B7018 00871CFC 33C0 xor eax, eax 00871CFE 5A pop edx 00871CFF 59 pop ecx 00871D00 59 pop ecx 00871D01 648910 mov fs:[eax], edx ****** FINALLY | 00871D04 681F1D8700 push $00871D1F 00871D09 8B45FC mov eax, [ebp-$04] * Reference to control DlyDate : N.A. | 00871D0C 8B8014030000 mov eax, [eax+$0314] * Reference to: DB.TDataSet.EnableControls(TDataSet); | 00871D12 E85D58C5FF call 004C7574 00871D17 C3 ret * Reference to: System.@HandleFinally; | 00871D18 E9D72DB9FF jmp 00404AF4 00871D1D EBEA jmp 00871D09 ****** END | 00871D1F 33C0 xor eax, eax 00871D21 5A pop edx 00871D22 59 pop ecx 00871D23 59 pop ecx 00871D24 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '[嬪]' | 00871D27 68411D8700 push $00871D41 00871D2C 8D45EC lea eax, [ebp-$14] 00871D2F BA04000000 mov edx, $00000004 * Reference to: System.@LStrArrayClr(void;void;Integer); | 00871D34 E80F36B9FF call 00405348 00871D39 C3 ret *) end; end.