Создание автоматизированной информационной системы "Бюро знакомств"

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

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

Введение

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

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

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

Все это и служит для разработки моей курсовой работы. Тема моей курсовой работы «Туристическое агентство». В данной работе содержится описание программного продукта «Туристическое агентство». Описание предоставлено согласно содержанию этапов разработки курсовой работы:

· Системный анализ предметной области;

· Техническое задание;

· Функциональная модель предметной области;

· Объектная модель предметно области;

· Обоснование выбора программной среды реализации АИС;

· Описание ПО АИС;

· Требование к технике эксплуатации;

· Документация по эксплуатации АИС;

· Контрольный пример.

Программный продукт выполнялся согласно всем установленным требованиям.

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

1. Системный анализ предметной области

1.1 Назначение деятельности данных предметной области

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

1.2 Виды работы

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

1.3 Вид исходной информации

В программе будут учитываться данные о выбранных турах, о расценках. Все эти данные будут сохраняться в базе данных. Все данные будут сохраняться в соответствии с их назначением и атрибутами.

1.4 Виды выходных данных

Выходные данные в большинстве своем будут отображаться в виде таблиц. Так же будет осуществлена возможность создание отчетов в соответствии с желаемым результатом.

2. Техническое задание

2.1 Введение

Работа выполняется в рамках проекта «Создание продукта на языке программирования Delphi».

2.2 Основание для разработки

Основанием для данной работы служит курсовая работа.

2.3 Наименование работы

Автоматизированная информационная система «Бюро знакомств».

2.4 Исполнители

Студентка группы АС-09с филиала ГОУ ВПО «Кемеровский государственный университет» в г. Юрге - Самущик Мария.

2.5 Соисполнители

нет.

2.6 Назначение разработки

Создание программного продукта для автоматизации работы сотрудников «Бюро знакомств».

2.7 Требования к функциональным характеристикам

Состав выполняемых функций:

Разрабатываемое ПО должно обеспечивать:

· Хранить данные о клиентах и их фотографии;

· Вывод данных о клиентах;

· Осуществлять поиск;

· Редактирование данных клиента.

Организация входных и выходных данных:

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

Требование к надежности:

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

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

2.8 Требования к информационной и программной совместимости

Программа должна работать на платформе Windows 95/ 98/ NT/ 2000/XP/7/Vista.

2.9 Требования к транспортировке и хранению

Программа поставляется на лазерном носителе информации. Программная документация поставляется в электронном и печатном виде.

2.10 Специальные требования

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

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

2.11 Требования к программной документации

Основными документами, регламентирующие разработку будущей программы, документы Единой Системы Программ: руководство пользователя, руководство администратора, описание применения.

2.12.Технико-экономические показатели

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

2.13 Порядок контроля и приемки

Программа должна быть проверенна заказчиком в течение 15 суток по истечению данного срока, заказчик не может предъявлять претензии исполнителю.

3. Разработка модели информационного обеспечения с помощью Case-технологий

Модель IDEF0.

В IDEF0-модели процесс представляется в виде иерархической совокупности взаимодействующих функций и стрелок. Основными элементами методологии являются: Функциональный блок и стрелка. В данной модели я создала объект «Бюро знакомств «Седьмое небо»». Обозначила его основные элементы и функции (этими элементами являются дуги). Наименование созданных дуг, соответственно типу дуги: «Приход клиента», «Данные о клиенте», «Запрос», «Регистрация анкеты», «Менеджер», «Уход клиента». После создания контекстной диаграммы необходимо расписать работу отдельных участков бюро знакомств. Для этого декомпозируем эту диаграмму. Создала диаграмму, состоящую из 5блоков: «Составление договора», «Поиск», «Уход клиента». После декомпозиции соединила блоки дугами, тем самым, показав взаимосвязь между объектами. (В данной диаграмме используются связи только по выходу).

Рисунок 1



Рисунок 2

Рисунок 3

1. Менеджер входит в систему.

2. Программа выводит окно и предлагает выбрать разделы:

