ffrmlogin.pas

来自「财务软件:功能尚可,基于UML设计开发的delphi系统,文档齐全」· PAS 代码 · 共 104 行

unit FfrmLogin;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons, Db, DBTables, RXCtrls;

type
  TfrmLogin = class(TForm)
    BitBtn1: TBitBtn;
	BitBtn2: TBitBtn;
    Label1: TLabel;
    edtUser: TEdit;
    Label2: TLabel;
    edtPwd: TEdit;
    Image1: TImage;
    Shape1: TShape;
    RxLabel1: TRxLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure BitBtn1Click(Sender: TObject);
  private
	{ Private declarations }
  public
	LoginSuccess:Boolean;
	{ Public declarations }
  end;

var
  frmLogin: TfrmLogin;


implementation

uses FdmMain, BaseVar;

{$R *.DFM}

procedure TfrmLogin.BitBtn2Click(Sender: TObject);
begin
	Application.Terminate ;
end;

procedure TfrmLogin.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
      Key := #0;
      Perform(WM_NEXTDLGCTL, 0, 0);
  end;
end;

procedure TfrmLogin.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if LoginSuccess then
	begin
		CanClose:=True;
	end
	else
  begin
    CanClose:=False;
		MessageBox(Handle,'登录失败！','信息窗口',MB_ICONINFORMATION);
  end;
end;

procedure TfrmLogin.BitBtn1Click(Sender: TObject);
var
  vPath:String;
  sSQL:String;
  s:WideString;
begin
	if (edtUser.text='Administrator') and (edtPwd.text='XXH') then
	begin
		LoginSuccess:=True;
		UCode:='888';
		UName:='Administrator';
		UPwd:='G';
	end
	else
	begin
    try
      if dmMain.sckUPower.AppServer.ConfirmLogin(edtUser.Text,edtPwd.Text,'',SystemName,UDep,UName,UOther)  then
      begin
        ModalResult:=mrOK;
        LoginSuccess:=true;
        UCode:= edtUser.Text;
      end
      else
      begin
        LoginSuccess:=False;
        MessageBox(handle,'登录失败！请核对用户编码和口令！','提示窗口',mb_iconInformation);
      end;
    except
      LoginSuccess:=False;
      MessageBox(handle,'登录失败！请核对用户编码和口令！','提示窗口',mb_iconInformation);
    end;
	end;
  close;
end;

end.