Главная страница
Медицина
Финансы
Экономика
Биология
Ветеринария
Сельское хозяйство
Юриспруденция
Право
Языкознание
Языки
Логика
Философия
Религия
Этика
Политология
Социология
История
Информатика
Вычислительная техника
Физика
Математика
Промышленность
Энергетика
Искусство
Культура
Химия
Электротехника
Связь
Автоматика
Геология
Экология
Начальные классы
Строительство
образование
Механика
Воспитательная работа
Русский язык и литература
Дошкольное образование
Реферат
Урок
Отчет
Программа
Закон
Курсовая
Задача
Занятие
Решение
Лекция
Протокол

Курсовой проект. Ивонинская Пояснительная записка. Пояснительная записка 09. 02. 05. Кппм04. 011Пз студентка группы ип41 М. С. Ивонинская Руководитель проекта Э. Г. Сандова Содержание


Скачать 1.71 Mb.
НазваниеПояснительная записка 09. 02. 05. Кппм04. 011Пз студентка группы ип41 М. С. Ивонинская Руководитель проекта Э. Г. Сандова Содержание
АнкорКурсовой проект
Дата01.07.2022
Размер1.71 Mb.
Формат файлаdoc
Имя файлаИвонинская Пояснительная записка.doc
ТипПояснительная записка
#621786
страница5 из 6
1   2   3   4   5   6

Руководство оператора



Работа с программой начинается с вывода на экран окна авторизации (рисунок 2), которое позволяет произвести вход в режиме клиента или администратора.



Рисунок 2 - Форма авторизации

Неавторизованный пользователь может просмотреть информацию о турах и доступных путёвках и осуществить поиск по стране (рисунок 3). Выбрав соответствующие данные, переходим на регистрацию клиентов, представленную на рисунке 4 с помощью кнопки «Далее».


Рисунок 3 - Окно режима клиента


Рисунок 4 – Регистрация клиента
После выбранных данных клиентом нажимаем кнопку «Получить чек». С этим чеком необходимо подойти к администратору туристического агентства для оплаты путёвки (рисунок 5)

Рисунок 5 – Чек о путёвке

Для входа в режим администратора необходимо ввести логин и пароль и нажать кнопку «Войти» (рисунок 6).



Рисунок 6 – Режим администратора

Если вход выполнен под должностью Администратора, откроется форма, представленная на рисунке 7. Администратор имеет возможность добавлять и удалять клиентов, страны, города, отели, и доступные путёвки и просматривать историю поездок и статистику информационной системы, переключаясь по соответствующим вкладкам окна. Для добавления новых записей необходимо нажать кнопку «Добавить» и ввести в соответствующие поля соответствующую информацию. Для удаления, необходимо выбрать нужную запись и нажать кнопку «Удалить». Для создания путёвки , необходимо нажать кнопку «Создать путёвку» и ввести в соответствующие поля нужную информацию. Для выхода из программы можно воспользоваться командой "Выход" в списке команд Меню.



Рисунок 7 – Окно работы администратора

На вкладке «Зарегистрированные клиенты», можно просмотреть паспортные данные клиента, и заказанный им тур, представленные на рисунке 8. Администратор имеет возможность найти клиента по фамилии и подтвердить его оплату (рисунок 9). Для удаления клиента, необходимо выбрать нужную запись и нажать кнопку «Удалить». Для выхода из программы можно воспользоваться командой "Выход" в списке команд Меню.


Рисунок 8 – Вкладка «Зарегистрированные клиенты»
Рисунок 9 – Чек об оплате заказа

На вкладке «История поездок», можно просмотреть паспортные данные клиента, и заказанный им тур, представленные на рисунке 10. После оплаты клиент и все данные, связанные с ним переместятся во вкладку «История поездок». Администратор имеет возможность найти клиента по фамилии и вывести повторный чек об оплате заказа (рисунок 9). Для удаления клиента, необходимо выбрать нужную запись и нажать кнопку «Удалить». Для выхода из программы можно воспользоваться командой "Выход" в списке команд Меню.



Рисунок 10 – Вкладка «История поездок»

На вкладке «Статистика туристов», можно просмотреть статистику по стоимости туров и актуальных стран, представленные на рисунке 11. Для выхода из программы можно воспользоваться командой "Выход" в списке команд Меню.


Рисунок 11 – Вкладка «Статистика туристов»



