Разработка АИС "Туристическое агентство"

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Содержание

Введение

1. Теоретические основы разработки АИС "Туристическое агентство»

1.1 Анализ предметной области

1.2 Понятие автоматизированной информационной системы

1.3 Средства разработки

2. Проектирование и разработка АИС Туристическое агентство

2.1 Разработка ядра АИС

2.2 Создание интерфейса АИС "Туристическое агентство"

2.3 Внедрение АИС

Заключение

Список используемой литературы

Приложение

Введение

В данной курсовой работе мы разработаем и внедрим автоматизированную информационную систему туристического агентства.

Целью данного курсового проекта является разработка автоматизированной информационной системы туристического агентства.

Для решения поставленной цели решались задачи:

1. Ознакомление с уже имеющейся системой туристического агентства.

2. Создание автоматизированной информационной системы туристического агентства.

3. Внедрение данной программы на предприятию.

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

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

- информационные системы предназначены для сбора, хранения и обработки информации. Потому в основе любой из них лежит среда хранения и доступа к данным;

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

Таким образом, при разработке информационной системы приходится решать следующие задачи:

-- задачу разработки базы данных, предназначенной для хранения информации;

-- задачу разработки графического интерфейса пользователя

1. Теоретические основы разработки АИС "Туристическое агентство"

1.1 Анализ предметной области

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

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

Помимо данной таблице также есть таблица «Курорты». В ней расположена информация о стоимости путевки, количестве дней и месяце, в котором она действует.

Данная система должна выполнять следующие функции:

-- Возможность просмотреть базу данных;

-- Возможность редактирования записей;

-- Возможность добавление новых записей.

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

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

1.2 Понятие автоматизированной информационной системы

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

Автоматизированные информационные системы представляют, с одной стороны, разновидность информационной системы или ИС, а с другой стороны, являются автоматизированной системой АС, вследствие этого их часто называют АС или ИС.

В автоматизированных информационных системах за хранение любой информации отвечают:

1. На физическом уровне

a. внешние накопители;

b. встроенные устройства памяти (RAM);

c. массивы дисков;

2. на программном уровне

a. СУБД;

b. файловая система ОС;

c. Системы хранения мультимедиа, документов и т. д.

На сегодняшний день достаточно широко применяются разнообразные программные средства при работе с компьютером. В их числе находятся и автоматизированные информационные системы. Информационная система или ИС - это система обработки, хранения и передачи какой-либо информации, которая представлена в определенной форме.

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

Исходя из вышесказанного, использование современных информационных систем позволяет нам:

1. Работать с огромными объемами данных;

2. Хранить какие-либо данные в течение довольно длительного временного периода;

3. Связать несколько компонентов, которые имеют свои определенные локальные цепи, задачи и разнообразные приемы функционирования, в одну систему для работы с информацией;

4. Существенно снизить затраты на доступ и хранение к любым необходимым нам данным;

5. Довольно-таки быстро найти всю необходимую нам информацию и т. д.

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

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

Автоматизированная информационная система или АИС -- - это информационная система, которая использует ЭВМ на этапах ввода информации, ее подготовки и выдачи, то есть является неким развитием ИС, которые занимаются поиском, используя прикладные программные средства. Автоматизированные информационные системы можно смело отнести к классу очень сложных систем и, как правило, не столько с большой физической размерностью, а в связи с многозначностью различных структурных отношений между компонентами системы.

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

Современные ЛИС позволяют:

1. Повысить производительность работы всего персонала;

2. Улучшить качество обслуживания клиентской базы;

3. Снизить напряженность и трудоемкость груда персонала, в также минимизировать количество ошибок в его действиях;

На сегодняшний день, автоматизированная информационная система, является совокупностью технических (аппаратных), математических, телекоммуникационных, алгоритмических средств, методов описания и поиска объектов программирования и сбора и хранения информации.

1.3 Средства разработки

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

