untlogin.pas

自动创建带密码的Access数据库及表,第三方控件主要有: ReportMachine3.67 ,WinSkin4.22, DBGridEh等

unit UntLogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, UDM, UntMain, UntIniFile;

type
  TfrmLogin = class(TForm)
    lblUID: TLabel;
    lblPwd: TLabel;
    edtName: TEdit;
    edtPwd: TEdit;
    btnOK: TButton;
    btnCancel: TButton;
    qrySysUse: TADOQuery;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure edtNameKeyPress(Sender: TObject; var Key: Char);
    procedure edtPwdKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    bCanClose : Boolean;
    iCount:integer;
  public
    { Public declarations }
  end;

var
  frmLogin: TfrmLogin;

implementation


{$R *.dfm}

procedure TfrmLogin.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := bCanClose;
end;

procedure TfrmLogin.FormCreate(Sender: TObject);
var
  inifilename : string;
begin
  bCanClose := False;
  iCount := 0;
  iniFileName :=  ExtractFilePath(Application.ExeName)+'LblSetup.ini';
  IniOptions.LoadFromFile(iniFileName);
  edtName.Text := inioptions.OptionLastUser;
end;

procedure TfrmLogin.btnOKClick(Sender: TObject);
begin
  with qrySysUse do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from SysUser where UserName = ');
    SQL.Add(QuotedStr(edtName.Text));
    try
      Open;
    except
      Close;
    end;

    If recordCount > 0 then
      begin
        If (Trim(edtPwd.Text) = Trim(FieldByName('Pwd').AsString)) then
          begin
            frmMain.UserInfo.UID   := FieldByName('UserID').AsInteger;
            frmMain.UserInfo.UName := FieldByName('UserName').AsString;
            frmMain.UserInfo.Pwd   := FieldByName('Pwd').AsString;
            bCanClose := True;
          end
        else
          ShowMessage('用户或密码错误！');
      end;
  end;
  Close;
end;

procedure TfrmLogin.btnCancelClick(Sender: TObject);
begin
  bCanClose := True;
  Close;
end;

procedure TfrmLogin.edtNameKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then edtPwd.SetFocus;
end;

procedure TfrmLogin.edtPwdKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then btnOK.SetFocus;
end;

procedure TfrmLogin.FormShow(Sender: TObject);
begin
  edtPwd.SetFocus;
end;

end.