Автор работы: Пользователь скрыл имя, 12 Декабря 2013 в 12:19, курсовая работа
В данном курсовом проекте реализуется работа с данными: добавление, изменение, удаление и поиск.
Данная пояснительная записка содержит 6 глав:
– Постановка задачи. В этой главе говориться о задании, которое надо реализовать.
– Вычислительная система. В этой главе говориться о среде программирования Delphi и операционной системе Windows 7, а так же минимальные и рекомендуемые требования к ПК.
– Проектирование. В этой главе идет описание интерфейса программы.
Введение………………………………………………………………………………………….4
1 Постановка задачи……………………………………………………………………………..6
1.1 Формулировка задания………………………………………………………………6
1.2 Информационная база задачи……………………………………………………….6
2 Вычислительная система……………………………………………...………………………7
2.1 Инструментальные средства разработки проекта…………………………………7
2.2 Среда разработки………………………………………………...…………………..7
2.3 Требования к конфигурации аппаратного обеспечения……..………………........8
3 Проектирование………………………………………………………….………………….....9
3.1 Проектирование интерфейса………………………………….….………………....9
3.2 Проектирование справочной системы приложения………….…………………..11
3.3 Инфологическая модель предметной области……………………………………11
3.4Логическая модель данных…………………………………………………………12
3.5 Физическая модель данных………………………………………………………...13
4 Описание программы……………………………………………………….………………..14
4.1 Логическая структура…………………………………………….………………...14
4.2 Физическая структура……………………………………………………………...17
5 Методика испытаний...………………………………………………………………………18
5.1 Тестовые примеры………………………………………………….………………18
5.2 Результаты тестирования…………………………………………….…………….22
5.3 Ошибки………………..……………………………….……………………………22
6 Описание применения…………………………………………...…………………………...23
6.1 Назначение программы…………………………………...………………………..23
6.2 Условия применения………………………………………………………………..23
6.3 Справочная система…………………………………………..…………………….23
Заключение………………………………………………………..…………………..…..…….24
Список использованных источников……………………………...…………………………..25
Описание работы с программой (Описание как работать с программой, Главное меню)
3.3 Инфологическая модель предметной области
В результате анализа предметной области в проектируемой базе данных выделяются следующие сущности:
- авиа (№ рейса, правила перевозки, заказ билетов, страна, город отправки, город пребытия);
- город (город, страна, отель);
- курорт (название, страна, город, отель, описание, фото, отзывы);
- отель (название, страна, город, курорт, категория, цена, контактная информация фото);
- страна (страна, экскурсии, отели, виза, город, курорты);
- тур (вид отдыха, страна, город, отель, памятка туристу, программа тура, фото);
- экскурсия (название, вид отдыха, описание, отзывы, фото, страна, город).
3.4 Логическая модель базы данных
Рисунок 4 – Логическая модель базы данных турист
3.5 Физическая модель базы данных
Рисунок 5 – Физическая модель базы данных
Menu_f:
procedure Button1Click(Sender: TObject); - процедура для перехода на следующую форму
procedure Button2Click(Sender: TObject); - процедура для перехода на следующую форму
procedure Button3Click(Sender: TObject); - процедура для перехода на следующую форму
procedure Button4Click(Sender: TObject); - процедура для перехода на следующую форму
procedure Button5Click(Sender: TObject); - процедура для перехода на следующую форму
procedure Button6Click(Sender: TObject); - процедура для перехода на следующую форму
procedure Button7Click(Sender: TObject); - процедура для перехода на следующую форму
procedure Button8Click(Sender: TObject); - процедура для выхода из программы
DM1:
procedure QKyrortAfterScroll(DataSet: TDataSet);
procedure QOtelAfterScroll(DataSet: TDataSet);
procedure QTyrAfterScroll(DataSet: TDataSet);
procedure QEksAfterScroll(DataSet: TDataSet);
Main_f:
procedure N2Click(Sender: TObject); - переход по пунктам меню
procedure N10Click(Sender: TObject); - переход по пунктам меню
procedure N3Click(Sender: TObject); - переход по пунктам меню
procedure N4Click(Sender: TObject); - переход по пунктам меню
procedure N5Click(Sender: TObject); - переход по пунктам меню
procedure N6Click(Sender: TObject); - переход по пунктам меню
procedure N7Click(Sender: TObject); - переход по пунктам меню
procedure N8Click(Sender: TObject); - переход по пунктам меню
procedure N9Click(Sender: TObject); - переход по пунктам меню
procedure Button1Click(Sender: TObject); - поиск
procedure N12Click(Sender: TObject); - переход по пунктам меню
procedure N13Click(Sender: TObject); - переход по пунктам меню
procedure N15Click(Sender: TObject); - переход по пунктам меню
procedure N16Click(Sender: TObject); - переход по пунктам меню
procedure N17Click(Sender: TObject); - переход по пунктам меню
procedure N18Click(Sender: TObject); - переход по пунктам меню
procedure N19Click(Sender: TObject); - переход по пунктам меню
procedure N20Click(Sender: TObject); - переход по пунктам меню
procedure N21Click(Sender: TObject); - переход по пунктам меню
procedure N23Click(Sender: TObject); - переход по пунктам меню
procedure N24Click(Sender: TObject); - переход по пунктам меню
procedure N25Click(Sender: TObject); - переход по пунктам меню
procedure N26Click(Sender: TObject); - переход по пунктам меню
procedure N27Click(Sender: TObject); - переход по пунктам меню
procedure N28Click(Sender: TObject); - переход по пунктам меню
procedure N29Click(Sender: TObject); - переход по пунктам меню
procedure Button2Click(Sender: TObject); - поиск
procedure N31Click(Sender: TObject); - переход по пунктам меню
procedure N32Click(Sender: TObject); - переход по пунктам меню
procedure N33Click(Sender: TObject); - переход по пунктам меню
procedure N34Click(Sender: TObject); - переход по пунктам меню
procedure N35Click(Sender: TObject); - переход по пунктам меню
procedure N36Click(Sender: TObject); - переход по пунктам меню
procedure N37Click(Sender: TObject); - переход по пунктам меню
procedure Button3Click(Sender: TObject);
Poisk:
procedure Button1Click(Sender: TObject); - поиск
procedure Button2Click(Sender: TObject);
Add_Avia: - добавление/редактирование
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
Add_Kyrort: добавление/редактирование
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
Add_Otel: добавление/редактирование
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
Add_Strana: добавление/редактирование
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
Add_Tyr: добавление/редактирование
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
Add_Eks: добавление/редактирование
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
Add_Gorod: добавление/редактирование
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
Unit 1 – модуль меню.
Unit 2 – модуль отвечающий за подключением таблиц.
Unit 3 – модуль отвечающий за отображением таблиц.
Unit 4 –модуль для поиска.
Unit 5 – Служит для добавления/изменения данных таблицы.
Unit 6 – Служит для добавления/изменения данных таблицы.
Unit 7 – Служит для добавления/изменения данных таблицы.
Unit 8 – Служит для добавления/изменения данных таблицы.
Unit 9 – Служит для добавления/изменения данных таблицы.
Unit 10 – Служит для добавления/изменения данных таблицы.
Unit 11 – Служит для добавления/изменения данных таблицы.
5 Методика испытаний
5.1 Тестовые примеры
Тестирование программы необходимо для выявления ошибок в программе, определения её недостатков, выявить которые не всегда легко. Для этого необходимо протестировать программу во всех возможных вариантах функционирования, даже в тех, которые не сможет пользователь.
При запуске программы появляется форма меню, которая отображается выбор таблиц:
Рисунок 6- Форма меню
После чего появляется главная форма, на которой пользователь должен просмотреть информацию.
Рисунок 7 - Отображение таблиц
Создание запросов. По нажатию на пункт меню откроются поля для работы с запросами
Рисунок 8 - Отображение меню
Рисунок 9 – Отображение поиска
Рисунок 10 - Поиск маршрута
В ходе тестирования данной программы основной целью являлось выполнение правильности действий: переход по формам, выбор решаемой функции, ввод данных. Данные, полученные входе тестирования соответствуют ожидаемым.
По результатам тестирования, данная программа работает исправно и согласно поставленной задаче.
5.3 Ошибки
На этапе разработки данного программного продукта возникали различные ошибки. Самые распространенные из них:
6.1 Назначение программы
Данная программа разработана для просмотра и работы с информацией о турах, поиска, добавление, изменение и удаление данных. Программа рассчитана на любого пользователя и не имеет никаких ограничений в эксплуатации.
6.2 Условия применения
Устройство, на котором будет установлена данная программа должна иметь устройство ввода информации, такой как клавиатура, также желательно чтобы был манипулятор «мышь».
Использование программы:
6.3 Справочная система
Справочная система была
разработана в программе
Справочная система имеет следующую структуру:
- содержание;
- описание базы данных;
- описание основных операций;
- краткое руководство;
Заключение
В данном курсовом проекте была разработана программа, которая позволяет изучить данные по турам, т.е. позволяет просмотреть данные о турах, добавить, изменить или удалить.
Интерфейс предоставляет всю необходимую информацию для работы с программой.
Для проектирования базы данных применялась программа Microsoft Access. БД была подключена к приложению с помощью компонентов «ADO» в среде программирования Delphi.
Данная программа в
последующем времени будет
СПИСОК ИСПОЛЬЗУЕМЫХ ИСТОЧНИКОВ
ПРИЛОЖЕНИЕ 1
unit Unit3;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.DBGrids, Vcl.Menus,
Vcl.StdCtrls, Vcl.DBCtrls, Vcl.ExtCtrls, jpeg, Data.DB, Data.Win.ADODB;
type
TMain_f = class(TForm)
DBGrid1: TDBGrid;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
DBMemo1: TDBMemo;
DBImage1: TDBImage;
N11: TMenuItem;
N12: TMenuItem;
RadioGroup1: TRadioGroup;
Button1: TButton;
Edit1: TEdit;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
N25: TMenuItem;
N26: TMenuItem;
N27: TMenuItem;
N28: TMenuItem;
N29: TMenuItem;
Button2: TButton;
N30: TMenuItem;
N31: TMenuItem;
N32: TMenuItem;
N33: TMenuItem;
N34: TMenuItem;
N35: TMenuItem;
N36: TMenuItem;
N37: TMenuItem;
DBMemo2: TDBMemo;
DBMemo3: TDBMemo;
DBMemo4: TDBMemo;
N38: TMenuItem;
Edit2: TEdit;
Label1: TLabel;
Button3: TButton;
Button4: TButton;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
DBGrid2: TDBGrid;
procedure N2Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure N17Click(Sender: TObject);