Разработка программного обеспечения для Отделения Реанимации и Интенсивной Терапии Новорожденных при Муниципальной Городской Больнице
Типы современных баз данных, принципы работы с файловыми системами. Основные функции СУБД. Анализ достоинств и недостатков систем на инвертированных списках, иерархических и сетевых систем. Использование языка Delphi для разработки модели АСУ ОРИТН.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 09.06.2010 |
| Размер файла | 2,2 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Заметим, что в этой лекции мы ограничиваемся рассмотрением только общих подходов к организации трех типов ранних систем, а именно, систем, основанных на инвертированных списках, иерархических и сетевых систем управления базами данных. Мы не будем касаться особенностей каких-либо конкретных систем; это привело бы к изложению многих технических деталей, которые, хотя и интересны, находятся несколько в стороне от основной цели нашего курса. Детали можно найти в рекомендованной литературе.
Начнем с некоторых наиболее общих характеристик ранних систем:
a. Эти системы активно использовались в течение многих лет, дольше, чем используется какая-либо из реляционных СУБД. На самом деле некоторые из ранних систем используются даже в наше время, накоплены громадные базы данных, и одной из актуальных проблем информационных систем является использование этих систем совместно с современными системами.
b. Все ранние системы не основывались на каких-либо абстрактных моделях. Как мы упоминали, понятие модели данных фактически вошло в обиход специалистов в области БД только вместе с реляционным подходом. Абстрактные представления ранних систем появились позже на основе анализа и выявления общих признаков у различных конкретных систем.
c. В ранних системах доступ к БД производился на уровне записей. Пользователи этих систем осуществляли явную навигацию в БД, используя языки программирования, расширенные функциями СУБД. Интерактивный доступ к БД поддерживался только путем создания соответствующих прикладных программ с собственным интерфейсом.
d. Можно считать, что уровень средств ранних СУБД соотносится с уровнем файловых систем примерно так же, как уровень языка Кобол соотносится с уровнем языка Ассемблера. Заметим, что при таком взгляде уровень реляционных систем соответствует уровню языков Ада или APL.
e. Навигационная природа ранних систем и доступ к данным на уровне записей заставляли пользователя самого производить всю оптимизацию доступа к БД, без какой-либо поддержки системы.
f. После появления реляционных систем большинство ранних систем было оснащено "реляционными" интерфейсами. Однако в большинстве случаев это не сделало их по-настоящему реляционными системами, поскольку оставалась возможность манипулировать данными в естественном для них режиме.
3.1 Основные особенности систем, основанных на инвертированных списках
К числу наиболее известных и типичных представителей таких систем относятся Datacom/DB компании Applied Data Research, Inc. (ADR), ориентированная на использование на машинах основного класса фирмы IBM, и Adabas компании Software AG.
Организация доступа к данным на основе инвертированных списков используется практически во всех современных реляционных СУБД, но в этих системах пользователи не имеют непосредственного доступа к инвертированным спискам (индексам). Кстати, когда мы будем рассматривать внутренние интерфейсы реляционных СУБД, вы увидите, что они очень близки к пользовательским интерфейсам систем, основанных на инвертированных списках.
3.1.1 Структуры данных
База данных, организованная с помощью инвертированных списков, похожа на реляционную БД, но с тем отличием, что хранимые таблицы и пути доступа к ним видны пользователям. При этом:
a. Строки таблиц упорядочены системой в некоторой физической последовательности.
b. Физическая упорядоченность строк всех таблиц может определяться и для всей БД (так делается, например, в Datacom/DB).
c. Для каждой таблицы можно определить произвольное число ключей поиска, для которых строятся индексы. Эти индексы автоматически поддерживаются системой, но явно видны пользователям.
3.1.2 Манипулирование данными
Поддерживаются два класса операторов:
a. Операторы, устанавливающие адрес записи, среди которых:
прямые поисковые операторы (например, найти первую запись таблицы по некоторому пути доступа);
операторы, находящие запись в терминах относительной позиции от предыдущей записи по некоторому пути доступа.
Операторы над адресуемыми записями
Типичный набор операторов:
LOCATE FIRST - найти первую запись таблицы T в физическом порядке; возвращает адрес записи;
LOCATE FIRST WITH SEARCH KEY EQUAL - найти первую запись таблицы T с заданным значением ключа поиска K; возвращает адрес записи;
LOCATE NEXT - найти первую запись, следующую за записью с заданным адресом в заданном пути доступа; возвращает адрес записи;
LOCATE NEXT WITH SEARCH KEY EQUAL - найти следующую запись таблицы T в порядке пути поиска с заданным значением K; должно быть соответствие между используемым способом сканирования и ключом K; возвращает адрес записи;
LOCATE FIRST WITH SEARCH KEY GREATER - найти первую запись таблицы T в порядке ключа поиска K cо значением ключевого поля, большим заданного значения K; возвращает адрес записи;
RETRIVE - выбрать запись с указанным адресом;
UPDATE - обновить запись с указанным адресом;
DELETE - удалить запись с указанным адресом;
STORE - включить запись в указанную таблицу; операция генерирует адрес записи.
3.1.3 Ограничения целостности
Общие правила определения целостности БД отсутствуют. В некоторых системах поддерживаются ограничения уникальности значений некоторых полей, но в основном все возлагается на прикладную программу.
3.2 Иерархические системы
Типичным представителем (наиболее известным и распространенным) является Information Management System (IMS) фирмы IBM. Первая версия появилась в 1968 г. До сих пор поддерживается много баз данных, что создает существенные проблемы с переходом как на новую технологию БД, так и на новую технику.
3.2.1 Иерархические структуры данных
Иерархическая БД состоит из упорядоченного набора деревьев; более точно, из упорядоченного набора нескольких экземпляров одного типа дерева.
Тип дерева состоит из одного "корневого" типа записи и упорядоченного набора из нуля или более типов поддеревьев (каждое из которых является некоторым типом дерева). Тип дерева в целом представляет собой иерархически организованный набор типов записи.
Пример типа дерева (схемы иерархической БД):
Здесь Отдел является предком для Начальник и Сотрудники, а Начальник и Сотрудники - потомки Отдел. Между типами записи поддерживаются связи.
База данных с такой схемой могла бы выглядеть следующим образом (мы показываем один экземпляр дерева):
Все экземпляры данного типа потомка с общим экземпляром типа предка называются близнецами. Для БД определен полный порядок обхода - сверху-вниз, слева-направо.
В IMS использовалась оригинальная и нестандартная терминология: "сегмент" вместо "запись", а под "записью БД" понималось все дерево сегментов.
3.2.2 Манипулирование данными
Примерами типичных операторов манипулирования иерархически организованными данными могут быть следующие:
Найти указанное дерево БД (например, отдел 310);
Перейти от одного дерева к другому;
Перейти от одной записи к другой внутри дерева (например, от отдела - к первому сотруднику);
Перейти от одной записи к другой в порядке обхода иерархии;
Вставить новую запись в указанную позицию;
Удалить текущую запись.
3.2.3 Ограничения целостности
Автоматически поддерживается целостность ссылок между предками и потомками. Основное правило: никакой потомок не может существовать без своего родителя. Заметим, что аналогичное поддержание целостности по ссылкам между записями, не входящими в одну иерархию, не поддерживается (примером такой "внешней" ссылки может быть содержимое поля Каф_Номер в экземпляре типа записи Куратор).
В иерархических системах поддерживалась некоторая форма представлений БД на основе ограничения иерархии. Примером представления приведенной выше БД может быть иерархия
3.3 Сетевые системы
Типичным представителем является Integrated Database Management System (IDMS) компании Cullinet Software, Inc., предназначенная для использования на машинах основного класса фирмы IBM под управлением большинства операционных систем. Архитектура системы основана на предложениях Data Base Task Group (DBTG) Комитета по языкам программирования Conference on Data Systems Languages (CODASYL), организации, ответственной за определение языка программирования Кобол. Отчет DBTG был опубликован в 1971 г., а в 70-х годах появилось несколько систем, среди которых IDMS.
3.3.1 Сетевые структуры данных
Сетевой подход к организации данных является расширением иерархического. В иерархических структурах запись-потомок должна иметь в точности одного предка; в сетевой структуре данных потомок может иметь любое число предков.
Сетевая БД состоит из набора записей и набора связей между этими записями, а если говорить более точно, из набора экземпляров каждого типа из заданного в схеме БД набора типов записи и набора экземпляров каждого типа из заданного набора типов связи.
Тип связи определяется для двух типов записи: предка и потомка. Экземпляр типа связи состоит из одного экземпляра типа записи предка и упорядоченного набора экземпляров типа записи потомка. Для данного типа связи L с типом записи предка P и типом записи потомка C должны выполняться следующие два условия:
Каждый экземпляр типа P является предком только в одном экземпляре L;
Каждый экземпляр C является потомком не более, чем в одном экземпляре L.
На формирование типов связи не накладываются особые ограничения; возможны, например, следующие ситуации:
a. Тип записи потомка в одном типе связи L1 может быть типом записи предка в другом типе связи L2 (как в иерархии).
b. Данный тип записи P может быть типом записи предка в любом числе типов связи.
c. Данный тип записи P может быть типом записи потомка в любом числе типов связи.
d. Может существовать любое число типов связи с одним и тем же типом записи предка и одним и тем же типом записи потомка; и если L1 и L2 - два типа связи с одним и тем же типом записи предка P и одним и тем же типом записи потомка C, то правила, по которым образуется родство, в разных связях могут различаться.
e. Типы записи X и Y могут быть предком и потомком в одной связи и потомком и предком - в другой.
f. Предок и потомок могут быть одного типа записи.
Простой пример сетевой схемы БД
3.3.2 Манипулирование данными
Примерный набор операций может быть следующим:
Найти конкретную запись в наборе однотипных записей (инженера Сидорова);
Перейти от предка к первому потомку по некоторой связи (к первому сотруднику отдела 310);
Перейти к следующему потомку в некоторой связи (от Сидорова к Иванову);
Перейти от потомка к предку по некоторой связи (найти отдел Сидорова);
Создать новую запись;
Уничтожить запись;
Модифицировать запись;
Включить в связь;
Исключить из связи;
Переставить в другую связь и т.д.
3.3.3 Ограничения целостности
В принципе их поддержание не требуется, но иногда требуют целостности по ссылкам (как в иерархической модели).
3.4 Достоинства и недостатки
Сильные места ранних СУБД:
Развитые средства управления данными во внешней памяти на низком уровне;
Возможность построения вручную эффективных прикладных систем;
Возможность экономии памяти за счет разделения подобъектов (в сетевых системах).
Недостатки:
Слишком сложно пользоваться;
Фактически необходимы знания о физической организации;
Прикладные системы зависят от этой организации;
Их логика перегружена деталями организации доступа к БД.
4. Теоретические основы
Мы приступаем к изучению реляционных баз данных и систем управления реляционными базами данных. Этот подход является наиболее распространенным в настоящее время, хотя наряду с общепризнанными достоинствами обладает и рядом недостатков. К числу достоинств реляционного подхода можно отнести:
наличие небольшого набора абстракций, которые позволяют сравнительно просто моделировать большую часть распространенных предметных областей и допускают точные формальные определения, оставаясь интуитивно понятными;
наличие простого и в то же время мощного математического аппарата, опирающегося главным образом на теорию множеств и математическую логику и обеспечивающего теоретический базис реляционного подхода к организации баз данных;
возможность ненавигационного манипулирования данными без необходимости знания конкретной физической организации баз данных во внешней памяти.
Реляционные системы далеко не сразу получили широкое распространение. В то время, как основные теоретические результаты в этой области были получены еще в 70-х, и тогда же появились первые прототипы реляционных СУБД, долгое время считалось невозможным добиться эффективной реализации таких систем. Однако отмеченные выше преимущества и постепенное накопление методов и алгоритмов организации реляционных баз данных и управления ими привели к тому, что уже в середине 80-х годов реляционные системы практически вытеснили с мирового рынка ранние СУБД.
В настоящее время основным предметом критики реляционных СУБД является не их недостаточная эффективность, а присущая этим системам некоторая ограниченность (прямое следствие простоты) при использование в так называемых нетрадиционных областях (наиболее распространенными примерами являются системы автоматизации проектирования), в которых требуются предельно сложные структуры данных. Еще одним часто отмечаемым недостатком реляционных баз данных является невозможность адекватного отражения семантики предметной области. Другими словами, возможности представления знаний о семантической специфике предметной области в реляционных системах очень ограничены. Современные исследования в области постреляционных систем главным образом посвящены именно устранению этих недостатков.
4.1 Базовые понятия реляционных баз данных
Основными понятиями реляционных баз данных являются тип данных, домен, атрибут, кортеж, первичный ключ и отношение.
Для начала покажем смысл этих понятий на примере отношения СОТРУДНИКИ, содержащего информацию о сотрудниках некоторой организации:
4.2 Тип данных
Понятие тип данных в реляционной модели данных полностью адекватно понятию типа данных в языках программирования. Обычно в современных реляционных БД допускается хранение символьных, числовых данных, битовых строк, специализированных числовых данных (таких как "деньги"), а также специальных "темпоральных" данных (дата, время, временной интервал). Достаточно активно развивается подход к расширению возможностей реляционных систем абстрактными типами данных (соответствующими возможностями обладают, например, системы семейства Ingres/Postgres). В нашем примере мы имеем дело с данными трех типов: строки символов, целые числа и "деньги".
4.3 Домен
Понятие домена более специфично для баз данных, хотя и имеет некоторые аналогии с подтипами в некоторых языках программирования. В самом общем виде домен определяется заданием некоторого базового типа данных, к которому относятся элементы домена, и произвольного логического выражения, применяемого к элементу типа данных. Если вычисление этого логического выражения дает результат "истина", то элемент данных является элементом домена.
Наиболее правильной интуитивной трактовкой понятия домена является понимание домена как допустимого потенциального множества значений данного типа. Например, домен "Имена" в нашем примере определен на базовом типе строк символов, но в число его значений могут входить только те строки, которые могут изображать имя (в частности, такие строки не могут начинаться с мягкого знака).
Следует отметить также семантическую нагрузку понятия домена: данные считаются сравнимыми только в том случае, когда они относятся к одному домену. В нашем примере значения доменов "Номера пропусков" и "Номера групп" относятся к типу целых чисел, но не являются сравнимыми. Заметим, что в большинстве реляционных СУБД понятие домена не используется, хотя в Oracle V.7 оно уже поддерживается.
4.4 Схема отношения, схема базы данных
Схема отношения - это именованное множество пар {имя атрибута, имя домена (или типа, если понятие домена не поддерживается)}. Степень или "арность" схемы отношения - мощность этого множества. Степень отношения СОТРУДНИКИ равна четырем, то есть оно является 4-арным. Если все атрибуты одного отношения определены на разных доменах, осмысленно использовать для именования атрибутов имена соответствующих доменов (не забывая, конечно, о том, что это является всего лишь удобным способом именования и не устраняет различия между понятиями домена и атрибута).
Схема БД (в структурном смысле) - это набор именованных схем отношений.
4.5 Кортеж, отношение
Кортеж, соответствующий данной схеме отношения, - это множество пар {имя атрибута, значение}, которое содержит одно вхождение каждого имени атрибута, принадлежащего схеме отношения. "Значение" является допустимым значением домена данного атрибута (или типа данных, если понятие домена не поддерживается). Тем самым, степень или "арность" кортежа, т.е. число элементов в нем, совпадает с "арностью" соответствующей схемы отношения. Попросту говоря, кортеж - это набор именованных значений заданного типа.
Отношение - это множество кортежей, соответствующих одной схеме отношения. Иногда, чтобы не путаться, говорят "отношение-схема" и "отношение-экземпляр", иногда схему отношения называют заголовком отношения, а отношение как набор кортежей - телом отношения. На самом деле, понятие схемы отношения ближе всего к понятию структурного типа данных в языках программирования. Было бы вполне логично разрешать отдельно определять схему отношения, а затем одно или несколько отношений с данной схемой.
Однако в реляционных базах данных это не принято. Имя схемы отношения в таких базах данных всегда совпадает с именем соответствующего отношения-экземпляра. В классических реляционных базах данных после определения схемы базы данных изменяются только отношения-экземпляры. В них могут появляться новые и удаляться или модифицироваться существующие кортежи. Однако во многих реализациях допускается и изменение схемы базы данных: определение новых и изменение существующих схем отношения. Это принято называть эволюцией схемы базы данных.
Обычным житейским представлением отношения является таблица, заголовком которой является схема отношения, а строками - кортежи отношения-экземпляра; в этом случае имена атрибутов именуют столбцы этой таблицы. Поэтому иногда говорят "столбец таблицы", имея в виду "атрибут отношения". Когда мы перейдем к рассмотрению практических вопросов организации реляционных баз данных и средств управления, мы будем использовать эту житейскую терминологию. Этой терминологии придерживаются в большинстве коммерческих реляционных СУБД.
Реляционная база данных - это набор отношений, имена которых совпадают с именами схем отношений в схеме БД.
Как видно, основные структурные понятия реляционной модели данных (если не считать понятия домена) имеют очень простую интуитивную интерпретацию, хотя в теории реляционных БД все они определяются абсолютно формально и точно.
5. Методы, использованные для решения задачи
Базовым инструментом для написания данного проекта был взят Delphi.
5.1 Открытая архитектура Delphi
Компания Borland в развитии своих объектно-ориентированных средств разработки явно пришла к тому выводу, что повторное использование кода и объектная ориентация не являются единственными средствами повышения производительности программистов. С появлением Delphi разработчик может не только создавать и предоставлять своим коллегам готовые к использованию компоненты, но и расширять функциональные возможности среды, в которой он работает, с помощью так называемых "открытых интерфейсов". Такой подход позволяет использовать Delphi уже в роли общего ядра набора инструментальных средств на всех этапах создания прикладных систем - начиная с CASE-систем и заканчивая генерацией документации по создаваемым проектам, с полной их интеграцией в "святая святых" любой среды программирования - IDE. Рассмотрим основные возможности расширения функциональности среды Delphi для того, чтобы оценить степень "открытости" архитектуры этого инструмента.
5.2 "Строительные блоки" приложений - компоненты
Как известно, фундаментальной основой визуальных средств Delphi является компонентный подход. В чем же он заключается?
Delphi строится на базе компилятора объектно-ориентированного языка Object Pascal, продолжающего линию диалектов Pascal - Turbo Pascal и Borland Pascal. По мере своего развития, каждая очередная реализация Pascal компании Borland включала все новые расширения синтаксиса, отражающие последние достижения в области языков программирования. Если подходить к оценке качественных "ступеней" развития Pascal, особо следует отметить три из них, направленные на поддержку концепции повторного использования кода:
модульная архитектура, с возможностью разделения интерфейсной и описательной частей (Turbo Pascal 4.0);
средства объектной ориентации, со всеми, присущими ей характеристиками - наследованием, инкапсуляцией и полиморфизмом (Turbo Pascal 5.5);
поддержка механизмов RTTI (Run-Time Type Information), позволяющих получать информацию о базовых характеристиках объектных типов (классов) и их экземпляров (объектов) с помощью языковых средств, непосредственно встроенных в системную библиотеку и структуру организации описаний классов (Delphi 1.0 - Object Pascal);
Следствием введения поддержки RTTI стала возможность создания визуального инструмента разработки приложений, каковым и является Delphi. На определенном уровне иерархии наследования базовой библиотеки классов Delphi появляется класс TPersistent, обеспечивающий необходимый уровень абстракции потокового ввода/вывода объектов (экземпляров классов). Его наследником выступает класс TComponent, определяющий основы поведения компонент Delphi VCL (Visual Component Library) в режиме design-time (этап "конструирования" приложения). На оконечных точках ветвей иерархии VCL находятся как таковые компоненты - готовые к визуальному использованию классы, непосредственно регистрируемые в рабочей библиотеке компонент и доступные из Палитры Компонент (Components Palette) IDE Delphi.
Так как компоненты, используемые в разрабатываемой программе, написаны на том же языке, который используется при создании приложений, программист может достаточно легко создавать и регистрировать в Палитре свои компоненты, наследуя их от тех или иных представителей иерархии VCL или уже созданных программистом своих классов.
С другой стороны, механизмы регистрации и дальнейшего наследования уже существующих стандартов динамического связывания (Windows DLL) и компонентной архитектуры (VBX в Delphi 1.0 и OCX - в 32- разрядной версии Delphi) позволяют использовать в Delphi доступные внешние инструменты (например, компиляторы C++) и, созданные с их помощью, программные блоки.
Самодостаточность Delphi для расширения набора доступных компонент является первым признаком открытости архитектуры этого инструмента.
5.3 Редакторы свойств и редакторы компонент - поведение IDE
Логично, что при визуальном подходе к определению характеристик компонент (работа в design- time), необходимы средства определения редакторов специфических свойств в Инспекторе Объектов (Object Inspector).
Особенно остро встает для разработчиков компонент вопрос создания и использования редакторов свойств, когда свойства имеют сложный тип. Например, свойство может предоставлять ссылку на достаточно сложную структуру - запись или на строго определенных наследников одного из стандартных или пользовательских классов. Возможные ситуации:
1) класс "множество данных" TDataSet - является предком и таблиц, и запросов, и хранимых процедур; можно сформулировать такую задачу, когда в качестве значения свойства в design-time должны выступать только запросы и таблицы, но, ни в коем случае - хранимые процедуры;
2) шрифт описывается рядом характеристик, представляемых вложенными записями.
Delphi предоставляет разработчику ряд базовых классов, входящих в иерархию VCL, которые предназначены для создания редакторов свойств.
Стандартные редакторы свойств (более 20) являются наследниками базовых редакторов и, вместе с последними, доступны программисту для расширения/изменения функциональности, опять-таки, с использованием механизмов наследования и полиморфизма. Регистрация редакторов свойств и регистрации компонент аналогична регистрации самих компонент.
Так как редакторы свойств и редакторы компонент определяют design-time, существование таких редакторов и возможность расширения их функциональности являются вторым признаком открытости Delphi.
5.4 Генерация кода - эксперты
В процессе развития и, в том числе, визуализации средств разработки приложений, на фоне стандартизации пользовательского интерфейса в различных областях применения конечных систем, неотъемлемой частью таких инструментов стали генераторы кода и форм представления и ввода информации - эксперты.
Кроме того, что Delphi включает ряд уже готовых к использованию экспертов (например, DataBase Form Expert, генерирующий формы и соответствующий код для простых приложений обработки баз данных с использованием запросов), эта среда программирования предоставляет разработчикам интерфейс для создания собственных экспертов, встраиваемых в IDE.
Необходимо отметить, что функциональность таких экспертов может не ограничиваться на генерации кода, в силу того, что интерфейс экспертов дает возможность получения информации о внутренних объектах IDE, таких как палитра компонент. Вследствие этого, под общим названием "эксперты" могут фигурировать программные модули, позволяющие управлять повелением IDE, окна дизайнера и ее редактора исходных текстов, а также генерировать отчетную информацию о создаваемом проекте. (На приведенном выше рисунке вы можете увидеть эксперт, разработанный в Delphi и встроенный в IDE; функциональность этого эксперта заключается в предоставлении разработчику информации об иерархии наследования зарегистрированных компонент без компиляции; в данном случае доступ осуществляется через меню "Help", хотя возможна регистрация и в "галерее" шаблонов Delphi).
Наличие средств построения программных модулей генерации кода и обработки внутренней IDE- информации, называемых экспертами, являются третьим признаком открытости архитектуры Delphi.
5.5 Интеграция с внешними приложениями - открытые интерфейсы
Как следствие возможности обмена информацией с IDE, реальным кажется и интеграция среды разработки Delphi с внешними инструментальными средствами - системами контроля версий, мониторами транзакций, CASE-системами и т.п.
И действительно, ряд производителей программных продуктов, относящихся к перечисленным категориям, заявил о поддержке ими Delphi на достаточно высоком уровне интеграции (подразумевая, например, для CASE-систем, не только генерацию кода в соответствии с синтаксисом Object Pascal, но и доступ к таким продуктам непосредственно из IDE). В качестве примера можно привести компанию Popkin Software (производителя CASE-средства System Architect), объявившую о поддержки Delphi в своих продуктах еще в августе 1995 года. Известен ряд систем контроля версий - Intersolv PVCS и MKS Source Integrity, способных работать с Delphi (32-разрядная версия PVCS входит в поставку Delphi Client/Server Suite 2.0, и, например, мониторов транзакций (существует опыт взаимодействия с Novell Tuxedo и др.).
Описанные возможности интеграции с внешними приложениями на базе совокупности открытых интерфейсов, определяют четвертый признак открытости архитектуры Delphi.
5.6 Delphi - оптимальный инструмент разработчика БД
Наконец, мы можем концептуально представить архитектуру открытых интерфейсов Delphi. Она приведена на следующей диаграмме:
Вследствие такой открытости архитектуры Delphi, большое количество третьих компаний уже выбросило на рынок (или объявило о соответствующих планах) как различные расширения библиотеки компонент VCL (более 200 только коммерческих наборов компонент на октябрь 1995 г.) так и средства интеграции своих продуктов (external-site interface).
6. Получение результатов
Дипломный проект был условно разбит на четыре этапа.
Анализ существующей структуры отделения. Анализ работы отделения.
Разработка модели АСУ ОРИТН.
Описание АРМа “ОРИТН в порядке”.
Внедрение программного продукта.
На первом этапе был проведен детальный анализ существующей структуры отделения путем опроса и анкетирования специалистов отделения, ознакомлением с документацией и существующими отчетными формами.
Была предложена следующая схема автоматизации отделения. При поступлении больного дежурный врач заносит начальные сведения в базу данных ОРИТН. При занесении больному присваивается уникальный номер и он закрепляется за дежурным врачом на данные сутки. После регистрации активизируется пакет плановых мероприятий, предлагающий дежурному врачу выбрать и назначить необходимые анализы и процедуры. Данный пакет активизируется на рабочем месте медицинской сестры ежесуточно, которая после проведения конкретной процедуры фиксирует в пакете плановых мероприятий о выполнении или о не выполнении. “ОРИТН в порядке” контролирует выполнение всего пакета плановых мероприятий, в случае невыполнения хотя бы одного из пунктов система сигнализирует вплоть до полного завершения всех плановых мероприятий. Дежурный врач в случае необходимости составляет пакет экстренных мероприятий. Контролирование выполнения данного пакета выполняется аналогично предыдущему. Прекращение работы данных пакетов происходить после заполнения врачом формы о смерти или выписке. Полная история архивируется и остается в базе данных “ОРИТН в порядке”.
АРМ “ОРИТН в порядке” реализован на языке Delphi. В программе реализованы 8 уровней доступа характеризованные разделением функций персонала по штатному расписанию.
Заведующий отделением.
Врач ординатор реаниматолог-неонатолог.
Старшая медицинская сестра.
Процедурная медицинская сестра.
Палатная медицинская сестра.
Сестра-хозяйка.
Санитарка палатная.
Санитарка автоклава.
У каждого работника персонала есть собственный уникальный пароль на доступ к программе. В начале каждых суток ”ОРИТН в порядке” закрывает существующие сессии и предлагает новой смене зарегистрироваться. Затем происходит закрепление больных за врачами-ординаторами и медицинскими сестрами. Активизируются пакеты плановых мероприятий на рабочих местах врачей-ординаторов (с возможностью корректировки) и медицинских сестер. Врач-ординатор анализирует данные за прошедшие сутки и вносит необходимые изменения в один из пакетов.
7. Модуль «Администратор программы «ОРИТН в порядке»»
Поскольку разграничение доступа не позволяет корректировать записи в базе данных, появилась необходимость в разработке. Данный модуль позволяет вносить коррективы в любой раздел БД.
При загрузке модуль проверяет наличие прав доступа и в случае наличия полномочий загружает основное окно (рис. 1п).
В наглядном виде представляются все данные, режим редактирования общепринятый и интуитивно понятный.
В виде закладок отображены поля БД, для осуществления операций ввода и удаления предусмотрены кнопочки. Ввод новой записи контролируется на уникальность.
На рисунке представлена одна из закладок «персонал».
Суть данного модуля заключается в оперативной корректировке данных по всей базе ОРИТН, поскольку основной модуль исключает возможность удаления данных.
Заключение
Модель автоматизации деятельности отделения РИТН МГБ №1 соответствует требованиям, разработанным в ходе построения модели. Стандартизированы нами формы отчетности приняты за основу при дальнейшей разработке региональной базы данных по учету больных в данной области медицины. Результатом проектирования стало написание статистической базы данных “ОРИТН в порядке” версии 1.0 и “модуля администратора” “ОРИТН в порядке” на языке Delphi 3.0. Проделанная работа одобрена руководством отделения РИТН, в лице зав. Отделением Челнокова С.Б.
Литература
1. С.Д. Кузнецов “Основы современных баз данных”, http://www.citforum.ru/database/osbd/contents.shtml
2. К. Дейта, "Введение в системы баз данных", Наука, 1980.
3. "Руководство по реляционной СУБД DB2", Финансы и статистика, 1988.
4. Дж. Ульман "Основы систем баз данных", Финансы и статистика, 1983.
5. Материалы 6-й Ежегодной Конференции Разработчиков Borland.
6. Периодические издания (1998 год): Delphi Informant, Delphi Developer, Microsoft System Journal, Dr. Dobb Journal, Компьютерр-Пресс и др.
7. WWW-серверы: Borland, Miller Friman, Turbo Power, ProtoView, Popkin Software, InterSolv, AOL и др.
8. "Delphi Developers Guide", S.Tiexeira & X. Pacheco, SAMS Publishing / Borland PRESS.
9. Каталоги программных продуктов "Delphi Only Tools" ZAC Catalog, "Delphi Power Tools" Informant Communications Group.
Приложение
Модуль «Администратор программы «ОРИТН в порядке»»
Main.pas
unit Main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, ComCtrls, StdCtrls, Buttons, ToolWin, Grids, DBGrids, DBCtrls;
type
TFrmMain = class(TForm)
Panel1: TPanel;
ToolBar1: TToolBar;
BitBtn1: TBitBtn;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
TabSheet6: TTabSheet;
TabSheet7: TTabSheet;
TabSheet8: TTabSheet;
TabSheet9: TTabSheet;
Panel2: TPanel;
DBGrid1: TDBGrid;
PageControl2: TPageControl;
TabSheet10: TTabSheet;
TabSheet11: TTabSheet;
TabSheet12: TTabSheet;
TabSheet13: TTabSheet;
DBMemo1: TDBMemo;
DBMemo2: TDBMemo;
DBMemo3: TDBMemo;
DBMemo4: TDBMemo;
DBGrid2: TDBGrid;
Panel3: TPanel;
DBNavigator1: TDBNavigator;
Panel4: TPanel;
DBNavigator2: TDBNavigator;
Panel5: TPanel;
Panel6: TPanel;
Panel7: TPanel;
Panel8: TPanel;
Panel9: TPanel;
Panel10: TPanel;
Panel11: TPanel;
Panel12: TPanel;
EditDS: TEdit;
BitBtn2: TBitBtn;
BtnSAVE: TBitBtn;
Panel13: TPanel;
DBNavigator3: TDBNavigator;
DBGrid3: TDBGrid;
BitBtn3: TBitBtn;
Panel14: TPanel;
Panel15: TPanel;
DBNavigator4: TDBNavigator;
DBGrid4: TDBGrid;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BtnSAVEENTER: TBitBtn;
EditENTER: TEdit;
Panel16: TPanel;
BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
tnSAVEENTER2: TBitBtn;
EditENTER2: TEdit;
Panel17: TPanel;
DBNavigator5: TDBNavigator;
DBGrid5: TDBGrid;
Panel18: TPanel;
BitBtn8: TBitBtn;
BitBtn9: TBitBtn;
BtnSAVEPERSONAL: TBitBtn;
Panel19: TPanel;
DBNavigator6: TDBNavigator;
EditPERSONAL: TEdit;
DBGrid6: TDBGrid;
Panel20: TPanel;
BitBtn10: TBitBtn;
BitBtn11: TBitBtn;
BtnSAVEPTYPE: TBitBtn;
EditPTYPE: TEdit;
Panel21: TPanel;
DBNavigator7: TDBNavigator;
DBGrid7: TDBGrid;
Panel22: TPanel;
BitBtn12: TBitBtn;
BitBtn13: TBitBtn;
BtnSAVESTREET: TBitBtn;
EditSTREET: TEdit;
Panel23: TPanel;
DBNavigator8: TDBNavigator;
DBGrid8: TDBGrid;
Panel24: TPanel;
BitBtn14: TBitBtn;
BitBtn15: TBitBtn;
BtnSAVEVILLAGE: TBitBtn;
EditVILLAGE: TEdit;
Panel25: TPanel;
DBNavigator9: TDBNavigator;
DBGrid9: TDBGrid;
procedure EditDSChange(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BtnSAVEClick(Sender: TObject);
procedure EditDSClick(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BtnSAVEENTERClick(Sender: TObject);
procedure EditENTERChange(Sender: TObject);
procedure EditENTERClick(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure BtnSAVEENTER2Click(Sender: TObject);
procedure EditENTER2Change(Sender: TObject);
procedure EditENTER2Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure BtnSAVEPERSONALClick(Sender: TObject);
procedure EditPERSONALChange(Sender: TObject);
procedure EditPERSONALKeyPress(Sender: TObject; var Key: Char);
procedure BitBtn10Click(Sender: TObject);
procedure BitBtn11Click(Sender: TObject);
procedure BtnSAVEPTYPEClick(Sender: TObject);
procedure EditPTYPEChange(Sender: TObject);
procedure EditPTYPEKeyPress(Sender: TObject; var Key: Char);
procedure BitBtn12Click(Sender: TObject);
procedure BitBtn13Click(Sender: TObject);
procedure BtnSAVESTREETClick(Sender: TObject);
procedure EditSTREETChange(Sender: TObject);
procedure EditSTREETKeyPress(Sender: TObject; var Key: Char);
procedure BitBtn14Click(Sender: TObject);
procedure BitBtn15Click(Sender: TObject);
procedure BtnSAVEVILLAGEClick(Sender: TObject);
procedure EditVILLAGEChange(Sender: TObject);
procedure EditVILLAGEKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmMain: TFrmMain;
implementation
uses AdminDM, DB;
{$R *.DFM}
procedure TFrmMain.EditDSChange(Sender: TObject);
begin
With DMAdmin do
begin
TblDS.Locate('TITLE', EditDS.Text, [loPartialKey]);
if (TblDSTITLE.Value <> EditDS.Text) and
(EditDS.Text <> '')
then
BtnSAVE.Enabled := True
else
BtnSAVE.Enabled := False;
TblDS.Locate('TITLE', EditDS.Text, [loPartialKey]);
end;
end;
procedure TFrmMain.BitBtn2Click(Sender: TObject);
begin
EditDS.Enabled := True;
EditDS.SetFocus;
end;
procedure TFrmMain.BtnSAVEClick(Sender: TObject);
begin
DMAdmin.TblDS.Insert;
DMAdmin.TblDSCODE.Value := DMAdmin.TblDS.RecordCount;
DMAdmin.TblDSTITLE.Value := EditDS.Text;
DMAdmin.TblDS.Post;
DMAdmin.TblDS.Refresh;
EditDS.Text := '';
EditDS.Enabled := False;
BtnSAVE.Enabled := False;
end;
procedure TFrmMain.EditDSClick(Sender: TObject);
begin
With DMAdmin do
begin
TblDS.Locate('TITLE', EditDS.Text, [loPartialKey]);
if (TblDSTITLE.Value <> EditDS.Text) and
(EditDS.Text <> '')
then
BtnSAVE.Enabled := True
else
BtnSAVE.Enabled := False;
TblDS.Locate('TITLE', EditDS.Text, [loPartialKey]);
end;
end;
procedure TFrmMain.BitBtn4Click(Sender: TObject);
begin
EditENTER.Enabled := True;
EditENTER.SetFocus;
end;
procedure TFrmMain.BitBtn3Click(Sender: TObject);
begin
EditDS.Text := '';
EditDS.Enabled := False;
BtnSAVE.Enabled := False;
end;
procedure TFrmMain.BitBtn5Click(Sender: TObject);
begin
EditENTER.Text := '';
EditENTER.Enabled := False;
BtnSAVEENTER.Enabled := False;
end;
procedure TFrmMain.BtnSAVEENTERClick(Sender: TObject);
begin
DMAdmin.TblENTERA.Insert;
DMAdmin.TblENTERACODE.Value := DMAdmin.TblENTERA.RecordCount;
DMAdmin.TblENTERATITLE.Value := EditENTER.Text;
DMAdmin.TblENTERA.Post;
DMAdmin.TblENTERA.Refresh;
EditENTER.Text := '';
EditENTER.Enabled := False;
BtnSAVEENTER.Enabled := False;
end;
procedure TFrmMain.EditENTERChange(Sender: TObject);
begin
With DMAdmin do
begin
TblENTERA.Locate('TITLE', EditENTER.Text, [loPartialKey]);
if (TblENTERATITLE.Value <> EditENTER.Text) and
(EditENTER.Text <> '')
then
BtnSAVEENTER.Enabled := True
else
BtnSAVEENTER.Enabled := False;
TblENTERA.Locate('TITLE', EditENTER.Text, [loPartialKey]);
end;
end;
procedure TFrmMain.EditENTERClick(Sender: TObject);
begin
With DMAdmin do
begin
TblENTERA.Locate('TITLE', EditENTER.Text, [loPartialKey]);
if (TblENTERTITLE.Value <> EditENTER.Text) and
(EditENTER.Text <> '')
then
BtnSAVEENTER.Enabled := True
else
BtnSAVEENTER.Enabled := False;
TblENTERA.Locate('TITLE', EditENTER.Text, [loPartialKey]);
end;
end;
procedure TFrmMain.BitBtn6Click(Sender: TObject);
begin
EditENTER2.Enabled := True;
EditENTER2.SetFocus;
end;
procedure TFrmMain.BitBtn7Click(Sender: TObject);
begin
EditENTER2.Text := '';
EditENTER2.Enabled := False;
BtnSAVEENTER2.Enabled := False;
end;
procedure TFrmMain.BtnSAVEENTER2Click(Sender: TObject);
begin
DMAdmin.TblENTER2A.Insert;
DMAdmin.TblENTER2ACODE.Value := DMAdmin.TblENTER2A. RecordCount;
DMAdmin.TblENTER2ATITLE.Value := EditENTER2.Text;
DMAdmin.TblENTER2A.Post;
DMAdmin.TblENTER2A.Refresh;
EditENTER2.Text := '';
EditENTER2.Enabled := False;
BtnSAVEENTER2.Enabled := False;
end;
procedure TFrmMain.EditENTER2Change(Sender: TObject);
begin
With DMAdmin do
begin
TblENTER2A.Locate('TITLE', EditENTER2.Text, [loPartialKey]);
if (TblENTER2ATITLE.Value <> EditENTER2.Text) and
(EditENTER2.Text <> '')
then
BtnSAVEENTER2.Enabled := True
else
BtnSAVEENTER2.Enabled := False;
TblENTER2A.Locate('TITLE', EditENTER2.Text, [loPartialKey]);
end;
end;
procedure TFrmMain.EditENTER2Click(Sender: TObject);
begin
With DMAdmin do
begin
TblENTER2A.Locate('TITLE', EditENTER2.Text, [loPartialKey]);
if (TblENTER2TITLE.Value <> EditENTER2.Text) and
(EditENTER2.Text <> '')
then
BtnSAVEENTER2.Enabled := True
else
BtnSAVEENTER2.Enabled := False;
TblENTER2A.Locate('TITLE', EditENTER2.Text, [loPartialKey]);
end;
end;
procedure TFrmMain.BitBtn8Click(Sender: TObject);
begin
EditPERSONAL.Enabled := True;
EditPERSONAL.SetFocus;
end;
procedure TFrmMain.BitBtn9Click(Sender: TObject);
begin
EditPERSONAL.Text := '';
EditPERSONAL.Enabled := False;
BtnSAVEPERSONAL.Enabled := False;
end;
procedure TFrmMain.BtnSAVEPERSONALClick(Sender: TObject);
begin
DMAdmin.TblPERSONAL.Insert;
DMAdmin.TblPERSONALID.Value := DMAdmin.TblPERSONAL.RecordCount + 1;
DMAdmin.TblPERSONALFIO.Value := EditPERSONAL.Text;
DMAdmin.TblPERSONAL.Post;
DMAdmin.TblPERSONAL.Refresh;
EditPERSONAL.Text := '';
EditPERSONAL.Enabled := False;
BtnSAVEPERSONAL.Enabled := False;
end;
procedure TFrmMain.EditPERSONALChange(Sender: TObject);
begin
With DMAdmin do
begin
TblPERSONAL.Locate('FIO', EditPERSONAL.Text, [loPartialKey]);
if (TblPERSONALFIO.Value <> EditPERSONAL.Text) and
(EditPERSONAL.Text <> '')
then
BtnSAVEPERSONAL.Enabled := True
else
BtnSAVEPERSONAL.Enabled := False;
TblPERSONAL.Locate('FIO', EditPERSONAL.Text, [loPartialKey]);
end;
end;
procedure TFrmMain.EditPERSONALKeyPress(Sender: TObject; var Key: Char);
begin
With DMAdmin do
begin
TblPERSONAL.Locate('FIO', EditPERSONAL.Text, [loPartialKey]);
if (TblPERSONALFIO.Value <> EditPERSONAL.Text) and
(EditPERSONAL.Text <> '')
then
BtnSAVEPERSONAL.Enabled := True
else
BtnSAVEPERSONAL.Enabled := False;
TblPERSONAL.Locate('FIO', EditPERSONAL.Text, [loPartialKey]);
end;
end;
procedure TFrmMain.BitBtn10Click(Sender: TObject);
begin
EditPTYPE.Enabled := True;
EditPTYPE.SetFocus;
end;
procedure TFrmMain.BitBtn11Click(Sender: TObject);
begin
EditPTYPE.Text := '';
EditPTYPE.Enabled := False;
BtnSAVEPTYPE.Enabled := False;
end;
procedure TFrmMain.BtnSAVEPTYPEClick(Sender: TObject);
begin
DMAdmin.TblPTYPE.Insert;
DMAdmin.TblPTYPECODE.Value := DMAdmin.TblPTYPE.RecordCount + 1;
DMAdmin.TblPTYPETITLE.Value := EditPTYPE.Text;
DMAdmin.TblPTYPE.Post;
DMAdmin.TblPTYPE.Refresh;
EditPTYPE.Text := '';
EditPTYPE.Enabled := False;
BtnSAVEPTYPE.Enabled := False;
end;
procedure TFrmMain.EditPTYPEChange(Sender: TObject);
begin
With DMAdmin do
begin
TblPTYPE.Locate('TITLE', EditPTYPE.Text, [loPartialKey]);
if (TblPTYPETITLE.Value <> EditPTYPE.Text) and
(EditPTYPE.Text <> '')
then
BtnSAVEPTYPE.Enabled := True
else
BtnSAVEPTYPE.Enabled := False;
TblPTYPE.Locate('TITLE', EditPTYPE.Text, [loPartialKey]);
end;
end;
procedure TFrmMain.EditPTYPEKeyPress(Sender: TObject; var Key: Char);
begin
With DMAdmin do
begin
TblPTYPE.Locate('TITLE', EditPTYPE.Text, [loPartialKey]);
if (TblPTYPETITLE.Value <> EditPTYPE.Text) and
(EditPTYPE.Text <> '')
then
BtnSAVEPTYPE.Enabled := True
else
BtnSAVEPTYPE.Enabled := False;
TblPTYPE.Locate('TITLE', EditPTYPE.Text, [loPartialKey]);
end;
end;
procedure TFrmMain.BitBtn12Click(Sender: TObject);
begin
EditSTREET.Enabled := True;
EditSTREET.SetFocus;
end;
procedure TFrmMain.BitBtn13Click(Sender: TObject);
begin
EditSTREET.Text := '';
EditSTREET.Enabled := False;
BtnSAVESTREET.Enabled := False;
end;
procedure TFrmMain.BtnSAVESTREETClick(Sender: TObject);
begin
DMAdmin.TblSTREET.Insert;
DMAdmin.TblSTREETCODE.Value := DMAdmin.TblSTREET.RecordCount + 1;
DMAdmin.TblSTREETTITLE.Value := EditSTREET.Text;
DMAdmin.TblSTREET.Post;
DMAdmin.TblSTREET.Refresh;
EditSTREET.Text := '';
EditSTREET.Enabled := False;
BtnSAVESTREET.Enabled := False;
end;
procedure TFrmMain.EditSTREETChange(Sender: TObject);
begin
With DMAdmin do
begin
TblSTREET.Locate('TITLE', EditSTREET.Text, [loPartialKey]);
if (TblSTREETTITLE.Value <> EditSTREET.Text) and
(EditSTREET.Text <> '')
then
BtnSAVESTREET.Enabled := True
else
BtnSAVESTREET.Enabled := False;
TblSTREET.Locate('TITLE', EditSTREET.Text, [loPartialKey]);
end;
end;
procedure TFrmMain.EditSTREETKeyPress(Sender: TObject; var Key: Char);
begin
With DMAdmin do
begin
TblSTREET.Locate('TITLE', EditSTREET.Text, [loPartialKey]);
if (TblSTREETTITLE.Value <> EditSTREET.Text) and
(EditSTREET.Text <> '')
then
BtnSAVESTREET.Enabled := True
else
BtnSAVESTREET.Enabled := False;
TblSTREET.Locate('TITLE', EditSTREET.Text, [loPartialKey]);
end;
end;
procedure TFrmMain.BitBtn14Click(Sender: TObject);
begin
EditVILLAGE.Enabled := True;
EditVILLAGE.SetFocus;
end;
procedure TFrmMain.BitBtn15Click(Sender: TObject);
begin
EditVILLAGE.Text := '';
EditVILLAGE.Enabled := False;
BtnSAVEVILLAGE.Enabled := False;
end;
procedure TFrmMain.BtnSAVEVILLAGEClick(Sender: TObject);
begin
DMAdmin.TblVILLAGE.Insert;
DMAdmin.TblVILLAGECODE.Value := DMAdmin.TblVILLAGE.RecordCount + 1;
DMAdmin.TblVILLAGETITLE.Value := EditVILLAGE.Text;
DMAdmin.TblVILLAGE.Post;
DMAdmin.TblVILLAGE.Refresh;
EditVILLAGE.Text := '';
EditVILLAGE.Enabled := False;
BtnSAVEVILLAGE.Enabled := False;
end;
procedure TFrmMain.EditVILLAGEChange(Sender: TObject);
begin
With DMAdmin do
begin
TblVILLAGE.Locate('TITLE', EditVILLAGE.Text, [loPartialKey]);
if (TblVILLAGETITLE.Value <> EditVILLAGE.Text) and
(EditVILLAGE.Text <> '')
then
BtnSAVEVILLAGE.Enabled := True
else
BtnSAVEVILLAGE.Enabled := False;
TblVILLAGE.Locate('TITLE', EditVILLAGE.Text, [loPartialKey]);
end;
end;
procedure TFrmMain.EditVILLAGEKeyPress(Sender: TObject; var Key: Char);
begin
With DMAdmin do
begin
TblVILLAGE.Locate('TITLE', EditVILLAGE.Text, [loPartialKey]);
if (TblVILLAGETITLE.Value <> EditVILLAGE.Text) and
(EditVILLAGE.Text <> '')
then
BtnSAVEVILLAGE.Enabled := True
else
BtnSAVEVILLAGE.Enabled := False;
TblVILLAGE.Locate('TITLE', EditVILLAGE.Text, [loPartialKey]);
end;
end;
end.
AdminDM.pas
unit AdminDM;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables;
type
TDMAdmin = class(TDataModule)
TblDATA: TTable;
DatSrcDATA: TDataSource;
TblYEARS: TTable;
DatSrcYEARS: TDataSource;
TblDATAYEARNUM: TFloatField;
TblDATANN: TFloatField;
TblDATAHISTORYNUM: TFloatField;
TblDATAFIO: TStringField;
TblDATABORNDATE: TDateField;
TblDATABORNTIMEH: TSmallintField;
TblDATABORNTIMEM: TSmallintField;
TblDATAENTERDATE: TDateField;
TblDATAENTERTIMEH: TSmallintField;
TblDATAENTERTIMEM: TSmallintField;
TblDATASEX: TSmallintField;
TblDATABODYMASS: TFloatField;
TblDATABODYLENGHT: TFloatField;
TblDATAAPGAR: TStringField;
TblDATADN: TSmallintField;
TblDATAENTER: TFloatField;
TblDATAENTER2: TSmallintField;
TblDATAENTERDS: TMemoField;
TblDATADS: TFloatField;
TblDATADSNOTE: TMemoField;
TblDATASTATUS: TFloatField;
TblDATASTATUSDATE: TDateField;
TblDATASTATUSTIME: TStringField;
TblDATASTATUSNOTE: TMemoField;
TblDATAADDRESS: TFloatField;
TblDATAVILLAGE: TFloatField;
TblDATASTREET: TFloatField;
TblDATAHOME: TStringField;
TblDATAFLAT: TStringField;
TblDATAPHONE: TStringField;
TblDATANOTE: TMemoField;
TblDATAOPERATION: TFloatField;
TblDATAYEARs: TIntegerField;
TblDATABORNTIMEs: TStringField;
TblDATAENTERTIMEs: TStringField;
TblDATASEXs: TStringField;
TblDATADNs: TStringField;
TblENTER: TTable;
DatSrcENTER: TDataSource;
TblENTER2: TTable;
DatSrcENTER2: TDataSource;
TblDATAENTERs: TStringField;
TblDATAENTER2s: TStringField;
TblDS: TTable;
DatSrcDS: TDataSource;
TblDATADSs: TStringField;
TblDATASTATUSs: TStringField;
TblDATAADDRESSs: TStringField;
TblSTREET: TTable;
DatSrcSTREET: TDataSource;
TblVILLAGE: TTable;
DatSrcVILLAGE: TDataSource;
TblDATASTREETs: TStringField;
TblDATAVILLAGEs: TStringField;
TblDATA2: TTable;
DatSrcDATA2: TDataSource;
TblDATA2NN: TFloatField;
TblDATA2NEUROL1: TSmallintField;
TblDATA2NEUROL2: TSmallintField;
TblDATA2NEUROL3: TSmallintField;
TblDATA2NEUROL4: TSmallintField;
TblDATA2NEUROL5: TSmallintField;
TblDATA2NEUROL6: TSmallintField;
TblDATA2NEUROL7: TSmallintField;
TblDATA2NEUROL8: TSmallintField;
TblDATA2NEUROL9: TSmallintField;
TblDATA2NEUROL10: TSmallintField;
TblDATA2EXT1: TSmallintField;
TblDATA2EXT2: TSmallintField;
TblDATA2EXT3: TSmallintField;
TblDATA2EXT4: TSmallintField;
TblDATA2EXT5: TSmallintField;
TblDATA2EXT6: TSmallintField;
TblDATA2EXT7: TSmallintField;
TblDATA2EXT8: TSmallintField;
TblDATA2EXT9: TSmallintField;
TblDATA2EXT10: TSmallintField;
TblDATA2EXT11: TSmallintField;
TblDATA2NAMEs: TStringField;
TblENTERTITLE: TStringField;
TblENTERCODE: TSmallintField;
TblENTER2ENTERID: TSmallintField;
TblENTER2TITLE: TStringField;
TblENTER2CODE: TSmallintField;
TblDSTITLE: TStringField;
TblDSCODE: TFloatField;
TblSTREETTITLE: TStringField;
TblSTREETCODE: TFloatField;
TblVILLAGETITLE: TStringField;
TblVILLAGECODE: TFloatField;
TblENTER2ENTERs: TStringField;
TblENTERA: TTable;
DatSrcENTERA: TDataSource;
TblENTER2A: TTable;
DatSrcENTER2A: TDataSource;
TblENTER2AENTERID: TSmallintField;
TblENTER2ATITLE: TStringField;
TblENTER2ACODE: TSmallintField;
TblENTERATITLE: TStringField;
TblENTERACODE: TSmallintField;
TblENTER2AENTERs: TStringField;
TblPERSONAL: TTable;
DatSrcPERSONAL: TDataSource;
TblPTYPE: TTable;
DatSrcPTYPE: TDataSource;
TblPERSONALID: TSmallintField;
TblPERSONALFIO: TStringField;
TblPERSONALNAME1: TStringField;
TblPERSONALNAME2: TStringField;
TblPERSONALTYPE: TSmallintField;
TblPERSONALISACTIVE: TSmallintField;
TblPERSONALPSW: TStringField;
TblPTYPECODE: TSmallintField;
TblPTYPETITLE: TStringField;
TblPERSONALPTYPEs: TStringField;
procedure DMAdminCreate(Sender: TObject);
procedure TblDATACalcFields(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DMAdmin: TDMAdmin;
implementation
{$R *.DFM}
procedure TDMAdmin.DMAdminCreate(Sender: TObject);
begin
TblDATA.Open;
TblDATA2.Open;
TblYEARS.Open;
TblENTER.Open;
TblENTER2.Open;
TblDS.Open;
TblSTREET.Open;
TblVILLAGE.Open;
TblENTERA.Open;
TblENTER2A.Open;
TblPERSONAL.Open;
TblPTYPE.Open;
end;
procedure TDMAdmin.TblDATACalcFields(DataSet: TDataSet);
begin
TblDATABORNTIMEs.Value := IntToStr(TblDATABORNTIMEH.Value) +
':' +
IntToStr(TblDATABORNTIMEM.Value);
TblDATAENTERTIMEs.Value := IntToStr(TblDATAENTERTIMEH.Value) +
':' +
IntToStr(TblDATAENTERTIMEM.Value);
Подобные документы
Обзор преимуществ и недостатков среды программирования Delphi, ее сравнение с аналогичными продуктами. Разработка инфологической, датологической, модели базы данных. Проектирование структуры программного обеспечения и понятного интерфейса базы данных.
курсовая работа [964,8 K], добавлен 27.09.2014Анализ предметной области, этапы проектирования автоматизированных информационных систем. Инструментальные системы разработки программного обеспечения. Роль CASE-средств в проектировании информационной модели. Логическая модель проектируемой базы данных.
курсовая работа [410,6 K], добавлен 21.03.2011Анализ административного программного обеспечения локальной сети. Структура сетевых операционных систем. Планирование и сетевая архитектура локальной сети. Использование сетевых ресурсов на примере предприятия, предоставляющего услуги Интернет-провайдера.
контрольная работа [112,5 K], добавлен 15.12.2010Принципы автоматизации делопроизводства. Общие понятия документооборота. Проектирование программного обеспечения. Стадии и этапы создания информационных систем, средства их разработки. Анализ алгоритмов работы с базой данных, разработка интерфейса.
дипломная работа [3,4 M], добавлен 07.11.2015Основные понятия базы данных и систем управления базами данных. Типы данных, с которыми работают базы Microsoft Access. Классификация СУБД и их основные характеристики. Постреляционные базы данных. Тенденции в мире современных информационных систем.
курсовая работа [46,7 K], добавлен 28.01.2014Пути внедрения современных технологий работы с документами в системах делопроизводства. Основы автоматизированных систем управления, анализ программ введения кадрового учета. Создание программы учета персонала на базе IDE Delphi 7 и СУБД FireBird.
дипломная работа [804,5 K], добавлен 03.07.2015Общая характеристика Delphi как интегрированной среды разработки программного обеспечения. СУБД Access, ее возможности. Создание базы данных в Access для комиссионного букинистического магазина. Создание запросов и фильтров. Описание работы программы.
курсовая работа [3,1 M], добавлен 25.05.2015Компоненты моделей геоинформационных систем, их взаимосвязь с координатными системами. Векторные нетопологическая и топологическая модели геометрической компоненты данных в ГИС. Послойное и геореляционное представление и вложение данных в серверные СУБД.
презентация [4,5 M], добавлен 02.10.2013Обоснование необходимости систем управления базами данных на предприятиях. Особенности разработки программного обеспечения по управлению базой данных, обеспечивающего просмотр, редактирование, вставку записей базы данных, формирование запросов и отчетов.
курсовая работа [1,5 M], добавлен 23.01.2010Понятие баз данных и принципы проектирования информационных систем. Разработка программы для отслеживания финансовой стороны работы компании в среде Delphi 7. Создание таблиц и схемы данных. Разработка клиентского приложения и процедуры добавления данных.
курсовая работа [1,4 M], добавлен 25.04.2012
