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

1740 lines
65 KiB
ObjectPascal
Raw Permalink Normal View History

1
2024-07-23 20:18:14 +08:00
unit U_JYOrderYS;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TFrmJYOrderYS=class(TForm)
Panel1: TPanel;
Label2: TLabel;
KHName: TEdit;
Label3: TLabel;
JFJGMoney: TEdit;
Panel2: TPanel;
cxGrid1: TcxGrid;
cxGridLevel1: TcxGridLevel;
TV1: TcxGridDBBandedTableView;
ToolBar1: TToolBar;
TBClose: TToolButton;
V1CRTime: TcxGridDBBandedColumn;
V1SPName: TcxGridDBBandedColumn;
V1TTQty: TcxGridDBBandedColumn;
V1Price: TcxGridDBBandedColumn;
V1PBMoney: TcxGridDBBandedColumn;
Panel3: TPanel;
Panel4: TPanel;
V1KCPBQty: TcxGridDBBandedColumn;
V1KCPBPS: TcxGridDBBandedColumn;
DataSource1: TDataSource;
DataSource2: TDataSource;
DataSource4: TDataSource;
DataSource5: TDataSource;
Order_PB: TClientDataSet;
Order_RF: TClientDataSet;
Order_XS: TClientDataSet;
Order_FYZC: TClientDataSet;
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
ADOQuery4: TADOQuery;
cxGrid2: TcxGrid;
TV2: TcxGridDBBandedTableView;
cxGridDBBandedColumn1: TcxGridDBBandedColumn;
cxGridDBBandedColumn2: TcxGridDBBandedColumn;
V2Column1: TcxGridDBBandedColumn;
cxGridDBBandedColumn3: TcxGridDBBandedColumn;
cxGridDBBandedColumn4: TcxGridDBBandedColumn;
cxGridDBBandedColumn5: TcxGridDBBandedColumn;
cxGridDBBandedColumn6: TcxGridDBBandedColumn;
V2FactoryName: TcxGridDBBandedColumn;
cxGridLevel2: TcxGridLevel;
Panel5: TPanel;
cxGrid5: TcxGrid;
TV5: TcxGridDBBandedTableView;
V5CRTime: TcxGridDBBandedColumn;
V5YFName: TcxGridDBBandedColumn;
V5RMBMoney: TcxGridDBBandedColumn;
cxGridLevel5: TcxGridLevel;
Label1: TLabel;
ConNo: TEdit;
cxGrid4: TcxGrid;
TV4: TcxGridDBBandedTableView;
cxGridDBBandedColumn15: TcxGridDBBandedColumn;
cxGridDBBandedColumn16: TcxGridDBBandedColumn;
V4P_Spec: TcxGridDBBandedColumn;
cxGridDBBandedColumn17: TcxGridDBBandedColumn;
cxGridDBBandedColumn18: TcxGridDBBandedColumn;
cxGridDBBandedColumn19: TcxGridDBBandedColumn;
cxGridDBBandedColumn20: TcxGridDBBandedColumn;
V4RMBMoney: TcxGridDBBandedColumn;
V4BZType: TcxGridDBBandedColumn;
cxGridLevel4: TcxGridLevel;
cxGrid3: TcxGrid;
TV3: TcxGridDBBandedTableView;
cxGridDBBandedColumn8: TcxGridDBBandedColumn;
cxGridDBBandedColumn9: TcxGridDBBandedColumn;
cxGridDBBandedColumn10: TcxGridDBBandedColumn;
cxGridLevel3: TcxGridLevel;
DataSource3: TDataSource;
ADOQuery3: TADOQuery;
Order_SK: TClientDataSet;
V5BZType: TcxGridDBBandedColumn;
V3BZType: TcxGridDBBandedColumn;
V3Huilv: TcxGridDBBandedColumn;
Label4: TLabel;
MaoLMoney: TEdit;
Label5: TLabel;
YGMoney: TEdit;
V1FactoryName: TcxGridDBBandedColumn;
V5Note: TcxGridDBBandedColumn;
V4Huilv: TcxGridDBBandedColumn;
DataSource6: TDataSource;
ADOQuery5: TADOQuery;
Order_FL: TClientDataSet;
cxGrid6: TcxGrid;
TV6: TcxGridDBBandedTableView;
V6CRTime: TcxGridDBBandedColumn;
V6FactoryName: TcxGridDBBandedColumn;
V6SPName: TcxGridDBBandedColumn;
V6FLQty: TcxGridDBBandedColumn;
V6Price: TcxGridDBBandedColumn;
V6FLMoney: TcxGridDBBandedColumn;
cxGridLevel6: TcxGridLevel;
procedure FormClose(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure TBCloseClick(Sender : TObject);
procedure _PROC_00840CF6(Sender : TObject);
procedure _PROC_00841285(Sender : TObject);
procedure _PROC_008412B4(Sender : TObject);
procedure _PROC_008412BC(Sender : TObject);
procedure _PROC_00841322(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
FrmJYOrderYS: TFrmJYOrderYS;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFrmJYOrderYS.FormClose(Sender : TObject);
begin
(*
00840FEC C60102 mov byte ptr [ecx], $02
00840FEF C3 ret
*)
end;
procedure TFrmJYOrderYS.FormDestroy(Sender : TObject);
begin
(*
00840FF0 33C0 xor eax, eax
* Reference to GlobalVar_00895A38
|
00840FF2 A3385A8900 mov dword ptr [$00895A38], eax
00840FF7 C3 ret
*)
end;
procedure TFrmJYOrderYS.FormShow(Sender : TObject);
begin
(*
00840FF8 55 push ebp
00840FF9 8BEC mov ebp, esp
00840FFB 33C9 xor ecx, ecx
00840FFD 51 push ecx
00840FFE 51 push ecx
00840FFF 51 push ecx
00841000 51 push ecx
00841001 53 push ebx
00841002 8BD8 mov ebx, eax
00841004 33C0 xor eax, eax
00841006 55 push ebp
* Possible String Reference to: '<27><>9<EFBFBD><39><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
00841007 681E118400 push $0084111E
***** TRY
|
0084100C 64FF30 push dword ptr fs:[eax]
0084100F 648920 mov fs:[eax], esp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>ϸ'
|
00841012 B934118400 mov ecx, $00841134
* Reference to control TFrmJYOrderYS.TV1 : TcxGridDBBandedTableView
|
00841017 8B9318030000 mov edx, [ebx+$0318]
* Possible String Reference to: '<27><><EFBFBD><EFBFBD>2'
|
0084101D B84C118400 mov eax, $0084114C
|
00841022 E87D6AF7FF call 007B7AA4
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>ϸ'
|
00841027 B934118400 mov ecx, $00841134
* Reference to control TFrmJYOrderYS.TV2 : TcxGridDBBandedTableView
|
0084102C 8B9378030000 mov edx, [ebx+$0378]
* Possible String Reference to: 'Ⱦ<><C8BE>1'
|
00841032 B85C118400 mov eax, $0084115C
|
00841037 E8686AF7FF call 007B7AA4
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>ϸ'
|
0084103C B934118400 mov ecx, $00841134
* Reference to control TFrmJYOrderYS.TV3 : TcxGridDBBandedTableView
|
00841041 8B93F8030000 mov edx, [ebx+$03F8]
* Possible String Reference to: '<27>տ<EFBFBD>1'
|
00841047 B86C118400 mov eax, $0084116C
|
0084104C E8536AF7FF call 007B7AA4
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>ϸ'
|
00841051 B934118400 mov ecx, $00841134
* Reference to control TFrmJYOrderYS.TV5 : TcxGridDBBandedTableView
|
00841056 8B93A8030000 mov edx, [ebx+$03A8]
* Possible String Reference to: '<27><><EFBFBD><EFBFBD>֧<EFBFBD><D6A7>1'
|
0084105C B87C118400 mov eax, $0084117C
|
00841061 E83E6AF7FF call 007B7AA4
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>ϸ'
|
00841066 B934118400 mov ecx, $00841134
* Reference to control TFrmJYOrderYS.TV4 : TcxGridDBBandedTableView
|
0084106B 8B93C8030000 mov edx, [ebx+$03C8]
* Possible String Reference to: '<27><><EFBFBD>۳<EFBFBD><DBB3><EFBFBD>2'
|
00841071 B890118400 mov eax, $00841190
|
00841076 E8296AF7FF call 007B7AA4
0084107B 8D55FC lea edx, [ebp-$04]
* Reference to field TFrmJYOrderYS.OFFS_0474
|
0084107E 8B8374040000 mov eax, [ebx+$0474]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00841084 E86398BCFF call 0040A8EC
00841089 8B55FC mov edx, [ebp-$04]
* Reference to control TFrmJYOrderYS.ConNo : TEdit
|
0084108C 8B83C0030000 mov eax, [ebx+$03C0]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00841092 E88975C4FF call 00488620
00841097 8D55F8 lea edx, [ebp-$08]
* Reference to field TFrmJYOrderYS.OFFS_047C
|
0084109A 8B837C040000 mov eax, [ebx+$047C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008410A0 E84798BCFF call 0040A8EC
008410A5 8B55F8 mov edx, [ebp-$08]
* Reference to control TFrmJYOrderYS.KHName : TEdit
|
008410A8 8B8300030000 mov eax, [ebx+$0300]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
008410AE E86D75C4FF call 00488620
008410B3 8D55F4 lea edx, [ebp-$0C]
* Reference to field TFrmJYOrderYS.OFFS_0480
|
008410B6 8B8380040000 mov eax, [ebx+$0480]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008410BC E82B98BCFF call 0040A8EC
008410C1 8B55F4 mov edx, [ebp-$0C]
* Reference to control TFrmJYOrderYS.MaoLMoney : TEdit
|
008410C4 8B8328040000 mov eax, [ebx+$0428]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
008410CA E85175C4FF call 00488620
008410CF 8D55F0 lea edx, [ebp-$10]
* Reference to field TFrmJYOrderYS.OFFS_0484
|
008410D2 8B8384040000 mov eax, [ebx+$0484]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008410D8 E80F98BCFF call 0040A8EC
008410DD 8B55F0 mov edx, [ebp-$10]
* Reference to control TFrmJYOrderYS.YGMoney : TEdit
|
008410E0 8B8330040000 mov eax, [ebx+$0430]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
008410E6 E83575C4FF call 00488620
* Reference to field TFrmJYOrderYS.OFFS_0488
|
008410EB 8B9388040000 mov edx, [ebx+$0488]
* Reference to control TFrmJYOrderYS.JFJGMoney : TEdit
|
008410F1 8B8308030000 mov eax, [ebx+$0308]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
008410F7 E82475C4FF call 00488620
008410FC 8BC3 mov eax, ebx
|
008410FE E805EFFFFF call 00840008
00841103 33C0 xor eax, eax
00841105 5A pop edx
00841106 59 pop ecx
00841107 59 pop ecx
00841108 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[<5B><>]<5D>'
|
0084110B 6825118400 push $00841125
00841110 8D45F0 lea eax, [ebp-$10]
00841113 BA04000000 mov edx, $00000004
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00841118 E82B42BCFF call 00405348
0084111D C3 ret
* Reference to: System.@HandleFinally;
|
0084111E E9D139BCFF jmp 00404AF4
00841123 EBEB jmp 00841110
****** END
|
00841125 5B pop ebx
00841126 8BE5 mov esp, ebp
00841128 5D pop ebp
00841129 C3 ret
*)
end;
procedure TFrmJYOrderYS.TBCloseClick(Sender : TObject);
begin
(*
0084119C 53 push ebx
0084119D 8BD8 mov ebx, eax
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>ϸ'
|
0084119F B91C128400 mov ecx, $0084121C
* Reference to control TFrmJYOrderYS.TV1 : TcxGridDBBandedTableView
|
008411A4 8B9318030000 mov edx, [ebx+$0318]
* Possible String Reference to: '<27><><EFBFBD><EFBFBD>2'
|
008411AA B834128400 mov eax, $00841234
|
008411AF E8086BF7FF call 007B7CBC
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>ϸ'
|
008411B4 B91C128400 mov ecx, $0084121C
* Reference to control TFrmJYOrderYS.TV2 : TcxGridDBBandedTableView
|
008411B9 8B9378030000 mov edx, [ebx+$0378]
* Possible String Reference to: 'Ⱦ<><C8BE>1'
|
008411BF B844128400 mov eax, $00841244
|
008411C4 E8F36AF7FF call 007B7CBC
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>ϸ'
|
008411C9 B91C128400 mov ecx, $0084121C
* Reference to control TFrmJYOrderYS.TV3 : TcxGridDBBandedTableView
|
008411CE 8B93F8030000 mov edx, [ebx+$03F8]
* Possible String Reference to: '<27>տ<EFBFBD>1'
|
008411D4 B854128400 mov eax, $00841254
|
008411D9 E8DE6AF7FF call 007B7CBC
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>ϸ'
|
008411DE B91C128400 mov ecx, $0084121C
* Reference to control TFrmJYOrderYS.TV5 : TcxGridDBBandedTableView
|
008411E3 8B93A8030000 mov edx, [ebx+$03A8]
* Possible String Reference to: '<27><><EFBFBD><EFBFBD>֧<EFBFBD><D6A7>1'
|
008411E9 B864128400 mov eax, $00841264
|
008411EE E8C96AF7FF call 007B7CBC
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>ϸ'
|
008411F3 B91C128400 mov ecx, $0084121C
* Reference to control TFrmJYOrderYS.TV4 : TcxGridDBBandedTableView
|
008411F8 8B93C8030000 mov edx, [ebx+$03C8]
* Possible String Reference to: '<27><><EFBFBD>۳<EFBFBD><DBB3><EFBFBD>2'
|
008411FE B878128400 mov eax, $00841278
|
00841203 E8B46AF7FF call 007B7CBC
00841208 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
0084120A E8894DC6FF call 004A5F98
0084120F 5B pop ebx
00841210 C3 ret
*)
end;
procedure TFrmJYOrderYS._PROC_00840CF6(Sender : TObject);
begin
(*
00840CF6 53 push ebx
00840CF7 44 inc esp
00840CF8 4D dec ebp
00840CF9 6F outsd
00840CFA 6E outsb
00840CFB 65793D jns 00840D3B
00840CFE 7375 jnb 00840D75
00840D00 6D insd
00840D01 28452E sub [ebp+$2E], al
00840D04 4E dec esi
00840D05 756D jnz 00840D74
00840D07 2900 sub dword ptr [eax], eax
00840D09 0000 add [eax], al
00840D0B 00FF add bh, bh
00840D0D FFFF DB $FF, $FF //
00840D0F FF13 call dword ptr [ebx]
00840D11 0000 add [eax], al
00840D13 006672 add [esi+$72], ah
00840D16 6F outsd
00840D17 6D insd
00840D18 205946 and [ecx+$46], bl
00840D1B 5F pop edi
00840D1C 4D dec ebp
00840D1D 6F outsd
00840D1E 6E outsb
00840D1F 65795F jns 00840D81
00840D22 43 inc ebx
00840D23 52 push edx
00840D24 204120 and [ecx+$20], al
00840D27 00FF add bh, bh
00840D29 FFFF DB $FF, $FF //
00840D2B FF27 jmp dword ptr [edi]
00840D2D 0000 add [eax], al
00840D2F 00696E add [ecx+$6E], ch
00840D32 6E outsb
00840D33 657220 jb 00840D56
00840D36 6A6F push $6F
00840D38 696E2059465F6C imul ebp, [esi+$20], $6C5F4659
00840D3F 6F outsd
00840D40 67204520 and [di+$20], al
00840D44 6F outsd
00840D45 6E outsb
00840D46 20452E and [ebp+$2E], al
00840D49 4C dec esp
00840D4A 6973744E6F3D41 imul esi, [ebx+$74], $413D6F4E
00840D51 2E59 pop ecx
00840D53 46 inc esi
00840D54 49 dec ecx
00840D55 44 inc esp
00840D56 2000 and [eax], al
00840D58 FFFF DB $FF, $FF //
00840D5A FFFF DB $FF, $FF //
00840D5C 44 inc esp
00840D5D 0000 add [eax], al
00840D5F 00696E add [ecx+$6E], ch
00840D62 6E outsb
00840D63 657220 jb 00840D86
00840D66 6A6F push $6F
00840D68 696E2059465F4D imul ebp, [esi+$20], $4D5F4659
00840D6F 6F outsd
00840D70 6E outsb
00840D71 65795F jns 00840DD3
00840D74 43 inc ebx
00840D75 52 push edx
00840D76 204220 and [edx+$20], al
00840D79 6F outsd
00840D7A 6E outsb
00840D7B 20422E and [edx+$2E], al
00840D7E 59 pop ecx
00840D7F 46 inc esi
00840D80 49 dec ecx
00840D81 44 inc esp
00840D82 3D452E546F cmp eax, $6F542E45
00840D87 4E dec esi
00840D88 6F outsd
00840D89 20616E and [ecx+$6E], ah
00840D8C 6420422E and fs:[edx+$2E], al
00840D90 43 inc ebx
00840D91 52 push edx
00840D92 54 push esp
00840D93 7970 jns 00840E05
00840D95 653D27D3A6CA cmp eax, $CAA6D327
00840D9B D5 aad
00840D9C BFEEB5C7BC mov edi, $BCC7B5EE
00840DA1 C72720000000 mov dword ptr [edi], $00000020
00840DA7 00FF add bh, bh
00840DA9 FFFF DB $FF, $FF //
00840DAB FF10 call dword ptr [eax]
00840DAD 0000 add [eax], al
00840DAF 007768 add [edi+$68], dh
00840DB2 657265 jb 00840E1A
00840DB5 20422E and [edx+$2E], al
00840DB8 4D dec ebp
00840DB9 61 popa
00840DBA 696E69643D2700 imul ebp, [esi+$69], $00273D64
00840DC1 0000 add [eax], al
00840DC3 00FF add bh, bh
00840DC5 FFFF DB $FF, $FF //
00840DC7 FF1A call [edx]
00840DC9 0000 add [eax], al
00840DCB 0027 add [edi], ah
00840DCD 20616E and [ecx+$6E], ah
00840DD0 6420412E and fs:[ecx+$2E], al
00840DD4 43 inc ebx
00840DD5 52 push edx
00840DD6 54 push esp
00840DD7 7970 jns 00840E49
00840DD9 653D27CAD5BF cmp eax, $BFD5CA27
00840DDF EE out dx, al
00840DE0 B5C7 mov ch, $C7
00840DE2 BCC7272000 mov esp, $002027C7
00840DE7 00FF add bh, bh
00840DE9 FFFF DB $FF, $FF //
00840DEB FF12 call dword ptr [edx]
00840DED 0000 add [eax], al
00840DEF 0020 add [eax], ah
00840DF1 61 popa
00840DF2 6E outsb
00840DF3 6420412E and fs:[ecx+$2E], al
00840DF7 7374 jnb 00840E6D
00840DF9 61 popa
00840DFA 7475 jz 00840E71
00840DFC 733C jnb 00840E3A
00840DFE 3E27 daa
00840E00 3027 xor [edi], ah
00840E02 0000 add [eax], al
00840E04 FFFF DB $FF, $FF //
00840E06 FFFF DB $FF, $FF //
00840E08 2B00 sub eax, dword ptr [eax]
00840E0A 0000 add [eax], al
00840E0C 206772 and [edi+$72], ah
00840E0F 6F outsd
00840E10 7570 jnz 00840E82
00840E12 206279 and [edx+$79], ah
00840E15 20422E and [edx+$2E], al
00840E18 43 inc ebx
00840E19 6F outsd
00840E1A 6E outsb
00840E1B 4E dec esi
00840E1C 6F outsd
00840E1D 2C41 sub al, $41
00840E1F 2E43 inc ebx
00840E21 52 push edx
00840E22 54 push esp
00840E23 696D652C412E42 imul ebp, [ebp+$65], $422E412C
00840E2A 5A pop edx
00840E2B 54 push esp
00840E2C 7970 jns 00840E9E
00840E2E 652C41 sub al, $41
00840E31 2E48 dec eax
00840E33 7569 jnz 00840E9E
00840E35 6C insb
00840E36 7600 jbe 00840E38
00840E38 FFFF DB $FF, $FF //
00840E3A FFFF DB $FF, $FF //
00840E3C 2900 sub dword ptr [eax], eax
00840E3E 0000 add [eax], al
00840E40 7365 jnb 00840EA7
00840E42 6C insb
00840E43 6563742041 arpl gs:[eax+$41], si
00840E48 2E43 inc ebx
00840E4A 52 push edx
00840E4B 54 push esp
00840E4C 696D652C412E59 imul ebp, [ebp+$65], $592E412C
00840E53 46 inc esi
00840E54 4E dec esi
00840E55 61 popa
00840E56 6D insd
00840E57 652C41 sub al, $41
00840E5A 2E42 inc edx
00840E5C 5A pop edx
00840E5D 54 push esp
00840E5E 7970 jns 00840ED0
00840E60 652C41 sub al, $41
00840E63 2E4E dec esi
00840E65 6F outsd
00840E66 7465 jz 00840ECD
00840E68 2000 and [eax], al
00840E6A 0000 add [eax], al
00840E6C FFFF DB $FF, $FF //
00840E6E FFFF DB $FF, $FF //
00840E70 1E push ds
00840E71 0000 add [eax], al
00840E73 002C52 add [edx+edx*2], ch
00840E76 4D dec ebp
00840E77 42 inc edx
00840E78 4D dec ebp
00840E79 6F outsd
00840E7A 6E outsb
00840E7B 65793D jns 00840EBB
00840E7E 53 push ebx
00840E7F 756D jnz 00840EEE
00840E81 28412E sub [ecx+$2E], al
00840E84 4D dec ebp
00840E85 6F outsd
00840E86 6E outsb
00840E87 65792A jns 00840EB4
00840E8A 41 inc ecx
00840E8B 2E48 dec eax
00840E8D 7569 jnz 00840EF8
00840E8F 6C insb
00840E90 7629 jbe 00840EBB
00840E92 0000 add [eax], al
00840E94 FFFF DB $FF, $FF //
00840E96 FFFF DB $FF, $FF //
00840E98 4E dec esi
00840E99 0000 add [eax], al
00840E9B 0027 add [edi], ah
00840E9D 20616E and [ecx+$6E], ah
00840EA0 6420412E and fs:[ecx+$2E], al
00840EA4 43 inc ebx
00840EA5 52 push edx
00840EA6 54 push esp
00840EA7 7970 jns 00840F19
00840EA9 6520696E and gs:[ecx+$6E], ch
00840EAD 2028 and [eax], ch
00840EAF 27 daa
00840EB0 D3A6B8B6BFEE shl dword ptr [esi+$EEBFB6B8], cl
00840EB6 B5C7 mov ch, $C7
00840EB8 BCC7272C27 mov esp, $272C27C7
00840EBD B8B6BFEED4 mov eax, $D4EEBFB6
00840EC2 D3B7D1272920 DB $D3, $B7, $D1, $27, $29, $20 // dword ptr [edi+$202927D1], cl
00840EC8 61 popa
00840EC9 6E outsb
00840ECA 64206973 and fs:[ecx+$73], ch
00840ECE 6E outsb
00840ECF 756C jnz 00840F3D
00840ED1 6C insb
00840ED2 28412E sub [ecx+$2E], al
00840ED5 46 inc esi
00840ED6 59 pop ecx
00840ED7 54 push esp
00840ED8 7970 jns 00840F4A
00840EDA 652C27 sub al, $27
00840EDD 27 daa
00840EDE 293C3E sub dword ptr [esi+edi], edi
00840EE1 27 daa
00840EE2 BCD3B9A4B7 mov esp, $B7A4B9D3
00840EE7 D127 shl dword ptr [edi], 1
00840EE9 2000 and [eax], al
00840EEB 00FF add bh, bh
00840EED FFFF DB $FF, $FF //
00840EEF FF4500 inc dword ptr [ebp+$00]
00840EF2 0000 add [eax], al
00840EF4 20616E and [ecx+$6E], ah
00840EF7 64206973 and fs:[ecx+$73], ch
00840EFB 6E outsb
00840EFC 756C jnz 00840F6A
00840EFE 6C insb
00840EFF 28412E sub [ecx+$2E], al
00840F02 59 pop ecx
00840F03 46 inc esi
00840F04 4E dec esi
00840F05 61 popa
00840F06 6D insd
00840F07 652C27 sub al, $27
00840F0A 27 daa
00840F0B 293C3E sub dword ptr [esi+edi], edi
00840F0E 27 daa
00840F0F B8A8C1CFB7 mov eax, $B7CFC1A8
00840F14 D127 shl dword ptr [edi], 1
00840F16 20616E and [ecx+$6E], ah
00840F19 64206973 and fs:[ecx+$73], ch
00840F1D 6E outsb
00840F1E 756C jnz 00840F8C
00840F20 6C insb
00840F21 28412E sub [ecx+$2E], al
00840F24 46 inc esi
00840F25 59 pop ecx
00840F26 54 push esp
00840F27 7970 jns 00840F99
00840F29 652C27 sub al, $27
00840F2C 27 daa
00840F2D 293C3E sub dword ptr [esi+edi], edi
00840F30 27 daa
00840F31 C5F7 lds esi, di
00840F33 B2BC mov dl, $BC
00840F35 B7D1 mov bh, $D1
00840F37 27 daa
00840F38 2000 and [eax], al
00840F3A 0000 add [eax], al
00840F3C FFFF DB $FF, $FF //
00840F3E FFFF DB $FF, $FF //
00840F40 7300 jnb 00840F42
00840F42 0000 add [eax], al
00840F44 20616E and [ecx+$6E], ah
00840F47 64206973 and fs:[ecx+$73], ch
00840F4B 6E outsb
00840F4C 756C jnz 00840FBA
00840F4E 6C insb
00840F4F 28412E sub [ecx+$2E], al
00840F52 59 pop ecx
00840F53 46 inc esi
00840F54 4E dec esi
00840F55 61 popa
00840F56 6D insd
00840F57 652C27 sub al, $27
00840F5A 27 daa
00840F5B 293C3E sub dword ptr [esi+edi], edi
00840F5E 27 daa
00840F5F B2C3 mov dl, $C3
00840F61 BCF4C8CBB9 mov esp, $B9CBC8F4
00840F66 A4 movsb
00840F67 B7D1 mov bh, $D1
00840F69 27 daa
00840F6A 20616E and [ecx+$6E], ah
00840F6D 64206973 and fs:[ecx+$73], ch
00840F71 6E outsb
00840F72 756C jnz 00840FE0
00840F74 6C insb
00840F75 28412E sub [ecx+$2E], al
00840F78 59 pop ecx
00840F79 46 inc esi
00840F7A 4E dec esi
00840F7B 61 popa
00840F7C 6D insd
00840F7D 652C27 sub al, $27
00840F80 27 daa
00840F81 293C3E sub dword ptr [esi+edi], edi
00840F84 27 daa
00840F85 B3B5 mov bl, $B5
00840F87 B9A4C8CBB9 mov ecx, $B9CBC8A4
00840F8C A4 movsb
00840F8D B7D1 mov bh, $D1
00840F8F 27 daa
00840F90 20616E and [ecx+$6E], ah
00840F93 64206973 and fs:[ecx+$73], ch
00840F97 6E outsb
00840F98 756C jnz 00841006
00840F9A 6C insb
00840F9B 28412E sub [ecx+$2E], al
00840F9E 59 pop ecx
00840F9F 46 inc esi
00840FA0 4E dec esi
00840FA1 61 popa
00840FA2 6D insd
00840FA3 652C27 sub al, $27
00840FA6 27 daa
00840FA7 293C3E sub dword ptr [esi+edi], edi
00840FAA 27 daa
00840FAB B0FC mov al, $FC
00840FAD D7 xlat
00840FAE B0C8 mov al, $C8
00840FB0 CB ret
00840FB1 B9A4B7D127 mov ecx, $27D1B7A4
00840FB6 2000 and [eax], al
00840FB8 FFFF DB $FF, $FF //
00840FBA FFFF DB $FF, $FF //
00840FBC 2B00 sub eax, dword ptr [eax]
00840FBE 0000 add [eax], al
00840FC0 206772 and [edi+$72], ah
00840FC3 6F outsd
00840FC4 7570 jnz 00841036
00840FC6 206279 and [edx+$79], ah
00840FC9 20412E and [ecx+$2E], al
00840FCC 43 inc ebx
00840FCD 52 push edx
00840FCE 54 push esp
00840FCF 696D652C412E59 imul ebp, [ebp+$65], $592E412C
00840FD6 46 inc esi
00840FD7 4E dec esi
00840FD8 61 popa
00840FD9 6D insd
00840FDA 652C41 sub al, $41
00840FDD 2E42 inc edx
00840FDF 5A pop edx
00840FE0 54 push esp
00840FE1 7970 jns 00841053
00840FE3 652C41 sub al, $41
00840FE6 2E4E dec esi
00840FE8 6F outsd
00840FE9 7465 jz 00841050
00840FEB 00C6 add dh, al
00840FED 0102 add [edx], eax
00840FEF C3 ret
00840FF0 33C0 xor eax, eax
* Reference to GlobalVar_00895A38
|
00840FF2 A3385A8900 mov dword ptr [$00895A38], eax
00840FF7 C3 ret
00840FF8 55 push ebp
00840FF9 8BEC mov ebp, esp
00840FFB 33C9 xor ecx, ecx
00840FFD 51 push ecx
00840FFE 51 push ecx
00840FFF 51 push ecx
00841000 51 push ecx
00841001 53 push ebx
00841002 8BD8 mov ebx, eax
00841004 33C0 xor eax, eax
00841006 55 push ebp
* Possible String Reference to: '<27><>9<EFBFBD><39><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
00841007 681E118400 push $0084111E
***** TRY
|
0084100C 64FF30 push dword ptr fs:[eax]
0084100F 648920 mov fs:[eax], esp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>ϸ'
|
00841012 B934118400 mov ecx, $00841134
* Reference to control Label7 : N.A.
|
00841017 8B9318030000 mov edx, [ebx+$0318]
* Possible String Reference to: '<27><><EFBFBD><EFBFBD>2'
|
0084101D B84C118400 mov eax, $0084114C
|
00841022 E87D6AF7FF call 007B7AA4
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>ϸ'
|
00841027 B934118400 mov ecx, $00841134
* Reference to control v1XHNo : N.A.
|
0084102C 8B9378030000 mov edx, [ebx+$0378]
* Possible String Reference to: 'Ⱦ<><C8BE>1'
|
00841032 B85C118400 mov eax, $0084115C
|
00841037 E8686AF7FF call 007B7AA4
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>ϸ'
|
0084103C B934118400 mov ecx, $00841134
* Reference to control KHConNo : N.A.
|
00841041 8B93F8030000 mov edx, [ebx+$03F8]
* Possible String Reference to: '<27>տ<EFBFBD>1'
|
00841047 B86C118400 mov eax, $0084116C
|
0084104C E8536AF7FF call 007B7AA4
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>ϸ'
|
00841051 B934118400 mov ecx, $00841134
* Reference to control Label17 : N.A.
|
00841056 8B93A8030000 mov edx, [ebx+$03A8]
* Possible String Reference to: '<27><><EFBFBD><EFBFBD>֧<EFBFBD><D6A7>1'
|
0084105C B87C118400 mov eax, $0084117C
|
00841061 E83E6AF7FF call 007B7AA4
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD>ϸ'
|
00841066 B934118400 mov ecx, $00841134
* Reference to control ToolButton3 : N.A.
|
0084106B 8B93C8030000 mov edx, [ebx+$03C8]
* Possible String Reference to: '<27><><EFBFBD>۳<EFBFBD><DBB3><EFBFBD>2'
|
00841071 B890118400 mov eax, $00841190
|
00841076 E8296AF7FF call 007B7AA4
0084107B 8D55FC lea edx, [ebp-$04]
* Reference to control Label34 : N.A.
|
0084107E 8B8374040000 mov eax, [ebx+$0474]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00841084 E86398BCFF call 0040A8EC
00841089 8B55FC mov edx, [ebp-$04]
* Reference to control Label21 : N.A.
|
0084108C 8B83C0030000 mov eax, [ebx+$03C0]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00841092 E88975C4FF call 00488620
00841097 8D55F8 lea edx, [ebp-$08]
* Reference to control cxGrid2 : TcxGrid
|
0084109A 8B837C040000 mov eax, [ebx+$047C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008410A0 E84798BCFF call 0040A8EC
008410A5 8B55F8 mov edx, [ebp-$08]
* Reference to control TBClose : TToolButton
|
008410A8 8B8300030000 mov eax, [ebx+$0300]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
008410AE E86D75C4FF call 00488620
008410B3 8D55F4 lea edx, [ebp-$0C]
* Reference to control Tv2 : N.A.
|
008410B6 8B8380040000 mov eax, [ebx+$0480]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008410BC E82B98BCFF call 0040A8EC
008410C1 8B55F4 mov edx, [ebp-$0C]
* Reference to control conDefstr3 : N.A.
|
008410C4 8B8328040000 mov eax, [ebx+$0428]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
008410CA E85175C4FF call 00488620
008410CF 8D55F0 lea edx, [ebp-$10]
* Reference to control cxGridDBColumn1 : N.A.
|
008410D2 8B8384040000 mov eax, [ebx+$0484]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008410D8 E80F98BCFF call 0040A8EC
008410DD 8B55F0 mov edx, [ebp-$10]
* Reference to control conDefstr5 : N.A.
|
008410E0 8B8330040000 mov eax, [ebx+$0430]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
008410E6 E83575C4FF call 00488620
* Reference to control cxGridDBColumn18 : N.A.
|
008410EB 8B9388040000 mov edx, [ebx+$0488]
* Reference to control Label3 : TLabel
|
008410F1 8B8308030000 mov eax, [ebx+$0308]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
008410F7 E82475C4FF call 00488620
008410FC 8BC3 mov eax, ebx
|
008410FE E805EFFFFF call 00840008
00841103 33C0 xor eax, eax
00841105 5A pop edx
00841106 59 pop ecx
00841107 59 pop ecx
00841108 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[<5B><>]<5D>'
|
0084110B 6825118400 push $00841125
00841110 8D45F0 lea eax, [ebp-$10]
00841113 BA04000000 mov edx, $00000004
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00841118 E82B42BCFF call 00405348
0084111D C3 ret
*)
end;
procedure TFrmJYOrderYS._PROC_00841285(Sender : TObject);
begin
(*
00841285 8BEC mov ebp, esp
00841287 33C0 xor eax, eax
00841289 55 push ebp
* Possible String Reference to: '<27>F8<46><38><EFBFBD><EFBFBD>]Ë<><C38B>-<Z<>'
|
0084128A 68A9128400 push $008412A9
***** TRY
|
0084128F 64FF30 push dword ptr fs:[eax]
00841292 648920 mov fs:[eax], esp
00841295 FF053C5A8900 inc dword ptr [$00895A3C]
0084129B 33C0 xor eax, eax
0084129D 5A pop edx
0084129E 59 pop ecx
0084129F 59 pop ecx
008412A0 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-<Z<>'
|
008412A3 68B0128400 push $008412B0
008412A8 C3 ret
* Reference to: System.@HandleFinally;
|
008412A9 E94638BCFF jmp 00404AF4
008412AE EBF8 jmp 008412A8
****** END
|
008412B0 5D pop ebp
008412B1 C3 ret
*)
end;
procedure TFrmJYOrderYS._PROC_008412B4(Sender : TObject);
begin
(*
008412B4 832D3C5A890001 sub dword ptr [$00895A3C], +$01
008412BB C3 ret
*)
end;
procedure TFrmJYOrderYS._PROC_008412BC(Sender : TObject);
begin
(*
008412BC 0813 or [ebx], dl
008412BE 8400 test [eax], al
008412C0 0000 add [eax], al
*)
end;
procedure TFrmJYOrderYS._PROC_00841322(Sender : TObject);
begin
(*
00841322 48 dec eax
00841323 0050D4 add [eax-$2C], dl
00841326 42 inc edx
00841327 0008 add [eax], cl
00841329 2D4A007CD0 sub eax, $D07C004A
0084132E 42 inc edx
0084132F 00F4 add ah, dh
00841331 6B4A00D0 imul ecx, [edx+$00], $D0
00841335 1D4A0030F6 sbb eax, $F630004A
0084133A 48 dec eax
0084133B 004CFB48 add [ebx+edi*8+$48], cl
0084133F 0098FA48000C add [eax+$C0048FA], bl
00841345 7948 jns 0084138F
00841347 00ACF04800E829 add [eax+esi*8+$29E80048], ch
0084134E 4A dec edx
0084134F 00E4 add ah, ah
00841351 ED in eax, dx
00841352 48 dec eax
00841353 00547848 add [eax+edi*2+$48], dl
00841357 005878 add [eax+$78], bl
0084135A 48 dec eax
0084135B 00DC add ah, bl
0084135D 2A4A00 sub cl, byte ptr [edx+$00]
00841360 3CA9 cmp al, $A9
00841362 48 dec eax
00841363 00C0 add al, al
00841365 834800D0 or dword ptr [eax+$00], -$30
00841369 7948 jns 008413B3
0084136B 004C8548 add [ebp+eax*4+$48], cl
0084136F 00D0 add al, dl
00841371 2C4A sub al, $4A
00841373 009C2B4A008486 add [ebx+ebp+$8684004A], bl
0084137A 48 dec eax
0084137B 00482D add [eax+$2D], cl
0084137E 4A dec edx
0084137F 00C0 add al, al
00841381 A9480038EE test eax, $EE380048
00841386 48 dec eax
00841387 00F4 add ah, dh
00841389 EE out dx, al
0084138A 48 dec eax
0084138B 00F0 add al, dh
0084138D E94800D8EE jmp EF5C13DA
00841392 48 dec eax
00841393 00D8 add al, bl
00841395 1B4A00 sbb ecx, [edx+$00]
00841398 EC in al, dx
00841399 334A00 xor ecx, [edx+$00]
0084139C 20C4 and ah, al
0084139E 48 dec eax
0084139F 00B0404A0010 add [eax+$10004A40], dh
008413A5 44 inc esp
008413A6 4A dec edx
008413A7 00CC add ah, cl
008413A9 42 inc edx
008413AA 4A dec edx
008413AB 00B8C44800BC add [eax+$BC0048C4], bh
008413B1 C44800 les ecx, [eax+$00]
008413B4 48 dec eax
008413B5 45 inc ebp
008413B6 4A dec edx
008413B7 001CC3 add [ebx+eax*8], bl
008413BA 48 dec eax
008413BB 0018 add [eax], bl
008413BD F0 lock
008413BE 48 dec eax
008413BF 00444C4A add [esp+ecx*2+$4A], al
008413C3 000C02 add [edx+eax], cl
008413C6 49 dec ecx
008413C7 0094EC48009C64 add [esp+ebp*8+$649C0048], dl
008413CE 4A dec edx
008413CF 008C154A003C18 add [ebp+edx+$183C004A], cl
008413D6 4A dec edx
008413D7 0038 add [eax], bh
008413D9 52 push edx
008413DA 4A dec edx
008413DB 005C224A add [edx+$4A], bl
008413DF 00D8 add al, bl
008413E1 224A00 and cl, byte ptr [edx+$00]
008413E4 7C68 jl 0084144E
008413E6 4A dec edx
008413E7 00941F4A003C60 add [edi+ebx+$603C004A], dl
008413EE 4A dec edx
008413EF 001447 add [edi+eax*2], dl
008413F2 4A dec edx
008413F3 0034654A00CC2C add [$2CCC004A], dh
008413FA 4A dec edx
008413FB 000E add [esi], cl
008413FD 0000 add [eax], al
008413FF 0000 add [eax], al
00841401 0002 add [edx], al
00841403 0000 add [eax], al
00841405 0020 add [eax], ah
00841407 114000 adc [eax+$00], eax
0084140A 48 dec eax
0084140B 0300 add eax, [eax]
0084140D 0020 add [eax], ah
0084140F 114000 adc [eax+$00], eax
00841412 4C dec esp
00841413 0300 add eax, [eax]
00841415 001400 add [eax+eax], dl
00841418 3E16 push ss
0084141A 8400 test [eax], al
0084141C F8 clc
0084141D 0200 add al, byte ptr [eax]
0084141F 0000 add [eax], al
00841421 0009 add [ecx], cl
00841423 4C dec esp
00841424 69737456696577 imul esi, [ebx+$74], $77656956
0084142B 31FC xor esp, edi
0084142D 0200 add al, byte ptr [eax]
0084142F 0001 add [ecx], al
00841431 0006 add [esi], al
00841433 50 push eax
00841434 61 popa
00841435 6E outsb
00841436 656C insb
00841438 3100 xor [eax], eax
0084143A 0300 add eax, [eax]
0084143C 0002 add [edx], al
0084143E 0008 add [eax], cl
00841440 46 inc esi
00841441 696C654E616D6504 imul ebp, [ebp+$4E], $04656D61
00841449 0300 add eax, [eax]
0084144B 0002 add [edx], al
0084144D 0009 add [ecx], cl
0084144F 637842 arpl [eax+$42], di
00841452 7574 jnz 008414C8
00841454 746F jz 008414C5
00841456 6E outsb
00841457 3108 xor [eax], ecx
00841459 0300 add eax, [eax]
0084145B 0002 add [edx], al
0084145D 0009 add [ecx], cl
0084145F 637842 arpl [eax+$42], di
00841462 7574 jnz 008414D8
00841464 746F jz 008414D5
00841466 6E outsb
00841467 320C03 xor cl, byte ptr [ebx+eax]
0084146A 0000 add [eax], al
0084146C 0200 add al, byte ptr [eax]
0084146E 096378 or [ebx+$78], esp
00841471 42 inc edx
00841472 7574 jnz 008414E8
00841474 746F jz 008414E5
00841476 6E outsb
00841477 3310 xor edx, [eax]
00841479 0300 add eax, [eax]
0084147B 0003 add [ebx], al
0084147D 000B add [ebx], cl
0084147F 41 inc ecx
00841480 44 inc esp
00841481 4F dec edi
00841482 51 push ecx
00841483 7565 jnz 008414EA
00841485 7279 jb 00841500
00841487 54 push esp
00841488 6D insd
00841489 7014 jo 0084149F
0084148B 0300 add eax, [eax]
0084148D 0003 add [ebx], al
0084148F 000B add [ebx], cl
00841491 41 inc ecx
00841492 44 inc esp
00841493 4F dec edi
00841494 51 push ecx
00841495 7565 jnz 008414FC
00841497 7279 jb 00841512
00841499 43 inc ebx
0084149A 6D insd
0084149B 641803 sbb fs:[ebx], al
0084149E 0000 add [eax], al
008414A0 0400 add al, +$00
008414A2 0A496D or cl, byte ptr [ecx+$6D]
008414A5 61 popa
008414A6 67654C dec esp
008414A9 697374311C0300 imul esi, [ebx+$74], $00031C31
008414B0 0001 add [ecx], al
008414B2 0006 add [esi], al
008414B4 50 push eax
008414B5 61 popa
008414B6 6E outsb
008414B7 656C insb
008414B9 3220 xor ah, byte ptr [eax]
008414BB 0300 add eax, [eax]
008414BD 000500064964 add [$64490600], al
008414C3 46 inc esi
008414C4 54 push esp
008414C5 50 push eax
008414C6 312403 xor [ebx+eax], esp
008414C9 0000 add [eax], al
008414CB 06 push es
008414CC 000E add [esi], cl
008414CE 41 inc ecx
008414CF 44 inc esp
008414D0 4F dec edi
008414D1 43 inc ebx
008414D2 6F outsd
008414D3 6E outsb
008414D4 6E outsb
008414D5 656374696F arpl gs:[ecx+ebp*2+$6F], si
008414DA 6E outsb
008414DB 3128 xor [eax], ebp
008414DD 0300 add eax, [eax]
008414DF 0007 add [edi], al
008414E1 0003 add [ebx], al
008414E3 54 push esp
008414E4 7631 jbe 00841517
008414E6 2C03 sub al, $03
008414E8 0000 add [eax], al
008414EA 0800 or [eax], al
008414EC 0D63784772 or eax, $72477863
008414F1 6964314C6576656C imul esp, [ecx+esi+$4C], $6C657665
008414F9 3130 xor [eax], esi
008414FB 0300 add eax, [eax]
008414FD 0009 add [ecx], cl
008414FF 0007 add [edi], al
00841501 637847 arpl [eax+$47], di
00841504 7269 jb 0084156F
00841506 64313403 xor fs:[ebx+eax], esi
0084150A 0000 add [eax], al
0084150C 0A00 or al, byte ptr [eax]
0084150E 097631 or [esi+$31], esi
00841511 43 inc ebx
00841512 6F outsd
00841513 6C insb
00841514 756D jnz 00841583
00841516 6E outsb
00841517 3138 xor [eax], edi
00841519 0300 add eax, [eax]
0084151B 000A add [edx], cl
0084151D 0009 add [ecx], cl
0084151F 7631 jbe 00841552
00841521 43 inc ebx
00841522 6F outsd
00841523 6C insb
00841524 756D jnz 00841593
00841526 6E outsb
00841527 323C03 xor bh, byte ptr [ebx+eax]
0084152A 0000 add [eax], al
0084152C 0A00 or al, byte ptr [eax]
0084152E 097631 or [esi+$31], esi
00841531 43 inc ebx
00841532 6F outsd
00841533 6C insb
00841534 756D jnz 008415A3
00841536 6E outsb
00841537 334003 xor eax, [eax+$03]
0084153A 0000 add [eax], al
0084153C 0B00 or eax, [eax]
0084153E 0B446174 or eax, [ecx+$74]
00841542 61 popa
00841543 53 push ebx
00841544 6F outsd
00841545 7572 jnz 008415B9
00841547 636531 arpl [ebp+$31], sp
0084154A 44 inc esp
0084154B 0300 add eax, [eax]
0084154D 000A add [edx], cl
0084154F 0009 add [ecx], cl
00841551 7631 jbe 00841584
00841553 43 inc ebx
00841554 6F outsd
00841555 6C insb
00841556 756D jnz 008415C5
00841558 6E outsb
00841559 340B xor al, $0B
0084155B 001500041884 add [$84180400], dl
00841561 000E add [esi], cl
00841563 637842 arpl [eax+$42], di
00841566 7574 jnz 008415DC
00841568 746F jz 008415D9
0084156A 6E outsb
0084156B 33436C xor eax, [ebx+$6C]
0084156E 69636B12003C18 imul esp, [ebx+$6B], $183C0012
00841575 8400 test [eax], al
00841577 0B466F or eax, [esi+$6F]
0084157A 726D jb 008415E9
0084157C 44 inc esp
0084157D 657374 jnb 008415F4
00841580 726F jb 008415F1
00841582 7914 jns 00841598
00841584 00441884 add [eax+ebx-$7C], al
00841588 000D46696C65 add [$656C6946], cl
0084158E 4E dec esi
0084158F 61 popa
00841590 6D insd
00841591 6543 inc ebx
00841593 6C insb
00841594 69636B11003C1E imul esp, [ebx+$6B], $1E3C0011
0084159B 8400 test [eax], al
0084159D 0A466F or al, byte ptr [esi+$6F]
008415A0 726D jb 0084160F
008415A2 43 inc ebx
008415A3 7265 jb 0084160A
008415A5 61 popa
008415A6 7465 jz 0084160D
008415A8 0F00BC DB $0F, $00, $BC //
008415AB 1E push ds
008415AC 8400 test [eax], al
008415AE 08466F or [esi+$6F], al
008415B1 726D jb 00841620
008415B3 53 push ebx
008415B4 686F771800 push $0018776F
008415B9 F0 lock
008415BA 1E push ds
008415BB 8400 test [eax], al
008415BD 114C6973 adc [ecx+ebp*2+$73], ecx
008415C1 7456 jz 00841619
008415C3 6965773144626C imul esp, [ebp+$77], $6C624431
008415CA 43 inc ebx
008415CB 6C insb
008415CC 69636B15007422 imul esp, [ebx+$6B], $22740015
008415D3 8400 test [eax], al
008415D5 0E push cs
008415D6 637842 arpl [eax+$42], di
008415D9 7574 jnz 0084164F
008415DB 746F jz 0084164C
008415DD 6E outsb
008415DE 31436C xor [ebx+$6C], eax
008415E1 69636B1500BC23 imul esp, [ebx+$6B], $23BC0015
008415E8 8400 test [eax], al
008415EA 0E push cs
008415EB 637842 arpl [eax+$42], di
008415EE 7574 jnz 00841664
008415F0 746F jz 00841661
008415F2 6E outsb
008415F3 32436C xor al, byte ptr [ebx+$6C]
008415F6 69636B1000B825 imul esp, [ebx+$6B], $25B80010
008415FD 8400 test [eax], al
008415FF 09466F or [esi+$6F], eax
00841602 726D jb 00841671
00841604 43 inc ebx
00841605 6C insb
00841606 6F outsd
00841607 7365 jnb 0084166E
00841609 1500CC2584 adc eax, $8425CC00
0084160E 000E add [esi], cl
00841610 50 push eax
00841611 61 popa
00841612 6E outsb
00841613 656C insb
00841615 3244626C xor al, byte ptr [edx+$6C]
00841619 43 inc ebx
0084161A 6C insb
0084161B 69636B1200DC25 imul esp, [ebx+$6B], $25DC0012
00841622 8400 test [eax], al
00841624 0B547631 or edx, [esi+esi*2+$31]
00841628 44 inc esp
00841629 626C436C bound ebp, qword ptr [ebx+eax*2+$6C]
0084162D 69636B0D546672 imul esp, [ebx+$6B], $7266540D
00841634 6D insd
00841635 46 inc esi
00841636 6A4C push $4C
00841638 6973745F525A0C imul esi, [ebx+$74], $0C5A525F
0084163F 007C7845 add [eax+edi*2+$45], bh
00841643 0020 add [eax], ah
00841645 42 inc edx
00841646 44 inc esp
00841647 00EC add ah, ch
00841649 E55B in eax, $5B
0084164B 00B8124D00F4 add [eax+$F4004D12], bh
00841651 4B dec ebx
00841652 48 dec eax
00841653 008C9C7C00D8EA add [esp+ebx*4+$EAD8007C], cl
0084165A 4C dec esp
0084165B 00F4 add ah, dh
0084165D B466 mov ah, $66
0084165F 00A40E64000016 add [esi+ecx+$16000064], ah
00841666 6300 arpl [eax], ax
00841668 34B1 xor al, $B1
0084166A 660008 add [eax], cl
0084166D 7F4B jnle 008416BA
0084166F 00741684 add [esi+edx-$7C], dh
00841673 0007 add [edi], al
00841675 0D5466726D or eax, $6D726654
0084167A 46 inc esi
0084167B 6A4C push $4C
0084167D 6973745F525A08 imul esi, [ebx+$74], $085A525F
00841684 138400D0F24900 adc eax, [eax+eax+$49F2D0]
0084168B 5E pop esi
0084168C 000B add [ebx], cl
0084168E 55 push ebp
0084168F 5F pop edi
00841690 46 inc esi
00841691 6A4C push $4C
00841693 6973745F525A00 imul esi, [ebx+$74], $005A525F
0084169A 0090558BEC33 add [eax+$33EC8B55], dl
008416A0 C9 leave
008416A1 51 push ecx
008416A2 51 push ecx
008416A3 51 push ecx
008416A4 51 push ecx
008416A5 51 push ecx
008416A6 51 push ecx
008416A7 53 push ebx
008416A8 56 push esi
008416A9 57 push edi
008416AA 8BF0 mov esi, eax
008416AC 33C0 xor eax, eax
008416AE 55 push ebp
* Possible String Reference to: '<27>B3<42><33><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
008416AF 68AD178400 push $008417AD
***** TRY
|
008416B4 64FF30 push dword ptr fs:[eax]
008416B7 648920 mov fs:[eax], esp
* Reference to control ToolBar1 : TToolBar
|
008416BA 8B86F8020000 mov eax, [esi+$02F8]
* Reference to field TToolBar.Wrapable : Boolean
|
008416C0 8B802C020000 mov eax, [eax+$022C]
* Reference to: ComCtrls.TListItems.Clear(TListItems);
|
008416C6 E85567C2FF call 00467E20
008416CB 33C0 xor eax, eax
008416CD 55 push ebp
008416CE 6888178400 push $00841788
***** TRY
|
008416D3 64FF30 push dword ptr fs:[eax]
008416D6 648920 mov fs:[eax], esp
* Reference to control Label4 : TLabel
|
008416D9 8B9E10030000 mov ebx, [esi+$0310]
008416DF 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
008416E1 E8EE41C8FF call 004C58D4
008416E6 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
008416E8 E8BFC8C9FF call 004DDFAC
008416ED 8B10 mov edx, [eax]
* Reference to method TLabel.GetClientRect()
|
008416EF FF5244 call dword ptr [edx+$44]
008416F2 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
008416F4 E8B3C8C9FF call 004DDFAC
* Possible String Reference to: 'select * from TP_File '
|
008416F9 BAC4178400 mov edx, $008417C4
008416FE 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00841700 FF5138 call dword ptr [ecx+$38]
00841703 8D55F4 lea edx, [ebp-$0C]
* Reference to control Order_Sub : N.A.
|
00841706 8B8648030000 mov eax, [esi+$0348]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0084170C E8DB91BCFF call 0040A8EC
00841711 8B45F4 mov eax, [ebp-$0C]
00841714 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
00841717 E8D892BCFF call 0040A9F4
0084171C 8B4DF8 mov ecx, [ebp-$08]
0084171F 8D45FC lea eax, [ebp-$04]
* Possible String Reference to: 'where WBID='
|
00841722 BAE4178400 mov edx, $008417E4
* Reference to: System.@LStrCat3;
|
00841727 E8143FBCFF call 00405640
0084172C 8B45FC mov eax, [ebp-$04]
0084172F 50 push eax
00841730 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00841732 E875C8C9FF call 004DDFAC
00841737 5A pop edx
00841738 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
0084173A FF5138 call dword ptr [ecx+$38]
0084173D 8D55E8 lea edx, [ebp-$18]
* Reference to control ADOQuery1 : TADOQuery
|
00841740 8B864C030000 mov eax, [esi+$034C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00841746 E8A191BCFF call 0040A8EC
0084174B 8B45E8 mov eax, [ebp-$18]
0084174E 8D55EC lea edx, [ebp-$14]
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
00841751 E89E92BCFF call 0040A9F4
00841756 8B4DEC mov ecx, [ebp-$14]
00841759 8D45F0 lea eax, [ebp-$10]
* Possible String Reference to: 'and TFType='
|
0084175C BAF8178400 mov edx, $008417F8
* Reference to: System.@LStrCat3;
|
00841761 E8DA3EBCFF call 00405640
00841766 8B45F0 mov eax, [ebp-$10]
00841769 50 push eax
0084176A 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
0084176C E83BC8C9FF call 004DDFAC
00841771 5A pop edx
00841772 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00841774 FF5138 call dword ptr [ecx+$38]
00841777 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
00841779 E84A41C8FF call 004C58C8
0084177E 33C0 xor eax, eax
00841780 5A pop edx
00841781 59 pop ecx
00841782 59 pop ecx
00841783 648910 mov fs:[eax], edx
00841786 EB0A jmp 00841792
* Reference to: System.@HandleAnyException;
|
00841788 E9B330BCFF jmp 00404840
* Reference to: System.@DoneExcept;
|
0084178D E8DA34BCFF call 00404C6C
****** END
|
00841792 33C0 xor eax, eax
00841794 5A pop edx
00841795 59 pop ecx
00841796 59 pop ecx
00841797 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[<5B><>]<5D>'
|
0084179A 68B4178400 push $008417B4
0084179F 8D45E8 lea eax, [ebp-$18]
008417A2 BA06000000 mov edx, $00000006
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
008417A7 E89C3BBCFF call 00405348
008417AC C3 ret
*)
end;
end.
Reference in New Issue Copy Permalink