uldialog.pas

Software Requirements1. Delphi 6 SP22. Oracle 8i R33. Raize 3.0.94. ExpressQuantumGrid 4.505. Expres

unit ULDialog;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, RzBckgnd, ExtCtrls, RzPanel, StdCtrls, RzLabel, Mask,
  RzEdit, RzButton,
  MyTools, UQueryDataModel;

type
  TLDialog = class(TForm)
    RzBackground1: TRzBackground;
    RzPanel1: TRzPanel;
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    EditLoginName: TRzEdit;
    EditPassword: TRzMaskEdit;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    procedure RzBitBtn1Click(Sender: TObject);
  private
    QModel: TQueryDataModel;
  public
    function GetKey: IKey;
    constructor Create(Owner: TComponent); override;
    destructor Destroy; override;
  end;

function Login: Integer;

implementation

{$R *.dfm}

uses
  Factory, UMQDEmployeeFind;

constructor TLDialog.Create(Owner: TComponent);
begin
  inherited;
  QModel := TQueryDataModel(EmployeeFindFactory.GetModel);
end;

destructor TLDialog.Destroy;
begin
  EmployeeFindFactory.FreeModel;
  inherited;
end;

function TLDialog.GetKey: IKey;
begin
  Result := QModel.GetKey;
end;

procedure TLDialog.RzBitBtn1Click(Sender: TObject);
var
  QParameters: IQueryParameters;
  List: TStringList;
begin
  List := TStringList.Create;
  List.Add('LoginName=' + Trim(EditLoginName.Text));
  List.Add('Password=' + Trim(EditPassword.Text));
  QParameters := TQueryParameters.Create(List);
  QModel.Query(QParameters);
  if not QModel.GetDataSet.Active or QModel.GetDataSet.IsEmpty then ShowMessage('登名或者口令错误')
  else ModalResult := mrOk
end;

function Login: Integer;
var
  Dialog: TLDialog;
begin
  Dialog := TLDialog.Create(Application);
  if Dialog.ShowModal = mrOk then
    Result := IIntegerKey(Dialog.GetKey).GetKey
  else
    Result := -1;
  Dialog.Free;
end;

end.