5.2 Основные функции программы



5.2.1 Функция авторизации

procedure TForm1.Button1Click(Sender: TObject);

begin

Form9.Show;

Form1.Hide;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form3.Show;

Form1.Hide;

end;
//вход в режим клиента
procedure TForm9.Edit1Change(Sender: TObject);

begin

if Length(Form9.Edit1.Text) > 0 then

begin

DataModule2.ADOTable1.Filtered:=false;

DataModule2.ADOTable1.Filter:= 'Страна LIKE ' + #39 + Edit1.Text + '%' + #39;

DataModule2.ADOTable1.Filtered:=true;

end

else DataModule2.ADOTable1.Filtered:=false;

end;

procedure TForm9.Button1Click(Sender: TObject);

begin

form13.show;

form9.Hide;

end;

procedure TForm9.Button2Click(Sender: TObject);

begin

form1.show;

form9.Hide;

end;
//вход под должностью Администратора

procedure TForm3.Button2Click(Sender: TObject);

begin

Form1.Show;

Form3.Hide;

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

if ((form3.DBLookupComboBox1.Text=' ') or (form3.Edit1.text=' ')) then

begin

ShowMessage('Выберите пользователя и введите пароль');

end

//_____________

else begin

if DataModule2.ADOTable5.FieldByName('Пароль').AsString <>Edit1.Text then

begin

ShowMessage('Неверный пароль');

end

//___________

else begin

if DataModule2.ADOTable5.FieldByName('Пароль').AsString =Edit1.Text then

Form4.Show;

Form3.Hide;

end;

end;

end;

end.
5.2.2 Функция регистрации клиента

procedure TForm13.Button1Click(Sender: TObject);

begin

if

((Edit1.Text='')or(Edit2.Text='')or(Edit3.Text='')or(Edit4.Text='')or(Edit5.Text='')

or(Edit6.Text='')or(Edit7.Text='')or(Edit8.Text='')) then

begin

ShowMessage('Вы заполнили не все поля! Заполните все поля!');

end

else

begin

DataModule2.ADOTable12.Insert;

DataModule2.ADOTable12.FieldByName('Фамилия').AsString:=form13.Edit1.Text;

DataModule2.ADOTable12.FieldByName('Имя').AsString:=form13.Edit2.Text;

DataModule2.ADOTable12.FieldByName('Отчество').AsString:=form13.Edit3.Text;

DataModule2.ADOTable12.FieldByName('МобильныйТелефон').AsString:=form13.Edit4.Text;

DataModule2.ADOTable12.Post;
DataModule2.ADOTable13.Insert;

DataModule2.ADOTable13.FieldByName('Серия паспорта').AsString:=form13.Edit5.Text;

DataModule2.ADOTable13.FieldByName('Номер паспорта').AsString:=form13.Edit6.Text;

DataModule2.ADOTable13.FieldByName('Дата рождения').AsDateTime:=StrToDate(DateToStr(form13.DateTimePicker2.Date));

DataModule2.ADOTable13.FieldByName('Кем_выдан').AsString:=form13.Edit7.Text;

DataModule2.ADOTable13.FieldByName('Прописка').AsString:=form13.Edit8.Text;

DataModule2.ADOTable13.FieldByName('Дата_выдачи').AsDateTime:=StrToDate(DateToStr(form13.DateTimePicker1.Date));

DataModule2.ADOTable13.FieldByName('Номер_визы').AsString:=form13.Edit9.Text;

DataModule2.ADOTable13.FieldByName('Кратность_Визы').AsString:=form13.ComboBox1.Text;

DataModule2.ADOTable13.Post;
DataModule2.ADOTable14.Insert;

DataModule2.ADOTable14.FieldByName('Длительность отдыха').Value:=DataModule2.ADOTable9.FieldByName('Длительность отдыха').Value;

DataModule2.ADOTable14.FieldByName('Дата отправки').Value:=DataModule2.ADOTable9.FieldByName('Дата отправки').Value;

DataModule2.ADOTable14.Post;
DataModule2.ADOTable15.Insert;

DataModule2.ADOTable15.FieldByName('Название тура').Value:=DataModule2.ADOTable4.FieldByName('Название тура').Value;

DataModule2.ADOTable15.FieldByName('Питание').Value:=DataModule2.ADOTable4.FieldByName('Питание').Value;

