c_pass.pas

《delphi数据库设计与实例开发》随书光盘

unit c_pass;

interface

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

type
  Tcfrm_pass = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cfrm_pass: Tcfrm_pass;
  i:integer;//验证密码次数

implementation
uses datam,c_mainform,c_editpass, CommonRoutines;

{$R *.dfm}

procedure Tcfrm_pass.FormShow(Sender: TObject);
begin
  edit1.SetFocus;
end;

procedure Tcfrm_pass.BitBtn1Click(Sender: TObject);
begin
dm.ADO_user.Open;
   dm.ADO_user.First;
   dm.ADO_user.Locate('主管','true',[]);
   if edit1.Text<>dm.ADO_user.FieldByName('口令').AsString then
     begin
      i:=i+1;
      if i<3 then
        begin
         application.MessageBox(pchar('管理员密码错误！'),pchar('提示'),48);
         edit1.Text:='';
         edit1.SetFocus();
         exit;
        end
      else
         begin
          application.MessageBox(pchar('密码错误3次,拒绝进入！'),pchar('提示'),48);
          close;
         end;
      end
   else
    begin
     cfrm_editpass:=tcfrm_editpass.create(application);
     cfrm_editpass.showmodal;
     cfrm_pass.Hide;
    end;
end;

procedure Tcfrm_pass.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
   begin
    Bitbtn1.OnClick(Bitbtn1);
   end;
end;

procedure Tcfrm_pass.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tcfrm_pass.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 dm.ADO_user.Close;
  release;
end;

end.