?? modifyusr.pas
字號:
unit ModifyUsr;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmModifyUserInfo=class(TForm)
Panel1: TPanel;
Panel2: TPanel;
mListSel: TListBox;
Button1: TButton;
Button2: TButton;
RxGradientCaption1: TRxGradientCaption;
XPMenu1: TXPMenu;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
GroupBox3: TGroupBox;
Label35: TLabel;
mCmbZone: TRxCheckListBox;
TabSheet2: TTabSheet;
GroupBox2: TGroupBox;
Label8: TLabel;
Label6: TLabel;
Label18: TLabel;
mAreaComboBox: TComboBox;
mOrgComboBox: TComboBox;
mLstDepart: TListBox;
TabSheet3: TTabSheet;
GroupBox1: TGroupBox;
Label7: TLabel;
Label9: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
ComboSex: TComboBox;
EdtPersonID: TEdit;
EdtCity: TEdit;
EdtCareer: TEdit;
EdtEducation: TEdit;
EdtHomeAddr: TEdit;
TabSheet4: TTabSheet;
GroupBox4: TGroupBox;
TabSheet5: TTabSheet;
Label11: TLabel;
EdtPhone: TEdit;
Label17: TLabel;
EdtEmail: TEdit;
Label10: TLabel;
EdtMobile: TEdit;
Label19: TLabel;
EdtMSN: TEdit;
Label2: TLabel;
EdtQQ: TEdit;
Label1: TLabel;
Label3: TLabel;
GroupBox5: TGroupBox;
Label4: TLabel;
Edit1: TEdit;
Label5: TLabel;
Edit2: TEdit;
Label12: TLabel;
Edit3: TEdit;
Label20: TLabel;
Button4: TButton;
mIdTCPClient: TIdTCPClient;
Label21: TLabel;
OFFS_03C0: N.A.;
OFFS_03C8: N.A.;
OFFS_03FA: N.A.;
OFFS_03FB: N.A.;
OFFS_03FC: N.A.;
OFFS_03F8: N.A.;
OFFS_03F9: N.A.;
OFFS_03E4: N.A.;
OFFS_044B: N.A.;
OFFS_03C4: N.A.;
procedure Button2Click(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure mListSelClick(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure Button4Click(Sender : TObject);
procedure mAreaComboBoxChange(Sender : TObject);
procedure EdtPersonIDChange(Sender : TObject);
procedure EdtMobileChange(Sender : TObject);
procedure Edit1Change(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure mCmbZoneClick(Sender : TObject);
procedure mLstDepartClick(Sender : TObject);
procedure _PROC_0065640D(Sender : TObject);
procedure _PROC_006565D1(Sender : TObject);
procedure _PROC_00656921(Sender : TObject);
procedure _PROC_00656B30(Sender : TObject);
procedure _PROC_00656B61(Sender : TObject);
procedure _PROC_00656D1D(Sender : TObject);
procedure _PROC_00656F6D(Sender : TObject);
procedure _PROC_00656FA8(Sender : TObject);
procedure _PROC_0065700C(Sender : TObject);
procedure _PROC_0065739B(Sender : TObject);
procedure _PROC_006574B9(Sender : TObject);
procedure _PROC_00657959(Sender : TObject);
procedure _PROC_00657CF5(Sender : TObject);
procedure _PROC_00657F7C(Sender : TObject);
procedure _PROC_00657FB1(Sender : TObject);
procedure _PROC_0065826E(Sender : TObject);
procedure _PROC_00658285(Sender : TObject);
procedure _PROC_00658568(Sender : TObject);
procedure _PROC_0065857D(Sender : TObject);
procedure _PROC_0065884A(Sender : TObject);
procedure _PROC_00658861(Sender : TObject);
procedure _PROC_00658954(Sender : TObject);
procedure _PROC_00658984(Sender : TObject);
procedure Proc_006565D0(Sender : TObject);
procedure Proc_00656F6C(Sender : TObject);
procedure Proc_006574B8(Sender : TObject);
procedure Proc_006582B4(Sender : TObject);
procedure Proc_006585B0(Sender : TObject);
procedure Proc_00657D38(Sender : TObject);
procedure Proc_00658010(Sender : TObject);
procedure Proc_00656B22(Sender : TObject);
procedure Proc_006569B8(Sender : TObject);
procedure Proc_00656B60(Sender : TObject);
procedure Proc_00656D1C(Sender : TObject);
procedure Proc_00657144(Sender : TObject);
procedure Proc_00657158(Sender : TObject);
procedure Proc_0065716C(Sender : TObject);
procedure Proc_00657180(Sender : TObject);
procedure Proc_00655F04(Sender : TObject);
procedure Proc_00657CE7(Sender : TObject);
procedure Proc_00657CE0(Sender : TObject);
procedure Proc_00657F6B(Sender : TObject);
procedure Proc_00658257(Sender : TObject);
procedure Proc_0065854C(Sender : TObject);
procedure Proc_0065882E(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmModifyUserInfo: TfrmModifyUserInfo;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmModifyUserInfo.Button2Click(Sender : TObject);
begin
(*
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
006565C8 E8EFFADFFF call 004560BC
006565CD C3 ret
*)
end;
procedure TfrmModifyUserInfo.FormCreate(Sender : TObject);
begin
(*
00656728 55 push ebp
00656729 8BEC mov ebp, esp
0065672B 33C9 xor ecx, ecx
0065672D 51 push ecx
0065672E 51 push ecx
0065672F 51 push ecx
00656730 51 push ecx
00656731 53 push ebx
00656732 56 push esi
00656733 57 push edi
00656734 8BD8 mov ebx, eax
00656736 33C0 xor eax, eax
00656738 55 push ebp
00656739 680A696500 push $0065690A
***** TRY
|
0065673E 64FF30 push dword ptr fs:[eax]
00656741 648920 mov fs:[eax], esp
00656744 6A00 push $00
00656746 8D45FC lea eax, [ebp-$04]
00656749 50 push eax
* Reference to pointer to GlobalVar_0078CF04
|
0065674A A1F8CF7700 mov eax, dword ptr [$0077CFF8]
0065674F 8B00 mov eax, [eax]
* Possible String Reference to: 'UsrNam'
|
00656751 B920696500 mov ecx, $00656920
* Possible String Reference to: 'Setting'
|
00656756 BA30696500 mov edx, $00656930
0065675B 8B30 mov esi, [eax]
0065675D FF16 call dword ptr [esi]
0065675F 8B55FC mov edx, [ebp-$04]
* Reference to field TfrmModifyUserInfo.OFFS_03C0 : String
|
00656762 8D83C0030000 lea eax, [ebx+$03C0]
* Reference to: system.@LStrAsg;
|
00656768 E8DBD9DAFF call 00404148
0065676D 33C0 xor eax, eax
0065676F 33D2 xor edx, edx
00656771 8AD0 mov dl, al
00656773 C68413F803000000 mov byte ptr [ebx+edx+$03F8], $00
0065677B 40 inc eax
0065677C 3C05 cmp al, $05
0065677E 75EF jnz 0065676F
* Reference to pointer to GlobalVar_0078CEFC
|
00656780 8B15D0CC7700 mov edx, [$0077CCD0]
00656786 8B12 mov edx, [edx]
00656788 8D45F8 lea eax, [ebp-$08]
* Possible String Reference to: 'HqServer.ini'
|
0065678B B940696500 mov ecx, $00656940
* Reference to: system.@LStrCat3;
|
00656790 E847DCDAFF call 004043DC
00656795 8B45F8 mov eax, [ebp-$08]
* Reference to: Unit_00409434.Proc_0040A8BC
|
00656798 E81F41DBFF call 0040A8BC
0065679D 84C0 test al, al
0065679F 746F jz 00656810
* Reference to pointer to GlobalVar_0078CEFC
|
006567A1 8B15D0CC7700 mov edx, [$0077CCD0]
006567A7 8B12 mov edx, [edx]
006567A9 8D45F4 lea eax, [ebp-$0C]
006567AC 50 push eax
* Possible String Reference to: 'HqServer.ini'
|
006567AD B940696500 mov ecx, $00656940
006567B2 58 pop eax
* Reference to: system.@LStrCat3;
|
006567B3 E824DCDAFF call 004043DC
006567B8 8B4DF4 mov ecx, [ebp-$0C]
006567BB B201 mov dl, $01
* Reference to class TIniFile
|
006567BD A1085A4600 mov eax, dword ptr [$00465A08]
* Reference to: Unit_00465948.Proc_00465B58
|
006567C2 E891F3E0FF call 00465B58
006567C7 8BF0 mov esi, eax
006567C9 6A00 push $00
006567CB 8D45F0 lea eax, [ebp-$10]
006567CE 50 push eax
* Possible String Reference to: 'RegServer'
|
006567CF B958696500 mov ecx, $00656958
* Possible String Reference to: 'RegServer'
|
006567D4 BA58696500 mov edx, $00656958
006567D9 8BC6 mov eax, esi
006567DB 8B38 mov edi, [eax]
006567DD FF17 call dword ptr [edi]
006567DF 8B55F0 mov edx, [ebp-$10]
* Reference to field TfrmModifyUserInfo.OFFS_03C8 : String
|
006567E2 8D83C8030000 lea eax, [ebx+$03C8]
* Reference to: system.@LStrAsg;
|
006567E8 E85BD9DAFF call 00404148
006567ED 6828230000 push $00002328
* Possible String Reference to: 'RegPort'
|
006567F2 B96C696500 mov ecx, $0065696C
* Possible String Reference to: 'RegServer'
|
006567F7 BA58696500 mov edx, $00656958
006567FC 8BC6 mov eax, esi
006567FE 8B38 mov edi, [eax]
* Reference to method TIniFile.ReadInteger(string,string,Longint)
|
00656800 FF5708 call dword ptr [edi+$08]
* Reference to field TfrmModifyUserInfo.OFFS_03CC
|
00656803 8983CC030000 mov [ebx+$03CC], eax
00656809 8BC6 mov eax, esi
* Reference to: system.TObject.Free(TObject);
|
0065680B E8BCCADAFF call 004032CC
00656810 33C0 xor eax, eax
* Reference to field TfrmModifyUserInfo.OFFS_03D0
|
00656812 8983D0030000 mov [ebx+$03D0], eax
00656818 33C0 xor eax, eax
* Reference to field TfrmModifyUserInfo.OFFS_03E4 : TStringList
|
0065681A 8983E4030000 mov [ebx+$03E4], eax
00656820 33C0 xor eax, eax
* Reference to field TfrmModifyUserInfo.OFFS_03D4
|
00656822 8983D4030000 mov [ebx+$03D4], eax
00656828 33C0 xor eax, eax
* Reference to field TfrmModifyUserInfo.OFFS_03D8
|
0065682A 8983D8030000 mov [ebx+$03D8], eax
* Reference to pointer to GlobalVar_007992A4
|
00656830 A1C4D47700 mov eax, dword ptr [$0077D4C4]
00656835 8B00 mov eax, [eax]
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -