Разработка информационно-поисковой системы «Телефонный справочник»

Ключ I — autoincrement (ключевое);

ФИО Покупатель — alpha (размер 50);

Адрес — alpha (размер 50);

Во второй соответственно:

Ключ 1 — autoincrement (ключевое);

Ключ 2 — Integer;

Дата заказанного товара — date;

Наименование заказанного товара — alpha (размер 20);

Количество заказанного товара — Integer.

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

Пусть таблицы называютсяmast.db иchild.db.

Имена полей должны быть написаны английскими буквами.

После создания второй таблицы необходимо сделать ключ 2 в ней индексным, чтобы можно было связать обе таблицы с помощью этого поля. Для этого нужно открыть таблицу child.db и из меню Table выбрать пункт Restructure. Теперь в появившемся окне необходимо вносить изменения, а именно добавлять дополнительный индекс.

В выпадающем списке Tableproperties следует выбрать пунктSecondaryIndexes (Дополнительные индексы) и нажать кнопку Define (Определить). Далее выбрать второй ключ и переместить его в список Indexedfields (Индексированны поля). Для этого надо нажать кнопку со стрелкой вправо. Можно использовать кнопку ОК. После этого появится окно запроса для имени индекса, в которое необходимо ввести любое правильно имя и нажать ОК. Затем сохранить таблицу.

Для создания псевдонима можно использовать утилиты BDE-administrator, либо SQl-monitor, в которых создаются псевдонимы (Alias) к разным директориям с таблицами. Эти псевдонимы сохраняются в реестре, и потом все программы при запуске смогут по этим псевдонимам найти директорию таблицы и прочитать необходимые настройки, которые надо использовать при доступе к данным. Чтобы создать новое имя, нужно из меню Object выбрать пункт New, после чего откроется окно, в котором поле Databasedrivername должно быть STAMDART. После нажатия на кнопку ОК создастся новый Alias (имя).

В правой половине окна щелчок по строке PATH открывает окно выбора директории. Следует выбрать ту, где находятся созданные таблицы, и нажать кнопку ОК. Для сохранения служит пункт меню Object/Apply.

Для создания приложения, работающего с БД необходимо создать новый проект и поместить на него из вкладки DataAccess два компонента DataSource и с вкладки BDE два компонента TTable палитры компонентов. Для первогоDataSource установитьсвойствоDataSet. В Tablel, а для второго в Table2. У компонентаTable изменить следующие свойства (желательно в такой последовательности):

DatabaseName — выставить Salesl (это Alias, созданный в SQL Explorer);

Active — выставить в true, чтобы активизировать таблицу.

То же самое необходимо сделать и с Table 2, только в TableName указатьchild.db. После этого из палитры компонентов DataControls поставить на форму два компонента DBGrid. В свойстве DataSource у одного из них выставитьDataSourcel, а у другого DataSource2. Для связи таблиц на уровне приложения для компонентаTable2 свойствоMasterSource выставляется равнымDataSourcel.

 

Описание программы

Выбор языка программирования

Для реализации решаемой задачи в курсовой работе необходимо осуществление следующих операций:

1. Добавлять и удалять в базу данных записи;
2. Изменять и обновлять записи;
3. Быстро осуществлять поиск нужных записей по критериям поиска;
4. Необходим контроль за правильностью ввода данных;
5. Работа с большим объёмом данных из разных таблиц и т.д.

Все эти операции должны осуществляться в удобной для пользователя форме и не вызывать затруднений при работе.

Существует несколько способов представления больших объёмов данных.Наиболее успешным является  база данных.

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

Delphi — это среда быстрой  разработки, в которой в качестве  языка

программирования используется язык Delphi. Язык Delphi — строго типизированный объектно-ориентированный язык, в основе которого лежит хорошо знакомый программистам ObjectPascal.

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

В настоящее время программистам стала доступна очередная версия

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

 

Требования к надёжности и хранению

• Процессор с тактовой частотой 1 ГГц или выше;
• ОС Microsoft® Windows® ХР с пакетом обновления 1 (Рекомендовано SP 2) или WindowsVista® HomePremium, Business, Ultimate или Enterprise с пакетом обновления 1 (сертифицированные для 32-разрядной ОС Windows ХР и 32- и 64-разрядной ОС WindowsVista);
• 32 МБ ОЗУ (Рекомендуется 128 МБ или более);
• 7,90 МБ (8 288 971 байт) свободного пространства на жестком диске; 

 

