Автоматизированная система учета оказания материальной помощи пострадавшим в ЧС

Используя данные из Приложения А, Таблицы А 8 - Описание связей, создается концептуальная модель данных с использованием метода ER-диаграмм.

Рисунок 3 - Концептуальная модель данных в стандарте Чена

2.2 Логическая модель

Логическое (даталогическое) проектирование - создание схемы базы данных на основе конкретной модели данных, например, реляционной модели данных. Для реляционной модели данных, даталогическая модель - набор схем отношений, обычно с указанием первичных ключей, а также «связей» между отношениями, представляющих собой внешние ключи.

Преобразование концептуальной модели в логическую модель, как правило, осуществляется по формальным правилам. Этот этап может быть в значительной степени автоматизирован.

На этапе логического проектирования учитывается специфика конкретной модели данных, но может не учитываться специфика конкретной СУБД.

Логическая модель описывает понятия предметной области, их взаимосвязь, а также ограничения на данные, налагаемые предметной областью.

Логическая модель данных является начальным прототипом будущей базы данных. Она строится в терминах информационных единиц, но без привязки к конкретной СУБД. Более того, логическая модель данных необязательно должна быть выражена средствами именно реляционной модели данных. Основным средством разработки логической модели данных в настоящий момент являются различные варианты ER-диаграмм (Entity-Relationship, диаграммы сущность-связь).

Одну и ту же ER-модель можно преобразовать как в реляционную модель данных, так и в модель данных для иерархических и сетевых СУБД, или в пост реляционную модель данных. Однако, т.к. мы рассматриваем именно реляционные СУБД, то можно считать, что логическая модель данных для нас формулируется в терминах реляционной модели данных.

2.3 Физическая модель

Физическое проектирование - создание схемы базы данных для конкретной СУБД. Специфика конкретной СУБД может включать в себя ограничения на именование объектов базы данных, ограничения на поддерживаемые типы данных и т.п. Кроме того, специфика конкретной СУБД при физическом проектировании включает выбор решений, связанных с физической средой хранения данных (выбор методов управления дисковой памятью, разделение БД по файлам и устройствам, методов доступа к данным), создание индексов и т.д.

На еще более низком уровне находится физическая модель данных. Физическая модель данных описывает данные средствами конкретной СУБД. Будем считать, что физическая модель данных реализована средствами именно реляционной СУБД, хотя, как уже сказано выше, это необязательно. Отношения, разработанные на стадии формирования логической модели данных, преобразуются в таблицы, атрибуты становятся столбцами таблиц, для ключевых атрибутов создаются уникальные индексы, домены преображаются в типы данных, принятые в конкретной СУБД.

3. Программа «Автоматизированная система учета оказания материальной помощи пострадавшим в ЧС»

3.1 Выбор СУБД

СУБД Access ориентирована на работу с объектами, к которым относятся таблицы базы данных, запросы, а также объекты приложений для работы с базой данных: формы, отчеты, страницы, макросы и модули.

Множество мастеров Access позволяют автоматизировать процесс создания таблиц базы данных, форм, запросов, отчетов и страниц доступа к данным; анализировать таблицы БД и выполнять многие другие работы. Практически для любых работ имеется мастер (wizard), который поможет их выполнить.

В СУБД Access процесс создания реляционной базы данных включает создание схемы данных. Схема данных наглядно отображает таблицы и связи между ними, а также обеспечивает использование связей при обработке данных.

Access может использовать данные различных СУБД. Непосредственно могут обрабатываться файлы Paradox, dBase, FoxPro, а также базы данных, поддерживающие стандарт открытого доступа к данным (Open Database Connectivity, ODBC): Oracle, Microsoft SQL Server, DB2, Sybase SQL Server.

СУБД Microsoft Access является системой управления реляционной базой данных, включающей все необходимые инструментальные средства для создания локальной базы данных, общей базы данных в локальной сети с файловым сервером или создания приложения пользователя, работающего с базой данных на SQL - сервере.

В Access обеспечивается все возможности динамического обмена данными (Dynamic Data Exchange, DDE) с любым приложением Windows, поддерживающим DDE. Access поддерживает также механизм связывания и внедрения объектов (Object Linking and Embedding, OLE), обеспечивающий установление связи с объектами другого приложения или внедрение объекта в базу данных. Активизация внедренного объекта открывает программу, которая его создала, и пользователь может изменить объект. При установлении связи с объектом он по-прежнему сохраняется в файле объекта, а не в базе данных. За счет этого он может обновляться независимо, а в базе данных всегда будет представлена последняя версия объекта.

Внедряемыми или связываемыми объектами могут быть документы различных приложений Windows: рисунки, графики, электронные таблицы или звуковой файл.

Access имеет характерный для всех приложений Microsoft Windows удобный графический интерфейс, ориентированный на комфортную работу пользователя. Для работы с таблицами базы данных и другими объектами Access предоставляет многочисленные команды меню и контекстно-зависимые панели инструментов. Поскольку интерфейс приложений Microsoft Office унифицирован, пользователю требуется меньше времени на освоение приложения.

Пользователь имеет возможность с помощью мыши переносить объекты между различными базами данных. При этом необходимо запустить две задачи Microsoft Access. Возможен перенос таблиц и запросов Access в другие приложения, например, в Microsoft Word и Microsoft Excel.

В Access предусмотрено широкое использование технологии IntelliSense, которая помогает пользователю ориентироваться в выборе необходимых действий, и обеспечивает высокую производительность труда пользователя за счет автоматизации выполнения основных функций. Выдача Помощником (Office Assistant) контекстно-зависимой справочной информации помогает принять решение, как лучше выполнить то или иное действие, или найти нужный инструмент в Access.

Справочная система Access 2000 построена на основе HTML и поэтому работа с ней не отличается от работы в программах просмотра Internet. При вызове справки ее окно теперь не заслоняет окно Access, которое автоматически изменяет размер, освобождая пространство для окна справки.

Всплывающие подсказки кратко описывают назначение кнопок панели инструментов при установке курсора мыши на них.

Пользователь может создать всплывающие подсказки для элементов управления форм и отчетов. Выполняется это простым заполнением строки свойств этих элементов управления. Кроме того, могут быть созданы контекстные справки и меню, привязанные к элементам управления форм и отчетов.