Современные CASE-средства охватывают обширную область поддержки многочисленных технологий проектирования АИС: от простых средств анализа и документирования до полномасштабных средств автоматизации, покрывающих весь жизненный цикл ПО. Наиболее трудоемкими этапами разработки АИС являются этапы анализа и проектирования, в процессе которых CASE-средства обеспечивают качество принимаемых технических решений и подготовку проектной документации.

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

Так, современный рынок программных средств насчитывает около 300 различных CASE-средств, наиболее мощные из которых так или иначе используются практически всеми ведущими западными фирмами. Обычно к CASE-средствам относят любое программное средство, автоматизирующее ту или иную совокупность процессов жизненного цикла ПО и обладающее следующими основными характерными особенностями: мощные графические средства для описания и документирования ИС, обеспечивающие удобный интерфейс с разработчиком и развивающие его творческие возможности; интеграция отдельных компонент С AS Е-средств, обеспечивающая управляемость процессом разработки АИС; использование специальным образом организованного хранилища проектных метаданных (репозитория). Интегрированное CASE-средство (или комплекс средств, поддерживающих полный жизненный цикл ПО) содержит следующие компоненты: репозитория, являющийся основой CASE-средства. Он должен обеспечивать хранение версий проекта и его отдельных компонентов, синхронизацию поступления информации от различных разработчиков при групповой разработке, контроль метаданных на полноту н непротиворечивость; графические средства анализа и проектирования, обеспечивающие создание и редактирование иерархически связанных диаграмм (DFD, ERD и др.), образующих модели АИС; средства разработки приложений, включая языки 4GL и генераторы кодов; средства конфигурационного управления; средства документирования; средства тестирования; средства управления проектом; средства реинжиниринга. Все современные CASE-средства могут быть классифицированы в основном по типам и категориям. Классификация по типам отряжает функциональную ориентацию CASE-средств на те или иные процессы жизненного цикла.

Классификация по категориям определяет степень интегрированности по выполняемым функциям и включает отдельные локальные средства, решающие небольшие автономные задачи (tools), набор частично интегрированных средств, охватывающих большинство этапов жизненного цикла АИС (toolkit) и полностью интегрированные средства, поддерживающие весь жизненный цикл АИС и связанные общим репозиторием. Помимо этого, CASE-средства можно классифицировать по следующим признакам: применяемым методологиям и моделям систем и БД; степени интегрированности с СУБД; доступным платформам.

