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;
    btnCancel: TBitBtn;
    btnLogin: TBitBtn;
    edtUid: TEdit;
    edtPwd: TEdit;
    procedure btnLoginClick(Sender: TObject);
  private
    { Private declarations }
    procedure LoginSystem;
  public
    { Public declarations }
  end;

var
  frmLogin: TfrmLogin;

implementation

uses uDM, uGlobal;

var
  i: Integer = 3;

{$R *.dfm}

procedure TfrmLogin.LoginSystem;
var
  aqPer: TADOQuery;
begin
  if edtUid.Text <> '' then
  begin
    Dec(i);
    aqPer := TADOQuery.Create(Self);
    try
      DM.OpenQuery(aqPer, 'select * from admin where uid=' + QuotedStr(Trim(edtUid.Text)) + '');
      if not aqPer.Eof then
      begin
        if aqPer.FieldByName('pwd').AsString = edtPwd.Text then
        begin
          MyApp.UserID := Trim(edtUid.Text);
          MyApp.UserPwd := edtPwd.Text;
          MyApp.Admin  := aqPer.FieldByName('sys').AsBoolean;

          Log.Write('用户' + MyApp.UserID + '登录系统成功');
          ModalResult := mrOk;
        end
        else
        begin
          Log.Write('用户' + edtUid.Text + '登录失败,密码输入错误');
          MessageBox(Handle, '密码有误,请重新输入!', '提示',  mb_IconWarning + mb_Ok);
          edtPwd.Clear;
          edtPwd.SetFocus;
        end
      end
      else
      begin
        if i = 0 then Close;
        Log.Write('用户' + edtUid.Text + '登录失败,帐号不存在');
        MessageBox(Handle, '账号不存在,请重新输入!', '提示',  mb_IconInformation + mb_Ok);
        edtUid.SetFocus;
      end;
    finally
      aqPer.Free;
    end;
  end
  else
  begin
    MessageBox(Handle, '请输入管理员账号!', '提示',  mb_IconInformation + mb_Ok);
    edtUid.SetFocus;
  end;
end;

procedure TfrmLogin.btnLoginClick(Sender: TObject);
begin
  LoginSystem;
end;

end.