unit U_YFFKList; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls type TfrmYFFKList=class(TForm) ToolBar1: TToolBar; TBRafresh: TToolButton; TBClose: TToolButton; ADOQueryTemp: TADOQuery; ADOQueryCmd: TADOQuery; Panel1: TPanel; ToolButton2: TToolButton; ToolButton1: TToolButton; RM1: TRMGridReport; RMDB_Main: TRMDBDataSet; Label3: TLabel; cxGrid2: TcxGrid; Tv2: TcxGridDBTableView; cxGridLevel1: TcxGridLevel; Label2: TLabel; Label6: TLabel; begdate: TDateTimePicker; Enddate: TDateTimePicker; cxGridPopupMenu2: TcxGridPopupMenu; DS_HZ: TDataSource; v2Column5: TcxGridDBColumn; v2Column6: TcxGridDBColumn; v2Column1: TcxGridDBColumn; v2Column2: TcxGridDBColumn; v2Column3: TcxGridDBColumn; v2BQKP: TcxGridDBColumn; v2WKP: TcxGridDBColumn; Label1: TLabel; ComTaiTou: TEdit; v2Column4: TcxGridDBColumn; ADOQueryMain: TADOQuery; CDS_HZ: TClientDataSet; cxGrid1: TcxGrid; Tv1: TcxGridDBTableView; cxGridDBColumn1: TcxGridDBColumn; cxGridDBColumn2: TcxGridDBColumn; v2ComTaiTou: TcxGridDBColumn; cxGridDBColumn3: TcxGridDBColumn; cxGridDBColumn4: TcxGridDBColumn; v2P_Spec: TcxGridDBColumn; v2YFName: TcxGridDBColumn; v2ps: TcxGridDBColumn; cxGridDBColumn5: TcxGridDBColumn; v2Column7: TcxGridDBColumn; v2Column8: TcxGridDBColumn; v2Column9: TcxGridDBColumn; v2Column10: TcxGridDBColumn; cxGridLevel2: TcxGridLevel; cxSplitter1: TcxSplitter; DataSource1: TDataSource; YForder_Sub: TClientDataSet; v1FKTaitou: TcxGridDBColumn; v2KHType: TcxGridDBColumn; Label4: TLabel; KHType: TComboBox; FactoryName: TComboBox; TFP: TToolButton; v1FXMoney: TcxGridDBColumn; v1SXMoney: TcxGridDBColumn; v2BQFXMoney: TcxGridDBColumn; v2BQSXMoney: TcxGridDBColumn; v1ConnO: TcxGridDBColumn; v1OrderNO: TcxGridDBColumn; v2SQQP: TcxGridDBColumn; v2BQXKMoney: TcxGridDBColumn; procedure FormDestroy(Sender : TObject); procedure FormClose(Sender : TObject); procedure TBCloseClick(Sender : TObject); procedure FormShow(Sender : TObject); procedure TBRafreshClick(Sender : TObject); procedure ToolButton2Click(Sender : TObject); procedure FactoryNameChange(Sender : TObject); procedure ToolButton1Click(Sender : TObject); procedure Tv2CellClick(Sender : TObject); procedure TFPClick(Sender : TObject); procedure Tv2CellDblClick(Sender : TObject); procedure _PROC_00809170(Sender : TObject); procedure _PROC_008091A0(Sender : TObject); procedure _PROC_00809421(Sender : TObject); procedure _PROC_008094A4(Sender : TObject); procedure _PROC_008094AC(Sender : TObject); procedure _PROC_008094DC(Sender : TObject); procedure _PROC_008094E4(Sender : TObject); procedure _PROC_00809514(Sender : TObject); procedure _PROC_0080951C(Sender : TObject); procedure _PROC_0080952C(Sender : TObject); procedure _PROC_008095D4(Sender : TObject); procedure _PROC_008095FC(Sender : TObject); procedure _PROC_00809618(Sender : TObject); procedure _PROC_00809644(Sender : TObject); procedure _PROC_00809744(Sender : TObject); procedure _PROC_00809778(Sender : TObject); procedure _PROC_008097C8(Sender : TObject); procedure _PROC_00809800(Sender : TObject); procedure _PROC_00809820(Sender : TObject); procedure _PROC_0080989F(Sender : TObject); procedure _PROC_00809964(Sender : TObject); procedure _PROC_0080999C(Sender : TObject); procedure _PROC_008099E4(Sender : TObject); procedure _PROC_00809A2C(Sender : TObject); private { Private declarations } public { Public declarations } end ; var frmYFFKList: TfrmYFFKList; {This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer} implementation {$R *.DFM} procedure TfrmYFFKList.FormDestroy(Sender : TObject); begin (* 00808860 33C0 xor eax, eax * Reference to GlobalVar_00893CF8 | 00808862 A3F83C8900 mov dword ptr [$00893CF8], eax 00808867 C3 ret *) end; procedure TfrmYFFKList.FormClose(Sender : TObject); begin (* 00808868 C60102 mov byte ptr [ecx], $02 0080886B C3 ret *) end; procedure TfrmYFFKList.TBCloseClick(Sender : TObject); begin (* 0080886C 53 push ebx 0080886D 8BD8 mov ebx, eax * Possible String Reference to: '财务管理' | 0080886F B9AC888000 mov ecx, $008088AC * Reference to control TfrmYFFKList.Tv2 : TcxGridDBTableView | 00808874 8B9328030000 mov edx, [ebx+$0328] * Possible String Reference to: '应付付款统计1' | 0080887A B8C0888000 mov eax, $008088C0 | 0080887F E81CF3FAFF call 007B7BA0 * Possible String Reference to: '财务管理' | 00808884 B9AC888000 mov ecx, $008088AC * Reference to control TfrmYFFKList.Tv1 : TcxGridDBTableView | 00808889 8B937C030000 mov edx, [ebx+$037C] * Possible String Reference to: '应付付款统计2' | 0080888F B8D8888000 mov eax, $008088D8 | 00808894 E807F3FAFF call 007B7BA0 00808899 8BC3 mov eax, ebx * Reference to: Forms.TCustomForm.Close(TCustomForm); | 0080889B E8F8D6C9FF call 004A5F98 008088A0 5B pop ebx 008088A1 C3 ret *) end; procedure TfrmYFFKList.FormShow(Sender : TObject); begin (* 008088E8 55 push ebp 008088E9 8BEC mov ebp, esp 008088EB 6A00 push $00 008088ED 53 push ebx 008088EE 8BD8 mov ebx, eax 008088F0 33C0 xor eax, eax 008088F2 55 push ebp * Possible String Reference to: '長量腽[Y]' | 008088F3 68A3898000 push $008089A3 ***** TRY | 008088F8 64FF30 push dword ptr fs:[eax] 008088FB 648920 mov fs:[eax], esp * Possible String Reference to: '财务管理' | 008088FE B9B8898000 mov ecx, $008089B8 * Reference to control TfrmYFFKList.Tv2 : TcxGridDBTableView | 00808903 8B9328030000 mov edx, [ebx+$0328] * Possible String Reference to: '应付付款统计1' | 00808909 B8CC898000 mov eax, $008089CC | 0080890E E891F0FAFF call 007B79A4 * Possible String Reference to: '财务管理' | 00808913 B9B8898000 mov ecx, $008089B8 * Reference to control TfrmYFFKList.Tv1 : TcxGridDBTableView | 00808918 8B937C030000 mov edx, [ebx+$037C] * Possible String Reference to: '应付付款统计2' | 0080891E B8E4898000 mov eax, $008089E4 | 00808923 E87CF0FAFF call 007B79A4 * Reference to control TfrmYFFKList.ADOQueryTemp : TADOQuery | 00808928 8B8304030000 mov eax, [ebx+$0304] | 0080892E E855C0FAFF call 007B4988 00808933 83C4F8 add esp, -$08 00808936 DD1C24 fstp qword ptr [esp] 00808939 9B wait * Reference to control TfrmYFFKList.Enddate : TDateTimePicker | 0080893A 8B833C030000 mov eax, [ebx+$033C] * Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime); | 00808940 E8E798C6FF call 0047222C * Reference to control TfrmYFFKList.Enddate : TDateTimePicker | 00808945 8B833C030000 mov eax, [ebx+$033C] 0080894B DD8010020000 fld qword ptr [eax+$0210] 00808951 D825F4898000 fsub dword ptr [$008089F4] 00808957 83C4F8 add esp, -$08 0080895A DD1C24 fstp qword ptr [esp] 0080895D 9B wait * Reference to control TfrmYFFKList.begdate : TDateTimePicker | 0080895E 8B8338030000 mov eax, [ebx+$0338] * Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime); | 00808964 E8C398C6FF call 0047222C 00808969 8D45FC lea eax, [ebp-$04] * Possible String Reference to: 'select distinct (A.FactoryName) nam | e from YF_Money_CR A where A.CRType | ='应付款登记' ' | 0080896C BA008A8000 mov edx, $00808A00 * Reference to: System.@LStrLAsg(void;void;void;void); | 00808971 E846CABFFF call 004053BC 00808976 8B45FC mov eax, [ebp-$04] 00808979 50 push eax 0080897A 33C9 xor ecx, ecx * Reference to control TfrmYFFKList.FactoryName : TComboBox | 0080897C 8B93D4030000 mov edx, [ebx+$03D4] * Reference to control TfrmYFFKList.ADOQueryCmd : TADOQuery | 00808982 8B8308030000 mov eax, [ebx+$0308] | 00808988 E8BBE8FAFF call 007B7248 0080898D 33C0 xor eax, eax 0080898F 5A pop edx 00808990 59 pop ecx 00808991 59 pop ecx 00808992 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '[Y]' | 00808995 68AA898000 push $008089AA 0080899A 8D45FC lea eax, [ebp-$04] * Reference to: System.@LStrClr(void;void); | 0080899D E882C9BFFF call 00405324 008089A2 C3 ret * Reference to: System.@HandleFinally; | 008089A3 E94CC1BFFF jmp 00404AF4 008089A8 EBF0 jmp 0080899A ****** END | 008089AA 5B pop ebx 008089AB 59 pop ecx 008089AC 5D pop ebp 008089AD C3 ret *) end; procedure TfrmYFFKList.TBRafreshClick(Sender : TObject); begin (* | 00808A58 E877FBFFFF call 008085D4 00808A5D C3 ret *) end; procedure TfrmYFFKList.ToolButton2Click(Sender : TObject); begin (* 00808A60 55 push ebp 00808A61 8BEC mov ebp, esp 00808A63 6A00 push $00 00808A65 6A00 push $00 00808A67 53 push ebx 00808A68 8BD8 mov ebx, eax 00808A6A 33C0 xor eax, eax 00808A6C 55 push ebp 00808A6D 68F68A8000 push $00808AF6 ***** TRY | 00808A72 64FF30 push dword ptr fs:[eax] 00808A75 648920 mov fs:[eax], esp * Reference to control TfrmYFFKList.ADOQueryMain : TADOQuery | 00808A78 8B8370030000 mov eax, [ebx+$0370] * Reference to: DB.TDataSet.GetActive(TDataSet):Boolean; | 00808A7E E891CFCBFF call 004C5A14 00808A83 84C0 test al, al 00808A85 7454 jz 00808ADB 00808A87 8D45F8 lea eax, [ebp-$08] 00808A8A 50 push eax 00808A8B B902000000 mov ecx, $00000002 00808A90 BA01000000 mov edx, $00000001 * Reference to control TfrmYFFKList.Panel1 : TPanel | 00808A95 8B830C030000 mov eax, [ebx+$030C] | 00808A9B E810D6FAFF call 007B60B0 00808AA0 8B45F8 mov eax, [ebp-$08] 00808AA3 8D55FC lea edx, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 00808AA6 E8411EC0FF call 0040A8EC 00808AAB 8B55FC mov edx, [ebp-$04] * Reference to control TfrmYFFKList.ADOQueryMain : TADOQuery | 00808AAE 8B8370030000 mov eax, [ebx+$0370] | 00808AB4 E80FE2FAFF call 007B6CC8 * Reference to control TfrmYFFKList.CDS_HZ : TClientDataSet | 00808AB9 8B9374030000 mov edx, [ebx+$0374] * Reference to control TfrmYFFKList.ADOQueryMain : TADOQuery | 00808ABF 8B8370030000 mov eax, [ebx+$0370] | 00808AC5 E8C6E3FAFF call 007B6E90 * Reference to control TfrmYFFKList.CDS_HZ : TClientDataSet | 00808ACA 8B9374030000 mov edx, [ebx+$0374] * Reference to control TfrmYFFKList.ADOQueryMain : TADOQuery | 00808AD0 8B8370030000 mov eax, [ebx+$0370] | 00808AD6 E83DE5FAFF call 007B7018 00808ADB 33C0 xor eax, eax 00808ADD 5A pop edx 00808ADE 59 pop ecx 00808ADF 59 pop ecx 00808AE0 648910 mov fs:[eax], edx ****** FINALLY | 00808AE3 68FD8A8000 push $00808AFD 00808AE8 8D45F8 lea eax, [ebp-$08] 00808AEB BA02000000 mov edx, $00000002 * Reference to: System.@LStrArrayClr(void;void;Integer); | 00808AF0 E853C8BFFF call 00405348 00808AF5 C3 ret * Reference to: System.@HandleFinally; | 00808AF6 E9F9BFBFFF jmp 00404AF4 00808AFB EBEB jmp 00808AE8 ****** END | 00808AFD 5B pop ebx 00808AFE 59 pop ecx 00808AFF 59 pop ecx 00808B00 5D pop ebp 00808B01 C3 ret *) end; procedure TfrmYFFKList.FactoryNameChange(Sender : TObject); begin (* 00808B04 56 push esi * Reference to control TfrmYFFKList.ToolButton2 : TToolButton | 00808B05 8B8010030000 mov eax, [eax+$0310] 00808B0B 66BEEBFF mov si, $FFEB * Reference to: System.@CallDynaInst; | 00808B0F E840BABFFF call 00404554 00808B14 5E pop esi 00808B15 C3 ret *) end; procedure TfrmYFFKList.ToolButton1Click(Sender : TObject); begin (* 00808B18 53 push ebx 00808B19 8BD8 mov ebx, eax * Reference to control TfrmYFFKList.ADOQueryMain : TADOQuery | 00808B1B 8B8370030000 mov eax, [ebx+$0370] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 00808B21 E89AF3CBFF call 004C7EC0 00808B26 84C0 test al, al 00808B28 7516 jnz 00808B40 * Possible String Reference to: '应付款付款统计列表' | 00808B2A B94C8B8000 mov ecx, $00808B4C * Reference to control TfrmYFFKList.ADOQueryMain : TADOQuery | 00808B2F 8B9370030000 mov edx, [ebx+$0370] * Reference to control TfrmYFFKList.Tv2 : TcxGridDBTableView | 00808B35 8B8328030000 mov eax, [ebx+$0328] | 00808B3B E8F0F6FAFF call 007B8230 00808B40 5B pop ebx 00808B41 C3 ret *) end; procedure TfrmYFFKList.Tv2CellClick(Sender : TObject); begin (* 00808B60 55 push ebp 00808B61 8BEC mov ebp, esp 00808B63 51 push ecx 00808B64 B905000000 mov ecx, $00000005 00808B69 6A00 push $00 00808B6B 6A00 push $00 00808B6D 49 dec ecx 00808B6E 75F9 jnz 00808B69 00808B70 874DFC xchg [ebp-$04], ecx 00808B73 53 push ebx 00808B74 56 push esi 00808B75 8BF0 mov esi, eax 00808B77 33C0 xor eax, eax 00808B79 55 push ebp 00808B7A 68238E8000 push $00808E23 ***** TRY | 00808B7F 64FF30 push dword ptr fs:[eax] 00808B82 648920 mov fs:[eax], esp * Reference to control TfrmYFFKList.CDS_HZ : TClientDataSet | 00808B85 8B8674030000 mov eax, [esi+$0374] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 00808B8B E830F3CBFF call 004C7EC0 00808B90 84C0 test al, al 00808B92 0F8570020000 jnz 00808E08 * Reference to control TfrmYFFKList.ADOQueryCmd : TADOQuery | 00808B98 8B9E08030000 mov ebx, [esi+$0308] 00808B9E 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Close(TDataSet); | 00808BA0 E82FCDCBFF call 004C58D4 00808BA5 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00808BA7 E80054CDFF call 004DDFAC 00808BAC 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 00808BAE FF5244 call dword ptr [edx+$44] 00808BB1 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00808BB3 E8F453CDFF call 004DDFAC * Possible String Reference to: ' select AA.* ' | 00808BB8 BA3C8E8000 mov edx, $00808E3C 00808BBD 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 00808BBF FF5138 call dword ptr [ecx+$38] 00808BC2 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00808BC4 E8E353CDFF call 004DDFAC * Possible String Reference to: ' from (select A.*,cast(Money as dec | imal(18,2)) yfk,cast(0 as decimal(1 | 8,2)) fk,cast(0 as decimal(18,2)) y | fkye' | 00808BC9 BA548E8000 mov edx, $00808E54 00808BCE 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 00808BD0 FF5138 call dword ptr [ecx+$38] 00808BD3 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00808BD5 E8D253CDFF call 004DDFAC * Possible String Reference to: ' from YF_Money_CR A' | 00808BDA BACC8E8000 mov edx, $00808ECC 00808BDF 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 00808BE1 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ' where A.CRTime>='' | 00808BE4 68E88E8000 push $00808EE8 * Reference to control TfrmYFFKList.begdate : TDateTimePicker | 00808BE9 8B8638030000 mov eax, [esi+$0338] 00808BEF FFB014020000 push dword ptr [eax+$0214] 00808BF5 FFB010020000 push dword ptr [eax+$0210] 00808BFB 8D55F8 lea edx, [ebp-$08] * Possible String Reference to: 'yyyy-MM-dd' | 00808BFE B8048F8000 mov eax, $00808F04 | 00808C03 E8B45FC0FF call 0040EBBC 00808C08 FF75F8 push dword ptr [ebp-$08] * Possible String Reference to: '' ' | 00808C0B 68188F8000 push $00808F18 00808C10 8D45FC lea eax, [ebp-$04] 00808C13 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 00808C18 E897CABFFF call 004056B4 00808C1D 8B45FC mov eax, [ebp-$04] 00808C20 50 push eax 00808C21 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00808C23 E88453CDFF call 004DDFAC 00808C28 5A pop edx 00808C29 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 00808C2B FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ' and A.CRTime<'' | 00808C2E 68248F8000 push $00808F24 * Reference to control TfrmYFFKList.Enddate : TDateTimePicker | 00808C33 8B863C030000 mov eax, [esi+$033C] 00808C39 DD8010020000 fld qword ptr [eax+$0210] 00808C3F D805348F8000 fadd dword ptr [$00808F34] 00808C45 83C4F8 add esp, -$08 00808C48 DD1C24 fstp qword ptr [esp] 00808C4B 9B wait 00808C4C 8D55F0 lea edx, [ebp-$10] * Possible String Reference to: 'yyyy-MM-dd' | 00808C4F B8048F8000 mov eax, $00808F04 | 00808C54 E8635FC0FF call 0040EBBC 00808C59 FF75F0 push dword ptr [ebp-$10] * Possible String Reference to: '' ' | 00808C5C 68188F8000 push $00808F18 00808C61 8D45F4 lea eax, [ebp-$0C] 00808C64 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 00808C69 E846CABFFF call 004056B4 00808C6E 8B45F4 mov eax, [ebp-$0C] 00808C71 50 push eax 00808C72 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00808C74 E83353CDFF call 004DDFAC 00808C79 5A pop edx 00808C7A 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 00808C7C FF5138 call dword ptr [ecx+$38] 00808C7F 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00808C81 E82653CDFF call 004DDFAC * Possible String Reference to: ' and A.CRType='应付款登记' ' | 00808C86 BA408F8000 mov edx, $00808F40 00808C8B 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 00808C8D FF5138 call dword ptr [ecx+$38] 00808C90 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00808C92 E81553CDFF call 004DDFAC * Possible String Reference to: ' and isnull(A.status,'0')='2' ' | 00808C97 BA648F8000 mov edx, $00808F64 00808C9C 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 00808C9E FF5138 call dword ptr [ecx+$38] 00808CA1 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00808CA3 E80453CDFF call 004DDFAC * Possible String Reference to: ' union all' | 00808CA8 BA8C8F8000 mov edx, $00808F8C 00808CAD 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 00808CAF FF5138 call dword ptr [ecx+$38] 00808CB2 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00808CB4 E8F352CDFF call 004DDFAC * Possible String Reference to: ' select A.*,cast(0 as decimal(18,2 | )) yfk,cast(Money as decimal(18,2)) | fk,cast(0 as decimal(18,2)) yfkye' | 00808CB9 BAA08F8000 mov edx, $00808FA0 00808CBE 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 00808CC0 FF5138 call dword ptr [ecx+$38] 00808CC3 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00808CC5 E8E252CDFF call 004DDFAC * Possible String Reference to: ' from YF_Money_CR A' | 00808CCA BACC8E8000 mov edx, $00808ECC 00808CCF 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 00808CD1 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ' where A.CRTime>='' | 00808CD4 68E88E8000 push $00808EE8 * Reference to control TfrmYFFKList.begdate : TDateTimePicker | 00808CD9 8B8638030000 mov eax, [esi+$0338] 00808CDF FFB014020000 push dword ptr [eax+$0214] 00808CE5 FFB010020000 push dword ptr [eax+$0210] 00808CEB 8D55E8 lea edx, [ebp-$18] * Possible String Reference to: 'yyyy-MM-dd' | 00808CEE B8048F8000 mov eax, $00808F04 | 00808CF3 E8C45EC0FF call 0040EBBC 00808CF8 FF75E8 push dword ptr [ebp-$18] * Possible String Reference to: '' ' | 00808CFB 68188F8000 push $00808F18 00808D00 8D45EC lea eax, [ebp-$14] 00808D03 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 00808D08 E8A7C9BFFF call 004056B4 00808D0D 8B45EC mov eax, [ebp-$14] 00808D10 50 push eax 00808D11 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00808D13 E89452CDFF call 004DDFAC 00808D18 5A pop edx 00808D19 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 00808D1B FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ' and A.CRTime<'' | 00808D1E 68248F8000 push $00808F24 * Reference to control TfrmYFFKList.Enddate : TDateTimePicker | 00808D23 8B863C030000 mov eax, [esi+$033C] 00808D29 DD8010020000 fld qword ptr [eax+$0210] 00808D2F D805348F8000 fadd dword ptr [$00808F34] 00808D35 83C4F8 add esp, -$08 00808D38 DD1C24 fstp qword ptr [esp] 00808D3B 9B wait 00808D3C 8D55E0 lea edx, [ebp-$20] * Possible String Reference to: 'yyyy-MM-dd' | 00808D3F B8048F8000 mov eax, $00808F04 | 00808D44 E8735EC0FF call 0040EBBC 00808D49 FF75E0 push dword ptr [ebp-$20] * Possible String Reference to: '' ' | 00808D4C 68188F8000 push $00808F18 00808D51 8D45E4 lea eax, [ebp-$1C] 00808D54 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 00808D59 E856C9BFFF call 004056B4 00808D5E 8B45E4 mov eax, [ebp-$1C] 00808D61 50 push eax 00808D62 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00808D64 E84352CDFF call 004DDFAC 00808D69 5A pop edx 00808D6A 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 00808D6C FF5138 call dword ptr [ecx+$38] 00808D6F 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00808D71 E83652CDFF call 004DDFAC * Possible String Reference to: ' and A.CRType='付款登记' ' | 00808D76 BA14908000 mov edx, $00809014 00808D7B 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 00808D7D FF5138 call dword ptr [ecx+$38] 00808D80 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00808D82 E82552CDFF call 004DDFAC * Possible String Reference to: ' and isnull(A.status,'0')='2' ) AA' | 00808D87 BA38908000 mov edx, $00809038 00808D8C 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 00808D8E FF5138 call dword ptr [ecx+$38] * Possible String Reference to: ' where AA.FactoryName='' | 00808D91 6864908000 push $00809064 * Possible String Reference to: 'FactoryName' | 00808D96 BA84908000 mov edx, $00809084 * Reference to control TfrmYFFKList.CDS_HZ : TClientDataSet | 00808D9B 8B8674030000 mov eax, [esi+$0374] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 00808DA1 E80EDECBFF call 004C6BB4 00808DA6 8D55D4 lea edx, [ebp-$2C] 00808DA9 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 00808DAB FF5160 call dword ptr [ecx+$60] 00808DAE 8B45D4 mov eax, [ebp-$2C] 00808DB1 8D55D8 lea edx, [ebp-$28] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 00808DB4 E8331BC0FF call 0040A8EC 00808DB9 FF75D8 push dword ptr [ebp-$28] 00808DBC 6898908000 push $00809098 00808DC1 8D45DC lea eax, [ebp-$24] 00808DC4 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 00808DC9 E8E6C8BFFF call 004056B4 00808DCE 8B45DC mov eax, [ebp-$24] 00808DD1 50 push eax 00808DD2 8BC3 mov eax, ebx * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 00808DD4 E8D351CDFF call 004DDFAC 00808DD9 5A pop edx 00808DDA 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 00808DDC FF5138 call dword ptr [ecx+$38] 00808DDF 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Open(TDataSet); | 00808DE1 E8E2CACBFF call 004C58C8 * Reference to control TfrmYFFKList.YForder_Sub : TClientDataSet | 00808DE6 8B96C0030000 mov edx, [esi+$03C0] * Reference to control TfrmYFFKList.ADOQueryCmd : TADOQuery | 00808DEC 8B8608030000 mov eax, [esi+$0308] | 00808DF2 E899E0FAFF call 007B6E90 * Reference to control TfrmYFFKList.YForder_Sub : TClientDataSet | 00808DF7 8B96C0030000 mov edx, [esi+$03C0] * Reference to control TfrmYFFKList.ADOQueryCmd : TADOQuery | 00808DFD 8B8608030000 mov eax, [esi+$0308] | 00808E03 E810E2FAFF call 007B7018 00808E08 33C0 xor eax, eax 00808E0A 5A pop edx 00808E0B 59 pop ecx 00808E0C 59 pop ecx 00808E0D 648910 mov fs:[eax], edx ****** FINALLY | 00808E10 682A8E8000 push $00808E2A 00808E15 8D45D4 lea eax, [ebp-$2C] 00808E18 BA0B000000 mov edx, $0000000B * Reference to: System.@LStrArrayClr(void;void;Integer); | 00808E1D E826C5BFFF call 00405348 00808E22 C3 ret * Reference to: System.@HandleFinally; | 00808E23 E9CCBCBFFF jmp 00404AF4 00808E28 EBEB jmp 00808E15 ****** END | 00808E2A 5E pop esi 00808E2B 5B pop ebx 00808E2C 8BE5 mov esp, ebp 00808E2E 5D pop ebp 00808E2F C20C00 ret $000C *) end; procedure TfrmYFFKList.TFPClick(Sender : TObject); begin (* 0080909C 55 push ebp 0080909D 8BEC mov ebp, esp 0080909F 6A00 push $00 008090A1 6A00 push $00 008090A3 53 push ebx 008090A4 8BD8 mov ebx, eax 008090A6 33C0 xor eax, eax 008090A8 55 push ebp 008090A9 6838918000 push $00809138 ***** TRY | 008090AE 64FF30 push dword ptr fs:[eax] 008090B1 648920 mov fs:[eax], esp 008090B4 8BCB mov ecx, ebx 008090B6 B201 mov dl, $01 * Reference to class TfrmYSSKList_KPFK | 008090B8 A14C658000 mov eax, dword ptr [$0080654C] * Reference to: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent); | or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent); | 008090BD E80E8DC9FF call 004A1DD0 *) end; procedure TfrmYFFKList.Tv2CellDblClick(Sender : TObject); begin (* 00809158 55 push ebp 00809159 8BEC mov ebp, esp 0080915B 56 push esi * Reference to control TfrmYFFKList.TFP : TToolButton | 0080915C 8B80D8030000 mov eax, [eax+$03D8] 00809162 66BEEBFF mov si, $FFEB * Reference to: System.@CallDynaInst; | 00809166 E8E9B3BFFF call 00404554 0080916B 5E pop esi 0080916C 5D pop ebp 0080916D C20C00 ret $000C *) end; procedure TfrmYFFKList._PROC_00809170(Sender : TObject); begin (* 00809170 55 push ebp 00809171 8BEC mov ebp, esp 00809173 33C0 xor eax, eax 00809175 55 push ebp * Possible String Reference to: '閆箍滕]脣纼-<' | 00809176 6895918000 push $00809195 ***** TRY | 0080917B 64FF30 push dword ptr fs:[eax] 0080917E 648920 mov fs:[eax], esp 00809181 FF05FC3C8900 inc dword ptr [$00893CFC] 00809187 33C0 xor eax, eax 00809189 5A pop edx 0080918A 59 pop ecx 0080918B 59 pop ecx 0080918C 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: ']脣纼-<' | 0080918F 689C918000 push $0080919C 00809194 C3 ret * Reference to: System.@HandleFinally; | 00809195 E95AB9BFFF jmp 00404AF4 0080919A EBF8 jmp 00809194 ****** END | 0080919C 5D pop ebp 0080919D C3 ret *) end; procedure TfrmYFFKList._PROC_008091A0(Sender : TObject); begin (* 008091A0 832DFC3C890001 sub dword ptr [$00893CFC], +$01 008091A7 C3 ret *) end; procedure TfrmYFFKList._PROC_00809421(Sender : TObject); begin (* 00809421 8BEC mov ebp, esp 00809423 33C0 xor eax, eax 00809425 55 push ebp * Possible String Reference to: '門犊滕]脙-' | 00809426 689B948000 push $0080949B ***** TRY | 0080942B 64FF30 push dword ptr fs:[eax] 0080942E 648920 mov fs:[eax], esp 00809431 FF05003D8900 inc dword ptr [$00893D00] 00809437 7554 jnz 0080948D 00809439 B800008900 mov eax, $00890000 0080943E B90A000000 mov ecx, $0000000A * Reference to object String | 00809443 8B1520114000 mov edx, [$00401120] * Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal); | 00809449 E8C6CCBFFF call 00406114 0080944E B8F0FF8800 mov eax, $0088FFF0 00809453 B904000000 mov ecx, $00000004 * Reference to object String | 00809458 8B1520114000 mov edx, [$00401120] * Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal); | 0080945E E8B1CCBFFF call 00406114 00809463 B8A4FF8800 mov eax, $0088FFA4 00809468 B913000000 mov ecx, $00000013 * Reference to object String | 0080946D 8B1520114000 mov edx, [$00401120] * Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal); | 00809473 E89CCCBFFF call 00406114 00809478 B884FF8800 mov eax, $0088FF84 0080947D B908000000 mov ecx, $00000008 * Reference to object String | 00809482 8B1520114000 mov edx, [$00401120] * Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal); | 00809488 E887CCBFFF call 00406114 0080948D 33C0 xor eax, eax 0080948F 5A pop edx 00809490 59 pop ecx 00809491 59 pop ecx 00809492 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: ']脙-' | 00809495 68A2948000 push $008094A2 0080949A C3 ret * Reference to: System.@HandleFinally; | 0080949B E954B6BFFF jmp 00404AF4 008094A0 EBF8 jmp 0080949A ****** END | 008094A2 5D pop ebp 008094A3 C3 ret *) end; procedure TfrmYFFKList._PROC_008094A4(Sender : TObject); begin (* 008094A4 832D003D890001 sub dword ptr [$00893D00], +$01 008094AB C3 ret *) end; procedure TfrmYFFKList._PROC_008094AC(Sender : TObject); begin (* 008094AC 55 push ebp 008094AD 8BEC mov ebp, esp 008094AF 33C0 xor eax, eax 008094B1 55 push ebp 008094B2 68D1948000 push $008094D1 ***** TRY | 008094B7 64FF30 push dword ptr fs:[eax] 008094BA 648920 mov fs:[eax], esp 008094BD FF05043D8900 inc dword ptr [$00893D04] 008094C3 33C0 xor eax, eax 008094C5 5A pop edx 008094C6 59 pop ecx 008094C7 59 pop ecx 008094C8 648910 mov fs:[eax], edx ****** FINALLY | 008094CB 68D8948000 push $008094D8 008094D0 C3 ret * Reference to: System.@HandleFinally; | 008094D1 E91EB6BFFF jmp 00404AF4 008094D6 EBF8 jmp 008094D0 ****** END | 008094D8 5D pop ebp 008094D9 C3 ret *) end; procedure TfrmYFFKList._PROC_008094DC(Sender : TObject); begin (* 008094DC 832D043D890001 sub dword ptr [$00893D04], +$01 008094E3 C3 ret *) end; procedure TfrmYFFKList._PROC_008094E4(Sender : TObject); begin (* 008094E4 55 push ebp 008094E5 8BEC mov ebp, esp 008094E7 33C0 xor eax, eax 008094E9 55 push ebp 008094EA 6809958000 push $00809509 ***** TRY | 008094EF 64FF30 push dword ptr fs:[eax] 008094F2 648920 mov fs:[eax], esp 008094F5 FF05083D8900 inc dword ptr [$00893D08] 008094FB 33C0 xor eax, eax 008094FD 5A pop edx 008094FE 59 pop ecx 008094FF 59 pop ecx 00809500 648910 mov fs:[eax], edx ****** FINALLY | 00809503 6810958000 push $00809510 00809508 C3 ret * Reference to: System.@HandleFinally; | 00809509 E9E6B5BFFF jmp 00404AF4 0080950E EBF8 jmp 00809508 ****** END | 00809510 5D pop ebp 00809511 C3 ret *) end; procedure TfrmYFFKList._PROC_00809514(Sender : TObject); begin (* 00809514 832D083D890001 sub dword ptr [$00893D08], +$01 0080951B C3 ret *) end; procedure TfrmYFFKList._PROC_0080951C(Sender : TObject); begin (* 0080951C 53 push ebx 0080951D 8BD8 mov ebx, eax 0080951F 53 push ebx * Reference to: shell32.SHGetDesktopFolder() | 00809520 E8BB4FC3FF call 0043E4E0 * Reference to: ComObj.OleCheck(HRESULT); | 00809525 E88E8DCAFF call 004B22B8 0080952A 5B pop ebx 0080952B C3 ret *) end; procedure TfrmYFFKList._PROC_0080952C(Sender : TObject); begin (* 0080952C 55 push ebp 0080952D 8BEC mov ebp, esp 0080952F 83C4F8 add esp, -$08 00809532 53 push ebx 00809533 56 push esi 00809534 33DB xor ebx, ebx 00809536 895DF8 mov [ebp-$08], ebx 00809539 8BF1 mov esi, ecx 0080953B 8BD8 mov ebx, eax 0080953D 33C0 xor eax, eax 0080953F 55 push ebp * Possible String Reference to: '+悼腽^[YY]脥@' | 00809540 68C4958000 push $008095C4 ***** TRY | 00809545 64FF30 push dword ptr fs:[eax] 00809548 648920 mov fs:[eax], esp 0080954B 8B03 mov eax, [ebx] 0080954D 83E801 sub eax, +$01 00809550 723D jb 0080958F 00809552 741A jz 0080956E 00809554 48 dec eax 00809555 7557 jnz 008095AE * Reference to field TfrmYFFKList.Owner : TComponent | 00809557 8D4304 lea eax, [ebx+$04] 0080955A 50 push eax * Reference to: kernel32.lstrlenA() | 0080955B E834EEBFFF call 00408394 00809560 8BC8 mov ecx, eax * Reference to field TfrmYFFKList.Owner : TComponent | 00809562 8D5304 lea edx, [ebx+$04] 00809565 8BC6 mov eax, esi * Reference to: System.@WStrFromPCharLen(WideString;WideString;PAnsiChar;Integer); | 00809567 E83CC5BFFF call 00405AA8 0080956C EB40 jmp 008095AE * Reference to field TComponent.OFFS_0002 | 0080956E 8D4202 lea eax, [edx+$02] 00809571 8945FC mov [ebp-$04], eax * Reference to field TfrmYFFKList.Owner : TComponent | 00809574 8B4304 mov eax, [ebx+$04] 00809577 83E802 sub eax, +$02 0080957A 0145FC add [ebp-$04], eax 0080957D 0FB70A movzx ecx, word ptr [edx] 00809580 2B4B04 sub ecx, dword ptr [ebx+$04] 00809583 8BC6 mov eax, esi 00809585 8B55FC mov edx, [ebp-$04] * Reference to: System.@WStrFromPCharLen(WideString;WideString;PAnsiChar;Integer); | 00809588 E81BC5BFFF call 00405AA8 0080958D EB1F jmp 008095AE 0080958F 8BD6 mov edx, esi 00809591 8B4304 mov eax, [ebx+$04] * Reference to : TfrmYFFKList._PROC_00809618() | 00809594 E87F000000 call 00809618 00809599 8B4304 mov eax, [ebx+$04] 0080959C 50 push eax 0080959D 8D45F8 lea eax, [ebp-$08] * Reference to : TfrmYFFKList._PROC_008095D4() | 008095A0 E82F000000 call 008095D4 008095A5 8B45F8 mov eax, [ebp-$08] 008095A8 50 push eax 008095A9 8B00 mov eax, [eax] 008095AB FF5014 call dword ptr [eax+$14] 008095AE 33C0 xor eax, eax 008095B0 5A pop edx 008095B1 59 pop ecx 008095B2 59 pop ecx 008095B3 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '^[YY]脥@' | 008095B6 68CB958000 push $008095CB 008095BB 8D45F8 lea eax, [ebp-$08] * Reference to: System.@IntfClear(IInterface;IInterface):Pointer; | 008095BE E84DDFBFFF call 00407510 008095C3 C3 ret * Reference to: System.@HandleFinally; | 008095C4 E92BB5BFFF jmp 00404AF4 008095C9 EBF0 jmp 008095BB ****** END | 008095CB 5E pop esi 008095CC 5B pop ebx 008095CD 59 pop ecx 008095CE 59 pop ecx 008095CF 5D pop ebp 008095D0 C3 ret *) end; procedure TfrmYFFKList._PROC_008095D4(Sender : TObject); begin (* 008095D4 53 push ebx 008095D5 8BD8 mov ebx, eax 008095D7 833D1C3D890000 cmp dword ptr [$00893D1C], +$00 008095DE 750A jnz 008095EA 008095E0 681C3D8900 push $00893D1C * Reference to: shell32.SHGetMalloc() | 008095E5 E8FE4EC3FF call 0043E4E8 008095EA 8BC3 mov eax, ebx 008095EC 8B151C3D8900 mov edx, [$00893D1C] * Reference to: System.@IntfCopy(IInterface;IInterface;IInterface); | 008095F2 E831DFBFFF call 00407528 008095F7 5B pop ebx 008095F8 C3 ret *) end; procedure TfrmYFFKList._PROC_008095FC(Sender : TObject); begin (* 008095FC 89FA mov edx, edi 008095FE 89C7 mov edi, eax 00809600 B9FFFFFFFF mov ecx, $FFFFFFFF 00809605 6631C0 xor ax, ax 00809608 F2 repne 00809609 66AF scasw 0080960B B8FEFFFFFF mov eax, $FFFFFFFE 00809610 29C8 sub eax, ecx 00809612 89D7 mov edi, edx 00809614 C3 ret *) end; procedure TfrmYFFKList._PROC_00809618(Sender : TObject); begin (* 00809618 53 push ebx 00809619 56 push esi 0080961A 57 push edi 0080961B 8BFA mov edi, edx 0080961D 8BF0 mov esi, eax 0080961F 8BC6 mov eax, esi * Reference to : TfrmYFFKList._PROC_008095FC() | 00809621 E8D6FFFFFF call 008095FC 00809626 8BD8 mov ebx, eax 00809628 8BC7 mov eax, edi 0080962A 8BD3 mov edx, ebx | 0080962C E85FC9BFFF call 00405F90 00809631 8BCB mov ecx, ebx 00809633 03C9 add ecx, ecx 00809635 8B07 mov eax, [edi] 00809637 8BD6 mov edx, esi * Reference to: Classes.TPersistent.AssignTo(TPersistent;TPersistent); | or: Classes.TComponent.ReadState(TComponent;TReader); | or: FMTBcd.VarFMTBcdCreate(TBcd;TBcd):Variant;overload; | or: QGraphics.TGraphic.AssignsTo(classofTGraphic;TGraphicClass):Boolean; | or: SqlTimSt.VarSQLTimeStampCreate(TSQLTimeStamp;TSQLTimeStamp):Variant;overload; | or: System.WideCharToStrVar(PWideChar;String;String); | 00809639 E866F8BFFF call 00408EA4 0080963E 5F pop edi 0080963F 5E pop esi 00809640 5B pop ebx 00809641 C3 ret *) end; procedure TfrmYFFKList._PROC_00809644(Sender : TObject); begin (* 00809644 55 push ebp 00809645 8BEC mov ebp, esp 00809647 83C4F4 add esp, -$0C 0080964A 53 push ebx 0080964B 56 push esi 0080964C 33C9 xor ecx, ecx 0080964E 894DF4 mov [ebp-$0C], ecx 00809651 8BF2 mov esi, edx 00809653 8BD8 mov ebx, eax 00809655 33C0 xor eax, eax 00809657 55 push ebp 00809658 6836978000 push $00809736 ***** TRY | 0080965D 64FF30 push dword ptr fs:[eax] 00809660 648920 mov fs:[eax], esp 00809663 8BC6 mov eax, esi * Reference to: System.@WStrClr(void;void); | 00809665 E8D6C3BFFF call 00405A40 0080966A 85DB test ebx, ebx 0080966C 0F84AE000000 jz 00809720 00809672 833D2C00890000 cmp dword ptr [$0089002C], +$00 00809679 7558 jnz 008096D3 0080967B B805010000 mov eax, $00000105 | 00809680 E83795BFFF call 00402BBC 00809685 8945FC mov [ebp-$04], eax 00809688 33C0 xor eax, eax 0080968A 55 push ebp 0080968B 68CC968000 push $008096CC ***** TRY | 00809690 64FF30 push dword ptr fs:[eax] 00809693 648920 mov fs:[eax], esp 00809696 8B45FC mov eax, [ebp-$04] 00809699 50 push eax 0080969A 53 push ebx 0080969B FF1528008900 call dword ptr [$00890028] 008096A1 8D55F4 lea edx, [ebp-$0C] 008096A4 8B45FC mov eax, [ebp-$04] * Reference to: Dialogs.FixFileName(AnsiString):AnsiString; | or: SysUtils.StrPas(PChar):AnsiString; | 008096A7 E8C02FC0FF call 0040C66C 008096AC 8B55F4 mov edx, [ebp-$0C] 008096AF 8BC6 mov eax, esi * Reference to: System.@WStrFromLStr(WideString;WideString;String); | 008096B1 E852C5BFFF call 00405C08 008096B6 33C0 xor eax, eax 008096B8 5A pop edx 008096B9 59 pop ecx 008096BA 59 pop ecx 008096BB 648910 mov fs:[eax], edx ****** FINALLY | 008096BE 6820978000 push $00809720 008096C3 8B45FC mov eax, [ebp-$04] * Reference to: System.@FreeMem(Pointer):Integer; | 008096C6 E82195BFFF call 00402BEC 008096CB C3 ret * Reference to: System.@HandleFinally; | 008096CC E923B4BFFF jmp 00404AF4 008096D1 EBF0 jmp 008096C3 008096D3 B80A020000 mov eax, $0000020A | 008096D8 E8DF94BFFF call 00402BBC 008096DD 8945F8 mov [ebp-$08], eax 008096E0 33C0 xor eax, eax 008096E2 55 push ebp 008096E3 6819978000 push $00809719 ***** TRY | 008096E8 64FF30 push dword ptr fs:[eax] 008096EB 648920 mov fs:[eax], esp 008096EE 8B45F8 mov eax, [ebp-$08] 008096F1 50 push eax 008096F2 53 push ebx 008096F3 FF152C008900 call dword ptr [$0089002C] 008096F9 8BD6 mov edx, esi 008096FB 8B45F8 mov eax, [ebp-$08] * Reference to : TfrmYFFKList._PROC_00809618() | 008096FE E815FFFFFF call 00809618 00809703 33C0 xor eax, eax 00809705 5A pop edx 00809706 59 pop ecx 00809707 59 pop ecx 00809708 648910 mov fs:[eax], edx ****** FINALLY | 0080970B 6820978000 push $00809720 00809710 8B45F8 mov eax, [ebp-$08] * Reference to: System.@FreeMem(Pointer):Integer; | 00809713 E8D494BFFF call 00402BEC 00809718 C3 ret * Reference to: System.@HandleFinally; | 00809719 E9D6B3BFFF jmp 00404AF4 0080971E EBF0 jmp 00809710 ****** END | 00809720 33C0 xor eax, eax 00809722 5A pop edx 00809723 59 pop ecx 00809724 59 pop ecx 00809725 648910 mov fs:[eax], edx ****** FINALLY | 00809728 683D978000 push $0080973D 0080972D 8D45F4 lea eax, [ebp-$0C] * Reference to: System.@LStrClr(void;void); | 00809730 E8EFBBBFFF call 00405324 00809735 C3 ret * Reference to: System.@HandleFinally; | 00809736 E9B9B3BFFF jmp 00404AF4 0080973B EBF0 jmp 0080972D ****** END | 0080973D 5E pop esi 0080973E 5B pop ebx 0080973F 8BE5 mov esp, ebp 00809741 5D pop ebp 00809742 C3 ret *) end; procedure TfrmYFFKList._PROC_00809744(Sender : TObject); begin (* 00809744 83C4F8 add esp, -$08 00809747 890424 mov [esp], eax 0080974A 85C0 test eax, eax 0080974C 7424 jz 00809772 0080974E 89442404 mov [esp+$04], eax 00809752 EB14 jmp 00809768 00809754 8B442404 mov eax, [esp+$04] 00809758 890424 mov [esp], eax 0080975B 8B442404 mov eax, [esp+$04] * Reference to : TfrmYFFKList._PROC_00809800() | 0080975F E89C000000 call 00809800 00809764 89442404 mov [esp+$04], eax 00809768 8B442404 mov eax, [esp+$04] 0080976C 66833800 cmp word ptr [eax], +$00 00809770 75E2 jnz 00809754 00809772 8B0424 mov eax, [esp] 00809775 59 pop ecx 00809776 5A pop edx 00809777 C3 ret *) end; procedure TfrmYFFKList._PROC_00809778(Sender : TObject); begin (* 00809778 55 push ebp 00809779 8BEC mov ebp, esp 0080977B 6A00 push $00 0080977D 53 push ebx 0080977E 8BD8 mov ebx, eax 00809780 33C0 xor eax, eax 00809782 55 push ebp * Possible String Reference to: '5晨腽[Y]脥@' | 00809783 68BA978000 push $008097BA ***** TRY | 00809788 64FF30 push dword ptr fs:[eax] 0080978B 648920 mov fs:[eax], esp 0080978E 85DB test ebx, ebx 00809790 7412 jz 008097A4 00809792 53 push ebx 00809793 8D45FC lea eax, [ebp-$04] * Reference to : TfrmYFFKList._PROC_008095D4() | 00809796 E839FEFFFF call 008095D4 0080979B 8B45FC mov eax, [ebp-$04] 0080979E 50 push eax 0080979F 8B00 mov eax, [eax] 008097A1 FF5014 call dword ptr [eax+$14] 008097A4 33C0 xor eax, eax 008097A6 5A pop edx 008097A7 59 pop ecx 008097A8 59 pop ecx 008097A9 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '[Y]脥@' | 008097AC 68C1978000 push $008097C1 008097B1 8D45FC lea eax, [ebp-$04] * Reference to: System.@IntfClear(IInterface;IInterface):Pointer; | 008097B4 E857DDBFFF call 00407510 008097B9 C3 ret * Reference to: System.@HandleFinally; | 008097BA E935B3BFFF jmp 00404AF4 008097BF EBF0 jmp 008097B1 ****** END | 008097C1 5B pop ebx 008097C2 59 pop ecx 008097C3 5D pop ebp 008097C4 C3 ret *) end; procedure TfrmYFFKList._PROC_008097C8(Sender : TObject); begin (* 008097C8 53 push ebx 008097C9 51 push ecx 008097CA 890424 mov [esp], eax 008097CD 33DB xor ebx, ebx 008097CF 833C2400 cmp dword ptr [esp], +$00 008097D3 7424 jz 008097F9 008097D5 EB19 jmp 008097F0 008097D7 43 inc ebx 008097D8 8B0424 mov eax, [esp] * Reference to : TfrmYFFKList._PROC_00809800() | 008097DB E820000000 call 00809800 008097E0 890424 mov [esp], eax 008097E3 81FB04010000 cmp ebx, $00000104 008097E9 7E05 jle 008097F0 008097EB 83CBFF or ebx, -$01 008097EE EB09 jmp 008097F9 008097F0 8B0424 mov eax, [esp] 008097F3 66833800 cmp word ptr [eax], +$00 008097F7 75DE jnz 008097D7 008097F9 8BC3 mov eax, ebx 008097FB 5A pop edx 008097FC 5B pop ebx 008097FD C3 ret *) end; procedure TfrmYFFKList._PROC_00809800(Sender : TObject); begin (* 00809800 51 push ecx 00809801 33D2 xor edx, edx 00809803 891424 mov [esp], edx 00809806 85C0 test eax, eax 00809808 740E jz 00809818 0080980A 66833800 cmp word ptr [eax], +$00 0080980E 7408 jz 00809818 00809810 0FB710 movzx edx, word ptr [eax] 00809813 03D0 add edx, eax 00809815 891424 mov [esp], edx 00809818 8B0424 mov eax, [esp] 0080981B 5A pop edx 0080981C C3 ret *) end; procedure TfrmYFFKList._PROC_00809820(Sender : TObject); begin (* 00809820 53 push ebx 00809821 BB30008900 mov ebx, $00890030 00809826 6A00 push $00 * Reference to: ole32.OleInitialize() | 00809828 E8C75EC1FF call 0041F6F4 * Possible String Reference to: 'shell32.dll' | 0080982D 68A0988000 push $008098A0 * Reference to: kernel32.LoadLibraryA() | 00809832 E865EABFFF call 0040829C 00809837 8903 mov [ebx], eax * Possible String Reference to: 'SHGetFolderLocation' | 00809839 68AC988000 push $008098AC 0080983E 8B03 mov eax, [ebx] 00809840 50 push eax * Reference to: kernel32.GetProcAddress() | 00809841 E896E9BFFF call 004081DC * Reference to GlobalVar_00893D18 | 00809846 A3183D8900 mov dword ptr [$00893D18], eax 0080984B 6A02 push $02 0080984D 8B03 mov eax, [ebx] 0080984F 50 push eax * Reference to: kernel32.GetProcAddress() | 00809850 E887E9BFFF call 004081DC * Reference to GlobalVar_00893D0C | 00809855 A30C3D8900 mov dword ptr [$00893D0C], eax 0080985A 6A04 push $04 0080985C 8B03 mov eax, [ebx] 0080985E 50 push eax * Reference to: kernel32.GetProcAddress() | 0080985F E878E9BFFF call 004081DC * Reference to GlobalVar_00893D10 | 00809864 A3103D8900 mov dword ptr [$00893D10], eax * Possible String Reference to: 'SHGetPathFromIDListA' | 00809869 68C0988000 push $008098C0 0080986E 8B03 mov eax, [ebx] 00809870 50 push eax * Reference to: kernel32.GetProcAddress() | 00809871 E866E9BFFF call 004081DC *) end; procedure TfrmYFFKList._PROC_0080989F(Sender : TObject); begin (* 0080989F 007368 add [ebx+$68], dh 008098A2 656C insb 008098A4 6C insb 008098A5 3332 xor esi, [edx] 008098A7 2E646C insb 008098AA 6C insb 008098AB 005348 add [ebx+$48], dl 008098AE 47 inc edi 008098AF 657446 jz 008098F8 008098B2 6F outsd 008098B3 6C insb 008098B4 6465724C jb 00809904 008098B8 6F outsd 008098B9 636174 arpl [ecx+$74], sp 008098BC 696F6E00534847 imul ebp, [edi+$6E], $47485300 008098C3 657450 jz 00809916 008098C6 61 popa 008098C7 7468 jz 00809931 008098C9 46 inc esi 008098CA 726F jb 0080993B 008098CC 6D insd 008098CD 49 dec ecx 008098CE 44 inc esp 008098CF 4C dec esp 008098D0 69737441000000 imul esi, [ebx+$74], $00000041 008098D7 005348 add [ebx+$48], dl 008098DA 47 inc edi 008098DB 657450 jz 0080992E 008098DE 61 popa 008098DF 7468 jz 00809949 008098E1 46 inc esi 008098E2 726F jb 00809953 008098E4 6D insd 008098E5 49 dec ecx 008098E6 44 inc esp 008098E7 4C dec esp 008098E8 69737457000000 imul esi, [ebx+$74], $00000057 008098EF 00558B add [ebp-$75], dl 008098F2 EC in al, dx 008098F3 33C0 xor eax, eax 008098F5 55 push ebp * Possible String Reference to: '闁笨滕]脣繳嬱3繳h憴' | 008098F6 6859998000 push $00809959 ***** TRY | 008098FB 64FF30 push dword ptr fs:[eax] 008098FE 648920 mov fs:[eax], esp 00809901 FF05143D8900 inc dword ptr [$00893D14] 00809907 7542 jnz 0080994B 00809909 B81C3D8900 mov eax, $00893D1C * Reference to: System.@IntfClear(IInterface;IInterface):Pointer; | 0080990E E8FDDBBFFF call 00407510 00809913 833D3000890000 cmp dword ptr [$00890030], +$00 0080991A 740B jz 00809927 *) end; procedure TfrmYFFKList._PROC_00809964(Sender : TObject); begin (* 00809964 55 push ebp 00809965 8BEC mov ebp, esp 00809967 33C0 xor eax, eax 00809969 55 push ebp * Possible String Reference to: '閊笨滕]脣繳嬱3繳h貦' | 0080996A 6891998000 push $00809991 ***** TRY | 0080996F 64FF30 push dword ptr fs:[eax] 00809972 648920 mov fs:[eax], esp 00809975 832D143D890001 sub dword ptr [$00893D14], +$01 0080997C 7305 jnb 00809983 * Reference to : TfrmYFFKList._PROC_00809820() | 0080997E E89DFEFFFF call 00809820 00809983 33C0 xor eax, eax 00809985 5A pop edx 00809986 59 pop ecx 00809987 59 pop ecx 00809988 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: ']脣繳嬱3繳h貦' | 0080998B 6898998000 push $00809998 00809990 C3 ret * Reference to: System.@HandleFinally; | 00809991 E95EB1BFFF jmp 00404AF4 00809996 EBF8 jmp 00809990 ****** END | 00809998 5D pop ebp 00809999 C3 ret *) end; procedure TfrmYFFKList._PROC_0080999C(Sender : TObject); begin (* 0080999C 55 push ebp 0080999D 8BEC mov ebp, esp 0080999F 33C0 xor eax, eax 008099A1 55 push ebp 008099A2 68D8998000 push $008099D8 ***** TRY | 008099A7 64FF30 push dword ptr fs:[eax] 008099AA 648920 mov fs:[eax], esp 008099AD FF05283D8900 inc dword ptr [$00893D28] 008099B3 7515 jnz 008099CA 008099B5 A12C3D8900 mov eax, dword ptr [$00893D2C] 008099BA 50 push eax * Reference to: kernel32.CloseHandle() | 008099BB E89CE6BFFF call 0040805C 008099C0 B8303D8900 mov eax, $00893D30 * Reference to: System.@IntfClear(IInterface;IInterface):Pointer; | 008099C5 E846DBBFFF call 00407510 008099CA 33C0 xor eax, eax 008099CC 5A pop edx 008099CD 59 pop ecx 008099CE 59 pop ecx 008099CF 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: ']脥@' | 008099D2 68DF998000 push $008099DF 008099D7 C3 ret * Reference to: System.@HandleFinally; | 008099D8 E917B1BFFF jmp 00404AF4 008099DD EBF8 jmp 008099D7 ****** END | 008099DF 5D pop ebp 008099E0 C3 ret *) end; procedure TfrmYFFKList._PROC_008099E4(Sender : TObject); begin (* 008099E4 55 push ebp 008099E5 8BEC mov ebp, esp 008099E7 33C0 xor eax, eax 008099E9 55 push ebp * Possible String Reference to: '樘翱滕]0殌' | 008099EA 68239A8000 push $00809A23 ***** TRY | 008099EF 64FF30 push dword ptr fs:[eax] 008099F2 648920 mov fs:[eax], esp 008099F5 832D283D890001 sub dword ptr [$00893D28], +$01 008099FC 7317 jnb 00809A15 008099FE C605343D890000 mov byte ptr [$00893D34], $00 00809A05 6A00 push $00 00809A07 6AFF push $FF 00809A09 6A00 push $00 | 00809A0B E88CE6BFFF call 0040809C * Reference to GlobalVar_00893D2C | 00809A10 A32C3D8900 mov dword ptr [$00893D2C], eax 00809A15 33C0 xor eax, eax 00809A17 5A pop edx 00809A18 59 pop ecx 00809A19 59 pop ecx 00809A1A 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: ']0殌' | 00809A1D 682A9A8000 push $00809A2A 00809A22 C3 ret * Reference to: System.@HandleFinally; | 00809A23 E9CCB0BFFF jmp 00404AF4 00809A28 EBF8 jmp 00809A22 ****** END | 00809A2A 5D pop ebp 00809A2B C3 ret *) end; procedure TfrmYFFKList._PROC_00809A2C(Sender : TObject); begin (* 00809A2C 309A80000E22 xor [edx+$220E0080], bl 00809A32 54 push esp 00809A33 637853 arpl [eax+$53], di 00809A36 68656C6C53 push $536C6C65 00809A3B 7065 jo 00809AA2 00809A3D 636961 arpl [ecx+$61], bp 00809A40 6C insb 00809A41 46 inc esi 00809A42 6F outsd 00809A43 6C insb 00809A44 64657249 jb 00809A91 00809A48 6E outsb 00809A49 666F outsw 00809A4B 54 push esp 00809A4C 61 popa 00809A4D 626C6549 bound ebp, qword ptr [ebp+$49] 00809A51 7465 jz 00809AB8 00809A53 6D insd 00809A54 1400 adc al, $00 00809A56 0000 add [eax], al 00809A58 0300 add eax, [eax] 00809A5A 0000 add [eax], al 00809A5C 2011 and [ecx], dl 00809A5E 40 inc eax 00809A5F 0008 add [eax], cl 00809A61 0000 add [eax], al 00809A63 0020 add [eax], ah 00809A65 114000 adc [eax+$00], eax 00809A68 0C00 or al, $00 00809A6A 0000 add [eax], al 00809A6C 2011 and [ecx], dl 00809A6E 40 inc eax 00809A6F 0010 add [eax], dl 00809A71 0000 add [eax], al 00809A73 005356 add [ebx+$56], dl 00809A76 BE23000000 mov esi, $00000023 00809A7B BB3C3D8900 mov ebx, $00893D3C 00809A80 8B03 mov eax, [ebx] * Reference to : TfrmYFFKList._PROC_00809778() | 00809A82 E8F1FCFFFF call 00809778 00809A87 33C0 xor eax, eax 00809A89 8903 mov [ebx], eax 00809A8B 83C314 add ebx, +$14 00809A8E 4E dec esi 00809A8F 75EF jnz 00809A80 00809A91 5E pop esi 00809A92 5B pop ebx 00809A93 C3 ret 00809A94 55 push ebp 00809A95 8BEC mov ebp, esp 00809A97 81C4D8FEFFFF add esp, $FFFFFED8 00809A9D 53 push ebx 00809A9E 56 push esi 00809A9F 57 push edi 00809AA0 33DB xor ebx, ebx 00809AA2 899DD8FEFFFF mov [ebp+$FFFFFED8], ebx 00809AA8 899DE0FEFFFF mov [ebp+$FFFFFEE0], ebx 00809AAE 899DDCFEFFFF mov [ebp+$FFFFFEDC], ebx 00809AB4 899DE4FEFFFF mov [ebp+$FFFFFEE4], ebx 00809ABA 899DE8FEFFFF mov [ebp+$FFFFFEE8], ebx 00809AC0 895DF8 mov [ebp-$08], ebx 00809AC3 8BF9 mov edi, ecx 00809AC5 8855FF mov [ebp-$01], dl 00809AC8 8BD8 mov ebx, eax 00809ACA 33C0 xor eax, eax 00809ACC 55 push ebp * Possible String Reference to: '閫胧_^[嬪]' | 00809ACD 686F9C8000 push $00809C6F ***** TRY | 00809AD2 64FF30 push dword ptr fs:[eax] 00809AD5 648920 mov fs:[eax], esp 00809AD8 807DFF00 cmp byte ptr [ebp-$01], $00 00809ADC 7423 jz 00809B01 00809ADE 8D95E8FEFFFF lea edx, [ebp+$FFFFFEE8] 00809AE4 8BC3 mov eax, ebx * Reference to : TfrmYFFKList._PROC_00809644() | 00809AE6 E859FBFFFF call 00809644 00809AEB 8B95E8FEFFFF mov edx, [ebp+$FFFFFEE8] 00809AF1 8BC7 mov eax, edi * Reference to: System.@LStrFromWStr(String;String;WideString); | 00809AF3 E8C4BABFFF call 004055BC 00809AF8 833F00 cmp dword ptr [edi], +$00 00809AFB 0F8532010000 jnz 00809C33 00809B01 8D45F8 lea eax, [ebp-$08] * Reference to: ShellCtrls.DesktopShellFolder:IShellFolder; | 00809B04 E813FAFFFF call 0080951C 00809B09 8BC3 mov eax, ebx * Reference to : TfrmYFFKList._PROC_008097C8() | 00809B0B E8B8FCFFFF call 008097C8 00809B10 8BF0 mov esi, eax 00809B12 33C0 xor eax, eax 00809B14 8A45FF mov al, byte ptr [ebp-$01] 00809B17 03F0 add esi, eax 00809B19 4E dec esi 00809B1A 85F6 test esi, esi 00809B1C 0F8ED8000000 jle 00809BFA 00809B22 0FB703 movzx eax, word ptr [ebx] 00809B25 83C004 add eax, +$04 00809B28 50 push eax 00809B29 8D85E4FEFFFF lea eax, [ebp+$FFFFFEE4] * Reference to : TfrmYFFKList._PROC_008095D4() | 00809B2F E8A0FAFFFF call 008095D4 00809B34 8B85E4FEFFFF mov eax, [ebp+$FFFFFEE4] 00809B3A 50 push eax 00809B3B 8B00 mov eax, [eax] 00809B3D FF500C call dword ptr [eax+$0C] 00809B40 8945F4 mov [ebp-$0C], eax 00809B43 0FB713 movzx edx, word ptr [ebx] 00809B46 83C204 add edx, +$04 00809B49 8B45F4 mov eax, [ebp-$0C] 00809B4C 33C9 xor ecx, ecx * Reference to: System.@FillChar(void;void;Integer;Char); | 00809B4E E8419CBFFF call 00403794 00809B53 0FB70B movzx ecx, word ptr [ebx] 00809B56 8BD3 mov edx, ebx 00809B58 8B45F4 mov eax, [ebp-$0C] * Reference to: Classes.TPersistent.AssignTo(TPersistent;TPersistent); | or: Classes.TComponent.ReadState(TComponent;TReader); | or: FMTBcd.VarFMTBcdCreate(TBcd;TBcd):Variant;overload; | or: QGraphics.TGraphic.AssignsTo(classofTGraphic;TGraphicClass):Boolean; | or: SqlTimSt.VarSQLTimeStampCreate(TSQLTimeStamp;TSQLTimeStamp):Variant;overload; | or: System.WideCharToStrVar(PWideChar;String;String); | 00809B5B E844F3BFFF call 00408EA4 00809B60 0FB703 movzx eax, word ptr [ebx] 00809B63 01C3 add ebx, eax 00809B65 807DFF00 cmp byte ptr [ebp-$01], $00 00809B69 7467 jz 00809BD2 00809B6B 8D85ECFEFFFF lea eax, [ebp+$FFFFFEEC] 00809B71 50 push eax 00809B72 6A01 push $01 00809B74 8B45F4 mov eax, [ebp-$0C] 00809B77 50 push eax 00809B78 8B45F8 mov eax, [ebp-$08] 00809B7B 50 push eax 00809B7C 8B00 mov eax, [eax] 00809B7E FF502C call dword ptr [eax+$2C] 00809B81 833F00 cmp dword ptr [edi], +$00 00809B84 740C jz 00809B92 00809B86 8BC7 mov eax, edi 00809B88 BA889C8000 mov edx, $00809C88 * Reference to: System.@LStrCat; | 00809B8D E86ABABFFF call 004055FC 00809B92 8D85E0FEFFFF lea eax, [ebp+$FFFFFEE0] 00809B98 8B17 mov edx, [edi] * Reference to: System.@WStrFromLStr(WideString;WideString;String); | 00809B9A E869C0BFFF call 00405C08 00809B9F 8D85E0FEFFFF lea eax, [ebp+$FFFFFEE0] 00809BA5 50 push eax 00809BA6 8D8DDCFEFFFF lea ecx, [ebp+$FFFFFEDC] 00809BAC 8D85ECFEFFFF lea eax, [ebp+$FFFFFEEC] 00809BB2 8BD3 mov edx, ebx * Reference to : TfrmYFFKList._PROC_0080952C() | 00809BB4 E873F9FFFF call 0080952C 00809BB9 8B95DCFEFFFF mov edx, [ebp+$FFFFFEDC] 00809BBF 58 pop eax | 00809BC0 E86FC0BFFF call 00405C34 00809BC5 8B95E0FEFFFF mov edx, [ebp+$FFFFFEE0] 00809BCB 8BC7 mov eax, edi * Reference to: System.@LStrFromWStr(String;String;WideString); | 00809BCD E8EAB9BFFF call 004055BC 00809BD2 8D45F8 lea eax, [ebp-$08] 00809BD5 50 push eax *) end; end.