АС Охраны труда и промышленной безопасности(Oracle+Oracle Forms)
- 1
- 0
- Опубликовано: 2009-08-17
АС оссуществляет сбор, анализ и контроль сведений, относщихся к охране труда и промышленой безопастности на предприятии.
На снимках экранов представлены следующие блоки: блок учета вредных и опасных производственных факторов в разрезе должностей, а так же блок выявления несоответствий, вынесенных предписаний и контроля их соблюдений.
Фрагменты исходного кода:
create table ТБ.ПРОВЕРКИ
(
КОД NUMBER(10) not null,
ДАТА_НАЧАЛО DATE not null,
ДАТА_КОНЕЦ DATE not null,
ВИД_ГРАФИКА_ПРОВЕРОК NUMBER(4) not null,
КОД_ПОДРАЗДЕЛЕНИЯ VARCHAR2(20),
ПОЛЬЗОВАТЕЛЬ_ДОБАВЛЕНИЯ VARCHAR2(32) default user not null,
ДАТА_ДОБАВЛЕНИЯ DATE default sysdate not null,
ПОЛЬЗОВАТЕЛЬ_ИЗМЕНЕНИЯ VARCHAR2(32),
ДАТА_ИЗМЕНЕНИЯ DATE,
ДАТА_СНЯТИЯ DATE,
ДАТА_ПРЕДПИСАНИЯ DATE,
НОМЕР_ПРЕДПИСАНИЯ VARCHAR2(32),
ДАТА_ОТЧЕТА DATE,
KEY_РАБОТЫ_УОТ NUMBER(10),
ОБЪЕКТЫ VARCHAR2(256),
КОД_РОДИТЕЛЯ NUMBER(10),
ТАБ_НОМЕР_ВЫДАЛ_ПРЕДПИСАНИЕ NUMBER(5),
КОД_ВЫДАЛ_ПРЕДПИСАНИЕ NUMBER(10),
ДОЛЖНОСТЬ_ВЫДАЛ_ПРЕДПИСАНИЕ NUMBER(10),
ВИД_ПРОФИЛАКТИЧ_РАБОТ NUMBER(4),
ЗАМЕЧАНИЯ_ТАБЕЛЬНЫЙ_НОМЕР NUMBER(5),
ЗАМЕЧАНИЯ_ДОЛЖНОСТЬ NUMBER(10),
ЗАМЕЧАНИЯ_ТЕКСТ VARCHAR2(300),
КОРРЕКТИР_ДЕЙСТВИЕ VARCHAR2(1),
ФИО_ВЫДАЛ_ПРЕДПИСАНИЕ VARCHAR2(300)
)
tablespace ТБ
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
comment on column ТБ.ПРОВЕРКИ.КОД_РОДИТЕЛЯ
is 'Для внутреннего графика';
comment on column ТБ.ПРОВЕРКИ.КОРРЕКТИР_ДЕЙСТВИЕ
is '0-нет,1-да';
alter table ТБ.ПРОВЕРКИ
add constraint ГРАФ_ПРОВЕРОК_КОД_ПРОВЕРКИ primary key (КОД)
using index
tablespace ТБ_ИНДЕКСЫ
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxext
На снимках экранов представлены следующие блоки: блок учета вредных и опасных производственных факторов в разрезе должностей, а так же блок выявления несоответствий, вынесенных предписаний и контроля их соблюдений.
Фрагменты исходного кода:
create table ТБ.ПРОВЕРКИ
(
КОД NUMBER(10) not null,
ДАТА_НАЧАЛО DATE not null,
ДАТА_КОНЕЦ DATE not null,
ВИД_ГРАФИКА_ПРОВЕРОК NUMBER(4) not null,
КОД_ПОДРАЗДЕЛЕНИЯ VARCHAR2(20),
ПОЛЬЗОВАТЕЛЬ_ДОБАВЛЕНИЯ VARCHAR2(32) default user not null,
ДАТА_ДОБАВЛЕНИЯ DATE default sysdate not null,
ПОЛЬЗОВАТЕЛЬ_ИЗМЕНЕНИЯ VARCHAR2(32),
ДАТА_ИЗМЕНЕНИЯ DATE,
ДАТА_СНЯТИЯ DATE,
ДАТА_ПРЕДПИСАНИЯ DATE,
НОМЕР_ПРЕДПИСАНИЯ VARCHAR2(32),
ДАТА_ОТЧЕТА DATE,
KEY_РАБОТЫ_УОТ NUMBER(10),
ОБЪЕКТЫ VARCHAR2(256),
КОД_РОДИТЕЛЯ NUMBER(10),
ТАБ_НОМЕР_ВЫДАЛ_ПРЕДПИСАНИЕ NUMBER(5),
КОД_ВЫДАЛ_ПРЕДПИСАНИЕ NUMBER(10),
ДОЛЖНОСТЬ_ВЫДАЛ_ПРЕДПИСАНИЕ NUMBER(10),
ВИД_ПРОФИЛАКТИЧ_РАБОТ NUMBER(4),
ЗАМЕЧАНИЯ_ТАБЕЛЬНЫЙ_НОМЕР NUMBER(5),
ЗАМЕЧАНИЯ_ДОЛЖНОСТЬ NUMBER(10),
ЗАМЕЧАНИЯ_ТЕКСТ VARCHAR2(300),
КОРРЕКТИР_ДЕЙСТВИЕ VARCHAR2(1),
ФИО_ВЫДАЛ_ПРЕДПИСАНИЕ VARCHAR2(300)
)
tablespace ТБ
pctfree 10
initrans 1
maxtrans 255
storage
(
initial 64K
minextents 1
maxextents unlimited
);
comment on column ТБ.ПРОВЕРКИ.КОД_РОДИТЕЛЯ
is 'Для внутреннего графика';
comment on column ТБ.ПРОВЕРКИ.КОРРЕКТИР_ДЕЙСТВИЕ
is '0-нет,1-да';
alter table ТБ.ПРОВЕРКИ
add constraint ГРАФ_ПРОВЕРОК_КОД_ПРОВЕРКИ primary key (КОД)
using index
tablespace ТБ_ИНДЕКСЫ
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 64K
minextents 1
maxext
Комментариев нет
оставить комментарий могут только авторизованные пользователи
