База данных тур фирма “Мечта”

Кыргызский  государственный  университет

строительства, транспорта и архитектуры 

им. Н. Исанова 

Кафедра: “Прикладная информатика” 
 
 
 
 
 

     РГЗ 

по дисциплине “Объектно-ориентированные языки” 

На тему: База данных тур фирма “Мечта” 
 

Выполнил: ст. гр. ПИГ 1-07

Касымбекова З.

Проверила: Рублева Т.Н. 
 
 
 

Бишкек-2011 г. 

Структура таблиц 

      База  данных тур фирма «Мечта» состоит  из 6 таблиц:

«Сотрудники», «График  работы», «День недели», «Заказы», «Продажа», «Каталог туров»

      Представляем  вам структуру нескольких таблиц. 

       Таблица «Сотрудники»

 

      

                               Таблица «Заказы»

 

                             Таблица «Каталог туров»

 
 
 
 
 
 
 
 
 

Связи между таблицами

  Рис. 1 Связи между таблицами 

База  данных тур фирма  «Мечта»

     При создании базы данных турфирма «Мечта»  на универсальном языке программирования Delphi были использованы ADO технологии. Ниже вы увидите главную кнопочную форму, при нажатии кнопок или вкладок в меню вы можете увидеть соответствующие формы, которая была создана и такими компонентами как: TMainMenu,  TButton, TLable, TImage

Рис. 2 Главная кнопочная форма 

В главной форме  были использованы следующие коды программ:

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.Show;

end; 

procedure TForm1.Button2Click(Sender: TObject);

begin

Form3.Show;

end; 

procedure TForm1.Button3Click(Sender: TObject);

begin

Form4.Show;

end; 

procedure TForm1.Button4Click(Sender: TObject);

begin

Form5.Show;

end; 

procedure TForm1.Button5Click(Sender: TObject);

begin

Form6.Show;

end; 

procedure TForm1.N1Click(Sender: TObject);

begin

Form2.Show;

end; 

procedure TForm1.N2Click(Sender: TObject);

begin

Form3.Show;

end; 

procedure TForm1.N4Click(Sender: TObject);

begin

Form5.Show;

end; 

procedure TForm1.N3Click(Sender: TObject);

begin

Form4.Show;

end; 

procedure TForm1.N5Click(Sender: TObject);

begin

Form6.Show;

end; 

procedure TForm1.Button6Click(Sender: TObject);

begin

Form1.Close;

end; 

procedure TForm1.Label2Click(Sender: TObject);

begin

Form9.Show;

end; 

procedure TForm1.Label3Click(Sender: TObject);

begin

form10.Show;

end; 

Итак, нажимаем на кнопку «Сотрудники» и попадаем в соответствующую форму. Где  есть нужная информация о сотрудниках. Здесь можно сделать сортировку, загрузить и сохранить фото и  сделать поиск по фамилии сотрудника. Здесь использовались такие компоненты как: TButton, TLabel, TImage, TADOconnection, TDataSoure, ADOTable, TDBGrid,TDBImage, TOPenPictureDialog, TRadioGroup, TEdit.  

                              Рис. 3 Форма «Сотрудники» 
 
 
 

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

procedure TForm2.Button1Click(Sender: TObject);

begin

Form2.Close;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

case RadioGroup1.ItemIndex of

0:AdoTable1.IndexFieldNames:='Фамилия';

1:AdoTable1.IndexFieldNames:='ДатаРождения';

2:AdoTable1.IndexFieldNames:='';

end;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

AdoTable2.Filtered:=false;

AdoTable2.Filter:='Фамилия='''+edit1.text+'''';

AdoTable2.Filtered:=true;

Form2.DBGrid2.Visible:=true;

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

Form2.DBGrid2.Visible:=false;

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

adotable1.Edit;

if OpenPictureDialog1.Execute then

DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

end;

procedure TForm2.Button6Click(Sender: TObject);

begin

adotable1.Edit;

adotable1.FieldByName('Фото').Assign(dbimage1.Picture);

adotable1.Post;

end; 

      Переходим к следующей форме, к «Заказам»  в которой все достоверные  информации о заказах тур билетов  также можем сделать сортировку как нам удобно.

рис. 4 Форма «Заказы» 

      Программа для сортировки заказов выглядит так:

procedure TForm4.Button1Click(Sender: TObject);

begin

Form4.Close;

end; 

procedure TForm4.Button2Click(Sender: TObject);

begin

case RadioGroup1.ItemIndex of

0:AdoTable1.IndexFieldNames:='Тур';

1:AdoTable1.IndexFieldNames:='Сотрудник';

2:AdoTable1.IndexFieldNames:='ДатаЗаказа';

3:AdoTable1.IndexFieldNames:='';

end;

end; 

procedure TForm4.Button3Click(Sender: TObject);

begin

form7.Show;

end;    

На форме «Каталог туров» также имеются информации о турах, где можно сделать сортировку и поиск по названию туров. 

Рис. 5 Форма «Каталог туров» при выполнении поиска туров 

     А также можно сделать запрос  на туры.

Рис. 6 Форма «Каталог туров» при выполнении запроса

Программы на запросы  и поиски записаны так:

procedure TForm3.Button1Click(Sender: TObject);

begin

Form3.Close;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

case RadioGroup1.ItemIndex of

0:AdoTable1.IndexFieldNames:='Наименование';

1:AdoTable1.IndexFieldNames:='Цена';

2:AdoTable1.IndexFieldNames:='';

end;

end; 

procedure TForm3.Button3Click(Sender: TObject);

var s,k:string;

begin

dbgrid2.DataSource:=datasource2;

k:=inputbox('Поиск','введите  название тура',S);

if not adotable2.Locate('Наименование',K,[]) then  begin

showmessage(' нет такого  тура');

end else

Form3.DBGrid2.Visible:=true;

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

Form3.DBGrid2.Visible:=false;

end;

procedure TForm3.Button4Click(Sender: TObject);

begin

Dbgrid2.Visible:=true;

dbgrid2.DataSource:=datasource3;

AdoQuery1.Close;

AdoQuery1.SQL.Clear;

AdoQuery1.SQL.Add('Select КодТура,Наименование,Цена from Туры where Наименование='''+edit1.text+'''');

AdoQuery1.open;

end; 

procedure TForm3.Button5Click(Sender: TObject);

begin

QuickReport8.Preview;