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

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

    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);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Main_f: TMain_f;

  strphoto,s:string;

 

implementation

 

{$R *.dfm}

 

uses Unit1, Unit2, Unit4, Unit5, Unit10, Unit11, Unit6, Unit7, Unit8, Unit9;

 

procedure TMain_f.Button1Click(Sender: TObject);

begin

case (Main_f.RadioGroup1.ItemIndex) of

0:Begin

  Main_f.DBGrid1.DataSource:=DM1.DSAvia;

  Main_f.DBGrid1.Width:=500;

  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.DBMemo1.DataSource:=DM1.DSAvia;

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

  Main_f.DBImage1.Visible:=false;

  DM1.QAvia.Active:=false;

  DM1.QAvia.SQL.Clear();

  DM1.QAvia.SQL.Add('select * from [Авиа]') ;

  DM1.QAvia.SQL.Add('where [№ рейса] like "%'+ Main_f.Edit1.Text +'%"');

  DM1.QAvia.Active:=true;

  end;

 

 

  1: 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;

  DM1.QGorod.Active:=false;

  DM1.QGorod.SQL.Clear();

  DM1.QGorod.SQL.Add('select * from [Города]') ;

  DM1.QGorod.SQL.Add('where [Город] like "%'+ Main_f.Edit1.Text +'%"');

  DM1.QGorod.Active:=true;

     end;

 

  2: 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.DBMemo1.Visible:=true;

Main_f.DBMemo1.DataSource:=DM1.DSKyrort;

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

Main_f.DBImage1.Visible:=true;

Main_f.DBImage1.DataSource:=DM1.DSKyrort;

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

  DM1.QKyrort.Active:=false;

  DM1.QKyrort.SQL.Clear();

  DM1.QKyrort.SQL.Add('select * from [Курорт]') ;

  DM1.QKyrort.SQL.Add('where [Название курорта] like "%'+ Main_f.Edit1.Text +'%"');

  DM1.QKyrort.Active:=true;

     end;

  3: 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:='Фото';

  DM1.QOtel.Active:=false;

  DM1.QOtel.SQL.Clear();

  DM1.QOtel.SQL.Add('select * from [Отели]') ;

  DM1.QOtel.SQL.Add('where [Название отеля] like "%'+ Main_f.Edit1.Text +'%"');

  DM1.QOtel.Active:=true;

     end;

  4: 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;

  DM1.QStrana.Active:=false;

  DM1.QStrana.SQL.Clear();

  DM1.QStrana.SQL.Add('select * from [Страны]') ;

  DM1.QStrana.SQL.Add('where [Страна] like "%'+ Main_f.Edit1.Text +'%"');

  DM1.QStrana.Active:=true;

     end;

  5: 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.DBMemo1.Visible:=true;

Main_f.DBMemo1.DataSource:=DM1.DSTyr;

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

Main_f.DBImage1.Visible:=true;

Main_f.DBImage1.DataSource:=DM1.DSTyr;

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

  DM1.QTyr.Active:=false;

  DM1.QTyr.SQL.Clear();

  DM1.QTyr.SQL.Add('select * from [Туры]') ;

  DM1.QTyr.SQL.Add('where [Вид отдыха] like "%'+ Main_f.Edit1.Text +'%"');

  DM1.QTyr.Active:=true;

     end;

  6: 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.DBMemo1.Visible:=true;

Main_f.DBMemo1.DataSource:=DM1.DSEks;

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

Main_f.DBImage1.Visible:=true;

Main_f.DBImage1.DataSource:=DM1.DSEks;

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

  DM1.QEks.Active:=false;

  DM1.QEks.SQL.Clear();

  DM1.QEks.SQL.Add('select * from [Экскурсии]') ;

  DM1.QEks.SQL.Add('where [Название экскурсии] like "%'+ Main_f.Edit1.Text +'%"');

  DM1.QEks.Active:=true;

     end;

 

  End;

 

 

end;

 

procedure TMain_f.Button2Click(Sender: TObject);

begin

 

Main_f.Button1.Visible:=false;

Main_f.RadioGroup1.Visible:=false;

Main_f.Edit1.Visible:=false;

end;

 

procedure TMain_f.Button3Click(Sender: TObject);

var s1:string;

begin

s:=Main_f.Edit2.Text;

Main_f.ADOQuery1.Active:=false;

Main_f.ADOQuery1.SQL.Clear();

Main_f.ADOQuery1.SQL.Add('select [Авиа].[№ рейса],[Страны].[Страна] from (select [Страны].[Страна] from [Авиа],[Страны]) where [Страны].[Страна]=[Авиа].[Страна]  ') ;

//Main_f.ADOQuery1.SQL.Add('select [Авиа].[№ рейса] from  [Авиа] where [Авиа].[Страна]like "%'+Main_f.Edit2.Text +'%"');

//Main_f.ADOQuery1.SQL.Add('select [Страны].[Страна] from  [Страны] where [Страны].[Страна] like "%'+Main_f.Edit2.Text +'%"');

//Main_f.ADOQuery1.SQL.Add(' ( select [Города].[Город] from [Страны] inner join [Города] on [Страны].[Страна]=[Города].[Страна])');

//Main_f.ADOQuery1.SQL.Add('  ');

