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

ЛИЧНЫЙ КАБИНЕТ 

 

Здравствуйте гость!

 

Логин:

Пароль:

 

Запомнить

 

 

Забыли пароль? Регистрация

Повышение уникальности

Предлагаем нашим посетителям воспользоваться бесплатным программным обеспечением «StudentHelp», которое позволит вам всего за несколько минут, выполнить повышение уникальности любого файла в формате MS Word. После такого повышения уникальности, ваша работа легко пройдете проверку в системах антиплагиат вуз, antiplagiat.ru, etxt.ru или advego.ru. Программа «StudentHelp» работает по уникальной технологии и при повышении уникальности не вставляет в текст скрытых символов, и даже если препод скопирует текст в блокнот – не увидит ни каких отличий от текста в Word файле.

Результат поиска


Наименование:


курсовая работа База данных тур фирма Мечта

Информация:

Тип работы: курсовая работа. Добавлен: 18.09.2012. Сдан: 2011. Страниц: 4. Уникальность по antiplagiat.ru: < 30%

Описание (план):


Кыргызский  государственный  университет
строительства, транспорта и архитектуры 
им. Н. Исанова 

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

     РГЗ 

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

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

Выполнил: ст. гр. ПИГ 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;
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;
end; 

procedure TForm3.Button6Click(Sender: TObject);
begin
Form11.Show;
end; 

procedure TForm3.ADOTable1CalcFields(DataSet: TDataSet);
begin
adotable1Nalog.Value:=AdoTable1.FieldByName('Цена').Value*0.2;
end;
     На  форме «Продажа» также есть данные о продаже туров, где можно осуществить такие же процессы как и в предыдущих формах, также программы записанные в нем
и т.д.................


Перейти к полному тексту работы


Скачать работу с онлайн повышением уникальности до 90% по antiplagiat.ru, etxt.ru или advego.ru


Смотреть полный текст работы бесплатно


Смотреть похожие работы


* Примечание. Уникальность работы указана на дату публикации, текущее значение может отличаться от указанного.