Разработка базы данных «Турист»

Автор работы: Пользователь скрыл имя, 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

Скачать архив (303.14 Кб) Сколько стоит заказать работу?
Файлы: 1 файл

пз_бд.docx

— 327.81 Кб (Скачать файл)

end;

 

procedure TMain_f.N28Click(Sender: TObject);

begin

Main_f.Hide;

Add_Tyr.Caption:='Изменить';

Add_Tyr.Show;

Add_Tyr.Button2.Visible:=true;

Add_Tyr.Button1.Visible:=false;

end;

 

procedure TMain_f.N29Click(Sender: TObject);

begin

Main_f.Hide;

Add_Eks.Caption:='Изменить';

Add_Eks.Show;

Add_Eks.Button2.Visible:=true;

Add_Eks.Button1.Visible:=false;

end;

 

procedure TMain_f.N2Click(Sender: TObject);

begin

Main_f.Hide;

Menu_f.Show;

end;

 

procedure TMain_f.N31Click(Sender: TObject);

begin

if Application.MessageBox(PChar('Вы действительно хотите удалить запись? '

),'Внимание!',MB_OKCANCEL)=id_OK then

Dm1.QAvia.delete;

dbgrid1.DataSource.DataSet.First;

end;

 

procedure TMain_f.N32Click(Sender: TObject);

begin

if Application.MessageBox(PChar('Вы действительно хотите удалить запись? '

),'Внимание!',MB_OKCANCEL)=id_OK then

Dm1.QGorod.delete;

Main_f.dbgrid1.DataSource.DataSet.First;

end;

 

procedure TMain_f.N33Click(Sender: TObject);

begin

if Application.MessageBox(PChar('Вы действительно хотите удалить запись? '

),'Внимание!',MB_OKCANCEL)=id_OK then

Dm1.QKyrort.delete;

Main_f.dbgrid1.DataSource.DataSet.First;

end;

 

procedure TMain_f.N34Click(Sender: TObject);

begin

if Application.MessageBox(PChar('Вы действительно хотите удалить запись? '

),'Внимание!',MB_OKCANCEL)=id_OK then

Dm1.QOtel.delete;

Main_f.dbgrid1.DataSource.DataSet.First;

end;

 

procedure TMain_f.N35Click(Sender: TObject);

begin

if Application.MessageBox(PChar('Вы действительно хотите удалить запись? '

),'Внимание!',MB_OKCANCEL)=id_OK then

Dm1.QStrana.delete;

Main_f.dbgrid1.DataSource.DataSet.First;

end;

 

procedure TMain_f.N36Click(Sender: TObject);

begin

if Application.MessageBox(PChar('Вы действительно хотите удалить запись? '

),'Внимание!',MB_OKCANCEL)=id_OK then

Dm1.QTyr.delete;

Main_f.dbgrid1.DataSource.DataSet.First;

end;

 

procedure TMain_f.N37Click(Sender: TObject);

begin

if Application.MessageBox(PChar('Вы действительно хотите удалить запись? '

),'Внимание!',MB_OKCANCEL)=id_OK then

Dm1.QEks.delete;

Main_f.dbgrid1.DataSource.DataSet.First;

end;

 

procedure TMain_f.N3Click(Sender: TObject);

begin

Main_f.DBGrid1.DataSource:=DM1.DSAvia;

Main_f.DBGrid1.Width:=600;

Main_f.DBGrid1.Columns[0].Width:=100;

Main_f.DBGrid1.Columns[1].Visible:=false;

 

Main_f.DBGrid1.Columns[2].Width:=100;

Main_f.DBGrid1.Columns[3].Width:=100;

Main_f.DBGrid1.Columns[4].Width:=100;

Main_f.DBGrid1.Columns[5].Width:=100;

Main_f.DBMemo1.Visible:=true;

Main_f.DBMemo4.Visible:=false;

Main_f.DBMemo2.Visible:=false;

Main_f.DBMemo3.Visible:=false;

Main_f.DBMemo1.DataSource:=DM1.DSAvia;

Main_f.DBMemo1.DataField:='Правила перевозки багажа';

Main_f.DBImage1.Visible:=false;

 

end;

 

procedure TMain_f.N4Click(Sender: TObject);

begin

Main_f.DBGrid1.DataSource:=DM1.DSGorod;

Main_f.DBGrid1.Width:=300;

Main_f.DBGrid1.Columns[0].Width:=100;

Main_f.DBGrid1.Columns[1].Width:=100;

Main_f.DBGrid1.Columns[2].Width:=100;

Main_f.DBMemo1.Visible:=false;

Main_f.DBImage1.Visible:=false;

 

 

end;

 

procedure TMain_f.N5Click(Sender: TObject);

begin

Main_f.DBGrid1.DataSource:=DM1.DSKyrort;

Main_f.DBGrid1.Width:=500;

Main_f.DBGrid1.Columns[0].Width:=100;

