Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
функцлогпрог / Diplom / Листинги.doc
Скачиваний:
18
Добавлен:
02.04.2015
Размер:
121.34 Кб
Скачать

Initrans 1

MAXTRANS 255

TABLESPACE users

STORAGE (

Initial 65536

NEXT

PCTINCREASE

MINEXTENTS 1

MAXEXTENTS 2147483645

FREELIST GROUPS 0

FREELISTS 0

)

/

-- Comments for SKL

COMMENT ON TABLE sysadm.skl IS 'Наименования складов'

/

-- Column Comments for SKL

COMMENT ON COLUMN sysadm.skl.codskl IS 'Код склада'

/

COMMENT ON COLUMN sysadm.skl.nmskl IS 'Наименование склада'

/

-- Indexes for SKL

CREATE UNIQUE INDEX sysadm.uskl

ON sysadm.skl

( codskl )

PCTFREE 10

Initrans 2

MAXTRANS 255

TABLESPACE users

STORAGE (

Initial 65536

NEXT

PCTINCREASE

MINEXTENTS 1

MAXEXTENTS 2147483645

FREELIST GROUPS 0

FREELISTS 0

)

/

-- Constraints for SKL

ALTER TABLE sysadm.skl

ADD CONSTRAINT uskl PRIMARY KEY (codskl)

/

ALTER TABLE sysadm.skl

ADD CHECK ("CODSKL" IS NOT NULL)

/

-- Table SKLNM

CREATE TABLE sysadm.sklnm

(

codskl NUMBER NOT NULL,

codgdsrv NUMBER,

kol NUMBER,

nmgdsrv VARCHAR2(250)

)

PCTFREE 10

PCTUSED

Initrans 1

MAXTRANS 255

TABLESPACE users

STORAGE (

Initial 65536

NEXT

PCTINCREASE

MINEXTENTS 1

MAXEXTENTS 2147483645

FREELIST GROUPS 0

FREELISTS 0

)

/

-- Comments for SKLNM

COMMENT ON TABLE sysadm.sklnm IS 'Наличие на складах'

/

-- Column Comments for SKLNM

COMMENT ON COLUMN sysadm.sklnm.codgdsrv IS 'Код товара'

/

COMMENT ON COLUMN sysadm.sklnm.codskl IS 'Код склада'

/

COMMENT ON COLUMN sysadm.sklnm.kol IS 'Наличие на складе'

/

-- Indexes for SKLNM

CREATE UNIQUE INDEX sysadm.s

ON sysadm.sklnm

( codskl,

codgdsrv )

PCTFREE 10

Initrans 2

MAXTRANS 255

TABLESPACE users

STORAGE (

Initial 65536

NEXT

PCTINCREASE

MINEXTENTS 1

MAXEXTENTS 2147483645

FREELIST GROUPS 0

FREELISTS 0

)

/

-- Constraints for SKLNM

ALTER TABLE sysadm.sklnm

ADD CONSTRAINT s UNIQUE (codskl,codgdsrv)

/

ALTER TABLE sysadm.sklnm

ADD CONSTRAINT fskl FOREIGN KEY (codskl)

REFERENCES sysadm.skl(codskl)

/

ALTER TABLE sysadm.sklnm

ADD CHECK ("CODSKL" IS NOT NULL)

/

-- Table STKDOCS

CREATE TABLE sysadm.stkdocs

(

coddoc NUMBER NOT NULL,

nmdoc NUMBER,

dated DATE,

tipdoc VARCHAR2(50)

)

PCTFREE 10

PCTUSED

Initrans 1

MAXTRANS 255

TABLESPACE users

STORAGE (

Initial 65536

NEXT

PCTINCREASE

MINEXTENTS 1

MAXEXTENTS 2147483645

FREELIST GROUPS 0

FREELISTS 0

)

/

-- Comments for STKDOCS

COMMENT ON TABLE sysadm.stkdocs IS 'заголовки документов'

/

-- Column Comments for STKDOCS

COMMENT ON COLUMN sysadm.stkdocs.coddoc IS 'Код док-та'

/

COMMENT ON COLUMN sysadm.stkdocs.dated IS 'Дата док-та'

/

COMMENT ON COLUMN sysadm.stkdocs.nmdoc IS 'Номер док-та'

/

COMMENT ON COLUMN sysadm.stkdocs.tipdoc IS 'Тип док-та'

/

-- Indexes for STKDOCS

CREATE UNIQUE INDEX sysadm.udoc

ON sysadm.stkdocs

( coddoc )

PCTFREE 10

Initrans 2

MAXTRANS 255

TABLESPACE users

STORAGE (

Initial 65536

NEXT

PCTINCREASE

MINEXTENTS 1

MAXEXTENTS 2147483645

FREELIST GROUPS 0

FREELISTS 0

)

/

-- Constraints for STKDOCS

ALTER TABLE sysadm.stkdocs

ADD CONSTRAINT udoc UNIQUE (coddoc)

/

ALTER TABLE sysadm.stkdocs

ADD CHECK ("CODDOC" IS NOT NULL)

/

-- Triggers for STKDOCS

CREATE OR REPLACE TRIGGER sysadm.bicod

BEFORE INSERT

ON sysadm.stkdocs

REFERENCING NEW AS NEW OLD AS OLD

FOR EACH ROW

Begin

update stkdocs set coddoc = SQcod.NextVal;

End;

/

CREATE OR REPLACE TRIGGER sysadm.nm

BEFORE INSERT

ON sysadm.stkdocs

REFERENCING NEW AS NEW OLD AS OLD

FOR EACH ROW

Begin

update stkdocs set nmdoc = SQSTKDOCS.NextVal;

End;

/

-- Table STKDOCSGD

CREATE TABLE sysadm.stkdocsgd

(

coddoc NUMBER NOT NULL,

codgd NUMBER NOT NULL,

kol NUMBER,

codei NUMBER,

ei VARCHAR2(50),

zena FLOAT,

nmgdsrv VARCHAR2(255)

)

PCTFREE 10

PCTUSED

Соседние файлы в папке Diplom