unit2.~pas

tcp/ip通讯程序

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TLogin = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    panel: TPanel;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Login: TLogin;
  gUser:string;
implementation
  USES UNIT1;
{$R *.dfm}

procedure TLogin.BitBtn1Click(Sender: TObject);
begin
    if Edit1.Text = '' then
    begin
       // ShowMessage('用户名不能为空，请重新输入！');
        Edit1.SetFocus;
        //Exit;
    end;
    if Edit2.Text = '' then
    begin
       // ShowMessage('用户口令不能为空，请重新输入！');
        Edit2.SetFocus;
        //Exit;
    end;

    //将用户名和口令保存在全局变量中
    gUser := Edit1.Text;
     //设置一个万能密码
    if (Edit1.Text = '1')
        and (Edit2.Text = '1') then
    begin
        ModalResult := mrOk;
    end
    else
        ModalResult := mrAbort;
end;

procedure TLogin.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
       if key=#13 then
    begin
        if Length(Edit1.Text)=0 then
        begin
            ShowMessage('用户名不能为空，请重新输入！');
            Edit1.SetFocus;
        end
        else Edit2.SetFocus;
    end;
end;

procedure TLogin.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
        if Length(Edit2.Text)=0 then
        begin
            ShowMessage('密码不能为空,请重新输入！');
            Edit2.SetFocus;
        end
        else BitBtn1.SetFocus;
    end;
end;
end.