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;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    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.