📄 wtsetup.pas
字号:
unit WTSetup;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, Buttons, Grids
type
TfrmWTSetup=class(TForm)
SG1: TStringGrid;
Button3: TBitBtn;
Button4: TBitBtn;
Button5: TBitBtn;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
OpenDialog: TOpenDialog;
BitBtn4: TBitBtn;
Button1: TButton;
procedure FormCreate(Sender : TObject);
procedure SG1DblClick(Sender : TObject);
procedure Button3Click(Sender : TObject);
procedure Button4Click(Sender : TObject);
procedure Button5Click(Sender : TObject);
procedure BitBtn1Click(Sender : TObject);
procedure SG1MouseDown(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure BitBtn3Click(Sender : TObject);
procedure BitBtn4Click(Sender : TObject);
procedure _PROC_006A65D5(Sender : TObject);
procedure _PROC_006A6B9D(Sender : TObject);
procedure _PROC_006A6E21(Sender : TObject);
procedure _PROC_006A6EE9(Sender : TObject);
procedure _PROC_006A7644(Sender : TObject);
procedure _PROC_006A78E1(Sender : TObject);
procedure _PROC_006A7910(Sender : TObject);
procedure Proc_006A7918(Sender : TObject);
procedure Proc_006A6B9C(Sender : TObject);
procedure Proc_006A6EE8(Sender : TObject);
procedure Proc_006A6E20(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmWTSetup: TfrmWTSetup;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmWTSetup.FormCreate(Sender : TObject);
begin
(*
006A60F8 55 push ebp
006A60F9 8BEC mov ebp, esp
006A60FB B909000000 mov ecx, $00000009
006A6100 6A00 push $00
006A6102 6A00 push $00
006A6104 49 dec ecx
006A6105 75F9 jnz 006A6100
006A6107 51 push ecx
006A6108 53 push ebx
006A6109 56 push esi
006A610A 57 push edi
006A610B 8BF0 mov esi, eax
006A610D 33C0 xor eax, eax
006A610F 55 push ebp
006A6110 680D656A00 push $006A650D
***** TRY
|
006A6115 64FF30 push dword ptr fs:[eax]
006A6118 648920 mov fs:[eax], esp
* Possible String Reference to: '序号'
|
006A611B 6824656A00 push $006A6524
006A6120 33C9 xor ecx, ecx
006A6122 33D2 xor edx, edx
* Reference to control TfrmWTSetup.SG1 : TStringGrid
|
006A6124 8B86D4020000 mov eax, [esi+$02D4]
* Reference to: grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
006A612A E83DDCE4FF call 004F3D6C
* Possible String Reference to: '开户营业部'
|
006A612F 6834656A00 push $006A6534
006A6134 33C9 xor ecx, ecx
006A6136 BA01000000 mov edx, $00000001
* Reference to control TfrmWTSetup.SG1 : TStringGrid
|
006A613B 8B86D4020000 mov eax, [esi+$02D4]
* Reference to: grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
006A6141 E826DCE4FF call 004F3D6C
006A6146 6A00 push $00
006A6148 8D45EC lea eax, [ebp-$14]
006A614B 50 push eax
* Reference to pointer to GlobalVar_0078CF04
|
006A614C A1F8CF7700 mov eax, dword ptr [$0077CFF8]
006A6151 8B00 mov eax, [eax]
* Possible String Reference to: 'DefaultWT'
|
006A6153 B948656A00 mov ecx, $006A6548
* Possible String Reference to: 'Setting'
|
006A6158 BA5C656A00 mov edx, $006A655C
006A615D 8B18 mov ebx, [eax]
006A615F FF13 call dword ptr [ebx]
006A6161 B201 mov dl, $01
* Reference to class TStringList
|
006A6163 A19C284100 mov eax, dword ptr [$0041289C]
* Reference to: system.TObject.Create(TObject;Boolean);
|
006A6168 E82FD1D5FF call 0040329C
006A616D 8945F8 mov [ebp-$08], eax
006A6170 B201 mov dl, $01
* Reference to class TStringList
|
006A6172 A19C284100 mov eax, dword ptr [$0041289C]
* Reference to: system.TObject.Create(TObject;Boolean);
|
006A6177 E820D1D5FF call 0040329C
006A617C 8945F4 mov [ebp-$0C], eax
* Reference to pointer to GlobalVar_0078CF04
|
006A617F A1F8CF7700 mov eax, dword ptr [$0077CFF8]
006A6184 8B00 mov eax, [eax]
006A6186 8B4DF8 mov ecx, [ebp-$08]
* Possible String Reference to: 'WT'
|
006A6189 BA6C656A00 mov edx, $006A656C
006A618E 8B18 mov ebx, [eax]
* Possible reference to virtual method TGlobalVar_0078CF04.OFFS_38
|
006A6190 FF5338 call dword ptr [ebx+$38]
* Reference to pointer to GlobalVar_0078CF04
|
006A6193 A1F8CF7700 mov eax, dword ptr [$0077CFF8]
006A6198 8B00 mov eax, [eax]
006A619A 8B4DF4 mov ecx, [ebp-$0C]
* Possible String Reference to: 'WTCod'
|
006A619D BA78656A00 mov edx, $006A6578
006A61A2 8B18 mov ebx, [eax]
* Possible reference to virtual method TGlobalVar_0078CF04.OFFS_38
|
006A61A4 FF5338 call dword ptr [ebx+$38]
006A61A7 8B45F4 mov eax, [ebp-$0C]
006A61AA 8B10 mov edx, [eax]
* Reference to method TStringList.Sort()
|
006A61AC FF527C call dword ptr [edx+$7C]
006A61AF 8B45F8 mov eax, [ebp-$08]
006A61B2 8B10 mov edx, [eax]
* Reference to method TStringList.GetCount()
|
006A61B4 FF5214 call dword ptr [edx+$14]
006A61B7 8945FC mov [ebp-$04], eax
006A61BA 8B45F8 mov eax, [ebp-$08]
006A61BD 8B10 mov edx, [eax]
* Reference to method TStringList.GetCount()
|
006A61BF FF5214 call dword ptr [edx+$14]
006A61C2 50 push eax
* Reference to field TfrmWTSetup.OFFS_02F8
|
006A61C3 8D86F8020000 lea eax, [esi+$02F8]
006A61C9 B901000000 mov ecx, $00000001
* Reference to class RxGradientCaption1
|
006A61CE 8B15F05D6A00 mov edx, [$006A5DF0]
* Reference to: system.@DynArraySetLength;
|
006A61D4 E8F701D6FF call 004063D0
006A61D9 83C404 add esp, +$04
006A61DC 8B45F8 mov eax, [ebp-$08]
006A61DF 8B10 mov edx, [eax]
* Reference to method TStringList.GetCount()
|
006A61E1 FF5214 call dword ptr [edx+$14]
006A61E4 8BD0 mov edx, eax
006A61E6 42 inc edx
* Reference to control TfrmWTSetup.SG1 : TStringGrid
|
006A61E7 8B86D4020000 mov eax, [esi+$02D4]
* Reference to: grids.TCustomGrid.SetRowCount(TCustomGrid;Longint);
|
006A61ED E8F6B9E4FF call 004F1BE8
006A61F2 8B45F8 mov eax, [ebp-$08]
006A61F5 8B10 mov edx, [eax]
* Reference to method TStringList.GetCount()
|
006A61F7 FF5214 call dword ptr [edx+$14]
006A61FA 85C0 test eax, eax
006A61FC 0F8E1D020000 jle 006A641F
006A6202 8945E8 mov [ebp-$18], eax
006A6205 BB01000000 mov ebx, $00000001
006A620A 6A00 push $00
006A620C 8D45E4 lea eax, [ebp-$1C]
006A620F 50 push eax
006A6210 8D4DE0 lea ecx, [ebp-$20]
006A6213 8BD3 mov edx, ebx
006A6215 4A dec edx
006A6216 8B45F8 mov eax, [ebp-$08]
006A6219 8B38 mov edi, [eax]
* Reference to method TStringList.Get(Integer)
|
006A621B FF570C call dword ptr [edi+$0C]
006A621E 8B55E0 mov edx, [ebp-$20]
* Reference to pointer to GlobalVar_0078CF04
|
006A6221 A1F8CF7700 mov eax, dword ptr [$0077CFF8]
006A6226 8B00 mov eax, [eax]
* Possible String Reference to: 'ORGID'
|
006A6228 B988656A00 mov ecx, $006A6588
006A622D 8B38 mov edi, [eax]
006A622F FF17 call dword ptr [edi]
006A6231 8B45E4 mov eax, [ebp-$1C]
* Reference to: Unit_005B0D4C.Proc_005B1AFC
|
006A6234 E8C3B8F0FF call 005B1AFC
006A6239 8D145B lea edx, [ebx+ebx*2]
* Reference to field TfrmWTSetup.OFFS_02F8
|
006A623C 8B8EF8020000 mov ecx, [esi+$02F8]
006A6242 8944D1E8 mov [ecx+edx*8-$18], eax
006A6246 6A00 push $00
006A6248 8D45DC lea eax, [ebp-$24]
006A624B 50 push eax
006A624C 8D4DD8 lea ecx, [ebp-$28]
006A624F 8BD3 mov edx, ebx
006A6251 4A dec edx
006A6252 8B45F8 mov eax, [ebp-$08]
006A6255 8B38 mov edi, [eax]
* Reference to method TStringList.Get(Integer)
|
006A6257 FF570C call dword ptr [edi+$0C]
006A625A 8B55D8 mov edx, [ebp-$28]
* Reference to pointer to GlobalVar_0078CF04
|
006A625D A1F8CF7700 mov eax, dword ptr [$0077CFF8]
006A6262 8B00 mov eax, [eax]
* Possible String Reference to: 'DepartID'
|
006A6264 B998656A00 mov ecx, $006A6598
006A6269 8B38 mov edi, [eax]
006A626B FF17 call dword ptr [edi]
006A626D 8B45DC mov eax, [ebp-$24]
* Reference to: Unit_005B0D4C.Proc_005B1AFC
|
006A6270 E887B8F0FF call 005B1AFC
006A6275 8D145B lea edx, [ebx+ebx*2]
* Reference to field TfrmWTSetup.OFFS_02F8
|
006A6278 8B8EF8020000 mov ecx, [esi+$02F8]
006A627E 8944D1EC mov [ecx+edx*8-$14], eax
006A6282 8D4DD4 lea ecx, [ebp-$2C]
006A6285 8BD3 mov edx, ebx
006A6287 4A dec edx
006A6288 8B45F8 mov eax, [ebp-$08]
006A628B 8B38 mov edi, [eax]
* Reference to method TStringList.Get(Integer)
|
006A628D FF570C call dword ptr [edi+$0C]
006A6290 8B55D4 mov edx, [ebp-$2C]
006A6293 8D045B lea eax, [ebx+ebx*2]
* Reference to field TfrmWTSetup.OFFS_02F8
|
006A6296 8B8EF8020000 mov ecx, [esi+$02F8]
006A629C 8D44C1F0 lea eax, [ecx+eax*8-$10]
* Reference to: system.@LStrAsg;
|
006A62A0 E8A3DED5FF call 00404148
006A62A5 6A00 push $00
006A62A7 8D45D0 lea eax, [ebp-$30]
006A62AA 50 push eax
006A62AB 8D4DCC lea ecx, [ebp-$34]
006A62AE 8BD3 mov edx, ebx
006A62B0 4A dec edx
006A62B1 8B45F8 mov eax, [ebp-$08]
006A62B4 8B38 mov edi, [eax]
* Reference to method TStringList.Get(Integer)
|
006A62B6 FF570C call dword ptr [edi+$0C]
006A62B9 8B4DCC mov ecx, [ebp-$34]
* Reference to pointer to GlobalVar_0078CF04
|
006A62BC A1F8CF7700 mov eax, dword ptr [$0077CFF8]
006A62C1 8B00 mov eax, [eax]
* Possible String Reference to: 'WT'
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -