6В06 Информационно-коммуникационные технологии
жүктеу/скачать 0,5 Mb.
|
БД в ИС
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;^
жүктеу/скачать 0,5 Mb. Достарыңызбен бөлісу:
|