loginfrm.pas

基于Interbase的图书管理系统

unit loginfrm;

interface

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

type
  TloginForm = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    edPasswd: TEdit;
    bbtnOK: TBitBtn;
    bbtnCancel: TBitBtn;
    lbhint: TLabel;
    Shape1: TShape;
    Label3: TLabel;
    cbuser: TComboBox;
    procedure CBuserChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure edPasswdChange(Sender: TObject);
    procedure bbtnOKClick(Sender: TObject);
    procedure bbtnCancelClick(Sender: TObject);
    procedure edPasswdKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
 loginForm:TloginForm;

implementation
uses dmfrm;
{$R *.dfm}

procedure TloginForm.CBuserChange(Sender: TObject);
begin
if cBuser.text='' then edPasswd.Visible:=false
   else begin
     edPasswd.Visible:=true;
     edPasswd.SetFocus;
   end;
end;

procedure TloginForm.FormCreate(Sender: TObject);
begin
   edPasswd.Visible:=false;
   bbtnOK.Visible:=false;
   label3.Visible:=false;
    shape1.Visible:=false;
   loginForm.Caption:='安全检验';
end;

procedure TloginForm.edPasswdChange(Sender: TObject);
begin
if edPasswd.Text='' then
 begin
  bbtnOK.Visible:=false;
  label3.Visible:=false;
  shape1.Visible:=false;
 end
   else bbtnOK.Visible:=true;
end;

procedure TloginForm.bbtnOKClick(Sender: TObject);
begin
 with Dmbook do
 begin
   dmbook.QryLogin.First;
   if qrylogin.Locate('username',Cbuser.Text,[]) then
     if qrylogin['userword']=edPasswd.Text then
        begin
       CurrentUsername:=Cbuser.Text;
       ModalResult:=mrOk;
        end
       else begin
              shape1.Visible:=true;
              label3.Visible:=true;
              ModalResult:=mrNone;
              edPasswd.SetFocus;
            end;
 end;
end;

procedure TloginForm.bbtnCancelClick(Sender: TObject);
begin
dmbook.disconnectdbase;
end;

procedure TloginForm.edPasswdKeyPress(Sender: TObject; var Key: Char);
begin
if (key<>#13)and(key<>#8) then key:=chr(ord(key)-10);
end;

end.