【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“LogonFrm.pas”一文,供大家参考学习
unit LogonFrm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TfrmLogon = class(TForm)
lblUserName: TLabel;
cboUserName: TComboBox;
lblPassWord: TLabel;
edtPassWord: TEdit;
btnLogon: TButton;
btnCancel: TButton;
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure btnLogonClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure cboUserNameChange(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
{$R *.DFM}
uses
ConstUnt,
ChangpwdFrm;
procedure TfrmLogon.FormKeyPress(Sender: TObject; var Key: Char);
begin
//如果用户按下了esc键,则关闭登陆窗体
if Key = #$1b then Close;
//如果用户按下了回车键,则将光标移到下一个控件
if key=#13 then
begin
key:=#0;
perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
end;
end;
procedure TfrmLogon.btnLogonClick(Sender: TObject);
begin
//判断输入的登陆用户名称是否为空
if cboUserName.Text = '' then
//输入的登陆用户名称为空,提示重新输入
begin
MessageBox(Handle, PChar(Format(UserNameIsEmpty, ['登陆'])),
MsgI, Msg1IBTN);
Exit;
end;
//输入的登陆用户名称不为空,记录登陆用户的用户名称和密码
LogonInf.UserName := cboUserName.Text;
LogonInf.PassWord := edtPassWord.Text;
//判断输入的登陆用户名称和密码是否合法
LogonInf.Logoned := LogonInf.PWDCorrect;
if LogonInf.Logoned then
//输入的登陆用户名称和密码合法,关闭登陆窗体
Close
else
//输入的登陆用户名称和密码不合法,给出错误提示
MessageBox(Handle, PChar(Format(PassWordError, [''])), MsgI, Msg1WBTN);
end;
procedure TfrmLogon.FormShow(Sender: TObject);
begin
//设置cboUserName组件的值列表
cboUserName.Items := LogonInf.AllUser;
//设置cboUserName组件显示的初时值
cboUserName.ItemIndex :=0;
end;
procedure TfrmLogon.cboUserNameChange(Sender: TObject);
begin
LogonInf.UserName := cboUserName.Text;
end;
procedure TfrmLogon.btnCancelClick(Sender: TObject);
begin
//判断输入或选择的登陆用户名称是否为空
if cboUserName.Text = '' then
//输入或选择的登陆用户名称不为空
begin
MessageBox(Handle, PChar(Format(UserNameIsEmpty, ['密码更改'])),
MsgI, Msg1IBTN);
Exit;
end;
with TfrmChangpwd.Create(Self) do
try
//显示密码修改窗体
ShowModal;
finally
//释放密码修改窗体
Free;
end;
end;
end.
上一篇:
GlobleVarThread.cpp
下一篇:
感人的博士论文致谢词