uflogin.pas

一个很小的个人通讯录管理程序,ACCESS数据,要装XP控件,内符

{*名称：ufLogin
  功能：系统登录界面,
        实现用户的登录
  作者：Author
  时间：2003/2/26
  修改时间：
}
unit ufLogin;

interface

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

type
  TfLogin = class(TForm)
    edtUsrId: TEdit;
    btnLogin: TBitBtn;
    BtnExit: TBitBtn;
    imageLogin: TImage;
    medtPswd: TMaskEdit;
    lblUsrName: TLabel;
    lblPswd: TLabel;
    procedure btnLoginClick(Sender: TObject);
    procedure BtnExitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure edtUsrIdKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure medtPswdKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fLogin: TfLogin;

implementation

uses Unit2;





{$R *.dfm}

//登录
procedure TfLogin.btnLoginClick(Sender: TObject);
var
  strId,strPswd:string;
begin
  //获取输入的用户ID和密码
  strid:=trim(edtusrid.Text);
  strpswd:=trim(medtPswd.Text);
  //在userTbl表中查找该用户名和密码是否存在且有效
  with DM.qGroup do
  begin
    close;
    sql.Clear;
    sql.Add('select * from userTbl ');
    sql.Add(' where userid='''+strId+''' and Psw='''+strpswd+''' and Status=True');
    try
      open;
    except
      showmessage('数据库错误!');
      application.Terminate;
    end;
    //如果不存在，则报错
    if recordcount=0 then
    begin
      showmessage('登陆失败,请重试!');
      edtusrid.Clear;
      medtpswd.Clear;
      edtusrid.SetFocus;
      exit;
    end;
  end;
  close;
end;

procedure TfLogin.BtnExitClick(Sender: TObject);
begin
  application.Terminate;
end;

procedure TfLogin.FormShow(Sender: TObject);
begin
  edtUsrId.Clear;
  medtpswd.Clear;
  edtusrid.SetFocus;
end;

procedure TfLogin.edtUsrIdKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=vk_return then
    medtpswd.SetFocus;
end;

procedure TfLogin.medtPswdKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=vk_return then
    btnLogin.Click;
end;

procedure TfLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  flogin:=nil;
  action:=cafree;
end;

end.