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

UptoLike

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

64
CREATE UNIQUE INDEX XPKWORKPLACE ON WORKPLACE
( workplace_id );
CREATE INDEX XIF1WORKPLACE ON WORKPLACE
( class_id );
ALTER TABLE WORKPLACE
ADD PRIMARY KEY (workplace_id);
CREATE GENERATOR workplace_id_gen;
SET TERM !! ;
CREATE TRIGGER WORKPLACE_GEN_ID
FOR WORKPLACE BEFORE INSERT
AS
BEGIN
new.workplace_id = gen_id(workplace_id_gen, 1);
END ! !
SET TERM ; !!
ALTER TABLE PART
ADD FOREIGN KEY (equip_type_id)
REFERENCES GROUPS;
ALTER TABLE PART
ADD FOREIGN KEY (workplace_id)
REFERENCES WORKPLACE;
ALTER TABLE WORKPLACE
ADD FOREIGN KEY (class_id)
REFERENCES CLASS;
SET TERM !! ;
CREATE PROCEDURE ins_class (class__id INTEGER
address VARCHAR(20)
corpus_no VARCHAR(20)
audit_no VARCHAR(20)
telephone VARCHAR(20)
note VARCHAR(20) } )
AS
BEGIN
INSERT INTO CLASS (address corpus_no audit_no telephonenote
VALUES ( : address, : corpus__no, : audit_no, : telephone, : note) ;
END ! !
SET TERM ; !!
SET TERM !! ;
CREATE PROCEDURE upd_class (class_id INTEGER,
address VARCHAR(20),
corpus_no VARCHAR(20),
audit no VARCHAR(20),