frm_loginu.pas

实现对手机用户及通话信息的管理。分为管理员和用户两部分功能。能进行查询、修改、添加、删除等。移动电话管理系统

unit frm_loginU;

interface

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

type
  TTfrm_login = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    edt_name: TEdit;
    Label2: TLabel;
    edt_pwd: TEdit;
    btn_ok: TButton;
    btn_exit: TButton;
    btn_reg: TButton;
    procedure btn_exitClick(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Tfrm_login: TTfrm_login;
  inputNum:integer;
implementation
 uses Control_OperatorU,Config;
{$R *.dfm}

procedure TTfrm_login.btn_exitClick(Sender: TObject);
begin
Application.Terminate;
end;

procedure TTfrm_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);     //用户输入密码次数加1
      if(inputNum>2)then
        begin
          MessageBox(Handle, '输入错误次数超过3次！', '信息', MB_ICONEXCLAMATION);
          Application.Terminate;
        end;
    end
  else     //用户名密码匹配成功
    begin
      frm_main.Visible:=true;   //打开程序主窗口
      frm_main.CurrentUser:=Op;//保存当前用户
      Frm_main.SetMmenu(Op.privilege); //根据用户权限修改主菜单
      self.Close;      //关闭登录窗口
    end;
end;

procedure TTfrm_login.FormCreate(Sender: TObject);
begin
inputNum:=0;
end;

end.