DataModule2.ADOTable15.FieldByName('Цена').Value:=DataModule2.ADOTable4.FieldByName('Цена').Value;

DataModule2.ADOTable15.Post;
DataModule2.ADOTable16.Insert;

DataModule2.ADOTable16.FieldByName('Город').Value:=DataModule2.ADOTable2.FieldByName('Город').Value;

DataModule2.ADOTable16.Post;
DataModule2.ADOTable17.Insert;

DataModule2.ADOTable17.FieldByName('Страна').Value:=DataModule2.ADOTable1.FieldByName('Страна').Value;

DataModule2.ADOTable17.Post;
DataModule2.ADOTable18.Insert;

DataModule2.ADOTable18.FieldByName('Название').Value:=DataModule2.ADOTable3.FieldByName('Название').Value;

DataModule2.ADOTable18.FieldByName('Класс').Value:=DataModule2.ADOTable3.FieldByName('Класс').Value;

DataModule2.ADOTable18.Post;
Form4.Button19.Click;

form13.Edit1.Clear;

form13.Edit2.Clear;

form13.Edit3.Clear;

form13.Edit4.Clear;

form13.Edit5.Clear;

form13.Edit6.Clear;

form13.Edit7.Clear;

form13.Edit8.Clear;

form13.Hide;

form1.Show;

form4.Button15.Click;

end;

end;

procedure TForm13.Button2Click(Sender: TObject);

begin

form9.show;

form13.Hide;

end;
procedure TForm13.Button3Click(Sender: TObject);

begin

form13.Edit1.Text:='тест';

form13.Edit2.Text:='тест';

form13.Edit3.Text:='тест';

form13.Edit4.Text:='3';

form13.Edit5.Text:='3';

form13.Edit6.Text:='3';

form13.Edit8.Text:='тест';

form13.Edit7.Text:='тест';

end;

end.
5.2.3 Функция добавления страны

procedure TForm5.Button1Click(Sender: TObject);

begin

if

((Edit1.Text='')) then

begin

ShowMessage('Заполните поле!');

end
else

begin

DataModule2.ADOTable1.Insert;

DataModule2.ADOTable1.FieldByName('Страна').AsString:=form5.Edit1.Text;

DataModule2.ADOTable1.Post;

form5.Edit1.Clear;

form5.Hide;

end;

end;

end.
5.2.4 Функция добавления города

procedure TForm6.Button1Click(Sender: TObject);

begin

if

((Edit1.Text='')) then

begin

ShowMessage('Заполните поле!');

end
else

begin

DataModule2.ADOTable2.Insert;

DataModule2.ADOTable2.FieldByName('Город').AsString:=form6.Edit1.Text;

DataModule2.ADOTable2.Post;

form6.Edit1.Clear;

form6.Hide;

end;

end;
end.
5.2.5 Функция создания нового тура

procedure TForm7.Button1Click(Sender: TObject);

begin

if

((Edit1.Text='')or(Edit3.Text='')

or(Edit2.Text='')) then

begin

ShowMessage('Вы заполнили не все поля! Заполните все поля!');

end
else

begin

DataModule2.ADOTable4.Insert;

DataModule2.ADOTable4.FieldByName('Название тура').AsString:=form7.Edit1.Text;

DataModule2.ADOTable4.FieldByName('Питание').AsString:=form7.Edit2.Text;

DataModule2.ADOTable4.FieldByName('Цена').AsString:=form7.Edit3.Text;

DataModule2.ADOTable4.FieldByName('Описание').AsString:=form7.Memo1.Text;

DataModule2.ADOTable4.Post;

form7.Edit1.Clear;

form7.Edit2.Clear;

form7.Edit3.Clear;

form7.Hide;

end;

end;

procedure TForm7.Button2Click(Sender: TObject);

begin

form8.Show;

end;
end.

5.2.6 Функция добавления отеля

procedure TForm8.Button1Click(Sender: TObject);

begin

if

((Edit1.Text='')) then

begin

ShowMessage(' Заполните все поля!');

end

else

begin

DataModule2.ADOTable3.Insert;

DataModule2.ADOTable3.FieldByName('Название').AsString:=form8.Edit1.Text;

DataModule2.ADOTable3.FieldByName('Класс').AsString:=form8.ComboBox1.Text;

DataModule2.ADOTable3.FieldByName('Описание').AsString:=form8.Memo1.Text;