· Регистрация анкеты

· Сортировка

· Поиск

· Выход из системы

Альтернативный поток событий № 1: Менеджер выбирает раздел «Регистрация анкеты».

· Программа открывает окно, в котором происходит заполнение необходимых данных о клиенте;

· Менеджер выполняет необходимые действия.

· Вариант использования завершается.

Альтернативный поток событий № 2: Менеджер выбирает раздел «Заполнение анкеты».

· Программа открывает окно куда менеджер) вносит данные о клиенте.

· Вариант использования завершается.

Альтернативный поток событий № 2: Менеджер выбирает раздел «Поиск».

· Программа открывает окно, в котором предоставляет выбор поиска. Существует 2 вида поиска: «Поиск по каталогу», «Поиск по запросу».

· Менеджер выбирает необходимый вид поиска.

· Программа выполняет поиск, предоставляет отчет.

· Вариант использования завершается.

Альтернативный поток событий № 3:Менеджер выбирает раздел «Сортировка».

· Программа открывает окно, в котором отображается: параметры сортировки.

· Менеджер выполняет необходимые действия.

· Вариант использования завершается.

Альтернативный поток событий №4:

· Менеджер открыл программу.

· Менеджер завершает работу программы.

· Вариант использования завершается.

4. Обоснование выбора программной среды реализации АИС

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

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

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

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

Компилятор, встроенный в Delphi, обеспечивает высокую производительность, необходимую для построения приложений в архитектуре "клиент-сервер". Этот компилятор в настоящее время является Л1ым быстрым в мире, его скорость компиляции составляет свыше 120 тысяч строк в минуту на компьютере 4860X33. Он предлагает легкость разработки и быстрое время проверки готового программного блока, характерного для языков четвертого поколения (401.) и в то же время обеспечивает качество кода, характерного для компилятора 361.: Кроме того, Delphi обеспечивает быструю разработку без необходимости писать вставки на Си или ручного написания кода (хотя это возможно). В процессе построения приложения разработчик выбирает из палитры компонент готовые компоненты как художник, делающий крупные мазки кистью. Еще до компиляции он видит результаты своей работы - после подключения к источнику данных их можно видеть отображенными на форме, можно перемещаться по данным, представлять их в том или ином виде. В этом смысле проектирование в Delphi мало чем отличается от проектирования в интерпретирующей среде, однако после выполнения компиляции мы получаем код, который исполняется в 10-20 раз быстрее, чем то же самое, сделанное при помощи интерпретатора. Кроме того. компилятор компилятору рознь, в Delphi компиляция производится непосредственно в родной машинный код, в то время как существуют компиляторы, превращающие программу в так называемый М-код, который затем интерпретируется виртуальной р-машиной. Это не может не сказаться на фактическом быстродействии готового приложения.

HTML Help Workshop - современные программы выводят справочную информацию в Internet - стиле - окно, которое используется для вывода напоминает окно Internet Explorer. И это не удивительно, так как для вывода справочной информации используются компоненты, составляющие основу Microsoft Internet Explorer. Система отображения справочной информации является частью операционной системы, поэтому никакие дополнительные средства для вывода справочной информации не нужны. Физически справочная информация находится в файлах с расширением chm. CHM-файл - это так называемый компилированный HTML-документ. CHM-файл- получается путем компиляции файлов, составляющих HTML-документов, который, как правило, состоит из нескольких HTML-документов.

Чтобы создать справочную систему, нужно:

1. Подготовить файлы;

2. Создать файл проекта;

3. Создать файл контекста (содержания);

4. Выполнить компиляцию;

FastReport - это полностью визуальный генератор отчетов, т.е. большинство отчетов можно построить, пользуясь только мышью. Его возможности перечислены ниже:

· Бэнд-ориентированный генератор отчетов.

· Встроенный мощный дизайнер, доступный и в run-time.

· Preview как в MS Word.

· Скорость работы сравнима с QuickReport.

· Компактность кода - без дизайнера меньше QR3.

· Неограниченное количество страниц сформированного отчета.

