ulogin.pas

一个使用UDP开发的消息广播服务与客户端程序

unit Ulogin;

interface

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

type
  Tfrmlogin = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Bevel1: TBevel;
    CheckBox1: TCheckBox;
    Label1: TLabel;
    Label2: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure LabeledEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure LabeledEdit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmlogin: Tfrmlogin;

implementation

{$R *.dfm}

procedure Tfrmlogin.BitBtn1Click(Sender: TObject);
begin
    if (LabeledEdit1.Text='hanfi') and (LabeledEdit2.Text='26723') then
    begin
        Tag:=1;
        close;
    end else
    begin
        Label2.Caption:='拒绝登录至系统';
        Label1.Caption:=Label2.Caption;
    end

end;

procedure Tfrmlogin.BitBtn2Click(Sender: TObject);
begin
    Tag:=0;
    close;
end;

procedure Tfrmlogin.FormCreate(Sender: TObject);
begin
    self.Top:=(screen.Height-self.Height-20) div 2;
    self.Left:=(screen.Width-self.Width) div 2;
    Label2.Caption:='登录至服务器';
    Label1.Caption:=Label2.Caption;
end;

procedure Tfrmlogin.LabeledEdit1KeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
        LabeledEdit2.SetFocus;
end;

procedure Tfrmlogin.LabeledEdit2KeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
        BitBtn1.SetFocus;
end;

end.