operatorlogin_unit.pas

仓库管理系统 貌似是ACCESS的数据库

unit OperatorLogin_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls,Main_Unit;

type
  TfrmOperatorLogin = class(TForm)
    lblOperatorID: TLabel;
    lblOperatorPwd: TLabel;
    Image1: TImage;
    edtOperatorID: TEdit;
    edtOperatorPwd: TEdit;
    btnLogin: TBitBtn;
    btnCancel: TBitBtn;
    procedure btnCancelClick(Sender: TObject);
    procedure btnLoginClick(Sender: TObject);
    procedure edtOperatorIDKeyPress(Sender: TObject; var Key: Char);
    procedure edtOperatorPwdKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    MR:Boolean;
  end;

var
  frmOperatorLogin: TfrmOperatorLogin;

implementation

uses DM_Unit;

{$R *.dfm}

procedure TfrmOperatorLogin.btnCancelClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TfrmOperatorLogin.btnLoginClick(Sender: TObject);
begin
  if (Trim(edtOperatorID.Text)='') or (Trim(edtOperatorPwd.Text)='') then
  begin
    ShowMessage('用户编号和用户密码都不能为空');
    Exit;
  end;
  //验证用户是否有权限登陆
  if DM.CheckOperatorLogin(Trim(edtOperatorID.Text),Trim(edtOperatorPwd.Text))= true then
    Close;
  frmWarehouseMain.Int_flag := 0;
  frmWarehouseMain.mmLogOut.Caption:='注销';
end;

procedure TfrmOperatorLogin.edtOperatorIDKeyPress(Sender: TObject;
  var Key: Char);
begin
  if Key = #13 then
  begin
    Perform(WM_NEXTDLGCTL, 0, 0);
    Key := #0;
  end;
end;

procedure TfrmOperatorLogin.edtOperatorPwdKeyPress(Sender: TObject;
  var Key: Char);
begin
  if Key = #13 then
  begin
    btnLoginClick(sender);
  end;
end;

procedure TfrmOperatorLogin.FormShow(Sender: TObject);
begin
  edtOperatorID.Text := '';
  edtOperatorPwd.Text := '';
  edtOperatorID.SetFocus;
end;

end.