{Main_f.ADOQuery1.SQL.Add('on [Страны].Страна=Курорт.Страна  inner join [Отели] ');

Main_f.ADOQuery1.SQL.Add('on [Страны].Страна=Отели.Страна inner join [Туры] ');

Main_f.ADOQuery1.SQL.Add(' on [Страны].Страна=Туры.Страна inner join [Экскурсии] on [Страны].Страна=Экскурсии.Страна') ;

}//Main_f.ADOQuery1.SQL.Add('where[Страны].[Страна] like "%'+Main_f.Edit2.Text +'%" ');

  //Main_f.ADOQuery1.SQL.Add('and [Авиа].[Страна]like "%'+Main_f.Edit2.Text +'%" ');

{Main_f.ADOQuery1.SQL.Add('and [Города].[Страна] like "%'+Main_f.Edit2.Text +'%" ');

Main_f.ADOQuery1.SQL.Add('and [Курорт].[Страна] like"%'+Main_f.Edit2.Text +'%" ');

Main_f.ADOQuery1.SQL.Add('and [Отели].[Страна] like "%'+Main_f.Edit2.Text +'%" ');

  Main_f.ADOQuery1.SQL.Add('and [Туры].[Страна] like "%'+Main_f.Edit2.Text +'%" ');

Main_f.ADOQuery1.SQL.Add('and [Экскурсии].[Страна] like "%'+Main_f.Edit2.Text +'%" ');}

Main_f.ADOQuery1.Active:=true;

end;

 

procedure TMain_f.N10Click(Sender: TObject);

begin

Menu_f.Close;

end;

 

procedure TMain_f.N12Click(Sender: TObject);

begin

Main_f.RadioGroup1.Visible:=true;

Main_f.Edit1.Visible:=true;

Main_f.Button1.Visible:=true;

Main_f.Button2.Visible:=true;

end;

 

procedure TMain_f.N13Click(Sender: TObject);

begin

Poisk.show;

Main_f.Hide;

end;

 

procedure TMain_f.N15Click(Sender: TObject);

begin

Main_f.DBGrid1.DataSource.DataSet.First;

DM1.QAvia.Insert;

Main_f.Hide;

Add_avia.Caption:='Добавить';

Add_avia.Show;

Add_avia.Button1.Visible:=true;

Add_avia.Button2.Visible:=false;

end;

 

procedure TMain_f.N16Click(Sender: TObject);

begin

Main_f.DBGrid1.DataSource.DataSet.First;

DM1.QGorod.Insert;

Main_f.Hide;

Add_gorod.Caption:='Добавить';

Add_gorod.Show;

Add_gorod.Button1.Visible:=true;

Add_gorod.Button2.Visible:=false;

end;

 

procedure TMain_f.N17Click(Sender: TObject);

begin

Main_f.DBGrid1.DataSource.DataSet.First;

DM1.QKyrort.Insert;

Main_f.Hide;

Add_Kyrort.Caption:='Добавить';

Add_Kyrort.Show;

Add_Kyrort.Button1.Visible:=true;

Add_Kyrort.Button2.Visible:=false;

end;

 

procedure TMain_f.N18Click(Sender: TObject);

begin

Main_f.DBGrid1.DataSource.DataSet.First;

DM1.QOtel.Insert;

Main_f.Hide;

Add_Otel.Caption:='Добавить';

Add_Otel.Show;

Add_Otel.Button1.Visible:=true;

Add_Otel.Button2.Visible:=false;

end;

 

procedure TMain_f.N19Click(Sender: TObject);

begin

Main_f.DBGrid1.DataSource.DataSet.First;

DM1.QStrana.Insert;

Main_f.Hide;

Add_Strana.Caption:='Добавить';

Add_Strana.Show;

Add_Strana.Button1.Visible:=true;

Add_Strana.Button2.Visible:=false;

end;

 

procedure TMain_f.N20Click(Sender: TObject);

begin

Main_f.DBGrid1.DataSource.DataSet.First;

DM1.QTyr.Insert;

Main_f.Hide;

Add_Tyr.Caption:='Добавить';

Add_Tyr.Show;

Add_Tyr.Button1.Visible:=true;

Add_Tyr.Button2.Visible:=false;

end;

 

procedure TMain_f.N21Click(Sender: TObject);

begin

Main_f.DBGrid1.DataSource.DataSet.First;

DM1.QEks.Insert;

Main_f.Hide;

Add_Eks.Caption:='Добавить';

Add_Eks.Show;

Add_Eks.Button1.Visible:=true;

Add_Eks.Button2.Visible:=false;

end;

 

procedure TMain_f.N23Click(Sender: TObject);

begin

Main_f.Hide;

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

Add_avia.Show;

 

Add_avia.Button2.Visible:=true;

Add_avia.Button1.Visible:=false;

end;

 

procedure TMain_f.N24Click(Sender: TObject);

begin

Main_f.Hide;

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

Add_gorod.Show;

Add_gorod.Button2.Visible:=true;

Add_gorod.Button1.Visible:=false;

 

 

end;

 

procedure TMain_f.N25Click(Sender: TObject);

begin

Main_f.Hide;

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

Add_Kyrort.Show;

Add_Kyrort.Button2.Visible:=true;

Add_Kyrort.Button1.Visible:=false;

 

end;

procedure TMain_f.N26Click(Sender: TObject);

begin

Main_f.Hide;

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

Add_Otel.Show;

Add_Otel.Button2.Visible:=true;

Add_Otel.Button1.Visible:=false;

 

end;

 

procedure TMain_f.N27Click(Sender: TObject);

begin

Main_f.Hide;

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

Add_Strana.Show;

 

Add_Strana.Button2.Visible:=true;

Add_Strana.Button1.Visible:=false;

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