6В06 Информационно-коммуникационные технологии



бет29/79
Дата29.12.2021
өлшемі0,5 Mb.
#106319
түріПротокол
1   ...   25   26   27   28   29   30   31   32   ...   79
Байланысты:
БД в ИС

Set Term ^;


Create Procedure Selectd (pDep Char(15)) Returns (pFam char(20), pNam Char(20),

pPar char(20),PYear integer,pSex char(1))

AS

Begin


For Select Fam,Nam,Par,Year_b,Sex From Pers Where (Dep=:pDep)

into pFam,pNam,pPar,pYear,pSex DO

SUSPEND;

END;^


SET TERM;^ COMMIT;

/*Процедура SetInf - процедура выполняемая, изменяет данные о сотруднике, возвращает номер записи или 0, если сотрудника нет параметрическим запросом*/

Set Term ^;

Create Procedure SetInf

(pFam char(20),pNam Char(20),pPar char(20), PYear integer, pDep Char(15),pSex char(1))

RETURNS


(mess Integer) AS

BEGIN


mess=0;

Select Num From Pers

Where (Fam=:pFam)And(Nam=:pNam)And(par=:pPar) into mess;

if (mess>0) Then

Update Pers Set Year_b=:pYear, Dep=:pDep,Sex=:pSex Where (Fam=:pFam)And(Nam=:pNam)And (par=:pPar);

END;^


SET TERM ;^ COMMIT;

/*Процедура GetInf - процедура выполняемая, возвращает данные о сотруднике, или год рождения = 0, если сотрудника нет параметрическим запросом*/

SET TERM ^;

Create Procedure GetInf

(pFam char(20),pNam Char(20),pPar char(20)) RETURNS

(PYear integer, pDep Char(15),pSex char(1))

AS

BEGIN


PYear=0;

Select Year_b, Dep, Sex From Pers

Where (Fam=:pFam)And(Nam=:pNam)And (par=:pPar) Into pYear,pDep,pSex;

END;^



Достарыңызбен бөлісу:
1   ...   25   26   27   28   29   30   31   32   ...   79




©engime.org 2022
әкімшілігінің қараңыз

    Басты бет