login.pas

SunwayERP框架(支持Plugin)

unit Login;

interface

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

type
  TfrmLogin = class(TfrmBaseDlgForm)
    Label1: TLabel;
    Label2: TLabel;
    edtUserID: TEdit;
    edtPassword: TEdit;
    procedure edtUserIDChange(Sender: TObject);
    procedure btnOkClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmLogin: TfrmLogin;
  i:integer = 0;

implementation

uses Main;

{$R *.dfm}

procedure TfrmLogin.edtUserIDChange(Sender: TObject);
begin
  inherited;
  btnOk.Enabled:=(Trim(edtUserID.Text)<>'');
end;

procedure TfrmLogin.btnOkClick(Sender: TObject);
var
  TmpQuery:TADOQuery;
begin
  inherited;
  i:=i+1;
  TmpQuery:=TADOQuery.Create(Self);
  with TmpQuery do
    begin
      Connection:=frmMain.ADOConn;
      SQL.Text:='Select * from USERS where USERID='''+Trim(edtUserID.Text)+'''';
      try
        Open;
      except
        Messagebox(Handle,'打开数据表出错, ID = USERS','系统提示',mb_ok+mb_iconError);
        Close;
      end;
        if isempty then Messagebox(Handle,'用户名不存在,请核对后重新输入!','验证失败',mb_okcancel+mb_iconError)
        else if Trim(edtPassword.Text)<>Fieldbyname('USERPASSWORD').AsString then
          Messagebox(Handle,'密码错误,请核对后重新输入!','验证失败',mb_okcancel+mb_iconError)
        else
          begin
            Main.Logined:=True;
            Main.UserID:=Trim(edtUserID.Text);
            frmMain.StatusBar1.Panels[2].Text:=Trim(edtUserID.Text);
            frmMain.N6.Caption:='注销登录';
            frmMain.N7.Enabled:=True;
            frmMain.N6.Tag:=1;
            Modalresult:=mrok;
          end;

      if i=3 then
        begin
          Messagebox(Handle,'你已经超过三次错误登录,系统将退出!','系统提示',mb_ok+mb_iconInformation);
          Modalresult:=mrCancel;
        end;

    end;
  TmpQuery.Free;
end;

procedure TfrmLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
  inherited;
end;

procedure TfrmLogin.FormCreate(Sender: TObject);
begin
  inherited;
  i:=0;
end;

end.