Access ориентирован на работу с объектами, к которым относятся таблицы базы данных, запросы, а также объекты приложений для работы с базой данных: формы, отчеты, страницы, макросы и модули.

Для типовых процессов обработки данных - просмотра, обновления, поиска по заданным критериям, получения отчетов - в Access имеются средства конструирования форм, запросов, отчетов и страниц. Объекты приложений состоят из графических элементов, называемых элементами управления. Основные элементы управления служат для связи объектов с записями таблиц, являющихся источниками данных.

При создании приложений пользователя также используются средства программирования, реализуемые объектами другого типа - макросами и модулями на языке программирования Visual Basic for Applications (VBA).

Каждый объект и элемент управления имеет свои свойства, определяя которые, можно настраивать объекты и элементы управления. С каждым объектом и элементом управления связывается набор событий, которые могут обрабатываться макросами или процедурами на VBA.

Объекты представлены в окне базы данных Access. Все операции по работе с объектами базы данных и приложений начинаются в этом окне.

Таблицы (Tables) создаются пользователем для хранения данных об одном информационном объекте модели данных предметной области. Таблица состоит из полей (столбцов) и записей (строк). Каждое поле содержит одну характеристику объекта предметной области. В записи собраны сведения об одном экземпляре этого объекта.

Запросы (Queries) создаются пользователем для выборки нужных данных из одной или нескольких связанных таблиц. Результатом выполнения запроса является таблица, которая может быть использована наряду с другими таблицами БД при обработке данных. Запрос может формироваться в виде запросов по образцу (QBE) или с помощью инструкции SQL - языка структурированных запросов. С помощью запроса можно также обновить, удалить или добавить данные в таблицы или создать новые таблицы на основе уже существующих.

Формы (Forms) являются основным средством создания диалогового интерфейса приложения пользователя. Форма может создаваться для ввода и просмотра взаимосвязанных данных базы на экране в удобном виде, который соответствует привычному для пользователя документу. Формы также могут использоваться для создания панелей управления в приложении.

Отчеты (Reports) предназначены для формирования выходных документов, содержащих результаты решения задач пользователя, и вывода их на печать.

Страницы (Pages) - Страницы доступа к данным являются диалоговыми Web-страницами, которые поддерживают динамическую связь с базой данных и позволяют просматривать, редактировать и вводить данные в базу, работая в окне браузера.

Макросы (Macros). Макрос является программой, которая содержит описание последовательности действий, выполняемых при наступлении некоторого события в объекте или элементе управления приложения. Каждое действие реализуется макрокомандой. Создание макросов осуществляется в диалоговом режиме путем выбора нужных макрокоманд и задания параметров, используемых ими при выполнении.

Модули (Modules) содержат процедуры на языке VBA. Могут создаваться процедуры - функции, которые разрабатываются пользователем для реализации нестандартных функций в приложении пользователя, и процедуры для обработки событий. В Access для удобства пользователя объекты базы данных могут быть объединены в группы по функциональному или иному признаку. Группы содержат ссылки на объекты базы данных различных типов.

В окне базы данных Access наряду со списком созданных объектов представлены ярлыки (shortcuts), которые предназначены для быстрого запуска мастеров или конструктора создания нового объекта.

Все таблицы базы данных, а также другие объекты Access: формы, запросы, отчеты, макросы и модули, построенные для этой базы, и внедренные объекты могут размещаться на диске в одном файле формата .mdb. Это упрощает технологию ведения базы данных и приложения пользователя. Обеспечивается высокая компактность размещения всех объектов БД на диске и эффективность обработки данных. Страницы доступа к данным Access сохраняются в отдельных файлах, в файле БД размещаются только ссылки на них.

Access предоставляет в распоряжение непрограммирующего пользователя разнообразные диалоговые средства, которые позволяют ему создавать приложения, не прибегая к разработке запросов на языке SQL или к программированию макросов или модулей на языке VBA.

Для автоматизации создания объектов БД - таблиц, запросов по примеру (Query By Example, QBE), схемы базы данных, и объектов приложения (форм, отчетов, страниц) используются специализированные диалоговые средства, называемые конструктором (Design). Конструктор предоставляет пользователю набор инструментов, с помощью которых можно быстро создать и модифицировать объект. Для конструирования макета форм, отчетов и страниц используется панель элементов, которая появляется при вызове конструктора.

Предусмотрено автоматическое конструирование форм, запросов, отчетов, страниц и их элементов с помощью программ-мастеров и команд, начинающихся с приставки «авто».

В Access 2000 для упрощения внесения изменений в объекты базы данных; разработана технология интеллектуальной замены имен объектов в базе данных. При этом автоматически исправляются ошибки, вызванные переименованием таблиц, полей, форм, отчетов, запросов, текстовых блоков или других элементов управления. Реализуется за счет того, что каждый именуемый объект (или элемент) базы данных имеет внутренний уникальный идентификатор, имя является только псевдонимом. При переименованиях изменяется лишь псевдоним и при необходимости корректируются все ссылки на объект из других объектов. Для применения этой технологии следует до создания объектов установить соответствующие параметры в разделе Автозамена имен (Name AutoCorrect) на закладке Общие (General), открываемой через меню Сервис-Параметры (Tools-Options).

3.2 Выбор среды программирования

Embarcadero Delphi (дэлфамй, по-русски обычно произносят демльфи или дэмльфи или демлфи), ранее Borland Delphi и CodeGear. По поводу «правильного» произношения названия среды разработки было сломано немало копий не только в России. Интересно, что нет единства даже среди англоязычных стран. В частности, согласно данному источнику, в Великобритании доминирует произношение «дел-фим», а в США - «дел-фамй». Название языку дано в честь выдающегося французского математика, физика, литератора и философа Блеза Паскаля.

История системы Delphi уходит своими корнями в язык программирования pascal, созданный в 1971 году Никлаусом Виртом в качестве учебного языка компьютерного программирования. Один из первых языков, для которых была создана реализация «на самом себе» - компилятор Паскаля был написан на самом Паскале. В начале 1970-х годов для переноса Паскаль-систем на различные аппаратные платформы была создана система Pascal-P, в которой был единый компилятор Паскаля в промежуточный язык (P-код) и для каждой платформы создавался быстрый интерпретатор P-кода. Заимствование этой системы привело к созданию системы UCSD Pascal в Университете Сан-Диего (Калифорния, США), намного позже её идеи были заимствованы создателями языка Java (байт-код, компиляция в байт-код, интерпретатор байт-кода). Язык pascal сразу получил широкое распространение и стал использоваться как основа для курса программирования во многих университетах.

