This commit is contained in:
“ddf” 2024-07-23 20:18:14 +08:00
commit ece69a5ac1
1875 changed files with 1620026 additions and 0 deletions

16
.gitignore vendored Normal file
View File

@ -0,0 +1,16 @@
**/layout/*
**/report
**/实施文件
**/image
**/doc
**/wav
**/__history
**/__recovery
*.dll
*.exe
*.ddp
*.dcu
*.~pas
*.~dfm
*.~ddp
*.~dpr

BIN
YSYF/1111.sql Normal file

Binary file not shown.

BIN
YSYF/DBLogDlg.dfm Normal file

Binary file not shown.

491
YSYF/DBLogDlg.pas Normal file
View File

@ -0,0 +1,491 @@
unit DBLogDlg;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TLoginDialog=class(TForm)
Panel: TPanel;
Bevel: TBevel;
DatabaseName: TLabel;
OKButton: TButton;
CancelButton: TButton;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Password: TEdit;
UserName: TEdit;
procedure FormShow(Sender : TObject);
procedure _PROC_00546810(Sender : TObject);
procedure _PROC_00546940(Sender : TObject);
procedure _PROC_00546B48(Sender : TObject);
procedure _PROC_00546B58(Sender : TObject);
procedure _PROC_00546B88(Sender : TObject);
procedure _PROC_00546BDC(Sender : TObject);
procedure _PROC_00546C42(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
LoginDialog: TLoginDialog;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TLoginDialog.FormShow(Sender : TObject);
begin
(*
00546B00 53 push ebx
00546B01 56 push esi
00546B02 8BD8 mov ebx, eax
* Reference to control TLoginDialog.Panel : TPanel
|
00546B04 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Controls.TControl.GetClientWidth(TControl):Integer;
|
00546B0A E8E514F4FF call 00487FF4
* Reference to control TLoginDialog.DatabaseName : TLabel
|
00546B0F 8BB300030000 mov esi, [ebx+$0300]
* Reference to field TLabel.Width : Integer
|
00546B15 8B5648 mov edx, [esi+$48]
00546B18 035640 add edx, [esi+$40]
00546B1B 3BC2 cmp eax, edx
00546B1D 7F24 jnle 00546B43
* Reference to control TLoginDialog.Panel : TPanel
|
00546B1F 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Controls.TControl.GetClientWidth(TControl):Integer;
|
00546B25 E8CA14F4FF call 00487FF4
00546B2A 8BD0 mov edx, eax
* Reference to control TLoginDialog.DatabaseName : TLabel
|
00546B2C 8B8300030000 mov eax, [ebx+$0300]
00546B32 2B5040 sub edx, dword ptr [eax+$40]
00546B35 83EA05 sub edx, +$05
* Reference to control TLoginDialog.DatabaseName : TLabel
|
00546B38 8B8300030000 mov eax, [ebx+$0300]
* Reference to: Controls.TControl.SetWidth(TControl;Integer);
|
00546B3E E84112F4FF call 00487D84
00546B43 5E pop esi
00546B44 5B pop ebx
00546B45 C3 ret
*)
end;
procedure TLoginDialog._PROC_00546810(Sender : TObject);
begin
(*
00546810 55 push ebp
00546811 8BEC mov ebp, esp
00546813 83C4F0 add esp, -$10
00546816 53 push ebx
00546817 56 push esi
00546818 57 push edi
00546819 33DB xor ebx, ebx
0054681B 895DF0 mov [ebp-$10], ebx
0054681E 895DF4 mov [ebp-$0C], ebx
00546821 8BF9 mov edi, ecx
00546823 8BDA mov ebx, edx
00546825 8BF0 mov esi, eax
00546827 33C0 xor eax, eax
00546829 55 push ebp
0054682A 682C695400 push $0054692C
***** TRY
|
0054682F 64FF30 push dword ptr fs:[eax]
00546832 648920 mov fs:[eax], esp
*)
end;
procedure TLoginDialog._PROC_00546940(Sender : TObject);
begin
(*
00546940 55 push ebp
00546941 8BEC mov ebp, esp
00546943 33C9 xor ecx, ecx
00546945 51 push ecx
00546946 51 push ecx
00546947 51 push ecx
00546948 51 push ecx
00546949 51 push ecx
0054694A 53 push ebx
0054694B 56 push esi
0054694C 8BF2 mov esi, edx
0054694E 8BD8 mov ebx, eax
00546950 33C0 xor eax, eax
00546952 55 push ebp
00546953 68EE6A5400 push $00546AEE
***** TRY
|
00546958 64FF30 push dword ptr fs:[eax]
0054695B 648920 mov fs:[eax], esp
*)
end;
procedure TLoginDialog._PROC_00546B48(Sender : TObject);
begin
(*
*)
end;
procedure TLoginDialog._PROC_00546B58(Sender : TObject);
begin
(*
00546B58 55 push ebp
00546B59 8BEC mov ebp, esp
00546B5B 33C0 xor eax, eax
00546B5D 55 push ebp
* Possible String Reference to: 'érßëÿëø]ËÀƒ-T2‰'
|
00546B5E 687D6B5400 push $00546B7D
***** TRY
|
00546B63 64FF30 push dword ptr fs:[eax]
00546B66 648920 mov fs:[eax], esp
00546B69 FF0554328900 inc dword ptr [$00893254]
00546B6F 33C0 xor eax, eax
00546B71 5A pop edx
00546B72 59 pop ecx
00546B73 59 pop ecx
00546B74 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']ËÀƒ-T2‰'
|
00546B77 68846B5400 push $00546B84
00546B7C C3 ret
* Reference to: System.@HandleFinally;
|
00546B7D E972DFEBFF jmp 00404AF4
00546B82 EBF8 jmp 00546B7C
****** END
|
00546B84 5D pop ebp
00546B85 C3 ret
*)
end;
procedure TLoginDialog._PROC_00546B88(Sender : TObject);
begin
(*
00546B88 832D5432890001 sub dword ptr [$00893254], +$01
00546B8F 734A jnb 00546BDB
*)
end;
procedure TLoginDialog._PROC_00546BDC(Sender : TObject);
begin
(*
00546BDC 286C5400 sub [esp+edx*2+$00], ch
00546BE0 0000 add [eax], al
*)
end;
procedure TLoginDialog._PROC_00546C42(Sender : TObject);
begin
(*
00546C42 48 dec eax
00546C43 0050D4 add [eax-$2C], dl
00546C46 42 inc edx
00546C47 0008 add [eax], cl
00546C49 2D4A007CD0 sub eax, $D07C004A
00546C4E 42 inc edx
00546C4F 00F4 add ah, dh
00546C51 6B4A00D0 imul ecx, [edx+$00], $D0
00546C55 1D4A0030F6 sbb eax, $F630004A
00546C5A 48 dec eax
00546C5B 004CFB48 add [ebx+edi*8+$48], cl
00546C5F 0098FA48000C add [eax+$C0048FA], bl
00546C65 7948 jns 00546CAF
00546C67 00ACF04800E829 add [eax+esi*8+$29E80048], ch
00546C6E 4A dec edx
00546C6F 00E4 add ah, ah
00546C71 ED in eax, dx
00546C72 48 dec eax
00546C73 00547848 add [eax+edi*2+$48], dl
00546C77 005878 add [eax+$78], bl
00546C7A 48 dec eax
00546C7B 00DC add ah, bl
00546C7D 2A4A00 sub cl, byte ptr [edx+$00]
00546C80 3CA9 cmp al, $A9
00546C82 48 dec eax
00546C83 00C0 add al, al
00546C85 834800D0 or dword ptr [eax+$00], -$30
00546C89 7948 jns 00546CD3
00546C8B 004C8548 add [ebp+eax*4+$48], cl
00546C8F 00D0 add al, dl
00546C91 2C4A sub al, $4A
00546C93 009C2B4A008486 add [ebx+ebp+$8684004A], bl
00546C9A 48 dec eax
00546C9B 00482D add [eax+$2D], cl
00546C9E 4A dec edx
00546C9F 00C0 add al, al
00546CA1 A9480038EE test eax, $EE380048
00546CA6 48 dec eax
00546CA7 00F4 add ah, dh
00546CA9 EE out dx, al
00546CAA 48 dec eax
00546CAB 00F0 add al, dh
00546CAD E94800D8EE jmp EF2C6CFA
00546CB2 48 dec eax
00546CB3 00D8 add al, bl
00546CB5 1B4A00 sbb ecx, [edx+$00]
00546CB8 EC in al, dx
00546CB9 334A00 xor ecx, [edx+$00]
00546CBC 20C4 and ah, al
00546CBE 48 dec eax
00546CBF 00B0404A0010 add [eax+$10004A40], dh
00546CC5 44 inc esp
00546CC6 4A dec edx
00546CC7 00CC add ah, cl
00546CC9 42 inc edx
00546CCA 4A dec edx
00546CCB 00B8C44800BC add [eax+$BC0048C4], bh
00546CD1 C44800 les ecx, [eax+$00]
00546CD4 48 dec eax
00546CD5 45 inc ebp
00546CD6 4A dec edx
00546CD7 001CC3 add [ebx+eax*8], bl
00546CDA 48 dec eax
00546CDB 0018 add [eax], bl
00546CDD F0 lock
00546CDE 48 dec eax
00546CDF 00444C4A add [esp+ecx*2+$4A], al
00546CE3 000C02 add [edx+eax], cl
00546CE6 49 dec ecx
00546CE7 0094EC48009C64 add [esp+ebp*8+$649C0048], dl
00546CEE 4A dec edx
00546CEF 008C154A003C18 add [ebp+edx+$183C004A], cl
00546CF6 4A dec edx
00546CF7 0038 add [eax], bh
00546CF9 52 push edx
00546CFA 4A dec edx
00546CFB 005C224A add [edx+$4A], bl
00546CFF 00D8 add al, bl
00546D01 224A00 and cl, byte ptr [edx+$00]
00546D04 7C68 jl 00546D6E
00546D06 4A dec edx
00546D07 00941F4A003C60 add [edi+ebx+$603C004A], dl
00546D0E 4A dec edx
00546D0F 001447 add [edi+eax*2], dl
00546D12 4A dec edx
00546D13 0034654A00CC2C add [$2CCC004A], dh
00546D1A 4A dec edx
00546D1B 000E add [esi], cl
00546D1D 0000 add [eax], al
00546D1F 0000 add [eax], al
00546D21 0001 add [ecx], al
00546D23 0000 add [eax], al
00546D25 00748E4B add [esi+ecx*4+$4B], dh
00546D29 0018 add [eax], bl
00546D2B 0300 add eax, [eax]
00546D2D 0007 add [edi], al
00546D2F 0029 add [ecx], ch
00546D31 6E outsb
00546D32 54 push esp
00546D33 00F8 add al, bh
00546D35 0200 add al, byte ptr [eax]
00546D37 0000 add [eax], al
00546D39 0009 add [ecx], cl
00546D3B 47 inc edi
00546D3C 726F jb 00546DAD
00546D3E 7570 jnz 00546DB0
00546D40 42 inc edx
00546D41 6F outsd
00546D42 7831 js 00546D75
00546D44 FC cld
00546D45 0200 add al, byte ptr [eax]
00546D47 0001 add [ecx], al
00546D49 00044564697400 add [$746964+eax*2], al
00546D50 0300 add eax, [eax]
00546D52 0002 add [edx], al
00546D54 0009 add [ecx], cl
00546D56 41 inc ecx
00546D57 646442 inc edx
00546D5A 7574 jnz 00546DD0
00546D5C 746F jz 00546DCD
00546D5E 6E outsb
00546D5F 0403 add al, +$03
00546D61 0000 add [eax], al
00546D63 0200 add al, byte ptr [eax]
00546D65 0C52 or al, $52
00546D67 656D insd
00546D69 6F outsd
00546D6A 7665 jbe 00546DD1
00546D6C 42 inc edx
00546D6D 7574 jnz 00546DE3
00546D6F 746F jz 00546DE0
00546D71 6E outsb
00546D72 0803 or [ebx], al
00546D74 0000 add [eax], al
00546D76 0200 add al, byte ptr [eax]
00546D78 0F52 DB $0F, $52 //
00546D7A 656D insd
00546D7C 6F outsd
00546D7D 7665 jbe 00546DE4
00546D7F 41 inc ecx
00546D80 6C insb
00546D81 6C insb
00546D82 42 inc edx
00546D83 7574 jnz 00546DF9
00546D85 746F jz 00546DF6
00546D87 6E outsb
00546D88 0C03 or al, $03
00546D8A 0000 add [eax], al
00546D8C 0200 add al, byte ptr [eax]
00546D8E 084F4B or [edi+$4B], cl
00546D91 42 inc edx
00546D92 7574 jnz 00546E08
00546D94 746F jz 00546E05
00546D96 6E outsb
00546D97 1003 adc [ebx], al
00546D99 0000 add [eax], al
00546D9B 0200 add al, byte ptr [eax]
00546D9D 0C43 or al, $43
00546D9F 61 popa
00546DA0 6E outsb
00546DA1 63656C arpl [ebp+$6C], sp
00546DA4 42 inc edx
00546DA5 7574 jnz 00546E1B
00546DA7 746F jz 00546E18
00546DA9 6E outsb
00546DAA 05001100D8 add eax, -$27FFEF00
00546DAF 6E outsb
00546DB0 54 push esp
00546DB1 000A add [edx], cl
00546DB3 45 inc ebp
00546DB4 6469744368616E6765 imul esi, fs:[ebx+eax*2+$68], $65676E61
00546DBD 1500606F54 adc eax, $546F6000
00546DC2 000E add [esi], cl
00546DC4 41 inc ecx
00546DC5 646442 inc edx
00546DC8 7574 jnz 00546E3E
00546DCA 746F jz 00546E3B
00546DCC 6E outsb
00546DCD 43 inc ebx
00546DCE 6C insb
00546DCF 69636B1800D86F imul esp, [ebx+$6B], $6FD80018
00546DD6 54 push esp
00546DD7 0011 add [ecx], dl
00546DD9 52 push edx
00546DDA 656D insd
00546DDC 6F outsd
00546DDD 7665 jbe 00546E44
00546DDF 42 inc edx
00546DE0 7574 jnz 00546E56
00546DE2 746F jz 00546E53
00546DE4 6E outsb
00546DE5 43 inc ebx
00546DE6 6C insb
00546DE7 69636B1B004870 imul esp, [ebx+$6B], $7048001B
00546DEE 54 push esp
00546DEF 001452 add [edx+edx*2], dl
00546DF2 656D insd
00546DF4 6F outsd
00546DF5 7665 jbe 00546E5C
00546DF7 41 inc ecx
00546DF8 6C insb
00546DF9 6C insb
00546DFA 42 inc edx
00546DFB 7574 jnz 00546E71
00546DFD 746F jz 00546E6E
00546DFF 6E outsb
00546E00 43 inc ebx
00546E01 6C insb
00546E02 69636B14006870 imul esp, [ebx+$6B], $70680014
00546E09 54 push esp
00546E0A 000D4F4B4275 add [$75424B4F], cl
00546E10 7474 jz 00546E86
00546E12 6F outsd
00546E13 6E outsb
00546E14 43 inc ebx
00546E15 6C insb
00546E16 69636B0F545061 imul esp, [ebx+$6B], $6150540F
00546E1D 7373 jnb 00546E92
00546E1F 776F jnbe 00546E90
00546E21 7264 jb 00546E87
00546E23 44 inc esp
00546E24 69616C6F670300 imul esp, [ecx+$6C], $0003676F
00546E2B 60 pusha
00546E2C 56 push esi
00546E2D 47 inc edi
00546E2E 00B867470000 add [eax+$4767], bh
00546E34 8E4700 mov es, word ptr [edi+$00]
00546E37 90 nop
00546E38 3C6E cmp al, $6E
00546E3A 54 push esp
00546E3B 0007 add [edi], al
00546E3D 0F54 DB $0F, $54 //
00546E3F 50 push eax
00546E40 61 popa
00546E41 7373 jnb 00546EB6
00546E43 776F jnbe 00546EB4
00546E45 7264 jb 00546EAB
00546E47 44 inc esp
00546E48 69616C6F67286C imul esp, [ecx+$6C], $6C28676F
00546E4F 54 push esp
00546E50 00D0 add al, dl
00546E52 F2 repne
00546E53 49 dec ecx
00546E54 005E00 add [esi+$00], bl
00546E57 07 pop es
00546E58 44 inc esp
00546E59 42 inc edx
00546E5A 50 push eax
00546E5B 57 push edi
00546E5C 44 inc esp
00546E5D 6C insb
00546E5E 670000 add [bx+si], al
00546E61 8D4000 lea eax, [eax+$00]
00546E64 55 push ebp
00546E65 8BEC mov ebp, esp
00546E67 83C4F8 add esp, -$08
00546E6A 53 push ebx
00546E6B 8BD8 mov ebx, eax
*)
end;
end.

BIN
YSYF/DBPWDlg.dfm Normal file

Binary file not shown.

529
YSYF/DBPWDlg.pas Normal file
View File

@ -0,0 +1,529 @@
unit DBPWDlg;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TPasswordDialog=class(TForm)
GroupBox1: TGroupBox;
Edit: TEdit;
AddButton: TButton;
RemoveButton: TButton;
RemoveAllButton: TButton;
OKButton: TButton;
CancelButton: TButton;
procedure EditChange(Sender : TObject);
procedure AddButtonClick(Sender : TObject);
procedure RemoveButtonClick(Sender : TObject);
procedure RemoveAllButtonClick(Sender : TObject);
procedure OKButtonClick(Sender : TObject);
procedure _PROC_005470BC(Sender : TObject);
procedure _PROC_005470F8(Sender : TObject);
procedure _PROC_00547110(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
PasswordDialog: TPasswordDialog;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TPasswordDialog.EditChange(Sender : TObject);
begin
(*
00546ED8 55 push ebp
00546ED9 8BEC mov ebp, esp
00546EDB 6A00 push $00
00546EDD 53 push ebx
00546EDE 56 push esi
00546EDF 8BF0 mov esi, eax
00546EE1 33C0 xor eax, eax
00546EE3 55 push ebp
* Possible String Reference to: <>Ûëÿëð^[Y]ÃÀUìj'
|
00546EE4 68526F5400 push $00546F52
***** TRY
|
00546EE9 64FF30 push dword ptr fs:[eax]
00546EEC 648920 mov fs:[eax], esp
00546EEF 8D55FC lea edx, [ebp-$04]
* Reference to control TPasswordDialog.Edit : TEdit
|
00546EF2 8B86FC020000 mov eax, [esi+$02FC]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00546EF8 E8F316F4FF call 004885F0
00546EFD 837DFC00 cmp dword ptr [ebp-$04], +$00
00546F01 0F95C3 setnz bl
00546F04 8BD3 mov edx, ebx
* Reference to control TPasswordDialog.AddButton : TButton
|
00546F06 8B8600030000 mov eax, [esi+$0300]
00546F0C 8B08 mov ecx, [eax]
* Reference to method TButton.SetEnabled(Boolean)
|
00546F0E FF5164 call dword ptr [ecx+$64]
00546F11 8BD3 mov edx, ebx
* Reference to control TPasswordDialog.RemoveButton : TButton
|
00546F13 8B8604030000 mov eax, [esi+$0304]
00546F19 8B08 mov ecx, [eax]
* Reference to method TButton.SetEnabled(Boolean)
|
00546F1B FF5164 call dword ptr [ecx+$64]
00546F1E 84DB test bl, bl
00546F20 750D jnz 00546F2F
* Reference to field TPasswordDialog.OFFS_0314
|
00546F22 80BE1403000000 cmp byte ptr [esi+$0314], $00
00546F29 7504 jnz 00546F2F
00546F2B 33D2 xor edx, edx
00546F2D EB02 jmp 00546F31
00546F2F B201 mov dl, $01
* Reference to control TPasswordDialog.OKButton : TButton
|
00546F31 8B860C030000 mov eax, [esi+$030C]
00546F37 8B08 mov ecx, [eax]
* Reference to method TButton.SetEnabled(Boolean)
|
00546F39 FF5164 call dword ptr [ecx+$64]
00546F3C 33C0 xor eax, eax
00546F3E 5A pop edx
00546F3F 59 pop ecx
00546F40 59 pop ecx
00546F41 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[Y]ÃÀUìj'
|
00546F44 68596F5400 push $00546F59
00546F49 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
00546F4C E8D3E3EBFF call 00405324
00546F51 C3 ret
* Reference to: System.@HandleFinally;
|
00546F52 E99DDBEBFF jmp 00404AF4
00546F57 EBF0 jmp 00546F49
****** END
|
00546F59 5E pop esi
00546F5A 5B pop ebx
00546F5B 59 pop ecx
00546F5C 5D pop ebp
00546F5D C3 ret
*)
end;
procedure TPasswordDialog.AddButtonClick(Sender : TObject);
begin
(*
00546F60 55 push ebp
00546F61 8BEC mov ebp, esp
00546F63 6A00 push $00
00546F65 53 push ebx
00546F66 8BD8 mov ebx, eax
00546F68 33C0 xor eax, eax
00546F6A 55 push ebp
* Possible String Reference to: 'é$Ûëÿëð[Y]ÃÀUìj'
|
00546F6B 68CB6F5400 push $00546FCB
***** TRY
|
00546F70 64FF30 push dword ptr fs:[eax]
00546F73 648920 mov fs:[eax], esp
00546F76 8D55FC lea edx, [ebp-$04]
* Reference to control TPasswordDialog.Edit : TEdit
|
00546F79 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00546F7F E86C16F4FF call 004885F0
00546F84 8B55FC mov edx, [ebp-$04]
* Reference to field TPasswordDialog.OFFS_0318
|
00546F87 8B8318030000 mov eax, [ebx+$0318]
00546F8D 8B08 mov ecx, [eax]
00546F8F FF510C call dword ptr [ecx+$0C]
* Reference to field TPasswordDialog.OFFS_0314
|
00546F92 C6831403000001 mov byte ptr [ebx+$0314], $01
* Reference to control TPasswordDialog.Edit : TEdit
|
00546F99 8B83FC020000 mov eax, [ebx+$02FC]
00546F9F 8B10 mov edx, [eax]
* Reference to method TEdit.Clear()
|
00546FA1 FF92E0000000 call dword ptr [edx+$00E0]
* Reference to control TPasswordDialog.Edit : TEdit
|
00546FA7 8B83FC020000 mov eax, [ebx+$02FC]
00546FAD 8B10 mov edx, [eax]
* Reference to method TEdit.SetFocus()
|
00546FAF FF92C4000000 call dword ptr [edx+$00C4]
00546FB5 33C0 xor eax, eax
00546FB7 5A pop edx
00546FB8 59 pop ecx
00546FB9 59 pop ecx
00546FBA 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[Y]ÃÀUìj'
|
00546FBD 68D26F5400 push $00546FD2
00546FC2 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
00546FC5 E85AE3EBFF call 00405324
00546FCA C3 ret
* Reference to: System.@HandleFinally;
|
00546FCB E924DBEBFF jmp 00404AF4
00546FD0 EBF0 jmp 00546FC2
****** END
|
00546FD2 5B pop ebx
00546FD3 59 pop ecx
00546FD4 5D pop ebp
00546FD5 C3 ret
*)
end;
procedure TPasswordDialog.RemoveButtonClick(Sender : TObject);
begin
(*
00546FD8 55 push ebp
00546FD9 8BEC mov ebp, esp
00546FDB 6A00 push $00
00546FDD 53 push ebx
00546FDE 8BD8 mov ebx, eax
00546FE0 33C0 xor eax, eax
00546FE2 55 push ebp
00546FE3 683C705400 push $0054703C
***** TRY
|
00546FE8 64FF30 push dword ptr fs:[eax]
00546FEB 648920 mov fs:[eax], esp
00546FEE 8D55FC lea edx, [ebp-$04]
* Reference to control TPasswordDialog.Edit : TEdit
|
00546FF1 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00546FF7 E8F415F4FF call 004885F0
00546FFC 8B55FC mov edx, [ebp-$04]
* Reference to field TPasswordDialog.OFFS_0318
|
00546FFF 8B8318030000 mov eax, [ebx+$0318]
00547005 8B08 mov ecx, [eax]
00547007 FF5110 call dword ptr [ecx+$10]
* Reference to control TPasswordDialog.Edit : TEdit
|
0054700A 8B83FC020000 mov eax, [ebx+$02FC]
00547010 8B10 mov edx, [eax]
* Reference to method TEdit.Clear()
|
00547012 FF92E0000000 call dword ptr [edx+$00E0]
* Reference to control TPasswordDialog.Edit : TEdit
|
00547018 8B83FC020000 mov eax, [ebx+$02FC]
0054701E 8B10 mov edx, [eax]
* Reference to method TEdit.SetFocus()
|
00547020 FF92C4000000 call dword ptr [edx+$00C4]
00547026 33C0 xor eax, eax
00547028 5A pop edx
00547029 59 pop ecx
0054702A 59 pop ecx
0054702B 648910 mov fs:[eax], edx
****** FINALLY
|
0054702E 6843705400 push $00547043
00547033 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
00547036 E8E9E2EBFF call 00405324
0054703B C3 ret
* Reference to: System.@HandleFinally;
|
0054703C E9B3DAEBFF jmp 00404AF4
00547041 EBF0 jmp 00547033
****** END
|
00547043 5B pop ebx
00547044 59 pop ecx
00547045 5D pop ebp
00547046 C3 ret
*)
end;
procedure TPasswordDialog.RemoveAllButtonClick(Sender : TObject);
begin
(*
00547048 53 push ebx
00547049 8BD8 mov ebx, eax
* Reference to field TPasswordDialog.OFFS_0318
|
0054704B 8B8318030000 mov eax, [ebx+$0318]
00547051 8B10 mov edx, [eax]
00547053 FF5214 call dword ptr [edx+$14]
* Reference to control TPasswordDialog.Edit : TEdit
|
00547056 8B83FC020000 mov eax, [ebx+$02FC]
0054705C 8B10 mov edx, [eax]
* Reference to method TEdit.SetFocus()
|
0054705E FF92C4000000 call dword ptr [edx+$00C4]
00547064 5B pop ebx
00547065 C3 ret
*)
end;
procedure TPasswordDialog.OKButtonClick(Sender : TObject);
begin
(*
00547068 55 push ebp
00547069 8BEC mov ebp, esp
0054706B 6A00 push $00
0054706D 53 push ebx
0054706E 8BD8 mov ebx, eax
00547070 33C0 xor eax, eax
00547072 55 push ebp
* Possible String Reference to: 'é?Úëÿëð[Y]Ã<>Uì3ÀUhìpT'
|
00547073 68B0705400 push $005470B0
***** TRY
|
00547078 64FF30 push dword ptr fs:[eax]
0054707B 648920 mov fs:[eax], esp
0054707E 8D55FC lea edx, [ebp-$04]
* Reference to control TPasswordDialog.Edit : TEdit
|
00547081 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00547087 E86415F4FF call 004885F0
0054708C 8B55FC mov edx, [ebp-$04]
* Reference to field TPasswordDialog.OFFS_0318
|
0054708F 8B8318030000 mov eax, [ebx+$0318]
00547095 8B08 mov ecx, [eax]
00547097 FF510C call dword ptr [ecx+$0C]
0054709A 33C0 xor eax, eax
0054709C 5A pop edx
0054709D 59 pop ecx
0054709E 59 pop ecx
0054709F 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[Y]Ã<>Uì3ÀUhìpT'
|
005470A2 68B7705400 push $005470B7
005470A7 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
005470AA E875E2EBFF call 00405324
005470AF C3 ret
* Reference to: System.@HandleFinally;
|
005470B0 E93FDAEBFF jmp 00404AF4
005470B5 EBF0 jmp 005470A7
****** END
|
005470B7 5B pop ebx
005470B8 59 pop ecx
005470B9 5D pop ebp
005470BA C3 ret
*)
end;
procedure TPasswordDialog._PROC_005470BC(Sender : TObject);
begin
(*
005470BC 55 push ebp
005470BD 8BEC mov ebp, esp
005470BF 33C0 xor eax, eax
005470C1 55 push ebp
005470C2 68EC705400 push $005470EC
***** TRY
|
005470C7 64FF30 push dword ptr fs:[eax]
005470CA 648920 mov fs:[eax], esp
005470CD FF0558328900 inc dword ptr [$00893258]
005470D3 7509 jnz 005470DE
*)
end;
procedure TPasswordDialog._PROC_005470F8(Sender : TObject);
begin
(*
005470F8 832D5832890001 sub dword ptr [$00893258], +$01
005470FF 730B jnb 0054710C
*)
end;
procedure TPasswordDialog._PROC_00547110(Sender : TObject);
begin
(*
00547110 5C pop esp
00547111 7154 jno 00547167
00547113 0000 add [eax], al
00547115 0000 add [eax], al
00547117 0000 add [eax], al
00547119 0000 add [eax], al
0054711B 00B0715400D8 add [eax+$D8005471], dh
00547121 7154 jno 00547177
00547123 0000 add [eax], al
00547125 0000 add [eax], al
00547127 0000 add [eax], al
00547129 0000 add [eax], al
0054712B 0000 add [eax], al
0054712D 0000 add [eax], al
0054712F 00C2 add dl, al
00547131 7154 jno 00547187
00547133 005000 add [eax+$00], dl
00547136 0000 add [eax], al
00547138 2C7C sub al, $7C
0054713A 4B dec ebx
0054713B 00A8454000B4 add [eax+$B4004045], ch
00547141 45 inc ebp
00547142 40 inc eax
00547143 00B8454000BC add [eax+$BC004045], bh
00547149 45 inc ebp
0054714A 40 inc eax
0054714B 00B0454000E4 add [eax+$E4004045], dh
00547151 42 inc edx
00547152 40 inc eax
00547153 0000 add [eax], al
00547155 43 inc ebx
00547156 40 inc eax
00547157 00402C add [eax+$2C], al
0054715A 4C dec esp
0054715B 009C3D4200A43D add [ebp+edi+$3DA40042], bl
00547162 42 inc edx
00547163 00B83C420010 add [eax+$1000423C], bh
00547169 95 xchg eax, ebp
0054716A 54 push esp
0054716B 00E4 add ah, ah
0054716D 2F das
0054716E 4C dec esp
0054716F 00E8 add al, ch
00547171 95 xchg eax, ebp
00547172 54 push esp
00547173 00E8 add al, ch
00547175 2F das
00547176 4C dec esp
00547177 00F0 add al, dh
00547179 2F das
0054717A 4C dec esp
0054717B 002C9554005095 add [$95500054+edx*4], ch
00547182 54 push esp
00547183 00682E add [eax+$2E], ch
00547186 4C dec esp
00547187 006030 add [eax+$30], ah
0054718A 4C dec esp
0054718B 0088304C0074 add [eax+$74004C30], cl
00547191 304C00C4 xor [eax+eax-$3C], cl
00547195 2E4C dec esp
00547197 00BC9554008C30 add [ebp+edx*4+$308C0054], bh
0054719E 4C dec esp
0054719F 009895540080 add [eax+$80005495], bl
005471A5 2E4C dec esp
005471A7 00942E4C00C495 add [esi+ebp+$95C4004C], dl
005471AE 54 push esp
005471AF 000E add [esi], cl
005471B1 0000 add [eax], al
*)
end;
end.

BIN
YSYF/RM_DlgFind.dfm Normal file

Binary file not shown.

311
YSYF/RM_DlgFind.pas Normal file
View File

@ -0,0 +1,311 @@
unit RM_DlgFind;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TRMPreviewSearchForm=class(TForm)
Label1: TLabel;
edtSearchTxt: TEdit;
btnOK: TButton;
btnCancel: TButton;
GroupBox1: TGroupBox;
chkCaseSensitive: TCheckBox;
GroupBox2: TGroupBox;
rdbFromFirst: TRadioButton;
rdbFromCursor: TRadioButton;
chkWholewords: TCheckBox;
procedure FormShow(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure _PROC_006F70F0(Sender : TObject);
procedure _PROC_006F7120(Sender : TObject);
procedure _PROC_006F7128(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
RMPreviewSearchForm: TRMPreviewSearchForm;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TRMPreviewSearchForm.FormShow(Sender : TObject);
begin
(*
006F70C8 53 push ebx
006F70C9 8BD8 mov ebx, eax
* Reference to control TRMPreviewSearchForm.edtSearchTxt : TEdit
|
006F70CB 8B83FC020000 mov eax, [ebx+$02FC]
006F70D1 8B10 mov edx, [eax]
* Reference to method TEdit.SetFocus()
|
006F70D3 FF92C4000000 call dword ptr [edx+$00C4]
* Reference to control TRMPreviewSearchForm.edtSearchTxt : TEdit
|
006F70D9 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: StdCtrls.TCustomEdit.SelectAll(TCustomEdit);
|
006F70DF E83456D8FF call 0047C718
006F70E4 5B pop ebx
006F70E5 C3 ret
*)
end;
procedure TRMPreviewSearchForm.FormCreate(Sender : TObject);
begin
(*
|
006F70E8 E857FEFFFF call 006F6F44
006F70ED C3 ret
*)
end;
procedure TRMPreviewSearchForm._PROC_006F70F0(Sender : TObject);
begin
(*
006F70F0 55 push ebp
006F70F1 8BEC mov ebp, esp
006F70F3 33C0 xor eax, eax
006F70F5 55 push ebp
* Possible String Reference to: 'éÚÙÐÿëø]ËÀƒ-`9‰'
|
006F70F6 6815716F00 push $006F7115
***** TRY
|
006F70FB 64FF30 push dword ptr fs:[eax]
006F70FE 648920 mov fs:[eax], esp
006F7101 FF0560398900 inc dword ptr [$00893960]
006F7107 33C0 xor eax, eax
006F7109 5A pop edx
006F710A 59 pop ecx
006F710B 59 pop ecx
006F710C 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']ËÀƒ-`9‰'
|
006F710F 681C716F00 push $006F711C
006F7114 C3 ret
* Reference to: System.@HandleFinally;
|
006F7115 E9DAD9D0FF jmp 00404AF4
006F711A EBF8 jmp 006F7114
****** END
|
006F711C 5D pop ebp
006F711D C3 ret
*)
end;
procedure TRMPreviewSearchForm._PROC_006F7120(Sender : TObject);
begin
(*
006F7120 832D6039890001 sub dword ptr [$00893960], +$01
006F7127 C3 ret
*)
end;
procedure TRMPreviewSearchForm._PROC_006F7128(Sender : TObject);
begin
(*
006F7128 2C71 sub al, $71
006F712A 6F outsd
006F712B 0008 add [eax], cl
006F712D 1354524D adc edx, [edx+edx*2+$4D]
006F7131 42 inc edx
006F7132 65666F outsw
006F7135 7265 jb 006F719C
006F7137 53 push ebx
006F7138 686F775265 push $6552776F
006F713D 706F jo 006F71AE
006F713F 7274 jb 006F71B5
006F7141 0001 add [ecx], al
006F7143 0807 or [edi], al
006F7145 61 popa
006F7146 52 push edx
006F7147 65706F jo 006F71B9
006F714A 7274 jb 006F71C0
006F714C 07 pop es
006F714D 54 push esp
006F714E 4F dec edi
006F714F 626A65 bound ebp, qword ptr [edx+$65]
006F7152 637400B0 arpl [eax+eax-$50], si
006F7156 114000 adc [eax+$00], eax
006F7159 8D4000 lea eax, [eax+$00]
006F715C 60 pusha
006F715D 716F jno 006F71CE
006F715F 0011 add [ecx], dl
006F7161 022E add ch, byte ptr [esi]
006F7163 320400 xor al, byte ptr [eax+eax]
006F7166 0000 add [eax], al
006F7168 0000 add [eax], al
006F716A 0000 add [eax], al
006F716C 0300 add eax, [eax]
006F716E 0000 add [eax], al
006F7170 54 push esp
006F7171 104000 adc [eax+$00], al
006F7174 0A524D or dl, byte ptr [edx+$4D]
006F7177 5F pop edi
006F7178 50 push eax
006F7179 7265 jb 006F71E0
006F717B 7669 jbe 006F71E6
006F717D 657790 jnbe 006F7110
006F7180 CC int 3
006F7181 716F jno 006F71F2
006F7183 0000 add [eax], al
006F7185 0000 add [eax], al
006F7187 0000 add [eax], al
006F7189 0000 add [eax], al
006F718B 0098726F00DC add [eax+$DC006F72], bl
006F7191 726F jb 006F7202
006F7193 0000 add [eax], al
006F7195 0000 add [eax], al
006F7197 0000 add [eax], al
006F7199 0000 add [eax], al
006F719B 00AA726F00CA add [edx+$CA006F72], ch
006F71A1 726F jb 006F7212
006F71A3 005802 add [eax+$02], bl
006F71A6 0000 add [eax], al
006F71A8 204244 and [edx+$44], al
006F71AB 0028 add [eax], ch
006F71AD D4 aam
006F71AE 42 inc edx
006F71AF 00B4454000D8CC add [ebp+eax*2+$CCD80040], dh
006F71B6 42 inc edx
006F71B7 00BC454000F8CA add [ebp+eax*2+$CAF80040], bh
006F71BE 48 dec eax
006F71BF 00E4 add ah, ah
006F71C1 42 inc edx
006F71C2 40 inc eax
006F71C3 0000 add [eax], al
006F71C5 43 inc ebx
006F71C6 40 inc eax
006F71C7 0028 add [eax], ch
006F71C9 0D49001CFB or eax, $FB1C0049
006F71CE 48 dec eax
006F71CF 00C0 add al, al
006F71D1 C24800 ret $0048
006F71D4 B83C420040 mov eax, $4000423C
006F71D9 A7 cmpsd
006F71DA 48 dec eax
006F71DB 00987A480074 add [eax+$7400487A], bl
006F71E1 AF scasd
006F71E2 48 dec eax
006F71E3 00D8 add al, bl
006F71E5 83480050 or dword ptr [eax+$00], +$50
006F71E9 D4 aam
006F71EA 42 inc edx
006F71EB 0084D042007CD0 add [eax+edx*8+$D07C0042], al
006F71F2 42 inc edx
006F71F3 0058D4 add [eax-$2C], bl
006F71F6 42 inc edx
006F71F7 00D4 add ah, dl
006F71F9 786F js 006F726A
006F71FB 0030 add [eax], dh
006F71FD F64800 DB $F6, $48, $00 // byte ptr [eax+$00]
006F7200 746D jz 006F726F
006F7202 44 inc esp
006F7203 0098FA48000C add [eax+$C0048FA], bl
006F7209 7948 jns 006F7253
006F720B 00ACF04800CCF0 add [eax+esi*8+$F0CC0048], ch
006F7212 48 dec eax
006F7213 00E4 add ah, ah
006F7215 ED in eax, dx
006F7216 48 dec eax
006F7217 00547848 add [eax+edi*2+$48], dl
006F721B 005878 add [eax+$78], bl
006F721E 48 dec eax
006F721F 0010 add [eax], dl
006F7221 A948003CA9 test eax, $A93C0048
006F7226 48 dec eax
006F7227 00C0 add al, al
006F7229 834800D0 or dword ptr [eax+$00], -$30
006F722D 7948 jns 006F7277
006F722F 004C8548 add [ebp+eax*4+$48], cl
006F7233 00C4 add ah, al
006F7235 844800 test [eax+$00], cl
006F7238 D88748008486 fadd dword ptr [edi+$86840048]
006F723E 48 dec eax
006F723F 0094C94800C0A9 add [ecx+ecx*8+$A9C00048], dl
006F7246 48 dec eax
006F7247 0038 add [eax], bh
006F7249 EE out dx, al
006F724A 48 dec eax
006F724B 00F4 add ah, dh
006F724D EE out dx, al
006F724E 48 dec eax
006F724F 00F0 add al, dh
006F7251 E94800D8EE jmp EF47729E
006F7256 48 dec eax
006F7257 00E0 add al, ah
006F7259 6B440080B6 imul eax, [eax+eax-$80], $B6
006F725E 48 dec eax
006F725F 0020 add [eax], ah
006F7261 C44800 les ecx, [eax+$00]
006F7264 E467 in al, $67
006F7266 44 inc esp
006F7267 0008 add [eax], cl
006F7269 C1480038 ror dword ptr [eax+$00], $38
006F726D BF4800B8C4 mov edi, $C4B80048
006F7272 48 dec eax
006F7273 00BCC4480074C3 add [esp+eax*8+$C3740048], bh
006F727A 48 dec eax
006F727B 001CC3 add [ebx+eax*8], bl
006F727E 48 dec eax
006F727F 0018 add [eax], bl
006F7281 F0 lock
006F7282 48 dec eax
006F7283 00780D add [eax+$0D], bh
006F7286 49 dec ecx
006F7287 00A06D440094 add [eax+$9400446D], ah
006F728D EC in al, dx
006F728E 48 dec eax
006F728F 0084EF4800C481 add [edi+ebp*8+$81C40048], al
006F7296 6F outsd
006F7297 000E add [esi], cl
006F7299 0000 add [eax], al
*)
end;
end.

BIN
YSYF/RM_PageSetup.dfm Normal file

Binary file not shown.

4291
YSYF/RM_PageSetup.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/RM_Preview.dfm Normal file

Binary file not shown.

52649
YSYF/RM_Preview.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/RM_PrintDlg.dfm Normal file

Binary file not shown.

2349
YSYF/RM_PrintDlg.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/RM_RichEdit.dfm Normal file

Binary file not shown.

7850
YSYF/RM_RichEdit.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/RM_RxParaFmt.dfm Normal file

Binary file not shown.

127
YSYF/RM_RxParaFmt.pas Normal file
View File

@ -0,0 +1,127 @@
unit RM_RxParaFmt;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TRMParaFormatDlg=class(TForm)
btnOK: TButton;
btnCancel: TButton;
IndentBox: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Alignment: TRadioGroup;
SpacingBox: TGroupBox;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
edtSpaceBefore: TEdit;
edtSpaceAfter: TEdit;
edtLineSpacing: TEdit;
edtLeftIndent: TEdit;
edtRightIndent: TEdit;
edtFirstIndent: TEdit;
UpDownSpaceBefore: TUpDown;
UpDownSpaceAfter: TUpDown;
UpDownLineSpacing: TUpDown;
UpDownLeftIndent: TUpDown;
UpDownRightIndent: TUpDown;
UpDownFirstIndent: TUpDown;
procedure FormCreate(Sender : TObject);
procedure _PROC_00799BDD(Sender : TObject);
procedure _PROC_00799C0C(Sender : TObject);
procedure _PROC_00799C14(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
RMParaFormatDlg: TRMParaFormatDlg;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TRMParaFormatDlg.FormCreate(Sender : TObject);
begin
(*
|
00799BD4 E8D7FDFFFF call 007999B0
00799BD9 C3 ret
*)
end;
procedure TRMParaFormatDlg._PROC_00799BDD(Sender : TObject);
begin
(*
00799BDD 8BEC mov ebp, esp
00799BDF 33C0 xor eax, eax
00799BE1 55 push ebp
* Possible String Reference to: 'éî®Æÿëø]ËÀƒ-p;‰'
|
00799BE2 68019C7900 push $00799C01
***** TRY
|
00799BE7 64FF30 push dword ptr fs:[eax]
00799BEA 648920 mov fs:[eax], esp
00799BED FF05703B8900 inc dword ptr [$00893B70]
00799BF3 33C0 xor eax, eax
00799BF5 5A pop edx
00799BF6 59 pop ecx
00799BF7 59 pop ecx
00799BF8 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']ËÀƒ-p;‰'
|
00799BFB 68089C7900 push $00799C08
00799C00 C3 ret
* Reference to: System.@HandleFinally;
|
00799C01 E9EEAEC6FF jmp 00404AF4
00799C06 EBF8 jmp 00799C00
****** END
|
00799C08 5D pop ebp
00799C09 C3 ret
*)
end;
procedure TRMParaFormatDlg._PROC_00799C0C(Sender : TObject);
begin
(*
00799C0C 832D703B890001 sub dword ptr [$00893B70], +$01
00799C13 C3 ret
*)
end;
procedure TRMParaFormatDlg._PROC_00799C14(Sender : TObject);
begin
(*
00799C14 60 pusha
00799C15 9C pushf
00799C16 7900 jns 00799C18
00799C18 0000 add [eax], al
*)
end;
end.

BIN
YSYF/RM_e_Xls.dfm Normal file

Binary file not shown.

4012
YSYF/RM_e_Xls.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/RM_progr.dfm Normal file

Binary file not shown.

2137
YSYF/RM_progr.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_CWZK_CX.dfm Normal file

Binary file not shown.

1434
YSYF/U_CWZK_CX.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_CaiWuHuilV.dfm Normal file

Binary file not shown.

6826
YSYF/U_CaiWuHuilV.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_ConInPut_CX.dfm Normal file

Binary file not shown.

4269
YSYF/U_ConInPut_CX.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_DataLink.dfm Normal file

Binary file not shown.

378
YSYF/U_DataLink.pas Normal file
View File

@ -0,0 +1,378 @@
unit U_DataLink;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TDataLink_YSYF=class(TForm)
AdoDataLink: TADOQuery;
ADOLink: TADOConnection;
ThreeImgList: TImageList;
ThreeLookAndFeelCol: TcxLookAndFeelController;
ThreeColorBase: TcxStyleRepository;
SHuangSe: TcxStyle;
SkyBlue: TcxStyle;
Default: TcxStyle;
QHuangSe: TcxStyle;
Red: TcxStyle;
FontBlue: TcxStyle;
TextSHuangSe: TcxStyle;
FonePurple: TcxStyle;
FoneClMaroon: TcxStyle;
FoneRed: TcxStyle;
RowColor: TcxStyle;
handBlack: TcxStyle;
cxBlue: TcxStyle;
Green: TcxStyle;
cxStyle1: TcxStyle;
procedure DataModuleDestroy(Sender : TObject);
procedure _PROC_004F975C(Sender : TObject);
procedure _PROC_004F9764(Sender : TObject);
procedure _PROC_004F97CA(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
DataLink_YSYF: TDataLink_YSYF;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TDataLink_YSYF.DataModuleDestroy(Sender : TObject);
begin
(*
004F9644 33C0 xor eax, eax
* Reference to GlobalVar_0089316C
|
004F9646 A36C318900 mov dword ptr [$0089316C], eax
004F964B C3 ret
*)
end;
procedure TDataLink_YSYF._PROC_004F975C(Sender : TObject);
begin
(*
004F975C 832D7031890001 sub dword ptr [$00893170], +$01
004F9763 C3 ret
*)
end;
procedure TDataLink_YSYF._PROC_004F9764(Sender : TObject);
begin
(*
004F9764 B097 mov al, $97
004F9766 4F dec edi
004F9767 0000 add [eax], al
*)
end;
procedure TDataLink_YSYF._PROC_004F97CA(Sender : TObject);
begin
(*
004F97CA 48 dec eax
004F97CB 0050D4 add [eax-$2C], dl
004F97CE 42 inc edx
004F97CF 0084D042007CD0 add [eax+edx*8+$D07C0042], al
004F97D6 42 inc edx
004F97D7 0058D4 add [eax-$2C], bl
004F97DA 42 inc edx
004F97DB 00D4 add ah, dl
004F97DD B84F0030F6 mov eax, $F630004F
004F97E2 48 dec eax
004F97E3 004CFB48 add [ebx+edi*8+$48], cl
004F97E7 0098FA48000C add [eax+$C0048FA], bl
004F97ED 7948 jns 004F9837
004F97EF 00ACF04800CCF0 add [eax+esi*8+$F0CC0048], ch
004F97F6 48 dec eax
004F97F7 00E4 add ah, ah
004F97F9 ED in eax, dx
004F97FA 48 dec eax
004F97FB 00547848 add [eax+edi*2+$48], dl
004F97FF 005878 add [eax+$78], bl
004F9802 48 dec eax
004F9803 0010 add [eax], dl
004F9805 A948003CA9 test eax, $A93C0048
004F980A 48 dec eax
004F980B 00C0 add al, al
004F980D 834800D0 or dword ptr [eax+$00], -$30
004F9811 7948 jns 004F985B
004F9813 004C8548 add [ebp+eax*4+$48], cl
004F9817 00C4 add ah, al
004F9819 844800 test [eax+$00], cl
004F981C D88748008486 fadd dword ptr [edi+$86840048]
004F9822 48 dec eax
004F9823 0094C94800C0A9 add [ecx+ecx*8+$A9C00048], dl
004F982A 48 dec eax
004F982B 0038 add [eax], bh
004F982D EE out dx, al
004F982E 48 dec eax
004F982F 00F4 add ah, dh
004F9831 EE out dx, al
004F9832 48 dec eax
004F9833 0088BA4F00D8 add [eax+$D8004FBA], cl
004F9839 EE out dx, al
004F983A 48 dec eax
004F983B 00EC add ah, ch
004F983D AF scasd
004F983E 48 dec eax
004F983F 0080B6480020 add [eax+$200048B6], al
004F9845 C44800 les ecx, [eax+$00]
004F9848 0CBE or al, $BE
004F984A 48 dec eax
004F984B 0008 add [eax], cl
004F984D C1480038 ror dword ptr [eax+$00], $38
004F9851 BF4800B8C4 mov edi, $C4B80048
004F9856 48 dec eax
004F9857 00BCC4480074C3 add [esp+eax*8+$C3740048], bh
004F985E 48 dec eax
004F985F 001CC3 add [ebx+eax*8], bl
004F9862 48 dec eax
004F9863 0018 add [eax], bl
004F9865 F0 lock
004F9866 48 dec eax
004F9867 0064CD48 add [ebp+ecx*8+$48], ah
004F986B 000C02 add [edx+eax], cl
004F986E 49 dec ecx
004F986F 0094EC480084EF add [esp+ebp*8+$EF840048], dl
004F9876 48 dec eax
004F9877 000500050007 add [$07000500], al
004F987D 0008 add [eax], cl
004F987F 008700BCFFCC add [edi+$CCFFBC00], al
004F9885 BA4F002CBB mov edx, $BB2C004F
004F988A 4F dec edi
004F988B 0038 add [eax], bh
004F988D BB4F0074BC mov ebx, $BC74004F
004F9892 4F dec edi
004F9893 0044BB4F add [ebx+edi*4+$4F], al
004F9897 000C54 add [esp+edx*2], cl
004F989A 53 push ebx
004F989B 7069 jo 004F9906
004F989D 6E outsb
004F989E 42 inc edx
004F989F 7574 jnz 004F9915
004F98A1 746F jz 004F9912
004F98A3 6E outsb
004F98A4 41 inc ecx
004F98A5 8D4000 lea eax, [eax+$00]
004F98A8 AC lodsb
004F98A9 98 cwde
004F98AA 4F dec edi
004F98AB 0007 add [edi], al
004F98AD 0C54 or al, $54
004F98AF 53 push ebx
004F98B0 7069 jo 004F991B
004F98B2 6E outsb
004F98B3 42 inc edx
004F98B4 7574 jnz 004F992A
004F98B6 746F jz 004F9927
004F98B8 6E outsb
004F98B9 41 inc ecx
004F98BA B097 mov al, $97
004F98BC 4F dec edi
004F98BD 0008 add [eax], cl
004F98BF 47 inc edi
004F98C0 48 dec eax
004F98C1 0029 add [ecx], ch
004F98C3 0007 add [edi], al
004F98C5 42 inc edx
004F98C6 746E jz 004F9936
004F98C8 45 inc ebp
004F98C9 6469741E00482C4800 imul esi, fs:[esi+ebx+$00], $00482C48
004F98D2 5B pop ebx
004F98D3 0000 add [eax], al
004F98D5 FFDC call sp
004F98D7 7A48 jp 004F9921
004F98D9 0001 add [ecx], al
004F98DB 0000 add [eax], al
004F98DD 0000 add [eax], al
004F98DF 0000 add [eax], al
004F98E1 800000 add byte ptr [eax], $00
004F98E4 0000 add [eax], al
004F98E6 0B00 or eax, [eax]
004F98E8 05416C6967 add eax, +$67696C41
004F98ED 6E outsb
004F98EE 8833 mov [ebx], dh
004F98F0 48 dec eax
004F98F1 006100 add [ecx+$00], ah
004F98F4 00FF add bh, bh
004F98F6 1C79 sbb al, $79
004F98F8 48 dec eax
004F98F9 00B879480000 add [eax+$4879], bh
004F98FF 0000 add [eax], al
004F9901 800300 add byte ptr [ebx], $00
004F9904 0000 add [eax], al
004F9906 0C00 or al, $00
004F9908 07 pop es
004F9909 41 inc ecx
004F990A 6E outsb
004F990B 63686F arpl [eax+$6F], bp
004F990E 7273 jb 004F9983
004F9910 303448 xor [eax+ecx*2], dh
004F9913 00740000 add [eax+eax+$00], dh
004F9917 FF58AB call [eax-$55]
004F991A 48 dec eax
004F991B 0001 add [ecx], al
004F991D 0000 add [eax], al
004F991F 0000 add [eax], al
004F9921 0000 add [eax], al
004F9923 800000 add byte ptr [eax], $00
004F9926 00800D000B43 add [eax+$430B000D], al
004F992C 6F outsd
004F992D 6E outsb
004F992E 7374 jnb 004F99A4
004F9930 7261 jb 004F9993
004F9932 696E7473001040 imul ebp, [esi+$74], $40100073
004F9939 00A50100FF44 add [ebp+$44FF0001], ah
004F993F F1 DB $F1 //
004F9940 48 dec eax
004F9941 0068F1 add [eax-$0F], ch
004F9944 48 dec eax
004F9945 0000 add [eax], al
004F9947 0000 add [eax], al
004F9949 800000 add byte ptr [eax], $00
004F994C 00800E000543 add [eax+$4305000E], al
004F9952 746C jz 004F99C0
004F9954 3344CCF9 xor eax, [esp+ecx*8-$07]
004F9958 42 inc edx
004F9959 0050BD add [eax-$43], dl
004F995C 4F dec edi
004F995D 005CBD4F add [ebp+edi*4+$4F], bl
004F9961 0001 add [ecx], al
004F9963 0000 add [eax], al
004F9965 0000 add [eax], al
004F9967 0000 add [eax], al
004F9969 800000 add byte ptr [eax], $00
004F996C 00800F000944 add [eax+$4409000F], al
004F9972 6F outsd
004F9973 776E jnbe 004F99E3
004F9975 47 inc edi
004F9976 6C insb
004F9977 7970 jns 004F99E9
* Possible String Reference to: 'ŒŽD'
|
004F9979 68888E4400 push $00448E88
004F997E B8BD4F00C4 mov eax, $C4004FBD
004F9983 BD4F000100 mov ebp, $0001004F
004F9988 0000 add [eax], al
004F998A 0000 add [eax], al
004F998C 008001000000 add [eax+$0001], al
004F9992 1000 adc [eax], al
004F9994 0D446F776E or eax, $6E776F44
004F9999 4E dec esi
004F999A 756D jnz 004F9A09
004F999C 47 inc edi
004F999D 6C insb
004F999E 7970 jns 004F9A10
004F99A0 6873302C48 push $482C3073
004F99A5 007A00 add [edx+$00], bh
004F99A8 00FF add bh, bh
004F99AA 7A00 jp 004F99AC
004F99AC 00FF add bh, bh
004F99AE 0100 add [eax], eax
004F99B0 0000 add [eax], al
004F99B2 0000 add [eax], al
004F99B4 0080F4FFFFFF add [eax+$FFFFFFF4], al
004F99BA 1100 adc [eax], eax
004F99BC 0A447261 or al, byte ptr [edx+esi*2+$61]
004F99C0 6743 inc ebx
004F99C2 7572 jnz 004F9A36
004F99C4 736F jnb 004F9A35
004F99C6 72CC jb 004F9994
004F99C8 324800 xor cl, byte ptr [eax+$00]
004F99CB 9B wait
004F99CC 0000 add [eax], al
004F99CE FF9B0000FF01 call [ebx+$1FF0000]
004F99D4 0000 add [eax], al
004F99D6 0000 add [eax], al
004F99D8 0000 add [eax], al
004F99DA 800000 add byte ptr [eax], $00
004F99DD 0000 add [eax], al
004F99DF 1200 adc al, byte ptr [eax]
004F99E1 08447261 or [edx+esi*2+$61], al
004F99E5 674B dec ebx
004F99E7 696E6444324800 imul ebp, [esi+$64], $00483244
004F99EE 5D pop ebp
004F99EF 0000 add [eax], al
004F99F1 FF6000 jmp dword ptr [eax+$00]
004F99F4 00FE add dh, bh
004F99F6 0100 add [eax], eax
004F99F8 0000 add [eax], al
004F99FA 0000 add [eax], al
004F99FC 008000000000 add [eax+$0000], al
004F9A02 1300 adc eax, [eax]
004F9A04 08447261 or [edx+esi*2+$61], al
004F9A08 674D dec ebp
004F9A0A 6F outsd
004F9A0B 64650010 add gs:[eax], dl
004F9A0F 40 inc eax
004F9A10 005000 add [eax+$00], dl
004F9A13 00FE add dh, bh
004F9A15 640000 add fs:[eax], al
004F9A18 FEA0 DB $FE, $A0 //
004F9A1A A6 cmpsb
004F9A1B 48 dec eax
004F9A1C 0000 add [eax], al
004F9A1E 0000 add [eax], al
004F9A20 800100 add byte ptr [ecx], $00
004F9A23 0000 add [eax], al
004F9A25 1400 adc al, $00
004F9A27 07 pop es
004F9A28 45 inc ebp
004F9A29 6E outsb
004F9A2A 61 popa
004F9A2B 626C6564 bound ebp, qword ptr [ebp+$64]
004F9A2F 084748 or [edi+$48], al
004F9A32 001402 add [edx+eax], dl
004F9A35 00FF add bh, bh
004F9A37 1402 adc al, $02
004F9A39 00FF add bh, bh
004F9A3B 0100 add [eax], eax
004F9A3D 0000 add [eax], al
*)
end;
end.

BIN
YSYF/U_FKCR.dfm Normal file

Binary file not shown.

11365
YSYF/U_FKCR.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_FKCR_SH.dfm Normal file

Binary file not shown.

11111
YSYF/U_FKCR_SH.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_FPINVOICE_TJ.dfm Normal file

Binary file not shown.

468
YSYF/U_FPINVOICE_TJ.pas Normal file
View File

@ -0,0 +1,468 @@
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.

BIN
YSYF/U_FjList10.dfm Normal file

Binary file not shown.

1590
YSYF/U_FjList10.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_FjList_RZ.dfm Normal file

Binary file not shown.

2661
YSYF/U_FjList_RZ.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_JYOrderCon_CX.dfm Normal file

Binary file not shown.

2948
YSYF/U_JYOrderCon_CX.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_JYOrderYS.dfm Normal file

Binary file not shown.

1740
YSYF/U_JYOrderYS.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_PbProductList.dfm Normal file

Binary file not shown.

2126
YSYF/U_PbProductList.pas Normal file

File diff suppressed because it is too large Load Diff

Binary file not shown.

File diff suppressed because it is too large Load Diff

Binary file not shown.

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_SKCR.dfm Normal file

Binary file not shown.

10445
YSYF/U_SKCR.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_SKCR_SH.dfm Normal file

Binary file not shown.

10198
YSYF/U_SKCR_SH.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_SKCR_YF.dfm Normal file

Binary file not shown.

10824
YSYF/U_SKCR_YF.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_SXCKNewList.dfm Normal file

Binary file not shown.

2812
YSYF/U_SXCKNewList.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_SXCKNewList_SK.dfm Normal file

Binary file not shown.

3617
YSYF/U_SXCKNewList_SK.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_SelExportField.dfm Normal file

Binary file not shown.

9575
YSYF/U_SelExportField.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_XXFPINVOICE_TJ.dfm Normal file

Binary file not shown.

1450
YSYF/U_XXFPINVOICE_TJ.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_YFCR.dfm Normal file

Binary file not shown.

11983
YSYF/U_YFCR.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_YFCR_SH.dfm Normal file

Binary file not shown.

8422
YSYF/U_YFCR_SH.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_YFFKList.dfm Normal file

Binary file not shown.

2317
YSYF/U_YFFKList.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_YFFP.dfm Normal file

Binary file not shown.

11973
YSYF/U_YFFP.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_YFFP_HX.dfm Normal file

Binary file not shown.

10755
YSYF/U_YFFP_HX.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_YFZDList_MX.dfm Normal file

Binary file not shown.

1389
YSYF/U_YFZDList_MX.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_YKHXList.dfm Normal file

Binary file not shown.

2531
YSYF/U_YKHXList.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_YSCRKP.dfm Normal file

Binary file not shown.

8312
YSYF/U_YSCRKP.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_YSCRPB.dfm Normal file

Binary file not shown.

9744
YSYF/U_YSCRPB.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_YSCRPB_QT.dfm Normal file

Binary file not shown.

11970
YSYF/U_YSCRPB_QT.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_YSCRPB_QTTJ.dfm Normal file

Binary file not shown.

10422
YSYF/U_YSCRPB_QTTJ.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_YSCRPB_ZHYH.dfm Normal file

Binary file not shown.

12962
YSYF/U_YSCRPB_ZHYH.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_YSCR_PBSH.dfm Normal file

Binary file not shown.

8203
YSYF/U_YSCR_PBSH.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_YSFP.dfm Normal file

Binary file not shown.

10081
YSYF/U_YSFP.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_YSSKList.dfm Normal file

Binary file not shown.

2242
YSYF/U_YSSKList.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_YSSKList_KP.dfm Normal file

Binary file not shown.

2645
YSYF/U_YSSKList_KP.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_YSSKList_KPFK.dfm Normal file

Binary file not shown.

2772
YSYF/U_YSSKList_KPFK.pas Normal file

File diff suppressed because it is too large Load Diff

BIN
YSYF/U_YSZDList_MX.dfm Normal file

Binary file not shown.

7570
YSYF/U_YSZDList_MX.pas Normal file

File diff suppressed because it is too large Load Diff

Some files were not shown because too many files have changed in this diff Show More