unit class_measure;

interface

uses SysUtils, Classes, Dialogs, DataUnit, ConstUnit, DB,
     check_user_data, user_types, class_point, class_counted_values, class_diagnoz;

type
  TRDMeasure = class (TObject)
    private
      ID:             string;             //порядковый номер
      date:           string;             //дата
      description:    string;             //описание измерения

    //информация о пациенте
      patinent_id:          string;
      patinent_sirname:     string;
      patinent_first_name:  string;
      patinent_middle_name: string;

      function Set_measure_id( in_measure_id: string ): boolean;
      function Set_measure_date( in_measure_date: string ): boolean;
      function Set_measure_opisanie( in_measure_description: string ): boolean;

      function Set_measure_patient_id( in_patient_id:string ): boolean;
      function Set_measure_patient_sirname( in_patient_sirname: string ): boolean;
      function Set_measure_patient_first_name( in_patient_first_name: string ): boolean;
      function Set_measure_patient_middle_name( in_patient_middle_name: string ): boolean;

    public
      initial_values: TRD_List;
      counted_values: TRDCounted_Values;
      diagnoz:        TRDMeasure_diagnoz;

      //функция установки информации об измерении
      //функция установки информации о пациенте

      constructor Create;  virtual;
      destructor  Destroy; override;

end;


implementation

constructor TRDMeasure.Create;
begin
  inherited Create;
  initial_values := TRDPoint_List.Create();
  counted_values := TRDCounted_Values.Create;
  diagnoz := TRDMeasure_diagnoz.Create;
end;
destructor TRDMeasure.Destroy;
begin

   inherited;
end;

function TRDMeasure.Set_measure_id( in_measure_id: string ): boolean;
begin

end;

function TRDMeasure.Set_measure_date( in_measure_date: string ): boolean;
begin

end;

function TRDMeasure.Set_measure_opisanie( in_measure_description: string ): boolean;
begin

end;

function TRDMeasure.Set_measure_patient_id( in_patient_id: string ): boolean;
begin

end;

function TRDMeasure.Set_measure_patient_sirname( in_patient_sirname: string ): boolean;
begin

end;

function TRDMeasure.Set_measure_patient_first_name( in_patient_first_name: string ): boolean;
begin

end;

function TRDMeasure.Set_measure_patient_middle_name( in_patient_middle_name: string ): boolean;
begin

end;


end.