Описание программы

Первый модуль –главное окно программы.

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

Второй модуль – выбор тура.

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

Третий модуль – туры.

Окно,осуществляющее работу с поездками по миру.

Четвёртый модуль – добавление тура.

Окно, осуществляющее добавление туров в базу данных.

 

База данных состоит из 2 таблиц: tyr.db, sn.db.

Структура таблицы tyr.db имеет вид:

Рисунок 1. Структура таблицы tyr.db

Структура таблицы sn.db имеет вид:

Рисунок 2. Структура таблицы sn.db

 

Таблица «Туры» отображает все поездки.

Таблица «Занятые туры» отображает занятые поездки.

 

Тестирование программы

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

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

При тестировании программного продукта методом «чёрного ящика» рассматриваются системные характеристики программ. Основное место приложения тестов «чёрного ящика» – интерфейс программного обеспечения. Тесты метода «чёрного ящика» демонстрируют следующее:

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

Технология тестирования методом «чёрного ящика» ориентирована на решение следующей задачи: сокращение необходимого количества тестовых вариантов и выявление не однократной ошибки, а класса ошибок.

 

Руководство пользователя

Окно «Туристическое агентство» отображает всю информацию о агентстве «Пегас».

Рисунок 3. Главное окно программы

Окно «Туры» отображает все туры агентства.

Рисунок 4. Окно «туры»

 

Окно «добавление тура» отображает окно длядобавление нового тура.

Рисунок 5. Окно «добавление тура»

Окно «выбор тура» отображает окно, в котором осуществляется оформление тура на клиента.

Рисунок 7. Окно «улицы»

Заключение

Все задачи, поставленные перед началом работы, были успешно выполнены, программа отлажена и выполняет все требуемые действия и операции. Для её создания был найден теоретический материал и дополнительная информация, касательно темы данной работы – для правильного понимания потребностей пользователя и адаптации функций под него. Алгоритм данного проекта был составлен и реализован в среде Delphi 7, на языке ObjectPascal. Работа велась с учётом соблюдения максимальной простоты использования продукта будущим пользователем, для этого был максимально оптимизирован рабочий интерфейс, названия всех компонентов написаны на доступном для любого пользователя языке и не вызывают проблем в освоении и предварительной подготовки к работе.

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

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

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

 

Литература

1. Благодатских В.А. «Тестирование программного обеспечения». – М., Финансы и статистика, 1995.
2. Бобровский С. Д.  Delphi 7. Учебный курс – Питер, 2008.
3. Брябрин В.М. Программное обеспечение персональных ЭВМ. - М., Наука, 1992.
4. Гофман А.С. «Создание таблиц БД в Delphi». - М.: Финансы и статистика, 1988. - 320 с.
5. Гуров А.А. «Базы данных на Паскале». - М.: Машиностроение, 1990. - 386 с.
6. Грабер М. «Введение в базы данных». М.: "Лори", 1996 – 379с.
7. Гришин М. «Руководство баз данных».М.: Лори, 2001. - 168 с.
8. Кириллов В.В. «Основы проектирования реляционных баз данных».СП.:Санкт-Петербургский Государственный институт точной механики и оптики, 2004 - 200 с.
9. Кузнецов С.Д. «Основы современных баз данных». М.:Центр Информационных Технологий, 1998 - 155 с.
10. Кузнецов С.Д. «Введение в стандарты языка баз данных». М.:Центр Информационных Технологий, 1999 - 132 с.
11. Купик А.А. «Основы работы с базами данных. Методические указания для выполнения лабораторных работ». - Новосибирск: НГТУ, 1995.
12. Орлов М.А. Технология разработки программных продуктов. – М.,2001.
13. ОсловаЮ.М. Тестирование программного обеспечения. – М., Информатика, 1992.
14. Павлов А.А. «Справочник по базам данных». М.: Центр Информационных Технологий, 2005 - 453 с.
15. Пушников А.Ю. «Введение в системы управления базами данных». М.: Центр Информационных Технологий, 2000 - 1359 с.
16. Тиори Т. «Тестирование программного обеспечения». В 2 кн., – М.: Мир, 1985. Кн. 1. – 287 с.: Кн. 2. – 320 с.
17. Фленов М.Е. Библия Delphi. - СПб., БХВ-Петербург, 2004.
18. Фленов М.Е. Программирование в Delphi глазами хакера.- СПб БХВ-Петербург, 2005.
19. ХомоненкоА.Работа с базами данных в Delphi 3-е издание. – СПб., БХВ-Петербург, 2005.
20. Шупрута В.В. Delphi 2006 На примерах. - СПб БХВ-Петербург, 2006.
21. http://www.delphi-master.ru/
22. http://www.delphi-ex.ru/
23. http://www.sql.ru/
24. http://www.sql-ex.ru/
25. http://borland-delphi.ru/database/

 

