DigestSDK — автоматизация работы с MSSQL на Delphi

  //создаем основой справочник
  SLProduction := TSimpleDigestR.Create(
            'select top 10 * from Production.Product P 
                      left join Production.ProductDocument D on 
                      D.ProductID = P.ProductID ',  
           'Production.Product',   
           edConnectionString.Text,
           grbProduction,          
           CDOper                  
  );

  Request := 'select D.* from Production.Document D, 
                     Production.ProductDocument P 
                     where D.DocumentID = P.DocumentID and P.ProductID = :ProductID';
  SLDocument := TSimpleDigestR.Create(
          Request,  
          'Production.Document',  
          edConnectionString.Text,
          grbDocuments,           
          CDOper,                 
          '',
          ldNone
  );

  //связываем два справочника
  SLDocument.DataSource := SLProduction.DataSource;

  SLProduction.SLOpen();
  SLDocument.SLOpen();