· Многостраничные отчеты; составные (композитные) отчеты; вложенные отчеты; группы; многоколоночные отчеты; master-detail-detail отчеты; cross-tab отчеты; двухпроходные отчеты; "живые" отчеты.

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

· Набор наиболее популярных компонентов: Текст, Линия, Рисунок, Фигура, OLE объект, RichText, RX Rich 2.0, Диаграмма, Штрих-код.

· Экспорт в TXT, RTF, CSV, HTML (в RTF, HTML - с картинками).

· Поиск текста в сформированном отчете.

· Редактирование сформированного отчета.

· Встроенный интерпретатор Pascal-подобного языка для управления процессом построения отчета.

· Набор визуальных компонентов для создания диалоговых форм;

· Набор невизуальных компонентов для создания таблиц, запросов и баз данных;

· Add-in компонент TfrDataStorage (менеджер данных), предназначенный для создания запросов и таблиц в run-time - специально для т.н. enduser - отчетов.

· Работа в менеджере данных с BDE, Interbase Express (IBX), ActiveX Data Objects (ADO).

· Работа как с Database - ориентированными источниками данных, так и с любыми данными.

· Форма отчета может храниться как в DFM, так и во внешнем файле.

· Функциональность может быть расширена за счет написания собственных компонент - визуальных объектов, мастеров, библиотек функций.

Microsoft Access - наиболее широко используемая в среде Microsoft Windows реляционная СУБД. Microsoft Access - типичная СУБД для персональных компьютеров, обеспечивающая хранение, сортировку и поиск данных для множества приложений. В СУБД Access для создания таблиц, запросов, форм и отчетов предусмотрен графический интерфейс пользователя (Graphical User Interface GUI); для разработки настраиваемых приложений с базой данных инструментальные средства, использующие макроязык Microsoft Access или язык VBA (Microsoft Visual Basic for Application). Кроме того, в СУБД Access предусмотрены программы, называемые мастерами (Wizards), которые упрощают многие из процессов формирования приложений с базой данных, проводя пользователя через ряд диалоговых окон в запросно-ответном режиме. В СУБД Access предусмотрены также конструкторы (Builders), которые могут помочь пользователю сформировать синтаксически правильные выражения, например операторы и макрокоманды языка SQL. СУБД Access поддерживает значительную часть стандарта языка SQL, а также стандарт Microsoft ODBC (Open Database Connectivity - открытый интерфейс доступа к базам данных), обеспечивающий общий интерфейс для доступа к разнотипным базами данных SQL, таким как Oracle и Informix.

5. Описание программного обеспечения АИС

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

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

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

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

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

5.1 Компоненты вкладки Standard

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

Компонент класса TLabel предназначены для размещения на форме различного рода текстовых надписей. Для этого служит центральное свойство компонента - Caption.

Компоненты TButton широко используются для управления программами. Связанный с кнопкой алгоритм управления реализуется в обработчике событий OnClick.

Компонент класса TEdit представляет собой однострочное редактируемое текстовое поле. С его помощью можно вводить и / или отображать достаточно длинные текстовые строки

5.2 Компонент вкладки Additional

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

5.3 Компоненты вкладки Data Controls

DBEdit позволяет просматривать и редактировать содержимое поля.

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

Компонент DBGrid обеспечивает представление базы данных в виде таблицы. Обеспечивает просмотр и редактирования данных.

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

5.4 Компоненты вкладки ADO

ADOQuery предназначен для получению доступа к одной или более таблицам из базы данных, используя SQL - запросы

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

5.5 Data Access

Компонент DataSource обеспечивает связь компонента отображения - редактирования данных (например, компонента DBGrid) и источника данных, в качестве которого может выступать таблица или результат выполнения SQL - запроса к таблице. Компонент DataSource позволяет оперативно выбирать источник данных, использовать один и тот же компонент, например, DBGrid для отображения данных из таблицы или результат выполнения SQL - запроса к этой таблице.