Приложения

Приложение – 1

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

1. Модуль «main.pas» модуль главного окна программы.

procedure TForm1.N5Click(Sender: TObject);begin Form3.show; end;

procedure TForm1.N3Click(Sender: TObject); begin Form2.showmodal; end;

procedure TForm1.N7Click(Sender: TObject); begin Form1.Close; end;

procedure TForm1.N8Click(Sender: TObject); begin

RvProject1.ProjectFile:=GeTCurrentDir+'\rev.rav';;  RvProject1.Execute; end;

procedure TForm1.FormActivate(Sender: TObject); begin  with DBGrid1 do   begin

Columns[0].Visible:=false; Columns[10].Visible:=false;

Columns[1].Title.Caption:='Страна'; Columns[2].Title.Caption:='Город';

Columns[3].Title.Caption:='Курорт'; Columns[4].Title.Caption:='Срокотдыха';

Columns[5].Title.Caption:='Кол-вочеловек'; Columns[6].Title.Caption:='Цена';

Columns[7].Title.Caption:='Кол-вомест';

Columns[8].Title.Caption:='Местоотправления';

Columns[9].Title.Caption:='Датаотправления'; end; with DBGrid2 do  begin

Columns[0].Visible:=false; Columns[12].Visible:=false;

Columns[1].Title.Caption:='Ф.И.О. клиента';

Columns[2].Title.Caption:='Контактыклиента';

Columns[3].Title.Caption:='Страна'; Columns[4].Title.Caption:='Город';

Columns[5].Title.Caption:='Курорт'; Columns[6].Title.Caption:='Срокотдыха';

Columns[7].Title.Caption:='Кол-вочеловек'; Columns[8].Title.Caption:='Цена';

Columns[9].Title.Caption:='Кол-вомест';

Columns[10].Title.Caption:='Местоотправления';

Columns[11].Title.Caption:='Датаотправления';  end; end;

procedure TForm1.Button1Click(Sender: TObject); begin Form4.showmodal; end;

procedure TForm1.DBGrid1DblClick(Sender: TObject); begin Form4.showmodal; end;

procedure TForm1.Button2Click(Sender: TObject); begin with Table1 do begin

Insert; Form1.DBMemo1.Text:=Form1.DBMemo2.Text;

FieldByName('Counry').AsString:=Form1.Table2.FieldByName('Counry').AsString;

FieldByName('City').AsString:=Form1.Table2.FieldByName('City').AsString;

FieldByName('Nazvanie_kurorta').AsString:=Form1.Table2.FieldByName('Nazvanie_kurorta').AsString; FieldByName('Srok').AsString:=Form1.Table2.FieldByName('Srok').AsString;

FieldByName('Kol_vo_Shelovek').AsInteger:=Form1.Table2.FieldByName('Kol_vo_Shelovek').AsInteger;FieldByName('Cena').AsString:=Form1.Table2.FieldByName('Cena').AsString; FieldByName('Kol_vo').AsInteger:=Form1.Table2.FieldByName('Kol_vo').AsInteger;

FieldByName('Gorod_vileta').AsString:=Form1.Table2.FieldByName('Gorod_vileta').AsString;

FieldByName('Data_Vileta').AsString:=Form1.Table2.FieldByName('Data_Vileta').AsString; Post;  end

ifMessageDlg ('Удалитьзапись?',mtConfirmation,[mbYes,mbNo],0)=mrYes then

begin Form1.Table2.Delete;  end; Form1.Table1.First; end; end.

 

2. Модуль «tyr.pas» используется работой таблицы туров.

procedure TForm2.Edit1Change(Sender: TObject); begin

with Query1 do begin Active:=false;

SQL.Text:='Select * from tyr Where Counry Like "%'+Edit1.Text+'%"'; Active:=true;

end;  if Edit1.Text='' then begin with Query1 do   begin Active:=false;

SQL.Text:='Select * from tyr' Active:=true;  end;  end;  with DBGrid1 do   begin