DataModule2.ADOTable3.Post;
form8.Edit1.Clear;

form8.ComboBox1.Text:='';

form8.Hide;

end;

end;

end.
5.2.7 Функция создания путёвки

procedure TForm15.Button1Click(Sender: TObject);

begin
if

((Edit1.Text='')) then

begin

ShowMessage('Вы заполнили не все поля! Заполните все поля!');

end
else

begin

DataModule2.ADOTable9.Insert;

DataModule2.ADOTable9.FieldByName('Длительность отдыха').AsString:=form15.Edit1.Text;

DataModule2.ADOTable9.FieldByName('Дата отправки').AsDateTime:=StrToDate(DateToStr(form15.DateTimePicker1.Date));

DataModule2.ADOTable9.Post;

form15.Edit1.Clear;

form15.hide;

end;

end;

end.
5.2.8 Функция удаления страны

procedure TForm4.Button2Click(Sender: TObject);

begin

if Application.MessageBox('При удалении страны очистятся все существующие города в этой стране, отели и туры. Все проведенные по путевкам клиенты останутся в истории поездок. Удалить страну?','Удаление',MB_YESNO)=IDYES then

begin

DataModule2.ADOTable1.delete;

end;

end;
5.2.9 Функция поиска по стране
procedure TForm4.Edit1Change(Sender: TObject);

begin

if Length(Form4.Edit1.Text) > 0 then

begin

DataModule2.ADOTable1.Filtered:=false;

DataModule2.ADOTable1.Filter:= 'Страна LIKE ' + #39 + Edit1.Text + '%' + #39;

DataModule2.ADOTable1.Filtered:=true;

end

else DataModule2.ADOTable1.Filtered:=false;

end;
5.2.10 Функция поиска по фамилии клиента
procedure TForm4.Edit2Change(Sender: TObject);

begin

if Length(Form4.Edit2.Text) > 0 then

begin

DataModule2.ADOTable12.Filtered:=false;

DataModule2.ADOTable12.Filter:= 'Фамилия LIKE ' + #39 + Edit2.Text + '%' + #39;

DataModule2.ADOTable12.Filtered:=true;

end

else DataModule2.ADOTable12.Filtered:=false;

end;
5.2.11 Функция подтверждения оплаты заказа
procedure TForm4.Button11Click(Sender: TObject);

begin

if Application.MessageBox('Клиент оплатил заказ? После оплаты клиент и все данные, связанные с ним переместятся во вкладку "История поездок"','Удаление',MB_YESNO)=IDYES then

begin

DataModule2.ADOTable11.Insert;

DataModule2.ADOTable11.FieldByName('Фамилия').Value:=DataModule2.ADOTable12.FieldByName('Фамилия').Value;

DataModule2.ADOTable11.FieldByName('Имя').Value:=DataModule2.ADOTable12.FieldByName('Имя').Value;

DataModule2.ADOTable11.FieldByName('Отчество').Value:=DataModule2.ADOTable12.FieldByName('Отчество').Value;

DataModule2.ADOTable11.FieldByName('Телефон').Value:=DataModule2.ADOTable12.FieldByName('МобильныйТелефон').Value;

DataModule2.ADOTable11.FieldByName('Серия паспорта').Value:=DataModule2.ADOTable13.FieldByName('Серия паспорта').Value;

DataModule2.ADOTable11.FieldByName('Номер паспорта').Value:=DataModule2.ADOTable13.FieldByName('Номер паспорта').Value;

DataModule2.ADOTable11.FieldByName('Дата рождения').Value:=DataModule2.ADOTable13.FieldByName('Дата рождения').Value;

DataModule2.ADOTable11.FieldByName('Кем_выдан').Value:=DataModule2.ADOTable13.FieldByName('Кем_выдан').Value;

DataModule2.ADOTable11.FieldByName('Прописка').Value:=DataModule2.ADOTable13.FieldByName('Прописка').Value;

DataModule2.ADOTable11.FieldByName('Дата_выдачи').Value:=DataModule2.ADOTable13.FieldByName('Дата_выдачи').Value;

DataModule2.ADOTable11.FieldByName('Номер_визы').Value:=DataModule2.ADOTable13.FieldByName('Номер_визы').Value;

DataModule2.ADOTable11.FieldByName('Кратность_Визы').Value:=DataModule2.ADOTable13.FieldByName('Кратность_Визы').Value;