· Для того чтобы загрузить программу необходимо щелкнуть дважды левой кнопкой мыши на приложение Project 1, происходит запуск программы, где будет происходить строка загрузки.

· При нажатии левой кнопкой мыши на кнопку «Клиент», в форму «Анкета» автоматически введется номер договора.

· При нажатии левой кнопки мыши на кнопку «База данных» программа автоматически открывает базу данных.

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

· При нажатии кнопки «ОК» после каждого нового составления договора программа автоматически подсчитывает количество составленных договоров. Форма закрывается.

· Программа автоматически показывает время. Время отображается в левом нижнем углу формы базы данных.

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

· Для того чтобы произвести сортировку, необходимо войти в меню «Правка - Сортировка», выбрать поле по которому необходимо провести сортировку.

· Для того чтобы удалить строку в базе данных необходимо войти в меню «Правка - Удалить».

· Для того чтобы вызвать справку необходимо выбрать в меню «О программе - Справка».

· Для того чтобы произвести поиск по каталогу необходимо выбрать в меню «Поиск- По каталогу».

· Для того чтобы произвести поиск по запросу необходимо выбрать в меню «Поиск- По запросу».

6. Описание модели данных

6.1 Инфологическая модель данных

Рисунок 4

6.2 Реляционная модель данных

Таблица клиент содержит информацию о клиентах.

Табл. 1

Имя поля	Тип данных	Описание
Номер анкеты	Числовой	В этом поле вводится номер анкеты клиента
Фамилия	Текстовый	В этом поле вводится фамилия клиента
Имя	Текстовый	В этом поле вводится имя клиента
Отчество	Текстовый	В этом поле вводится отчество клиента
Пол	Текстовый	В этом поле содержится пол клиента
Телосложение	Числовой	В этом поле вводится вес клиента
Рост	Числовой	В этом поле содержится рост клиента
Возраст	Числовой	В этом поле вводится возраст клиента
Знак зодиака	Текстовый	В этом поле вводится информация о знаке зодиаке клиента
Образование	Текстовый	В этом поле вводится информация об образовании клиента
Город	Текстовый	В этом поле вводится название города, где проживает клиент
Дети	Логический	В этом поле вводится информация о том, есть ли у клиента дети или нет
Увлечения	Текстовый	В этом поле вводится информация об увлечениях клиента
foto	Поле объекта OLE	В это поле добавляется фотография клиента

7. Требования к технике эксплуатации

Системные требования:

Процессор Pentium ® (4 CPU, 3.06 GHz, 1.00 Гб ОЗУ), Intel ®, Celeron ® (CPU 1.70 GHz 1.72 ГГц, 128 МБ ОЗУ).

· Microsoft Windows XP Professional (версия 2002) Service Pack 1 или Home, или Windows XP Tablet PC;

· 100 МБ свободного места на диске (со временем будет требоваться больше, для хранения информации о клиентах);

· Принтер (для печати отчетов и договоров);

· Клавиатура;

· Мышка.

8. Документация по эксплуатации АИС

Прикладная программа Бюро знакомств «Седьмое небо» разработана на языке программирования Delphi 7.

Система хранит список людей заполнивших анкету, их данные, фото, проводит поиска и сортировку необходимой информации.

Только у Администратора есть права к редактированию базы данных.

Для того чтобы войти в программу необходимо ее запустить. Кликнув два раза левой клавишей мыши на значке Project1.

После чего запуститься загрузка системы.

Программа откроет окно, на которой предоставляется выбор:

«Добавить анкету» «База данных».

Для Администратора есть своя кнопка, по которой он переходит к редактированию «Базы данных»

Вход от Администратора.

Только администратор имеет право редактировать «Базу данных».

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

Если пароль будет веден верно, то по нажатию на ключ, полоса проверки засветится зеленой, и по второму нажатию откроет окно редактирования «Базы данных».

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

Меню содержит:

1. Файл: Выход.

2. Правка: 2.1 Сортировка: · Город · Фамилия · Имя · Отчество · Пол · Вес · Рост · Возраст · Знак зодиака · Образование.

