unit U_FPINVOICE_TJ; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls type TfrmFPInvoice_TJ=class(TForm) ToolBar1: TToolBar; TBRafresh: TToolButton; TBClose: TToolButton; ADOQueryTemp: TADOQuery; ADOQueryCmd: TADOQuery; Panel1: TPanel; ToolButton2: TToolButton; ADOQueryMain: TADOQuery; ToolButton1: TToolButton; RM1: TRMGridReport; RMDB_Main: TRMDBDataSet; Label3: TLabel; ToFactoryName: TEdit; cxGrid2: TcxGrid; Tv2: TcxGridDBTableView; cxGridLevel1: TcxGridLevel; Label2: TLabel; Label6: TLabel; begdate: TDateTimePicker; Enddate: TDateTimePicker; cxGridPopupMenu2: TcxGridPopupMenu; DS_HZ: TDataSource; CDS_HZ: TClientDataSet; VBBMoney: TcxGridDBColumn; v2FPMoney: TcxGridDBColumn; v2WFPMoney: TcxGridDBColumn; cxStyleRepository1: TcxStyleRepository; cxStyle1: TcxStyle; cxStyle2: TcxStyle; cxStyle_gridRow: TcxStyle; cxStyle_gridFoot: TcxStyle; cxStyle_gridHead: TcxStyle; cxStyle_gridGroupBox: TcxStyle; cxStyle_yellow: TcxStyle; cxStyle_Red: TcxStyle; cxStyle_fontBlack: TcxStyle; cxStyle_fontclFuchsia: TcxStyle; cxStyle_fontclPurple: TcxStyle; cxStyle_fontclGreen: TcxStyle; cxStyle_fontclBlue: TcxStyle; cxStyle_fontclTeal: TcxStyle; cxStyle_fontclOlive: TcxStyle; Label5: TLabel; BBMoney: TEdit; Label7: TLabel; v2FactoryName: TcxGridDBColumn; FactoryName: TEdit; FactoryNameTJ: TEdit; Label1: TLabel; Label4: TLabel; ToFactoryNameTJ: TEdit; v2Column3: TcxGridDBColumn; Label8: TLabel; 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 ToFactoryNameChange(Sender : TObject); procedure ToolButton1Click(Sender : TObject); private { Private declarations } public { Public declarations } end ; var frmFPInvoice_TJ: TfrmFPInvoice_TJ; {This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer} implementation {$R *.DFM} procedure TfrmFPInvoice_TJ.FormDestroy(Sender : TObject); begin (* 008820AC 33C0 xor eax, eax * Reference to GlobalVar_00895AE4 | 008820AE A3E45A8900 mov dword ptr [$00895AE4], eax 008820B3 C3 ret *) end; procedure TfrmFPInvoice_TJ.FormClose(Sender : TObject); begin (* 008820B4 C60102 mov byte ptr [ecx], $02 008820B7 C3 ret *) end; procedure TfrmFPInvoice_TJ.TBCloseClick(Sender : TObject); begin (* 008820B8 55 push ebp 008820B9 8BEC mov ebp, esp 008820BB 6A00 push $00 008820BD 53 push ebx 008820BE 8BD8 mov ebx, eax 008820C0 33C0 xor eax, eax 008820C2 55 push ebp * Possible String Reference to: 'éç)¸ÿëð[Y]Ã' | 008820C3 6808218800 push $00882108 ***** TRY | 008820C8 64FF30 push dword ptr fs:[eax] 008820CB 648920 mov fs:[eax], esp 008820CE 8D55FC lea edx, [ebp-$04] 008820D1 8BC3 mov eax, ebx * Reference to: Controls.TControl.GetText(TControl):TCaption; | 008820D3 E81865C0FF call 004885F0 008820D8 8B45FC mov eax, [ebp-$04] * Possible String Reference to: '²ÆÎñ¹ÜÀí' | 008820DB B91C218800 mov ecx, $0088211C * Reference to control TfrmFPInvoice_TJ.Tv2 : TcxGridDBTableView | 008820E0 8B9330030000 mov edx, [ebx+$0330] | 008820E6 E8E9AAF4FF call 007CCBD4 008820EB 8BC3 mov eax, ebx * Reference to: Forms.TCustomForm.Close(TCustomForm); | 008820ED E8A63EC2FF call 004A5F98 008820F2 33C0 xor eax, eax 008820F4 5A pop edx 008820F5 59 pop ecx 008820F6 59 pop ecx 008820F7 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '[Y]Ã' | 008820FA 680F218800 push $0088210F 008820FF 8D45FC lea eax, [ebp-$04] * Reference to: System.@LStrClr(void;void); | 00882102 E81D32B8FF call 00405324 00882107 C3 ret * Reference to: System.@HandleFinally; | 00882108 E9E729B8FF jmp 00404AF4 0088210D EBF0 jmp 008820FF ****** END | 0088210F 5B pop ebx 00882110 59 pop ecx 00882111 5D pop ebp 00882112 C3 ret *) end; procedure TfrmFPInvoice_TJ.FormShow(Sender : TObject); begin (* 00882128 55 push ebp 00882129 8BEC mov ebp, esp 0088212B 6A00 push $00 0088212D 53 push ebx 0088212E 8BD8 mov ebx, eax 00882130 33C0 xor eax, eax 00882132 55 push ebp * Possible String Reference to: 'éw)¸ÿëð[Y]Ã' | 00882133 6878218800 push $00882178 ***** TRY | 00882138 64FF30 push dword ptr fs:[eax] 0088213B 648920 mov fs:[eax], esp 0088213E 8D55FC lea edx, [ebp-$04] 00882141 8BC3 mov eax, ebx * Reference to: Controls.TControl.GetText(TControl):TCaption; | 00882143 E8A864C0FF call 004885F0 00882148 8B45FC mov eax, [ebp-$04] * Possible String Reference to: '²ÆÎñ¹ÜÀí' | 0088214B B98C218800 mov ecx, $0088218C * Reference to control TfrmFPInvoice_TJ.Tv2 : TcxGridDBTableView | 00882150 8B9330030000 mov edx, [ebx+$0330] | 00882156 E879A9F4FF call 007CCAD4 0088215B 8BC3 mov eax, ebx | 0088215D E852FEFFFF call 00881FB4 00882162 33C0 xor eax, eax 00882164 5A pop edx 00882165 59 pop ecx 00882166 59 pop ecx 00882167 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '[Y]Ã' | 0088216A 687F218800 push $0088217F 0088216F 8D45FC lea eax, [ebp-$04] * Reference to: System.@LStrClr(void;void); | 00882172 E8AD31B8FF call 00405324 00882177 C3 ret * Reference to: System.@HandleFinally; | 00882178 E97729B8FF jmp 00404AF4 0088217D EBF0 jmp 0088216F ****** END | 0088217F 5B pop ebx 00882180 59 pop ecx 00882181 5D pop ebp 00882182 C3 ret *) end; procedure TfrmFPInvoice_TJ.TBRafreshClick(Sender : TObject); begin (* | 00882198 E817FEFFFF call 00881FB4 0088219D C3 ret *) end; procedure TfrmFPInvoice_TJ.ToolButton2Click(Sender : TObject); begin (* 008821A0 55 push ebp 008821A1 8BEC mov ebp, esp 008821A3 6A00 push $00 008821A5 53 push ebx 008821A6 8BD8 mov ebx, eax 008821A8 33C0 xor eax, eax 008821AA 55 push ebp 008821AB 6824228800 push $00882224 ***** TRY | 008821B0 64FF30 push dword ptr fs:[eax] 008821B3 648920 mov fs:[eax], esp * Reference to control TfrmFPInvoice_TJ.ADOQueryMain : TADOQuery | 008821B6 8B8314030000 mov eax, [ebx+$0314] * Reference to: DB.TDataSet.GetActive(TDataSet):Boolean; | 008821BC E85338C4FF call 004C5A14 008821C1 84C0 test al, al 008821C3 7449 jz 0088220E 008821C5 8D45FC lea eax, [ebp-$04] 008821C8 50 push eax 008821C9 B902000000 mov ecx, $00000002 008821CE BA01000000 mov edx, $00000001 * Reference to control TfrmFPInvoice_TJ.Panel1 : TPanel | 008821D3 8B830C030000 mov eax, [ebx+$030C] | 008821D9 E8A295F4FF call 007CB780 008821DE 8B55FC mov edx, [ebp-$04] * Reference to control TfrmFPInvoice_TJ.ADOQueryMain : TADOQuery | 008821E1 8B8314030000 mov eax, [ebx+$0314] | 008821E7 E8E4A1F4FF call 007CC3D0 * Reference to control TfrmFPInvoice_TJ.CDS_HZ : TClientDataSet | 008821EC 8B9350030000 mov edx, [ebx+$0350] * Reference to control TfrmFPInvoice_TJ.ADOQueryMain : TADOQuery | 008821F2 8B8314030000 mov eax, [ebx+$0314] | 008821F8 E89BA2F4FF call 007CC498 * Reference to control TfrmFPInvoice_TJ.CDS_HZ : TClientDataSet | 008821FD 8B9350030000 mov edx, [ebx+$0350] * Reference to control TfrmFPInvoice_TJ.ADOQueryMain : TADOQuery | 00882203 8B8314030000 mov eax, [ebx+$0314] | 00882209 E812A4F4FF call 007CC620 0088220E 33C0 xor eax, eax 00882210 5A pop edx 00882211 59 pop ecx 00882212 59 pop ecx 00882213 648910 mov fs:[eax], edx ****** FINALLY | 00882216 682B228800 push $0088222B 0088221B 8D45FC lea eax, [ebp-$04] * Reference to: System.@LStrClr(void;void); | 0088221E E80131B8FF call 00405324 00882223 C3 ret * Reference to: System.@HandleFinally; | 00882224 E9CB28B8FF jmp 00404AF4 00882229 EBF0 jmp 0088221B ****** END | 0088222B 5B pop ebx 0088222C 59 pop ecx 0088222D 5D pop ebp 0088222E C3 ret *) end; procedure TfrmFPInvoice_TJ.ToFactoryNameChange(Sender : TObject); begin (* 00882230 56 push esi * Reference to control TfrmFPInvoice_TJ.ToolButton2 : TToolButton | 00882231 8B8010030000 mov eax, [eax+$0310] 00882237 66BEEBFF mov si, $FFEB * Reference to: System.@CallDynaInst; | 0088223B E81423B8FF call 00404554 00882240 5E pop esi 00882241 C3 ret *) end; procedure TfrmFPInvoice_TJ.ToolButton1Click(Sender : TObject); begin (* 00882244 55 push ebp 00882245 8BEC mov ebp, esp 00882247 6A00 push $00 00882249 53 push ebx 0088224A 8BD8 mov ebx, eax 0088224C 33C0 xor eax, eax 0088224E 55 push ebp * Possible String Reference to: 'éX(¸ÿëð[Y]ËÀU‹ì3ÀUhÉ"ˆ' | 0088224F 6897228800 push $00882297 ***** TRY | 00882254 64FF30 push dword ptr fs:[eax] 00882257 648920 mov fs:[eax], esp * Reference to control TfrmFPInvoice_TJ.ADOQueryMain : TADOQuery | 0088225A 8B8314030000 mov eax, [ebx+$0314] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 00882260 E85B5CC4FF call 004C7EC0 00882265 84C0 test al, al 00882267 7518 jnz 00882281 00882269 8D55FC lea edx, [ebp-$04] 0088226C 8BC3 mov eax, ebx * Reference to: Controls.TControl.GetText(TControl):TCaption; | 0088226E E87D63C0FF call 004885F0 00882273 8B45FC mov eax, [ebp-$04] * Reference to control TfrmFPInvoice_TJ.cxGrid2 : TcxGrid | 00882276 8B932C030000 mov edx, [ebx+$032C] | 0088227C E8DBACF4FF call 007CCF5C 00882281 33C0 xor eax, eax 00882283 5A pop edx 00882284 59 pop ecx 00882285 59 pop ecx 00882286 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '[Y]ËÀU‹ì3ÀUhÉ"ˆ' | 00882289 689E228800 push $0088229E 0088228E 8D45FC lea eax, [ebp-$04] * Reference to: System.@LStrClr(void;void); | 00882291 E88E30B8FF call 00405324 00882296 C3 ret * Reference to: System.@HandleFinally; | 00882297 E95828B8FF jmp 00404AF4 0088229C EBF0 jmp 0088228E ****** END | 0088229E 5B pop ebx 0088229F 59 pop ecx 008822A0 5D pop ebp 008822A1 C3 ret *) end; end.