umaddepartmentstockoutback.pas

医院信息管理系统 后台采用ORACLE

unit UMADDepartMentStockOutBack;

interface

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

type
  TMADDepartMentStockOutBack = class(TMADDepartMentStockOut)
  private
    DEPARTMENTID : IIntegerKey;
  protected
    procedure PrepareQuery(Parameters: MyTools.IQueryParameters); override;
  public
    procedure Append(Parameters: IParameters); override;
  end;

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

implementation

{$R *.dfm}

{ TDepartMentStockOutBackFactory }

function TDepartMentStockOutBackFactory.NewModel: TModel;
begin
  Result := TMADDepartMentStockOutBack.Create(GetOwner);
end;

{ TMADDepartMentStockOutBack }

procedure TMADDepartMentStockOutBack.Append(Parameters: IParameters);
begin
  inherited;
  GetDataSet.FieldByName('PSTOCKOUTORDER_DEPARTMENTID').AsInteger := DEPARTMENTID.GetKey;
end;

procedure TMADDepartMentStockOutBack.PrepareQuery(
  Parameters: IQueryParameters);
begin
  inherited;
  DataSet.ParamByName('PSTOCKOUTORDER_DEPARTMENTID').AsInteger := IIntegerKey(Parameters).GetKey;
  DEPARTMENTID := IIntegerKey(Parameters);
end;

end.