Благодаря простоте программирования и богатым функциональным возможностям pascal стал широко использоваться также в коммерческих разработках. Особенностями языка являются строгая типизация и наличие средств структурного (процедурного) программирования. Паскаль был одним из первых таких языков.

По мнению Н. Вирта, язык должен способствовать дисциплинировано программирования, поэтому, наряду со строгой типизацией, в Паскале сведены к минимуму возможные синтаксические неоднозначности, а сам синтаксис автор постарался сделать интуитивно понятным даже при первом знакомстве с языком. Тем не менее, первоначально язык имел ряд ограничений: невозможность передачи функциям массивов переменной длины, отсутствие нормальных средств работы с динамической памятью, ограниченная библиотека ввода-вывода, отсутствие средств, для подключения функций написанных на других языках, отсутствие средств раздельной компиляции. Подробный разбор недостатков языка Паскаль того времени был выполнен Брайаном Керниганом в статье «Почему Паскаль не является моим любимым языком программирования» (интересно, что эта статья вышла в начале 1980-х, когда уже существовал язык Модула-2, потомок Паскаля, избавленный от большинства его пороков, а также более развитые диалекты Паскаля).

Некоторые недостатки Паскаля были исправлены в ISO-стандарте 1982 года, в частности, в языке появились открытые массивы, давшие возможность использовать одни и те же процедуры для обработки одномерных массивов различных размеров. Необходимо заметить, что многие недостатки языка не проявляются или даже становятся достоинствами при обучении программированию. Кроме того, по сравнению с основным языком программирования в академической среде 70-х (которым был Фортран, обладавший гораздо более существенными недостатками), Паскаль представлял собой значительный шаг вперёд.

В начале 1980-х годов в СССР для обучения школьников основам информатики и вычислительной техники академик А. П. Ершов разработал алголо-паскалеподобный «алгоритмический язык». Никлаус Вирт понимал недостатки созданного им языка, но, следуя традициям академической среды и собственным принципам, согласно которым «неподходящий инструмент надо не исправлять, а заменять», не стал его развивать дальше, а разработал новые языки семейства: Модула-2 и Оберон. В противоположность этому промышленные традиции и достоинства языка побудили многие коммерческие и некоммерческие организации продолжать разрабатывать и развивать системы программирования именно на основе языка Паскаль, подвергая язык произвольному расширению, добавляя в него, часто совершенно механически, новые средства и синтаксические конструкции. В свое время весьма популярной версией языка pascal был turbo pascal.

С развитием операционной системы windows и технологий объектно-ориентированного программирования компания borland естественным образом расширила turbo pascal, создав версии turbo pascal for windows и object pascal for windows - динамическую идентификацию типа данных с доступом к метаданным классов в компилируемом коде.

Главной чертой Object Pascal от С++ является именно то, что все объекты по умолчанию находятся в динамической памяти. Но в виртуальных методах NewInstance и FreeInstance есть возможность переопределения. Object Pascal представляет собой итог расширения Turbo Pascal. Следующим шагом компании было создание delphi - визуальной среды разработки программ на object pascal под управлением операционной системы windows.

Язык программирования Delphi представляет собой естественный итог развития языка под названием Turbo Pascal. Главное назначение delphi - быстрая разработка приложений windows. В последние годы в качестве учебных языков с pascal конкурируют java и С++. однако pascal, в свою очередь, составил им сильную конкуренцию в области разработки коммерческих приложений благодаря простому синтаксису, богатым функциональным возможностям и высокой скорости работы откомпилированных программ, не уступающей быстродействию программ, которые написаны на языке С++.

Самой первой автономной и полноценной версией Delphi для .NET считается именно Delphi 8. Из стран СНД, первым Borland Delphi появился в Росийской Федерации (1993 год). Он буквально сразу же приобрел широкую известность. Которая достаточно долгое время поддерживалась благодаря постоянным новинкам и обновлениям, выходили которые фактически каждый год. И сегодня с выходом каждой новой версии, программирование в среде Delphi стает все более насыщенным и комфортным. В 1994 году была выпущена первая версия Delphi. Пакет оказался очень удачным и, по сути, стал главным продуктом компании, в котором проходили апробацию все оригинальные технические решения.

Представим себе, что программист не печатает код своей программы, а объясняет системе, что бы он хотел увидеть. Конечно, это преувеличение - никакая система не поймет человеческий язык и тем более не сможет адекватно выполнить необходимые действия, но разработчики Delphi сделали первый шаг в этом направлении.

В Delphi многие действия требуют гораздо меньше времени и выполняются более интуитивно. Безусловно, что для быстрого создания приложений необходим иной взгляд на программирование вообще. Для этого основой Delphi стал объектно-ориентированный Pascal (который так и называется Object Pascal и сильно отличается от стандарта языка). Теперь программист не пишет стандартный код, а оперирует с более абстрактными понятиями - классами, событиями, свойствами, компонентами. Для ясности необходимо определить понятие компонента. Взгляните на ваш Windows или на Internet Explorer. Перед Вами кнопки, полосы прокрутки, выпадающие списки, меню и т.д. Все это - компоненты. А зачем писать что-то по сто раз, когда можно использовать библиотеку визуальных компонентов - VCL (Visual Component Library). Вам нужна кнопка. Зачем вспоминать длинные строчки кода - просто поместите на рабочую формочку нужный компонент. Даже слово «поместить» не совсем подходит - с компонентами работать до того просто, что программисты предпочитают более вольную терминологию «выкинуть» или «использовать», т.е. как бы переместить компонент из библиотеки на формочку. Delphi получила такую популярность, на этот счет существует несколько мнений и причин.

