unitlogin.pas

评估系统

unit unitLogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMan, StdCtrls, DBCtrls, ExtCtrls, jpeg,unitDM, DB, ADODB;

type
  TfrmLogin = class(TForm)
    Image1: TImage;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    edtpass: TEdit;
    btnOK: TButton;
    Button2: TButton;
    Bevel2: TBevel;
    dbLC: TDBLookupComboBox;
    procedure btnOKClick(Sender: TObject);
    procedure edtpassKeyPress(Sender: TObject; var Key: Char);
    procedure dbLCClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    tabPass:TADOtable;
    tempDS: TDataSource;
    user_Name:string;
    user_ID:integer;
    isAD: Boolean;
  public
    { Public declarations }
  end;

var
  frmLogin: TfrmLogin;
const
  frmCaption:string='网站评估系统';

function frmLoginCr(var u_name:string;var u_ID:integer;var isAdmini:Boolean):integer;

implementation

uses unitSysMan;

{$R *.dfm}

function frmLoginCr(var u_name:string;var u_ID:integer;var isAdmini:Boolean):integer;
var
  temp:TfrmLogin;
begin
  temp:=TfrmLogin.Create(Application);
  try
    result:=temp.ShowModal;
    u_name:=temp.user_Name;
    u_ID:=temp.user_ID;
    isAdmini := temp.isAD;
  finally
    temp.Free;
  end;
end;

procedure TfrmLogin.btnOKClick(Sender: TObject);
begin
  if edtPass.Text = tabPass.Fields.FieldByName('passwd').AsString then
  begin
    user_name:=tabPass.Fields.fieldbyname('user').AsString;
    user_ID:=tabPass.Fields.fieldbyname('ID').AsInteger;
    isAD:=tabPass.Fields.fieldbyname('isAdmin').AsBoolean;
    btnOK.ModalResult := mrOK;
    close;
  end
  else
  begin
    MessageBox(handle,'用户名/密码不正确！','提示',mb_OK+mb_IconInformation);
    user_ID:=0;
    btnOK.ModalResult := mrNone;
  end;
end;

procedure TfrmLogin.edtpassKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
  begin
    Key:=#0;
    btnOkClick(sender);
  end;
end;

procedure TfrmLogin.dbLCClick(Sender: TObject);
begin
  edtPass.SetFocus;
end;

procedure TfrmLogin.FormCreate(Sender: TObject);
begin
  tabPass:=TADOTable.Create(Application);
  tabPass.Connection := DM.AC;
  tabPass.TableName := 'SysPassword';
  tempDS:= TDataSource.Create(Application);
  tempDS.DataSet := tabPass;
  if tabPass.Active = false then
    tabPass.Active := true;
  dbLC.ListSource:=tempDS;
  sleep(500);
  dbLC.ListField := 'user';
  dbLC.KeyField := 'ID';
end;

procedure TfrmLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  tempDS.Free; 
  tabPass.Free;
end;

procedure TfrmLogin.Button2Click(Sender: TObject);
begin
  user_ID:=0;
end;

end.