DataModule2.ADOTable11.FieldByName('Длительность отдыха').Value:=DataModule2.ADOTable14.FieldByName('Длительность отдыха').Value;

DataModule2.ADOTable11.FieldByName('Дата отправки').Value:=DataModule2.ADOTable14.FieldByName('Дата отправки').Value;

DataModule2.ADOTable11.FieldByName('Название тура').Value:=DataModule2.ADOTable15.FieldByName('Название тура').Value;

DataModule2.ADOTable11.FieldByName('Питание').Value:=DataModule2.ADOTable15.FieldByName('Питание').Value;

DataModule2.ADOTable11.FieldByName('Цена').Value:=DataModule2.ADOTable15.FieldByName('Цена').Value;

DataModule2.ADOTable11.FieldByName('Город').Value:=DataModule2.ADOTable16.FieldByName('Город').Value;

DataModule2.ADOTable11.FieldByName('Страна').Value:=DataModule2.ADOTable17.FieldByName('Страна').Value;

DataModule2.ADOTable11.FieldByName('Название').Value:=DataModule2.ADOTable18.FieldByName('Название').Value;

DataModule2.ADOTable11.FieldByName('Класс').Value:=DataModule2.ADOTable18.FieldByName('Класс').Value;

DataModule2.ADOTable11.Post;

DataModule2.ADOTable12.Delete;

form4.Button18.Click;

end;

end;
5.2.12 Функция добавления клиента
procedure TForm13.Button1Click(Sender: TObject);

begin

if

((Edit1.Text='')or(Edit2.Text='')or(Edit3.Text='')or(Edit4.Text='')or(Edit5.Text='')

or(Edit6.Text='')or(Edit7.Text='')or(Edit8.Text='')) then

begin

ShowMessage('Вы заполнили не все поля! Заполните все поля!');

end
else

begin

DataModule2.ADOTable12.Insert;

DataModule2.ADOTable12.FieldByName('Фамилия').AsString:=form13.Edit1.Text;

DataModule2.ADOTable12.FieldByName('Имя').AsString:=form13.Edit2.Text;

DataModule2.ADOTable12.FieldByName('Отчество').AsString:=form13.Edit3.Text;

DataModule2.ADOTable12.FieldByName('МобильныйТелефон').AsString:=form13.Edit4.Text;

DataModule2.ADOTable12.Post;
DataModule2.ADOTable13.Insert;

DataModule2.ADOTable13.FieldByName('Серия паспорта').AsString:=form13.Edit5.Text;

DataModule2.ADOTable13.FieldByName('Номер паспорта').AsString:=form13.Edit6.Text;

DataModule2.ADOTable13.FieldByName('Дата рождения').AsDateTime:=StrToDate(DateToStr(form13.DateTimePicker2.Date));

DataModule2.ADOTable13.FieldByName('Кем_выдан').AsString:=form13.Edit7.Text;

DataModule2.ADOTable13.FieldByName('Прописка').AsString:=form13.Edit8.Text;

DataModule2.ADOTable13.FieldByName('Дата_выдачи').AsDateTime:=StrToDate(DateToStr(form13.DateTimePicker1.Date));

DataModule2.ADOTable13.FieldByName('Номер_визы').AsString:=form13.Edit9.Text;

DataModule2.ADOTable13.FieldByName('Кратность_Визы').AsString:=form13.ComboBox1.Text;

DataModule2.ADOTable13.Post;
DataModule2.ADOTable14.Insert;

DataModule2.ADOTable14.FieldByName('Длительность отдыха').Value:=DataModule2.ADOTable9.FieldByName('Длительность отдыха').Value;

DataModule2.ADOTable14.FieldByName('Дата отправки').Value:=DataModule2.ADOTable9.FieldByName('Дата отправки').Value;

DataModule2.ADOTable14.Post;
DataModule2.ADOTable15.Insert;

DataModule2.ADOTable15.FieldByName('Название тура').Value:=DataModule2.ADOTable4.FieldByName('Название тура').Value;

DataModule2.ADOTable15.FieldByName('Питание').Value:=DataModule2.ADOTable4.FieldByName('Питание').Value;

DataModule2.ADOTable15.FieldByName('Цена').Value:=DataModule2.ADOTable4.FieldByName('Цена').Value;

