frm_loginu.~pas

快餐店管理系统 很好的参考材料 谢谢您的合作

unit frm_loginU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,ClassesU,ADODB;

type
  Tfrm_login = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    edt_name: TEdit;
    edt_pwd: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    btn_ok: TButton;
    btn_cancel: TButton;
    procedure btn_cancelClick(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_login: Tfrm_login;
  inputNum:integer; //记录用户输入次数
implementation
uses Control_OperatorU,Config, frm_mainU;
{$R *.dfm}

procedure Tfrm_login.btn_cancelClick(Sender: TObject);
begin
Application.Terminate;
end;

procedure Tfrm_login.btn_okClick(Sender: TObject);
var
  OpID,OpPwd:string;
  Op:TOperator;
begin
 Config.ADOCon:=TADOConnection.Create(nil);
 Config.ADOCon.LoginPrompt:=false;
 Config.ADOCon.KeepConnection:=true;
  begin
    Config.ADOCon.ConnectionString:=Config.connectionStr;
    Config.ADOCon.Open;
  end;
 OpID:=self.edt_name.Text;
 OpPwd:=self.edt_pwd.Text;
 Op:=TOperator.Create;
 Op:=Control_OperatorU.CheckOperator(OpID,OpPwd);
 if (Op=nil) then
  begin
    MessageBox(Handle, '用户名或密码错误！', '信息', MB_ICONEXCLAMATION);
    inc(inputNum);
    if(inputNum>2)then
      begin
        MessageBox(Handle, '输入错误次数超过3次！', '信息', MB_ICONEXCLAMATION);
        Application.Terminate;
      end;
  end
 else
  begin
    frm_main.Visible:=true;
    frm_main.CurrentUser:=Op;//保存当前用户
    //根据用户权限设置菜单
    if(Op.privilege='操作员') then
      begin
        frm_main.Ndishes.Enabled:=false;
        frm_main.Ndrink.Enabled:=false;
        frm_main.Noperator.Enabled:=false;
      end;
    self.Close;
  end;
end;

procedure Tfrm_login.FormCreate(Sender: TObject);
begin
inputNum:=0;//初始化记录用户输入次数
end;

end.