unit U_JYOrderYSNew; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxTextEdit, ADODB, DBClient, ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, ExtCtrls 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: 'éÑ9¼ÿëë[‹å]Ã' | 00841007 681E118400 push $0084111E ***** TRY | 0084100C 64FF30 push dword ptr fs:[eax] 0084100F 648920 mov fs:[eax], esp * Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷ϸ' | 00841012 B934118400 mov ecx, $00841134 * Reference to control TFrmJYOrderYS.TV1 : TcxGridDBBandedTableView | 00841017 8B9318030000 mov edx, [ebx+$0318] * Possible String Reference to: 'Å÷²¼2' | 0084101D B84C118400 mov eax, $0084114C | 00841022 E87D6AF7FF call 007B7AA4 * Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷ϸ' | 00841027 B934118400 mov ecx, $00841134 * Reference to control TFrmJYOrderYS.TV2 : TcxGridDBBandedTableView | 0084102C 8B9378030000 mov edx, [ebx+$0378] * Possible String Reference to: 'Ⱦ·Ñ1' | 00841032 B85C118400 mov eax, $0084115C | 00841037 E8686AF7FF call 007B7AA4 * Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷ϸ' | 0084103C B934118400 mov ecx, $00841134 * Reference to control TFrmJYOrderYS.TV3 : TcxGridDBBandedTableView | 00841041 8B93F8030000 mov edx, [ebx+$03F8] * Possible String Reference to: 'ÊÕ¿î1' | 00841047 B86C118400 mov eax, $0084116C | 0084104C E8536AF7FF call 007B7AA4 * Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷ϸ' | 00841051 B934118400 mov ecx, $00841134 * Reference to control TFrmJYOrderYS.TV5 : TcxGridDBBandedTableView | 00841056 8B93A8030000 mov edx, [ebx+$03A8] * Possible String Reference to: '·ÑÓÃÖ§³ö1' | 0084105C B87C118400 mov eax, $0084117C | 00841061 E83E6AF7FF call 007B7AA4 * Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷ϸ' | 00841066 B934118400 mov ecx, $00841134 * Reference to control TFrmJYOrderYS.TV4 : TcxGridDBBandedTableView | 0084106B 8B93C8030000 mov edx, [ebx+$03C8] * Possible String Reference to: 'ÏúÊÛ³ö¿â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: '[‹å]Ã' | 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: '¶©µ¥ÊÕ¸¶¿îÃ÷ϸ' | 0084119F B91C128400 mov ecx, $0084121C * Reference to control TFrmJYOrderYS.TV1 : TcxGridDBBandedTableView | 008411A4 8B9318030000 mov edx, [ebx+$0318] * Possible String Reference to: 'Å÷²¼2' | 008411AA B834128400 mov eax, $00841234 | 008411AF E8086BF7FF call 007B7CBC * Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷ϸ' | 008411B4 B91C128400 mov ecx, $0084121C * Reference to control TFrmJYOrderYS.TV2 : TcxGridDBBandedTableView | 008411B9 8B9378030000 mov edx, [ebx+$0378] * Possible String Reference to: 'Ⱦ·Ñ1' | 008411BF B844128400 mov eax, $00841244 | 008411C4 E8F36AF7FF call 007B7CBC * Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷ϸ' | 008411C9 B91C128400 mov ecx, $0084121C * Reference to control TFrmJYOrderYS.TV3 : TcxGridDBBandedTableView | 008411CE 8B93F8030000 mov edx, [ebx+$03F8] * Possible String Reference to: 'ÊÕ¿î1' | 008411D4 B854128400 mov eax, $00841254 | 008411D9 E8DE6AF7FF call 007B7CBC * Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷ϸ' | 008411DE B91C128400 mov ecx, $0084121C * Reference to control TFrmJYOrderYS.TV5 : TcxGridDBBandedTableView | 008411E3 8B93A8030000 mov edx, [ebx+$03A8] * Possible String Reference to: '·ÑÓÃÖ§³ö1' | 008411E9 B864128400 mov eax, $00841264 | 008411EE E8C96AF7FF call 007B7CBC * Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷ϸ' | 008411F3 B91C128400 mov ecx, $0084121C * Reference to control TFrmJYOrderYS.TV4 : TcxGridDBBandedTableView | 008411F8 8B93C8030000 mov edx, [ebx+$03C8] * Possible String Reference to: 'ÏúÊÛ³ö¿â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: 'éÑ9¼ÿëë[‹å]Ã' | 00841007 681E118400 push $0084111E ***** TRY | 0084100C 64FF30 push dword ptr fs:[eax] 0084100F 648920 mov fs:[eax], esp * Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷ϸ' | 00841012 B934118400 mov ecx, $00841134 * Reference to control Label7 : N.A. | 00841017 8B9318030000 mov edx, [ebx+$0318] * Possible String Reference to: 'Å÷²¼2' | 0084101D B84C118400 mov eax, $0084114C | 00841022 E87D6AF7FF call 007B7AA4 * Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷ϸ' | 00841027 B934118400 mov ecx, $00841134 * Reference to control v1XHNo : N.A. | 0084102C 8B9378030000 mov edx, [ebx+$0378] * Possible String Reference to: 'Ⱦ·Ñ1' | 00841032 B85C118400 mov eax, $0084115C | 00841037 E8686AF7FF call 007B7AA4 * Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷ϸ' | 0084103C B934118400 mov ecx, $00841134 * Reference to control KHConNo : N.A. | 00841041 8B93F8030000 mov edx, [ebx+$03F8] * Possible String Reference to: 'ÊÕ¿î1' | 00841047 B86C118400 mov eax, $0084116C | 0084104C E8536AF7FF call 007B7AA4 * Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷ϸ' | 00841051 B934118400 mov ecx, $00841134 * Reference to control Label17 : N.A. | 00841056 8B93A8030000 mov edx, [ebx+$03A8] * Possible String Reference to: '·ÑÓÃÖ§³ö1' | 0084105C B87C118400 mov eax, $0084117C | 00841061 E83E6AF7FF call 007B7AA4 * Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷ϸ' | 00841066 B934118400 mov ecx, $00841134 * Reference to control ToolButton3 : N.A. | 0084106B 8B93C8030000 mov edx, [ebx+$03C8] * Possible String Reference to: 'ÏúÊÛ³ö¿â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: '[‹å]Ã' | 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: 'éF8¼ÿëø]ËÀƒ-