Delphi - это продукт, уникальным образом сочетающий высокопроизводительный компилятор, объектно-ориентированные средства визуального программирования и универсальный механизм доступа к базам данных. Начнем по порядку. Время компиляции программ у любого C-языка на порядок дольше, чем у Delphi, это понижает отдачу от программиста - не каждый может писать код без малейших ошибок. Даже на мощных машинах С-продукты не могут обеспечить быстродействия, присущего Delphi. Другим важным фактором успеха Delphi является его «визуальность». Можно сказать, что здесь программист не должен думать о всяких мелочах - как создать окно или кнопку, какие для этого необходимы классы или библиотеки. Задачи, для которых на C требуется множество усилий, в Delphi решаются несколькими кликами. Однако, вопреки сложившемуся мнению, при этом язык не теряет возможности доступа к низкоуровневым свойствам объектов, это делает его уникальным.

Для многих программистов немаловажным фактором является способность системы работать с базами данных. Delphi поддерживает базы данных, причем с той же присущей системе визуальностью. С таким же изяществом позволяет она разрабатывать и клиентский уровень СУБД «клиент-сервер», что чрезвычайно актуально сейчас. Встроенные мастера позволяют быстро создать необходимые компоненты и процедуры, а программисту остается лишь дописать свой код. Действительно, система настолько интуитивна и интеллектуальна, что её могут использовать все - от программиста до простого пользователя Windows.

3.3 Интерфейс и порядок работы с программой

В программе «Автоматизированная система учета оказания материальной помощи пострадавшим в ЧС» были созданы семь сущностей, которые выведены на главную форму данной программы (см. рисунок 19), а также выведена форма «Отчет», которая позволяет просмотреть информацию о донорах. Форма отчета служит для просмотра данных о донорах и товарах, которые были приняты от них.

При запуске программы каждая из сущностей выведена на кнопку. Для того что бы заполнить, изменить существующие данные или удалить их необходимо нажать на название нужной сущности. На главной форме кнопка «Отчет», позволяет лишь просмотреть информацию, сданной помощи нуждающемуся населению от доноров, не редактируя ее.

Рисунок 4 - Главная форма программы «Автоматизированная система учета оказания материальной помощи пострадавшим в ЧС»

Пользователю данной программы для заполнения форм необходимо нажать на одну из кнопок. После того как, произведен выбор одной из сущностей и нажата необходимая кнопка, всплывет новое окно формы. В данном окне с левой стороны расположен список, описание атрибутов сущности. Из этого списка путем выбора необходимой информации и нажатия на нее можно изменить или же удалить существующие данные.

С правой стороны формы установлены три кнопки: «Добавить», «Удалить», «Изменить». Например, нажав на клавишу «Добавить» происходит действие добавление новой информации в данную структуру. Так в форме «Сотрудники» мы добавим данные о новом человеке, который работает в данной структуре (см. Рисунок 5 - Табличная форма «Сотрудники»).

Рисунок 5 - Табличная форма «Сотрудники»

Для того что бы изменить, добавить новую информацию необходимо после нажатия соответствующей клавиши в появившемся окне заполнить все строки. В форме, которая появится, с левой стороны будут написаны названия полей для ввода данных, с правой стороны расположены сами поля. В данной форме в списке сотрудников можно просмотреть: код сотрудника, ФИО, телефон, должность. Для просмотра всех полей из списка необходимо воспользоваться прокруткой расположенной снизу и сверху по всему списку формы.

Для того чтобы информация внесенная на полях сохранилась и добавилась в списках необходимо нажать на клавишу «Принять», которая расположена в левом нижнем углу данной формы. Если же данные введенные в строках не соответствуют требуемым, то необходимо нажать на клавишу «Отмена», которая располагается в правом нижнем углу формы (см. Рисунок 6 - Форма для заполнения «Сотрудники»). После нажатия на одну из клавиш в нижней части формы произойдет возврат к предыдущему списку (форме), который будет обновлен новой информацией или же останется в прежнем виде.

Рисунок 6 - Форма для заполнения «Сотрудники»

На Рисунке 6 изображена форма для заполнения «Сотрудники», в данном окне находится четыре строки для изменения данных. В левой части напротив строк, для изменения информации или для внесения новых данных в форме «Сотрудники», находятся формы с названиями строк, при заполнении необходимо ориентироваться на них. В форме «Сотрудники» в верхней части есть строка для заполнения «КодСотрудника», строка заполняется цифрами, с помощью наведения курсора на строку и ее выбора. В следующей строке для заполнения указывается Фамилия, Имя, Отчество сотрудника работающего с данной программой. В третьей строке указывается номер телефона, как мобильного, так и стационарного. Для того что бы заполнить данную строку изначально необходимо выбрать маску, далее в скобках указать номер оператора, после скобок номер абонента. Указывается контактный номер телефона сотрудника. В нижней строке уточняется должность человека работающего с данной программой или с заполнением документов.

Рисунок 7 - Табличная форма «Доноры»

В табличной форме «Доноры», в левой части расположен список людей передавших безвозмездно товары нуждающемуся населению. Из этого списка путем выбора необходимой информации и нажатия на нее можно изменить или же удалить существующие данные. Что бы просмотреть весь список необходимо передвинуть бегунок. Данная таблица содержит пять столбцов, в которых указаны:

код донора (человека который безвозмездно передает товары необходимые для нуждающегося населения);

название (фирма, ФИО, аноним);

адрес (место нахождения фирмы или место проживания человека, так же человек может сделать дар анонимно);

телефон (мобильный, стационарный номер телефона лица сделавшего пожертвование);

контактное лицо (указывается ФИО человека сделавшего пожертвование).

С правой стороны формы установлены три кнопки: «Добавить», «Удалить», «Изменить». Например, нажав на клавишу «Добавить» происходит действие добавление новой информации в данную структуру.

Рисунок 8 - Форма для заполнения «Доноры»

В форме для заполнения «Доноры», что бы изменить, добавить новую информацию необходимо после нажатия соответствующей клавиши в появившемся окне заполнить все строки. В форме, которая появится, с левой стороны будут написаны названия полей для ввода данных, с правой стороны расположены сами поля. В данной форме в списке «Доноры» можно просмотреть: код донора, название, адрес, телефон, контактное лицо. Для того чтобы информация внесенная на полях сохранилась и добавилась в списках необходимо нажать на клавишу «Принять», которая расположена в левом нижнем углу данной формы. Если же данные введенные в строках не соответствуют требуемым, то необходимо нажать на клавишу «Отмена», которая располагается в правом нижнем углу формы (см. Рисунок 8 - Форма для заполнения «Доноры»). После нажатия на одну из клавиш в нижней части формы произойдет возврат к предыдущему списку (форме), который будет обновлен новой информацией или же останется в прежнем виде.