3. Поиск.

4. О программе.

5.Справка

Раздел «Добавить анкету».

Программа открывает окно «Добавить анкету» где необходимо ввести необходимые данные.

Вставка фотографии в базу данных.

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

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

Поиск по запросу.

Для того чтобы произвести поиск по запросу необходимо щелкнуть мышкой на вкладку Поиск. Открывается окно поиска, на котором находятся пять полей, по которым происходит поиск: Город, Фамилии, Пол, Знак зодиака, Образование. Менеджер выбирает нужное поле и вводит критерии поиска. После этого необходимо нажать на кнопку «Найти».

9. Контрольный пример

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

Запускается программа, если она была уже запущена менеджер (пользователь - консультант) выбирает в открывшемся окне раздел «Клиент».

После чего, открывается новое окно «Регистрация анкеты». Менеджер (пользователь - консультант) вводит данные о клиенте, если есть фотография, загружает ее. После чего выводит на печать одну копию Договора, составленного с клиентом Петровым. Затем нажимает на кнопку ОК. Все данные о клиенте автоматически заносятся в базу данных.

Клиенту Петрову предлагается вид поиска: «Поиск по запросу» Менеджер входит в базу данных. В меню выбирает «Поиск».

Поиск выбран «По запросу». Программа открывает окно, на которой находится пять полей, по которым происходит поиск: Фамилия, Город, Образование, Знак зодиака, По полу.

Образование. Менеджер (пользователь - консультант) выбирает нужное поле. Затем вводятся необходимые требования, которые огласил клиент Петров. После этого менеджер (пользователь - консультант) нажимает на кнопку «Поиск».

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

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

В течение нескольких дней клиенту Петрову устраивается встреча с понравившимися людьми.

10. Листинг программы

unit Unit1;

interface

uses

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

Dialogs, XPMan, ComCtrls, ExtCtrls, jpeg;

type

TForm1 = class(TForm)

Image1: TImage;

Timer1: TTimer;

ProgressBar1: TProgressBar;

XPManifest1: TXPManifest;

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if ProgressBar1.Position=100 Then

Begin

Timer1.Enabled:=False;

Hide;

Form2.Show;

end;

ProgressBar1.Position:=ProgressBar1.Position+1;

end;

end.

unit Unit2;

interface

uses

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

Dialogs, jpeg, ExtCtrls, StdCtrls, XPMan, hh, Menus;

type

TForm2 = class(TForm)

Image1: TImage;

Image2: TImage;

Image3: TImage;

Timer1: TTimer;

XPManifest1: TXPManifest;

Label1: TLabel;

Image6: TImage;

Image4: TImage;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

procedure Image2Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Image6Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit3, Unit4, Unit6;

{$R *.dfm}

procedure TForm2.Image2Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm2.Image3Click(Sender: TObject);

begin

Form4.Show;

end;

procedure TForm2.Timer1Timer(Sender: TObject);

begin

Label1.Caption:=TimeToStr(Now);

end;

procedure TForm2.Image6Click(Sender: TObject);

begin

Form6.Show;

end;

procedure TForm2.N1Click(Sender: TObject);

begin

HtmlHelp(GetDesktopWindow,PChar(ExtractFilePath(ParamStr(0)) + '.\sp.chm'),

HH_DISPLAY_TOPIC,0);

end;

procedure TForm2.N3Click(Sender: TObject);

begin

close;

end;

end.

unit Unit3;

interface

uses

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

Dialogs, jpeg, ExtCtrls, StdCtrls, XPMan, DBCtrls, Mask, DB, ADODB,

ExtDlgs;

type

TForm3 = class(TForm)

Image1: TImage;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

DBCheckBox1: TDBCheckBox;

XPManifest1: TXPManifest;

DataSource1: TDataSource;

ADOTable1: TADOTable;

DBNavigator1: TDBNavigator;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

SaveDialog1: TSaveDialog;

PrintDialog1: TPrintDialog;

Image3: TImage;

