Ирина Эланс

Автор который поможет с любыми образовательными и учебными заданиями

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

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

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

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

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

РГЗ

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

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

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

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

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

Бишкек-2011 г.

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

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

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

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

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

Название поля	Тип поля	Описания
Код сотрудника	Числовой	Числовое поле является уникальным ключом, который нужен для связей
Фамилия	Текстовой	Текстовое поле в котором будут написаны фамилии сотрудников тур фирмы
Имя	Текстовой	Текстовое поле в котором будут написаны имя сотрудников тур фирмы
Отчество	Текстовой	Текстовое поле в котором будут написаны отчество сотрудников тур фирмы
Дата рождения	Дата/время	Поле написана в формате дата и время
Адрес	Текстовой	Текстовое поле в котором будут написаны адреса сотрудников тур фирмы
Телефон	Текстовой	Текстовое поле в котором будут написаны телефон сотрудников тур фирмы, введено маска ввода
Фото	Поле объекта OLE	Поле предназначена для отображении графических форматов

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

Название поля	Тип поля	Описания
Код заказа	Числовой	Числовое поле является уникальным для каждого заказа, который нужен для связей
Тур	Текстовой	Текстовое поле в котором написаны названия туров
Сотрудник	Текстовой	Текстовое поле в котором написаны фамилии сотрудников получившие заказ туров
Дата заказа	Текстовой	Поле в формате дата время, написаны дата получения заказа

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

Название поля	Тип поля	Описания
Код тура	Числовой	Числовое поле является уникальным для каждого тура, который нужен для связей
Название тур	Текстовой	Текстовое поле в котором написаны названия туров
Цена	Денежный	Денежное поле в котором написаны цены туров

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

Рис. 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;

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;

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;

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;

end;

procedure TForm3.Button6Click(Sender: TObject);

begin

Form11.Show;

end;

procedure TForm3.ADOTable1CalcFields(DataSet: TDataSet);

begin

adotable1Nalog.Value:=AdoTable1.FieldByName('Цена').Value*0.2;

end;

На форме «Продажа» также есть данные о продаже туров, где можно осуществить такие же процессы как и в предыдущих формах, также программы записанные в нем

Рис. 7 Форма «Продажа»

procedure TForm6.Button1Click(Sender: TObject);

begin

Form6.Close;

end;

procedure TForm6.Button2Click(Sender: TObject);

begin

case RadioGroup1.ItemIndex of

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

1:AdoTable1.IndexFieldNames:='ДатаПродажи';

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

3:AdoTable1.IndexFieldNames:='';