umqdrecipereckoning.pas

来自「一整套的源代码」· PAS 代码 · 共 42 行

unit UMQDRecipeReckoning;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UQueryDataModel, Provider, OraProvider, MemDS, DBAccess, Ora,
  OraSmart, DB, DBClient, MyTools, MyFactory, UModel;

type
  TMQDRecipeReckoning = class(TQueryDataModel)
  private
    { Private declarations }
  public
    procedure PrepareQuery (Parameters : MyTools.IQueryParameters); override;
  end;

  TQRecipeReckoningFactory = class(TModelFactory)
    function NewModel : TModel; override;
  end;
implementation

uses UPrimaryDataModel;

{$R *.dfm}

{ TQRecipeReckoningFactory }

function TQRecipeReckoningFactory.NewModel: TModel;
begin
  Result := TMQDRecipeReckoning.Create(GetOwner);
end;

{ TMQDRecipeReckoning }

procedure TMQDRecipeReckoning.PrepareQuery(Parameters: IQueryParameters);
begin
  DataSet.ParamByName('reckoningid').AsInteger := IIntegerKey(Parameters).GetKey;
end;

end.