Group_99/D7myChuangpin
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
ece69a5ac1
D7myChuangpin/YSYF/U_FPINVOICE_TJ.pas

468 lines
13 KiB
ObjectPascal
Raw Normal View History

1
2024-07-23 20:18:14 +08:00
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: '<27><>)<29><><EFBFBD><EFBFBD>[Y]<5D>'
|
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: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
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]<5D>'
|
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: '<27>w)<29><><EFBFBD><EFBFBD>[Y]<5D>'
|
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: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
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]<5D>'
|
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: '<27>X(<28><><EFBFBD><EFBFBD>[Y]Ë<>U<EFBFBD><55>3<EFBFBD>Uh<55>"<22>'
|
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<EFBFBD><55>3<EFBFBD>Uh<55>"<22>'
|
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.
Reference in New Issue Copy Permalink