Классификация по типам в основном совпадает с компонентным составом CASE-средств и включает следующие основные типы: средства анализа (Upper CASE), предназначенные для построения и анализа моделей предметной области (Design/IDEF (Meta Software), BPwin (Logic Works)); средства анализа и проектирования (Middle CASE), поддерживающие наиболее распространенные методологии проектирования и использующиеся для создания проектных спецификаций (Vantage Team Builder (Cayenne), Designer/2000 (ORACLE), Silverrun (CSA), PRO-IV (McDonnell Douglas), CASE-Аналитик (МакроПроджект)). Выходом таких средств являются спецификации компонентов и интерфейсов системы, архитектуры системы, алгоритмов и структур данных; средства проектирования баз данных, обеспечивающие моделирование данных и генерацию схем баз данных (как правило, на языке SQL) для наиболее распространенных СУБД. К ним относятся ERwin (Logic Works), S-Designor (SDP) и DataBase Designer (ORACLE). Средства проектирования баз данных имеются также в составе CASE-средств Vantage Team Builder, Designer/2000, Silverrun и PRO-IV; средства разработки приложений. К ним относятся средства 4GL (Unifece (Compuware), JAM (JYACC), PowerBuilder (Sybase), Developer/2000 (ORACLE), New Era (Informix), SQL Windows (Gupta), Delphi (Borland) и др.) и генераторы кодов, входящие в состав Vantage Team Builder, PRO-IV и частично - в Silverrun; средства реинжиниринга, обеспечивающие анализ программных кодов и схем баз данных и формирование на их основе различных моделей и проектных спецификаций. Средства анализа схем БД и формирования ERD входят в состав Vantage Team Builder, PRO-IV, Silverrun, Designer/2000, ERwin и S-Designor. В области анализа программных кодов наибольшее распространение получают объектно-ориентированные CASE-средства, обеспечивающие реинжиниринг программ на языке C++ (Rational Rose (Rational Software), Object Team (Cayenne)). Вспомогательные типы включают: средства планирования м управления проектом (SE Companion, Microsoft Project и др.); средства конфигурационного управления (PVC'S (Intersolv)); средства тестирования (Quality Works (Segue Software)); средства документирования (SoDA (Rational Software)). На сегодняшний день Российский рынок программного обеспечения располагает следующими наиболее развитыми CASE-средствами: Vantage Team Builder (Westmount I-CASE); Designer/2000; Silverrun; ERwin+BPwin; S-Designor; СА8Е.Аналитик, Кроме того, на рынке постоянно появляются как новые для отечественных пользователей системы (например, CASE /4/0, PRO-1V, System Architect, Visible Analyst Workbench, EasyCASE), так и новые версии, и модификации перечисленных систем.

Обнаружение ошибок в работе системы, извещение пользователя, корректное завершение работы или сохранение состояния к моменту прерывания.

Удобство расположения и представления часто используемых элементов экрана, способов ввода данных и др. Адаптируемость к различным алфавитам, режимам текстового и графического представления (слева-направо, сверху-вниз), различным форматам даты, способам ввода/вывода (экранным формам и форматам), изменениям в методологии (изменениям графических нотаций, правил, свойств и состава предопределенных объектов) и др. качество документации (полнота, понятность, удобочитаемость, полезность и др.). доступность и качество учебных материалов. Они могут включать компьютерные учебные материалы, учебные пособия, курсы, требования к уровню знаний. Квалификация и опыт, необходимые для эффективного использования CASE-средств. простота работы с CASE-средством (как для начинающих, так и для опытных пользователей.

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

Эффективность выполнения CASE-средством своих функций в зависимости от интенсивности работы пользователя (например, количество нажатий клавиш или кнопки мыши, требуемое для выполнения определенных функций).

Время, затрачиваемое CASE-средством для выполнения конкретных задач (например, время ответа на запрос, время анализа 100000 строк кода). В некоторых случаях данные оценки производительности можно получить из внешних источников.

Такие стандарты включают документацию, коммуникации и пользовательский интерфейс, оконный интерфейс, языки программирования, языки запросов и др. Структурная системная разработка и, в особенности, проектирование с учетом централизации данных, заключаются, в основном, в стратегическом планировании и всестороннем анализе требований. Большая часть этих подходов к разработке реализуется в ERwin моделировании данных в качестве метода, определяющего и документирующего ту часть системных требований, которая непосредственно связана с данными. Модели процессов (диаграммы потоков данных, модели распределения, модели событий/состояний) могут быть созданы при помощи Logic Works BPwin и других инструментов для документирования требований процессов. На разных стадиях разработки используются различные уровни этих моделей.

ERwin непосредственно поддерживает моделирование процессов и может прекрасно работать с различными технологиями. Например, Logic Works, среди прочего, предлагает инструмент для моделирования функций -BPwin, поддерживающий методы моделирования процессов, методы диаграмм потоков данных. BPwin может использоваться в сочетании с ERwin для анализа процесса в ERwin-проекте (моделирующем данные).

2. Проектирование и разработка ЛИС "Туристическое агентство"

2.1 Разработка ядра АИС

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

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

В данной базе данных используется две таблицы:

-- Клиенты;

-- Курорты.

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

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

Реализация проектирования информационной системы проводится в системе программирования Delphi 7.0.

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

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

Разрабатываемая автоматизированная информационная система предназначена для туристического агентства и реализована в Borland Delphi 7,0 и в СУБД MS Access.

База данных проекта содержит таблицы, названия которых соответствуют именам сущностей инфологической модели:

Клиенты;

Курорты.

автоматизированный информационный система

Таблица 1, Структура таблиц базы данных

Название таблицы БД	Поле	Тип	Комментарий
Клиенты	ID Фамилия Имя Отчество Телефон Курорт	Счетчик Текстовый Текстовый Текстовый Текстовый Текстовый	Ключевое поле
Курорты	ID Наименование Месяц Кол-во дней Стоимость	Счетчик Текстовый Текстовый Текстовый Текстовый	Ключевое поле

Требования к системе:

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

Кроме того, работа в приложении должна быть построена наиболее эффективно, то есть должны быть реализованы самые необходимые пользователю функции. Пользователь должен иметь доступ ко всем данным в БД. а также иметь возможность их добавления, корректировки, удаления. Ему также должна быть доступна такая функция, как поиск в БД. С автоматизированной информационной системой «Туристическое агентство» должен работать квалифицированный сотрудник, который имеет опыт работы с программными средствами, используемыми в данной работе, н может модернизировать ее.

2.2 Создание и АИС "Туристическое агентство"

Разработанные формы отвечают требованиям создания форм ненавязчивого интерфейса и требованиям к функциональности работы с БД.

Нa рисунке 1 представлена главная форма, которая открывается при открытии программы. На ней расположены кнопки доступа ко всем остальным формам.



На рисунке 2-5 изображены формы таблицы БД, в которых можно изменять, добавлять или удалять даные.



На формах «Клиенты», «Добавление, «Курорты» представлены такие компоненты как:

- DBGrid - Отображает таблицу;

- BitBtn - кнопки, предназначенные для поиска данных по таблице обновления и закрытия формы;

- Lmage - отображает рисунок;

-Label - название полей.

Заключение

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

-- представление данных в удобном для пользователя виде;

-- добавление и удаление данных;

-- фильтрация и сортировка данных.

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

-- получению более рациональных вариантов решения управленческих задач за счет внедрения математических методов и интеллектуальных систем и т.д.

-- освобождению работников от рутинной работы за счет ее автоматизации;

-- обеспечению достоверности информации;

-- замене бумажных носителей, данных на магнитные и оптические, что приводит к более рациональной организации переработки информации на компьютере и снижению объемов бумажных документов;

-- уменьшению затрат на производство продуктов и услуг.

Список используемой литературы

1. Архангельский А. Я. Программирование Delphi7 - Москва, 2005;

2. Бобровский С. И. Delphi 7 - Москва, 2005

3. А.М. Вендров. Проектирование программного обеспечения экономических информационных систем: учебник. М.: Финансы и статистика, 2005

4. А.В. Желонкин. Основы программирования в интегрированной средеDelphi. Издание 2. М: Бином, 2006

5. Елманова Н. Системы управления базами данных ведущих производителей. КомпьютерПресс, июль 2005.

6. Ю.Л. Кетков, АЛО. Кетков. Практика программирования: Visual Basic, C++Builder, Delphi. СПБ.: «БХВ - Петербург», 2004.

7. Ю.В.П. Роб, К. Корнел. Системы баз данных: проектирование, реализация и управление. 5 -- е издание. СПБ.: «БХВ - Петербург», 2004.

8. Рудаков А. В. Технология разработки программных продуктов - Москва, 2005;

9. Билл Гамильтон ADO Сборник рецептов. Для профессионалов.

10. В. Фаронов. DELPHI. Программирование на языке высокого уровня: Учебник для вузов. СПБ: Питер, 2005

11. М.Е. Фленов. Библия Delphi. 2-е издание. СПБ: БХВ-Петербург, 2008

12. А.П. Чекалов. Базы данных: от проектирования до разработки приложений. СПБ.: «БХВ -- Петербург», 2004

13. А.Д. Хомоненко, В.Э. Гофман, Работа с бащами данных в Delphi. СПБ.: «БХВ Петербург», 2005.

14. http://delphi-manual.ru/

15. http://ru.wikipedia.org

Приложение 1

Листинг программного кода

Unit Unitl;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, ComCtrls;

type

TForml S= class(TForm)

ADOConnectionl: TADOConnection;

ADOQueryl: TADOQuery;

DataSourcel: TDataSource;

DBGridl: TDBGrid;

BitBtnl: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

StatusBarl: TStatusBar;

procedure BitBtnlClick(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure DBGridlKeyPress(Sender: TObject; varKey: Char);

private

{ Private declarations }

public

{Public declarations }

end;

var

Forml: TForml;

fs:string;

implementation

uses Unit2, Unit3;

{SR*.dfin}

procedure TForml JBitBtnlClick(Senden TObject);

begin

form2_show;

adoquery 1.Insert;

end;

procedure TForm 1.BitBtn3Click(Sender TObject);

begin

adoquery 1 -Delete; end;

procedure TForm 1.BitBtn2Click(Senden TObject);

begin

fonn2-Sbow;

end;

procedure TForml JDBGridlKeyPress(Senden TObject; var Key: Char);

begin

fs:=fe+key;

dbgridl.DataSource.DataSet-Locatet 'Фамилия', fs, [loPartialKev]);

statusBarl.Panels.Items[0].Text:= 'Ишем:'+fs;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Mask, DBCtris;

Type

TForm2 = class(TForm)

DBEditl: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

BitBtni: TBitBtn;

BitBtn2: TBitBtn;

DBEdit5: TDBEdit;

Label 1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

procedure BitBtnlClick(Senden TObject);

procedure BitBtn2Click(Sender TObject);

private

{ Private declarations }

public

{Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unitl;

{SR'.dfm)

procedure TForm2.BitBtnlClick(Sender: TObject);

begin

form 1. ADOQuery 1.Post;

close;

end;

procedure TForm2.BitBtn2Click(Sender TObject);

begin

form2.Close;

end;

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, StdCtris, Buttons;

type

ТТоппЗ = class(TForm)

Image 1: Tlmage;

BitBtnl: TBitBtn;

BitBtn2: TBitBtn;

procedure BitBtnlClickf Sender. TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations}

ublic

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit2, Unit!, Unit4;

{$R *.dfm)

procedure TForm3.BitBmICIick(Senden TObject);

begin

form 1.show;

end;

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

form.show;

end;

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Grids, DBGrids, DB, ADODB;

type

TForm4 = class(TForm)

DataSourcel: TDataSource;

ADOConnection 1: TADOConnection;

ADOQuery 1: TADOQuery;

DBGridl: TDBGrid;

BitBtnl: TBitBtn;

BitBtnl: TBitBtn;

BitBtn3: TBitBtn;

procedure BitBtnl Cl ick(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn2Click(Sender; TObject);

privute

{Private declarations}

public

{Public declarations}

end;

var

Form4: TForm4;

implementation

uses Unit5;

{$R *.dftn}

procedure TForm4.BitBtnlClick(Sender: TObject);

begin

form5.show; adoquery 1.Insert;

end;

procedure TForm4.BitBtn3Click(Sender: TObject);

begin

adoquery 1.Delete; end;

procedure TForm4.BitBtn2Click(Sender: TObject); begin

form5.Show;

end;

end.

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Mask, DBCtrls;

type

TForm5 = class(TForm)

DBBditl: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

BitBtn1; TBitBtn;

BitBtn2: TBitBtn;

Label 1; TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure BitBtn1Click(Sender; TObject);

procedure BitBtn2Click(Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form5: TForm5; implementation uses Unit4;

{$R *.dfm}

procedure TForm5.

BitBtnlClick(Sender: TObject);

begin

form4.adoquery 1.Post;

close;

end;

procedure TForm5.BitBtn2Click(Senden TObject);

begin

form5.Close;

end;

end.

Размещено на Allbest.ru