Базы данных и знаний. Проектирование баз данных по технологии "клиент-сервер" и разработка клиентских приложений. Токмаков Г.П. - 57 стр.

UptoLike

Составители: 

- 57-
условие в запросе UP DAT E. Применительно к таблице GROUPS процедура выгля-
дит так:
SET TERM !! ;
CREATE PROCEDURE upd_groups (kod_group SMALLINT,
name_group CHAR(30),
kol_students SMALLINT,
sredniy_ball SMALLINT))
AS
BEGIN
UPDATE GROUPS SET name_group =: name_group,
kol_students =: kol_students,
sredniy_ball =: sredniy_ball
WHERE kod_group =: kod_group;
END ! !
SET TERM ; !!
Процедура удаления содержит в качестве параметров только ключевые ре-
квизиты и имеет вид
SET TERM !! ;
CREATE PROCEDURE del_groups (kod_group SMALLINT)
AS BEGIN
DELETE FROM GROUPS
WHERE kod__group =: kod__group;
END ! !
SET TERM ; !!
Для создания шаблонов и привязки их к таблицам вызовите редактор
«Table Editor» набрав пункт главного меню «Edit/Table . .. В вызван-
ном редакторе перейдите на страницу «Stored Procedure»:
нажмите на кнопку «SP Template» и перейдите в редактор шаблонов
«Template Editor»;
создайте в редакторе три шаблона, назвав их «Вс тавка записи», «Измене-
ние записи» И «Удаление записи»;
введите тексты шаблонов, приведенные ниже.
Вст авка записи
SET TERM %DBM STriggerDelim;
CREATE PROCEDURE ins_%Lower(%TableName)
(%ForEachAtt(%TableName,',')
{ %if (%Not(%AttIsPK)) {%AttFieldName %AttDataType } } )
AS BEGIN
INSERT INTO (%ForEachAtt(%TableName,',')
{%if (%Not(%AttIsPK)) {%AttFieldName} } )
VALUES (%ForEachAtt(%TableName,',')
{%if (%Not(%AttIsPK)) {:%AttFieldName} } );
END%DBMSTriggerDelim
SET TERM ; %DBMSTriggerDelim