Measure/TenderPartition/tpSelectTenderNode.pas

unit tpSelectTenderNode;

interface

uses
  Classes, sdIDTree, sdDB;

type
  TtpSelectTenderNode = class
  private
    FID: Integer;
    FSerialNo: Integer;
    FName: string;
    FFileName: string;
    FTotalPrice: Double;
    FNodeCount: Integer;
  public
    constructor Create(ANode: TsdIDTreeNode);
    destructor Destroy; override;

    property ID: Integer read FID;
    property SerialNo: Integer read FSerialNo;
    property Name: string read FName;
    property FileName: string read FFileName;
    property TotalPrice: Double read FTotalPrice;

    property NodeCount: Integer read FNodeCount write FNodeCount;
  end;

implementation

{ TtpSelectTenderNode }

constructor TtpSelectTenderNode.Create(ANode: TsdIDTreeNode);
begin
  FID := ANode.ID;
  FSerialNo := ANode.MajorIndex;
  FName := ANode.Rec.ValueByName('Name').AsString;
  FFileName := ANode.Rec.ValueByName('FileName').AsString;
  FTotalPrice := ANode.Rec.ValueByName('DealTotalPrice').AsFloat;
end;

destructor TtpSelectTenderNode.Destroy;
begin
  inherited;
end;

end.