DataModule2.ADOTable15.Post;
DataModule2.ADOTable16.Insert;

DataModule2.ADOTable16.FieldByName('Город').Value:=DataModule2.ADOTable2.FieldByName('Город').Value;

DataModule2.ADOTable16.Post;
DataModule2.ADOTable17.Insert;

DataModule2.ADOTable17.FieldByName('Страна').Value:=DataModule2.ADOTable1.FieldByName('Страна').Value;

DataModule2.ADOTable17.Post;
DataModule2.ADOTable18.Insert;

DataModule2.ADOTable18.FieldByName('Название').Value:=DataModule2.ADOTable3.FieldByName('Название').Value;

DataModule2.ADOTable18.FieldByName('Класс').Value:=DataModule2.ADOTable3.FieldByName('Класс').Value;

DataModule2.ADOTable18.Post;
Form4.Button19.Click;

form13.Edit1.Clear;

form13.Edit2.Clear;

form13.Edit3.Clear;

form13.Edit4.Clear;

form13.Edit5.Clear;

form13.Edit6.Clear;

form13.Edit7.Clear;

form13.Edit8.Clear;

form13.Hide;

form1.Show;

form4.Button15.Click;

end;

end;
5.2.13 Функция выписки чека об оплате заказа
procedure TForm4.Button18Click(Sender: TObject);
var

XLApp, Sheet, Colum: Variant;

index, i: Integer;

begin

XLApp:= CreateOleObject ('Excel.Application');

XLApp.Visible:= true;

XLApp.Workbooks.Add (-4167);

XLApp.Workbooks [1]. WorkSheets [1]. Name:= 'Чек';

Colum:= XLApp.Workbooks [1]. WorkSheets ['Чек']. Columns;

Colum.Columns [1]. ColumnWidth:= 30;

Colum.Columns [2]. ColumnWidth:= 33;

Colum:= XLApp.Workbooks [1]. WorkSheets ['Чек']. Rows;

Sheet:= XLApp.Workbooks [1]. WorkSheets ['Чек'];

Colum.Rows [1]. Font.Bold:= true;

Colum.Rows[1]. Font.Color:= clBlue;

Colum.Rows [1]. Font.Bold:= true;

Colum.Rows [1]. Font.Size:= 16;
Colum.Rows [11]. Font.Bold:= true;

Colum.Rows[11]. Font.Color:= clred;

Colum.Rows [11]. Font.Bold:= true;

Colum.Rows [11]. Font.Size:= 16;
Sheet.Cells [1,1]:= 'Чек по путевке';

Sheet.Cells [2,1]:= 'ФИО клиента';

Sheet.Cells [3,1]:= 'Дата отправления';

Sheet.Cells [4,1]:= 'Длительность путевки(в днях)';

Sheet.Cells [5,1]:= 'Страна путевки';

Sheet.Cells [6,1]:= 'Город путевки';

Sheet.Cells [7,1]:= 'Название тура';

Sheet.Cells [8,1]:= 'Режим питания';

Sheet.Cells [9,1]:= 'Название отеля';

Sheet.Cells [10,1]:= 'Звездность отеля';

Sheet.Cells [11,1]:= 'Итого';

Sheet.Cells [14,1]:= 'Подпись Клиента________________________';

Sheet.Cells [19,1]:= 'Печать';

index:= 2;

DataModule2.ADOTable11.First;

for i:= 0 to DataModule2.ADOTable11.RecordCount-0 do

begin

Sheet.Cells [2,2]:= DataModule2.ADOTable11.Fields.Fields [1]. AsString

+' '+DataModule2.ADOTable11.Fields.Fields [2]. AsString

+' '+DataModule2.ADOTable11.Fields.Fields [3]. AsString;

Sheet.Cells [3,2]:= DataModule2.ADOTable11.Fields.Fields [13]. AsString;

Sheet.Cells [4,2]:= DataModule2.ADOTable11.Fields.Fields [14]. AsString;

Sheet.Cells [5,2]:= DataModule2.ADOTable11.Fields.Fields [19]. AsString;

Sheet.Cells [6,2]:= DataModule2.ADOTable11.Fields.Fields [18]. AsString;

Sheet.Cells [7,2]:= DataModule2.ADOTable11.Fields.Fields [17]. AsString;

Sheet.Cells [8,2]:= DataModule2.ADOTable11.Fields.Fields [15]. AsString;