Рисунок 9 - Табличная форма «Поставки»

В табличной форме «Поставки», в левой части расположен список с датами и количеством товара необходимого нуждающемуся населению. Из этого списка путем выбора необходимой информации и нажатия на нее можно изменить или же удалить существующие данные. Что бы просмотреть весь список необходимо передвинуть бегунок. Данная таблица содержит четыре столбца, в которых указаны:

код товара (каждому товару присваивается определенный уникальный код, указывается код товара направленный нуждающимся);

код донора (человека который безвозмездно передает товары необходимые для нуждающегося населения);

дата (указывается дата отправки товара);

количество (указывается количество, вид и описание товара отправленного нуждающемуся населению).

С правой стороны формы установлены три кнопки: «Добавить», «Удалить», «Изменить». Например, нажав на клавишу «Добавить» происходит действие добавление новой отправки груза нуждающемуся населению.

Рисунок 10 - Форма для заполнения «Поставки»

В форме для заполнения «Поставки», что бы изменить, добавить новую информацию необходимо после нажатия соответствующей клавиши в появившемся окне заполнить все строки. В форме, которая появится, с левой стороны будут написаны названия полей для ввода данных, с правой стороны расположены сами поля. В данной форме в списке «Поставки» можно просмотреть: код донора, код товара, дата, количество. Для того чтобы информация внесенная на полях сохранилась и добавилась в списках необходимо нажать на клавишу «Принять», которая расположена в левом нижнем углу данной формы. Если же данные введенные в строках не соответствуют требуемым, то необходимо нажать на клавишу «Отмена», которая располагается в правом нижнем углу формы (см. Рисунок 10 - Форма для заполнения «Поставки»). После нажатия на одну из клавиш в нижней части формы произойдет возврат к предыдущему списку (форме), который будет обновлен новой информацией или же останется в прежнем виде.

Рисунок 11 - Табличная форма «Товары»

В табличной форме «Товары», в левой части расположен список с кодом товара и его наименованием, необходимого нуждающемуся населению. Из этого списка путем выбора необходимой информации и нажатия на нее можно изменить или же удалить существующие данные. Что бы просмотреть весь список необходимо передвинуть бегунок. Данная таблица содержит семь столбцов, в которых указаны:

код товара (каждому товару присваивается определенный уникальный код, указывается код товара находящегося на складе);

название товара (указывается наименование товара поступившего на склад от доноров);

количество (указывается общее количество данного товара поступившего на склад от доноров);

вид (уточняется вид товара, в какой форме и виде товар поступил на склад);

описание (уточняется вид товара, в какой форме и виде товар поступил на склад, описывается цвет и форма товара);

размер (указывается размер одной единицы груза поступившего на склад);

вес (уточняется вес одной единицы товара поступившей на склад).

С правой стороны формы установлены три кнопки: «Добавить», «Удалить», «Изменить». Например, нажав на клавишу «Добавить» происходит действие добавление нового товара поступившего от донора на склад, в которое нуждается население.

Рисунок 12 - Форма для заполнения «Товары»

В форме для заполнения «Товары», что бы изменить, добавить новую информацию необходимо после нажатия соответствующей клавиши в появившемся окне заполнить все строки. В форме, которая появится, с левой стороны будут написаны названия полей для ввода данных, с правой стороны расположены сами поля. В данной форме в списке «Товары» можно просмотреть: код товара, название, количество, вид, описание, размер, вес. Для того чтобы информация внесенная на полях сохранилась и добавилась в списках необходимо нажать на клавишу «Принять», которая расположена в левом нижнем углу данной формы. Если же данные введенные в строках не соответствуют требуемым, то необходимо нажать на клавишу «Отмена», которая располагается в правом нижнем углу формы (см. Рисунок 12 - Форма для заполнения «Товары»). После нажатия на одну из клавиш в нижней части формы произойдет возврат к предыдущему списку (форме), который будет обновлен новой информацией или же останется в прежнем виде.

Рисунок 13 - Табличная форма «Отгрузки»

В табличной форме «Отгрузки», в левой части расположен список с кодом отгрузки и датой отправки. Из этого списка путем выбора необходимой информации и нажатия на нее можно изменить или же удалить существующие данные. Что бы просмотреть весь список необходимо передвинуть бегунок. Данная таблица содержит шесть столбцов, в которых указаны:

код отгрузки (каждой поставке присваивается определенный уникальный код, указывается код отгрузки направленный нуждающимся);

код товара (каждому товару присваивается определенный уникальный код, указывается код товара направленный нуждающимся);

код нуждающегося (указывается уникальный номер нуждающегося человека, которому будет доставлен в этой оправке необходимый товар);

код сотрудника (указывается уникальный номер сотрудника, который занимается отгрузкой данной партии товара);

дата (указывается дата отправки груза из склада в пострадавший район, к нуждающемуся населению);

количество (указывается общее количество данного товара направленного к конкретному нуждающемуся).

С правой стороны формы установлены три кнопки: «Добавить», «Удалить», «Изменить». Например, нажав на клавишу «Добавить» происходит действие добавление новой отправки груза нуждающемуся населению.

Рисунок 14 - Форма для заполнения «Отгрузки»

В форме для заполнения «Отгрузки», что бы изменить, добавить новую информацию необходимо после нажатия соответствующей клавиши в появившемся окне заполнить все строки. В форме, которая появится, с левой стороны будут написаны названия полей для ввода данных, с правой стороны расположены сами поля. В данной форме в списке «Отгрузки» можно просмотреть: код отгрузки, код товара, код нуждающегося, код сотрудника, дату, количество. Для того чтобы информация внесенная на полях сохранилась и добавилась в списках необходимо нажать на клавишу «Принять», которая расположена в левом нижнем углу данной формы. Если же данные введенные в строках не соответствуют требуемым, то необходимо нажать на клавишу «Отмена», которая располагается в правом нижнем углу формы (см. Рисунок 14 - Форма для заполнения «Отгрузки»). После нажатия на одну из клавиш в нижней части формы произойдет возврат к предыдущему списку (форме), который будет обновлен новой информацией или же останется в прежнем виде.

Рисунок 15 - Табличная форма «Потребности»

