umqdprepayhistory.pas

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

unit UMQDPrepayHistory;

interface

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

type
  TMQDPrepayHistory = class(TQueryDataModel)
    DataSetPREPAYMETHODID: TFloatField;
    DataSetINPATIENTID: TFloatField;
    DataSetWARRENTCODE: TStringField;
    DataSetISPRINTED: TIntegerField;
    DataSetCHARGE: TFloatField;
    DataSetCREATED: TDateTimeField;
    DataSetUPDATED: TDateTimeField;
    DataSetCREATEBY: TFloatField;
    DataSetUPDATEBY: TFloatField;
  private
    INPATIENTID : IIntegerKey;
  protected
    procedure PrepareQuery(Parameters: MyTools.IQueryParameters); override;
  public
    procedure Append(Parameters: IParameters); override;
    function GetKey: IKey; override;
  end;

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

implementation

{$R *.dfm}

{ TPrepayHistoryFactory }

function TQPrepayHistoryFactory.NewModel: TModel;
begin
  Result := TMQDPrepayHistory.Create(GetOwner);
end;

{ TMQDPrepayHistory }

procedure TMQDPrepayHistory.Append(Parameters: IParameters);
begin
  GetDataSet.FieldByName('INPATIENTID').AsInteger := INPATIENTID.GetKey;
end;

function TMQDPrepayHistory.GetKey: IKey;
begin
  Result := NewKey('INPATIENTID');
end;

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

end.