ulogin.pas

delphi 源码 小型企业管理软件

unit ULogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, Buttons, ExtCtrls, Grids, DBGrids, JvExControls,
  JvComponent, JvEnterTab;

type
  TFrmLogin = class(TForm)
    edUID: TLabeledEdit;
    btnOk: TBitBtn;
    BitBtn2: TBitBtn;
    edUPass: TMaskEdit;
    Label1: TLabel;
    JvEnterAsTab1: TJvEnterAsTab;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure btnOkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmLogin: TFrmLogin;

function Login:Boolean;

implementation

uses uDM, uFunc;

{$R *.dfm}


function Login:Boolean;
begin
  FrmLogin:= TFrmLogin.Create(nil);

  with FrmLogin do
  try
    if pos('autologin',CmdLine)>0 then begin
      edUID.Text := 'admin';
      edUPass.Text := 'manager';
      btnOk.Default := True;
    end;
    Result := ShowModal=mrOk;

    if Result then begin
      CurUserID := edUID.Text ;
    end;
  finally
    Free;
  end;

end;

procedure TFrmLogin.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then Perform(WM_NEXTDLGCTL,0,0);
end;

procedure TFrmLogin.btnOkClick(Sender: TObject);
begin
  if GetQuery('select 1 from users where uid=%s and csum=Binary_Checksum(%s)'
    ,[QuotedStr(edUID.Text),QuotedStr(edUPass.Text+'nba')]).IsEmpty then
  begin
    ModalResult := mrNone;
    ShowMessage('帐号或密码错误，请重新输入！');
    edUID.SetFocus;
  end;
end;

end.