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

UptoLike

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

65-
telephone VARCHAR(20),
note VARCHAR(20))
AS
BEGIN
UPDATE CLASS SET address=:address,
corpus_no=:corpus_no,
audit_no=:audit_no,
telephone=:telephone,
note=:note
WHERE class_id=:class_id and
address=:address and
corpus_no=:corpus_no and
audit_no=:audit_no and
telephone=:telephone and
note=:note};
END ! !
SET TERM ; !!
SET TERM !! ;
CREATE PROCEDURE del_class (ForEachAtt(CLASS,',') {})
AS
BEGIN
DELETE FROM CLASS
WHERE class_id=:class_id;
END ! !
SET TERM ; !!
SET TERM !! ;
CREATE PROCEDURE ins_part (equip_id INTEGER,
equip_type_id INTEGER,
workplace_id INTEGER,
inventory_no VARCHAR(20),
techinfo VARCHAR(20),
malfunct INTEGER,
install_date DATE,
note VARCHAR(20) } )
AS
BEGIN
INSERT INTO PART (equip_type_id,
workplace_id,
inventory_no,
techinfo,
malfunct,
install_date,
note)
VALUES (:equip_type_id, :workplace_id, :inventory_no,
:techinfo, :malfunct, :install_date, :note);
END ! !
SET TERM ; !!
SET TERM !! ;