В табличной форме «Потребности», в левой части расположен список с кодом нуждающегося и кодом товара, который необходим пострадавшему населению. Из этого списка путем выбора необходимой информации и нажатия на нее можно изменить или же удалить существующие данные. Что бы просмотреть весь список необходимо передвинуть бегунок. Данная таблица содержит четыре столбца, в которых указаны:

код нуждающегося (указывается уникальный номер нуждающегося человека, которому нужны товары первой необходимости);

код товара (каждому товару присваивается определенный уникальный код, указывается код товара, который необходим нуждающемуся);

количество (указывается количество определенного товара, в котором нуждается пострадавший человек);

статус (присваивается статус отправки товара данному нуждающемуся).

С правой стороны формы установлены три кнопки: «Добавить», «Удалить», «Изменить». Например, нажав на клавишу «Добавить» происходит действие добавление новой потребности нуждающегося человека в данный список.

Рисунок 16 - Форма для заполнения «Потребности»

В форме для заполнения «Потребности», что бы изменить, добавить новую информацию необходимо после нажатия соответствующей клавиши в появившемся окне заполнить все строки. В форме, которая появится, с левой стороны будут написаны названия полей для ввода данных, с правой стороны расположены сами поля. В данной форме в списке «Потребности» можно просмотреть: код нуждающегося, код товара, количество, статус. Для того чтобы информация внесенная на полях сохранилась и добавилась в списках необходимо нажать на клавишу «Принять», которая расположена в левом нижнем углу данной формы. Если же данные введенные в строках не соответствуют требуемым, то необходимо нажать на клавишу «Отмена», которая располагается в правом нижнем углу формы (см. Рисунок 16 - Форма для заполнения «Потребности»). После нажатия на одну из клавиш в нижней части формы произойдет возврат к предыдущему списку (форме), который будет обновлен новой информацией или же останется в прежнем виде.

Рисунок 17 - Табличная форма «Нуждающиеся»

В табличной форме «Нуждающиеся», в левой части расположен список с кодом нуждающегося и его данными, которые необходимы для выдачи материальной помощи. Из этого списка путем выбора необходимой информации и нажатия на нее можно изменить или же удалить существующие данные. Что бы просмотреть весь список необходимо передвинуть бегунок. Данная таблица содержит четыре столбца, в которых указаны:

код нуждающегося (указывается уникальный номер нуждающегося человека, которому нужны товары первой необходимости);

код товара (каждому товару присваивается определенный уникальный код, указывается код товара направленный нуждающимся);

количество (указывается количество определенного товара в котором нуждается пострадавший человек);

статус (присваивается статус отправки товара данному нуждающемуся).

С правой стороны формы установлены три кнопки: «Добавить», «Удалить», «Изменить». Например, нажав на клавишу «Добавить» происходит действие добавление нового человека (нуждающегося) в данный список.

Рисунок 18 - Форма для заполнения «Нуждающиеся»

В форме для заполнения «Нуждающиеся», что бы изменить, добавить новую информацию необходимо после нажатия соответствующей клавиши в появившемся окне заполнить все строки. В форме, которая появится, с левой стороны будут написаны названия полей для ввода данных, с правой стороны расположены сами поля. В данной форме в списке «Нуждающиеся» можно просмотреть: код нуждающегося, код товара, количество, статус. Для того чтобы информация внесенная на полях сохранилась и добавилась в списках необходимо нажать на клавишу «Принять», которая расположена в левом нижнем углу данной формы. Если же данные введенные в строках не соответствуют требуемым, то необходимо нажать на клавишу «Отмена», которая располагается в правом нижнем углу формы (см. Рисунок 18 - Форма для заполнения «Нуждающиеся»). После нажатия на одну из клавиш в нижней части формы произойдет возврат к предыдущему списку (форме), который будет обновлен новой информацией или же останется в прежнем виде.

Рисунок 19 - Начальный вид формы «Отчет»

В форме для заполнения «Отчет», что бы просмотреть информацию необходимо после нажатия соответствующей клавиши в появившемся окне в верхней левой части раскрыть список доноров, нажав на стрелку в правой части окна.

Рисунок 20 - Выбор «Доноров» в форме «Отчет»

Для того что бы просмотреть весь список «Доноров» необходимо воспользоваться прокруткой. Для выбора «Донора» и вывода информации в таблицу необходимо нажать на необходимые данные о доноре.

Рисунок 21 - Форма «Отчет»

После того как был произведен выбор донора, в табличной части будут заполнены строки и столбцы. Например, нажав на донора ОАО «Помощь» в таблице будет указана дата приема товара первой необходимости от организации, вид полученной материальной помощи, наименование товара и его количество.

Заключение

В результате проектирования, создана автоматизированная система «Автоматизированная система учета оказания материальной помощи пострадавшим в ЧС», выбраны семь автоматизируемых функций, охватывающих предметную область, информационное обеспечение которых включает сведения об объектах системы.

На основе созданной базы данных, представленной в таблицах и схеме, разработана программа «Автоматизированная система учета оказания материальной помощи пострадавшим в ЧС», при которой работа организаций и волонтеров будет скоординирована. Сотрудники, занимающиеся сбором товаров первой необходимости, будут быстро обрабатывать информацию, составлять отчеты о собранной и выданной материальной помощи, следить за количеством средств находящимся на складе, сортировать материальную помощь и выдавать товары нуждающемуся населению исходя из индивидуальных запросов. Волонтеры на местах происшествий, в местах организации поставки груза, приемных пунктах по сбору материальной помощи, будут работать скоординировано, так как количество, состав материальной помощи будет описан и представлен в виде автоматизированной системы. Товар, находящийся в складских помещениях будет рассортирован, что способствует быстрой доставке его пострадавшим. Программа позволяет следить за сроками поставок, количеством товаров находящимся на складе. Система позволяет отследить, когда и кем была передана благотворительная помощь, в какие сроки и кому из нуждающихся были выданы необходимые товары первой помощи.

Список использованных источников

Макарова, Н. В. Информатика: Практикум по технологии работы на компьютере. - М.: Финансы и статистика, 2000.

Ханен, Г. Базы данных: разработка и управление: Пер. с англ. / Ханен, Г. , Хансен, Д. - М. :ЗАО «Издательство БИНОМ», 1999.

Диго, С. М. Базы данных: проектирование и использование: Учебник. - М. : Финансы и статистика, 2005.

