mORMot Open Source

type  
  TSQLAttributesRec = class(TSQLRecord)
  private
      fObjID, fPackedObj, fSize, fUseCount, fUnpackedObj :Integer;
      fExtension, fFilePath, fMimeType, fFName, fSha :RawUTF8;
      fBlob :TSQLRawBlob;
      procedure SetBlob(const Value:TSQLRawBlob);
  published
      property ObjID: Integer Read fObjID Write fObjID;
      property PackedObj: Integer Read fPackedObj Write fPackedObj;
      property Size: Integer Read fSize Write fSize;
      property UseCount: Integer Read fUseCount Write fUseCount;
      property UnpackedObj: Integer Read fUnpackedObj Write fUnpackedObj;
      property Extension: RawUTF8 Read fExtension write fExtension;
      property FilePath: RawUTF8 Read fFilePath write fFilePath;
      property MimeType: RawUTF8 Read fMimeType write fMimeType;
      property Name: RawUTF8 Read fFName write fFName;
      property Sha: RawUTF8 Read fSha write fSha;
      property Blob: TSQLRawBlob read fBlob write SetBlob;
   public
  end;

procedure TSQLAttributesRec.SetBlob(const Value:TSQLRawBlob);
begin
  ...
end;

property FirstOne: TSQLMyFileInfo read FFirstOne write FFirstOne;
property SecondOne: TSQLMyFileInfo read FSecondOne write FSecondOne;

  MyFile := TSQLMyFile.CreateJoined(Client,aMyFileID); 

 { Table cat_passself }
  TSQLcat_passself = class(TSQLRecord)
  private
    fid_passage: Integer;
    fdate_passself, flibelle_repas, fnumero_ticket, foperateur, fprix_repas, fprix_repas_recalcul,
    fsubvention_fixe, fsubvention_cent : RawUTF8;
  published
    property id_passage: Integer Read fid_passage Write fid_passage;
    property date_passself: RawUTF8 Read fdate_passself Write fdate_passself;
    property libelle_repas: RawUTF8 Read flibelle_repas Write flibelle_repas;
    property numero_ticket: RawUTF8 Read fnumero_ticket Write fnumero_ticket;
    property operateur: RawUTF8 Read foperateur Write foperateur;
    property prix_repas: RawUTF8 Read fprix_repas Write fprix_repas;
    property prix_repas_recalcul: RawUTF8 Read fprix_repas_recalcul Write fprix_repas_recalcul;
    property subvention_fixe: RawUTF8 Read fsubvention_fixe Write fsubvention_fixe;
    property subvention_cent: RawUTF8 Read fsubvention_cent Write fsubvention_cent;
  end;

   { Table com_personne }
  TSQLcom_personne = class(TSQLRecord)
  private
    fid_entite: Integer;
    fnom, fprenom1: RawUTF8;
    fcat_passself: TSQLcat_passself;
  published
    property id_entite: Integer Read fid_entite Write fid_entite;
    property nom: RawUTF8 Read fnom Write fnom;
    property prenom1: RawUTF8 Read fprenom1 Write fprenom1;
    property cat_passself: TSQLcat_passself read fcat_passself write fcat_passself;
  public
  end;