logonfrm.pas

仓库管理Delphi源码、软件方案,学习实用两不误

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
  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.Items := LogonInf.AllUser;
  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.