ulogin.pas

这是一个门禁系统的应用程序,用 delphi编写,希望与大家交流.

unit ulogin;

interface

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

type
  TfrmLogin = class(TForm)
    lbllogin: TLabel;
    lbluid: TLabel;
    lblpwd: TLabel;
    bbtncancel: TBitBtn;
    bbtnlogin: TBitBtn;
    edtUid: TEdit;
    edtPwd: TEdit;
    procedure bbtnloginClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmLogin: TfrmLogin;

implementation

uses udata, uglobal, umain;

var
  i: Integer = 3;

{$R *.dfm}

procedure TfrmLogin.FormShow(Sender: TObject);
begin
  self.AlphaBlend := true;
  self.AlphaBlendValue := 125;
end;

procedure TfrmLogin.bbtnloginClick(Sender: TObject);
var
  aqPer: TADOQuery;
begin
  if edtuid.Text <> '' then
  begin
    Dec(i);
    aqPer := TADOQuery.Create(nil);
    aqPer.Connection := dmPer.acPer;
    aqPer.SQL.Text := 'select * from admin where uid=' + QuotedStr(Trim(edtuid.Text)) + '';
    aqPer.Open;
    if not aqPer.Eof then
    begin
      if aqPer.FieldByName('pwd').AsString = edtpwd.Text then
      begin
        sUserID := Trim(edtuid.Text);
        sUserPwd := edtpwd.Text;
        if aqPer.FieldByName('sys').AsBoolean then
          sysadmin := true
        else
          sysadmin := false;
        self.ModalResult := mrOk;
      end
      else
      begin
        MessageBox(self.Handle, '密码有误,请重新输入!', '提示',  mb_IconWarning + mb_Ok);
        edtPwd.Clear;
        edtPwd.SetFocus;
        Exit;
      end
    end
    else
    begin
      if i = 0 then Close;
      MessageBox(self.Handle, '账号不存在,请重新输入!', '提示',  mb_IconInformation + mb_Ok);
      edtUid.Clear;
      edtUid.SetFocus;
      Exit;
    end;
  end
  else
  begin
    MessageBox(self.Handle, '请输入账号!', '提示',  mb_IconInformation + mb_Ok);
    edtUid.SetFocus;
    Exit;
  end;
end;  

end.