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

UptoLike

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

CREATE PROCEDURE upd_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
UPDATE PART SET equip__type_id=: equip_type_id,
workplace_id=:workplace_id,
inventory_no=:inventory_no,
techinfo=:techinfo,
malfunct=:malfunct,
install_date=:install_date,
note=:note
WHERE equip_id=:equip_id and
equip__type_id=: equip_type_id and
workplace_id=:workplace_id and
inventory_no=:inventory_no and
techinfo=:techinfo and
malfunct=:malfunct and
install_date=:install_date and
note=:note};
END ! !
SET TERM ; !!
SET TERM !! ;
CREATE PROCEDURE del_part (ForEachAtt(PART,',') {})
AS
BEGIN
DELETE FROM PART
WHERE equip_id=:equip_id;
END ! !
SET TERM ; !!
SET TERM !! ;
CREATE PROCEDURE ins_groups (equip_type_id INTEGER,
equip_name VARCHAR(20) } )
AS
BEGIN
INSERT INTO GROUPS (equip_name)
VALUES (:equip_name);
END ! !
SET TERM ; !!
SET TERM !! ;
CREATE PROCEDURE upd_groups (equip_type_id INTEGER,
equip_name VARCHAR(20;
AS