unit BM_LOGINU;

interface

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

type
  TBM_LOGINF = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Image1: TImage;
    edtPassword: TEdit;
    edtAliasName: TEdit;
    Panel2: TPanel;
    btnOK: TSpeedButton;
    btnCancel: TSpeedButton;
    procedure btnOKClick(Sender: TObject);
    procedure edtAliasNameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtPasswordKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure btnCancelClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BM_LOGINF: TBM_LOGINF;
   Logined: Boolean = false;
   function LoginExecute(aFormClass: TFormClass): Boolean; //打開登錄窗口，并判斷是否登錄成功

implementation

uses BM_DMU, BM_OFICEU;

{$R *.dfm}
 function LoginExecute(aFormClass: TFormClass): Boolean;
begin
  with aFormClass.Create(Application) do
  begin
    Logined := False;
    try
      showModal;
    finally
      free;
    end;
    result := Logined;
  end;
end;
procedure TBM_LOGINF.btnOKClick(Sender: TObject);
var
vLogined: variant;
sql2,bumen:string;
begin

 with dm.User do
 begin
   Close ;

   sql.Clear;
   sql2:='select A.*,B.部門編碼,B.部門名稱 from 用戶權限 A,部門 B where A.用戶名稱= "';
   sql2:=sql2+ edtAliasName.TEXT+'"'+' and A.密碼= "'+ edtPassword.Text +'"';
   sql2:=sql2+ ' and A.部門=B.部門編碼';
   sql.Add(sql2);
   open;

   if RecordCount> 0 then vLogined:=true
   else vLogined:=false;
 end;

  if  vLogined=false then
  begin
    Application.MessageBox('用戶名和密碼不正確，請重新輸入', '提示信息', mb_iconInformation + mb_defbutton1);
    exit;
  end
  else
  begin

 BM_OFFICEF.StatusBar1.Panels[0].TEXT :='系統提示:' ;
 BM_OFFICEF.StatusBar1.Panels[1].TEXT := '北明公司:    '+dm.User.Fields[6].AsString+'   操作員:    ' +dm.User.Fields[4].AsString ;
 BM_OFFICEF.StatusBar1.Panels[2].TEXT := '登陸時間:    '+FormatDateTime('YYYY"年" MMMM DD"日" TT',now);
 end;

  Logined := true;
  Close;
end;

procedure TBM_LOGINF.edtAliasNameKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
    edtPassword.setfocus;
end;

procedure TBM_LOGINF.edtPasswordKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
    btnOK.click;
end;

procedure TBM_LOGINF.btnCancelClick(Sender: TObject);
begin
  if Application.MessageBox('請確認是否退出本系統', '提示信息', mb_iconinformation + mb_YesNo) = id_yes then
  application.Terminate ;

end;

procedure TBM_LOGINF.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
// canclose:=false;
 //if Application.MessageBox('請確認是否退出本系統', '提示信息', mb_iconinformation + mb_YesNo) = id_yes then
 // canclose:=true;
  //application.Terminate ;
end;

end.