Михеева, В. Д. Microsoft Access 2003. - СПб. : БВХ, 2004.

Кузнецов, А. К. Microsoft Access 2003. Русская версия. - СПб. , 2006.

Хавьер, П. Программирование в Borland Delphi 2006 для профессионалов = Delphi for .NET Developer's Guide. - М. : Вильямс, 2006.

Рубенкинг, Нил Дж. Язык программирования Delphi для «чайников». Введение в Borland Delphi 2006 = Delphi for Dummies. - М. : Диалектика, 2007.

Культин, Н. Основы программирования в Delphi XE. - CПб. : «БХВ-Петербург», 2011.

Осипов, Д. Базы данных и Delphi. Теория и практика. - CПб. : «БХВ-Петербург», 2011.

Зинченко, В. П. Эргономические основы организации труда / Мунипов, В. М. , Смолян, Г. Л. - М., 1974.

Приложение А

Физическая модель

Таблица А 1 - Информационное обеспечение функции «Доноры»

№ поля	Наименование	Тип	Ограничение
1	КодДонора	Счетчик	Ключевое
2	Название	Текстовый	200 символов, обязательное
3	Адрес	Текстовый	200 символов
4	Телефон	Числовой	50 символов
5	КонтактноеЛицо	Текстовый	100 символов

Таблица А 2 - Информационное обеспечение функции «Поставки»

№ поля	Наименование	Тип	Ограничение
1	КодДонора	Счетчик	Ключевое
2	КодТовара	Числовой	30 символов
3	Дата	Дата/Время	100 символов, обязательное
4	Количество	Числовой	100 символов

Таблица А 3 - Информационное обеспечение функции «Товары»

№ поля	Наименование	Тип	Ограничение
1	КодТовара	Счетчик	Ключевое
2	Название	Текстовый	200 символов
3	Количество	Числовой	100 символов, обязательное
4	Вид	Текстовый	200 символов
5	Описание	Текстовый	200 символов, обязательное
6	Размеры	Текстовый	100 символов
7	Вес	Числовой	100 символов

Таблица А 4 - Информационное обеспечение функции «Сотрудники»

№ поля	Наименование	Тип	Ограничение
1	КодСотрудника	Счетчик	Ключевое
2	ФИО	Текстовый	200 символов, обязательное
3	Телефон	Текстовый	50 символов
4	Должность	Текстовый	50 символов

Таблица А 5 - Информационное обеспечение функции «Отгрузки»

№ поля	Наименование	Тип	Ограничение
1	КодОтгрузки	Счетчик	Ключевое
2	КодТовара	Числовой	30 символов
3	КодНуждающегося	Числовой	50 символов
4	КодСотрудника	Числовой	50 символов
5	Дата	Дата/Время	50 символов
6	Количество	Числовой	100 символов

Таблица А 6 - Информационное обеспечение функции «Потребности»

№ поля	Наименование	Тип	Ограничение
1	КодНуждающегося	Счетчик	Ключевое
2	КодТовара	Числовой	100 символов, обязательное
3	Количество	Числовой	200 символов, обязательное
4	Статус	Текстовый	200 символов

Таблица А 7 - Информационное обеспечение функции «Нуждающиеся»

№ поля	Наименование	Тип	Ограничение
1	КодНуждающегося	Счетчик	Ключевое
2	ФИО	Текстовый	200 символов, обязательное
3	Телефон	Числовой	200 символов, обязательное
4	Адрес	Текстовый	200 символов
5	Описание	Текстовый	200 символов

Таблица А 8 - Описание связей

Сущность 1	Связь	Сущность 2	Показатель кардинальности
Доноры	Отдает	Поставки	1:М
Поставки	Формируются	Товары	М:1
Товары	Перемещаются	Отгрузки	1:М
Отгрузки	Оформляются	Сотрудники	М:1
Нуждающиеся	Принимают	Отгрузка	1:М
Потребности	Создаются	Нуждающиеся	М:1
Поставки	Учитываются	Потребности	1:М

Таблица А 9 - Описание сущностей

Сущность	Атрибут	Ключ	Домен
			Тип	Размер
1	2	3	4	5
Доноры	КодДонора	ПК	Числовой	200
	Название		Текстовый	200
	Адрес		Текстовый	50
	Телефон		Числовой	100
	КонтактноеЛицо		Текстовый	200
Поставки	КодДонора	ПК	Счетчик	200
	КодТовара		Числовой	30
	Дата		Дата/Время	100
	Количество		Числовой	100
Товары	КодТовара	ПК	Счетчик	200
	Название		Текстовый	200
	Количество		Числовой	100
	Вид		Текстовый	200
	Описание		Текстовый	200
	Размеры		Текстовый	100
	Вес		Числовой	100
Сотрудники	КодСотрудника	ПК	Счетчик	200
	ФИО		Текстовый	200
	Телефон		Текстовый	50
	Должность		Текстовый	50
Отгрузки	КодОтгрузки	ПК	Счетчик	200
	КодТовара		Числовой	30
	КодНуждающегося		Числовой	50
	КодСотрудника		Числовой	50
	Дата		Дата/Время	50
	Количество		Числовой	100
Потребности	КодНуждающегося	ПК	Счетчик	200
	КодТовара		Числовой	100
	Количество		Числовой	200
	Статус		Текстовый	200
Отгрузки	КодНуждающегося	ПК	Счетчик	200
	ФИО		Текстовый	200
	Телефон		Числовой	200
	Адрес		Текстовый	200
	Описание		Текстовый	200

Рисунок А 1 - «Схема данных в среде выбранной СУБД»

Рисунок А 2 - Конструктор таблицы «Доноры»

Рисунок А 3 - Таблица «Доноры»

Рисунок А 4 - Конструктор таблицы «Поставки»

Рисунок А 5 - Таблица «Поставки»

Рисунок А 6 - Конструктор таблицы «Товары»

Рисунок А 7 - Таблица «Товары»

Рисунок А 8 - Конструктор таблицы «Сотрудники»

Рисунок А 9 - Таблица «Сотрудники»

Рисунок А 10 - Конструктор таблицы «Отгрузки»

Рисунок А 11 - Таблица «Отгрузки»

Рисунок А 12 - Конструктор таблицы «Потребности»

Рисунок А 13 - Таблица «Потребности»

