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

unit Login; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls; 
 
type 
  TfrmLogin = class(TForm) 
    Label1: TLabel; 
    Label2: TLabel; 
    EDUserName: TEdit; 
    EDPwd: TEdit; 
    Button1: TButton; 
    Button2: TButton; 
    procedure Button1Click(Sender: TObject); 
    procedure FormClose(Sender: TObject; var Action: TCloseAction); 
    procedure Button2Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
  const ControlLen = 16; 
 
var 
  frmLogin: TfrmLogin; 
 
 
implementation 
 
uses MainForm, UserReg; 
 
{$R *.dfm} 
 
procedure TfrmLogin.Button1Click(Sender: TObject); 
var 
    Buf:array of Byte; 
    Temp:String; 
begin 
    if IsLogon then 
    begin 
        frmMain.TCPData.Socket.SendText('$Z$Out' + MYName); 
        frmMain.OnlineList.Clear; 
    end; 
    if EDUserName.Text = '' then 
    begin 
        ShowMessage('请输入用户名'); 
        EDUserName.SetFocus; 
        Exit; 
    end; 
    if EDPwd.Text = '' then 
    begin 
        ShowMessage('请输入密码'); 
        EDPwd.SetFocus; 
        Exit; 
    end; 
    EDUserName.Enabled:=False; 
    EDPwd.Enabled:=False; 
    Button1.Enabled:=False; 
    Temp:='$Z$Login' + Trim(EDUserName.Text) + ' ' +Trim(EDPwd.Text); 
    SetLength(Buf,LengTh(Temp)); 
    CopyMemory(@Buf[0],@Temp[1],LengTh(Temp)); 
    frmMain.TCPData.Socket.SendBuf(Buf[0],Length(Buf)); 
    MYName:=EDUserName.Text; 
end; 
 
procedure TfrmLogin.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
    Action:=caFree; 
end; 
 
procedure TfrmLogin.Button2Click(Sender: TObject); 
begin 
    frmReg:=TfrmReg.Create(Self); 
    frmReg.ShowModal; 
end; 
 
end.