www.pudn.com > 2004021618574529928.rar > UserReg.pas

unit UserReg; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls; 
 
type 
  TfrmReg = class(TForm) 
    Label1: TLabel; 
    Label2: TLabel; 
    Label3: TLabel; 
    EDUserName: TEdit; 
    EDPwd: TEdit; 
    EDPwd2: TEdit; 
    Button1: TButton; 
    Button2: TButton; 
    Label4: TLabel; 
    EDEmail: TEdit; 
    Label5: TLabel; 
    Label6: TLabel; 
    procedure Button1Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
    procedure FormClose(Sender: TObject; var Action: TCloseAction); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  frmReg: TfrmReg; 
 
implementation 
 
uses MainForm; 
 
{$R *.dfm} 
 
procedure TfrmReg.Button1Click(Sender: TObject); 
begin 
    if Length(EDUserName.Text) > 50 then 
    begin 
        ShowMessage('用户名太长'); 
        EDUserName.SetFocus; 
        Exit; 
    end; 
    if EDUserName.Text = '' then 
    begin 
        ShowMessage('请输入用户名'); 
        EDUserName.SetFocus; 
        Exit; 
    end; 
    EDUserName.Enabled:=False; 
    EDPwd.Enabled:=False; 
    EDPwd2.Enabled:=False; 
    EDEmail.Enabled:=False; 
    Button1.Enabled:=False; 
    Button2.Enabled:=False; 
    frmMain.TCPData.Socket.SendText('$Z$Check' + frmReg.EDUserName.Text); 
end; 
 
procedure TfrmReg.Button2Click(Sender: TObject); 
begin 
    if Length(EDUserName.Text) > 50 then 
    begin 
        ShowMessage('用户名太长'); 
        EDUserName.SetFocus; 
        Exit; 
    end; 
    if EDUserName.Text = '' then 
    begin 
        ShowMessage('请输入用户名'); 
        EDUserName.SetFocus; 
        Exit; 
    end; 
    if EDPwd.Text = '' then 
    begin 
        ShowMessage('请输入密码'); 
        EDPwd.SetFocus; 
        Exit; 
    end; 
    if EDEmail.Text = '' then 
    begin 
        ShowMessage('请输入邮箱'); 
        EDEmail.SetFocus; 
        Exit; 
    end; 
    if EDPwd.Text <> EDPwd2.Text then 
    begin 
        ShowMessage('两次密码不一样！'); 
        EDPwd.Text:=''; 
        EDPwd2.Text:=''; 
        EDPwd.SetFocus; 
        Exit; 
    end; 
    EDUserName.Enabled:=False; 
    EDPwd.Enabled:=False; 
    EDPwd2.Enabled:=False; 
    EDEmail.Enabled:=False; 
    Button1.Enabled:=False; 
    Button2.Enabled:=False; 
    frmMain.TCPData.Socket.SendText('$Z$Reg'+ Trim(EDUserName.Text) + ' ' + Trim(EDPwd.Text) + ' ' + Trim(EDEmail.Text)); 
end; 
 
procedure TfrmReg.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
    Action:=caFree; 
end; 
 
end.