Рисунок А 14 - Конструктор таблицы «Нуждающиеся»

Рисунок А 15 - Таблица «Нуждающиеся»

Приложение Б

Текст основных модулей программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, DB, ADODB;

type

TForm1 = class(TForm)

ADOConnection1: TADOConnection;

Button1: TButton;

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit4, Unit6, Unit8, Unit10, Unit12, Unit14, Unit17;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

Form2.Showmodal;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Form4.Showmodal;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

Form6.Showmodal;

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

Form8.Showmodal;

end;

procedure TForm1.BitBtn7Click(Sender: TObject);

begin

Form10.Showmodal;

end;

procedure TForm1.BitBtn6Click(Sender: TObject);

begin

Form12.Showmodal;

end;

procedure TForm1.BitBtn5Click(Sender: TObject);

begin

Form14.Showmodal;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Form17.ADOQuery1.Active:=False;

Form17.ComboBox1.Text:='';

Form17.ComboBox1.Items.Clear;

Form4.ADOTable1.First;

While Not Form4.ADOTable1.Eof do

Begin

Form17.ComboBox1.Items.Add(Form4.ADOTable1.FieldByName('Название').AsString);

Form4.ADOTable1.Next;

End;

Form17.ShowModal;

end;

end.

unit Unit2;

uses Unit1, Unit3;

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

ADOTable1.Insert;

Form3.ShowModal;

end;

procedure TForm2.BitBtn3Click(Sender: TObject);

begin

ADOTable1.Edit;

Form3.ShowModal;

end;

procedure TForm2.BitBtn2Click(Sender: TObject);

begin

ADOTable1.Delete;

end;

end.

unit Unit3;

interface

uses

type

TForm3 = class(TForm)

Image1: TImage;

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

procedure TForm3.BitBtn5Click(Sender: TObject);

begin

Form2.ADOTable1.Post;

Close;

end;

procedure TForm3.BitBtn6Click(Sender: TObject);

begin

Form2.ADOTable1.Cancel;

Close;

end;

end.

unit Unit4;

uses Unit1, Unit5;

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

ADOTable1.Insert;

Form5.ShowModal;

end;

procedure TForm4.BitBtn3Click(Sender: TObject);

begin

ADOTable1.Edit;

Form5.ShowModal;

end;

procedure TForm4.BitBtn2Click(Sender: TObject);

begin

ADOTable1.Delete;

end;

end.

unit Unit5;

uses Unit4;

procedure TForm5.BitBtn6Click(Sender: TObject);

begin

Form4.ADOTable1.Post;

Close;

end;

procedure TForm5.BitBtn7Click(Sender: TObject);

begin

Form4.ADOTable1.Cancel;

Close;

end;

end.

unit Unit6;

uses Unit1, Unit7;

procedure TForm6.BitBtn1Click(Sender: TObject);

begin

ADOTable1.Insert;

Form7.ShowModal;

end;

procedure TForm6.BitBtn3Click(Sender: TObject);

begin

ADOTable1.Edit;

Form7.ShowModal;

end;

procedure TForm6.BitBtn2Click(Sender: TObject);

begin

ADOTable1.Delete;

end;

end.

unit Unit7;

uses Unit6, Unit8;

procedure TForm7.BitBtn8Click(Sender: TObject);

begin

Form6.ADOTable1.Post;

Close;

end;

procedure TForm7.BitBtn9Click(Sender: TObject);

begin

Form6.ADOTable1.Cancel;

Close;

end;

end.

unit Unit8;

uses Unit1, Unit9;

procedure TForm8.BitBtn1Click(Sender: TObject);

begin

ADOTable1.Insert;

Form9.ShowModal;

end;

procedure TForm8.BitBtn3Click(Sender: TObject);

begin

ADOTable1.Edit;

Form9.ShowModal;

end;

procedure TForm8.BitBtn2Click(Sender: TObject);

begin

ADOTable1.Delete;

end;

end.

unit Unit9;

uses Unit8;

procedure TForm9.BitBtn8Click(Sender: TObject);

begin

Form8.ADOTable1.Post;

Close;

end;

procedure TForm9.BitBtn9Click(Sender: TObject);

begin

Form8.ADOTable1.Cancel;

Close;

end;

end.

unit Unit10;

uses Unit1, Unit11;

procedure TForm10.BitBtn1Click(Sender: TObject);

begin

ADOTable1.Insert;

Form11.ShowModal;

end;

procedure TForm10.BitBtn3Click(Sender: TObject);

begin

ADOTable1.Edit;

Form11.ShowModal;

end;

procedure TForm10.BitBtn2Click(Sender: TObject);

begin

ADOTable1.Delete;

end;

end.

unit Unit11;

uses Unit10;

procedure TForm11.BitBtn8Click(Sender: TObject);

begin

Form10.ADOTable1.Post;

Close;

end;

procedure TForm11.BitBtn9Click(Sender: TObject);

begin

Form10.ADOTable1.Cancel;

Close;

end;

end.

unit Unit12;

procedure TForm12.BitBtn1Click(Sender: TObject);

begin

ADOTable1.Insert;

Form13.ShowModal;

end;

procedure TForm12.BitBtn3Click(Sender: TObject);

begin

ADOTable1.Edit;

Form13.ShowModal;

end;

procedure TForm12.BitBtn2Click(Sender: TObject);

begin

ADOTable1.Delete;

end;

end.

unit Unit13;

uses Unit12;

procedure TForm13.BitBtn8Click(Sender: TObject);

begin

Form12.AdoTable1.Post;

Close;

end;

procedure TForm13.BitBtn9Click(Sender: TObject);

begin

Form12.AdoTable1.Cancel;

Close;

end;

end.

unit Unit14;

procedure TForm14.BitBtn1Click(Sender: TObject);

begin

ADOTable1.Insert;

Form15.ShowModal;

end;

procedure TForm14.BitBtn3Click(Sender: TObject);

begin

ADOTable1.Edit;

Form15.ShowModal;

end;

procedure TForm14.BitBtn2Click(Sender: TObject);

begin

ADOTable1.Delete;

end;

end.

unit Unit15;

var

Form15: TForm15;

implementation

uses Unit14;

procedure TForm15.BitBtn8Click(Sender: TObject);

begin

Form14.ADOTable1.Post;

Close;