Sheet.Cells [9,2]:= DataModule2.ADOTable11.Fields.Fields [20]. AsString;

Sheet.Cells [10,2]:= DataModule2.ADOTable11.Fields.Fields [21]. AsString;

Sheet.Cells [11,2]:= DataModule2.ADOTable11.Fields.Fields [16]. AsString+' '+'рублей';

end;

end;

procedure TForm4.Button19Click(Sender: TObject);
var

XLApp, Sheet, Colum: Variant;

index, i: Integer;

begin

XLApp:= CreateOleObject ('Excel.Application');

XLApp.Visible:= true;

XLApp.Workbooks.Add (-4167);

XLApp.Workbooks [1]. WorkSheets [1]. Name:= 'Чек';

Colum:= XLApp.Workbooks [1]. WorkSheets ['Чек']. Columns;

Colum.Columns [1]. ColumnWidth:= 30;

Colum.Columns [2]. ColumnWidth:= 33;

Colum:= XLApp.Workbooks [1]. WorkSheets ['Чек']. Rows;

Sheet:= XLApp.Workbooks [1]. WorkSheets ['Чек'];

Colum.Rows [1]. Font.Bold:= true;

Colum.Rows[1]. Font.Color:= clBlue;

Colum.Rows [1]. Font.Bold:= true;

Colum.Rows [1]. Font.Size:= 16;
Colum.Rows [11]. Font.Bold:= true;

Colum.Rows[11]. Font.Color:= clred;

Colum.Rows [11]. Font.Bold:= true;

Colum.Rows [11]. Font.Size:= 16;
Sheet.Cells [1,1]:= 'Чек по путевке';

Sheet.Cells [2,1]:= 'ФИО клиента';

Sheet.Cells [4,1]:= 'Дата отправления';

Sheet.Cells [3,1]:= 'Длительность путевки(в днях)';

Sheet.Cells [5,1]:= 'Страна путевки';

Sheet.Cells [6,1]:= 'Город путевки';

Sheet.Cells [7,1]:= 'Название тура';

Sheet.Cells [8,1]:= 'Режим питания';

Sheet.Cells [9,1]:= 'Название отеля';

Sheet.Cells [10,1]:= 'Звездность отеля';

Sheet.Cells [11,1]:= 'Итого';

Sheet.Cells [16,1]:= 'Внимание, с этим чеком вам необходимо подойти к администратору турфирмы';

index:= 2;

DataModule2.ADOTable11.First;

for i:= 0 to DataModule2.ADOTable11.RecordCount-0 do

begin

Sheet.Cells [2,2]:= DataModule2.ADOTable12.Fields.Fields [1]. AsString

+' '+DataModule2.ADOTable12.Fields.Fields [2]. AsString

+' '+DataModule2.ADOTable12.Fields.Fields [3]. AsString;

Sheet.Cells [3,2]:= DataModule2.ADOTable14.Fields.Fields [1]. AsString;

Sheet.Cells [4,2]:= DataModule2.ADOTable14.Fields.Fields [2]. AsString;

Sheet.Cells [5,2]:= DataModule2.ADOTable17.Fields.Fields [1]. AsString;

Sheet.Cells [6,2]:= DataModule2.ADOTable16.Fields.Fields [1]. AsString;

Sheet.Cells [7,2]:= DataModule2.ADOTable15.Fields.Fields [4]. AsString;

Sheet.Cells [8,2]:= DataModule2.ADOTable15.Fields.Fields [1]. AsString;

Sheet.Cells [9,2]:= DataModule2.ADOTable18.Fields.Fields [1]. AsString;

Sheet.Cells [10,2]:= DataModule2.ADOTable18.Fields.Fields [2]. AsString;

Sheet.Cells [11,2]:= DataModule2.ADOTable15.Fields.Fields [2]. AsString+' '+'рублей';

end;

end;
procedure TForm4.Edit3Change(Sender: TObject);

begin

if Length(Form4.Edit3.Text) > 0 then

begin

DataModule2.ADOTable11.Filtered:=false;

DataModule2.ADOTable11.Filter:= 'Фамилия LIKE ' + #39 + Edit3.Text + '%' + #39;

DataModule2.ADOTable11.Filtered:=true;

end

else DataModule2.ADOTable11.Filtered:=false;

end;
end.


1   2   3   4   5   6

написать администратору сайта