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]