|
|
Ссылка на литературу по методам определения |
|
|
Additions |
VarChar[500] |
Примечания |
В таблице 10 («Help») представлены ссылки на справочную информацию по соответствующему разделу.
Таблица 10 – Help
Имя поля
Тип поля
Назначение
Num3
Integer
Порядковый номер записи синонима (ключ)
Topic
Char[10]
Раздел справки (соответствует таблицам)
Link
BLOB
Ссылка на файл, содержащий информацию
3.4 Реализация информационной базы данных
Все описанные таблицы, составляющие основу базы данных, функционируют в рамках созданной системы управления базой данных гигиенических нормативов. Определение типов данных полей производилось при помощи создания доменных имен. СУБД создана средствами среды программирования Delphi 7.0 и реализует все необходимые требования, которые предъявлялись в постановке задания к настоящей курсовой работе.
В основу создания данной СУБД положен принцип экономии времени и усилий конечного пользователя, т.е. работников контролирующих служб, предполагая, что программное обеспечение берет на себя все рутинные функции поиска, управления и доступа к хранимым данным. Этот принцип прослеживался во всех моментах реализации данной СУБД, включая создание удобного интерфейса для работы конечных пользователей с этим программным продуктом, продуманной структурой реляционных таблиц, выбранным форматом баз данных выполняющие SQL-запросы за наиболее короткое время. СУБД самостоятельно тестирует находящиеся в базе данных записи и обеспечивает целостность её состоянию. Запросы на информацию производятся при помощи специальных элементов управления программного интерфейса, отображаемых с использованием естественного языка. Это обеспечило высокий уровень надежности и функциональности при достаточно небольших требованиях к подготовленности конечного пользователя.
Заключение
В ходе выполнения курсового проекта были изучены основы теории реляционных баз данных а также методы разработки приложений баз данных в среде визуального программирования Delphi 7. Была исследована сформировавшаяся специфика задач, решаемых региональными комитетами охраны природы.
Главным результатом проведенной работы является создание функционирующей СУБД, обеспечивающей комплексную нормативно правовую информационную базу для осуществления различных аспектов деятельности по контролю над соблюдением гигиенических требований и норм. Приложение обладает достаточной гибкостью для возможности интеграции его в различных сферах деятельности экологических служб для выполнения конкретных целей (экомониторинг, экологический аудит, экологическая сертификация, экологическое страхование и т.д.).
Реализация данного проекта была проведена без привлечения мощных средств работы с базами данных, которые очень громоздки, поскольку носят универсальный характер и к тому же требуют необходимую базу знаний по теории баз данных.
Использование мощной среды визуального программирования Delphi 7.0 по созданию приложений работающих в операционной системе Windows и в частности приложений баз данных, позволило создать программный продукт максимально ориентированный на конечного пользователя, который, как предполагается, не искушен в вопросах теории баз данных.
Программный интерфейс максимально облегчает работу по обращению с базой данных (вплоть до выборки информации по любому критерию свойств веществ). Обращение к базе данных осуществляется в таком виде, что структура возвращаемых данных видна еще до его исполнения. СУБД самостоятельно тестирует находящиеся в базе данных записи и производит контроль над целостностью данных, устраняя возможные ошибки на всех этапах работы. Хотя круг предъявляемых требований не широк, требуется жесткий контроль над соблюдением непротиворечивости и прочих показателей данных. Они решены в рамках данной СУБД, с максимальной простотой, удобством и скоростью.
Т.о. разработанная СУБД позволяет успешно заменять большие объемы разрозненной справочной информации в рукописной, печатной и электронной форме, предоставляя все необходимые данные в удобной форме, при этом сохраняя возможность не требующего больших затрат своевременного обновления этой информации, всевозможного редактирования и перевода её в печатную форму.
Библиографический список
1. Дейт К. Дж. «Введение в системы баз данных». : Пер. с англ. – 6-е изд. – К.: Диалектика, 1998. – 784 с.
2. Фленов М. Е. «Библия Delphi». – СПб.: БХВ-Петербург, 2004. – 880 с.
3. Макарова А. С. диссертация «Разработка метода оценки и управления рисками, возникающими при обращении с веществами и материалами». – М.: РХТУ им. Д. И. Менделеева, 2001. – 144 с.
4. ГОСТ 12.01.007-76. ССБТ. Вредные вещества. Классификация и общие требования безопасности.
5. Codd S.B. Codd C.T. «Providing OLAP (On-Line Analytical Processing) to User-Analysts: An IT Mandate». – CA.: E.F.Codd & Associates, 1993. – 851 p.
6. Дюбуа П. «MySQL». – М.: Издательский дом Вильямс, 2004. – 1056 с.
7. Borland Delphi 7 Help: Developing Database Applications, IBExpert Reference
8. InterBase Documentation: Data Definition Guide, Developer’s Guide
9. Официальный сайт Минздрава России #"#">http://www.ecolportal.ru
ПРИЛОЖЕНИЕ А
Создание базы данных в терминах языка SQL
CREATE DATABASE 'E:\NORM.GDB'
USER 'MAX' PASSWORD '129'
PAGE_SIZE = 8192
DEFAULT CHARACTER SET WIN1251;
CREATE DOMAIN TBOOLEAN AS
SMALLINT
NOT NULL
CHECK (VALUE=0 OR VALUE=1);
CREATE DOMAIN TDIGIT AS
SMALLINT
CHECK (VALUE>0 AND VALUE<5);
CREATE DOMAIN TINTEGER AS
INTEGER
NOT NULL
CHECK (VALUE>0);
CREATE DOMAIN TREAL AS
DECIMAL(8,4)
CHECK (VALUE>0);
CREATE DOMAIN TSTRING10 AS
CHAR(10) CHARACTER SET WIN1251
COLLATE WIN1251;
CREATE DOMAIN TSTRING200 AS
VARCHAR(200) CHARACTER SET WIN1251
NOT NULL
COLLATE PXW_CYRL;
CREATE DOMAIN TSTRING30 AS
VARCHAR(30) CHARACTER SET WIN1251
COLLATE WIN1251;
CREATE DOMAIN TSTRING500 AS
VARCHAR(500);
CREATE GENERATOR COUNTER1;
SET GENERATOR COUNTER1 TO 1;
CREATE GENERATOR COUNTER2;
SET GENERATOR COUNTER2 TO 1;
CREATE GENERATOR COUNTER3;
SET GENERATOR COUNTER3 TO 1;
SET TERM ^ ;
CREATE PROCEDURE COUNTER1VALUE
RETURNS (
NUM INTEGER)
AS
begin
NUM = GEN_ID(COUNTER1, 1);
suspend;
end
^
SET TERM ; ^
DESCRIBE PROCEDURE COUNTER1VALUE '';
SET TERM ^ ;
CREATE PROCEDURE COUNTER2VALUE
RETURNS (
NUM INTEGER)
AS
begin
NUM = GEN_ID(COUNTER2, 1);
suspend;
end
^
SET TERM ; ^
DESCRIBE PROCEDURE COUNTER2VALUE '';
SET TERM ^ ;
CREATE PROCEDURE COUNTER3VALUE
RETURNS (
NUM INTEGER)
AS
begin
NUM=GEN_ID(COUNTER3, 1);
suspend;
end
^
SET TERM ; ^
DESCRIBE PROCEDURE COUNTER3VALUE '';
CREATE TABLE ELEMENTS (
NUM1 TINTEGER NOT NULL,
NAME TSTRING200 NOT NULL,
CAS TSTRING10,
FORMULA TSTRING30);
alter table ELEMENTS
add constraint PK_ELEMENTS
primary key (NUM1);
CREATE TABLE SYNONYMS (
NUM2 TINTEGER NOT NULL,
NUM1 TINTEGER NOT NULL,
SYNONYM TINTEGER);
alter table SYNONYMS
add constraint PK_SYNONYMS
primary key (NUM2,NUM1);
alter table SYNONYMS
add constraint FK_SYNONYMS_1
foreign key (NUM1)
references ELEMENTS(NUM1)
on update CASCADE;
CREATE TABLE WORKZONE (
NUM1 TINTEGER NOT NULL,
DATA TBOOLEAN NOT NULL,
CLASS TDIGIT,
PDK TREAL,
OBUV TREAL,
CONDITION TSTRING30,
INFLUENCE TSTRING500,
ADDITIONS TSTRING500);
alter table WORKZONE
add constraint PK_WORKZONE
primary key (NUM1);
alter table WORKZONE
add constraint FK_WORKZONE_1
foreign key (NUM1)
references ELEMENTS(NUM1);
CREATE TABLE LIVEZONE (
NUM1 TINTEGER NOT NULL,
DATA TBOOLEAN NOT NULL,
CLASS TDIGIT,
PDKM TREAL,
PDKD TREAL,
OBUV TREAL,
LIMIT TSTRING30,
ADDITIONS TSTRING500);
alter table LIVEZONE
add constraint PK_LIVEZONE
primary key (NUM1);
alter table LIVEZONE
add constraint FK_LIVEZONE_1
foreign key (NUM1)
references ELEMENTS(NUM1);
CREATE TABLE WATER (
NUM1 TINTEGER NOT NULL,
DATA TBOOLEAN NOT NULL,
CLASS TDIGIT,
PDK TREAL,
ODU TREAL,
LIMIT TSTRING30,
ADDITIONS TSTRING500);
alter table WATER
add constraint PK_WATER
primary key (NUM1);
alter table WATER
add constraint FK_WATER_1
foreign key (NUM1)
references ELEMENTS(NUM1);
CREATE TABLE GROUND (
NUM1 TINTEGER NOT NULL,
DATA TBOOLEAN NOT NULL,
PDKF TREAL,
ODK TREAL,
LIMIT TSTRING30,
METHOD TSTRING500,
ADDITIONS TSTRING500);
alter table GROUND
add constraint PK_GROUND
primary key (NUM1);
alter table GROUND
add constraint FK_GROUND_1
foreign key (NUM1)
references ELEMENTS(NUM1);
CREATE TABLE FISHING (
NUM1 TINTEGER NOT NULL,
DATA TBOOLEAN NOT NULL,
CLASS TDIGIT,
PDK TREAL,
OBUV TREAL,
LIMIT TSTRING30,
DOC TSTRING500,
UPDATES TSTRING500,
METHOD TSTRING500,
ADDITIONS TSTRING500);
alter table FISHING
add constraint PK_FISHING
primary key (NUM1);
alter table FISHING
add constraint FK_FISHING_1
foreign key (NUM1)
references ELEMENTS(NUM1);
CREATE TABLE HELPS (
NUM3 TINTEGER NOT NULL,
TOPIC TSTRING10,
LINK BLOB SUB_TYPE 0 SEGMENT SIZE 80 NOT NULL);
alter table HELPS
add constraint PK_HELPS
primary key (NUM3);
При использовании материалов активная ссылка на источник обязательна.