OpenPictureDialog1: TOpenPictureDialog;

Button1: TButton;

DataSource2: TDataSource;

ADOTable2: TADOTable;

Label11: TLabel;

Timer1: TTimer;

procedure Button1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Image2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

if OpenPictureDialog1.execute then

image3.Picture.LoadFromFile(OpenPictureDialog1.filename);

Windows.SetCurrentDirectory(PAnsiChar(ExtractFilePath(Application.ExeName)))

end;

procedure TForm3.Timer1Timer(Sender: TObject);

begin

Label11.Caption:=TimeToStr(Now);

end;

procedure TForm3.Image2Click(Sender: TObject);

begin

//Form3.ShowModal;

FORM3.ADOTable1.Edit;

FORM3.ADOTable1.Post;

close;

end;

end.

unit Unit4;

interface

uses

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

Dialogs, Menus, DBCtrls, ExtCtrls, Grids, DBGrids, jpeg, XPMan, DB, ADODB,

StdCtrls, DBTables, ComCtrls, Mask, RpRender, RpRenderCanvas,

RpRenderPrinter, RpDefine, RpRave, RpBase, RpSystem, FR_DSet, FR_DBSet,

FR_Class, hh;

type

TForm4 = class(TForm)

Image1: TImage;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Image2: TImage;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

XPManifest1: TXPManifest;

N6: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

ADOTable1: TADOTable;

DataSource1: TDataSource;

ADOQuery1: TADOQuery;

DataSource2: TDataSource;

DBImage1: TDBImage;

Label1: TLabel;

Timer1: TTimer;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

DBEdit11: TDBEdit;

Label11: TLabel;

frReport1: TfrReport;

frDBDataSet1: TfrDBDataSet;

N7: TMenuItem;

N12: TMenuItem;

