        ____________593

         .   ,   StoredProcl->Pa-
rams->Items[0]    .

    .  -
          Params. 
    .    
   ParamByName    .

 ,     Getlnf.
     FamEdit, NamEdit  ParEdit,  -
    ,    , -
    .    LDep, LYear  LSex,  -
     .   -
 ,       :

StoredProcl->ParamByName("PFAM")->AsString = FamEdit->Text;

StoredProcl->ParamByName("PNAM")->AsString = NamEdit->Text;

StoredProcl->ParamByName("PPAR")->AsString = ParEdit->Text;

StoredProcl->ExecProc () ;

if (StoredProcl->ParamByName("PYEAR")->AsInteger == 0)

Application->MessageBox("    ",
"",_) ;

else

(
LDep->Caption = StoredProcl->ParamByName("PDEP")->AsString;

LYear->Caption = StoredProcl->ParamByName("PYEAR")->AsString;

LSex->Caption = StoredProcl->ParamByName("PSEX")->AsString;

 , ,     .
          
,       ,   , -
   .       
,      .

       ,   -
   ib.

10.3.5.3   

     .  -
       , .

       Selectd, 
  ,    .

CREATE PROCEDURE Selectd (pDep char(15))
RETURNS (pFam char(20), pNam char(20), pPar char(20),

pYear integer, PSex char(l))
AS
BEGIN

FOR SELECT Fam, Nam, Par, Year_b, Sex From Pers WHERE (Dep=:pDep)
INTO pFam, pNam, pPar, pYear, pSex
DO
SUSPEND;

END; /\

  Create Procedure   ,    -
 .      (  
pDep)   ,      
Returns.  ,    ,   begin...end,
           For Select.
   ,    Select ... Into  
,      .  