D7myChuangpin/YSYF/U_SXCKNewList.pas

2812 lines
102 KiB
ObjectPascal
Raw Normal View History

2024-07-23 20:18:14 +08:00
unit U_SXCKNewList;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmSXCKNewList=class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBExport: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Label1: TLabel;
Label2: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
CDS_Main: TClientDataSet;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label8: TLabel;
Label12: TLabel;
SPName: TEdit;
FactoryName: TEdit;
SPID: TEdit;
SPSpec: TEdit;
CRType: TComboBox;
Label6: TLabel;
SPCF: TEdit;
Label7: TLabel;
OrderNo: TEdit;
cxGrid2: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column6: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1SPCF: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel;
Label9: TLabel;
SSType: TComboBox;
v1Column17: TcxGridDBColumn;
ToolButton1: TToolButton;
cxTabControl1: TcxTabControl;
cxGridPopupMenu1: TcxGridPopupMenu;
v1ConNO: TcxGridDBColumn;
Label10: TLabel;
Label11: TLabel;
ConNO: TEdit;
v1PBPrice: TcxGridDBColumn;
v1CKName: TcxGridDBColumn;
Label13: TLabel;
ToFactoryName: TEdit;
v1TiaoQty: TcxGridDBColumn;
procedure FormDestroy(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure TBRafreshClick(Sender : TObject);
procedure ConNoMChange(Sender : TObject);
procedure TBCloseClick(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure TBExportClick(Sender : TObject);
procedure TBFindClick(Sender : TObject);
procedure N1Click(Sender : TObject);
procedure N2Click(Sender : TObject);
procedure SPIDKeyPress(Sender : TObject);
procedure SPIDChange(Sender : TObject);
procedure SPSpecChange(Sender : TObject);
procedure FactoryNameChange(Sender : TObject);
procedure ToolButton1Click(Sender : TObject);
procedure cxTabControl1Change(Sender : TObject);
procedure Tv1MouseDown(Sender : TObject);
procedure _PROC_007D6001(Sender : TObject);
procedure _PROC_007D6420(Sender : TObject);
procedure _PROC_007D660D(Sender : TObject);
procedure _PROC_007D67C8(Sender : TObject);
procedure _PROC_007D72D4(Sender : TObject);
procedure _PROC_007D7304(Sender : TObject);
procedure _PROC_007D730C(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmSXCKNewList: TfrmSXCKNewList;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmSXCKNewList.FormDestroy(Sender : TObject);
begin
(*
007D6708 33C0 xor eax, eax
* Reference to GlobalVar_00893C98
|
007D670A A3983C8900 mov dword ptr [$00893C98], eax
007D670F C3 ret
*)
end;
procedure TfrmSXCKNewList.FormClose(Sender : TObject);
begin
(*
007D6710 C60102 mov byte ptr [ecx], $02
007D6713 C3 ret
*)
end;
procedure TfrmSXCKNewList.FormCreate(Sender : TObject);
begin
(*
007D6714 55 push ebp
007D6715 8BEC mov ebp, esp
007D6717 6A00 push $00
007D6719 6A00 push $00
007D671B 53 push ebx
007D671C 8BD8 mov ebx, eax
007D671E 33C0 xor eax, eax
007D6720 55 push ebp
* Possible String Reference to: '<EFBFBD>4<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>[YY]ÐU<EFBFBD><EFBFBD>3<EFBFBD>QQQQQQQS<EFBFBD>E<EFBFBD>3<EFBFBD>UhQj
| }'
|
007D6721 68BB677D00 push $007D67BB
***** TRY
|
007D6726 64FF30 push dword ptr fs:[eax]
007D6729 648920 mov fs:[eax], esp
* Reference to control TfrmSXCKNewList.ADOQueryTemp : TADOQuery
|
007D672C 8B8318030000 mov eax, [ebx+$0318]
|
007D6732 E899E4FDFF call 007B4BD0
007D6737 83C4F8 add esp, -$08
007D673A DD1C24 fstp qword ptr [esp]
007D673D 9B wait
* Reference to control TfrmSXCKNewList.EndDate : TDateTimePicker
|
007D673E 8B832C030000 mov eax, [ebx+$032C]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
007D6744 E8E3BAC9FF call 0047222C
* Reference to control TfrmSXCKNewList.EndDate : TDateTimePicker
|
007D6749 8B832C030000 mov eax, [ebx+$032C]
007D674F FFB014020000 push dword ptr [eax+$0214]
007D6755 FFB010020000 push dword ptr [eax+$0210]
* Reference to control TfrmSXCKNewList.BegDate : TDateTimePicker
|
007D675B 8B8328030000 mov eax, [ebx+$0328]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
007D6761 E8C6BAC9FF call 0047222C
007D6766 8D55FC lea edx, [ebp-$04]
*)
end;
procedure TfrmSXCKNewList.TBRafreshClick(Sender : TObject);
begin
(*
007D6D88 53 push ebx
007D6D89 8BD8 mov ebx, eax
* Reference to control TfrmSXCKNewList.BegDate : TDateTimePicker
|
007D6D8B 8B8328030000 mov eax, [ebx+$0328]
007D6D91 8B10 mov edx, [eax]
* Reference to method TDateTimePicker.SetFocus()
|
007D6D93 FF92C4000000 call dword ptr [edx+$00C4]
007D6D99 8BC3 mov eax, ebx
* Reference to : TfrmSXCKNewList._PROC_007D67C8()
|
007D6D9B E828FAFFFF call 007D67C8
007D6DA0 5B pop ebx
007D6DA1 C3 ret
*)
end;
procedure TfrmSXCKNewList.ConNoMChange(Sender : TObject);
begin
(*
007D6DA4 55 push ebp
007D6DA5 8BEC mov ebp, esp
007D6DA7 6A00 push $00
007D6DA9 53 push ebx
007D6DAA 8BD8 mov ebx, eax
007D6DAC 33C0 xor eax, eax
007D6DAE 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>[Y]Í@'
|
007D6DAF 68066E7D00 push $007D6E06
***** TRY
|
007D6DB4 64FF30 push dword ptr fs:[eax]
007D6DB7 648920 mov fs:[eax], esp
* Reference to control TfrmSXCKNewList.ADOQueryMain : TADOQuery
|
007D6DBA 8B8314030000 mov eax, [ebx+$0314]
* Reference to: DB.TDataSet.GetActive(TDataSet):Boolean;
|
007D6DC0 E84FECCEFF call 004C5A14
007D6DC5 84C0 test al, al
007D6DC7 7427 jz 007D6DF0
007D6DC9 8D45FC lea eax, [ebp-$04]
007D6DCC 50 push eax
007D6DCD B902000000 mov ecx, $00000002
007D6DD2 BA01000000 mov edx, $00000001
* Reference to control TfrmSXCKNewList.Panel1 : TPanel
|
007D6DD7 8B830C030000 mov eax, [ebx+$030C]
|
007D6DDD E8CEF2FDFF call 007B60B0
007D6DE2 8B55FC mov edx, [ebp-$04]
* Reference to control TfrmSXCKNewList.ADOQueryMain : TADOQuery
|
007D6DE5 8B8314030000 mov eax, [ebx+$0314]
|
007D6DEB E8D8FEFDFF call 007B6CC8
007D6DF0 33C0 xor eax, eax
007D6DF2 5A pop edx
007D6DF3 59 pop ecx
007D6DF4 59 pop ecx
007D6DF5 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[Y]Í@'
|
007D6DF8 680D6E7D00 push $007D6E0D
007D6DFD 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
007D6E00 E81FE5C2FF call 00405324
007D6E05 C3 ret
* Reference to: System.@HandleFinally;
|
007D6E06 E9E9DCC2FF jmp 00404AF4
007D6E0B EBF0 jmp 007D6DFD
****** END
|
007D6E0D 5B pop ebx
007D6E0E 59 pop ecx
007D6E0F 5D pop ebp
007D6E10 C3 ret
*)
end;
procedure TfrmSXCKNewList.TBCloseClick(Sender : TObject);
begin
(*
007D6E14 55 push ebp
007D6E15 8BEC mov ebp, esp
007D6E17 6A00 push $00
007D6E19 53 push ebx
007D6E1A 8BD8 mov ebx, eax
007D6E1C 33C0 xor eax, eax
007D6E1E 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>[Y]<5D>'
|
007D6E1F 68646E7D00 push $007D6E64
***** TRY
|
007D6E24 64FF30 push dword ptr fs:[eax]
007D6E27 648920 mov fs:[eax], esp
007D6E2A 8D55FC lea edx, [ebp-$04]
007D6E2D 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007D6E2F E8BC17CBFF call 004885F0
007D6E34 8B45FC mov eax, [ebp-$04]
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>ֿ<EFBFBD>'
|
007D6E37 B9786E7D00 mov ecx, $007D6E78
* Reference to control TfrmSXCKNewList.Tv1 : TcxGridDBTableView
|
007D6E3C 8B937C030000 mov edx, [ebx+$037C]
|
007D6E42 E8590DFEFF call 007B7BA0
007D6E47 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
007D6E49 E84AF1CCFF call 004A5F98
007D6E4E 33C0 xor eax, eax
007D6E50 5A pop edx
007D6E51 59 pop ecx
007D6E52 59 pop ecx
007D6E53 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[Y]<5D>'
|
007D6E56 686B6E7D00 push $007D6E6B
007D6E5B 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
007D6E5E E8C1E4C2FF call 00405324
007D6E63 C3 ret
* Reference to: System.@HandleFinally;
|
007D6E64 E98BDCC2FF jmp 00404AF4
007D6E69 EBF0 jmp 007D6E5B
****** END
|
007D6E6B 5B pop ebx
007D6E6C 59 pop ecx
007D6E6D 5D pop ebp
007D6E6E C3 ret
*)
end;
procedure TfrmSXCKNewList.FormShow(Sender : TObject);
begin
(*
007D6E84 55 push ebp
007D6E85 8BEC mov ebp, esp
007D6E87 6A00 push $00
007D6E89 53 push ebx
007D6E8A 8BD8 mov ebx, eax
007D6E8C 33C0 xor eax, eax
007D6E8E 55 push ebp
007D6E8F 68CD6E7D00 push $007D6ECD
***** TRY
|
007D6E94 64FF30 push dword ptr fs:[eax]
007D6E97 648920 mov fs:[eax], esp
007D6E9A 8D55FC lea edx, [ebp-$04]
007D6E9D 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007D6E9F E84C17CBFF call 004885F0
007D6EA4 8B45FC mov eax, [ebp-$04]
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>ֿ<EFBFBD>'
|
007D6EA7 B9E06E7D00 mov ecx, $007D6EE0
* Reference to control TfrmSXCKNewList.Tv1 : TcxGridDBTableView
|
007D6EAC 8B937C030000 mov edx, [ebx+$037C]
|
007D6EB2 E8ED0AFEFF call 007B79A4
007D6EB7 33C0 xor eax, eax
007D6EB9 5A pop edx
007D6EBA 59 pop ecx
007D6EBB 59 pop ecx
007D6EBC 648910 mov fs:[eax], edx
****** FINALLY
|
007D6EBF 68D46E7D00 push $007D6ED4
007D6EC4 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
007D6EC7 E858E4C2FF call 00405324
007D6ECC C3 ret
* Reference to: System.@HandleFinally;
|
007D6ECD E922DCC2FF jmp 00404AF4
007D6ED2 EBF0 jmp 007D6EC4
****** END
|
007D6ED4 5B pop ebx
007D6ED5 59 pop ecx
007D6ED6 5D pop ebp
007D6ED7 C3 ret
*)
end;
procedure TfrmSXCKNewList.TBExportClick(Sender : TObject);
begin
(*
007D6EEC 53 push ebx
007D6EED 8BD8 mov ebx, eax
* Reference to control TfrmSXCKNewList.ADOQueryMain : TADOQuery
|
007D6EEF 8B8314030000 mov eax, [ebx+$0314]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007D6EF5 E8C60FCFFF call 004C7EC0
007D6EFA 84C0 test al, al
007D6EFC 7510 jnz 007D6F0E
* Reference to control TfrmSXCKNewList.cxGrid2 : TcxGrid
|
007D6EFE 8B9378030000 mov edx, [ebx+$0378]
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>'
|
007D6F04 B8186F7D00 mov eax, $007D6F18
|
007D6F09 E83611FEFF call 007B8044
007D6F0E 5B pop ebx
007D6F0F C3 ret
*)
end;
procedure TfrmSXCKNewList.TBFindClick(Sender : TObject);
begin
(*
007D6F28 55 push ebp
007D6F29 8BEC mov ebp, esp
007D6F2B 6A00 push $00
007D6F2D 53 push ebx
007D6F2E 8BD8 mov ebx, eax
007D6F30 33C0 xor eax, eax
007D6F32 55 push ebp
007D6F33 68AC6F7D00 push $007D6FAC
***** TRY
|
007D6F38 64FF30 push dword ptr fs:[eax]
007D6F3B 648920 mov fs:[eax], esp
* Reference to control TfrmSXCKNewList.ADOQueryMain : TADOQuery
|
007D6F3E 8B8314030000 mov eax, [ebx+$0314]
* Reference to: DB.TDataSet.GetActive(TDataSet):Boolean;
|
007D6F44 E8CBEACEFF call 004C5A14
007D6F49 84C0 test al, al
007D6F4B 7449 jz 007D6F96
007D6F4D 8D45FC lea eax, [ebp-$04]
007D6F50 50 push eax
007D6F51 B902000000 mov ecx, $00000002
007D6F56 BA01000000 mov edx, $00000001
* Reference to control TfrmSXCKNewList.Panel1 : TPanel
|
007D6F5B 8B830C030000 mov eax, [ebx+$030C]
|
007D6F61 E84AF1FDFF call 007B60B0
007D6F66 8B55FC mov edx, [ebp-$04]
* Reference to control TfrmSXCKNewList.ADOQueryMain : TADOQuery
|
007D6F69 8B8314030000 mov eax, [ebx+$0314]
|
007D6F6F E854FDFDFF call 007B6CC8
* Reference to control TfrmSXCKNewList.CDS_Main : TClientDataSet
|
007D6F74 8B9330030000 mov edx, [ebx+$0330]
* Reference to control TfrmSXCKNewList.ADOQueryMain : TADOQuery
|
007D6F7A 8B8314030000 mov eax, [ebx+$0314]
|
007D6F80 E80BFFFDFF call 007B6E90
* Reference to control TfrmSXCKNewList.CDS_Main : TClientDataSet
|
007D6F85 8B9330030000 mov edx, [ebx+$0330]
* Reference to control TfrmSXCKNewList.ADOQueryMain : TADOQuery
|
007D6F8B 8B8314030000 mov eax, [ebx+$0314]
|
007D6F91 E88200FEFF call 007B7018
007D6F96 33C0 xor eax, eax
007D6F98 5A pop edx
007D6F99 59 pop ecx
007D6F9A 59 pop ecx
007D6F9B 648910 mov fs:[eax], edx
****** FINALLY
|
007D6F9E 68B36F7D00 push $007D6FB3
007D6FA3 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
007D6FA6 E879E3C2FF call 00405324
007D6FAB C3 ret
* Reference to: System.@HandleFinally;
|
007D6FAC E943DBC2FF jmp 00404AF4
007D6FB1 EBF0 jmp 007D6FA3
****** END
|
007D6FB3 5B pop ebx
007D6FB4 59 pop ecx
007D6FB5 5D pop ebp
007D6FB6 C3 ret
*)
end;
procedure TfrmSXCKNewList.N1Click(Sender : TObject);
begin
(*
007D6FB8 B201 mov dl, $01
* Reference to control TfrmSXCKNewList.CDS_Main : TClientDataSet
|
007D6FBA 8B8030030000 mov eax, [eax+$0330]
* Reference to : TfrmSelExportField._PROC_007B84A4()
|
007D6FC0 E8DF14FEFF call 007B84A4
007D6FC5 C3 ret
*)
end;
procedure TfrmSXCKNewList.N2Click(Sender : TObject);
begin
(*
007D6FC8 33D2 xor edx, edx
* Reference to control TfrmSXCKNewList.CDS_Main : TClientDataSet
|
007D6FCA 8B8030030000 mov eax, [eax+$0330]
* Reference to : TfrmSelExportField._PROC_007B84A4()
|
007D6FD0 E8CF14FEFF call 007B84A4
007D6FD5 C3 ret
*)
end;
procedure TfrmSXCKNewList.SPIDKeyPress(Sender : TObject);
begin
(*
007D6FD8 80390D cmp byte ptr [ecx], $0D
007D6FDB C3 ret
*)
end;
procedure TfrmSXCKNewList.SPIDChange(Sender : TObject);
begin
(*
007D6FDC 55 push ebp
007D6FDD 8BEC mov ebp, esp
007D6FDF 33C9 xor ecx, ecx
007D6FE1 51 push ecx
007D6FE2 51 push ecx
007D6FE3 51 push ecx
007D6FE4 51 push ecx
007D6FE5 53 push ebx
007D6FE6 56 push esi
007D6FE7 8BD8 mov ebx, eax
007D6FE9 33C0 xor eax, eax
007D6FEB 55 push ebp
* Possible String Reference to: '<27>v<EFBFBD><76><EFBFBD><EFBFBD><EFBFBD>^[<5B><><>V<EFBFBD><56>'
|
007D6FEC 6879707D00 push $007D7079
***** TRY
|
007D6FF1 64FF30 push dword ptr fs:[eax]
007D6FF4 648920 mov fs:[eax], esp
007D6FF7 8D55F8 lea edx, [ebp-$08]
* Reference to control TfrmSXCKNewList.SPID : TEdit
|
007D6FFA 8B835C030000 mov eax, [ebx+$035C]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007D7000 E8EB15CBFF call 004885F0
007D7005 8B45F8 mov eax, [ebp-$08]
007D7008 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007D700B E8DC38C3FF call 0040A8EC
007D7010 8B45FC mov eax, [ebp-$04]
* Reference to: System.@LStrLen(String):Integer;
| or: System.@DynArrayLength;
| or: System.DynArraySize(Pointer):Integer;
| or: Variants.DynArraySize(Pointer):Integer;
|
007D7013 E8DCE5C2FF call 004055F4
007D7018 83F804 cmp eax, +$04
007D701B 7D1F jnl 007D703C
007D701D 8D55F0 lea edx, [ebp-$10]
* Reference to control TfrmSXCKNewList.SPID : TEdit
|
007D7020 8B835C030000 mov eax, [ebx+$035C]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007D7026 E8C515CBFF call 004885F0
007D702B 8B45F0 mov eax, [ebp-$10]
007D702E 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007D7031 E8B638C3FF call 0040A8EC
007D7036 837DF400 cmp dword ptr [ebp-$0C], +$00
007D703A 750F jnz 007D704B
* Reference to control TfrmSXCKNewList.TBFind : TToolButton
|
007D703C 8B8300030000 mov eax, [ebx+$0300]
007D7042 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
007D7046 E809D5C2FF call 00404554
007D704B 33C0 xor eax, eax
007D704D 5A pop edx
007D704E 59 pop ecx
007D704F 59 pop ecx
007D7050 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><><>V<EFBFBD><56>'
|
007D7053 6880707D00 push $007D7080
007D7058 8D45F0 lea eax, [ebp-$10]
* Reference to: System.@LStrClr(void;void);
|
007D705B E8C4E2C2FF call 00405324
007D7060 8D45F4 lea eax, [ebp-$0C]
* Reference to: System.@LStrClr(void;void);
|
007D7063 E8BCE2C2FF call 00405324
007D7068 8D45F8 lea eax, [ebp-$08]
* Reference to: System.@LStrClr(void;void);
|
007D706B E8B4E2C2FF call 00405324
007D7070 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
007D7073 E8ACE2C2FF call 00405324
007D7078 C3 ret
* Reference to: System.@HandleFinally;
|
007D7079 E976DAC2FF jmp 00404AF4
007D707E EBD8 jmp 007D7058
****** END
|
007D7080 5E pop esi
007D7081 5B pop ebx
007D7082 8BE5 mov esp, ebp
007D7084 5D pop ebp
007D7085 C3 ret
*)
end;
procedure TfrmSXCKNewList.SPSpecChange(Sender : TObject);
begin
(*
007D7088 56 push esi
* Reference to control TfrmSXCKNewList.TBFind : TToolButton
|
007D7089 8B8000030000 mov eax, [eax+$0300]
007D708F 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
007D7093 E8BCD4C2FF call 00404554
007D7098 5E pop esi
007D7099 C3 ret
*)
end;
procedure TfrmSXCKNewList.FactoryNameChange(Sender : TObject);
begin
(*
007D709C 56 push esi
* Reference to control TfrmSXCKNewList.TBFind : TToolButton
|
007D709D 8B8000030000 mov eax, [eax+$0300]
007D70A3 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
007D70A7 E8A8D4C2FF call 00404554
007D70AC 5E pop esi
007D70AD C3 ret
*)
end;
procedure TfrmSXCKNewList.ToolButton1Click(Sender : TObject);
begin
(*
007D70B0 55 push ebp
007D70B1 8BEC mov ebp, esp
007D70B3 33C9 xor ecx, ecx
007D70B5 51 push ecx
007D70B6 51 push ecx
007D70B7 51 push ecx
007D70B8 51 push ecx
007D70B9 51 push ecx
007D70BA 53 push ebx
007D70BB 56 push esi
007D70BC 57 push edi
007D70BD 8945FC mov [ebp-$04], eax
007D70C0 33C0 xor eax, eax
007D70C2 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
007D70C3 685A727D00 push $007D725A
***** TRY
|
007D70C8 64FF30 push dword ptr fs:[eax]
007D70CB 648920 mov fs:[eax], esp
007D70CE 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmSXCKNewList.CDS_Main : TClientDataSet
|
007D70D1 8B8030030000 mov eax, [eax+$0330]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007D70D7 E8E40DCFFF call 004C7EC0
007D70DC 84C0 test al, al
007D70DE 0F8560010000 jnz 007D7244
* Reference to class ToolBar1
|
007D70E4 A068727D00 mov al, byte ptr [$007D7268]
007D70E9 50 push eax
007D70EA 8D45EC lea eax, [ebp-$14]
007D70ED B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
007D70EF E8701CC4FF call 00418D64
007D70F4 8D4DEC lea ecx, [ebp-$14]
007D70F7 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmSXCKNewList.CDS_Main : TClientDataSet
|
007D70FA 8B8030030000 mov eax, [eax+$0330]
* Possible String Reference to: 'ssel'
|
007D7100 BA74727D00 mov edx, $007D7274
007D7105 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
007D7107 FF9344020000 call dword ptr [ebx+$0244]
007D710D 84C0 test al, al
007D710F 751D jnz 007D712E
007D7111 6A00 push $00
* Possible String Reference to: '<27><>ʾ<EFBFBD><CABE>Ϣ'
|
007D7113 B97C727D00 mov ecx, $007D727C
* Possible String Reference to: <><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>'
|
007D7118 BA88727D00 mov edx, $007D7288
*)
end;
procedure TfrmSXCKNewList.cxTabControl1Change(Sender : TObject);
begin
(*
* Reference to : TfrmSXCKNewList._PROC_007D67C8()
|
007D72C0 E803F5FFFF call 007D67C8
007D72C5 C3 ret
*)
end;
procedure TfrmSXCKNewList.Tv1MouseDown(Sender : TObject);
begin
(*
007D72C8 55 push ebp
007D72C9 8BEC mov ebp, esp
007D72CB 80F901 cmp cl, $01
007D72CE 5D pop ebp
007D72CF C20C00 ret $000C
*)
end;
procedure TfrmSXCKNewList._PROC_007D6001(Sender : TObject);
begin
(*
007D6001 7064 jo 007D6067
007D6003 61 popa
007D6004 7465 jz 007D606B
007D6006 205946 and [ecx+$46], bl
007D6009 5F pop edi
007D600A 4D dec ebp
007D600B 6F outsd
007D600C 6E outsb
007D600D 65795F jns 007D606F
007D6010 43 inc ebx
007D6011 52 push edx
007D6012 49 dec ecx
007D6013 44 inc esp
007D6014 207365 and [ebx+$65], dh
007D6017 7420 jz 007D6039
007D6019 43 inc ebx
007D601A 52 push edx
007D601B 49 dec ecx
007D601C 44 inc esp
007D601D 3D43524944 cmp eax, $44495243
007D6022 2B31 sub esi, dword ptr [ecx]
007D6024 0000 add [eax], al
007D6026 0000 add [eax], al
007D6028 FFFF DB $FF, $FF //
007D602A FFFF DB $FF, $FF //
007D602C 1C00 sbb al, $00
007D602E 0000 add [eax], al
007D6030 7365 jnb 007D6097
007D6032 6C insb
007D6033 656374202A arpl gs:[eax+$2A], si
007D6038 206672 and [esi+$72], ah
007D603B 6F outsd
007D603C 6D insd
007D603D 205946 and [ecx+$46], bl
007D6040 5F pop edi
007D6041 4D dec ebp
007D6042 6F outsd
007D6043 6E outsb
007D6044 65795F jns 007D60A6
007D6047 43 inc ebx
007D6048 52 push edx
007D6049 49 dec ecx
007D604A 44 inc esp
007D604B 2000 and [eax], al
007D604D 0000 add [eax], al
007D604F 00FF add bh, bh
007D6051 FFFF DB $FF, $FF //
007D6053 FF23 jmp dword ptr [ebx]
007D6055 0000 add [eax], al
007D6057 007365 add [ebx+$65], dh
007D605A 6C insb
007D605B 656374202A arpl gs:[eax+$2A], si
007D6060 206672 and [esi+$72], ah
007D6063 6F outsd
007D6064 6D insd
007D6065 205946 and [ecx+$46], bl
007D6068 5F pop edi
007D6069 4D dec ebp
007D606A 6F outsd
007D606B 6E outsb
007D606C 65795F jns 007D60CE
007D606F 4B dec ebx
007D6070 43 inc ebx
007D6071 207768 and [edi+$68], dh
007D6074 657265 jb 007D60DC
007D6077 2031 and [ecx], dh
007D6079 3D3200FFFF cmp eax, $FFFF0032
007D607E FFFF DB $FF, $FF //
007D6080 0B00 or eax, [eax]
007D6082 0000 add [eax], al
007D6084 46 inc esi
007D6085 61 popa
007D6086 63746F72 arpl [edi+ebp*2+$72], si
007D608A 794E jns 007D60DA
007D608C 61 popa
007D608D 6D insd
007D608E 6500FF add bh, bh
007D6091 FFFF DB $FF, $FF //
007D6093 FF07 inc dword ptr [edi]
007D6095 0000 add [eax], al
007D6097 005A64 add [edx+$64], bl
007D609A 7953 jns 007D60EF
007D609C 7472 jz 007D6110
007D609E 3100 xor [eax], eax
007D60A0 FFFF DB $FF, $FF //
007D60A2 FFFF DB $FF, $FF //
007D60A4 06 push es
007D60A5 0000 add [eax], al
007D60A7 00D3 add bl, dl
007D60A9 A6 cmpsb
007D60AA B8B6B8B600 mov eax, $00B6B8B6
007D60AF 00FF add bh, bh
007D60B1 FFFF DB $FF, $FF //
007D60B3 FF2C00 jmp [eax+eax]
007D60B6 0000 add [eax], al
007D60B8 7365 jnb 007D611F
007D60BA 6C insb
007D60BB 656374202A arpl gs:[eax+$2A], si
007D60C0 206672 and [esi+$72], ah
007D60C3 6F outsd
007D60C4 6D insd
007D60C5 205946 and [ecx+$46], bl
007D60C8 5F pop edi
007D60C9 4D dec ebp
007D60CA 6F outsd
007D60CB 6E outsb
007D60CC 65795F jns 007D612E
007D60CF 43 inc ebx
007D60D0 52 push edx
007D60D1 207768 and [edi+$68], dh
007D60D4 657265 jb 007D613C
007D60D7 204661 and [esi+$61], al
007D60DA 63746F72 arpl [edi+ebp*2+$72], si
007D60DE 794E jns 007D612E
007D60E0 61 popa
007D60E1 6D insd
007D60E2 653D00000000 cmp eax, $00000000
007D60E8 FFFF DB $FF, $FF //
007D60EA FFFF DB $FF, $FF //
007D60EC 0F0000 sldt word ptr [eax]
007D60EF 0020 add [eax], ah
007D60F1 61 popa
007D60F2 6E outsb
007D60F3 64205946 and fs:[ecx+$46], bl
007D60F7 54 push esp
007D60F8 7970 jns 007D616A
007D60FA 6549 dec ecx
007D60FC 643D2700FFFF cmp eax, $FFFF0027
007D6102 FFFF DB $FF, $FF //
007D6104 0400 add al, +$00
007D6106 0000 add [eax], al
007D6108 53 push ebx
007D6109 50 push eax
007D610A 49 dec ecx
007D610B 44 inc esp
007D610C 0000 add [eax], al
007D610E 0000 add [eax], al
007D6110 FFFF DB $FF, $FF //
007D6112 FFFF DB $FF, $FF //
007D6114 0100 add [eax], eax
007D6116 0000 add [eax], al
007D6118 27 daa
007D6119 0000 add [eax], al
007D611B 00FF add bh, bh
007D611D FFFF DB $FF, $FF //
007D611F FF0B dec dword ptr [ebx]
007D6121 0000 add [eax], al
007D6123 005946 add [ecx+$46], bl
007D6126 5F pop edi
007D6127 4D dec ebp
007D6128 6F outsd
007D6129 6E outsb
007D612A 65795F jns 007D618C
007D612D 43 inc ebx
007D612E 52 push edx
007D612F 00FF add bh, bh
007D6131 FFFF DB $FF, $FF //
007D6133 FF02 inc dword ptr [edx]
007D6135 0000 add [eax], al
007D6137 005946 add [ecx+$46], bl
007D613A 0000 add [eax], al
007D613C CC int 3
007D613D E1CA loope -$36
007D613F BE00000000 mov esi, $00000000
007D6144 C8A1 enter , $A1
007D6146 C5F7 lds esi, di
007D6148 B2BC mov dl, $BC
007D614A D3A6B8B6D7EE shl dword ptr [esi+$EED7B6B8], cl
007D6150 B4F3 mov ah, $F3
007D6152 BAC5CAA7B0 mov edx, $B0A7CAC5
007D6157 DC21 fsub qword ptr [ecx]
007D6159 0000 add [eax], al
007D615B 00FF add bh, bh
007D615D FFFF DB $FF, $FF //
007D615F FF0400 inc dword ptr [eax+eax]
007D6162 0000 add [eax], al
007D6164 59 pop ecx
007D6165 46 inc esi
007D6166 49 dec ecx
007D6167 44 inc esp
007D6168 0000 add [eax], al
007D616A 0000 add [eax], al
*)
end;
procedure TfrmSXCKNewList._PROC_007D6420(Sender : TObject);
begin
(*
007D6420 6E outsb
007D6421 697400FFFFFFFF06 imul esi, [eax+eax-$01], $06FFFFFF
007D6429 0000 add [eax], al
*)
end;
procedure TfrmSXCKNewList._PROC_007D660D(Sender : TObject);
begin
(*
007D660D 7064 jo 007D6673
007D660F 61 popa
007D6610 7465 jz 007D6677
007D6612 205946 and [ecx+$46], bl
007D6615 5F pop edi
007D6616 4D dec ebp
007D6617 6F outsd
007D6618 6E outsb
007D6619 65795F jns 007D667B
007D661C 4B dec ebx
007D661D 43 inc ebx
007D661E 205365 and [ebx+$65], dl
007D6621 7420 jz 007D6643
007D6623 4B dec ebx
007D6624 43 inc ebx
007D6625 4D dec ebp
007D6626 6F outsd
007D6627 6E outsb
007D6628 65793D jns 007D6668
007D662B 287365 sub [ebx+$65], dh
007D662E 6C insb
007D662F 6563742069 arpl gs:[eax+$69], si
007D6634 736E jnb 007D66A4
007D6636 756C jnz 007D66A4
007D6638 6C insb
007D6639 285375 sub [ebx+$75], dl
007D663C 6D insd
007D663D 284D6F sub [ebp+$6F], cl
007D6640 6E outsb
007D6641 65792A jns 007D666E
007D6644 51 push ecx
007D6645 7479 jz 007D66C0
007D6647 46 inc esi
007D6648 6C insb
007D6649 61 popa
007D664A 67292C sub dword ptr [si], ebp
007D664D 3029 xor [ecx], ch
007D664F 206672 and [esi+$72], ah
007D6652 6F outsd
007D6653 6D insd
007D6654 205946 and [ecx+$46], bl
007D6657 5F pop edi
007D6658 4D dec ebp
007D6659 6F outsd
007D665A 6E outsb
007D665B 65795F jns 007D66BD
007D665E 43 inc ebx
007D665F 52 push edx
007D6660 204120 and [ecx+$20], al
007D6663 7768 jnbe 007D66CD
007D6665 657265 jb 007D66CD
007D6668 20412E and [ecx+$2E], al
007D666B 43 inc ebx
007D666C 52 push edx
007D666D 49 dec ecx
007D666E 44 inc esp
007D666F 3D59465F4D cmp eax, $4D5F4659
007D6674 6F outsd
007D6675 6E outsb
007D6676 65795F jns 007D66D8
007D6679 4B dec ebx
007D667A 43 inc ebx
007D667B 2E43 inc ebx
007D667D 52 push edx
007D667E 49 dec ecx
007D667F 44 inc esp
007D6680 2900 sub dword ptr [eax], eax
007D6682 0000 add [eax], al
007D6684 FFFF DB $FF, $FF //
007D6686 FFFF DB $FF, $FF //
007D6688 6300 arpl [eax], ax
007D668A 0000 add [eax], al
007D668C 2C4B sub al, $4B
007D668E 43 inc ebx
007D668F 42 inc edx
007D6690 42 inc edx
007D6691 4D dec ebp
007D6692 6F outsd
007D6693 6E outsb
007D6694 65793D jns 007D66D4
007D6697 287365 sub [ebx+$65], dh
007D669A 6C insb
007D669B 6563742069 arpl gs:[eax+$69], si
007D66A0 736E jnb 007D6710
007D66A2 756C jnz 007D6710
007D66A4 6C insb
007D66A5 285375 sub [ebx+$75], dl
007D66A8 6D insd
007D66A9 284242 sub [edx+$42], al
007D66AC 4D dec ebp
007D66AD 6F outsd
007D66AE 6E outsb
007D66AF 65792A jns 007D66DC
007D66B2 51 push ecx
007D66B3 7479 jz 007D672E
007D66B5 46 inc esi
007D66B6 6C insb
007D66B7 61 popa
007D66B8 67292C sub dword ptr [si], ebp
007D66BB 3029 xor [ecx], ch
007D66BD 206672 and [esi+$72], ah
007D66C0 6F outsd
007D66C1 6D insd
007D66C2 205946 and [ecx+$46], bl
007D66C5 5F pop edi
007D66C6 4D dec ebp
007D66C7 6F outsd
007D66C8 6E outsb
007D66C9 65795F jns 007D672B
007D66CC 43 inc ebx
007D66CD 52 push edx
007D66CE 204120 and [ecx+$20], al
007D66D1 7768 jnbe 007D673B
007D66D3 657265 jb 007D673B
007D66D6 20412E and [ecx+$2E], al
007D66D9 43 inc ebx
007D66DA 52 push edx
007D66DB 49 dec ecx
007D66DC 44 inc esp
007D66DD 3D59465F4D cmp eax, $4D5F4659
007D66E2 6F outsd
007D66E3 6E outsb
007D66E4 65795F jns 007D6746
007D66E7 4B dec ebx
007D66E8 43 inc ebx
007D66E9 2E43 inc ebx
007D66EB 52 push edx
007D66EC 49 dec ecx
007D66ED 44 inc esp
007D66EE 2900 sub dword ptr [eax], eax
007D66F0 FFFF DB $FF, $FF //
007D66F2 FFFF DB $FF, $FF //
007D66F4 0C00 or al, $00
007D66F6 0000 add [eax], al
007D66F8 207768 and [edi+$68], dh
007D66FB 657265 jb 007D6763
007D66FE 204352 and [ebx+$52], al
007D6701 49 dec ecx
007D6702 44 inc esp
007D6703 3D00000000 cmp eax, $00000000
007D6708 33C0 xor eax, eax
* Reference to GlobalVar_00893C98
|
007D670A A3983C8900 mov dword ptr [$00893C98], eax
007D670F C3 ret
007D6710 C60102 mov byte ptr [ecx], $02
007D6713 C3 ret
007D6714 55 push ebp
007D6715 8BEC mov ebp, esp
007D6717 6A00 push $00
007D6719 6A00 push $00
007D671B 53 push ebx
007D671C 8BD8 mov ebx, eax
007D671E 33C0 xor eax, eax
007D6720 55 push ebp
* Possible String Reference to: '<EFBFBD>4<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>[YY]ÐU<EFBFBD><EFBFBD>3<EFBFBD>QQQQQQQS<EFBFBD>E<EFBFBD>3<EFBFBD>UhQj
| }'
|
007D6721 68BB677D00 push $007D67BB
***** TRY
|
007D6726 64FF30 push dword ptr fs:[eax]
007D6729 648920 mov fs:[eax], esp
* Reference to control Label7 : TLabel
|
007D672C 8B8318030000 mov eax, [ebx+$0318]
|
007D6732 E899E4FDFF call 007B4BD0
007D6737 83C4F8 add esp, -$08
007D673A DD1C24 fstp qword ptr [esp]
007D673D 9B wait
* Reference to control Tv1 : TcxGridDBTableView
|
007D673E 8B832C030000 mov eax, [ebx+$032C]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
007D6744 E8E3BAC9FF call 0047222C
* Reference to control Tv1 : TcxGridDBTableView
|
007D6749 8B832C030000 mov eax, [ebx+$032C]
007D674F FFB014020000 push dword ptr [eax+$0214]
007D6755 FFB010020000 push dword ptr [eax+$0210]
* Reference to control cxGrid1 : N.A.
|
007D675B 8B8328030000 mov eax, [ebx+$0328]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
007D6761 E8C6BAC9FF call 0047222C
007D6766 8D55FC lea edx, [ebp-$04]
*)
end;
procedure TfrmSXCKNewList._PROC_007D67C8(Sender : TObject);
begin
(*
007D67C8 55 push ebp
007D67C9 8BEC mov ebp, esp
007D67CB 33C9 xor ecx, ecx
007D67CD 51 push ecx
007D67CE 51 push ecx
007D67CF 51 push ecx
007D67D0 51 push ecx
007D67D1 51 push ecx
007D67D2 51 push ecx
007D67D3 51 push ecx
007D67D4 53 push ebx
007D67D5 8945FC mov [ebp-$04], eax
007D67D8 33C0 xor eax, eax
007D67DA 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
007D67DB 68516A7D00 push $007D6A51
***** TRY
|
007D67E0 64FF30 push dword ptr fs:[eax]
007D67E3 648920 mov fs:[eax], esp
007D67E6 33C0 xor eax, eax
007D67E8 55 push ebp
007D67E9 682F6A7D00 push $007D6A2F
***** TRY
|
007D67EE 64FF30 push dword ptr fs:[eax]
007D67F1 648920 mov fs:[eax], esp
007D67F4 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmSXCKNewList.ADOQueryMain : TADOQuery
|
007D67F7 8B8014030000 mov eax, [eax+$0314]
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
007D67FD E8520DCFFF call 004C7554
007D6802 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmSXCKNewList.ADOQueryMain : TADOQuery
|
007D6805 8B9814030000 mov ebx, [eax+$0314]
007D680B 33D2 xor edx, edx
007D680D 8BC3 mov eax, ebx
007D680F 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_0190
|
007D6811 FF9190010000 call dword ptr [ecx+$0190]
007D6817 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
007D6819 E8B6F0CEFF call 004C58D4
007D681E 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D6820 E88777D0FF call 004DDFAC
007D6825 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
007D6827 FF5244 call dword ptr [edx+$44]
007D682A 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D682C E87B77D0FF call 004DDFAC
* Possible String Reference to: ' select '
|
007D6831 BA686A7D00 mov edx, $007D6A68
007D6836 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007D6838 FF5138 call dword ptr [ecx+$38]
007D683B 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmSXCKNewList.OFFS_0404
|
007D683E 8B8004040000 mov eax, [eax+$0404]
007D6844 BA7C6A7D00 mov edx, $007D6A7C
* Reference to: System.@LStrCmp;
|
007D6849 E8F2EEC2FF call 00405740
007D684E 7513 jnz 007D6863
007D6850 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D6852 E85577D0FF call 004DDFAC
* Possible String Reference to: 'isnull(YGName,'') FactoryName '
|
007D6857 BA886A7D00 mov edx, $007D6A88
007D685C 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007D685E FF5138 call dword ptr [ecx+$38]
007D6861 EB11 jmp 007D6874
007D6863 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D6865 E84277D0FF call 004DDFAC
* Possible String Reference to: 'isnull(A.FactoryName,A.ToFactoryNam
| e) FactoryName '
|
007D686A BAB06A7D00 mov edx, $007D6AB0
007D686F 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007D6871 FF5138 call dword ptr [ecx+$38]
007D6874 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D6876 E83177D0FF call 004DDFAC
* Possible String Reference to: ',OrderNO=(select OrderNO from JYOrd
| er_Main JM where JM.MainId=A.ORDMai
| nIdRK)'
|
007D687B BAEC6A7D00 mov edx, $007D6AEC
007D6880 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007D6882 FF5138 call dword ptr [ecx+$38]
007D6885 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D6887 E82077D0FF call 004DDFAC
* Possible String Reference to: ',ConNO=(select ConNO from JYOrder_M
| ain JM where JM.MainId=A.ORDMainIdR
| K),A.*'
|
007D688C BA446B7D00 mov edx, $007D6B44
007D6891 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007D6893 FF5138 call dword ptr [ecx+$38]
007D6896 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D6898 E80F77D0FF call 004DDFAC
* Possible String Reference to: ' from CK_SXPB_CR A'
|
007D689D BA9C6B7D00 mov edx, $007D6B9C
007D68A2 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007D68A4 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where A.CRTime>=''
|
007D68A7 68B86B7D00 push $007D6BB8
007D68AC 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmSXCKNewList.BegDate : TDateTimePicker
|
007D68AF 8B8028030000 mov eax, [eax+$0328]
007D68B5 FFB014020000 push dword ptr [eax+$0214]
007D68BB FFB010020000 push dword ptr [eax+$0210]
007D68C1 8D55F0 lea edx, [ebp-$10]
* Possible String Reference to: 'yyyy-MM-dd'
|
007D68C4 B8D46B7D00 mov eax, $007D6BD4
|
007D68C9 E8EE82C3FF call 0040EBBC
007D68CE 8B45F0 mov eax, [ebp-$10]
007D68D1 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007D68D4 E81340C3FF call 0040A8EC
007D68D9 FF75F4 push dword ptr [ebp-$0C]
007D68DC 68E86B7D00 push $007D6BE8
007D68E1 8D45F8 lea eax, [ebp-$08]
007D68E4 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007D68E9 E8C6EDC2FF call 004056B4
007D68EE 8B45F8 mov eax, [ebp-$08]
007D68F1 50 push eax
007D68F2 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D68F4 E8B376D0FF call 004DDFAC
007D68F9 5A pop edx
007D68FA 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007D68FC FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' and A.CRTime<''
|
007D68FF 68F46B7D00 push $007D6BF4
007D6904 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmSXCKNewList.EndDate : TDateTimePicker
|
007D6907 8B802C030000 mov eax, [eax+$032C]
007D690D DD8010020000 fld qword ptr [eax+$0210]
007D6913 D805046C7D00 fadd dword ptr [$007D6C04]
007D6919 83C4F8 add esp, -$08
007D691C DD1C24 fstp qword ptr [esp]
007D691F 9B wait
007D6920 8D55E4 lea edx, [ebp-$1C]
* Possible String Reference to: 'yyyy-MM-dd'
|
007D6923 B8D46B7D00 mov eax, $007D6BD4
|
007D6928 E88F82C3FF call 0040EBBC
007D692D 8B45E4 mov eax, [ebp-$1C]
007D6930 8D55E8 lea edx, [ebp-$18]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007D6933 E8B43FC3FF call 0040A8EC
007D6938 FF75E8 push dword ptr [ebp-$18]
007D693B 68E86B7D00 push $007D6BE8
007D6940 8D45EC lea eax, [ebp-$14]
007D6943 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007D6948 E867EDC2FF call 004056B4
007D694D 8B45EC mov eax, [ebp-$14]
007D6950 50 push eax
007D6951 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D6953 E85476D0FF call 004DDFAC
007D6958 5A pop edx
007D6959 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007D695B FF5138 call dword ptr [ecx+$38]
007D695E 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D6960 E84776D0FF call 004DDFAC
* Possible String Reference to: ' and CRType in('<EFBFBD>ɹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<EFBFBD>ӹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
| ','<EFBFBD>ɹ<EFBFBD><EFBFBD>˻<EFBFBD>','<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<EFBFBD>˻<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',
| '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')'
|
007D6965 BA106C7D00 mov edx, $007D6C10
007D696A 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007D696C FF5138 call dword ptr [ecx+$38]
007D696F 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmSXCKNewList.OFFS_0404
|
007D6972 8B8004040000 mov eax, [eax+$0404]
007D6978 BA7C6A7D00 mov edx, $007D6A7C
* Reference to: System.@LStrCmp;
|
007D697D E8BEEDC2FF call 00405740
007D6982 7513 jnz 007D6997
007D6984 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D6986 E82176D0FF call 004DDFAC
* Possible String Reference to: ' and isnull(CKName,'') in ('<EFBFBD><EFBFBD>װ','
| <EFBFBD>ü<EFBFBD>','<EFBFBD><EFBFBD><EFBFBD><EFBFBD>')'
|
007D698B BA6C6C7D00 mov edx, $007D6C6C
007D6990 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007D6992 FF5138 call dword ptr [ecx+$38]
007D6995 EB11 jmp 007D69A8
007D6997 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D6999 E80E76D0FF call 004DDFAC
* Possible String Reference to: ' and isnull(CKName,'') not in ('<EFBFBD><EFBFBD><EFBFBD>
| <EFBFBD>','<EFBFBD>ü<EFBFBD>','<EFBFBD><EFBFBD><EFBFBD><EFBFBD>')'
|
007D699E BAA86C7D00 mov edx, $007D6CA8
007D69A3 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007D69A5 FF5138 call dword ptr [ecx+$38]
007D69A8 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmSXCKNewList.cxTabControl1 : TcxTabControl
|
007D69AB 8B80D0030000 mov eax, [eax+$03D0]
* Reference to control ADOTemp : N.A.
|
007D69B1 83B83C03000000 cmp dword ptr [eax+$033C], +$00
007D69B8 7513 jnz 007D69CD
007D69BA 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D69BC E8EB75D0FF call 004DDFAC
* Possible String Reference to: ' and not exists(select YFTypeId fro
| m YF_Money_CR X where X.YFTypeId=A.
| SPID)'
|
007D69C1 BAE86C7D00 mov edx, $007D6CE8
007D69C6 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007D69C8 FF5138 call dword ptr [ecx+$38]
007D69CB EB11 jmp 007D69DE
007D69CD 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D69CF E8D875D0FF call 004DDFAC
* Possible String Reference to: ' and exists(select YFTypeId from YF
| _Money_CR X where X.YFTypeId=A.SPID
| )'
|
007D69D4 BA3C6D7D00 mov edx, $007D6D3C
007D69D9 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007D69DB FF5138 call dword ptr [ecx+$38]
007D69DE 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
007D69E0 E8E3EECEFF call 004C58C8
007D69E5 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmSXCKNewList.CDS_Main : TClientDataSet
|
007D69E8 8B9030030000 mov edx, [eax+$0330]
007D69EE 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmSXCKNewList.ADOQueryMain : TADOQuery
|
007D69F1 8B8014030000 mov eax, [eax+$0314]
|
007D69F7 E89404FEFF call 007B6E90
007D69FC 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmSXCKNewList.CDS_Main : TClientDataSet
|
007D69FF 8B9030030000 mov edx, [eax+$0330]
007D6A05 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmSXCKNewList.ADOQueryMain : TADOQuery
|
007D6A08 8B8014030000 mov eax, [eax+$0314]
|
007D6A0E E80506FEFF call 007B7018
007D6A13 33C0 xor eax, eax
007D6A15 5A pop edx
007D6A16 59 pop ecx
007D6A17 59 pop ecx
007D6A18 648910 mov fs:[eax], edx
****** FINALLY
|
007D6A1B 68366A7D00 push $007D6A36
007D6A20 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmSXCKNewList.ADOQueryMain : TADOQuery
|
007D6A23 8B8014030000 mov eax, [eax+$0314]
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
007D6A29 E8460BCFFF call 004C7574
007D6A2E C3 ret
* Reference to: System.@HandleFinally;
|
007D6A2F E9C0E0C2FF jmp 00404AF4
007D6A34 EBEA jmp 007D6A20
****** END
|
007D6A36 33C0 xor eax, eax
007D6A38 5A pop edx
007D6A39 59 pop ecx
007D6A3A 59 pop ecx
007D6A3B 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[<5B><>]<5D>'
|
007D6A3E 68586A7D00 push $007D6A58
007D6A43 8D45E4 lea eax, [ebp-$1C]
007D6A46 BA06000000 mov edx, $00000006
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007D6A4B E8F8E8C2FF call 00405348
007D6A50 C3 ret
* Reference to: System.@HandleFinally;
|
007D6A51 E99EE0C2FF jmp 00404AF4
007D6A56 EBEB jmp 007D6A43
****** END
|
007D6A58 5B pop ebx
007D6A59 8BE5 mov esp, ebp
007D6A5B 5D pop ebp
007D6A5C C3 ret
*)
end;
procedure TfrmSXCKNewList._PROC_007D72D4(Sender : TObject);
begin
(*
007D72D4 55 push ebp
007D72D5 8BEC mov ebp, esp
007D72D7 33C0 xor eax, eax
007D72D9 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><C38B>-<2D><<3C>'
|
007D72DA 68F9727D00 push $007D72F9
***** TRY
|
007D72DF 64FF30 push dword ptr fs:[eax]
007D72E2 648920 mov fs:[eax], esp
007D72E5 FF059C3C8900 inc dword ptr [$00893C9C]
007D72EB 33C0 xor eax, eax
007D72ED 5A pop edx
007D72EE 59 pop ecx
007D72EF 59 pop ecx
007D72F0 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-<2D><<3C>'
|
007D72F3 6800737D00 push $007D7300
007D72F8 C3 ret
* Reference to: System.@HandleFinally;
|
007D72F9 E9F6D7C2FF jmp 00404AF4
007D72FE EBF8 jmp 007D72F8
****** END
|
007D7300 5D pop ebp
007D7301 C3 ret
*)
end;
procedure TfrmSXCKNewList._PROC_007D7304(Sender : TObject);
begin
(*
007D7304 832D9C3C890001 sub dword ptr [$00893C9C], +$01
007D730B C3 ret
*)
end;
procedure TfrmSXCKNewList._PROC_007D730C(Sender : TObject);
begin
(*
007D730C 58 pop eax
007D730D 737D jnb 007D738C
007D730F 0000 add [eax], al
007D7311 0000 add [eax], al
007D7313 0000 add [eax], al
007D7315 0000 add [eax], al
007D7317 0000 add [eax], al
007D7319 0000 add [eax], al
007D731B 00D0 add al, dl
007D731D 777D jnbe 007D739C
007D731F 004C747D add [esp+esi*2+$7D], cl
007D7323 00D1 add cl, dl
007D7325 767D jbe 007D73A4
007D7327 0000 add [eax], al
007D7329 0000 add [eax], al
007D732B 006877 add [eax+$77], ch
007D732E 7D00 jnl 007D7330
007D7330 A803 test al, $03
007D7332 0000 add [eax], al
007D7334 88F1 mov cl, dh
007D7336 49 dec ecx
007D7337 0028 add [eax], ch
007D7339 D4 aam
007D733A 42 inc edx
007D733B 005C1F4A add [edi+ebx+$4A], bl
007D733F 0010 add [eax], dl
007D7341 214A00 and [edx+$00], ecx
007D7344 BC4540008C mov esp, $8C004045
007D7349 45 inc ebp
007D734A 4A dec edx
007D734B 00E4 add ah, ah
007D734D 42 inc edx
007D734E 40 inc eax
007D734F 0000 add [eax], al
007D7351 43 inc ebx
007D7352 40 inc eax
007D7353 007821 add [eax+$21], bh
007D7356 4A dec edx
007D7357 001CFB add [ebx+edi*8], bl
007D735A 48 dec eax
007D735B 00F8 add al, bh
007D735D 264A dec edx
007D735F 00B83C420038 add [eax+$3800423C], bh
007D7365 234A00 and ecx, [edx+$00]
007D7368 7423 jz 007D738D
007D736A 4A dec edx
007D736B 0080244A00D8 add [eax+$D8004A24], al
007D7371 83480050 or dword ptr [eax+$00], +$50
007D7375 D4 aam
007D7376 42 inc edx
007D7377 0008 add [eax], cl
007D7379 2D4A007CD0 sub eax, $D07C004A
007D737E 42 inc edx
007D737F 00F4 add ah, dh
007D7381 6B4A00D0 imul ecx, [edx+$00], $D0
007D7385 1D4A0030F6 sbb eax, $F630004A
007D738A 48 dec eax
007D738B 004CFB48 add [ebx+edi*8+$48], cl
007D738F 0098FA48000C add [eax+$C0048FA], bl
007D7395 7948 jns 007D73DF
007D7397 00ACF04800E829 add [eax+esi*8+$29E80048], ch
007D739E 4A dec edx
007D739F 00E4 add ah, ah
007D73A1 ED in eax, dx
007D73A2 48 dec eax
007D73A3 00547848 add [eax+edi*2+$48], dl
007D73A7 005878 add [eax+$78], bl
007D73AA 48 dec eax
007D73AB 00DC add ah, bl
007D73AD 2A4A00 sub cl, byte ptr [edx+$00]
007D73B0 3CA9 cmp al, $A9
007D73B2 48 dec eax
007D73B3 00C0 add al, al
007D73B5 834800D0 or dword ptr [eax+$00], -$30
007D73B9 7948 jns 007D7403
007D73BB 004C8548 add [ebp+eax*4+$48], cl
007D73BF 00D0 add al, dl
007D73C1 2C4A sub al, $4A
007D73C3 009C2B4A008486 add [ebx+ebp+$8684004A], bl
007D73CA 48 dec eax
007D73CB 00482D add [eax+$2D], cl
007D73CE 4A dec edx
007D73CF 00C0 add al, al
007D73D1 A9480038EE test eax, $EE380048
007D73D6 48 dec eax
007D73D7 00F4 add ah, dh
007D73D9 EE out dx, al
007D73DA 48 dec eax
007D73DB 00F0 add al, dh
007D73DD E94800D8EE jmp EF55742A
007D73E2 48 dec eax
007D73E3 00D8 add al, bl
007D73E5 1B4A00 sbb ecx, [edx+$00]
007D73E8 EC in al, dx
007D73E9 334A00 xor ecx, [edx+$00]
007D73EC 20C4 and ah, al
007D73EE 48 dec eax
007D73EF 00B0404A0010 add [eax+$10004A40], dh
007D73F5 44 inc esp
007D73F6 4A dec edx
007D73F7 00CC add ah, cl
007D73F9 42 inc edx
007D73FA 4A dec edx
007D73FB 00B8C44800BC add [eax+$BC0048C4], bh
007D7401 C44800 les ecx, [eax+$00]
007D7404 48 dec eax
007D7405 45 inc ebp
007D7406 4A dec edx
007D7407 001CC3 add [ebx+eax*8], bl
007D740A 48 dec eax
007D740B 0018 add [eax], bl
007D740D F0 lock
007D740E 48 dec eax
007D740F 00444C4A add [esp+ecx*2+$4A], al
007D7413 000C02 add [edx+eax], cl
007D7416 49 dec ecx
007D7417 0094EC48009C64 add [esp+ebp*8+$649C0048], dl
007D741E 4A dec edx
007D741F 008C154A003C18 add [ebp+edx+$183C004A], cl
007D7426 4A dec edx
007D7427 0038 add [eax], bh
007D7429 52 push edx
007D742A 4A dec edx
007D742B 005C224A add [edx+$4A], bl
007D742F 00D8 add al, bl
007D7431 224A00 and cl, byte ptr [edx+$00]
007D7434 7C68 jl 007D749E
007D7436 4A dec edx
007D7437 00941F4A003C60 add [edi+ebx+$603C004A], dl
007D743E 4A dec edx
007D743F 001447 add [edi+eax*2], dl
007D7442 4A dec edx
007D7443 0034654A00CC2C add [$2CCC004A], dh
007D744A 4A dec edx
007D744B 0027 add [edi], ah
007D744D 0080777D00F8 add [eax+$F8007D77], al
007D7453 0200 add al, byte ptr [eax]
007D7455 0000 add [eax], al
007D7457 0008 add [eax], cl
007D7459 54 push esp
007D745A 6F outsd
007D745B 6F outsd
007D745C 6C insb
007D745D 42 inc edx
007D745E 61 popa
007D745F 7231 jb 007D7492
007D7461 FC cld
007D7462 0200 add al, byte ptr [eax]
007D7464 0001 add [ecx], al
007D7466 0007 add [edi], al
007D7468 54 push esp
007D7469 42 inc edx
007D746A 43 inc ebx
007D746B 6C insb
007D746C 6F outsd
007D746D 7365 jnb 007D74D4
007D746F 0003 add [ebx], al
007D7471 0000 add [eax], al
007D7473 0200 add al, byte ptr [eax]
007D7475 06 push es
007D7476 50 push eax
007D7477 61 popa
007D7478 6E outsb
007D7479 656C insb
007D747B 310403 xor [ebx+eax], eax
007D747E 0000 add [eax], al
007D7480 0300 add eax, [eax]
007D7482 03547631 add edx, [esi+esi*2+$31]
007D7486 0803 or [ebx], al
007D7488 0000 add [eax], al
007D748A 0400 add al, +$00
007D748C 0D63784772 or eax, $72477863
007D7491 6964314C6576656C imul esp, [ecx+esi+$4C], $6C657665
007D7499 310C03 xor [ebx+eax], ecx
007D749C 0000 add [eax], al
007D749E 0500076378 add eax, +$78630700
007D74A3 47 inc edi
007D74A4 7269 jb 007D750F
007D74A6 643110 xor fs:[eax], edx
007D74A9 0300 add eax, [eax]
007D74AB 0006 add [esi], al
007D74AD 0010 add [eax], dl
007D74AF 637847 arpl [eax+$47], di
007D74B2 7269 jb 007D751D
007D74B4 6450 push eax
007D74B6 6F outsd
007D74B7 7075 jo 007D752E
007D74B9 704D jo 007D7508
007D74BB 656E outsb
007D74BD 7531 jnz 007D74F0
007D74BF 1403 adc al, $03
007D74C1 0000 add [eax], al
007D74C3 07 pop es
007D74C4 000B add [ebx], cl
007D74C6 41 inc ecx
007D74C7 44 inc esp
007D74C8 4F dec edi
007D74C9 51 push ecx
007D74CA 7565 jnz 007D7531
007D74CC 7279 jb 007D7547
007D74CE 43 inc ebx
007D74CF 6D insd
007D74D0 641803 sbb fs:[ebx], al
007D74D3 0000 add [eax], al
007D74D5 07 pop es
007D74D6 000C41 add [ecx+eax*2], cl
007D74D9 44 inc esp
007D74DA 4F dec edi
007D74DB 51 push ecx
007D74DC 7565 jnz 007D7543
007D74DE 7279 jb 007D7559
007D74E0 4D dec ebp
007D74E1 61 popa
007D74E2 696E1C03000007 imul ebp, [esi+$1C], $07000003
007D74E9 000C41 add [ecx+eax*2], cl
007D74EC 44 inc esp
007D74ED 4F dec edi
007D74EE 51 push ecx
007D74EF 7565 jnz 007D7556
007D74F1 7279 jb 007D756C
007D74F3 54 push esp
007D74F4 656D insd
007D74F6 7020 jo 007D7518
007D74F8 0300 add eax, [eax]
007D74FA 0008 add [eax], cl
007D74FC 000B add [ebx], cl
007D74FE 44 inc esp
007D74FF 61 popa
007D7500 7461 jz 007D7563
007D7502 53 push ebx
007D7503 6F outsd
007D7504 7572 jnz 007D7578
007D7506 636531 arpl [ebp+$31], sp
007D7509 2403 and al, $03
007D750B 0000 add [eax], al
007D750D 0900 or [eax], eax
007D750F 06 push es
007D7510 4C dec esp
007D7511 61 popa
007D7512 62656C bound esp, qword ptr [ebp+$6C]
007D7515 3328 xor ebp, [eax]
007D7517 0300 add eax, [eax]
007D7519 000A add [edx], cl
007D751B 0008 add [eax], cl
007D751D 4F dec edi
007D751E 7264 jb 007D7584
007D7520 65724E jb 007D7571
007D7523 6F outsd
007D7524 4D dec ebp
007D7525 2C03 sub al, $03
007D7527 0000 add [eax], al
007D7529 0B00 or eax, [eax]
007D752B 097631 or [esi+$31], esi
007D752E 4F dec edi
007D752F 7264 jb 007D7595
007D7531 65724E jb 007D7582
007D7534 6F outsd
007D7535 3003 xor [ebx], al
007D7537 0000 add [eax], al
007D7539 0B00 or eax, [eax]
007D753B 0E push cs
007D753C 7631 jbe 007D756F
007D753E 44 inc esp
007D753F 656C insb
007D7541 69766572794461 imul esi, [esi+$65], $61447972
007D7548 7465 jz 007D75AF
007D754A 3403 xor al, $03
007D754C 0000 add [eax], al
007D754E 0B00 or eax, [eax]
007D7550 07 pop es
007D7551 7631 jbe 007D7584
007D7553 43 inc ebx
007D7554 6F outsd
007D7555 6E outsb
007D7556 4E dec esi
007D7557 6F outsd
007D7558 3803 cmp [ebx], al
007D755A 0000 add [eax], al
007D755C 0B00 or eax, [eax]
007D755E 0A7631 or dh, byte ptr [esi+$31]
007D7561 50 push eax
007D7562 52 push edx
007D7563 54 push esp
007D7564 43 inc ebx
007D7565 6F outsd
007D7566 6C insb
007D7567 6F outsd
007D7568 723C jb 007D75A6
007D756A 0300 add eax, [eax]
007D756C 000B add [ebx], cl
007D756E 000A add [edx], cl
007D7570 7631 jbe 007D75A3
007D7572 4D dec ebp
007D7573 50 push eax
007D7574 52 push edx
007D7575 54 push esp
007D7576 53 push ebx
007D7577 7065 jo 007D75DE
007D7579 634003 arpl [eax+$03], ax
007D757C 0000 add [eax], al
007D757E 0C00 or al, $00
007D7580 0A4F72 or cl, byte ptr [edi+$72]
007D7583 6465725F jb 007D75E6
007D7587 4D dec ebp
007D7588 61 popa
007D7589 696E440300000D imul ebp, [esi+$44], $0D000003
007D7590 0003 add [ebx], al
007D7592 52 push edx
007D7593 4D dec ebp
007D7594 314803 xor [eax+$03], ecx
007D7597 0000 add [eax], al
007D7599 0E push cs
007D759A 0008 add [eax], cl
007D759C 52 push edx
007D759D 4D dec ebp
007D759E 44 inc esp
007D759F 42 inc edx
007D75A0 4D dec ebp
007D75A1 61 popa
007D75A2 696E4C0300000F imul ebp, [esi+$4C], $0F000003
007D75A9 000C52 add [edx+edx*2], cl
007D75AC 4D dec ebp
007D75AD 58 pop eax
007D75AE 4C dec esp
007D75AF 53 push ebx
007D75B0 45 inc ebp
007D75B1 7870 js 007D7623
007D75B3 6F outsd
007D75B4 7274 jb 007D762A
007D75B6 315003 xor [eax+$03], edx
007D75B9 0000 add [eax], al
007D75BB 0B00 or eax, [eax]
007D75BD 0E push cs
007D75BE 7631 jbe 007D75F1
007D75C0 4D dec ebp
007D75C1 50 push eax
007D75C2 52 push edx
007D75C3 54 push esp
007D75C4 43 inc ebx
007D75C5 6F outsd
007D75C6 64654E dec esi
007D75C9 61 popa
007D75CA 6D insd
007D75CB 6554 push esp
007D75CD 0300 add eax, [eax]
007D75CF 000B add [ebx], cl
007D75D1 0008 add [eax], cl
007D75D3 7631 jbe 007D7606
007D75D5 4D dec ebp
007D75D6 50 push eax
007D75D7 52 push edx
007D75D8 54 push esp
007D75D9 4D dec ebp
007D75DA 46 inc esi
007D75DB 58 pop eax
007D75DC 0300 add eax, [eax]
007D75DE 000B add [ebx], cl
007D75E0 000D76315052 add [$52503176], cl
007D75E6 54 push esp
007D75E7 4F dec edi
007D75E8 7264 jb 007D764E
007D75EA 657251 jb 007D763E
007D75ED 7479 jz 007D7668
007D75EF 5C pop esp
007D75F0 0300 add eax, [eax]
007D75F2 0010 add [eax], dl
007D75F4 000A add [edx], cl
007D75F6 50 push eax
007D75F7 6F outsd
007D75F8 7075 jo 007D766F
007D75FA 704D jo 007D7649
007D75FC 656E outsb
007D75FE 7531 jnz 007D7631
007D7600 60 pusha
007D7601 0300 add eax, [eax]
007D7603 0011 add [ecx], dl
007D7605 0002 add [edx], al
007D7607 4E dec esi
007D7608 32640300 xor ah, byte ptr [ebx+eax+$00]
007D760C 000B add [ebx], cl
007D760E 0008 add [eax], cl
007D7610 7631 jbe 007D7643
007D7612 4D dec ebp
007D7613 50 push eax
007D7614 52 push edx
007D7615 54 push esp
007D7616 4B dec ebx
007D7617 5A pop edx
007D7618 680300000B push $0B000003
007D761D 000C76 add [esi+esi*2], cl
007D7620 314F72 xor [edi+$72], ecx
007D7623 6444 inc esp
007D7625 656653 push bx
007D7628 7472 jz 007D769C
007D762A 316C0300 xor [ebx+eax+$00], ebp
007D762E 0007 add [edi], al
007D7630 000D41444F51 add [$514F4441], cl
007D7636 7565 jnz 007D769D
007D7638 7279 jb 007D76B3
007D763A 50 push eax
007D763B 7269 jb 007D76A6
007D763D 6E outsb
007D763E 7470 jz 007D76B0
007D7640 0300 add eax, [eax]
007D7642 000C00 add [eax+eax], cl
007D7645 094344 or [ebx+$44], eax
007D7648 53 push ebx
007D7649 5F pop edi
007D764A 50 push eax
007D764B 7269 jb 007D76B6
007D764D 6E outsb
007D764E 7474 jz 007D76C4
007D7650 0300 add eax, [eax]
007D7652 0001 add [ecx], al
007D7654 000B add [ebx], cl
007D7656 54 push esp
007D7657 6F outsd
007D7658 6F outsd
007D7659 6C insb
007D765A 42 inc edx
007D765B 7574 jnz 007D76D1
007D765D 746F jz 007D76CE
007D765F 6E outsb
007D7660 337803 xor edi, [eax+$03]
007D7663 0000 add [eax], al
007D7665 0B00 or eax, [eax]
007D7667 097631 or [esi+$31], esi
007D766A 43 inc ebx
007D766B 6F outsd
007D766C 6C insb
007D766D 756D jnz 007D76DC
007D766F 6E outsb
007D7670 347C xor al, $7C
007D7672 0300 add eax, [eax]
007D7674 000B add [ebx], cl
007D7676 0009 add [ecx], cl
007D7678 7631 jbe 007D76AB
007D767A 43 inc ebx
007D767B 6F outsd
007D767C 6C insb
007D767D 756D jnz 007D76EC
007D767F 6E outsb
007D7680 31800300000B xor [eax+$B000003], eax
007D7686 0009 add [ecx], cl
007D7688 7631 jbe 007D76BB
007D768A 43 inc ebx
007D768B 6F outsd
007D768C 6C insb
007D768D 756D jnz 007D76FC
007D768F 6E outsb
007D7690 32840300000B00 xor al, byte ptr [ebx+eax+$B0000]
007D7697 097631 or [esi+$31], esi
007D769A 43 inc ebx
007D769B 6F outsd
007D769C 6C insb
007D769D 756D jnz 007D770C
007D769F 6E outsb
007D76A0 33880300000B xor ecx, [eax+$B000003]
007D76A6 0009 add [ecx], cl
007D76A8 7631 jbe 007D76DB
007D76AA 43 inc ebx
007D76AB 6F outsd
007D76AC 6C insb
007D76AD 756D jnz 007D771C
007D76AF 6E outsb
007D76B0 358C030000 xor eax, $0000038C
007D76B5 0B00 or eax, [eax]
007D76B7 097631 or [esi+$31], esi
007D76BA 4B dec ebx
007D76BB 48 dec eax
007D76BC 43 inc ebx
007D76BD 6F outsd
007D76BE 6E outsb
007D76BF 4E dec esi
007D76C0 4F dec edi
007D76C1 90 nop
007D76C2 0300 add eax, [eax]
007D76C4 000B add [ebx], cl
007D76C6 0009 add [ecx], cl
007D76C8 7631 jbe 007D76FB
007D76CA 43 inc ebx
007D76CB 6F outsd
007D76CC 6C insb
007D76CD 756D jnz 007D773C
007D76CF 6E outsb
007D76D0 360800 or ss:[eax], al
007D76D3 1200 adc al, byte ptr [eax]
007D76D5 0C78 or al, $78
007D76D7 7D00 jnl 007D76D9
007D76D9 0B466F or eax, [esi+$6F]
007D76DC 726D jb 007D774B
007D76DE 44 inc esp
007D76DF 657374 jnb 007D7756
007D76E2 726F jb 007D7753
007D76E4 7910 jns 007D76F6
007D76E6 001478 add [eax+edi*2], dl
007D76E9 7D00 jnl 007D76EB
007D76EB 09466F or [esi+$6F], eax
007D76EE 726D jb 007D775D
007D76F0 43 inc ebx
007D76F1 6C insb
007D76F2 6F outsd
007D76F3 7365 jnb 007D775A
007D76F5 1100 adc [eax], eax
007D76F7 18787D sbb [eax+$7D], bh
007D76FA 000A add [edx], cl
007D76FC 46 inc esi
007D76FD 6F outsd
007D76FE 726D jb 007D776D
007D7700 43 inc ebx
007D7701 7265 jb 007D7768
007D7703 61 popa
007D7704 7465 jz 007D776B
007D7706 1300 adc eax, [eax]
007D7708 28787D sub [eax+$7D], bh
007D770B 000C54 add [esp+edx*2], cl
007D770E 42 inc edx
007D770F 43 inc ebx
007D7710 6C insb
007D7711 6F outsd
007D7712 7365 jnb 007D7779
007D7714 43 inc ebx
007D7715 6C insb
007D7716 69636B0F00C47B imul esp, [ebx+$6B], $7BC4000F
007D771D 7D00 jnl 007D771F
007D771F 08466F or [esi+$6F], al
007D7722 726D jb 007D7791
007D7724 53 push ebx
007D7725 686F771700 push $0017776F
007D772A F4 hlt
007D772B 7B7D jnp 007D77AA
007D772D 0010 add [eax], dl
007D772F 54 push esp
007D7730 6F outsd
007D7731 6F outsd
007D7732 6C insb
007D7733 42 inc edx
007D7734 7574 jnz 007D77AA
007D7736 746F jz 007D77A7
007D7738 6E outsb
007D7739 33436C xor eax, [ebx+$6C]
007D773C 69636B1700147C imul esp, [ebx+$6B], $7C140017
007D7743 7D00 jnl 007D7745
007D7745 104F72 adc [edi+$72], cl
007D7748 6465724E jb 007D779A
007D774C 6F outsd
007D774D 4D dec ebp
007D774E 4B dec ebx
007D774F 657950 jns 007D77A2
007D7752 7265 jb 007D77B9
007D7754 7373 jnb 007D77C9
007D7756 1200 adc al, byte ptr [eax]
007D7758 207C7D00 and [ebp+edi*2+$00], bh
007D775C 0B547631 or edx, [esi+esi*2+$31]
007D7760 44 inc esp
007D7761 626C436C bound ebp, qword ptr [ebx+eax*2+$6C]
007D7765 69636B17546672 imul esp, [ebx+$6B], $72665417
007D776C 6D insd
007D776D 50 push eax
007D776E 726F jb 007D77DF
007D7770 647563 jnz 007D77D6
007D7773 744F jz 007D77C4
007D7775 7264 jb 007D77DB
007D7777 65724C jb 007D77C6
007D777A 69737453656C12 imul esi, [ebx+$74], $126C6553
007D7781 0028 add [eax], ch
007D7783 94 xchg eax, esp
007D7784 45 inc ebp
007D7785 00648A45 add [edx+ecx*4+$45], ah
007D7789 0020 add [eax], ah
007D778B 42 inc edx
007D778C 44 inc esp
007D778D 00F4 add ah, dh
007D778F B466 mov ah, $66
007D7791 00A40E64000016 add [esi+ecx+$16000064], ah
007D7798 6300 arpl [eax], ax
007D779A 58 pop eax
007D779B 767C jbe 007D7819
007D779D 00B8124D0008 add [eax+$8004D12], bh
007D77A3 7F4B jnle 007D77F0
007D77A5 001C5F add [edi+ebx*2], bl
007D77A8 47 inc edi
007D77A9 00B867470034 add [eax+$34004767], bh
007D77AF B166 mov cl, $66
007D77B1 0088996A0064 add [eax+$64006A99], cl
007D77B7 D37800 sar dword ptr [eax+$00], cl
007D77BA A80A test al, $0A
007D77BC 7800 js 007D77BE
007D77BE 6C insb
007D77BF 157B00887E adc eax, $7E88007B
007D77C4 49 dec ecx
007D77C5 008C7649008BC0 add [esi+esi*2+$C08B0049], cl
007D77CC D0777D DB $D0, $77, $7D // byte ptr [edi+$7D], 1
007D77CF 0007 add [edi], al
007D77D1 17 pop ss
007D77D2 54 push esp
007D77D3 66726D jb 007D7843
007D77D6 50 push eax
007D77D7 726F jb 007D7848
007D77D9 647563 jnz 007D783F
007D77DC 744F jz 007D782D
007D77DE 7264 jb 007D7844
007D77E0 65724C jb 007D782F
007D77E3 69737453656C58 imul esi, [ebx+$74], $586C6553
007D77EA 737D jnb 007D7869
007D77EC 00D0 add al, dl
007D77EE F2 repne
007D77EF 49 dec ecx
007D77F0 005E00 add [esi+$00], bl
007D77F3 15555F5072 adc eax, $72505F55
007D77F8 6F outsd
007D77F9 647563 jnz 007D785F
007D77FC 744F jz 007D784D
007D77FE 7264 jb 007D7864
007D7800 65724C jb 007D784F
007D7803 69737453656C00 imul esi, [ebx+$74], $006C6553
007D780A 009033C0A3A0 add [eax+$A0A3C033], dl
007D7810 3C89 cmp al, $89
007D7812 00C3 add bl, al
007D7814 C60102 mov byte ptr [ecx], $02
007D7817 C3 ret
007D7818 B205 mov dl, $05
* Reference to control OrdDate : N.A.
|
007D781A 8B800C030000 mov eax, [eax+$030C]
* Reference to: Controls.TControl.SetAlign(TControl;TAlign);
|
007D7820 E8B702CBFF call 00487ADC
007D7825 C3 ret
007D7826 8BC0 mov eax, eax
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
007D7828 E86BE7CCFF call 004A5F98
007D782D C3 ret
007D782E 8BC0 mov eax, eax
007D7830 55 push ebp
007D7831 8BEC mov ebp, esp
007D7833 33C9 xor ecx, ecx
007D7835 51 push ecx
007D7836 51 push ecx
007D7837 51 push ecx
007D7838 51 push ecx
007D7839 51 push ecx
007D783A 51 push ecx
007D783B 53 push ebx
007D783C 8945FC mov [ebp-$04], eax
007D783F 33C0 xor eax, eax
007D7841 55 push ebp
007D7842 68EA797D00 push $007D79EA
***** TRY
|
007D7847 64FF30 push dword ptr fs:[eax]
007D784A 648920 mov fs:[eax], esp
007D784D 8D55F4 lea edx, [ebp-$0C]
007D7850 8B45FC mov eax, [ebp-$04]
* Reference to control cxGrid1 : N.A.
|
007D7853 8B8028030000 mov eax, [eax+$0328]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007D7859 E8920DCBFF call 004885F0
007D785E 8B45F4 mov eax, [ebp-$0C]
007D7861 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007D7864 E88330C3FF call 0040A8EC
007D7869 8B45F8 mov eax, [ebp-$08]
* Reference to: System.@LStrLen(String):Integer;
| or: System.@DynArrayLength;
| or: System.DynArraySize(Pointer):Integer;
| or: Variants.DynArraySize(Pointer):Integer;
|
007D786C E883DDC2FF call 004055F4
007D7871 83F803 cmp eax, +$03
007D7874 0F8C3D010000 jl 007D79B7
007D787A 33C0 xor eax, eax
007D787C 55 push ebp
007D787D 68B0797D00 push $007D79B0
***** TRY
|
007D7882 64FF30 push dword ptr fs:[eax]
007D7885 648920 mov fs:[eax], esp
007D7888 8B45FC mov eax, [ebp-$04]
* Reference to control Label7 : TLabel
|
007D788B 8B8018030000 mov eax, [eax+$0318]
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
007D7891 E8BEFCCEFF call 004C7554
007D7896 8B45FC mov eax, [ebp-$04]
* Reference to control Label7 : TLabel
|
007D7899 8B9818030000 mov ebx, [eax+$0318]
007D789F 33D2 xor edx, edx
007D78A1 8BC3 mov eax, ebx
007D78A3 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_0190
|
007D78A5 FF9190010000 call dword ptr [ecx+$0190]
007D78AB 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
007D78AD E822E0CEFF call 004C58D4
007D78B2 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
007D78B4 E8F366D0FF call 004DDFAC
007D78B9 8B10 mov edx, [eax]
* Reference to method TLabel.GetClientRect()
|
007D78BB FF5244 call dword ptr [edx+$44]
007D78BE 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
007D78C0 E8E766D0FF call 004DDFAC
* Possible String Reference to: 'select B.*,A.*,A.OrderNo orderNoM,c
| .KhconNo,C.ConPerson2,C.ConPerson3,
| C.conDefstr2,C.conDefstr6,C.condefs
| tr10,C.priceNote,C.Payment,C.ShippM
| ent, '
|
007D78C5 BA007A7D00 mov edx, $007D7A00
007D78CA 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
007D78CC FF5138 call dword ptr [ecx+$38]
007D78CF 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
007D78D1 E8D666D0FF call 004DDFAC
* Possible String Reference to: 'PriceUnit1=(select top 1 PriceUnit
| from JYordercon_sub X where X.mainI
| D=C.mainid)'
|
007D78D6 BA9C7A7D00 mov edx, $007D7A9C
007D78DB 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
007D78DD FF5138 call dword ptr [ecx+$38]
007D78E0 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
007D78E2 E8C566D0FF call 004DDFAC
* Possible String Reference to: 'from JYOrder_sub A'
|
007D78E7 BAF87A7D00 mov edx, $007D7AF8
007D78EC 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
007D78EE FF5138 call dword ptr [ecx+$38]
007D78F1 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
007D78F3 E8B466D0FF call 004DDFAC
* Possible String Reference to: 'inner join JYOrder_Main B on B.mai
| nID=A.mainID '
|
007D78F8 BA147B7D00 mov edx, $007D7B14
007D78FD 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
007D78FF FF5138 call dword ptr [ecx+$38]
007D7902 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
007D7904 E8A366D0FF call 004DDFAC
* Possible String Reference to: 'left join JYOrderCon_Main C on C.c
| onNO=B.conNO '
|
007D7909 BA507B7D00 mov edx, $007D7B50
007D790E 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
007D7910 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: 'where B.OrderNo like '%'
|
007D7913 688C7B7D00 push $007D7B8C
007D7918 8D55E8 lea edx, [ebp-$18]
007D791B 8B45FC mov eax, [ebp-$04]
* Reference to control cxGrid1 : N.A.
|
007D791E 8B8028030000 mov eax, [eax+$0328]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007D7924 E8C70CCBFF call 004885F0
007D7929 8B45E8 mov eax, [ebp-$18]
007D792C 8D55EC lea edx, [ebp-$14]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007D792F E8B82FC3FF call 0040A8EC
007D7934 FF75EC push dword ptr [ebp-$14]
007D7937 68AC7B7D00 push $007D7BAC
007D793C 68B87B7D00 push $007D7BB8
007D7941 8D45F0 lea eax, [ebp-$10]
007D7944 BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
007D7949 E866DDC2FF call 004056B4
007D794E 8B45F0 mov eax, [ebp-$10]
007D7951 50 push eax
007D7952 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
007D7954 E85366D0FF call 004DDFAC
007D7959 5A pop edx
007D795A 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
007D795C FF5138 call dword ptr [ecx+$38]
007D795F 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
007D7961 E862DFCEFF call 004C58C8
007D7966 8B45FC mov eax, [ebp-$04]
* Reference to control ADOCmd : N.A.
|
007D7969 8B9040030000 mov edx, [eax+$0340]
007D796F 8B45FC mov eax, [ebp-$04]
* Reference to control Label7 : TLabel
|
007D7972 8B8018030000 mov eax, [eax+$0318]
|
007D7978 E813F5FDFF call 007B6E90
007D797D 8B45FC mov eax, [ebp-$04]
* Reference to control ADOCmd : N.A.
|
007D7980 8B9040030000 mov edx, [eax+$0340]
007D7986 8B45FC mov eax, [ebp-$04]
* Reference to control Label7 : TLabel
|
007D7989 8B8018030000 mov eax, [eax+$0318]
|
007D798F E884F6FDFF call 007B7018
007D7994 33C0 xor eax, eax
007D7996 5A pop edx
007D7997 59 pop ecx
007D7998 59 pop ecx
007D7999 648910 mov fs:[eax], edx
****** FINALLY
|
007D799C 68B7797D00 push $007D79B7
007D79A1 8B45FC mov eax, [ebp-$04]
* Reference to control Label7 : TLabel
|
007D79A4 8B8018030000 mov eax, [eax+$0318]
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
007D79AA E8C5FBCEFF call 004C7574
007D79AF C3 ret
* Reference to: System.@HandleFinally;
|
007D79B0 E93FD1C2FF jmp 00404AF4
007D79B5 EBEA jmp 007D79A1
****** END
|
007D79B7 33C0 xor eax, eax
007D79B9 5A pop edx
007D79BA 59 pop ecx
007D79BB 59 pop ecx
007D79BC 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[<5B><>]<5D>'
|
007D79BF 68F1797D00 push $007D79F1
007D79C4 8D45E8 lea eax, [ebp-$18]
* Reference to: System.@LStrClr(void;void);
|
007D79C7 E858D9C2FF call 00405324
007D79CC 8D45EC lea eax, [ebp-$14]
007D79CF BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007D79D4 E86FD9C2FF call 00405348
007D79D9 8D45F4 lea eax, [ebp-$0C]
* Reference to: System.@LStrClr(void;void);
|
007D79DC E843D9C2FF call 00405324
007D79E1 8D45F8 lea eax, [ebp-$08]
* Reference to: System.@LStrClr(void;void);
|
007D79E4 E83BD9C2FF call 00405324
007D79E9 C3 ret
*)
end;
end.