unit U_ConInPut_CX; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls type TfrmConInPut=class(TForm) ToolBar1: TToolBar; TBSave: TToolButton; TBClose: TToolButton; ScrollBox1: TScrollBox; Label3: TLabel; OrdDate: TDateTimePicker; Label4: TLabel; DlyDate: TDateTimePicker; Label7: TLabel; ToolBar2: TToolBar; ToolButton1: TToolButton; ToolButton2: TToolButton; cxGrid1: TcxGrid; Tv1: TcxGridDBTableView; cxGrid1Level1: TcxGridLevel; v1PRTColor: TcxGridDBColumn; v1PRTPrice: TcxGridDBColumn; ADOTemp: TADOQuery; ADOCmd: TADOQuery; DataSource1: TDataSource; Order_Sub: TClientDataSet; ADOQuery1: TADOQuery; v1PRTOrderQty: TcxGridDBColumn; Label9: TLabel; ConPerson1: TEdit; Label10: TLabel; ConNo: TEdit; Label11: TLabel; Label14: TLabel; Label20: TLabel; FromPlace: TBtnEditC; CustomerNoName: TBtnEditC; v1XHNo: TcxGridDBColumn; SYRName: TBtnEditC; v1OrderUnit: TcxGridDBColumn; v1PriceUnit: TcxGridDBColumn; Label5: TLabel; PriceNote: TBtnEditC; Label6: TLabel; QtyNote: TBtnEditC; Label15: TLabel; Payment: TBtnEditC; Label1: TLabel; ToPlace: TBtnEditC; Label17: TLabel; Label18: TLabel; BankNo: TBtnEditC; SYRAddress: TEdit; Label19: TLabel; BankName: TEdit; Label21: TLabel; BankAddress: TEdit; ToolButton3: TToolButton; v1Column1: TcxGridDBColumn; v1Column3: TcxGridDBColumn; Label8: TLabel; TelNo: TEdit; Label23: TLabel; FaxNo: TEdit; DlyNote: TBtnEditC; CDS_Type: TClientDataSet; Label28: TLabel; BankSelfFastNo: TEdit; Label29: TLabel; KHConNo: TEdit; v1Column5: TcxGridDBColumn; v1Column6: TcxGridDBColumn; v1Column7: TcxGridDBColumn; v1Column8: TcxGridDBColumn; ConPerson2: TBtnEditC; Label2: TLabel; conDefstr1: TEdit; Label12: TLabel; conDefstr2: TEdit; Label13: TLabel; Label31: TLabel; conDefstr3: TEdit; Label33: TLabel; conDefstr5: TEdit; EmailNo: TEdit; Label38: TLabel; CustomerNo: TEdit; Label40: TLabel; Label32: TLabel; FKPerson: TBtnEditC; Label35: TLabel; ConType: TBtnEditC; Label16: TLabel; ShippMent: TBtnEditC; v1Column2: TcxGridDBColumn; v1Column4: TcxGridDBColumn; v1Column9: TcxGridDBColumn; v1Column10: TcxGridDBColumn; v1Column11: TcxGridDBColumn; v1Column12: TcxGridDBColumn; Label34: TLabel; HuoDai: TBtnEditC; cxGrid2: TcxGrid; Tv2: TcxGridDBTableView; cxGridDBColumn1: TcxGridDBColumn; cxGridDBColumn18: TcxGridDBColumn; cxGridLevel1: TcxGridLevel; Button1: TButton; Button2: TButton; Order_Note: TClientDataSet; DataSource2: TDataSource; Label22: TLabel; KeFu: TEdit; v1Column13: TcxGridDBColumn; v1Column14: TcxGridDBColumn; v1Column15: TcxGridDBColumn; Label24: TLabel; Label25: TLabel; CPCFBi: TcxCurrencyEdit; procedure TBCloseClick(Sender : TObject); procedure FormShow(Sender : TObject); procedure TBSaveClick(Sender : TObject); procedure v1PRTColorPropertiesButtonClick(Sender : TObject); procedure ToolButton1Click(Sender : TObject); procedure ToolButton2Click(Sender : TObject); procedure CustomerNoNameBtnUpClick(Sender : TObject); procedure CustomerNoNameBtnDnClick(Sender : TObject); procedure v1Column1PropertiesButtonClick(Sender : TObject); procedure v1OrderUnitPropertiesButtonClick(Sender : TObject); procedure v1PriceUnitPropertiesButtonClick(Sender : TObject); procedure SYRNameBtnUpClick(Sender : TObject); procedure ToolButton3Click(Sender : TObject); procedure CPCFNoDblClick(Sender : TObject); procedure CPRanHouGYBtnDnClick(Sender : TObject); procedure v1PRTOrderQtyPropertiesEditValueChanged(Sender : TObject); procedure v1OrderUnitPropertiesEditValueChanged(Sender : TObject); procedure v1PRTPricePropertiesEditValueChanged(Sender : TObject); procedure v1Column5PropertiesButtonClick(Sender : TObject); procedure v1Column7PropertiesButtonClick(Sender : TObject); procedure v1Column8PropertiesButtonClick(Sender : TObject); procedure FormCreate(Sender : TObject); procedure Button1Click(Sender : TObject); procedure Button2Click(Sender : TObject); procedure _PROC_007D916D(Sender : TObject); procedure _PROC_007D98E5(Sender : TObject); procedure _PROC_007DA899(Sender : TObject); procedure _PROC_007DB40E(Sender : TObject); procedure _PROC_007DB45A(Sender : TObject); procedure _PROC_007DC14F(Sender : TObject); procedure _PROC_007DC34A(Sender : TObject); procedure _PROC_007DC375(Sender : TObject); procedure _PROC_007DC39C(Sender : TObject); procedure _PROC_007DC56E(Sender : TObject); procedure _PROC_007DD512(Sender : TObject); procedure _PROC_007DDF2D(Sender : TObject); procedure _PROC_007DDF5C(Sender : TObject); procedure _PROC_007DDF64(Sender : TObject); procedure _PROC_007DDFCA(Sender : TObject); private { Private declarations } public { Public declarations } end ; var frmConInPut: TfrmConInPut; {This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer} implementation {$R *.DFM} procedure TfrmConInPut.TBCloseClick(Sender : TObject); begin (* 007D9118 53 push ebx 007D9119 8BD8 mov ebx, eax 007D911B 8BC3 mov eax, ebx * Reference to: Forms.TCustomForm.Close(TCustomForm); | 007D911D E876CECCFF call 004A5F98 * Possible String Reference to: '生产指示单管理' | 007D9122 B944917D00 mov ecx, $007D9144 * Reference to control TfrmConInPut.Tv1 : TcxGridDBTableView | 007D9127 8B932C030000 mov edx, [ebx+$032C] * Possible String Reference to: '外销合同录入1' | 007D912D B85C917D00 mov eax, $007D915C | 007D9132 E869EAFDFF call 007B7BA0 007D9137 5B pop ebx 007D9138 C3 ret *) end; procedure TfrmConInPut.FormShow(Sender : TObject); begin (* 007D9880 53 push ebx 007D9881 8BD8 mov ebx, eax * Reference to field TfrmConInPut.OFFS_04C0 | 007D9883 8D83C0040000 lea eax, [ebx+$04C0] *) end; procedure TfrmConInPut.TBSaveClick(Sender : TObject); begin (* 007DABB8 55 push ebp 007DABB9 8BEC mov ebp, esp 007DABBB B920000000 mov ecx, $00000020 007DABC0 6A00 push $00 007DABC2 6A00 push $00 007DABC4 49 dec ecx 007DABC5 75F9 jnz 007DABC0 007DABC7 53 push ebx 007DABC8 56 push esi 007DABC9 57 push edi 007DABCA 8BD8 mov ebx, eax *) end; procedure TfrmConInPut.v1PRTColorPropertiesButtonClick(Sender : TObject); begin (* 007DB47C 55 push ebp 007DB47D 8BEC mov ebp, esp 007DB47F 51 push ecx 007DB480 B906000000 mov ecx, $00000006 007DB485 6A00 push $00 007DB487 6A00 push $00 007DB489 49 dec ecx 007DB48A 75F9 jnz 007DB485 007DB48C 874DFC xchg [ebp-$04], ecx 007DB48F 53 push ebx 007DB490 8BD8 mov ebx, eax 007DB492 33C0 xor eax, eax 007DB494 55 push ebp * Possible String Reference to: '閠斅肫[嬪]' | 007DB495 687BB67D00 push $007DB67B ***** TRY | 007DB49A 64FF30 push dword ptr fs:[eax] 007DB49D 648920 mov fs:[eax], esp 007DB4A0 33C0 xor eax, eax 007DB4A2 55 push ebp 007DB4A3 6834B67D00 push $007DB634 ***** TRY | 007DB4A8 64FF30 push dword ptr fs:[eax] 007DB4AB 648920 mov fs:[eax], esp *) end; procedure TfrmConInPut.ToolButton1Click(Sender : TObject); begin (* 007DB71C 55 push ebp 007DB71D 8BEC mov ebp, esp 007DB71F B909000000 mov ecx, $00000009 007DB724 6A00 push $00 007DB726 6A00 push $00 007DB728 49 dec ecx 007DB729 75F9 jnz 007DB724 007DB72B 51 push ecx 007DB72C 53 push ebx 007DB72D 56 push esi 007DB72E 57 push edi 007DB72F 8BD8 mov ebx, eax 007DB731 33C0 xor eax, eax 007DB733 55 push ebp * Possible String Reference to: '間捖肱_^[嬪]' | 007DB734 6888B87D00 push $007DB888 ***** TRY | 007DB739 64FF30 push dword ptr fs:[eax] 007DB73C 648920 mov fs:[eax], esp 007DB73F 8D55F8 lea edx, [ebp-$08] * Reference to control TfrmConInPut.ConNo : TEdit | 007DB742 8B8360030000 mov eax, [ebx+$0360] * Reference to: Controls.TControl.GetText(TControl):TCaption; | 007DB748 E8A3CECAFF call 004885F0 007DB74D 8B45F8 mov eax, [ebp-$08] 007DB750 8D55FC lea edx, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007DB753 E894F1C2FF call 0040A8EC 007DB758 837DFC00 cmp dword ptr [ebp-$04], +$00 007DB75C 751D jnz 007DB77B 007DB75E 6A00 push $00 * Possible String Reference to: '提示' | 007DB760 B998B87D00 mov ecx, $007DB898 * Possible String Reference to: '合同号不能为空!' | 007DB765 BAA0B87D00 mov edx, $007DB8A0 *) end; procedure TfrmConInPut.ToolButton2Click(Sender : TObject); begin (* 007DB8FC 55 push ebp 007DB8FD 8BEC mov ebp, esp 007DB8FF 33C9 xor ecx, ecx 007DB901 51 push ecx 007DB902 51 push ecx 007DB903 51 push ecx 007DB904 51 push ecx 007DB905 51 push ecx 007DB906 53 push ebx 007DB907 56 push esi 007DB908 8BD8 mov ebx, eax 007DB90A 33C0 xor eax, eax 007DB90C 55 push ebp * Possible String Reference to: '殒惵腚^[嬪]' | 007DB90D 6809BA7D00 push $007DBA09 ***** TRY | 007DB912 64FF30 push dword ptr fs:[eax] 007DB915 648920 mov fs:[eax], esp * Reference to control TfrmConInPut.Order_Sub : TClientDataSet | 007DB918 8B8348030000 mov eax, [ebx+$0348] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 007DB91E E89DC5CEFF call 004C7EC0 007DB923 84C0 test al, al 007DB925 0F85C3000000 jnz 007DB9EE * Possible String Reference to: 'SubId' | 007DB92B BA20BA7D00 mov edx, $007DBA20 * Reference to control TfrmConInPut.Order_Sub : TClientDataSet | 007DB930 8B8348030000 mov eax, [ebx+$0348] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007DB936 E879B2CEFF call 004C6BB4 007DB93B 8D55F8 lea edx, [ebp-$08] 007DB93E 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 007DB940 FF5160 call dword ptr [ecx+$60] 007DB943 8B45F8 mov eax, [ebp-$08] 007DB946 8D55FC lea edx, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007DB949 E89EEFC2FF call 0040A8EC 007DB94E 837DFC00 cmp dword ptr [ebp-$04], +$00 007DB952 0F848B000000 jz 007DB9E3 007DB958 6A24 push $24 * Possible String Reference to: '提示' | 007DB95A B928BA7D00 mov ecx, $007DBA28 * Possible String Reference to: '确定要删除数据吗？' | 007DB95F BA30BA7D00 mov edx, $007DBA30 *) end; procedure TfrmConInPut.CustomerNoNameBtnUpClick(Sender : TObject); begin (* 007DBA7C 55 push ebp 007DBA7D 8BEC mov ebp, esp 007DBA7F B90B000000 mov ecx, $0000000B 007DBA84 6A00 push $00 007DBA86 6A00 push $00 007DBA88 49 dec ecx 007DBA89 75F9 jnz 007DBA84 007DBA8B 53 push ebx 007DBA8C 56 push esi 007DBA8D 8BD8 mov ebx, eax 007DBA8F 33C0 xor eax, eax 007DBA91 55 push ebp * Possible String Reference to: '镹嵚胫^[嬪]' | 007DBA92 68A1BD7D00 push $007DBDA1 ***** TRY | 007DBA97 64FF30 push dword ptr fs:[eax] 007DBA9A 648920 mov fs:[eax], esp 007DBA9D 33C0 xor eax, eax 007DBA9F 55 push ebp 007DBAA0 686ABD7D00 push $007DBD6A ***** TRY | 007DBAA5 64FF30 push dword ptr fs:[eax] 007DBAA8 648920 mov fs:[eax], esp *) end; procedure TfrmConInPut.CustomerNoNameBtnDnClick(Sender : TObject); begin (* 007DBE90 53 push ebx 007DBE91 56 push esi 007DBE92 8BDA mov ebx, edx 007DBE94 33D2 xor edx, edx 007DBE96 8BF3 mov esi, ebx 007DBE98 8BC6 mov eax, esi * Reference to: Controls.TControl.SetText(TControl;TCaption); | 007DBE9A E881C7CAFF call 00488620 007DBE9F 8D8638020000 lea eax, [esi+$0238] * Reference to: System.@LStrClr(void;void); | 007DBEA5 E87A94C2FF call 00405324 007DBEAA 5E pop esi 007DBEAB 5B pop ebx 007DBEAC C3 ret *) end; procedure TfrmConInPut.v1Column1PropertiesButtonClick(Sender : TObject); begin (* 007DBEB0 55 push ebp 007DBEB1 8BEC mov ebp, esp 007DBEB3 51 push ecx 007DBEB4 B909000000 mov ecx, $00000009 007DBEB9 6A00 push $00 007DBEBB 6A00 push $00 007DBEBD 49 dec ecx 007DBEBE 75F9 jnz 007DBEB9 007DBEC0 874DFC xchg [ebp-$04], ecx 007DBEC3 53 push ebx 007DBEC4 56 push esi 007DBEC5 8BF0 mov esi, eax 007DBEC7 33C0 xor eax, eax 007DBEC9 55 push ebp * Possible String Reference to: '榄壜胨^[嬪]' | 007DBECA 6842C17D00 push $007DC142 ***** TRY | 007DBECF 64FF30 push dword ptr fs:[eax] 007DBED2 648920 mov fs:[eax], esp *) end; procedure TfrmConInPut.v1OrderUnitPropertiesButtonClick(Sender : TObject); begin (* 007DC1EC 55 push ebp 007DC1ED 8BEC mov ebp, esp 007DC1EF 6A00 push $00 007DC1F1 6A00 push $00 007DC1F3 6A00 push $00 007DC1F5 6A00 push $00 007DC1F7 6A00 push $00 007DC1F9 6A00 push $00 007DC1FB 6A00 push $00 007DC1FD 53 push ebx 007DC1FE 8945FC mov [ebp-$04], eax 007DC201 33C0 xor eax, eax 007DC203 55 push ebp * Possible String Reference to: '榱嚶脬[嬪]' | 007DC204 682EC37D00 push $007DC32E ***** TRY | 007DC209 64FF30 push dword ptr fs:[eax] 007DC20C 648920 mov fs:[eax], esp 007DC20F 33C0 xor eax, eax 007DC211 55 push ebp * Possible String Reference to: '辂嚶腱婨q' | 007DC212 68F4C27D00 push $007DC2F4 ***** TRY | 007DC217 64FF30 push dword ptr fs:[eax] 007DC21A 648920 mov fs:[eax], esp *) end; procedure TfrmConInPut.v1PriceUnitPropertiesButtonClick(Sender : TObject); begin (* 007DC3C4 55 push ebp 007DC3C5 8BEC mov ebp, esp 007DC3C7 6A00 push $00 007DC3C9 6A00 push $00 007DC3CB 6A00 push $00 007DC3CD 6A00 push $00 007DC3CF 6A00 push $00 007DC3D1 6A00 push $00 007DC3D3 6A00 push $00 007DC3D5 53 push ebx 007DC3D6 8BD8 mov ebx, eax 007DC3D8 33C0 xor eax, eax 007DC3DA 55 push ebp * Possible String Reference to: '闉吢脎[嬪]' | 007DC3DB 6851C57D00 push $007DC551 ***** TRY | 007DC3E0 64FF30 push dword ptr fs:[eax] 007DC3E3 648920 mov fs:[eax], esp 007DC3E6 33C0 xor eax, eax 007DC3E8 55 push ebp 007DC3E9 681FC57D00 push $007DC51F ***** TRY | 007DC3EE 64FF30 push dword ptr fs:[eax] 007DC3F1 648920 mov fs:[eax], esp *) end; procedure TfrmConInPut.SYRNameBtnUpClick(Sender : TObject); begin (* 007DC5A8 55 push ebp 007DC5A9 8BEC mov ebp, esp 007DC5AB B91A000000 mov ecx, $0000001A 007DC5B0 6A00 push $00 007DC5B2 6A00 push $00 007DC5B4 49 dec ecx 007DC5B5 75F9 jnz 007DC5B0 007DC5B7 51 push ecx 007DC5B8 53 push ebx 007DC5B9 56 push esi 007DC5BA 8955FC mov [ebp-$04], edx 007DC5BD 8BD8 mov ebx, eax 007DC5BF 33C0 xor eax, eax 007DC5C1 55 push ebp * Possible String Reference to: '閮|腓^[嬪]' | 007DC5C2 686CCE7D00 push $007DCE6C ***** TRY | 007DC5C7 64FF30 push dword ptr fs:[eax] 007DC5CA 648920 mov fs:[eax], esp 007DC5CD 8D55F8 lea edx, [ebp-$08] 007DC5D0 8B45FC mov eax, [ebp-$04] 007DC5D3 8B8080000000 mov eax, [eax+$0080] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007DC5D9 E80EE3C2FF call 0040A8EC 007DC5DE 8B55F8 mov edx, [ebp-$08] 007DC5E1 B884CE7D00 mov eax, $007DCE84 * Reference to: System.@LStrPos; | 007DC5E6 E84D93C2FF call 00405938 007DC5EB 8BF0 mov esi, eax 007DC5ED 33C0 xor eax, eax 007DC5EF 55 push ebp 007DC5F0 6847CE7D00 push $007DCE47 ***** TRY | 007DC5F5 64FF30 push dword ptr fs:[eax] 007DC5F8 648920 mov fs:[eax], esp *) end; procedure TfrmConInPut.ToolButton3Click(Sender : TObject); begin (* 007DD15C 53 push ebx 007DD15D 8BD8 mov ebx, eax * Reference to control TfrmConInPut.Order_Sub : TClientDataSet | 007DD15F 8B8348030000 mov eax, [ebx+$0348] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 007DD165 E856ADCEFF call 004C7EC0 007DD16A 84C0 test al, al 007DD16C 7511 jnz 007DD17F * Reference to control TfrmConInPut.Order_Sub : TClientDataSet | 007DD16E 8B9348030000 mov edx, [ebx+$0348] * Reference to control TfrmConInPut.Tv1 : TcxGridDBTableView | 007DD174 8B832C030000 mov eax, [ebx+$032C] * Reference to : TfrmSelExportField._PROC_007B752C() | 007DD17A E8ADA3FDFF call 007B752C 007DD17F 5B pop ebx 007DD180 C3 ret *) end; procedure TfrmConInPut.CPCFNoDblClick(Sender : TObject); begin (* 007DD184 55 push ebp 007DD185 8BEC mov ebp, esp 007DD187 53 push ebx 007DD188 56 push esi 007DD189 8BD8 mov ebx, eax 007DD18B 33C0 xor eax, eax 007DD18D 55 push ebp * Possible String Reference to: '(x腱^[]' | 007DD18E 68C7D27D00 push $007DD2C7 ***** TRY | 007DD193 64FF30 push dword ptr fs:[eax] 007DD196 648920 mov fs:[eax], esp *) end; procedure TfrmConInPut.CPRanHouGYBtnDnClick(Sender : TObject); begin (* 007DD36C 53 push ebx 007DD36D 56 push esi 007DD36E 8BDA mov ebx, edx 007DD370 33D2 xor edx, edx 007DD372 8BF3 mov esi, ebx 007DD374 8BC6 mov eax, esi * Reference to: Controls.TControl.SetText(TControl;TCaption); | 007DD376 E8A5B2CAFF call 00488620 007DD37B 8D8638020000 lea eax, [esi+$0238] * Reference to: System.@LStrClr(void;void); | 007DD381 E89E7FC2FF call 00405324 007DD386 5E pop esi 007DD387 5B pop ebx 007DD388 C3 ret *) end; procedure TfrmConInPut.v1PRTOrderQtyPropertiesEditValueChanged(Sender : TObject); begin (* 007DD38C 55 push ebp 007DD38D 8BEC mov ebp, esp 007DD38F 33C9 xor ecx, ecx 007DD391 51 push ecx 007DD392 51 push ecx 007DD393 51 push ecx 007DD394 51 push ecx 007DD395 51 push ecx 007DD396 51 push ecx 007DD397 53 push ebx 007DD398 56 push esi 007DD399 8BDA mov ebx, edx 007DD39B 8BF0 mov esi, eax 007DD39D 33C0 xor eax, eax 007DD39F 55 push ebp * Possible String Reference to: '榉v脬^[嬪]' | 007DD3A0 6838D47D00 push $007DD438 ***** TRY | 007DD3A5 64FF30 push dword ptr fs:[eax] 007DD3A8 648920 mov fs:[eax], esp 007DD3AB 8D55FC lea edx, [ebp-$04] 007DD3AE 8BC3 mov eax, ebx * Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem; | or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient; | or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem; | or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem; | or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar; | or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter; | 007DD3B0 E80723DBFF call 0058F6BC 007DD3B5 8D55F8 lea edx, [ebp-$08] 007DD3B8 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007DD3BB E82CD5C2FF call 0040A8EC 007DD3C0 837DF800 cmp dword ptr [ebp-$08], +$00 007DD3C4 750D jnz 007DD3D3 007DD3C6 8D45FC lea eax, [ebp-$04] 007DD3C9 BA50D47D00 mov edx, $007DD450 * Reference to: System.@LStrLAsg(void;void;void;void); | 007DD3CE E8E97FC2FF call 004053BC * Reference to control TfrmConInPut.Order_Sub : TClientDataSet | 007DD3D3 8B9E48030000 mov ebx, [esi+$0348] 007DD3D9 8BC3 mov eax, ebx * Reference to: DB.TDataSet.Edit(TDataSet); | 007DD3DB E860B0CEFF call 004C8440 * Possible String Reference to: 'PRTOrderQty' | 007DD3E0 BA5CD47D00 mov edx, $007DD45C 007DD3E5 8BC3 mov eax, ebx * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007DD3E7 E8C897CEFF call 004C6BB4 007DD3EC 50 push eax 007DD3ED 8D45E8 lea eax, [ebp-$18] 007DD3F0 8B55FC mov edx, [ebp-$04] * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 007DD3F3 E8D0B9C3FF call 00418DC8 007DD3F8 8D55E8 lea edx, [ebp-$18] 007DD3FB 58 pop eax 007DD3FC 8B08 mov ecx, [eax] 007DD3FE FF91B4000000 call dword ptr [ecx+$00B4] 007DD404 8BC3 mov eax, ebx 007DD406 8B10 mov edx, [eax] * Reference to method TClientDataSet.Post() | 007DD408 FF924C020000 call dword ptr [edx+$024C] 007DD40E 8BC6 mov eax, esi * Reference to: DBAdapt.TBaseDataSetAdapterField.ImplCheckOrigValue(TBaseDataSetAdapterField;WebAdapt.IActionRequest;System.Integer); | or: DBAdapt.TBaseDataSetAdapterField.ImplUpdateValue(TBaseDataSetAdapterField;WebAdapt.IActionRequest;System.Integer); | or: DsgnCntxt.TWebDesignContext.SetAdapterRequest(TWebDesignContext;System.IUnknown); | or: DsgnCntxt.TWebDesignContext.SetAdapterResponse(TWebDesignContext;System.IUnknown); | or: InSSLOpenSSL.TIdSSLSocket.SetCipherList(TIdSSLSocket;AnsiString); | or: IWDBStdCtrls.SetFieldText(TField;AnsiString); | 007DD410 E85FEFFFFF call 007DC374 007DD415 33C0 xor eax, eax 007DD417 5A pop edx 007DD418 59 pop ecx 007DD419 59 pop ecx 007DD41A 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '^[嬪]' | 007DD41D 683FD47D00 push $007DD43F 007DD422 8D45E8 lea eax, [ebp-$18] * Reference to: Variants.@VarClr(TVarData;TVarData); | 007DD425 E84A72C3FF call 00414674 007DD42A 8D45F8 lea eax, [ebp-$08] 007DD42D BA02000000 mov edx, $00000002 * Reference to: System.@LStrArrayClr(void;void;Integer); | 007DD432 E8117FC2FF call 00405348 007DD437 C3 ret * Reference to: System.@HandleFinally; | 007DD438 E9B776C2FF jmp 00404AF4 007DD43D EBE3 jmp 007DD422 ****** END | 007DD43F 5E pop esi 007DD440 5B pop ebx 007DD441 8BE5 mov esp, ebp 007DD443 5D pop ebp 007DD444 C3 ret *) end; procedure TfrmConInPut.v1OrderUnitPropertiesEditValueChanged(Sender : TObject); begin (* 007DD468 55 push ebp 007DD469 8BEC mov ebp, esp 007DD46B 33C9 xor ecx, ecx 007DD46D 51 push ecx 007DD46E 51 push ecx 007DD46F 51 push ecx 007DD470 51 push ecx 007DD471 51 push ecx 007DD472 53 push ebx 007DD473 56 push esi 007DD474 8BF2 mov esi, edx 007DD476 8BD8 mov ebx, eax 007DD478 33C0 xor eax, eax 007DD47A 55 push ebp 007DD47B 68F7D47D00 push $007DD4F7 ***** TRY | 007DD480 64FF30 push dword ptr fs:[eax] 007DD483 648920 mov fs:[eax], esp 007DD486 8D55FC lea edx, [ebp-$04] 007DD489 8BC6 mov eax, esi * Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem; | or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient; | or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem; | or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem; | or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar; | or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter; | 007DD48B E82C22DBFF call 0058F6BC * Reference to control TfrmConInPut.Order_Sub : TClientDataSet | 007DD490 8BB348030000 mov esi, [ebx+$0348] 007DD496 8BC6 mov eax, esi * Reference to: DB.TDataSet.Edit(TDataSet); | 007DD498 E8A3AFCEFF call 004C8440 * Possible String Reference to: 'OrderUnit' | 007DD49D BA0CD57D00 mov edx, $007DD50C 007DD4A2 8BC6 mov eax, esi * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007DD4A4 E80B97CEFF call 004C6BB4 007DD4A9 50 push eax 007DD4AA 8D45EC lea eax, [ebp-$14] 007DD4AD 8B55FC mov edx, [ebp-$04] * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 007DD4B0 E813B9C3FF call 00418DC8 007DD4B5 8D55EC lea edx, [ebp-$14] 007DD4B8 58 pop eax 007DD4B9 8B08 mov ecx, [eax] 007DD4BB FF91B4000000 call dword ptr [ecx+$00B4] 007DD4C1 8BC6 mov eax, esi 007DD4C3 8B10 mov edx, [eax] * Reference to method TClientDataSet.Post() | 007DD4C5 FF924C020000 call dword ptr [edx+$024C] 007DD4CB 8BC3 mov eax, ebx * Reference to: DBAdapt.TBaseDataSetAdapterField.ImplCheckOrigValue(TBaseDataSetAdapterField;WebAdapt.IActionRequest;System.Integer); | or: DBAdapt.TBaseDataSetAdapterField.ImplUpdateValue(TBaseDataSetAdapterField;WebAdapt.IActionRequest;System.Integer); | or: DsgnCntxt.TWebDesignContext.SetAdapterRequest(TWebDesignContext;System.IUnknown); | or: DsgnCntxt.TWebDesignContext.SetAdapterResponse(TWebDesignContext;System.IUnknown); | or: InSSLOpenSSL.TIdSSLSocket.SetCipherList(TIdSSLSocket;AnsiString); | or: IWDBStdCtrls.SetFieldText(TField;AnsiString); | 007DD4CD E8A2EEFFFF call 007DC374 007DD4D2 8BC3 mov eax, ebx * Reference to: DBAdapt.TBaseDataSetAdapterField.ImplCheckOrigValue(TBaseDataSetAdapterField;WebAdapt.IActionRequest;System.Integer); | or: DBAdapt.TBaseDataSetAdapterField.ImplUpdateValue(TBaseDataSetAdapterField;WebAdapt.IActionRequest;System.Integer); | or: DsgnCntxt.TWebDesignContext.SetAdapterRequest(TWebDesignContext;System.IUnknown); | or: DsgnCntxt.TWebDesignContext.SetAdapterResponse(TWebDesignContext;System.IUnknown); | or: InSSLOpenSSL.TIdSSLSocket.SetCipherList(TIdSSLSocket;AnsiString); | or: IWDBStdCtrls.SetFieldText(TField;AnsiString); | 007DD4D4 E8C3EEFFFF call 007DC39C 007DD4D9 33C0 xor eax, eax 007DD4DB 5A pop edx 007DD4DC 59 pop ecx 007DD4DD 59 pop ecx 007DD4DE 648910 mov fs:[eax], edx ****** FINALLY | 007DD4E1 68FED47D00 push $007DD4FE 007DD4E6 8D45EC lea eax, [ebp-$14] * Reference to: Variants.@VarClr(TVarData;TVarData); | 007DD4E9 E88671C3FF call 00414674 007DD4EE 8D45FC lea eax, [ebp-$04] * Reference to: System.@LStrClr(void;void); | 007DD4F1 E82E7EC2FF call 00405324 007DD4F6 C3 ret * Reference to: System.@HandleFinally; | 007DD4F7 E9F875C2FF jmp 00404AF4 007DD4FC EBE8 jmp 007DD4E6 ****** END | 007DD4FE 5E pop esi 007DD4FF 5B pop ebx 007DD500 8BE5 mov esp, ebp 007DD502 5D pop ebp 007DD503 C3 ret *) end; procedure TfrmConInPut.v1PRTPricePropertiesEditValueChanged(Sender : TObject); begin (* 007DD518 55 push ebp 007DD519 8BEC mov ebp, esp 007DD51B B907000000 mov ecx, $00000007 007DD520 6A00 push $00 007DD522 6A00 push $00 007DD524 49 dec ecx 007DD525 75F9 jnz 007DD520 007DD527 53 push ebx 007DD528 56 push esi 007DD529 8BF2 mov esi, edx 007DD52B 8BD8 mov ebx, eax 007DD52D 33C0 xor eax, eax 007DD52F 55 push ebp * Possible String Reference to: '轷s胫^[嬪]' | 007DD530 68FAD67D00 push $007DD6FA ***** TRY | 007DD535 64FF30 push dword ptr fs:[eax] 007DD538 648920 mov fs:[eax], esp 007DD53B 8D55FC lea edx, [ebp-$04] 007DD53E 8BC6 mov eax, esi * Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem; | or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient; | or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem; | or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem; | or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar; | or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter; | 007DD540 E87721DBFF call 0058F6BC 007DD545 8D55F8 lea edx, [ebp-$08] 007DD548 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007DD54B E89CD3C2FF call 0040A8EC 007DD550 837DF800 cmp dword ptr [ebp-$08], +$00 007DD554 750D jnz 007DD563 007DD556 8D45FC lea eax, [ebp-$04] 007DD559 BA10D77D00 mov edx, $007DD710 * Reference to: System.@LStrLAsg(void;void;void;void); | 007DD55E E8597EC2FF call 004053BC * Reference to control TfrmConInPut.Order_Sub : TClientDataSet | 007DD563 8BB348030000 mov esi, [ebx+$0348] 007DD569 8BC6 mov eax, esi * Reference to: DB.TDataSet.Edit(TDataSet); | 007DD56B E8D0AECEFF call 004C8440 * Possible String Reference to: 'PRTPrice' | 007DD570 BA1CD77D00 mov edx, $007DD71C 007DD575 8BC6 mov eax, esi * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007DD577 E83896CEFF call 004C6BB4 007DD57C 50 push eax 007DD57D 8D45E8 lea eax, [ebp-$18] 007DD580 8B55FC mov edx, [ebp-$04] * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 007DD583 E840B8C3FF call 00418DC8 007DD588 8D55E8 lea edx, [ebp-$18] 007DD58B 58 pop eax 007DD58C 8B08 mov ecx, [eax] 007DD58E FF91B4000000 call dword ptr [ecx+$00B4] 007DD594 8BC6 mov eax, esi 007DD596 8B10 mov edx, [eax] * Reference to method TClientDataSet.Post() | 007DD598 FF924C020000 call dword ptr [edx+$024C] 007DD59E 8BC3 mov eax, ebx * Reference to: DBAdapt.TBaseDataSetAdapterField.ImplCheckOrigValue(TBaseDataSetAdapterField;WebAdapt.IActionRequest;System.Integer); | or: DBAdapt.TBaseDataSetAdapterField.ImplUpdateValue(TBaseDataSetAdapterField;WebAdapt.IActionRequest;System.Integer); | or: DsgnCntxt.TWebDesignContext.SetAdapterRequest(TWebDesignContext;System.IUnknown); | or: DsgnCntxt.TWebDesignContext.SetAdapterResponse(TWebDesignContext;System.IUnknown); | or: InSSLOpenSSL.TIdSSLSocket.SetCipherList(TIdSSLSocket;AnsiString); | or: IWDBStdCtrls.SetFieldText(TField;AnsiString); | 007DD5A0 E8F7EDFFFF call 007DC39C * Reference to control TfrmConInPut.ADOCmd : TADOQuery | 007DD5A5 8BB340030000 mov esi, [ebx+$0340] 007DD5AB 8BC6 mov eax, esi * Reference to: DB.TDataSet.Close(TDataSet); | 007DD5AD E82283CEFF call 004C58D4 007DD5B2 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007DD5B4 E8F309D0FF call 004DDFAC 007DD5B9 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 007DD5BB FF5244 call dword ptr [edx+$44] * Possible String Reference to: 'select * from YF_Money_CR where YFT | ypeId='' | 007DD5BE 6830D77D00 push $007DD730 * Possible String Reference to: 'Subid' | 007DD5C3 BA64D77D00 mov edx, $007DD764 * Reference to control TfrmConInPut.Order_Sub : TClientDataSet | 007DD5C8 8B8348030000 mov eax, [ebx+$0348] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007DD5CE E8E195CEFF call 004C6BB4 007DD5D3 8D55DC lea edx, [ebp-$24] 007DD5D6 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 007DD5D8 FF5160 call dword ptr [ecx+$60] 007DD5DB 8B45DC mov eax, [ebp-$24] 007DD5DE 8D55E0 lea edx, [ebp-$20] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007DD5E1 E806D3C2FF call 0040A8EC 007DD5E6 FF75E0 push dword ptr [ebp-$20] 007DD5E9 6874D77D00 push $007DD774 007DD5EE 8D45E4 lea eax, [ebp-$1C] 007DD5F1 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 007DD5F6 E8B980C2FF call 004056B4 007DD5FB 8B45E4 mov eax, [ebp-$1C] 007DD5FE 50 push eax 007DD5FF 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007DD601 E8A609D0FF call 004DDFAC 007DD606 5A pop edx 007DD607 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007DD609 FF5138 call dword ptr [ecx+$38] 007DD60C 8BC6 mov eax, esi * Reference to: DB.TDataSet.Open(TDataSet); | 007DD60E E8B582CEFF call 004C58C8 * Reference to control TfrmConInPut.ADOCmd : TADOQuery | 007DD613 8B8340030000 mov eax, [ebx+$0340] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 007DD619 E8A2A8CEFF call 004C7EC0 007DD61E 84C0 test al, al 007DD620 0F85A4000000 jnz 007DD6CA * Reference to control TfrmConInPut.ADOTemp : TADOQuery | 007DD626 8BB33C030000 mov esi, [ebx+$033C] 007DD62C 8BC6 mov eax, esi * Reference to: DB.TDataSet.Close(TDataSet); | 007DD62E E8A182CEFF call 004C58D4 007DD633 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007DD635 E87209D0FF call 004DDFAC 007DD63A 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 007DD63C FF5244 call dword ptr [edx+$44] * Possible String Reference to: 'update YF_Money_CR set Price='' | 007DD63F 6880D77D00 push $007DD780 007DD644 8D55D4 lea edx, [ebp-$2C] 007DD647 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007DD64A E89DD2C2FF call 0040A8EC 007DD64F FF75D4 push dword ptr [ebp-$2C] * Possible String Reference to: '' ' | 007DD652 68A8D77D00 push $007DD7A8 007DD657 8D45D8 lea eax, [ebp-$28] 007DD65A BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 007DD65F E85080C2FF call 004056B4 007DD664 8B45D8 mov eax, [ebp-$28] 007DD667 50 push eax 007DD668 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007DD66A E83D09D0FF call 004DDFAC 007DD66F 5A pop edx 007DD670 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007DD672 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: 'where YFTypeId='' | 007DD675 68B4D77D00 push $007DD7B4 * Possible String Reference to: 'Subid' | 007DD67A BA64D77D00 mov edx, $007DD764 * Reference to control TfrmConInPut.Order_Sub : TClientDataSet | 007DD67F 8B8348030000 mov eax, [ebx+$0348] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007DD685 E82A95CEFF call 004C6BB4 007DD68A 8D55C8 lea edx, [ebp-$38] 007DD68D 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 007DD68F FF5160 call dword ptr [ecx+$60] 007DD692 8B45C8 mov eax, [ebp-$38] 007DD695 8D55CC lea edx, [ebp-$34] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007DD698 E84FD2C2FF call 0040A8EC 007DD69D FF75CC push dword ptr [ebp-$34] 007DD6A0 6874D77D00 push $007DD774 007DD6A5 8D45D0 lea eax, [ebp-$30] 007DD6A8 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 007DD6AD E80280C2FF call 004056B4 007DD6B2 8B45D0 mov eax, [ebp-$30] 007DD6B5 50 push eax 007DD6B6 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007DD6B8 E8EF08D0FF call 004DDFAC 007DD6BD 5A pop edx 007DD6BE 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007DD6C0 FF5138 call dword ptr [ecx+$38] 007DD6C3 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer; | 007DD6C5 E80A08D0FF call 004DDED4 007DD6CA 33C0 xor eax, eax 007DD6CC 5A pop edx 007DD6CD 59 pop ecx 007DD6CE 59 pop ecx 007DD6CF 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '^[嬪]' | 007DD6D2 6801D77D00 push $007DD701 007DD6D7 8D45C8 lea eax, [ebp-$38] 007DD6DA BA08000000 mov edx, $00000008 * Reference to: System.@LStrArrayClr(void;void;Integer); | 007DD6DF E8647CC2FF call 00405348 007DD6E4 8D45E8 lea eax, [ebp-$18] * Reference to: Variants.@VarClr(TVarData;TVarData); | 007DD6E7 E8886FC3FF call 00414674 007DD6EC 8D45F8 lea eax, [ebp-$08] 007DD6EF BA02000000 mov edx, $00000002 * Reference to: System.@LStrArrayClr(void;void;Integer); | 007DD6F4 E84F7CC2FF call 00405348 007DD6F9 C3 ret * Reference to: System.@HandleFinally; | 007DD6FA E9F573C2FF jmp 00404AF4 007DD6FF EBD6 jmp 007DD6D7 ****** END | 007DD701 5E pop esi 007DD702 5B pop ebx 007DD703 8BE5 mov esp, ebp 007DD705 5D pop ebp 007DD706 C3 ret *) end; procedure TfrmConInPut.v1Column5PropertiesButtonClick(Sender : TObject); begin (* 007DD7C8 55 push ebp 007DD7C9 8BEC mov ebp, esp 007DD7CB 6A00 push $00 007DD7CD 6A00 push $00 007DD7CF 6A00 push $00 007DD7D1 6A00 push $00 007DD7D3 6A00 push $00 007DD7D5 6A00 push $00 007DD7D7 6A00 push $00 007DD7D9 53 push ebx 007DD7DA 8945FC mov [ebp-$04], eax 007DD7DD 33C0 xor eax, eax 007DD7DF 55 push ebp * Possible String Reference to: '樯q脬[嬪]' | 007DD7E0 6826D97D00 push $007DD926 ***** TRY | 007DD7E5 64FF30 push dword ptr fs:[eax] 007DD7E8 648920 mov fs:[eax], esp 007DD7EB 33C0 xor eax, eax 007DD7ED 55 push ebp 007DD7EE 68E1D87D00 push $007DD8E1 ***** TRY | 007DD7F3 64FF30 push dword ptr fs:[eax] 007DD7F6 648920 mov fs:[eax], esp *) end; procedure TfrmConInPut.v1Column7PropertiesButtonClick(Sender : TObject); begin (* 007DD984 55 push ebp 007DD985 8BEC mov ebp, esp 007DD987 6A00 push $00 007DD989 6A00 push $00 007DD98B 6A00 push $00 007DD98D 6A00 push $00 007DD98F 6A00 push $00 007DD991 6A00 push $00 007DD993 6A00 push $00 007DD995 53 push ebx 007DD996 8945FC mov [ebp-$04], eax 007DD999 33C0 xor eax, eax 007DD99B 55 push ebp * Possible String Reference to: '閜脬[嬪]' | 007DD99C 68E2DA7D00 push $007DDAE2 ***** TRY | 007DD9A1 64FF30 push dword ptr fs:[eax] 007DD9A4 648920 mov fs:[eax], esp 007DD9A7 33C0 xor eax, eax 007DD9A9 55 push ebp 007DD9AA 689DDA7D00 push $007DDA9D ***** TRY | 007DD9AF 64FF30 push dword ptr fs:[eax] 007DD9B2 648920 mov fs:[eax], esp *) end; procedure TfrmConInPut.v1Column8PropertiesButtonClick(Sender : TObject); begin (* 007DDB34 55 push ebp 007DDB35 8BEC mov ebp, esp 007DDB37 6A00 push $00 007DDB39 6A00 push $00 007DDB3B 6A00 push $00 007DDB3D 6A00 push $00 007DDB3F 6A00 push $00 007DDB41 6A00 push $00 007DDB43 6A00 push $00 007DDB45 53 push ebx 007DDB46 8945FC mov [ebp-$04], eax 007DDB49 33C0 xor eax, eax 007DDB4B 55 push ebp * Possible String Reference to: '閉n脬[嬪]' | 007DDB4C 6892DC7D00 push $007DDC92 ***** TRY | 007DDB51 64FF30 push dword ptr fs:[eax] 007DDB54 648920 mov fs:[eax], esp 007DDB57 33C0 xor eax, eax 007DDB59 55 push ebp 007DDB5A 684DDC7D00 push $007DDC4D ***** TRY | 007DDB5F 64FF30 push dword ptr fs:[eax] 007DDB62 648920 mov fs:[eax], esp *) end; procedure TfrmConInPut.FormCreate(Sender : TObject); begin (* 007DDCE4 B205 mov dl, $05 * Reference to control TfrmConInPut.cxGrid1 : TcxGrid | 007DDCE6 8B8028030000 mov eax, [eax+$0328] * Reference to: Controls.TControl.SetAlign(TControl;TAlign); | 007DDCEC E8EB9DCAFF call 00487ADC 007DDCF1 C3 ret *) end; procedure TfrmConInPut.Button1Click(Sender : TObject); begin (* 007DDCF4 55 push ebp 007DDCF5 8BEC mov ebp, esp 007DDCF7 33C9 xor ecx, ecx 007DDCF9 51 push ecx 007DDCFA 51 push ecx 007DDCFB 51 push ecx 007DDCFC 51 push ecx 007DDCFD 51 push ecx 007DDCFE 53 push ebx 007DDCFF 56 push esi 007DDD00 57 push edi 007DDD01 8BD8 mov ebx, eax 007DDD03 33C0 xor eax, eax 007DDD05 55 push ebp * Possible String Reference to: '閖m腓_^[嬪]' | 007DDD06 6885DD7D00 push $007DDD85 ***** TRY | 007DDD0B 64FF30 push dword ptr fs:[eax] 007DDD0E 648920 mov fs:[eax], esp * Reference to control TfrmConInPut.Order_Note : TClientDataSet | 007DDD11 8B8398040000 mov eax, [ebx+$0498] 007DDD17 8B10 mov edx, [eax] * Reference to method TClientDataSet.GetRecordCount() | 007DDD19 FF924C010000 call dword ptr [edx+$014C] 007DDD1F 8BF8 mov edi, eax 007DDD21 47 inc edi * Reference to control TfrmConInPut.Order_Note : TClientDataSet | 007DDD22 8BB398040000 mov esi, [ebx+$0498] 007DDD28 8BC6 mov eax, esi | 007DDD2A E861A8CEFF call 004C8590 007DDD2F 8D55EC lea edx, [ebp-$14] 007DDD32 8BC7 mov eax, edi * Reference to: SysUtils.IntToStr(Integer):AnsiString;overload; | 007DDD34 E8D3D1C2FF call 0040AF0C 007DDD39 8B55EC mov edx, [ebp-$14] 007DDD3C 8D45F0 lea eax, [ebp-$10] * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 007DDD3F E884B0C3FF call 00418DC8 007DDD44 8D45F0 lea eax, [ebp-$10] 007DDD47 50 push eax * Possible String Reference to: 'XHNO' | 007DDD48 BA9CDD7D00 mov edx, $007DDD9C 007DDD4D 8BC6 mov eax, esi * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007DDD4F E8608ECEFF call 004C6BB4 007DDD54 5A pop edx 007DDD55 8B08 mov ecx, [eax] * Reference to method TClientDataSet.DestroyFields() | 007DDD57 FF91B4000000 call dword ptr [ecx+$00B4] 007DDD5D 8BC6 mov eax, esi 007DDD5F 8B10 mov edx, [eax] * Reference to method TClientDataSet.Post() | 007DDD61 FF924C020000 call dword ptr [edx+$024C] 007DDD67 33C0 xor eax, eax 007DDD69 5A pop edx 007DDD6A 59 pop ecx 007DDD6B 59 pop ecx 007DDD6C 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '_^[嬪]' | 007DDD6F 688CDD7D00 push $007DDD8C 007DDD74 8D45EC lea eax, [ebp-$14] * Reference to: System.@LStrClr(void;void); | 007DDD77 E8A875C2FF call 00405324 007DDD7C 8D45F0 lea eax, [ebp-$10] * Reference to: Variants.@VarClr(TVarData;TVarData); | 007DDD7F E8F068C3FF call 00414674 007DDD84 C3 ret * Reference to: System.@HandleFinally; | 007DDD85 E96A6DC2FF jmp 00404AF4 007DDD8A EBE8 jmp 007DDD74 ****** END | 007DDD8C 5F pop edi 007DDD8D 5E pop esi 007DDD8E 5B pop ebx 007DDD8F 8BE5 mov esp, ebp 007DDD91 5D pop ebp 007DDD92 C3 ret *) end; procedure TfrmConInPut.Button2Click(Sender : TObject); begin (* 007DDDA4 55 push ebp 007DDDA5 8BEC mov ebp, esp 007DDDA7 33C9 xor ecx, ecx 007DDDA9 51 push ecx 007DDDAA 51 push ecx 007DDDAB 51 push ecx 007DDDAC 51 push ecx 007DDDAD 51 push ecx 007DDDAE 53 push ebx 007DDDAF 56 push esi 007DDDB0 8BD8 mov ebx, eax 007DDDB2 33C0 xor eax, eax 007DDDB4 55 push ebp * Possible String Reference to: '>l腚^[嬪]' | 007DDDB5 68B1DE7D00 push $007DDEB1 ***** TRY | 007DDDBA 64FF30 push dword ptr fs:[eax] 007DDDBD 648920 mov fs:[eax], esp * Reference to control TfrmConInPut.Order_Note : TClientDataSet | 007DDDC0 8B8398040000 mov eax, [ebx+$0498] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 007DDDC6 E8F5A0CEFF call 004C7EC0 007DDDCB 84C0 test al, al 007DDDCD 0F85C3000000 jnz 007DDE96 * Possible String Reference to: 'MNId' | 007DDDD3 BAC8DE7D00 mov edx, $007DDEC8 * Reference to control TfrmConInPut.Order_Note : TClientDataSet | 007DDDD8 8B8398040000 mov eax, [ebx+$0498] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007DDDDE E8D18DCEFF call 004C6BB4 007DDDE3 8D55F8 lea edx, [ebp-$08] 007DDDE6 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 007DDDE8 FF5160 call dword ptr [ecx+$60] 007DDDEB 8B45F8 mov eax, [ebp-$08] 007DDDEE 8D55FC lea edx, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007DDDF1 E8F6CAC2FF call 0040A8EC 007DDDF6 837DFC00 cmp dword ptr [ebp-$04], +$00 007DDDFA 0F848B000000 jz 007DDE8B 007DDE00 6A24 push $24 * Possible String Reference to: '提示' | 007DDE02 B9D0DE7D00 mov ecx, $007DDED0 * Possible String Reference to: '确定要删除数据吗？' | 007DDE07 BAD8DE7D00 mov edx, $007DDED8 *) end; procedure TfrmConInPut._PROC_007D916D(Sender : TObject); begin (* 007D916D 8BEC mov ebp, esp 007D916F B90F000000 mov ecx, $0000000F 007D9174 6A00 push $00 007D9176 6A00 push $00 007D9178 49 dec ecx 007D9179 75F9 jnz 007D9174 007D917B 51 push ecx 007D917C 53 push ebx 007D917D 56 push esi 007D917E 8BD8 mov ebx, eax 007D9180 33C0 xor eax, eax 007D9182 55 push ebp * Possible String Reference to: '閔绰胨^[嬪]/' | 007D9183 6887967D00 push $007D9687 ***** TRY | 007D9188 64FF30 push dword ptr fs:[eax] 007D918B 648920 mov fs:[eax], esp * Reference to control TfrmConInPut.ADOQuery1 : TADOQuery | 007D918E 8BB34C030000 mov esi, [ebx+$034C] 007D9194 8BC6 mov eax, esi * Reference to: DB.TDataSet.Close(TDataSet); | 007D9196 E839C7CEFF call 004C58D4 007D919B 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007D919D E80A4ED0FF call 004DDFAC 007D91A2 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 007D91A4 FF5244 call dword ptr [edx+$44] 007D91A7 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007D91A9 E8FE4DD0FF call 004DDFAC * Possible String Reference to: 'select * from KH_Zdy where Type='MP | RTNameType' ' | 007D91AE BA9C967D00 mov edx, $007D969C 007D91B3 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007D91B5 FF5138 call dword ptr [ecx+$38] 007D91B8 8BC6 mov eax, esi * Reference to: DB.TDataSet.Open(TDataSet); | 007D91BA E809C7CEFF call 004C58C8 * Reference to control TfrmConInPut.CDS_Type : TClientDataSet | 007D91BF 8B93E8030000 mov edx, [ebx+$03E8] * Reference to control TfrmConInPut.ADOQuery1 : TADOQuery | 007D91C5 8B834C030000 mov eax, [ebx+$034C] | 007D91CB E8C0DCFDFF call 007B6E90 * Reference to control TfrmConInPut.CDS_Type : TClientDataSet | 007D91D0 8B93E8030000 mov edx, [ebx+$03E8] * Reference to control TfrmConInPut.ADOQuery1 : TADOQuery | 007D91D6 8B834C030000 mov eax, [ebx+$034C] | 007D91DC E837DEFDFF call 007B7018 * Reference to control TfrmConInPut.ADOQuery1 : TADOQuery | 007D91E1 8BB34C030000 mov esi, [ebx+$034C] 007D91E7 8BC6 mov eax, esi * Reference to: DB.TDataSet.Close(TDataSet); | 007D91E9 E8E6C6CEFF call 004C58D4 007D91EE 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007D91F0 E8B74DD0FF call 004DDFAC 007D91F5 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 007D91F7 FF5244 call dword ptr [edx+$44] 007D91FA 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007D91FC E8AB4DD0FF call 004DDFAC * Possible String Reference to: ' select * from JYOrderCon_Sub ' | 007D9201 BAD4967D00 mov edx, $007D96D4 007D9206 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007D9208 FF5138 call dword ptr [ecx+$38] * Reference to field TfrmConInPut.OFFS_04C4 | 007D920B 83BBC404000001 cmp dword ptr [ebx+$04C4], +$01 007D9212 7539 jnz 007D924D * Possible String Reference to: 'where MainId='' | 007D9214 68FC967D00 push $007D96FC 007D9219 8D55F8 lea edx, [ebp-$08] * Reference to field TfrmConInPut.OFFS_04CC | 007D921C 8B83CC040000 mov eax, [ebx+$04CC] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007D9222 E8C516C3FF call 0040A8EC 007D9227 FF75F8 push dword ptr [ebp-$08] 007D922A 6814977D00 push $007D9714 007D922F 8D45FC lea eax, [ebp-$04] 007D9232 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 007D9237 E878C4C2FF call 004056B4 007D923C 8B45FC mov eax, [ebp-$04] 007D923F 50 push eax 007D9240 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007D9242 E8654DD0FF call 004DDFAC 007D9247 5A pop edx 007D9248 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007D924A FF5138 call dword ptr [ecx+$38] * Reference to field TfrmConInPut.OFFS_04C4 | 007D924D 83BBC404000000 cmp dword ptr [ebx+$04C4], +$00 007D9254 7511 jnz 007D9267 007D9256 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007D9258 E84F4DD0FF call 004DDFAC * Possible String Reference to: ' where 1<>1' | 007D925D BA20977D00 mov edx, $007D9720 007D9262 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007D9264 FF5138 call dword ptr [ecx+$38] 007D9267 8BC6 mov eax, esi * Reference to: DB.TDataSet.Open(TDataSet); | 007D9269 E85AC6CEFF call 004C58C8 * Reference to control TfrmConInPut.Order_Sub : TClientDataSet | 007D926E 8B9348030000 mov edx, [ebx+$0348] * Reference to control TfrmConInPut.ADOQuery1 : TADOQuery | 007D9274 8B834C030000 mov eax, [ebx+$034C] | 007D927A E811DCFDFF call 007B6E90 * Reference to control TfrmConInPut.Order_Sub : TClientDataSet | 007D927F 8B9348030000 mov edx, [ebx+$0348] * Reference to control TfrmConInPut.ADOQuery1 : TADOQuery | 007D9285 8B834C030000 mov eax, [ebx+$034C] | 007D928B E888DDFDFF call 007B7018 * Reference to control TfrmConInPut.ADOQuery1 : TADOQuery | 007D9290 8BB34C030000 mov esi, [ebx+$034C] 007D9296 8BC6 mov eax, esi * Reference to: DB.TDataSet.Close(TDataSet); | 007D9298 E837C6CEFF call 004C58D4 007D929D 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007D929F E8084DD0FF call 004DDFAC 007D92A4 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 007D92A6 FF5244 call dword ptr [edx+$44] 007D92A9 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007D92AB E8FC4CD0FF call 004DDFAC * Possible String Reference to: ' select * from JYOrderCon_Main_Note | ' | 007D92B0 BA34977D00 mov edx, $007D9734 007D92B5 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007D92B7 FF5138 call dword ptr [ecx+$38] * Reference to field TfrmConInPut.OFFS_04C4 | 007D92BA 83BBC404000001 cmp dword ptr [ebx+$04C4], +$01 007D92C1 7539 jnz 007D92FC * Possible String Reference to: 'where MainId='' | 007D92C3 68FC967D00 push $007D96FC 007D92C8 8D55F0 lea edx, [ebp-$10] * Reference to field TfrmConInPut.OFFS_04CC | 007D92CB 8B83CC040000 mov eax, [ebx+$04CC] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007D92D1 E81616C3FF call 0040A8EC 007D92D6 FF75F0 push dword ptr [ebp-$10] 007D92D9 6814977D00 push $007D9714 007D92DE 8D45F4 lea eax, [ebp-$0C] 007D92E1 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 007D92E6 E8C9C3C2FF call 004056B4 007D92EB 8B45F4 mov eax, [ebp-$0C] 007D92EE 50 push eax 007D92EF 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007D92F1 E8B64CD0FF call 004DDFAC 007D92F6 5A pop edx 007D92F7 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007D92F9 FF5138 call dword ptr [ecx+$38] * Reference to field TfrmConInPut.OFFS_04C4 | 007D92FC 83BBC404000000 cmp dword ptr [ebx+$04C4], +$00 007D9303 7511 jnz 007D9316 007D9305 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007D9307 E8A04CD0FF call 004DDFAC * Possible String Reference to: ' where 1<>1' | 007D930C BA20977D00 mov edx, $007D9720 007D9311 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007D9313 FF5138 call dword ptr [ecx+$38] 007D9316 8BC6 mov eax, esi * Reference to: DB.TDataSet.Open(TDataSet); | 007D9318 E8ABC5CEFF call 004C58C8 * Reference to control TfrmConInPut.Order_Note : TClientDataSet | 007D931D 8B9398040000 mov edx, [ebx+$0498] * Reference to control TfrmConInPut.ADOQuery1 : TADOQuery | 007D9323 8B834C030000 mov eax, [ebx+$034C] | 007D9329 E862DBFDFF call 007B6E90 * Reference to control TfrmConInPut.Order_Note : TClientDataSet | 007D932E 8B9398040000 mov edx, [ebx+$0498] * Reference to control TfrmConInPut.ADOQuery1 : TADOQuery | 007D9334 8B834C030000 mov eax, [ebx+$034C] | 007D933A E8D9DCFDFF call 007B7018 * Reference to control TfrmConInPut.ADOQuery1 : TADOQuery | 007D933F 8BB34C030000 mov esi, [ebx+$034C] 007D9345 8BC6 mov eax, esi * Reference to: DB.TDataSet.Close(TDataSet); | 007D9347 E888C5CEFF call 004C58D4 007D934C 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007D934E E8594CD0FF call 004DDFAC 007D9353 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 007D9355 FF5244 call dword ptr [edx+$44] * Possible String Reference to: 'select * from JYOrderCon_Main where | MainId='' | 007D9358 6864977D00 push $007D9764 007D935D 8D55E8 lea edx, [ebp-$18] * Reference to field TfrmConInPut.OFFS_04CC | 007D9360 8B83CC040000 mov eax, [ebx+$04CC] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007D9366 E88115C3FF call 0040A8EC 007D936B FF75E8 push dword ptr [ebp-$18] 007D936E 6814977D00 push $007D9714 007D9373 8D45EC lea eax, [ebp-$14] 007D9376 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 007D937B E834C3C2FF call 004056B4 007D9380 8B45EC mov eax, [ebp-$14] 007D9383 50 push eax 007D9384 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007D9386 E8214CD0FF call 004DDFAC 007D938B 5A pop edx 007D938C 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007D938E FF5138 call dword ptr [ecx+$38] 007D9391 8BC6 mov eax, esi * Reference to: DB.TDataSet.Open(TDataSet); | 007D9393 E830C5CEFF call 004C58C8 007D9398 B902000000 mov ecx, $00000002 * Reference to control TfrmConInPut.ScrollBox1 : TScrollBox | 007D939D 8B9304030000 mov edx, [ebx+$0304] * Reference to control TfrmConInPut.ADOQuery1 : TADOQuery | 007D93A3 8B834C030000 mov eax, [ebx+$034C] | 007D93A9 E86EC4FDFF call 007B581C * Possible String Reference to: 'ConDefStr2' | 007D93AE BA9C977D00 mov edx, $007D979C * Reference to control TfrmConInPut.ADOQuery1 : TADOQuery | 007D93B3 8B834C030000 mov eax, [ebx+$034C] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007D93B9 E8F6D7CEFF call 004C6BB4 007D93BE 8D55E0 lea edx, [ebp-$20] 007D93C1 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_60 | 007D93C3 FF5160 call dword ptr [ecx+$60] 007D93C6 8B45E0 mov eax, [ebp-$20] 007D93C9 8D55E4 lea edx, [ebp-$1C] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007D93CC E81B15C3FF call 0040A8EC 007D93D1 8B55E4 mov edx, [ebp-$1C] * Reference to control TfrmConInPut.SYRName : TBtnEditC | 007D93D4 8B837C030000 mov eax, [ebx+$037C] 007D93DA 0538020000 add eax, +$00000238 * Reference to: System.@LStrAsg(void;void;void;void); | 007D93DF E894BFC2FF call 00405378 * Reference to field TfrmConInPut.OFFS_04C4 | 007D93E4 83BBC404000000 cmp dword ptr [ebx+$04C4], +$00 007D93EB 753A jnz 007D9427 * Reference to control TfrmConInPut.ADOTemp : TADOQuery | 007D93ED 8B833C030000 mov eax, [ebx+$033C] | 007D93F3 E8E4B6FDFF call 007B4ADC 007D93F8 83C4F8 add esp, -$08 007D93FB DD1C24 fstp qword ptr [esp] 007D93FE 9B wait * Reference to control TfrmConInPut.OrdDate : TDateTimePicker | 007D93FF 8B830C030000 mov eax, [ebx+$030C] * Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime); | 007D9405 E8228EC9FF call 0047222C * Reference to control TfrmConInPut.ADOTemp : TADOQuery | 007D940A 8B833C030000 mov eax, [ebx+$033C] | 007D9410 E8C7B6FDFF call 007B4ADC 007D9415 83C4F8 add esp, -$08 007D9418 DD1C24 fstp qword ptr [esp] 007D941B 9B wait * Reference to control TfrmConInPut.DlyDate : TDateTimePicker | 007D941C 8B8314030000 mov eax, [ebx+$0314] * Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime); | 007D9422 E8058EC9FF call 0047222C * Reference to field TfrmConInPut.OFFS_04C8 | 007D9427 83BBC804000063 cmp dword ptr [ebx+$04C8], +$63 007D942E 0F85FF000000 jnz 007D9533 007D9434 33C0 xor eax, eax * Reference to field TfrmConInPut.OFFS_04C4 | 007D9436 8983C4040000 mov [ebx+$04C4], eax * Reference to field TfrmConInPut.OFFS_04CC | 007D943C 8D83CC040000 lea eax, [ebx+$04CC] * Reference to: System.@LStrClr(void;void); | 007D9442 E8DDBEC2FF call 00405324 * Reference to control TfrmConInPut.Order_Sub : TClientDataSet | 007D9447 8BB348030000 mov esi, [ebx+$0348] 007D944D 8BC6 mov eax, esi * Reference to: DB.TDataSet.First(TDataSet); | 007D944F E8DCEBCEFF call 004C8030 007D9454 EB5E jmp 007D94B4 007D9456 8BC6 mov eax, esi * Reference to: DB.TDataSet.Edit(TDataSet); | 007D9458 E8E3EFCEFF call 004C8440 * Possible String Reference to: 'MainId' | 007D945D BAB0977D00 mov edx, $007D97B0 007D9462 8BC6 mov eax, esi * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007D9464 E84BD7CEFF call 004C6BB4 007D9469 50 push eax 007D946A 8D45D0 lea eax, [ebp-$30] 007D946D 33D2 xor edx, edx * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 007D946F E854F9C3FF call 00418DC8 007D9474 8D55D0 lea edx, [ebp-$30] 007D9477 58 pop eax 007D9478 8B08 mov ecx, [eax] 007D947A FF91B4000000 call dword ptr [ecx+$00B4] * Possible String Reference to: 'SubId' | 007D9480 BAC0977D00 mov edx, $007D97C0 007D9485 8BC6 mov eax, esi * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007D9487 E828D7CEFF call 004C6BB4 007D948C 50 push eax 007D948D 8D45C0 lea eax, [ebp-$40] 007D9490 33D2 xor edx, edx * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 007D9492 E831F9C3FF call 00418DC8 007D9497 8D55C0 lea edx, [ebp-$40] 007D949A 58 pop eax 007D949B 8B08 mov ecx, [eax] 007D949D FF91B4000000 call dword ptr [ecx+$00B4] 007D94A3 8BC6 mov eax, esi 007D94A5 8B10 mov edx, [eax] * Reference to method TClientDataSet.Post() | 007D94A7 FF924C020000 call dword ptr [edx+$024C] 007D94AD 8BC6 mov eax, esi * Reference to: DB.TDataSet.Next(TDataSet); | 007D94AF E898EECEFF call 004C834C * Reference to field TClientDataSet.Eof : Boolean | 007D94B4 80BEA100000000 cmp byte ptr [esi+$00A1], $00 007D94BB 7499 jz 007D9456 * Reference to control TfrmConInPut.Order_Note : TClientDataSet | 007D94BD 8BB398040000 mov esi, [ebx+$0498] 007D94C3 8BC6 mov eax, esi * Reference to: DB.TDataSet.First(TDataSet); | 007D94C5 E866EBCEFF call 004C8030 007D94CA EB5E jmp 007D952A 007D94CC 8BC6 mov eax, esi * Reference to: DB.TDataSet.Edit(TDataSet); | 007D94CE E86DEFCEFF call 004C8440 * Possible String Reference to: 'MainId' | 007D94D3 BAB0977D00 mov edx, $007D97B0 007D94D8 8BC6 mov eax, esi * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007D94DA E8D5D6CEFF call 004C6BB4 007D94DF 50 push eax 007D94E0 8D45B0 lea eax, [ebp-$50] 007D94E3 33D2 xor edx, edx * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 007D94E5 E8DEF8C3FF call 00418DC8 007D94EA 8D55B0 lea edx, [ebp-$50] 007D94ED 58 pop eax 007D94EE 8B08 mov ecx, [eax] 007D94F0 FF91B4000000 call dword ptr [ecx+$00B4] * Possible String Reference to: 'MNId' | 007D94F6 BAD0977D00 mov edx, $007D97D0 007D94FB 8BC6 mov eax, esi * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007D94FD E8B2D6CEFF call 004C6BB4 007D9502 50 push eax 007D9503 8D45A0 lea eax, [ebp-$60] 007D9506 33D2 xor edx, edx * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 007D9508 E8BBF8C3FF call 00418DC8 007D950D 8D55A0 lea edx, [ebp-$60] 007D9510 58 pop eax 007D9511 8B08 mov ecx, [eax] 007D9513 FF91B4000000 call dword ptr [ecx+$00B4] 007D9519 8BC6 mov eax, esi 007D951B 8B10 mov edx, [eax] * Reference to method TClientDataSet.Post() | 007D951D FF924C020000 call dword ptr [edx+$024C] 007D9523 8BC6 mov eax, esi * Reference to: DB.TDataSet.Next(TDataSet); | 007D9525 E822EECEFF call 004C834C * Reference to field TClientDataSet.Eof : Boolean | 007D952A 80BEA100000000 cmp byte ptr [esi+$00A1], $00 007D9531 7499 jz 007D94CC * Reference to field TfrmConInPut.OFFS_04C4 | 007D9533 83BBC404000000 cmp dword ptr [ebx+$04C4], +$00 007D953A 0F850C010000 jnz 007D964C * Reference to control TfrmConInPut.ADOTemp : TADOQuery | 007D9540 8BB33C030000 mov esi, [ebx+$033C] 007D9546 8BC6 mov eax, esi * Reference to: DB.TDataSet.Close(TDataSet); | 007D9548 E887C3CEFF call 004C58D4 007D954D 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007D954F E8584AD0FF call 004DDFAC 007D9554 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 007D9556 FF5244 call dword ptr [edx+$44] * Possible String Reference to: 'select TOp 1* from JYOrderCon_Main | where Filler='' | 007D9559 68E0977D00 push $007D97E0 007D955E 8D5598 lea edx, [ebp-$68] *) end; procedure TfrmConInPut._PROC_007D98E5(Sender : TObject); begin (* 007D98E5 8BEC mov ebp, esp 007D98E7 B93C000000 mov ecx, $0000003C 007D98EC 6A00 push $00 007D98EE 6A00 push $00 007D98F0 49 dec ecx 007D98F1 75F9 jnz 007D98EC 007D98F3 53 push ebx 007D98F4 56 push esi 007D98F5 57 push edi 007D98F6 8945FC mov [ebp-$04], eax 007D98F9 33C0 xor eax, eax 007D98FB 55 push ebp 007D98FC 6830A77D00 push $007DA730 ***** TRY | 007D9901 64FF30 push dword ptr fs:[eax] 007D9904 648920 mov fs:[eax], esp 007D9907 33C0 xor eax, eax 007D9909 55 push ebp * Possible String Reference to: '樵⒙艵' | 007D990A 6867A57D00 push $007DA567 ***** TRY | 007D990F 64FF30 push dword ptr fs:[eax] 007D9912 648920 mov fs:[eax], esp 007D9915 8B45FC mov eax, [ebp-$04] * Reference to control TfrmConInPut.ADOCmd : TADOQuery | 007D9918 8B8040030000 mov eax, [eax+$0340] * Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection; | 007D991E E80925D0FF call 004DBE2C * Reference to: ADODB.TADOConnection.BeginTrans(TADOConnection):Integer; | 007D9923 E86C89CFFF call 004D2294 007D9928 8D55E8 lea edx, [ebp-$18] 007D992B 8B45FC mov eax, [ebp-$04] * Reference to field TfrmConInPut.OFFS_04CC | 007D992E 8B80CC040000 mov eax, [eax+$04CC] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007D9934 E8B30FC3FF call 0040A8EC 007D9939 837DE800 cmp dword ptr [ebp-$18], +$00 007D993D 755B jnz 007D999A * Possible String Reference to: 'JYOrderCon_Main' | 007D993F 684CA77D00 push $007DA74C 007D9944 6A03 push $03 007D9946 6A01 push $01 007D9948 8D55F4 lea edx, [ebp-$0C] 007D994B 8B45FC mov eax, [ebp-$04] * Reference to control TfrmConInPut.ADOCmd : TADOQuery | 007D994E 8B8040030000 mov eax, [eax+$0340] * Possible String Reference to: 'JW' | 007D9954 B964A77D00 mov ecx, $007DA764 * Reference to : TfrmSelExportField._PROC_007B7708() | 007D9959 E8AADDFDFF call 007B7708 007D995E 84C0 test al, al 007D9960 7549 jnz 007D99AB 007D9962 8B45FC mov eax, [ebp-$04] * Reference to control TfrmConInPut.ADOCmd : TADOQuery | 007D9965 8B8040030000 mov eax, [eax+$0340] * Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection; | 007D996B E8BC24D0FF call 004DBE2C * Reference to: ADODB.TADOConnection.RollbackTrans(TADOConnection); | 007D9970 E86B89CFFF call 004D22E0 007D9975 6A00 push $00 * Possible String Reference to: '提示' | 007D9977 B968A77D00 mov ecx, $007DA768 * Possible String Reference to: '取最大号失败!' | 007D997C BA70A77D00 mov edx, $007DA770 *) end; procedure TfrmConInPut._PROC_007DA899(Sender : TObject); begin (* 007DA899 50 push eax 007DA89A 6461 popa 007DA89C 7465 jz 007DA903 007DA89E 204A59 and [edx+$59], cl 007DA8A1 4F dec edi 007DA8A2 7264 jb 007DA908 007DA8A4 657243 jb 007DA8EA 007DA8A7 6F outsd 007DA8A8 6E outsb 007DA8A9 5F pop edi 007DA8AA 4D dec ebp 007DA8AB 61 popa 007DA8AC 696E2053657420 imul ebp, [esi+$20], $20746553 007DA8B3 46 inc esi 007DA8B4 696C6C65723D2700 imul ebp, [esp+ebp*2+$65], $00273D72 007DA8BC FFFF DB $FF, $FF // 007DA8BE FFFF DB $FF, $FF // 007DA8C0 0F0000 sldt word ptr [eax] 007DA8C3 0020 add [eax], ah 007DA8C5 7768 jnbe 007DA92F 007DA8C7 657265 jb 007DA92F 007DA8CA 204D61 and [ebp+$61], cl 007DA8CD 696E49643D2700 imul ebp, [esi+$49], $00273D64 007DA8D4 FFFF DB $FF, $FF // 007DA8D6 FFFF DB $FF, $FF // 007DA8D8 0400 add al, +$00 007DA8DA 0000 add [eax], al 007DA8DC 4D dec ebp 007DA8DD 4E dec esi 007DA8DE 49 dec ecx 007DA8DF 640000 add fs:[eax], al 007DA8E2 0000 add [eax], al 007DA8E4 FFFF DB $FF, $FF // 007DA8E6 FFFF DB $FF, $FF // 007DA8E8 1400 adc al, $00 007DA8EA 0000 add [eax], al 007DA8EC 4A dec edx 007DA8ED 59 pop ecx 007DA8EE 4F dec edi 007DA8EF 7264 jb 007DA955 007DA8F1 657243 jb 007DA937 007DA8F4 6F outsd 007DA8F5 6E outsb 007DA8F6 5F pop edi 007DA8F7 4D dec ebp 007DA8F8 61 popa 007DA8F9 696E5F4E6F7465 imul ebp, [esi+$5F], $65746F4E 007DA900 0000 add [eax], al 007DA902 0000 add [eax], al 007DA904 FFFF DB $FF, $FF // 007DA906 FFFF DB $FF, $FF // 007DA908 0200 add al, byte ptr [eax] 007DA90A 0000 add [eax], al 007DA90C 4D dec ebp 007DA90D 4E dec esi 007DA90E 0000 add [eax], al 007DA910 C8A1 enter , $A1 007DA912 B1B8 mov cl, $B8 007DA914 D7 xlat 007DA915 A2C1F7CBAE mov byte ptr [$AECBF7C1], al 007DA91A BAC5CAA7B0 mov edx, $B0A7CAC5 007DA91F DCA3A10000FF fsub qword ptr [ebx+$FF0000A1] 007DA925 FFFF DB $FF, $FF // 007DA927 FF31 push dword ptr [ecx] 007DA929 0000 add [eax], al 007DA92B 007365 add [ebx+$65], dh 007DA92E 6C insb 007DA92F 656374202A arpl gs:[eax+$2A], si 007DA934 206672 and [esi+$72], ah 007DA937 6F outsd 007DA938 6D insd 007DA939 204A59 and [edx+$59], cl 007DA93C 4F dec edi 007DA93D 7264 jb 007DA9A3 007DA93F 657243 jb 007DA985 007DA942 6F outsd 007DA943 6E outsb 007DA944 5F pop edi 007DA945 4D dec ebp 007DA946 61 popa 007DA947 696E5F4E6F7465 imul ebp, [esi+$5F], $65746F4E 007DA94E 207768 and [edi+$68], dh 007DA951 657265 jb 007DA9B9 007DA954 204D61 and [ebp+$61], cl 007DA957 696E49643D2700 imul ebp, [esi+$49], $00273D64 007DA95E 0000 add [eax], al 007DA960 FFFF DB $FF, $FF // 007DA962 FFFF DB $FF, $FF // 007DA964 0B00 or eax, [eax] 007DA966 0000 add [eax], al 007DA968 20616E and [ecx+$6E], ah 007DA96B 64204D4E and fs:[ebp+$4E], cl 007DA96F 49 dec ecx 007DA970 643D2700FFFF cmp eax, $FFFF0027 007DA976 FFFF DB $FF, $FF // 007DA978 06 push es 007DA979 0000 add [eax], al 007DA97B 004D4E add [ebp+$4E], cl 007DA97E 54 push esp 007DA97F 7970 jns 007DA9F1 007DA981 650000 add gs:[eax], al 007DA984 FFFF DB $FF, $FF // 007DA986 FFFF DB $FF, $FF // 007DA988 0500000053 add eax, +$53000000 007DA98D 7562 jnz 007DA9F1 007DA98F 49 dec ecx 007DA990 640000 add fs:[eax], al 007DA993 00FF add bh, bh 007DA995 FFFF DB $FF, $FF // 007DA997 FF0E dec dword ptr [esi] 007DA999 0000 add [eax], al 007DA99B 004A59 add [edx+$59], cl 007DA99E 4F dec edi 007DA99F 7264 jb 007DAA05 007DA9A1 657243 jb 007DA9E7 007DA9A4 6F outsd 007DA9A5 6E outsb 007DA9A6 5F pop edi 007DA9A7 53 push ebx 007DA9A8 7562 jnz 007DAA0C 007DA9AA 0000 add [eax], al 007DA9AC FFFF DB $FF, $FF // 007DA9AE FFFF DB $FF, $FF // 007DA9B0 0200 add al, byte ptr [eax] 007DA9B2 0000 add [eax], al 007DA9B4 4A dec edx 007DA9B5 42 inc edx 007DA9B6 0000 add [eax], al 007DA9B8 C8A1 enter , $A1 007DA9BA D7 xlat 007DA9BB D3C1 rol ecx, cl 007DA9BD F7CB DB $F7, $CB // ebx 007DA9BF AE scasb 007DA9C0 BAC5CAA7B0 mov edx, $B0A7CAC5 007DA9C5 DCA3A1000000 fsub qword ptr [ebx+$00A1] 007DA9CB 00FF add bh, bh 007DA9CD FFFF DB $FF, $FF // 007DA9CF FF2B jmp [ebx] 007DA9D1 0000 add [eax], al 007DA9D3 007365 add [ebx+$65], dh 007DA9D6 6C insb 007DA9D7 656374202A arpl gs:[eax+$2A], si 007DA9DC 206672 and [esi+$72], ah 007DA9DF 6F outsd 007DA9E0 6D insd 007DA9E1 204A59 and [edx+$59], cl 007DA9E4 4F dec edi 007DA9E5 7264 jb 007DAA4B 007DA9E7 657243 jb 007DAA2D 007DA9EA 6F outsd 007DA9EB 6E outsb 007DA9EC 5F pop edi 007DA9ED 53 push ebx 007DA9EE 7562 jnz 007DAA52 007DA9F0 207768 and [edi+$68], dh 007DA9F3 657265 jb 007DAA5B 007DA9F6 204D61 and [ebp+$61], cl 007DA9F9 696E49643D2700 imul ebp, [esi+$49], $00273D64 007DAA00 FFFF DB $FF, $FF // 007DAA02 FFFF DB $FF, $FF // 007DAA04 0C00 or al, $00 007DAA06 0000 add [eax], al 007DAA08 20616E and [ecx+$6E], ah 007DAA0B 64205375 and fs:[ebx+$75], dl 007DAA0F 624964 bound ecx, qword ptr [ecx+$64] 007DAA12 3D27000000 cmp eax, $00000027 007DAA17 00FF add bh, bh 007DAA19 FFFF DB $FF, $FF // 007DAA1B FF0B dec dword ptr [ebx] 007DAA1D 0000 add [eax], al 007DAA1F 005052 add [eax+$52], dl 007DAA22 54 push esp 007DAA23 4F dec edi 007DAA24 7264 jb 007DAA8A 007DAA26 657251 jb 007DAA7A 007DAA29 7479 jz 007DAAA4 007DAA2B 00FF add bh, bh 007DAA2D FFFF DB $FF, $FF // 007DAA2F FF08 dec dword ptr [eax] 007DAA31 0000 add [eax], al 007DAA33 005052 add [eax+$52], dl 007DAA36 54 push esp 007DAA37 50 push eax 007DAA38 7269 jb 007DAAA3 007DAA3A 636500 arpl [ebp+$00], sp 007DAA3D 0000 add [eax], al 007DAA3F 00FF add bh, bh 007DAA41 FFFF DB $FF, $FF // 007DAA43 FF6700 jmp dword ptr [edi+$00] 007DAA46 0000 add [eax], al 007DAA48 55 push ebp 007DAA49 7064 jo 007DAAAF 007DAA4B 61 popa 007DAA4C 7465 jz 007DAAB3 007DAA4E 204A59 and [edx+$59], cl 007DAA51 4F dec edi 007DAA52 7264 jb 007DAAB8 007DAA54 657243 jb 007DAA9A 007DAA57 6F outsd 007DAA58 6E outsb 007DAA59 5F pop edi 007DAA5A 53 push ebx 007DAA5B 7562 jnz 007DAABF 007DAA5D 205365 and [ebx+$65], dl 007DAA60 7420 jz 007DAA82 007DAA62 43 inc ebx 007DAA63 6F outsd 007DAA64 6E outsb 007DAA65 4D dec ebp 007DAA66 58 pop eax 007DAA67 4D dec ebp 007DAA68 6F outsd 007DAA69 6E outsb 007DAA6A 65793D jns 007DAAAA 007DAA6D 43 inc ebx 007DAA6E 61 popa 007DAA6F 7374 jnb 007DAAE5 007DAA71 285052 sub [eax+$52], dl 007DAA74 54 push esp 007DAA75 50 push eax 007DAA76 7269 jb 007DAAE1 007DAA78 63652A arpl [ebp+$2A], sp 007DAA7B 50 push eax 007DAA7C 52 push edx 007DAA7D 54 push esp 007DAA7E 4F dec edi 007DAA7F 7264 jb 007DAAE5 007DAA81 657251 jb 007DAAD5 007DAA84 7479 jz 007DAAFF 007DAA86 206173 and [ecx+$73], ah 007DAA89 20646563 and [ebp+$63], ah 007DAA8D 696D616C283138 imul ebp, [ebp+$61], $3831286C 007DAA94 2C32 sub al, $32 007DAA96 2929 sub dword ptr [ecx], ebp 007DAA98 2B6973 sub ebp, dword ptr [ecx+$73] 007DAA9B 6E outsb 007DAA9C 756C jnz 007DAB0A 007DAA9E 6C insb 007DAA9F 285A68 sub [edx+$68], bl 007DAAA2 656E outsb 007DAAA4 5A pop edx 007DAAA5 6869534A46 push $464A5369 007DAAAA 65652C30 sub al, $30 007DAAAE 2900 sub dword ptr [eax], eax 007DAAB0 FFFF DB $FF, $FF // 007DAAB2 FFFF DB $FF, $FF // 007DAAB4 57 push edi 007DAAB5 0000 add [eax], al 007DAAB7 002B add [ebx], ch 007DAAB9 69736E756C6C28 imul esi, [ebx+$6E], $286C6C75 007DAAC0 59 pop ecx 007DAAC1 696E487561534A imul ebp, [esi+$48], $4A536175 007DAAC8 46 inc esi 007DAAC9 65652C30 sub al, $30 007DAACD 292B sub dword ptr [ebx], ebp 007DAACF 69736E756C6C28 imul esi, [ebx+$6E], $286C6C75 007DAAD6 42 inc edx 007DAAD7 61 popa 007DAAD8 6F outsd 007DAAD9 47 inc edi 007DAADA 61 popa 007DAADB 6E outsb 007DAADC 6746 inc esi 007DAADE 65652C30 sub al, $30 007DAAE2 292B sub dword ptr [ebx], ebp 007DAAE4 69736E756C6C28 imul esi, [ebx+$6E], $286C6C75 007DAAEB 5A pop edx 007DAAEC 686957616E push $6E615769 007DAAF1 675A pop edx 007DAAF3 686942616E push $6E614269 007DAAF8 46 inc esi 007DAAF9 65652C30 sub al, $30 007DAAFD 292A sub dword ptr [edx], ebp 007DAAFF 69736E756C6C28 imul esi, [ebx+$6E], $286C6C75 007DAB06 54 push esp 007DAB07 61 popa 007DAB08 6F outsd 007DAB09 51 push ecx 007DAB0A 7479 jz 007DAB85 007DAB0C 2C30 sub al, $30 007DAB0E 2900 sub dword ptr [eax], eax 007DAB10 FFFF DB $FF, $FF // 007DAB12 FFFF DB $FF, $FF // 007DAB14 0E push cs 007DAB15 0000 add [eax], al 007DAB17 0020 add [eax], ah 007DAB19 7768 jnbe 007DAB83 007DAB1B 657265 jb 007DAB83 007DAB1E 205375 and [ebx+$75], dl 007DAB21 624964 bound ecx, qword ptr [ecx+$64] 007DAB24 3D270000FF cmp eax, $FF000027 007DAB29 FFFF DB $FF, $FF // 007DAB2B FF78 DB $FF, $78 // 007DAB2D 0000 add [eax], al 007DAB2F 005570 add [ebp+$70], dl 007DAB32 6461 popa 007DAB34 7465 jz 007DAB9B 007DAB36 204A59 and [edx+$59], cl 007DAB39 4F dec edi 007DAB3A 7264 jb 007DABA0 007DAB3C 657243 jb 007DAB82 007DAB3F 6F outsd 007DAB40 6E outsb 007DAB41 5F pop edi 007DAB42 4D dec ebp 007DAB43 61 popa 007DAB44 696E2053657420 imul ebp, [esi+$20], $20746553 007DAB4B 43 inc ebx 007DAB4C 6F outsd 007DAB4D 6E outsb 007DAB4E 4D dec ebp 007DAB4F 6F outsd 007DAB50 6E outsb 007DAB51 65793D jns 007DAB91 007DAB54 287365 sub [ebx+$65], dh 007DAB57 6C insb 007DAB58 6563742053 arpl gs:[eax+$53], si 007DAB5D 756D jnz 007DABCC 007DAB5F 28436F sub [ebx+$6F], al 007DAB62 6E outsb 007DAB63 4D dec ebp 007DAB64 58 pop eax 007DAB65 4D dec ebp 007DAB66 6F outsd 007DAB67 6E outsb 007DAB68 657929 jns 007DAB94 007DAB6B 206672 and [esi+$72], ah 007DAB6E 6F outsd 007DAB6F 6D insd 007DAB70 204A59 and [edx+$59], cl 007DAB73 4F dec edi 007DAB74 7264 jb 007DABDA 007DAB76 657243 jb 007DABBC 007DAB79 6F outsd 007DAB7A 6E outsb 007DAB7B 5F pop edi 007DAB7C 53 push ebx 007DAB7D 7562 jnz 007DABE1 007DAB7F 204120 and [ecx+$20], al 007DAB82 7768 jnbe 007DABEC 007DAB84 657265 jb 007DABEC 007DAB87 20412E and [ecx+$2E], al 007DAB8A 4D dec ebp 007DAB8B 61 popa 007DAB8C 696E49643D4A59 imul ebp, [esi+$49], $594A3D64 007DAB93 4F dec edi 007DAB94 7264 jb 007DABFA 007DAB96 657243 jb 007DABDC 007DAB99 6F outsd 007DAB9A 6E outsb 007DAB9B 5F pop edi 007DAB9C 4D dec ebp 007DAB9D 61 popa 007DAB9E 696E2E4D61696E imul ebp, [esi+$2E], $6E69614D 007DABA5 49 dec ecx 007DABA6 642900 sub dword ptr fs:[eax], eax 007DABA9 0000 add [eax], al 007DABAB 00B1A3B4E6CA add [ecx+$CAE6B4A3], dh 007DABB1 A7 cmpsd 007DABB2 B0DC mov al, $DC 007DABB4 A3A1000055 mov dword ptr [$550000A1], eax 007DABB9 8BEC mov ebp, esp 007DABBB B920000000 mov ecx, $00000020 007DABC0 6A00 push $00 007DABC2 6A00 push $00 007DABC4 49 dec ecx 007DABC5 75F9 jnz 007DABC0 007DABC7 53 push ebx 007DABC8 56 push esi 007DABC9 57 push edi 007DABCA 8BD8 mov ebx, eax *) end; procedure TfrmConInPut._PROC_007DB40E(Sender : TObject); begin (* 007DB40E 6E outsb 007DB40F 6974000000CAFDC1 imul esi, [eax+eax+$00], $C1FDCA00 007DB417 BFB5A5CEBB mov edi, $BBCEA5B5 007DB41C B2BB mov dl, $BB 007DB41E C4DC les ebx, sp 007DB420 CE into 007DB421 AA stosb 007DB422 BFD5A3A100 mov edi, $00A1A3D5 007DB427 00FF add bh, bh 007DB429 FFFF DB $FF, $FF // 007DB42B FF08 dec dword ptr [eax] 007DB42D 0000 add [eax], al *) end; procedure TfrmConInPut._PROC_007DB45A(Sender : TObject); begin (* 007DB45A 6E outsb 007DB45B 6974000000B1D2D6 imul esi, [eax+eax+$00], $D6D2B100 007DB463 D6 DB $D6 // 007DB464 B2BB mov dl, $BB 007DB466 C4DC les ebx, sp 007DB468 CE into 007DB469 AA stosb 007DB46A BFD5A3A100 mov edi, $00A1A3D5 007DB46F 00B1A3B4E6B3 add [ecx+$B3E6B4A3], dh 007DB475 C9 leave 007DB476 B9A6A3A100 mov ecx, $00A1A3A6 007DB47B 00558B add [ebp-$75], dl 007DB47E EC in al, dx 007DB47F 51 push ecx 007DB480 B906000000 mov ecx, $00000006 007DB485 6A00 push $00 007DB487 6A00 push $00 007DB489 49 dec ecx 007DB48A 75F9 jnz 007DB485 007DB48C 874DFC xchg [ebp-$04], ecx 007DB48F 53 push ebx 007DB490 8BD8 mov ebx, eax 007DB492 33C0 xor eax, eax 007DB494 55 push ebp * Possible String Reference to: '閠斅肫[嬪]' | 007DB495 687BB67D00 push $007DB67B ***** TRY | 007DB49A 64FF30 push dword ptr fs:[eax] 007DB49D 648920 mov fs:[eax], esp 007DB4A0 33C0 xor eax, eax 007DB4A2 55 push ebp 007DB4A3 6834B67D00 push $007DB634 ***** TRY | 007DB4A8 64FF30 push dword ptr fs:[eax] 007DB4AB 648920 mov fs:[eax], esp *) end; procedure TfrmConInPut._PROC_007DC14F(Sender : TObject); begin (* 007DC14F 004C6162 add [ecx+$62], cl 007DC153 656C insb 007DC155 53 push ebx 007DC156 65742E jz 007DC187 007DC159 646C insb 007DC15B 6C insb 007DC15C 0000 add [eax], al *) end; procedure TfrmConInPut._PROC_007DC34A(Sender : TObject); begin (* 007DC34A 6E outsb 007DC34B 6974000000FFFFFF imul esi, [eax+eax+$00], $FFFFFF00 007DC353 FF08 dec dword ptr [eax] 007DC355 0000 add [eax], al *) end; procedure TfrmConInPut._PROC_007DC375(Sender : TObject); begin (* 007DC375 8BEC mov ebp, esp 007DC377 33C0 xor eax, eax 007DC379 55 push ebp * Possible String Reference to: '閈嚶滕]肬嬱3繳h幻}' | 007DC37A 6893C37D00 push $007DC393 ***** TRY | 007DC37F 64FF30 push dword ptr fs:[eax] 007DC382 648920 mov fs:[eax], esp 007DC385 33C0 xor eax, eax 007DC387 5A pop edx 007DC388 59 pop ecx 007DC389 59 pop ecx 007DC38A 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: ']肬嬱3繳h幻}' | 007DC38D 689AC37D00 push $007DC39A 007DC392 C3 ret * Reference to: System.@HandleFinally; | 007DC393 E95C87C2FF jmp 00404AF4 007DC398 EBF8 jmp 007DC392 ****** END | 007DC39A 5D pop ebp 007DC39B C3 ret *) end; procedure TfrmConInPut._PROC_007DC39C(Sender : TObject); begin (* 007DC39C 55 push ebp 007DC39D 8BEC mov ebp, esp 007DC39F 33C0 xor eax, eax 007DC3A1 55 push ebp * Possible String Reference to: '4嚶滕]肬嬱j' | 007DC3A2 68BBC37D00 push $007DC3BB ***** TRY | 007DC3A7 64FF30 push dword ptr fs:[eax] 007DC3AA 648920 mov fs:[eax], esp 007DC3AD 33C0 xor eax, eax 007DC3AF 5A pop edx 007DC3B0 59 pop ecx 007DC3B1 59 pop ecx 007DC3B2 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: ']肬嬱j' | 007DC3B5 68C2C37D00 push $007DC3C2 007DC3BA C3 ret * Reference to: System.@HandleFinally; | 007DC3BB E93487C2FF jmp 00404AF4 007DC3C0 EBF8 jmp 007DC3BA ****** END | 007DC3C2 5D pop ebp 007DC3C3 C3 ret *) end; procedure TfrmConInPut._PROC_007DC56E(Sender : TObject); begin (* 007DC56E 6E outsb 007DC56F 6974000000FFFFFF imul esi, [eax+eax+$00], $FFFFFF00 007DC577 FF08 dec dword ptr [eax] 007DC579 0000 add [eax], al *) end; procedure TfrmConInPut._PROC_007DD512(Sender : TObject); begin (* 007DD512 6E outsb 007DD513 6974000000558BEC imul esi, [eax+eax+$00], $EC8B5500 007DD51B B907000000 mov ecx, $00000007 007DD520 6A00 push $00 007DD522 6A00 push $00 007DD524 49 dec ecx 007DD525 75F9 jnz 007DD520 007DD527 53 push ebx 007DD528 56 push esi 007DD529 8BF2 mov esi, edx 007DD52B 8BD8 mov ebx, eax 007DD52D 33C0 xor eax, eax 007DD52F 55 push ebp * Possible String Reference to: '轷s胫^[嬪]' | 007DD530 68FAD67D00 push $007DD6FA ***** TRY | 007DD535 64FF30 push dword ptr fs:[eax] 007DD538 648920 mov fs:[eax], esp 007DD53B 8D55FC lea edx, [ebp-$04] 007DD53E 8BC6 mov eax, esi * Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem; | or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient; | or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem; | or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem; | or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar; | or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter; | 007DD540 E87721DBFF call 0058F6BC 007DD545 8D55F8 lea edx, [ebp-$08] 007DD548 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007DD54B E89CD3C2FF call 0040A8EC 007DD550 837DF800 cmp dword ptr [ebp-$08], +$00 007DD554 750D jnz 007DD563 007DD556 8D45FC lea eax, [ebp-$04] 007DD559 BA10D77D00 mov edx, $007DD710 * Reference to: System.@LStrLAsg(void;void;void;void); | 007DD55E E8597EC2FF call 004053BC * Reference to control TfrmConInPut.Order_Sub : TClientDataSet | 007DD563 8BB348030000 mov esi, [ebx+$0348] 007DD569 8BC6 mov eax, esi * Reference to: DB.TDataSet.Edit(TDataSet); | 007DD56B E8D0AECEFF call 004C8440 * Possible String Reference to: 'PRTPrice' | 007DD570 BA1CD77D00 mov edx, $007DD71C 007DD575 8BC6 mov eax, esi * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007DD577 E83896CEFF call 004C6BB4 007DD57C 50 push eax 007DD57D 8D45E8 lea eax, [ebp-$18] 007DD580 8B55FC mov edx, [ebp-$04] * Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString); | 007DD583 E840B8C3FF call 00418DC8 007DD588 8D55E8 lea edx, [ebp-$18] 007DD58B 58 pop eax 007DD58C 8B08 mov ecx, [eax] 007DD58E FF91B4000000 call dword ptr [ecx+$00B4] 007DD594 8BC6 mov eax, esi 007DD596 8B10 mov edx, [eax] * Reference to method TClientDataSet.Post() | 007DD598 FF924C020000 call dword ptr [edx+$024C] 007DD59E 8BC3 mov eax, ebx * Reference to: DBAdapt.TBaseDataSetAdapterField.ImplCheckOrigValue(TBaseDataSetAdapterField;WebAdapt.IActionRequest;System.Integer); | or: DBAdapt.TBaseDataSetAdapterField.ImplUpdateValue(TBaseDataSetAdapterField;WebAdapt.IActionRequest;System.Integer); | or: DsgnCntxt.TWebDesignContext.SetAdapterRequest(TWebDesignContext;System.IUnknown); | or: DsgnCntxt.TWebDesignContext.SetAdapterResponse(TWebDesignContext;System.IUnknown); | or: InSSLOpenSSL.TIdSSLSocket.SetCipherList(TIdSSLSocket;AnsiString); | or: IWDBStdCtrls.SetFieldText(TField;AnsiString); | 007DD5A0 E8F7EDFFFF call 007DC39C * Reference to control TfrmConInPut.ADOCmd : TADOQuery | 007DD5A5 8BB340030000 mov esi, [ebx+$0340] 007DD5AB 8BC6 mov eax, esi * Reference to: DB.TDataSet.Close(TDataSet); | 007DD5AD E82283CEFF call 004C58D4 007DD5B2 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007DD5B4 E8F309D0FF call 004DDFAC 007DD5B9 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 007DD5BB FF5244 call dword ptr [edx+$44] * Possible String Reference to: 'select * from YF_Money_CR where YFT | ypeId='' | 007DD5BE 6830D77D00 push $007DD730 * Possible String Reference to: 'Subid' | 007DD5C3 BA64D77D00 mov edx, $007DD764 * Reference to control TfrmConInPut.Order_Sub : TClientDataSet | 007DD5C8 8B8348030000 mov eax, [ebx+$0348] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007DD5CE E8E195CEFF call 004C6BB4 007DD5D3 8D55DC lea edx, [ebp-$24] 007DD5D6 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 007DD5D8 FF5160 call dword ptr [ecx+$60] 007DD5DB 8B45DC mov eax, [ebp-$24] 007DD5DE 8D55E0 lea edx, [ebp-$20] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007DD5E1 E806D3C2FF call 0040A8EC 007DD5E6 FF75E0 push dword ptr [ebp-$20] 007DD5E9 6874D77D00 push $007DD774 007DD5EE 8D45E4 lea eax, [ebp-$1C] 007DD5F1 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 007DD5F6 E8B980C2FF call 004056B4 007DD5FB 8B45E4 mov eax, [ebp-$1C] 007DD5FE 50 push eax 007DD5FF 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007DD601 E8A609D0FF call 004DDFAC 007DD606 5A pop edx 007DD607 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007DD609 FF5138 call dword ptr [ecx+$38] 007DD60C 8BC6 mov eax, esi * Reference to: DB.TDataSet.Open(TDataSet); | 007DD60E E8B582CEFF call 004C58C8 * Reference to control TfrmConInPut.ADOCmd : TADOQuery | 007DD613 8B8340030000 mov eax, [ebx+$0340] * Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean; | 007DD619 E8A2A8CEFF call 004C7EC0 007DD61E 84C0 test al, al 007DD620 0F85A4000000 jnz 007DD6CA * Reference to control TfrmConInPut.ADOTemp : TADOQuery | 007DD626 8BB33C030000 mov esi, [ebx+$033C] 007DD62C 8BC6 mov eax, esi * Reference to: DB.TDataSet.Close(TDataSet); | 007DD62E E8A182CEFF call 004C58D4 007DD633 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007DD635 E87209D0FF call 004DDFAC 007DD63A 8B10 mov edx, [eax] * Possible reference to virtual method TADOQuery.OFFS_44 | 007DD63C FF5244 call dword ptr [edx+$44] * Possible String Reference to: 'update YF_Money_CR set Price='' | 007DD63F 6880D77D00 push $007DD780 007DD644 8D55D4 lea edx, [ebp-$2C] 007DD647 8B45FC mov eax, [ebp-$04] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007DD64A E89DD2C2FF call 0040A8EC 007DD64F FF75D4 push dword ptr [ebp-$2C] * Possible String Reference to: '' ' | 007DD652 68A8D77D00 push $007DD7A8 007DD657 8D45D8 lea eax, [ebp-$28] 007DD65A BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 007DD65F E85080C2FF call 004056B4 007DD664 8B45D8 mov eax, [ebp-$28] 007DD667 50 push eax 007DD668 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007DD66A E83D09D0FF call 004DDFAC 007DD66F 5A pop edx 007DD670 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007DD672 FF5138 call dword ptr [ecx+$38] * Possible String Reference to: 'where YFTypeId='' | 007DD675 68B4D77D00 push $007DD7B4 * Possible String Reference to: 'Subid' | 007DD67A BA64D77D00 mov edx, $007DD764 * Reference to control TfrmConInPut.Order_Sub : TClientDataSet | 007DD67F 8B8348030000 mov eax, [ebx+$0348] * Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField; | 007DD685 E82A95CEFF call 004C6BB4 007DD68A 8D55C8 lea edx, [ebp-$38] 007DD68D 8B08 mov ecx, [eax] * Possible reference to virtual method TClientDataSet.OFFS_60 | 007DD68F FF5160 call dword ptr [ecx+$60] 007DD692 8B45C8 mov eax, [ebp-$38] 007DD695 8D55CC lea edx, [ebp-$34] * Reference to: SysUtils.Trim(AnsiString):AnsiString;overload; | 007DD698 E84FD2C2FF call 0040A8EC 007DD69D FF75CC push dword ptr [ebp-$34] 007DD6A0 6874D77D00 push $007DD774 007DD6A5 8D45D0 lea eax, [ebp-$30] 007DD6A8 BA03000000 mov edx, $00000003 * Reference to: System.@LStrCatN; | 007DD6AD E80280C2FF call 004056B4 007DD6B2 8B45D0 mov eax, [ebp-$30] 007DD6B5 50 push eax 007DD6B6 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings; | 007DD6B8 E8EF08D0FF call 004DDFAC 007DD6BD 5A pop edx 007DD6BE 8B08 mov ecx, [eax] * Possible reference to virtual method TADOQuery.OFFS_38 | 007DD6C0 FF5138 call dword ptr [ecx+$38] 007DD6C3 8BC6 mov eax, esi * Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer; | 007DD6C5 E80A08D0FF call 004DDED4 007DD6CA 33C0 xor eax, eax 007DD6CC 5A pop edx 007DD6CD 59 pop ecx 007DD6CE 59 pop ecx 007DD6CF 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '^[嬪]' | 007DD6D2 6801D77D00 push $007DD701 007DD6D7 8D45C8 lea eax, [ebp-$38] 007DD6DA BA08000000 mov edx, $00000008 * Reference to: System.@LStrArrayClr(void;void;Integer); | 007DD6DF E8647CC2FF call 00405348 007DD6E4 8D45E8 lea eax, [ebp-$18] * Reference to: Variants.@VarClr(TVarData;TVarData); | 007DD6E7 E8886FC3FF call 00414674 007DD6EC 8D45F8 lea eax, [ebp-$08] 007DD6EF BA02000000 mov edx, $00000002 * Reference to: System.@LStrArrayClr(void;void;Integer); | 007DD6F4 E84F7CC2FF call 00405348 007DD6F9 C3 ret * Reference to: System.@HandleFinally; | 007DD6FA E9F573C2FF jmp 00404AF4 007DD6FF EBD6 jmp 007DD6D7 ****** END | 007DD701 5E pop esi 007DD702 5B pop ebx 007DD703 8BE5 mov esp, ebp 007DD705 5D pop ebp 007DD706 C3 ret *) end; procedure TfrmConInPut._PROC_007DDF2D(Sender : TObject); begin (* 007DDF2D 8BEC mov ebp, esp 007DDF2F 33C0 xor eax, eax 007DDF31 55 push ebp * Possible String Reference to: '闉k滕]脣纼-<' | 007DDF32 6851DF7D00 push $007DDF51 ***** TRY | 007DDF37 64FF30 push dword ptr fs:[eax] 007DDF3A 648920 mov fs:[eax], esp 007DDF3D FF05BC3C8900 inc dword ptr [$00893CBC] 007DDF43 33C0 xor eax, eax 007DDF45 5A pop edx 007DDF46 59 pop ecx 007DDF47 59 pop ecx 007DDF48 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: ']脣纼-<' | 007DDF4B 6858DF7D00 push $007DDF58 007DDF50 C3 ret * Reference to: System.@HandleFinally; | 007DDF51 E99E6BC2FF jmp 00404AF4 007DDF56 EBF8 jmp 007DDF50 ****** END | 007DDF58 5D pop ebp 007DDF59 C3 ret *) end; procedure TfrmConInPut._PROC_007DDF5C(Sender : TObject); begin (* 007DDF5C 832DBC3C890001 sub dword ptr [$00893CBC], +$01 007DDF63 C3 ret *) end; procedure TfrmConInPut._PROC_007DDF64(Sender : TObject); begin (* 007DDF64 B0DF mov al, $DF 007DDF66 7D00 jnl 007DDF68 007DDF68 0000 add [eax], al *) end; procedure TfrmConInPut._PROC_007DDFCA(Sender : TObject); begin (* 007DDFCA 48 dec eax 007DDFCB 0050D4 add [eax-$2C], dl 007DDFCE 42 inc edx 007DDFCF 0008 add [eax], cl 007DDFD1 2D4A007CD0 sub eax, $D07C004A 007DDFD6 42 inc edx 007DDFD7 00F4 add ah, dh 007DDFD9 6B4A00D0 imul ecx, [edx+$00], $D0 007DDFDD 1D4A0030F6 sbb eax, $F630004A 007DDFE2 48 dec eax 007DDFE3 004CFB48 add [ebx+edi*8+$48], cl 007DDFE7 0098FA48000C add [eax+$C0048FA], bl 007DDFED 7948 jns 007DE037 007DDFEF 00ACF04800E829 add [eax+esi*8+$29E80048], ch 007DDFF6 4A dec edx 007DDFF7 00E4 add ah, ah 007DDFF9 ED in eax, dx 007DDFFA 48 dec eax 007DDFFB 00547848 add [eax+edi*2+$48], dl 007DDFFF 005878 add [eax+$78], bl 007DE002 48 dec eax 007DE003 00DC add ah, bl 007DE005 2A4A00 sub cl, byte ptr [edx+$00] 007DE008 3CA9 cmp al, $A9 007DE00A 48 dec eax 007DE00B 00C0 add al, al 007DE00D 834800D0 or dword ptr [eax+$00], -$30 007DE011 7948 jns 007DE05B 007DE013 004C8548 add [ebp+eax*4+$48], cl 007DE017 00D0 add al, dl 007DE019 2C4A sub al, $4A 007DE01B 009C2B4A008486 add [ebx+ebp+$8684004A], bl 007DE022 48 dec eax 007DE023 00482D add [eax+$2D], cl 007DE026 4A dec edx 007DE027 00C0 add al, al 007DE029 A9480038EE test eax, $EE380048 007DE02E 48 dec eax 007DE02F 00F4 add ah, dh 007DE031 EE out dx, al 007DE032 48 dec eax 007DE033 00F0 add al, dh 007DE035 E94800D8EE jmp EF55E082 007DE03A 48 dec eax 007DE03B 00D8 add al, bl 007DE03D 1B4A00 sbb ecx, [edx+$00] 007DE040 EC in al, dx 007DE041 334A00 xor ecx, [edx+$00] 007DE044 20C4 and ah, al 007DE046 48 dec eax 007DE047 00B0404A0010 add [eax+$10004A40], dh 007DE04D 44 inc esp 007DE04E 4A dec edx 007DE04F 00CC add ah, cl 007DE051 42 inc edx 007DE052 4A dec edx 007DE053 00B8C44800BC add [eax+$BC0048C4], bh 007DE059 C44800 les ecx, [eax+$00] 007DE05C 48 dec eax 007DE05D 45 inc ebp 007DE05E 4A dec edx 007DE05F 001CC3 add [ebx+eax*8], bl 007DE062 48 dec eax 007DE063 0018 add [eax], bl 007DE065 F0 lock 007DE066 48 dec eax 007DE067 00444C4A add [esp+ecx*2+$4A], al 007DE06B 000C02 add [edx+eax], cl 007DE06E 49 dec ecx 007DE06F 0094EC48009C64 add [esp+ebp*8+$649C0048], dl 007DE076 4A dec edx 007DE077 008C154A003C18 add [ebp+edx+$183C004A], cl 007DE07E 4A dec edx 007DE07F 0038 add [eax], bh 007DE081 52 push edx 007DE082 4A dec edx 007DE083 005C224A add [edx+$4A], bl 007DE087 00D8 add al, bl 007DE089 224A00 and cl, byte ptr [edx+$00] 007DE08C 7C68 jl 007DE0F6 007DE08E 4A dec edx 007DE08F 00941F4A003C60 add [edi+ebx+$603C004A], dl 007DE096 4A dec edx 007DE097 001447 add [edi+eax*2], dl 007DE09A 4A dec edx 007DE09B 0034654A00CC2C add [$2CCC004A], dh 007DE0A2 4A dec edx 007DE0A3 000E add [esi], cl 007DE0A5 0000 add [eax], al 007DE0A7 0000 add [eax], al 007DE0A9 000500000020 add [$20000000], al 007DE0AF 114000 adc [eax+$00], eax 007DE0B2 E003 loopn +$03 007DE0B4 0000 add [eax], al 007DE0B6 2011 and [ecx], dl 007DE0B8 40 inc eax 007DE0B9 00E4 add ah, ah 007DE0BB 0300 add eax, [eax] 007DE0BD 0020 add [eax], ah 007DE0BF 114000 adc [eax+$00], eax 007DE0C2 E803000020 call 207DE0CA 007DE0C7 114000 adc [eax+$00], eax 007DE0CA EC in al, dx 007DE0CB 0300 add eax, [eax] 007DE0CD 0020 add [eax], ah 007DE0CF 114000 adc [eax+$00], eax 007DE0D2 F0 lock 007DE0D3 0300 add eax, [eax] 007DE0D5 003500AEE57D add [$7DE5AE00], dh 007DE0DB 00F8 add al, bh 007DE0DD 0200 add al, byte ptr [eax] 007DE0DF 0000 add [eax], al 007DE0E1 0008 add [eax], cl 007DE0E3 54 push esp 007DE0E4 6F outsd 007DE0E5 6F outsd 007DE0E6 6C insb 007DE0E7 42 inc edx 007DE0E8 61 popa 007DE0E9 7231 jb 007DE11C 007DE0EB FC cld 007DE0EC 0200 add al, byte ptr [eax] 007DE0EE 0001 add [ecx], al 007DE0F0 0009 add [ecx], cl 007DE0F2 54 push esp 007DE0F3 42 inc edx 007DE0F4 52 push edx 007DE0F5 61 popa 007DE0F6 667265 jb 007DE15E 007DE0F9 7368 jnb 007DE163 007DE0FB 0003 add [ebx], al 007DE0FD 0000 add [eax], al 007DE0FF 0100 add [eax], eax 007DE101 06 push es 007DE102 54 push esp 007DE103 42 inc edx 007DE104 46 inc esi 007DE105 696E6404030000 imul ebp, [esi+$64], $00000304 007DE10C 0100 add [eax], eax 007DE10E 07 pop es 007DE10F 54 push esp 007DE110 42 inc edx 007DE111 43 inc ebx 007DE112 6C insb 007DE113 6F outsd 007DE114 7365 jnb 007DE17B 007DE116 0803 or [ebx], al 007DE118 0000 add [eax], al 007DE11A 0200 add al, byte ptr [eax] 007DE11C 06 push es 007DE11D 50 push eax 007DE11E 61 popa 007DE11F 6E outsb 007DE120 656C insb 007DE122 310C03 xor [ebx+eax], ecx 007DE125 0000 add [eax], al 007DE127 0300 add eax, [eax] 007DE129 07 pop es 007DE12A 42 inc edx 007DE12B 656744 inc esp 007DE12E 61 popa 007DE12F 7465 jz 007DE196 007DE131 1003 adc [ebx], al 007DE133 0000 add [eax], al 007DE135 0300 add eax, [eax] 007DE137 07 pop es 007DE138 45 inc ebp 007DE139 6E outsb 007DE13A 6444 inc esp 007DE13C 61 popa 007DE13D 7465 jz 007DE1A4 007DE13F 1403 adc al, $03 007DE141 0000 add [eax], al 007DE143 0400 add al, +$00 007DE145 06 push es 007DE146 4C dec esp 007DE147 61 popa 007DE148 62656C bound esp, qword ptr [ebp+$6C] 007DE14B 3118 xor [eax], ebx 007DE14D 0300 add eax, [eax] 007DE14F 000500106378 add [$78631000], al 007DE155 47 inc edi 007DE156 7269 jb 007DE1C1 007DE158 6450 push eax 007DE15A 6F outsd 007DE15B 7075 jo 007DE1D2 007DE15D 704D jo 007DE1AC 007DE15F 656E outsb 007DE161 7531 jnz 007DE194 007DE163 1C03 sbb al, $03 007DE165 0000 add [eax], al 007DE167 06 push es 007DE168 000B add [ebx], cl 007DE16A 41 inc ecx 007DE16B 44 inc esp 007DE16C 4F dec edi 007DE16D 51 push ecx 007DE16E 7565 jnz 007DE1D5 007DE170 7279 jb 007DE1EB 007DE172 43 inc ebx 007DE173 6D insd 007DE174 642003 and fs:[ebx], al 007DE177 0000 add [eax], al 007DE179 06 push es 007DE17A 000C41 add [ecx+eax*2], cl 007DE17D 44 inc esp 007DE17E 4F dec edi 007DE17F 51 push ecx 007DE180 7565 jnz 007DE1E7 007DE182 7279 jb 007DE1FD 007DE184 4D dec ebp 007DE185 61 popa 007DE186 696E2403000006 imul ebp, [esi+$24], $06000003 007DE18D 000C41 add [ecx+eax*2], cl 007DE190 44 inc esp 007DE191 4F dec edi 007DE192 51 push ecx 007DE193 7565 jnz 007DE1FA 007DE195 7279 jb 007DE210 007DE197 54 push esp 007DE198 656D insd 007DE19A 7028 jo 007DE1C4 007DE19C 0300 add eax, [eax] 007DE19E 0007 add [edi], al 007DE1A0 000B add [ebx], cl 007DE1A2 44 inc esp 007DE1A3 61 popa 007DE1A4 7461 jz 007DE207 007DE1A6 53 push ebx 007DE1A7 6F outsd 007DE1A8 7572 jnz 007DE21C 007DE1AA 636531 arpl [ebp+$31], sp 007DE1AD 2C03 sub al, $03 007DE1AF 0000 add [eax], al 007DE1B1 0800 or [eax], al 007DE1B3 0A4F72 or cl, byte ptr [edi+$72] 007DE1B6 6465725F jb 007DE219 007DE1BA 4D dec ebp 007DE1BB 61 popa 007DE1BC 696E3003000009 imul ebp, [esi+$30], $09000003 007DE1C3 0003 add [ebx], al 007DE1C5 52 push edx 007DE1C6 4D dec ebp 007DE1C7 313403 xor [ebx+eax], esi 007DE1CA 0000 add [eax], al 007DE1CC 0A00 or al, byte ptr [eax] 007DE1CE 08524D or [edx+$4D], dl 007DE1D1 44 inc esp 007DE1D2 42 inc edx 007DE1D3 4D dec ebp 007DE1D4 61 popa 007DE1D5 696E380300000B imul ebp, [esi+$38], $0B000003 007DE1DC 000C52 add [edx+edx*2], cl 007DE1DF 4D dec ebp 007DE1E0 58 pop eax 007DE1E1 4C dec esp 007DE1E2 53 push ebx 007DE1E3 45 inc ebp 007DE1E4 7870 js 007DE256 007DE1E6 6F outsd 007DE1E7 7274 jb 007DE25D 007DE1E9 313C03 xor [ebx+eax], edi 007DE1EC 0000 add [eax], al 007DE1EE 0400 add al, +$00 007DE1F0 06 push es 007DE1F1 4C dec esp 007DE1F2 61 popa 007DE1F3 62656C bound esp, qword ptr [ebp+$6C] 007DE1F6 3440 xor al, $40 007DE1F8 0300 add eax, [eax] 007DE1FA 000C00 add [eax+eax], cl 007DE1FD 0E push cs 007DE1FE 43 inc ebx 007DE1FF 7573 jnz 007DE274 007DE201 746F jz 007DE272 007DE203 6D insd 007DE204 65724E jb 007DE255 007DE207 6F outsd 007DE208 4E dec esi 007DE209 61 popa 007DE20A 6D insd 007DE20B 6544 inc esp 007DE20D 0300 add eax, [eax] 007DE20F 000D000A506F add [$6F500A00], cl 007DE215 7075 jo 007DE28C 007DE217 704D jo 007DE266 007DE219 656E outsb 007DE21B 7531 jnz 007DE24E 007DE21D 48 dec eax 007DE21E 0300 add eax, [eax] 007DE220 000E add [esi], cl 007DE222 0002 add [edx], al 007DE224 4E dec esi 007DE225 324C0300 xor cl, byte ptr [ebx+eax+$00] 007DE229 000400 add [eax+eax], al 007DE22C 06 push es 007DE22D 4C dec esp 007DE22E 61 popa 007DE22F 62656C bound esp, qword ptr [ebp+$6C] 007DE232 37 aaa 007DE233 50 push eax 007DE234 0300 add eax, [eax] 007DE236 000C00 add [eax+eax], cl 007DE239 085052 or [eax+$52], dl 007DE23C 54 push esp 007DE23D 43 inc ebx 007DE23E 6F outsd 007DE23F 6C insb 007DE240 6F outsd 007DE241 7254 jb 007DE297 007DE243 0300 add eax, [eax] 007DE245 000400 add [eax+eax], al 007DE248 06 push es 007DE249 4C dec esp 007DE24A 61 popa 007DE24B 62656C bound esp, qword ptr [ebp+$6C] 007DE24E 385803 cmp [eax+$03], bl 007DE251 0000 add [eax], al 007DE253 0C00 or al, $00 007DE255 0B5052 or edx, [eax+$52] 007DE258 54 push esp 007DE259 43 inc ebx 007DE25A 6F outsd 007DE25B 64654E dec esi 007DE25E 61 popa 007DE25F 6D insd 007DE260 655C pop esp 007DE262 0300 add eax, [eax] 007DE264 000400 add [eax+eax], al 007DE267 06 push es 007DE268 4C dec esp 007DE269 61 popa 007DE26A 62656C bound esp, qword ptr [ebp+$6C] 007DE26D 396003 cmp [eax+$03], esp 007DE270 0000 add [eax], al 007DE272 0C00 or al, $00 007DE274 05436F6E4E add eax, +$4E6E6F43 007DE279 6F outsd 007DE27A 640300 add eax, fs:[eax] 007DE27D 000400 add [eax+eax], al 007DE280 07 pop es 007DE281 4C dec esp 007DE282 61 popa 007DE283 62656C bound esp, qword ptr [ebp+$6C] 007DE286 3132 xor [edx], esi 007DE288 680300000C push $0C000003 007DE28D 00055052544B add [$4B545250], al 007DE293 5A pop edx 007DE294 6C insb 007DE295 0300 add eax, [eax] 007DE297 000400 add [eax+eax], al 007DE29A 07 pop es 007DE29B 4C dec esp 007DE29C 61 popa 007DE29D 62656C bound esp, qword ptr [ebp+$6C] 007DE2A0 3133 xor [ebx], esi 007DE2A2 7003 jo 007DE2A7 007DE2A4 0000 add [eax], al 007DE2A6 0C00 or al, $00 007DE2A8 055052544D add eax, +$4D545250 007DE2AD 46 inc esi 007DE2AE 7403 jz 007DE2B3 007DE2B0 0000 add [eax], al 007DE2B2 06 push es 007DE2B3 000D41444F51 add [$514F4441], cl 007DE2B9 7565 jnz 007DE320 007DE2BB 7279 jb 007DE336 007DE2BD 50 push eax 007DE2BE 7269 jb 007DE329 007DE2C0 6E outsb 007DE2C1 7478 jz 007DE33B 007DE2C3 0300 add eax, [eax] 007DE2C5 0008 add [eax], cl 007DE2C7 0009 add [ecx], cl 007DE2C9 43 inc ebx 007DE2CA 44 inc esp 007DE2CB 53 push ebx 007DE2CC 5F pop edi 007DE2CD 50 push eax 007DE2CE 7269 jb 007DE339 007DE2D0 6E outsb 007DE2D1 747C jz 007DE34F 007DE2D3 0300 add eax, [eax] 007DE2D5 0001 add [ecx], al 007DE2D7 000B add [ebx], cl 007DE2D9 54 push esp 007DE2DA 6F outsd 007DE2DB 6F outsd 007DE2DC 6C insb 007DE2DD 42 inc edx 007DE2DE 7574 jnz 007DE354 007DE2E0 746F jz 007DE351 007DE2E2 6E outsb 007DE2E3 33800300000F xor eax, [eax+$F000003] 007DE2E9 0007 add [edi], al 007DE2EB 637847 arpl [eax+$47], di 007DE2EE 7269 jb 007DE359 007DE2F0 6431840300001000 xor fs:[ebx+eax+$100000], eax 007DE2F8 03547631 add edx, [esi+esi*2+$31] 007DE2FC 8803 mov [ebx], al 007DE2FE 0000 add [eax], al 007DE300 1100 adc [eax], eax 007DE302 097631 or [esi+$31], esi 007DE305 43 inc ebx 007DE306 6F outsd 007DE307 6C insb 007DE308 756D jnz 007DE377 007DE30A 6E outsb 007DE30B 348C xor al, $8C 007DE30D 0300 add eax, [eax] 007DE30F 0011 add [ecx], dl 007DE311 0007 add [edi], al 007DE313 7631 jbe 007DE346 007DE315 43 inc ebx 007DE316 6F outsd 007DE317 6E outsb 007DE318 4E dec esi 007DE319 6F outsd 007DE31A 90 nop 007DE31B 0300 add eax, [eax] 007DE31D 0011 add [ecx], dl 007DE31F 000C76 add [esi+esi*2], cl 007DE322 31436F xor [ebx+$6F], eax 007DE325 6E outsb 007DE326 50 push eax 007DE327 657273 jb 007DE39D 007DE32A 6F outsd 007DE32B 6E outsb 007DE32C 31940300001100 xor [ebx+eax+$110000], edx 007DE333 097631 or [esi+$31], esi 007DE336 4F dec edi 007DE337 7264 jb 007DE39D 007DE339 44 inc esp 007DE33A 61 popa 007DE33B 7465 jz 007DE3A2 007DE33D 98 cwde 007DE33E 0300 add eax, [eax] 007DE340 0011 add [ecx], dl 007DE342 0010 add [eax], dl 007DE344 7631 jbe 007DE377 007DE346 43 inc ebx 007DE347 7573 jnz 007DE3BC 007DE349 746F jz 007DE3BA 007DE34B 6D insd 007DE34C 65724E jb 007DE39D 007DE34F 6F outsd 007DE350 4E dec esi 007DE351 61 popa 007DE352 6D insd 007DE353 659C pushf 007DE355 0300 add eax, [eax] 007DE357 0011 add [ecx], dl 007DE359 000D76315052 add [$52503176], cl 007DE35F 54 push esp 007DE360 43 inc ebx 007DE361 6F outsd 007DE362 64654E dec esi 007DE365 61 popa 007DE366 6D insd 007DE367 65A003000011 mov al, byte ptr [$11000003] 007DE36D 0009 add [ecx], cl 007DE36F 7631 jbe 007DE3A2 007DE371 43 inc ebx 007DE372 6F outsd 007DE373 6C insb 007DE374 756D jnz 007DE3E3 007DE376 6E outsb 007DE377 31A40300001100 xor [ebx+eax+$110000], esp 007DE37E 0D76315052 or eax, $52503176 007DE383 54 push esp 007DE384 4F dec edi 007DE385 7264 jb 007DE3EB 007DE387 657251 jb 007DE3DB 007DE38A 7479 jz 007DE405 007DE38C A803 test al, $03 007DE38E 0000 add [eax], al 007DE390 1100 adc [eax], eax 007DE392 0E push cs 007DE393 7631 jbe 007DE3C6 007DE395 53 push ebx 007DE396 4F dec edi 007DE397 7264 jb 007DE3FD 007DE399 44 inc esp 007DE39A 65664E dec si 007DE39D 6F outsd 007DE39E 7465 jz 007DE405 007DE3A0 31AC0300001200 xor [ebx+eax+$120000], ebp 007DE3A7 0D63784772 or eax, $72477863 007DE3AC 6964314C6576656C imul esp, [ecx+esi+$4C], $6C657665 007DE3B4 31B003000011 xor [eax+$11000003], esi 007DE3BA 0009 add [ecx], cl 007DE3BC 7631 jbe 007DE3EF 007DE3BE 7374 jnb 007DE434 007DE3C0 796C jns 007DE42E 007DE3C2 654E dec esi 007DE3C4 6F outsd 007DE3C5 B403 mov ah, $03 007DE3C7 0000 add [eax], al 007DE3C9 1100 adc [eax], eax 007DE3CB 07 pop es 007DE3CC 7631 jbe 007DE3FF 007DE3CE 50 push eax 007DE3CF 52 push edx 007DE3D0 54 push esp 007DE3D1 4D dec ebp 007DE3D2 46 inc esi 007DE3D3 B803000011 mov eax, $11000003 007DE3D8 0007 add [edi], al 007DE3DA 7631 jbe 007DE40D 007DE3DC 50 push eax 007DE3DD 52 push edx 007DE3DE 54 push esp 007DE3DF 4B dec ebx 007DE3E0 5A pop edx 007DE3E1 BC03000011 mov esp, $11000003 007DE3E6 0009 add [ecx], cl 007DE3E8 7631 jbe 007DE41B 007DE3EA 50 push eax 007DE3EB 52 push edx 007DE3EC 54 push esp 007DE3ED 53 push ebx 007DE3EE 7065 jo 007DE455 007DE3F0 63C0 arpl ax, ax 007DE3F2 0300 add eax, [eax] 007DE3F4 0011 add [ecx], dl 007DE3F6 000D7631534F add [$4F533176], cl 007DE3FC 7264 jb 007DE462 007DE3FE 44 inc esp 007DE3FF 656653 push bx 007DE402 7472 jz 007DE476 007DE404 34C4 xor al, $C4 007DE406 0300 add eax, [eax] 007DE408 0011 add [ecx], dl 007DE40A 0008 add [eax], cl 007DE40C 7631 jbe 007DE43F 007DE40E 42 inc edx 007DE40F 5A pop edx 007DE410 54 push esp 007DE411 7970 jns 007DE483 007DE413 65C803 enter , $03 007DE416 0000 add [eax], al 007DE418 0100 add [eax], eax 007DE41A 0554537365 add eax, +$65735354 007DE41F 6C insb 007DE420 1300 adc eax, [eax] 007DE422 1200 adc al, byte ptr [eax] 007DE424 30E6 xor dh, ah 007DE426 7D00 jnl 007DE428 007DE428 0B466F or eax, [esi+$6F] 007DE42B 726D jb 007DE49A 007DE42D 44 inc esp 007DE42E 657374 jnb 007DE4A5 007DE431 726F jb 007DE4A2 007DE433 7910 jns 007DE445 007DE435 0038 add [eax], bh 007DE437 E67D out $7D, al 007DE439 0009 add [ecx], cl 007DE43B 46 inc esi 007DE43C 6F outsd 007DE43D 726D jb 007DE4AC 007DE43F 43 inc ebx 007DE440 6C insb 007DE441 6F outsd 007DE442 7365 jnb 007DE4A9 007DE444 1100 adc [eax], eax 007DE446 3CE6 cmp al, $E6 007DE448 7D00 jnl 007DE44A 007DE44A 0A466F or al, byte ptr [esi+$6F] 007DE44D 726D jb 007DE4BC 007DE44F 43 inc ebx 007DE450 7265 jb 007DE4B7 007DE452 61 popa 007DE453 7465 jz 007DE4BA 007DE455 1300 adc eax, [eax] 007DE457 60 pusha 007DE458 E67D out $7D, al 007DE45A 000C54 add [esp+edx*2], cl 007DE45D 42 inc edx 007DE45E 43 inc ebx 007DE45F 6C insb 007DE460 6F outsd 007DE461 7365 jnb 007DE4C8 007DE463 43 inc ebx 007DE464 6C insb 007DE465 69636B120060EC imul esp, [ebx+$6B], $EC600012 007DE46C 7D00 jnl 007DE46E 007DE46E 0B544246 or edx, [edx+eax*2+$46] 007DE472 696E64436C6963 imul ebp, [esi+$64], $63696C43 007DE479 6B1500F0EC7D00 imul edx, [$7DECF000], $00 007DE480 0E push cs 007DE481 54 push esp 007DE482 42 inc edx 007DE483 52 push edx 007DE484 61 popa 007DE485 667265 jb 007DE4ED 007DE488 7368 jnb 007DE4F2 007DE48A 43 inc ebx 007DE48B 6C insb 007DE48C 69636B1500F8EC imul esp, [ebx+$6B], $ECF80015 007DE493 7D00 jnl 007DE495 007DE495 0E push cs 007DE496 4F dec edi 007DE497 7264 jb 007DE4FD 007DE499 65724E jb 007DE4EA 007DE49C 6F outsd 007DE49D 4D dec ebp 007DE49E 43 inc ebx 007DE49F 68616E6765 push $65676E61 007DE4A4 0F0088ED7D0008 str word ptr [eax+$8007DED] 007DE4AB 46 inc esi 007DE4AC 6F outsd 007DE4AD 726D jb 007DE51C 007DE4AF 53 push ebx 007DE4B0 686F771000 push $0010776F 007DE4B5 90 nop 007DE4B6 ED in eax, dx 007DE4B7 7D00 jnl 007DE4B9 007DE4B9 09544254 or [edx+eax*2+$54], edx 007DE4BD 50 push eax 007DE4BE 43 inc ebx 007DE4BF 6C insb 007DE4C0 69636B1500B8ED imul esp, [ebx+$6B], $EDB80015 007DE4C7 7D00 jnl 007DE4C9 007DE4C9 0E push cs 007DE4CA 43 inc ebx 007DE4CB 6865636B42 push $426B6365 007DE4D0 6F outsd 007DE4D1 7831 js 007DE504 007DE4D3 43 inc ebx 007DE4D4 6C insb 007DE4D5 69636B1500C0ED imul esp, [ebx+$6B], $EDC00015 007DE4DC 7D00 jnl 007DE4DE 007DE4DE 0E push cs 007DE4DF 43 inc ebx 007DE4E0 6865636B42 push $426B6365 007DE4E5 6F outsd 007DE4E6 7832 js 007DE51A 007DE4E8 43 inc ebx 007DE4E9 6C insb 007DE4EA 69636B1F00D4ED imul esp, [ebx+$6B], $EDD4001F 007DE4F1 7D00 jnl 007DE4F3 007DE4F3 18547631 sbb [esi+esi*2+$31], dl 007DE4F7 53 push ebx 007DE4F8 7479 jz 007DE573 007DE4FA 6C insb 007DE4FB 657347 jnb 007DE545 007DE4FE 657443 jz 007DE544 007DE501 6F outsd 007DE502 6E outsb 007DE503 7465 jz 007DE56A 007DE505 6E outsb 007DE506 7453 jz 007DE55B 007DE508 7479 jz 007DE583 007DE50A 6C insb 007DE50B 652300 and eax, gs:[eax] 007DE50E DCED fsub st(5), st(0) 007DE510 7D00 jnl 007DE512 007DE512 1C76 sbb al, $76 007DE514 3144656C xor [ebp+$6C], eax 007DE518 69766572794461 imul esi, [esi+$65], $61447972 007DE51F 7465 jz 007DE586 007DE521 43 inc ebx 007DE522 7573 jnz 007DE597 007DE524 746F jz 007DE595 007DE526 6D insd 007DE527 44 inc esp 007DE528 7261 jb 007DE58B 007DE52A 7743 jnbe 007DE56F 007DE52C 656C insb 007DE52E 6C insb 007DE52F 0E push cs 007DE530 00E4 add ah, ah 007DE532 ED in eax, dx 007DE533 7D00 jnl 007DE535 007DE535 07 pop es 007DE536 4E dec esi 007DE537 31436C xor [ebx+$6C], eax 007DE53A 69636B0E0054F0 imul esp, [ebx+$6B], $F054000E 007DE541 7D00 jnl 007DE543 007DE543 07 pop es 007DE544 4E dec esi 007DE545 32436C xor al, byte ptr [ebx+$6C] 007DE548 69636B1700C4F2 imul esp, [ebx+$6B], $F2C40017 007DE54F 7D00 jnl 007DE551 007DE551 10546F6F adc [edi+ebp*2+$6F], dl 007DE555 6C insb 007DE556 42 inc edx 007DE557 7574 jnz 007DE5CD 007DE559 746F jz 007DE5CA 007DE55B 6E outsb 007DE55C 33436C xor eax, [ebx+$6C] 007DE55F 69636B1600E4F2 imul esp, [ebx+$6B], $F2E40016 007DE566 7D00 jnl 007DE568 007DE568 0F54 DB $0F, $54 // 007DE56A 7631 jbe 007DE59D 007DE56C 43 inc ebx 007DE56D 656C insb 007DE56F 6C insb 007DE570 44 inc esp 007DE571 626C436C bound ebp, qword ptr [ebx+eax*2+$6C] 007DE575 69636B140030F3 imul esp, [ebx+$6B], $F3300014 007DE57C 7D00 jnl 007DE57E 007DE57E 0D436F6E4E or eax, $4E6E6F43 007DE583 6F outsd 007DE584 4B dec ebx 007DE585 657950 jns 007DE5D8 007DE588 7265 jb 007DE5EF 007DE58A 7373 jnb 007DE5FF 007DE58C 1100 adc [eax], eax 007DE58E CC int 3 007DE58F F67D00 idiv byte ptr [ebp+$00] 007DE592 0A545373 or dl, byte ptr [ebx+edx*2+$73] 007DE596 656C insb 007DE598 43 inc ebx 007DE599 6C insb 007DE59A 69636B10546672 imul esp, [ebx+$6B], $72665410 007DE5A1 6D insd 007DE5A2 4A dec edx 007DE5A3 59 pop ecx 007DE5A4 6F outsd 007DE5A5 7264 jb 007DE60B 007DE5A7 657243 jb 007DE5ED 007DE5AA 6F outsd 007DE5AB 6E outsb 007DE5AC 43 inc ebx 007DE5AD 58 pop eax 007DE5AE 1300 adc eax, [eax] 007DE5B0 28944500648A45 sub [ebp+eax*2+$458A6400], dl 007DE5B7 0020 add [eax], ah 007DE5B9 42 inc edx 007DE5BA 44 inc esp 007DE5BB 00E0 add al, ah 007DE5BD A5 movsd 007DE5BE 45 inc ebp 007DE5BF 001C5F add [edi+ebx*2], bl 007DE5C2 47 inc edi 007DE5C3 005876 add [eax+$76], bl 007DE5C6 7C00 jl 007DE5C8 007DE5C8 B8124D0008 mov eax, $08004D12 007DE5CD 7F4B jnle 007DE61A 007DE5CF 0088996A0064 add [eax+$64006A99], cl 007DE5D5 D37800 sar dword ptr [eax+$00], cl 007DE5D8 A80A test al, $0A 007DE5DA 7800 js 007DE5DC 007DE5DC 6C insb 007DE5DD 157B00B867 adc eax, $67B8007B 007DE5E2 47 inc edi 007DE5E3 00887E49008C add [eax+$8C00497E], cl 007DE5E9 7649 jbe 007DE634 007DE5EB 0000 add [eax], al 007DE5ED 16 push ss 007DE5EE 6300 arpl [eax], ax 007DE5F0 F4 hlt 007DE5F1 B466 mov ah, $66 007DE5F3 0034B1 add [ecx+esi*4], dh 007DE5F6 6600A40E640000E6 add [esi+ecx+$E6000064], ah 007DE5FE 7D00 jnl 007DE600 007DE600 07 pop es 007DE601 10546672 adc [esi+$72], dl 007DE605 6D insd 007DE606 4A dec edx 007DE607 59 pop ecx 007DE608 6F outsd 007DE609 7264 jb 007DE66F 007DE60B 657243 jb 007DE651 007DE60E 6F outsd 007DE60F 6E outsb 007DE610 43 inc ebx 007DE611 58 pop eax 007DE612 B0DF mov al, $DF 007DE614 7D00 jnl 007DE616 007DE616 D0F2 DB $D0, $F2 // dl, 1 007DE618 49 dec ecx 007DE619 005E00 add [esi+$00], bl 007DE61C 0F55 DB $0F, $55 // 007DE61E 5F pop edi 007DE61F 4A dec edx 007DE620 59 pop ecx 007DE621 4F dec edi 007DE622 7264 jb 007DE688 007DE624 657243 jb 007DE66A 007DE627 6F outsd 007DE628 6E outsb 007DE629 5F pop edi 007DE62A 43 inc ebx 007DE62B 58 pop eax 007DE62C 0000 add [eax], al 007DE62E 8BC0 mov eax, eax 007DE630 33C0 xor eax, eax * Reference to GlobalVar_00893CC0 | 007DE632 A3C03C8900 mov dword ptr [$00893CC0], eax 007DE637 C3 ret 007DE638 C60102 mov byte ptr [ecx], $02 007DE63B C3 ret 007DE63C 53 push ebx 007DE63D 8BD8 mov ebx, eax 007DE63F B205 mov dl, $05 * Reference to control v1OrderUnit : TcxGridDBColumn | 007DE641 8B8380030000 mov eax, [ebx+$0380] * Reference to: Controls.TControl.SetAlign(TControl;TAlign); | 007DE647 E89094CAFF call 00487ADC * Reference to control ToolButton2 : TToolButton | 007DE64C 8B8324030000 mov eax, [ebx+$0324] | 007DE652 E83163FDFF call 007B4988 007DE657 DD9BD0030000 fstp qword ptr [ebx+$03D0] 007DE65D 9B wait 007DE65E 5B pop ebx 007DE65F C3 ret 007DE660 53 push ebx 007DE661 8BD8 mov ebx, eax 007DE663 8BC3 mov eax, ebx * Reference to: Forms.TCustomForm.Close(TCustomForm); | 007DE665 E82E79CCFF call 004A5F98 * Reference to control Label23 : TLabel | 007DE66A 83BBDC03000001 cmp dword ptr [ebx+$03DC], +$01 007DE671 7417 jz 007DE68A * Possible String Reference to: '生产指示单管理' | 007DE673 B9ACE67D00 mov ecx, $007DE6AC * Reference to control v1PriceUnit : TcxGridDBColumn | 007DE678 8B9384030000 mov edx, [ebx+$0384] * Possible String Reference to: '指示单列表10' | 007DE67E B8C4E67D00 mov eax, $007DE6C4 | 007DE683 E81895FDFF call 007B7BA0 007DE688 5B pop ebx 007DE689 C3 ret * Possible String Reference to: '生产指示单管理' | 007DE68A B9ACE67D00 mov ecx, $007DE6AC * Reference to control v1PriceUnit : TcxGridDBColumn | 007DE68F 8B9384030000 mov edx, [ebx+$0384] * Possible String Reference to: '指示单列表选择' | 007DE695 B8DCE67D00 mov eax, $007DE6DC | 007DE69A E80195FDFF call 007B7BA0 007DE69F 5B pop ebx 007DE6A0 C3 ret *) end; end.