--PAGE_BREAK--В 1993 году было принято решение о создании Единой государственной системы экологического мониторинга (ЕГСЭМ). Однако до сих пор работы по созданию EГСЭМ находятся на стадии пилотных проектов регионального масштаба.
Предполагалось, что ЕГСЭМ будет обеспечивать:
· координацию разработки и выполнения программ наблюдений за состоянием окружающей среды;
· регламентацию и контроль сбора и обработки достоверных и сопоставимых данных;
· хранение информации, ведение специальных банков данных и их гармонизацию (согласование, телекоммуникационную связь) с международными эколого-информационными системами;
· деятельность по оценке и прогнозу состояния объектов окружающей природной среды, природных ресурсов, откликов экосистем и здоровья населения на антропогенное воздействие;
· доступность интегрированной экологической информации широкому кругу потребителей.
Таким образом, в стране ведется достаточно разнообразный комплекс наблюдений, учета, контроля и обобщения данных за состоянием окружающей среды, который, тем не менее, не стал единой системой.
Более того, существующая нормативно-правовая база в области защиты окружающей среды и населения от воздействия вредных факторов не может быть признанной сбалансированной и эффективной.
Нормативно-правовое обеспечение в области охраны окружающей среды. Перечень нормативных правовых актов высших органов государственной власти Российской Федерации по вопросам охраны окружающей среды и природопользования, принятых до 1998 г., насчитывает 316 наименований. Ниже приведены основные нормативно-правовые акты по вопросам охраны окружающей среды и природопользования:
Конституция Российской Федерации; Законе РСФСР “Об охране окружающей природной среды” и других законодательных актах;
Основные положения государственной стратегии Российской Федерации по охране окружающей среды и обеспечению устойчивого развития (Указ Президента Российской Федерации от 4 февраля 1994 г. № 236);
План действий Правительства Российской Федерации в области охраны окружающей среды на 1994–1995 гг. и 1996–1997 гг. (постановления Правительства Российской Федерации от 18 мая 1994 г. № 496 и от 19 февраля 1996 г. № 155) и региональных планах действий по охране окружающей среды;
Концепция перехода Российской Федерации к устойчивому развитию (Указ Президента Российской Федерации от 1 апреля 1996 г. № 440);
Государственная стратегия устойчивого развития Российской Федерации, проект которой в основном одобрен Правительством 11 декабря 1997 г.;
Национальный план действий по охране окружающей среды Российской Федерации на 1999–2001 годы
Цели и задачи СЭМ Минатома Целью создания и деятельности СКЦ Минатома России является повышение эффективности управления отраслью и совершенствования Отраслевой системы по предупреждению и ликвидации чрезвычайных ситуаций за счет использования современных методов и средств для информационно-аналитической поддержки руководства Министерства и Отраслевой комиссии по чрезвычайным ситуациям. Таким образом, система экологического мониторинга СКЦ должна стать эффективным инструментом информационно-аналитической поддержки руководства и предприятий отрасли в решении указанных задач.
Основной целью создания в СКЦ Минатома России системы экологического мониторинга является: обеспечение информационно-аналитической поддержки руководства Минатома России по вопросам охраны окружающей среды и экологической безопасности населения как при нормальной эксплуатации предприятий, так и в чрезвычайных ситуациях. При этом должны учитываться оперативные и перспективные задачи отрасли, а также современные тенденции создания эффективных систем экологического менеджмента.
Таким образом, система экологического мониторинга СКЦ Минатома включает:
- отраслевой экологический (по сути локальный) мониторинг;
- сбор, анализ и обобщение данных мониторинга, осуществляемого другими ведомствами в районах размещения объектов отрасли (локальный), систем территориального экологического мониторинга (субъекта федерации) и обобщенных данных федеральных ведомств, уполномоченных в области охраны окружающей среды.
Для достижения указанной цели необходимо решение следующих задач:
1. осуществление внутриведомственного мониторинга поступлений загрязняющих веществ в окружающую среду (контроль сбросов, выбросов, других путей поступления), радиационного, химического, теплового загрязнения природной среды в районах расположения предприятий Минатома России;
2. централизованная передача данных ведомственной системы мониторинга в рамках Единой государственной системы экологического мониторинга;
3. сбор, анализ и систематизация информации других ведомств, осуществляющих мониторинг (учет) поступления загрязняющих веществ и показателей состояния ОПС и здоровья человекав районах (зоны наблюдения) и регионах (субъекты РФ) расположения предприятий отрасли, в том числе в ретроспективе с учетом происшедших радиационных аварий и других чрезвычайных ситуаций;
4. учета и контроля ядерно-, радиационно- и химически опасных объектов, включая выведенные из состава ВМФ АПЛ, загрязненных в результате функционирования предприятий территорий и работ по их дезактивации и реабилитации;
5. создание объективной картины по уровням экологического воздействия предприятий отрасли на окружающую среду и здоровье населения, включая комплексную оценку рисков, связанных с их функционированием, в том числе в сравнении с другими техногенными рисками, обусловленными наличием в регионах предприятий-загрязнителей других отраслей промышленности и сельского хозяйства;
6. обеспечение информационно-аналитической поддержки руководства отрасли и предприятий в случае ЧС (с экологическими последствиями) на объектах Минатома или в регионах их размещения.
С учетом изложенных задач система экологического мониторинга СКЦ Минатома может быть определена как информационно-аналитическая система сбора, обработки и представления результатов наблюдений, оценок и прогнозов изменений в окружающей среде и здоровье населения, вызванных функционированием предприятий отрасли, их сопоставлением с уровнем воздействия других техногенных факторов и восприятия этих воздействий общественностью.
Ряд из перечисленных задач может быть реализован в рамках основного режима функционирования СКЦ Минатома России – получение регулярных сообщений непосредственно с предприятий отрасли и/или уже действующих центров сбора информации (ВНИИХТ, ЦНИИАТОМИНФОРМ) на основе уже существующих и создаваемых форм отчетности. Для этих задач необходима разработка документов, регламентирующих поступление сообщений в СКЦ и создание сопряженных с другими подсистемами СКЦ программных средств передачи и приема сообщений, их хранения, обработки и представления на технических средствах СКЦ.
Для решения задачи 2 необходимо подготовка регламентов передачи данных в рамках ЕГСЭМ и необходимых программно-технических средств.
Значительный объем информации о состоянии окружающей среды и связанных с этим рисках, необходимый для решения задач 3 и 5 может быть получен из отчетности других ведомств – Госкомстата, Минздрава, Минприроды и т.д. В отношении этого блока информации, возможности изменения существующих регламентов и форм являются весьма ограниченными. В этом случае необходимо создать программные средства для конвертирования информации в форматы, доступные для программных средств СКЦ. Значительный объем информации может быть получен из анализа научно-технической литературы. В этом случае необходима его аналитическая обработка, разработка способов и средств хранения и представления данных на программно-технических средствах СКЦ.
Для решения задачи 6 необходима организация системы мониторинга научно-технической информации с использованием уже ведущихся работ. В этом случае также необходима регламентация сбора и аналитической обработки информации, ее передачи и приема в СКЦ и разработка способов и средств хранения и представления данных на программно-технических средствах СКЦ.
Для решения задачи 7 необходимо не только наличие данных по исходному состоянию потенциальных источников выбросов и сбросов радиоактивных веществ и химических загрязнителей, но и средства оперативного анализа и прогнозирования обстановки и их представления на ПТК СКЦ.
Таким образом, для создания СЭМ СКЦ работы должны вестись по следующим направлениям:
Разработка регламентов передачи данных с предприятий и отраслевых информационных центров в СКЦ Минатома.
Разработка программных средств и баз данных для приема – передачи, хранения, обработки и представления данных с учетом особенностей функционирования уже существующих систем ПТК СКЦ.
Информационная интеграция аналитических работ, в том числе работ по комплексной оценке экологической обстановки и рисков для населения в районе расположения предприятий отрасли с учетом всех источников загрязнения окружающей среды.
Информационно-техническое обеспечение работ экспертных групп и центров технической поддержки в случае возникновения ЧС.
Состав и структура системы экологического мониторинга ситуационно кризисного центра СЭМ СКЦ Программно-техническое обеспечение СЭМ СКЦ Программно-техническое обеспечение СЭМ СКЦ должна включать следующие подсистемы:
1. Приема и отображения данных экологического мониторинга предприятий отрасли;
2. Сбора и представления данных отраслевой и ведомственных систем экологического мониторинга (природоохранной отчетности) – приложение 4;
3. Учета радиационно- и химически-опасных объектов отрасли (в том числе выводимых из состава флота АПЛ), радиоактивно-загрязненных территорий, работ по их утилизации и реабилитации в рамках реализации отраслевых и государственных экологических программ;
4. Представления данных по экологической обстановке в районах размещения предприятий отрасли, включая результаты комплексной сравнительной оценки рисков и других параметров экологического воздействия предприятий отрасли на окружающую среду и население
5. Поддержки принятия решений при возникновении в случае ЧС на объектах Минатома или в регионах их размещения.
6. Представления интегральных показателей экологического мониторинга руководству отрасли и пользователям корпоративной сети Минатома
7. Нормативно-правовой документации по проблемам экологии
Информационное обеспечение 1. Справочная информация. К ней относятся:
— картографическая информация (топоосновы различного масштаба, карты лесопользования и использования земель санитарно-защитной зоны и зон наблюдения, карты с демографическими данными по зоне наблюдения и региону, карты транспортных сообщений)
— метеорологическая и гидрологическая информация (роза ветров, климатические данные по зоне наблюдения и региону, гидрология основных водоемов и водотоков, расположение метеостанций и гидропостов, гидрологическая информация);
— информация об объекте (генплан объекта, штатные источники выбросов и сбросов, размещение постов контроля, регламент контроля, допустимые и контрольные уровни загрязняющих веществ в источниках сбросов и выбросов, и по валовым показателям сбросов и выбросов, допустимые и контрольные уровни содержания загрязнителя в контролируемых объектах внешней среды);
— обобщенные данные об экологической обстановке в зоне наблюдения и регионе (загрязнение атмосферы и гидросферы по основным показателям, наличие специфических загрязнителей и их уровни содержания в объектах внешней среды, краснокнижные виды флоры и фауны, ареалы их обитания, обобщенные экологические показатели (индексы, оценки, баллы), данные о медицинских показателях заболеваемости и здоровья персонала объекта и населения, данные о потреблении продуктов местного производства);
— планы мероприятий по защите персонала и населения в случае аварии на объекте;
— модели расчета распространения загрязнителя в случае аварии на объекте (модель рассеивания загрязнителя в атмосфере, модель формирования “следа” загрязнения, модели распространения загрязнителя в водоемах и водотоках, др.)
— проектные данные об авариях на объекте, данные об их последствиях.
— нормативно-правовая документация по вопросам охраны окружающей среды (законодательство РФ, постановления КМ РФ, ведомственные нормы и правила, ГОСТ, СНиПы, отраслевые документы, приказы и распоряжения Минатома) – приложение 5.
-Справочная информация терминов и определения (глоссарий по экологическому мониторингу) накапливается, обновляется и хранится в базе данных СКЦ.
Следует отметить, что значительная часть информации, необходимой для функционирования СЭМ, собрана и планируется для сбора в СКЦ в ходе выполнения центром работ по другим направлениям.
2. Регламентная информация. Это информация, получаемая специализированными службами объектов (лаборатории внешней дозиметрии, отделы охраны окружающей среды) в ходе выполнения регламентных работ по контролю объекта, как источника загрязняющих веществ и контролю за содержанием загрязнителя в объектах внешней среды на территории санитарно-защитной зоны и зоны наблюдения. К регламентной информации относится также информация от сторонних организаций, предприятий, ведомств, получаемая объектами Минатома и (или) СКЦ. Примерами такой информации являются: данные территориальных СЭС, информация Росгидромета, Минприроды, ГАН, Госкомстата и др. К регламентной информации следует отнести также информацию по НИР, выполняемых для предприятий по тематике охраны окружающей среды, а также аналитическая информация, подготавливаемая специализированными учреждениями Минатома (ЦНИИАТОМИНФОРМ, ВНИИХТ и др.). Данная информация поступает с объектов Минатома в специализированные учреждения Минатома (НИИ, главки, отделы). Одним из пользователей этой информации должен стать СКЦ. Регламентная информация используется СКЦ для решения собственных задач, а также для пополнения и совершенствования справочной информации СЭМ СКЦ.
3. Оперативная информация. К ней относится информация, получаемая СКЦ от предприятий Минатома в автоматическом режиме (пример – информация АСКРО), а также информация, получаемая в автоматическом режиме от учреждений других ведомств (пример – метеоинформация от Росгидромета). Оперативной информацией являются также данные, получаемые от объектов Минатома при возникновении от них ЧС.
4. Аналитическая информация. Это информация, получаемая СЭМ СКЦ (или привлеченными для этой цели специалистами) по результатам анализа и обобщения научно-технической информации по вопросам СЭМ и охране окружающей среды (информация МАГАТЭ, НКДАР, публикации и отчеты о НИР организаций отрасли и других ведомств).
К аналитической информации относится также и основной продукт деятельности СКЦ – информационно-аналитические материалы, направляемые на предприятия отрасли, руководству Минатома и в сторонние учреждения, в том числе в СМИ (оформленные в установленном порядке).
Основные направления создания СЭМ СКЦ Экологический мониторинг включает в себя мониторинг загрязнения всех видов: химического, теплового, радиационного. Предприятия Минатома, в той или иной мере, являются источниками всех трех видов загрязнения, причем нередко специфических (радиационное загрязнение, специфические химические загрязнители). Тепловое загрязнение окружающей среды характерно для АЭС, причем следует иметь в виду, что низко потенциальное тепло, рассеиваемое во внешней среде может рассматриваться и в качестве экономического ресурса, используемого в хозяйственных целях (рыбоводство на теплых водах, парниковые хозяйства).
продолжение
--PAGE_BREAK--
продолжение
--PAGE_BREAK--
продолжение
--PAGE_BREAK--CREATE TABLE TYPE_ECOLOGY_NUMBER
(CODE NUMBER(6) NOT NULL
,NAME VARCHAR2(240) NOT NULL
, ТИП_ЭВ NUMBER(6)
)
/
COMMENT ON COLUMN TYPE_ECOLOGY_NUMBER.CODE IS 'Уникальный идентификатор'
/
COMMENT ON COLUMN TYPE_ECOLOGY_NUMBER.NAME IS 'Наименование типа параметра'
/
COMMENT ON COLUMN TYPE_ECOLOGY_NUMBER.ТИП_ЭВ IS 'Уникальный идентификатор'
/
PROMPT Creating Table 'ZAGRAZN_VV'
CREATE TABLE ZAGRAZN_VV
(CODE NUMBER(6) NOT NULL
, СМЕСИ_CODE NUMBER(6)
,ISO_SHORTNAME VARCHAR2(10)
,SUBSTANCE_CODE NUMBER(6)
)
/
COMMENT ON COLUMN ZAGRAZN_VV.CODE IS 'Уникальный идентификатор сущности'
/
COMMENT ON COLUMN ZAGRAZN_VV.СМЕСИ_CODE IS 'Уникальный идетификатор сущности'
/
COMMENT ON COLUMN ZAGRAZN_VV.SUBSTANCE_CODE IS 'Уникальный идентификатор'
/
PROMPT Creating Table 'SMES'
CREATE TABLE SMES
(CODE NUMBER(6) NOT NULL
,FULLNAME VARCHAR2(200) NOT NULL
,SHORTNAME VARCHAR2(20)
)
/
COMMENT ON COLUMN SMES.CODE IS 'Уникальный идетификатор сущности'
/
COMMENT ON COLUMN SMES.FULLNAME IS 'Полное наименование смеси веществ'
/
COMMENT ON COLUMN SMES.SHORTNAME IS 'Краткое наименование смеси веществ'
/
PROMPT Creating Table 'ECOLOGY_PARAM'
CREATE TABLE ECOLOGY_PARAM
(CODE NUMBER(6) NOT NULL
,DATA_B DATE NOT NULL
,DATA_E DATE
,TYPE_PARAMETR VARCHAR2(240) NOT NULL
,TYPE_ZNACH VARCHAR2(240) NOT NULL
,DESCR VARCHAR2(100)
,UNI1_UNITMEAS VARCHAR2(20)
, ЭКОЛОГ_CODE NUMBER(6) NOT NULL
, ЗАГР_ВВ_CODE NUMBER(6)
, НОРМАТИВ_CODE NUMBER(6) NOT NULL
, НОРМАТИВ_CODE_ИМЕЕТ NUMBER(6) NOT NULL
, ФОРМА_CODE NUMBER(6)
, ПЕРИОДИЧН_CODE VARCHAR2(240) NOT NULL
)
/
COMMENT ON COLUMN ECOLOGY_PARAM.CODE IS 'Уникальный идентификатор сущности'
/
COMMENT ON COLUMN ECOLOGY_PARAM.DATA_B IS 'Дата ввода в действие параметра'
/
COMMENT ON COLUMN ECOLOGY_PARAM.DATA_E IS 'Дата завершения действия параметра'
/
COMMENT ON COLUMN ECOLOGY_PARAM.TYPE_PARAMETR IS 'Тип параметра (фактический, согласованный, норматив)'
/
COMMENT ON COLUMN ECOLOGY_PARAM.TYPE_ZNACH IS 'Тип значения (расчетное, исходное)'
/
COMMENT ON COLUMN ECOLOGY_PARAM.DESCR IS 'Комментарий'
/
COMMENT ON COLUMN ECOLOGY_PARAM.ЭКОЛОГ_CODE IS 'Уникальный идентификатор сущности'
/
COMMENT ON COLUMN ECOLOGY_PARAM.ЗАГР_ВВ_CODE IS 'Уникальный идентификатор сущности'
/
COMMENT ON COLUMN ECOLOGY_PARAM.НОРМАТИВ_CODE IS 'Уникальный идентификатор сущности'
/
COMMENT ON COLUMN ECOLOGY_PARAM.НОРМАТИВ_CODE_ИМЕЕТ IS 'Уникальный идентификатор сущности'
/
COMMENT ON COLUMN ECOLOGY_PARAM.ФОРМА_CODE IS 'Уникльный идентификатор'
/
COMMENT ON COLUMN ECOLOGY_PARAM.ПЕРИОДИЧН_CODE IS 'Уникальный идентификатор сущности'
/
PROMPT Creating Table 'NORMATIV_PARAM'
CREATE TABLE NORMATIV_PARAM
(CODE NUMBER(6) NOT NULL
, НОРМАТИВ_TYPE VARCHAR2(240)
)
/
COMMENT ON COLUMN NORMATIV_PARAM.CODE IS 'Уникальный идентификатор сущности'
/
COMMENT ON COLUMN NORMATIV_PARAM.НОРМАТИВ_TYPE IS 'Тип норматива'
/
PROMPT Creating Table 'TERRITORIES'
CREATE TABLE TERRITORIES
(CODE NUMBER NOT NULL
,KINDT NUMBER(2,0) NOT NULL
,NAME VARCHAR2(200) NOT NULL
,DESCR VARCHAR2(4000)
,SQUARE NUMBER
,GRIF NUMBER(2,0) DEFAULT 0 NOT NULL
)
/
PROMPT Creating Table 'OBJECT_EM'
CREATE TABLE OBJECT_EM
(CODE NUMBER(6) NOT NULL
,TYPE_OBJ VARCHAR2(240)
,CODE_OBJ VARCHAR2(240)
,CLASS VARCHAR2(240)
,DET_STRUCT VARCHAR2(240)
,DET_TER VARCHAR2(240)
)
/
COMMENT ON COLUMN OBJECT_EM.CODE IS 'Уникальный идентификатор'
/
COMMENT ON COLUMN OBJECT_EM.TYPE_OBJ IS 'Тип объекта мониторинга'
/
COMMENT ON COLUMN OBJECT_EM.CODE_OBJ IS 'код объекта мониторинга'
/
COMMENT ON COLUMN OBJECT_EM.CLASS IS 'класс объекта (население территория объект)'
/
COMMENT ON COLUMN OBJECT_EM.DET_STRUCT IS 'детализация структуры'
/
COMMENT ON COLUMN OBJECT_EM.DET_TER IS 'детализация по местонахождению'
/
PROMPT Creating Table 'UNITMEASURE'
CREATE TABLE UNITMEASURE
(UNITMEAS VARCHAR2(20) NOT NULL
,MEASSYST VARCHAR2(15) NOT NULL
,FACTOR NUMBER
,CODE NUMBER(4,0)
,DISPLAY_FORMAT VARCHAR2(20)
)
/
COMMENT ON COLUMN UNITMEASURE.FACTOR IS 'Коэффициент перевода единиц измерения (1-для основного)'
/
COMMENT ON COLUMN UNITMEASURE.CODE IS 'Уникальный код'
/
COMMENT ON COLUMN UNITMEASURE.DISPLAY_FORMAT IS 'Форматная маска'
/
PROMPT Creating Table 'VALUE'
CREATE TABLE VALUE
(CODE NUMBER(6) NOT NULL
,DATA_START DATE NOT NULL
,DATA_STOP DATE NOT NULL
,VALUE_NUMBER NUMBER
,VALUE_TEXT VARCHAR2(240)
,DESCR VARCHAR2(240)
,PARAM_CODE NUMBER(6) NOT NULL
,ORG_CODE NUMBER(6,0) NOT NULL
, ОТЧЕТНОСТЬ_CODE NUMBER(6) NOT NULL
)
/
COMMENT ON COLUMN VALUE.CODE IS 'Уникальный идентификатор сущности'
/
COMMENT ON COLUMN VALUE.DATA_START IS 'Дата начала усреднения параметра'
/
COMMENT ON COLUMN VALUE.DATA_STOP IS 'Дата окончания усреднения'
/
COMMENT ON COLUMN VALUE.VALUE_NUMBER IS 'Численное значение величины'
/
COMMENT ON COLUMN VALUE.VALUE_TEXT IS 'Текстовое значение величины'
/
COMMENT ON COLUMN VALUE.DESCR IS 'Комментарии'
/
COMMENT ON COLUMN VALUE.PARAM_CODE IS 'Уникальный идентификатор сущности'
/
COMMENT ON COLUMN VALUE.ОТЧЕТНОСТЬ_CODE IS 'Уникальный идентификатор сущности'
/
PROMPT Creating Table 'ISOTOPE'
CREATE TABLE ISOTOPE
(SHORTNAME VARCHAR2(10) NOT NULL
,FULLNAME VARCHAR2(50) NOT NULL
)
/
— c:\temp\uir.con
—
— Generated for Oracle 8 on Tue Dec 25 16:29:20 2001 by Server Generator 6.0.3.3.0
PROMPT Creating Primary Key on 'OTCHETNOST'
ALTER TABLE OTCHETNOST
ADD CONSTRAINT ОТЧЕТНОСТЬ_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'ORGANIZATION'
ALTER TABLE ORGANIZATION
ADD CONSTRAINT ORG_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'FORMA_OTCHETNOSTI'
ALTER TABLE FORMA_OTCHETNOSTI
ADD CONSTRAINT ФОРМА_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'SUBSTANCE'
ALTER TABLE SUBSTANCE
ADD CONSTRAINT SUBSTANCE_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'PERIOD'
ALTER TABLE PERIOD
ADD CONSTRAINT ПЕРИОДИЧН_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'ECOLOGY_NUMBER'
ALTER TABLE ECOLOGY_NUMBER
ADD CONSTRAINT ЭКОЛОГ_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'GROUP_PARAMETR'
ALTER TABLE GROUP_PARAMETR
ADD CONSTRAINT ГРУППА_ПАР_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'TYPE_ECOLOGY_NUMBER'
ALTER TABLE TYPE_ECOLOGY_NUMBER
ADD CONSTRAINT ТИП_ЭВ_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'ZAGRAZN_VV'
ALTER TABLE ZAGRAZN_VV
ADD CONSTRAINT ЗАГР_ВВ_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'SMES'
ALTER TABLE SMES
ADD CONSTRAINT СМЕСИ_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'ECOLOGY_PARAM'
ALTER TABLE ECOLOGY_PARAM
ADD CONSTRAINT PARAM_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'NORMATIV_PARAM'
ALTER TABLE NORMATIV_PARAM
ADD CONSTRAINT НОРМАТИВ_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'TERRITORIES'
ALTER TABLE TERRITORIES
ADD CONSTRAINT TER3_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'OBJECT_EM'
ALTER TABLE OBJECT_EM
ADD CONSTRAINT ОБЪЕКТ_ЭМ_PK PRIMARY KEY
(CODE)
/
PROMPT Creating Primary Key on 'UNITMEASURE'
ALTER TABLE UNITMEASURE
ADD CONSTRAINT UNI1_PK PRIMARY KEY
(UNITMEAS)
/
PROMPT Creating Primary Key on 'ISOTOPE'
ALTER TABLE ISOTOPE
ADD CONSTRAINT ISO_PK PRIMARY KEY
(SHORTNAME)
/
PROMPT Creating Unique Keys on 'ORGANIZATION'
ALTER TABLE ORGANIZATION
ADD ( CONSTRAINT ORG_SYS_C002890_UK UNIQUE
(NAME))
ADD ( CONSTRAINT ORG_SYS_C002891_UK UNIQUE
(SHORTNAME))
/
PROMPT Creating Unique Keys on 'TERRITORIES'
ALTER TABLE TERRITORIES
ADD ( CONSTRAINT TER3_SYS_C0027487_UK UNIQUE
(NAME))
/
PROMPT Creating Foreign Keys on 'OTCHETNOST'
ALTER TABLE OTCHETNOST ADD CONSTRAINT
ОТЧЕТНОСТЬ_ПЕРИОДИЧН_FK FOREIGN KEY
(ПЕРИОДИЧН_CODE) REFERENCES PERIOD
(CODE) ADD CONSTRAINT
ОТЧЕТНОСТЬ_PARAM_FK FOREIGN KEY
(PARAM_CODE) REFERENCES ECOLOGY_PARAM
(CODE) ADD CONSTRAINT
ОТЧЕТНОСТЬ_НОРМАТИВ_FK FOREIGN KEY
(НОРМАТИВ_CODE) REFERENCES NORMATIV_PARAM
(CODE) ADD CONSTRAINT
ОТЧЕТНОСТЬ_НОРМАТИВ_ЯВЛЯЕТС_FK FOREIGN KEY
(НОРМАТИВ_CODE_ЯВЛЯЕТСЯ) REFERENCES NORMATIV_PARAM
(CODE) ADD CONSTRAINT
ОТЧЕТНОСТЬ_UNI1_FK FOREIGN KEY
(UNI1_UNITMEAS) REFERENCES UNITMEASURE
(UNITMEAS) ADD CONSTRAINT
ОТЧЕТНОСТЬ_ОБЪЕКТ_ЭМ_FK FOREIGN KEY
(ОБЪЕКТ_ЭМ_CODE) REFERENCES OBJECT_EM
(CODE)
/
PROMPT Creating Foreign Keys on 'FORMA_OTCHETNOSTI'
ALTER TABLE FORMA_OTCHETNOSTI ADD CONSTRAINT
ФОРМА_ФОРМА_FK FOREIGN KEY
(ФОРМА_CODE) REFERENCES FORMA_OTCHETNOSTI
(CODE) ADD CONSTRAINT
ФОРМА_ORG_УТВЕРЖДЕНА_FK FOREIGN KEY
(ORG_CODE_УТВЕРЖДЕНА) REFERENCES ORGANIZATION
(CODE) ADD CONSTRAINT
ФОРМА_ПЕРИОДИЧН_FK FOREIGN KEY
(ПЕРИОДИЧН_CODE) REFERENCES PERIOD
(CODE)
/
PROMPT Creating Foreign Keys on 'ECOLOGY_NUMBER'
ALTER TABLE ECOLOGY_NUMBER ADD CONSTRAINT
ЭКОЛОГ_UNI1_FK FOREIGN KEY
(UNI1_UNITMEAS) REFERENCES UNITMEASURE
(UNITMEAS) ADD CONSTRAINT
ЭКОЛОГ_ТИП_ЭВ_FK FOREIGN KEY
(ТИП_ЭВ_CODE) REFERENCES TYPE_ECOLOGY_NUMBER
(CODE) ADD CONSTRAINT
ЭКОЛОГ_ГРУППА_ПАР_FK FOREIGN KEY
(ГРУППА_ПАР_CODE) REFERENCES GROUP_PARAMETR
(CODE)
/
PROMPT Creating Foreign Keys on 'GROUP_PARAMETR'
ALTER TABLE GROUP_PARAMETR ADD CONSTRAINT
ГРУППА_ПАР_ГРУППА_ПАР_FK FOREIGN KEY
(ГРУППА_ПАР) REFERENCES GROUP_PARAMETR
(CODE)
/
PROMPT Creating Foreign Keys on 'TYPE_ECOLOGY_NUMBER'
ALTER TABLE TYPE_ECOLOGY_NUMBER ADD CONSTRAINT
ТИП_ЭВ_FK FOREIGN KEY
(ТИП_ЭВ) REFERENCES TYPE_ECOLOGY_NUMBER
(CODE)
/
PROMPT Creating Foreign Keys on 'ZAGRAZN_VV'
ALTER TABLE ZAGRAZN_VV ADD CONSTRAINT
ЗАГР_ВВ_СМЕСИ_FK FOREIGN KEY
(СМЕСИ_CODE) REFERENCES SMES
(CODE) ADD CONSTRAINT
ЗАГР_ВВ_ISO_FK FOREIGN KEY
(ISO_SHORTNAME) REFERENCES ISOTOPE
(SHORTNAME) ADD CONSTRAINT
ЗАГР_ВВ_SUBSTANCE_FK FOREIGN KEY
(SUBSTANCE_CODE) REFERENCES SUBSTANCE
(CODE)
/
PROMPT Creating Foreign Keys on 'ECOLOGY_PARAM'
ALTER TABLE ECOLOGY_PARAM ADD CONSTRAINT
PARAM_UNI1_FK FOREIGN KEY
(UNI1_UNITMEAS) REFERENCES UNITMEASURE
(UNITMEAS) ADD CONSTRAINT
PARAM_ЭКОЛОГ_FK FOREIGN KEY
(ЭКОЛОГ_CODE) REFERENCES ECOLOGY_NUMBER
(CODE) ADD CONSTRAINT
PARAM_ЗАГР_ВВ_FK FOREIGN KEY
(ЗАГР_ВВ_CODE) REFERENCES ZAGRAZN_VV
(CODE) ADD CONSTRAINT
PARAM_ФОРМА_FK FOREIGN KEY
(ФОРМА_CODE) REFERENCES FORMA_OTCHETNOSTI
(CODE) ADD CONSTRAINT
PARAM_ПЕРИОДИЧН_FK FOREIGN KEY
(ПЕРИОДИЧН_CODE) REFERENCES PERIOD
(CODE)
/
PROMPT Creating Foreign Keys on 'VALUE'
ALTER TABLE VALUE ADD CONSTRAINT
VALUE_ORG_FK FOREIGN KEY
(ORG_CODE) REFERENCES ORGANIZATION
(CODE) ADD CONSTRAINT
VALUE_ОТЧЕТНОСТЬ_FK FOREIGN KEY
(ОТЧЕТНОСТЬ_CODE) REFERENCES OTCHETNOST
(CODE)
/
Приложение 3. Пример текста программы. //---------------------------------------------------------------------------
#include
#pragma hdrstop
#include «main.h»
#include «basic.h»
#include «unislct.h»
#include «filter.h»
#include «fieldsN.h»
#include «fieldText.h»
#include «fieldList.h»
#include «fieldValue.h»
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link «tbltmpl»
#pragma resource "*.dfm"
void __fastcall UploadMetaInfo(TformDescription *t_desc, AnsiString formname)
{
TADOQuery *mrT = new TADOQuery(NULL);
try
{
mrT->Connection = frmMain->cnncMetaInfo;
t_desc->formname = formname;
if (SELECT(mrT, «select * from forms where name = '» + t_desc->formname + "'"))
{
t_desc->title = mrT->FieldByName(«title»)->AsString;
t_desc->edittitle = mrT->FieldByName(«edittitle»)->AsString;
t_desc->accepttitle = mrT->FieldByName(«accepttitle»)->AsString;
t_desc->table = mrT->FieldByName(«table»)->AsString;
t_desc->keyfield = mrT->FieldByName(«keyfield»)->AsString;
t_desc->namefield = mrT->FieldByName(«namefield»)->AsString;
t_desc->listfield = mrT->FieldByName(«listfield»)->AsString;
t_desc->shortnamefield = mrT->FieldByName(«shortnamefield»)->AsString;
t_desc->sortfield = mrT->FieldByName(«sortfield»)->AsString;
t_desc->sequencename = mrT->FieldByName(«sequencename»)->AsString;
t_desc->readonly = mrT->FieldByName(«readonly»)->AsBoolean;
t_desc->takefieldsfrom = mrT->FieldByName(«takefieldsfrom»)->AsString;
t_desc->type = mrT->FieldByName(«type»)->AsString;
t_desc->hideonaccept = mrT->FieldByName(«hideonaccept»)->AsBoolean;
t_desc->parentfield = mrT->FieldByName(«parentfield»)->AsString;
} else
{
throw Exception(«Ошибка: Форма {» + t_desc->formname + "} отсутствует");
}
} __finally
{
delete mrT;
}
}
//---------------------------------------------------------------------------
__fastcall TfrmUniForm::TfrmUniForm(TComponent* Owner, TMenuItem* itm, AnsiString formname)
: TForm(Owner)
{
this->itm = itm;
uid = "";
link = false;
desc = new TformDescription();
slv = NULL; lnk = NULL;
desc->formname = formname;
form->dsc = desc;
parentform = NULL;
if (itm) itm->Enabled = false;
accept = false;
btnlst = new TList();
fltlst = new TList();
fldlst = new TList();
UploadInfo();
}
//---------------------------------------------------------------------------
void __fastcall TfrmUniForm::UploadInfo()
{
UploadMetaInfo(desc, desc->formname);
this->Caption = desc->title;
form->editpanel->Caption = desc->edittitle;
form->dbgBrowse->Columns->Items[0]->FieldName = desc->listfield;
form->dbgBrowse->Columns->Items[0]->Title->Caption = «Название»;
if (desc->readonly) { form->tblBrowse->ReadOnly = true; }
}
//---------------------------------------------------------------------------
void __fastcall TfrmUniForm::ReorderFilters()
{
for (int r=0; rCount; r++)
{
TfrmFilter* fr = ((TfrmFilter*)((TfltAddInfo*)fltlst->Items[r])->pntr);
fr->Align = alNone;
fr->Visible = false;
}
for (int r=0; rCount; r++)
{
TfrmFilter* fr = ((TfrmFilter*)((TfltAddInfo*)fltlst->Items[r])->pntr);
fr->Visible = true;
fr->Align = alTop;
}
}
//---------------------------------------------------------------------------
void __fastcall TfrmUniForm::Execute()
{
if (link)
{
form->Go();
// запомним мета-информацию по полям
int cnt = form->tblBrowse->Fields->Count;
TField **flms = new TField*[cnt];
for(int i = 0; i
{
TFieldType dtype = form->tblBrowse->Fields->Fields[i]->DataType;
if (dtype == ftInteger) flms[i] = new TIntegerField(this);
if (dtype == ftString) flms[i] = new TStringField(this);
if (dtype == ftFloat) flms[i] = new TFloatField(this);
if (dtype == ftDate) flms[i] = new TDateField(this);
if (dtype == ftDateTime) flms[i] = new TDateTimeField(this);
if (dtype == ftTime) flms[i] = new TTimeField(this);
flms[i]->Required = form->tblBrowse->Fields->Fields[i]->Required;
flms[i]->ReadOnly = form->tblBrowse->Fields->Fields[i]->ReadOnly;
flms[i]->FieldName = form->tblBrowse->Fields->Fields[i]->FieldName;
продолжение
--PAGE_BREAK--