unit Login; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons; type
TFrmLogin = class(TForm)
Panel1: TPanel;
Label2: TLabel;
Label3: TLabel;
EdName: TEdit;
EdPwd: TEdit;
SbtCancle: TSpeedButton;
SbtOk: TSpeedButton;
procedure SbtCancleClick(Sender: TObject);
procedure SbtOkClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure EdPwdKeyPress(Sender: TObject; var Key: Char);
procedure EdNameKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
IsValid: Boolean;
CurrUser:String;
end; var
FrmLogin: TFrmLogin; implementation uses Enrollment; {$R *.dfm} procedure TFrmLogin.SbtCancleClick(Sender: TObject);
begin
Self.Close;
end; procedure TFrmLogin.SbtOkClick(Sender: TObject);
var
users:TUsers;
begin
try
users :=TUsers.Create(self);
IsValid :=users.LoginIsValid(EdName.Text,EdPwd.Text);
if IsValid then
begin
self.Close;
CurrUser :=EdName.Text ;
end else
begin
MessageDlg(users.ErrPrompt ,mtError, [mbYes], 0);
EdPwd.Text :='';
EdName.SelectAll;
EdName.SetFocus;
end;
finally
users.Free;
end;
end; procedure TFrmLogin.FormActivate(Sender: TObject);
begin
IsValid :=False;
CurrUser :='';
EdName.SetFocus;
end; procedure TFrmLogin.EdPwdKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then SbtOk.Click;
end; procedure TFrmLogin.EdNameKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
if EdName.Text ='' then
begin
MessageDlg('用户名不能为空,请重新输入',mtError, [mbYes], 0);
EdName.SelectAll;
EdName.SetFocus
end else
EdPwd.SetFocus;
end; end.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons; type
TFrmLogin = class(TForm)
Panel1: TPanel;
Label2: TLabel;
Label3: TLabel;
EdName: TEdit;
EdPwd: TEdit;
SbtCancle: TSpeedButton;
SbtOk: TSpeedButton;
procedure SbtCancleClick(Sender: TObject);
procedure SbtOkClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure EdPwdKeyPress(Sender: TObject; var Key: Char);
procedure EdNameKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
IsValid: Boolean;
CurrUser:String;
end; var
FrmLogin: TFrmLogin; implementation uses Enrollment; {$R *.dfm} procedure TFrmLogin.SbtCancleClick(Sender: TObject);
begin
Self.Close;
end; procedure TFrmLogin.SbtOkClick(Sender: TObject);
var
users:TUsers;
begin
try
users :=TUsers.Create(self);
IsValid :=users.LoginIsValid(EdName.Text,EdPwd.Text);
if IsValid then
begin
self.Close;
CurrUser :=EdName.Text ;
end else
begin
MessageDlg(users.ErrPrompt ,mtError, [mbYes], 0);
EdPwd.Text :='';
EdName.SelectAll;
EdName.SetFocus;
end;
finally
users.Free;
end;
end; procedure TFrmLogin.FormActivate(Sender: TObject);
begin
IsValid :=False;
CurrUser :='';
EdName.SetFocus;
end; procedure TFrmLogin.EdPwdKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then SbtOk.Click;
end; procedure TFrmLogin.EdNameKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
if EdName.Text ='' then
begin
MessageDlg('用户名不能为空,请重新输入',mtError, [mbYes], 0);
EdName.SelectAll;
EdName.SetFocus
end else
EdPwd.SetFocus;
end; end.
解决方案 »
- 变量参数和指针参数到底有什么区别?
- 求实现多行标题并行列可以合并的dbgrid或stringGrid源码头
- 运行是程序没反应是什么原因
- 一个简单的CGI问题!!
- 小第有一个做向导的程序,可是有点问题,请大家帮忙. 附:源程序
- 听说RS232C不能直接与RS422接口相连,有没有转换器?
- 关于SQLServer 与 Microsoft Access之间的数据互相导入问题?
- 请问开机用服务运行起的程序,如何不显示界面的问题
- 我该怎么办????????
- 对定义的MEMO数据进行编辑
- 如何在memo中显示16进制数字
- 谁帮忙翻译下这段delphi的话,没一句或块 是什么一是 加个备注或解释一下关键函数就行
unit Login; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons; type
TFrmLogin = class(TForm)
Panel1: TPanel;
Label2: TLabel;
Label3: TLabel;
EdName: TEdit;
EdPwd: TEdit;
SbtCancle: TSpeedButton;
SbtOk: TSpeedButton;
procedure SbtCancleClick(Sender: TObject);
procedure SbtOkClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure EdPwdKeyPress(Sender: TObject; var Key: Char);
procedure EdNameKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
IsValid: Boolean;
CurrUser:String;
end; var
FrmLogin: TFrmLogin; implementation uses Enrollment; {$R *.dfm} procedure TFrmLogin.SbtCancleClick(Sender: TObject);
begin
Self.Close;
end; procedure TFrmLogin.SbtOkClick(Sender: TObject);
var
users:TUsers;
begin
try
users :=TUsers.Create(self);
IsValid :=users.LoginIsValid(EdName.Text,EdPwd.Text); //判断用户是否有效
if IsValid then
begin
self.Close;
CurrUser :=EdName.Text ;
end else
begin
MessageDlg(users.ErrPrompt ,mtError, [mbYes], 0);
EdPwd.Text :='';
EdName.SelectAll;
EdName.SetFocus;
end;
finally
users.Free;
end;
end; procedure TFrmLogin.FormActivate(Sender: TObject);
begin
IsValid :=False;
CurrUser :='';
EdName.SetFocus;
end; procedure TFrmLogin.EdPwdKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then SbtOk.Click;
end; procedure TFrmLogin.EdNameKeyPress(Sender: TObject; var Key: Char); //按键事件
begin
if key=#13 then //回车
if EdName.Text ='' then
begin
MessageDlg('用户名不能为空,请重新输入',mtError, [mbYes], 0);
EdName.SelectAll;
EdName.SetFocus
end else
EdPwd.SetFocus;
end; end.