Main_f.DBGrid1.Columns[1].Width:=100;

Main_f.DBGrid1.Columns[2].Width:=100;

Main_f.DBGrid1.Columns[3].Width:=100;

Main_f.DBGrid1.Columns[4].Visible:=false;

Main_f.DBGrid1.Columns[5].Visible:=false;

Main_f.DBGrid1.Columns[6].Width:=100;

Main_f.DBMemo2.Visible:=true;

Main_f.DBMemo1.Visible:=false;

Main_f.DBMemo4.Visible:=false;

Main_f.DBMemo3.Visible:=false;

Main_f.DBMemo2.DataSource:=DM1.DSKyrort;

Main_f.DBMemo2.DataField:='Описание';

Main_f.DBImage1.Visible:=true;

Main_f.DBImage1.DataSource:=DM1.DSKyrort;

Main_f.DBImage1.DataField:='Фото';

 

 

end;

 

procedure TMain_f.N6Click(Sender: TObject);

begin

Main_f.DBGrid1.DataSource:=DM1.DSOtel;

Main_f.DBGrid1.Width:=700;

Main_f.DBGrid1.Columns[0].Width:=100;

Main_f.DBGrid1.Columns[1].Width:=100;

Main_f.DBGrid1.Columns[2].Width:=100;

Main_f.DBGrid1.Columns[3].Width:=100;

Main_f.DBGrid1.Columns[4].Width:=100;

Main_f.DBGrid1.Columns[5].Width:=100;

Main_f.DBGrid1.Columns[6].Width:=100;

Main_f.DBGrid1.Columns[7].Visible:=false;

Main_f.DBMemo1.Visible:=false;

Main_f.DBImage1.Visible:=true;

Main_f.DBImage1.DataSource:=DM1.DSOtel;

Main_f.DBImage1.DataField:='Фото';

 

 

end;

 

procedure TMain_f.N7Click(Sender: TObject);

begin

Main_f.DBGrid1.DataSource:=DM1.DSStrana;

Main_f.DBGrid1.Width:=600;

Main_f.DBGrid1.Columns[0].Width:=100;

Main_f.DBGrid1.Columns[1].Width:=100;

Main_f.DBGrid1.Columns[2].Width:=100;

Main_f.DBGrid1.Columns[3].Width:=100;

Main_f.DBGrid1.Columns[4].Width:=100;

Main_f.DBGrid1.Columns[5].Width:=100;

Main_f.DBMemo1.Visible:=false;

Main_f.DBImage1.Visible:=false;

 

end;

 

procedure TMain_f.N8Click(Sender: TObject);

begin

Main_f.DBGrid1.DataSource:=DM1.DSTyr;

Main_f.DBGrid1.Width:=500;

Main_f.DBGrid1.Columns[0].Width:=100;

Main_f.DBGrid1.Columns[1].Width:=100;

Main_f.DBGrid1.Columns[2].Width:=100;

Main_f.DBGrid1.Columns[3].Width:=100;

Main_f.DBGrid1.Columns[4].Visible:=false;

Main_f.DBGrid1.Columns[5].Width:=100;

Main_f.DBGrid1.Columns[6].Visible:=false;

Main_f.DBMemo3.Visible:=true;

Main_f.DBMemo1.Visible:=false;

Main_f.DBMemo2.Visible:=false;

Main_f.DBMemo4.Visible:=false;

Main_f.DBMemo3.DataSource:=DM1.DSTyr;

 

Main_f.DBMemo3.DataField:='Памятка туристу';

Main_f.DBImage1.Visible:=true;

Main_f.DBImage1.DataSource:=DM1.DSTyr;

Main_f.DBImage1.DataField:='Фото';

 

 

 

end;

 

procedure TMain_f.N9Click(Sender: TObject);

begin

Main_f.DBGrid1.DataSource:=DM1.DSEks;

Main_f.DBGrid1.Width:=500;

Main_f.DBGrid1.Columns[0].Width:=100;

Main_f.DBGrid1.Columns[1].Width:=100;

Main_f.DBGrid1.Columns[2].Visible:=false;

Main_f.DBGrid1.Columns[3].Width:=100;

Main_f.DBGrid1.Columns[4].Visible:=false;

Main_f.DBGrid1.Columns[5].Width:=100;

Main_f.DBGrid1.Columns[6].Width:=100;

Main_f.DBMemo4.Visible:=true;

Main_f.DBMemo1.Visible:=false;

Main_f.DBMemo2.Visible:=false;

Main_f.DBMemo3.Visible:=false;

 

Main_f.DBMemo4.DataSource:=DM1.DSEks;

Main_f.DBMemo4.DataField:='Описание';

Main_f.DBImage1.Visible:=true;

Main_f.DBImage1.DataSource:=DM1.DSEks;

Main_f.DBImage1.DataField:='Фото';

 

end;

 

end

 




Информация о работе Разработка базы данных «Турист»