-- =============================================

-- Создание хранимой процедуры, котороя должна возвращать наименования
-- тематик документации, получая на входе наименование конкретного класса документации.

-- Процедура имеет один входной параметр, наименование класса документации.

-- Возвращаемый набор данных содержит наименование всех тематик,
-- обозначенных  в данном класе. Тематика используется как ключевая информация.

-- Данные извлекаются из таблицы TBL_DOCUMENT, используя связи по ключевым полям.
-- Основной набор данных формируется из поля TBL_DOCUMENT.DOC_THEMES, в последствии
-- данная информация используется как ключевая. 

-- =============================================

-- Создание хранимой процедуры

IF EXISTS (SELECT name 
	   FROM   sysobjects 
	   WHERE  name = N'SELECT_TBL_DOCUMENT_DOC_THEMES' 
	   AND 	  type = 'P')
    DROP PROCEDURE SELECT_TBL_DOCUMENT_DOC_THEMES
GO

CREATE PROCEDURE SELECT_TBL_DOCUMENT_DOC_THEMES 
      
      @pCLASS_NAME nvarchar( 255 )

AS

SELECT   TBL_DOCUMENT.DOC_THEMES /* AS 'Тематика' */ FROM TBL_CLASS, TBL_TYPE, TBL_DOCUMENT
WHERE       ( TBL_CLASS.CLASS_NAME = @pCLASS_NAME ) 
      AND   ( TBL_TYPE.CLASS_NAME = TBL_CLASS.CLASS_NAME )
      AND   ( TBL_DOCUMENT.TYPE_ID = TBL_TYPE.TYPE_ID )

GROUP BY  TBL_DOCUMENT.DOC_THEMES
ORDER BY  TBL_DOCUMENT.DOC_THEMES ASC

GO

-- =============================================
-- example to execute the store procedure
-- =============================================

EXECUTE SELECT_TBL_DOCUMENT_DOC_THEMES @pCLASS_NAME = 'УММ СППР' 

GO

const AnsiString sp_n2               = "SELECT_TBL_DOCUMENT_DOC_THEMES";
const WideString sp_n2_pn1           = "@pCLASS_NAME";
const TFieldType sp_n2_pft1          = ftString;
const TParameterDirection  sp_n2_pd1 =  pdInput;
const int  sp_n2_ps1                 =   255 ;

OleVariant pValue1,pValue2,pValue3;//Значение параметра


 //Настраиваем хранимую процедуру
     locADOStoredProc->ProcedureName = sp_n2;
     locADOStoredProc->Prepared = true;
     locADOStoredProc->Parameters->Clear();
     locADOStoredProc->Parameters->Refresh();

     //Создаем параметр для храниммой процедуры
     pValue1 = pValue1.ChangeType(varString);
     pValue1 = "";
     locADOStoredProc->Parameters->CreateParameter(sp_n2_pn1,sp_n2_pft1,sp_n2_pd1,sp_n2_ps1, pValue1);

            //В переменной gNT находится тип узла, в данном случае это TLNodeTypeCLASS
            //В переменной gND находится ключевая информация, в данном случае это наименование класса документации
            //Используем его в качестве значения параметра хранимой процедуры

            //locADOStoredProc->Parameters->ParamByName("@pCLASS_NAME")->Value = gND; //Передали наименование класса документации
            locADOStoredProc->Parameters->ParamValues["@pCLASS_NAME"] = gND; //Передали наименование класса документации

            //Выполняем процедуру
            locADOStoredProc->Open();

 locADOStoredProc->Open();

            //Выполняем процедуру
            locADOStoredProc->Open();

DBCC results for 'UMM'.
DBCC results for 'sysobjects'.
There are  68  rows in  2  pages for object 'sysobjects'.
DBCC results for 'sysindexes'.
There are  63  rows in  3  pages for object 'sysindexes'.
DBCC results for 'syscolumns'.
There are  387  rows in  8  pages for object 'syscolumns'.
DBCC results for 'systypes'.
There are  26  rows in  1  pages for object 'systypes'.
DBCC results for 'syscomments'.
There are  133  rows in  17  pages for object 'syscomments'.
DBCC results for 'sysfiles1'.
There are  2  rows in  1  pages for object 'sysfiles1'.
DBCC results for 'syspermissions'.
There are  65  rows in  1  pages for object 'syspermissions'.
DBCC results for 'sysusers'.
There are  18  rows in  1  pages for object 'sysusers'.
DBCC results for 'sysproperties'.
There are  126  rows in  1  pages for object 'sysproperties'.
DBCC results for 'sysdepends'.
There are  315  rows in  2  pages for object 'sysdepends'.
DBCC results for 'sysreferences'.
There are  2  rows in  1  pages for object 'sysreferences'.
DBCC results for 'sysfulltextcatalogs'.
There are  0  rows in  0  pages for object 'sysfulltextcatalogs'.
DBCC results for 'sysfulltextnotify'.
There are  0  rows in  0  pages for object 'sysfulltextnotify'.
DBCC results for 'sysfilegroups'.
There are  1  rows in  1  pages for object 'sysfilegroups'.
DBCC results for 'TBL_CLASS'.
There are  3  rows in  1  pages for object 'TBL_CLASS'.
DBCC results for 'TBL_TYPE'.
There are  10  rows in  1  pages for object 'TBL_TYPE'.
DBCC results for 'TBL_DOCUMENT'.
There are  137  rows in  7  pages for object 'TBL_DOCUMENT'.
DBCC results for 'dtproperties'.
There are  7  rows in  1  pages for object 'dtproperties'.
CHECKDB found  0  allocation errors and  0  consistency errors in database 'UMM'.
DBCC execution completed. If DBCC printed error messages, contact your system administrator.

declare @P1 int
set @P1=NULL
declare @P2 int
set @P2= 561160 
declare @P3 int
set @P3= 98305 
declare @P4 int
set @P4=NULL
declare @P5 int
set @P5=NULL
exec sp_cursoropen @P1 output, N' EXEC @P1=SELECT_TBL_DOCUMENT_DOC_THEMES @P2  ', @P2 output, @P3 output, @P4 output, N'@P1 int OUTPUT,@P2 nvarchar(255)', @P5 output, N'УММ СППО'
select @P1, @P2, @P3, @P4, @P5

EXEC @P1=SELECT_TBL_DOCUMENT_DOC_THEMES @P2