procedure N4Click(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure DBGrid1CellClick(Column: TColumn);

procedure Timer1Timer(Sender: TObject);

procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

procedure N2Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N12Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit5, Unit2, Unit8;

{$R *.dfm}

procedure TForm4.N4Click(Sender: TObject);

begin

Form5.Show;

end;

procedure TForm4.Image2Click(Sender: TObject);

begin

close;

end;

procedure TForm4.N16Click(Sender: TObject);

begin

ADOTable1.IndexFieldNames:='[Город]'

end;

procedure TForm4.N8Click(Sender: TObject);

begin

ADOTable1.IndexFieldNames:='[Фамилия]'

end;

procedure TForm4.N9Click(Sender: TObject);

begin

ADOTable1.IndexFieldNames:='[Имя]'

end;

procedure TForm4.N10Click(Sender: TObject);

begin

ADOTable1.IndexFieldNames:='[Пол]'

end;

procedure TForm4.N11Click(Sender: TObject);

begin

ADOTable1.IndexFieldNames:='[Рост]'

end;

procedure TForm4.N13Click(Sender: TObject);

begin

ADOTable1.IndexFieldNames:='[Возраст]'

end;

procedure TForm4.N14Click(Sender: TObject);

begin

ADOTable1.IndexFieldNames:='[Знак задиака]'

end;

procedure TForm4.N15Click(Sender: TObject);

begin

ADOTable1.IndexFieldNames:='[Образование]'

end;

procedure TForm4.DBGrid1CellClick(Column: TColumn);

begin

if ADOTable1.FieldByname('foto').DisplayText='' then

DBImage1.Picture.LoadFromFile('.\картинки\1.jpg')

else

Begin

if FileExists(ADOTable1.FieldByname('foto').AsString) = false then

begin

MessageDlg ('Файл был удален - Добавьте его в окне добавления изображения',

mtError, [mbOk], 0); exit;

end

else

DBImage1.Picture.LoadFromFile(ADOTable1.FieldByname('foto').AsString);

end;

end;

procedure TForm4.Timer1Timer(Sender: TObject);

begin

Label1.Caption:=TimeToStr(Now);

end;

procedure TForm4.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

begin

if ADOTable1.FieldByname('foto').DisplayText='' then

DBImage1.Picture.LoadFromFile('.\картинки\1.jpg')

else

Begin

if FileExists(ADOTable1.FieldByname('foto').AsString) = false then

begin

MessageDlg ('Файл был удален - Добавьте его в окне добавления изображения',

mtError, [mbOk], 0); exit;

end

else

DBImage1.Picture.LoadFromFile(ADOTable1.FieldByname('foto').AsString);

end;

end;

procedure TForm4.N2Click(Sender: TObject);

begin

Form8.Show;

end;

procedure TForm4.N7Click(Sender: TObject);

begin

frReport1.ShowReport;

end;

procedure TForm4.N12Click(Sender: TObject);

begin

HtmlHelp(GetDesktopWindow,PChar(ExtractFilePath(ParamStr(0)) + '.\sp.chm'),

HH_DISPLAY_TOPIC,0);

end;

end.

unit Unit5;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls, DBCtrls, XPMan;

type

TForm5 = class(TForm)

Image1: TImage;

Image2: TImage;

Label1: TLabel;

Memo1: TMemo;

Image3: TImage;

Label2: TLabel;

Timer1: TTimer;

XPManifest1: TXPManifest;

procedure Image3Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Image3Click(Sender: TObject);

begin

close;

end;

procedure TForm5.Timer1Timer(Sender: TObject);

begin

Label2.Caption:=TimeToStr(Now);

end;

end.

unit Unit6;

interface

uses

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

Dialogs, StdCtrls, ComCtrls, jpeg, ExtCtrls, XPMan;

type

TForm6 = class(TForm)

Image1: TImage;

Image2: TImage;

ProgressBar1: TProgressBar;

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Timer1: TTimer;

XPManifest1: TXPManifest;

procedure Image2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit7;

{$R *.dfm}

procedure TForm6.Image2Click(Sender: TObject);

begin

if ProgressBar1.Position=100 Then

Begin

Timer1.Enabled:=False;

Hide;

Form7.Show;

end;

ProgressBar1.Position:=ProgressBar1.Position+100;

end;

end.

unit Unit7;

interface

uses

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

Dialogs, jpeg, ExtCtrls, StdCtrls, DB, ADODB, XPMan, DBCtrls, Grids,

DBGrids;

type

TForm7 = class(TForm)

Image1: TImage;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

XPManifest1: TXPManifest;

ADOTable1: TADOTable;

DataSource1: TDataSource;

Label1: TLabel;

Timer1: TTimer;

Image2: TImage;

procedure Timer1Timer(Sender: TObject);

procedure Image2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.Timer1Timer(Sender: TObject);

begin

Label1.Caption:=TimeToStr(Now);

end;

procedure TForm7.Image2Click(Sender: TObject);

begin

close;

end;

end.

unit Unit8;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, ComCtrls, XPMan, StdCtrls,

jpeg, DB, ADODB, Buttons, Mask;

type

TForm8 = class(TForm)

Image1: TImage;

Label1: TLabel;

Timer1: TTimer;

XPManifest1: TXPManifest;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

DBNavigator1: TDBNavigator;

DBNavigator2: TDBNavigator;

DBNavigator3: TDBNavigator;

TabSheet4: TTabSheet;

TabSheet5: TTabSheet;

DBNavigator4: TDBNavigator;

DBNavigator5: TDBNavigator;

DataSource1: TDataSource;

Image2: TImage;

ADOQuery1: TADOQuery;

BitBtn1: TBitBtn;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Button5: TButton;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

DBEdit11: TDBEdit;

DBEdit1: TDBEdit;

DBEdit12: TDBEdit;

DBEdit13: TDBEdit;

DBEdit14: TDBEdit;

DBEdit15: TDBEdit;

DBEdit16: TDBEdit;

DBEdit17: TDBEdit;

DBEdit18: TDBEdit;

DBEdit19: TDBEdit;

DBEdit20: TDBEdit;

DBEdit21: TDBEdit;

DBEdit22: TDBEdit;

DBEdit23: TDBEdit;

DBEdit24: TDBEdit;

DBEdit25: TDBEdit;

DBEdit26: TDBEdit;

DBEdit27: TDBEdit;

DBEdit28: TDBEdit;

DBEdit29: TDBEdit;

DBEdit30: TDBEdit;

DBEdit31: TDBEdit;

DBEdit32: TDBEdit;

DBEdit33: TDBEdit;

DBEdit34: TDBEdit;

DBEdit35: TDBEdit;

DBEdit36: TDBEdit;

DBEdit37: TDBEdit;

DBEdit38: TDBEdit;

DBEdit39: TDBEdit;

DBEdit40: TDBEdit;

DBEdit41: TDBEdit;

DBEdit42: TDBEdit;

DBEdit43: TDBEdit;

DBEdit44: TDBEdit;

DBEdit45: TDBEdit;

DBEdit46: TDBEdit;

DBEdit47: TDBEdit;

DBEdit48: TDBEdit;

DBEdit49: TDBEdit;

DBEdit50: TDBEdit;

DBEdit51: TDBEdit;

DBEdit52: TDBEdit;

DBEdit53: TDBEdit;

DBEdit54: TDBEdit;

procedure Timer1Timer(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.Timer1Timer(Sender: TObject);

begin

Label1.Caption:=TimeToStr(Now);

end;

procedure TForm8.Image2Click(Sender: TObject);

begin

close;

end;

procedure TForm8.BitBtn1Click(Sender: TObject);

begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT Клиент.*');

ADOQuery1.SQL.Add('FROM Клиент');

ADOQuery1.SQL.Add('WHERE(((Клиент.Город)='+'"'+Edit1.Text+'"))');

ADOQuery1.Active:=true;

end;

procedure TForm8.Button1Click(Sender: TObject);

begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT Клиент.*');

ADOQuery1.SQL.Add('FROM Клиент');

ADOQuery1.SQL.Add('WHERE(((Клиент.Фамилия)='+'"'+Edit2.Text+'"))');

ADOQuery1.Active:=true;

end;

procedure TForm8.Button2Click(Sender: TObject);

begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT Клиент.*');

ADOQuery1.SQL.Add('FROM Клиент');

ADOQuery1.SQL.Add('WHERE(((Клиент.Образование)='+'"'+Edit3.Text+'"))');

ADOQuery1.Active:=true;

end;

procedure TForm8.Button3Click(Sender: TObject);

begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT Клиент.*');

ADOQuery1.SQL.Add('FROM Клиент');

ADOQuery1.SQL.Add('WHERE(((Клиент.Пол)='+'"'+Edit4.Text+'"))');

ADOQuery1.Active:=true;

end;

procedure TForm8.Button4Click(Sender: TObject);

begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT Клиент.*');

ADOQuery1.SQL.Add('FROM Клиент');

ADOQuery1.SQL.Add('WHERE(((Клиент.Знак зодиака)='+'"'+Edit5.Text+'"))');

ADOQuery1.Active:=true;

end;

procedure TForm8.Button5Click(Sender: TObject);

begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT* FROM Клиент');

ADOQuery1.Active:=true;

end;

end.

информационный программный системный

Заключение

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

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

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

2. Фаронов В.В., Программирование баз данных в Delphi 7. Учебный курс - СПб.: Питер, 2005.

3. Бобровский С.И., Delphi 7. Учебный курс - СПб.: Питер, 2005.

4. Глушаков С.В., Клевцов А.Л.. Программирование в среде Delphi 7. Харьков: Фолио, 2003.

5. Петров В.Н. Информационные системы. - СПб.: Питер, 2003.

6. Вендров A.M. Проектирование программного обеспечения экономических информационных систем.- М.: Финансы и статистика, 2002.

7. Мишенин А.И. Теория экономических информационных систем. - М.: Финансы и статистика, 2000.

8. Хомоненко А.Д., Цыганков В.М., Мальцев М.Г. Базы данных. СПб.: КОРОНА принт, 2003.

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

...