login.pas

Delphi写的权限管理源代码

unit login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, Mask, RzEdit, RzLabel, RzButton, DB,
  ADODB;

type
  TFrmLogin = class(TForm)
    EdtBH: TRzEdit;
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    EdtPwd: TRzEdit;
    BtLogin: TRzButton;
    BtExit: TRzButton;
    procedure EdtPwdKeyPress(Sender: TObject; var Key: Char);
    procedure BtLoginClick(Sender: TObject);
    procedure BtExitClick(Sender: TObject);
  private

    { Private declarations }
  public

    { Public declarations }
  end;

var
  FrmLogin: TFrmLogin;
  i: integer = 0;

implementation

uses Dm, main;

{$R *.dfm}


procedure TFrmLogin.EdtPwdKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    BtLogin.Click;
end;

procedure TFrmLogin.BtLoginClick(Sender: TObject);
begin
  FrmDm.QLogin.Close;
  FrmDm.QLogin.SQL.Text := 'select * from jy where jybh=' + quotedstr(Trim(EdtBH.Text))
    + ' and PWD=' + quotedstr(EdtPwd.Text);
  FrmDM.QLogin.Open;
  if Trim(FrmDM.QLogin.FieldByName('jybh').AsString) = '' then
  begin
    MessageBox(0, '警员编号或密码输入有误！', '提示', MB_ICONWARNING + mb_OK);
    i := i + 1;
    if i = 3 then
    begin
      MessageBox(0, pchar('对不起,你输入错误次数过多！' + #13 + '    请与系统管理联系！'), '提示', MB_ICONWARNING + mb_OK);
     // ModalResult := mrCancel;
      application.Terminate;
    end;
  end
  else
  begin
    ModalResult := mrOK;
  end;
end;

procedure TFrmLogin.BtExitClick(Sender: TObject);
begin
  //ModalResult := mrCancel;
  application.Terminate;
end;

end.