denglu.~pas

简单的delphi udp聊天系统,简单的delphi udp聊天系统

unit denglu;

interface

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

type
  TLoginForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    User1: TEdit;
    Label3: TLabel;
    Password1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label4: TLabel;
    procedure FormKeyPress(Sender: TObject;var Key:char);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure Label4MouseEnter(Sender: TObject);
    procedure Label4MouseLeave(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LoginForm: TLoginForm;
  TimeID:Integer;{记录用户登录次数}


implementation

uses chat, zhuce, DataM;


{$R *.dfm}

procedure TLoginForm.BitBtn1Click(Sender: TObject);
begin
TimeID:=TimeID+1;
dm.ADOTable1.Open;//激活adotable控件

if User1.Text='' then
begin //设置用户名不能为空
Application.MessageBox('请输入要登录的用户名！','温馨提示！',MB_OK+MB_ICONWARNING);
User1.Text:='';
User1.SetFocus;
end

else
begin//查询数据库是否有匹配的用户名和密码
dm.ADOTable1.First;
while(User1.Text<>dm.ADOTable1.FieldByName('User_Name').AsString)
And (Password1.Text<>dm.ADOTable1.FieldByName('Pass_word').AsString)
And(dm.ADOTable1.Eof =false)
do
begin

dm.ADOTable1.Next;
end;
if (User1.Text=dm.ADOTable1.FieldByName('User_Name').AsString)
and (Password1.Text=dm.ADOTable1.FieldByName('Pass_word').AsString) then
begin
ModalResult:=mrYes;
MainForm.nickname.Text:=LoginForm.User1.Text;
end
else
begin
if TimeID>3 then
begin//登录次数超过3次的话自动关闭。
Application.Terminate;
end
else if User1.Text<>dm.ADOTable1.FieldByName('User_Name').AsString then
begin
Application.MessageBox('用户名错误，请输入正确的用户名！！','用户名',MB_OK+MB_ICONWARNING);
User1.Text:='';
Password1.Text:='';
User1.SetFocus;
end
else if Password1.Text='' then
begin
Application.MessageBox('请输入密码后再登录','温馨提示',MB_OK+MB_ICONWARNING);
Password1.SetFocus;
end
else
begin
Application.MessageBox('输入密码错误，请重新输入','密码',MB_OK+MB_ICONWARNING);
Password1.Text:='';
Password1.SetFocus;
end;
end;
end;
end;

procedure TLoginForm.BitBtn2Click(Sender: TObject);
begin//推出按钮
dm.ADOTable1.Close ;
Application.Terminate ;
end;

procedure TLoginForm.FormKeyPress(Sender: TObject; var Key:char);
begin
if key = #13 then
begin
BitBtn1.Click;
end;
end;

procedure TLoginForm.FormShow(Sender: TObject);
begin
TimeID := 0;
end;

procedure TLoginForm.Label4Click(Sender: TObject);
begin
ZhuceForm.ShowModal;
User1.Text:='';
Password1.Text:='';
User1.SetFocus;

end;

procedure TLoginForm.Label4MouseEnter(Sender: TObject);
begin
label4.Font.Color:=clred;
Label4.Font.Style:=font.Style+[fsUnderLine];
end;

procedure TLoginForm.Label4MouseLeave(Sender: TObject);
begin
label4.Font.Color:=clFuchsia;
Label4.Font.Style:=[];
end;

end.