Разработка информационной подсистемы для администрации гостиницы "Парадайс"

Тип работы:
Курсовая
Предмет:
Программирование


Узнать стоимость

Детальная информация о работе

Выдержка из работы

http: ///

Содержание

Введение

1. ТЕХНИЧЕСКОЕ ЗАДАНИЕ

1.1 Наименование программы

1.2 Цель разработки

1.3 Назначение разработки

2. ПОЯСНИТЕЛЬНАЯ ЗАПИСКА

2.1 Назначения и область применения

2.2 Технические характеристики

3. ИНФОРМАЦИОННОЕ И ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ

3.1 Общие сведения о программе

3.2 Функциональное назначение программы

3.3 Описание логической структуры программы

3.4 Входные данные программы

3.5 Выходные данные программы

4. ОПИСАНИЕ ИНТЕРФЕЙСА И АППАРАТНОГО ОБЕСПЕЧЕНИЯ ИНФОРМАЦИОННОЙ ПОДСИСТЕМЫ «ГОСТИНИЦА»

4.1 Описание интерфейса информационной подсистемы «гостиница»

4. 2 Общие требования

4.3 Требования к центральному процессору

4.4 Требования к оперативному запоминающему устройству

4.5 Требования к наличию свободного места на жестком диске

4.6 Требования к монитору

4.7 Требования к принтеру

4.8 Результаты тестирования программы

ЗАКЛЮЧЕНИЕ

Список использованной литературы

ПриложениЕ

Введение

В современном обществе высокие информационные технологии стали фундаментальной инфраструктурой. В последнее десятилетие в мире наблюдается увеличение объема информации. Синхронно с этим процессом в ряде областей науки, техники и управления народно-хозяйственным комплексом появляется все больше задач, требующих для своего эффективного решения новых технологий обработки данных.

Актуальность темы работы обусловлена тем, что в современных условиях жесткой конкуренции успешно могут действовать лишь те субъекты хозяйствования, которые оперативно и эффективно обрабатывают информацию.

Речь идёт о разработке и освоении в производстве информационной подсистемы, с помощью которой можно было бы оперативно обрабатывать информацию и получать результаты. Эта подсистема проста в эксплуатации и понятна обычному пользователю.

Пояснительная записка к работе содержит следующие разделы:

1) Результаты обследования информационной подсистемы администрации гостиницы «Парадайс». В этом разделе была проанализирована информационная система гостиницы, сформулированы задачи проектирования информационной подсистемы администрации гостиницы «Парадайс».

2) Разработка базы данных и системы управления базой данных для администрации гостиницы. В данном разделе создана модель базы данных информационной подсистемы администрации гостиница. После генерации были разработаны система управления базой данных и приложения с помощью среды программирования Delphi 7.0.

3) Информационное и программное обеспечение. В этом разделе показаны функции информационной подсистемы гостиница. Была описана логическая структура программы, рассмотрены входные данные информационной подсистемы, показаны результаты тестирования информационной подсистемы.

4) Требования к техническому обеспечению. Здесь рассмотрены требования к центральному процессору, оперативной памяти, видеопамяти, свободного места на жестком диске, клавиатуре, манипулятору типа мышь.

5) Расчет технико-экономической эффективности проекта информационной подсистемы гостиница. В этой главе выявлены суммарные затраты на создание информационной подсистемы «гостиница». Рассчитаны технико-экономическая эффективность информационной подсистемы «гостиница» и время окупаемости информационной подсистемы «гостиница».

6) Безопасность жизнедеятельности проекта. В этом разделе проанализированы опасные основные и вредные факторы на рабочем месте. Рассчитано естественное освещение на рабочем месте оператора информационной подсистемы гостиница «Парадайс».

1. ТЕХНИЧЕСКОЕ ЗАДАНИЕ

1. 1 Наименование программы

База данных администратора гостиницы. Полное наименование системы — автоматизированная информационная подсистемы учета и хранения архивной документации клиентов для гостиницы «Парадайс».

Программный продукт создан с применением языка программирования Delphi в среде компилятора Borland Delphi 7.0.

1. 2 Цель разработки

Разработать базу данных для администратора гостиницы. База данных должна содержать следующую информацию:

Информация о клиентах, которые проживают в гостинице:

1. серия и номер паспорта;

2. кем выдан паспорт;

3. дата выдачи паспорта;

4. фамилия;

5. имя;

6. отчество;

7. пол;

8. дата рождения;

9. место рождения;

10. прописка;

11. телефон клиента;

12. гостиничный номер клиента;

13. дата вселения;

14. дата выселения;

15. количество дней;

16. фамилия администратора, оформившего данного клиента.

Информационная подсистема должна обеспечивать ввод и хранение архивных данных:

1. серия и номер паспорта;

2. фамилия;

3. имя;

4. отчество;

5. пол;

6. дата вселения;

7. дата выселения;

1. 3 Назначение разработки

Информационная подсистема «гостиница» предназначена для автоматизации места администратора гостиницы «Атлантис». К основным функциям программы можно отнести следующие:

1. Информационная подсистема выполняет учет клиентов в гостинице.

2. Ведется учет заселенных номеров.

3. Ведется учет забронированных номеров.

4. Ведется учет номеров, поставленных на ремонт.

5. Информационная подсистема поддерживает ускоренные средства поиска информации о состоянии номеров.

6. У программы стандартный оконный интерфейс, от пользователя требуется лишь своевременное заполнение экранных форм.

Программный продукт тестировался на работоспособность на компьютере с необходимым, установленным программным обеспечением (Borland Delphi 7.0.).

Для полноценной работы базы данных необходимо наличие всех компонентов данного программного продукта: модули и таблицы с данными.

2. ПОЯСНИТЕЛЬНАЯ ЗАПИСКА

2.1 Назначения и область применения

Данная программа применима в деятельности Службы быта, справочного бюро.

2.2 Технические характеристики

Программа написана на языке программирования Delphi в среде компилятора Borland Delphi 7.0. Кроме того необходимо наличие Microsoft ActiveX Data Objects (ADO) — машина баз данных Borland. Представляет собой набор DLL -библиотек, обеспечивающих низкоуровневый доступ к локальным и клиент-северным БД. Должна устанавливаться на каждом компьютере, который использует приложения для работы с БД, написанные для Delphi.

3. ИНФОРМАЦИОННОЕ И ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ

3.1 Общие сведения о программе

Информационная подсистема гостиница «Парадайс» предназначена для хранения, ввода, корректировки данных

3.2 Функциональное назначение программы

Информационная подсистема «гостиница» предназначена для автоматизации места администратора гостиницы «Атлантис». Базовые модули, обеспечивающие решение общих задач, могут дополняться специализированными модулями, учитывающими специфику деятельности гостиницы.

К основным функциям программы можно отнести следующие:

1. Информационная подсистема выполняет учет клиентов в гостинице.

2. Ведется учет заселенных номеров.

3. Ведется учет забронированных номеров.

4. Ведется учет номеров, поставленных на ремонт.

5. Информационная подсистема поддерживает ускоренные средства поиска информации о состоянии номеров.

6. У программы стандартный оконный интерфейс, от пользователя требуется лишь своевременное заполнение экранных форм.

3.3 Описание логической структуры программы

Структурная схема программного комплекса

На рисунке 3.1 представлена структурная схема программного комплекса «гостиница». В зависимости от выбранного пункта меню — выполняется один из модулей информационной подсистемы.

3.4 Входные данные программы

В качестве входных данных используются данные, которые вводятся в базу данных подсистемы. Процесс ввода происходит, при выборе пунктов меню. Например пункт меню «Сервис» (Рисунок 3. 1).

Рисунок 3.1 — Выбор пункта меню «Сервис» и подпункта «бронировать»

При выборе подпунктов меню в пункте меню «Сервис» добавляются, редактируются и удаляются данные.

3.5 Выходные данные программы

В качестве выходных данных используются:

1) данные имеющихся свободных номерах в гостинице;

2) данные о клиентах;

3) данные о состоянии номеров на данный момент;

4) отчет о проделанной работе за период времени.

4. ОПИСАНИЕ ИНТЕРФЕЙСА И АППАРАТНОГО ОБЕСПЕЧЕНИЯ ИНФОРМАЦИОННОЙ ПОДСИСТЕМЫ «ГОСТИНИЦА»

4.1 Описание интерфейса информационной подсистемы «гостиница»

Все модули программы откомпилированы в файле «гостиница. exe».

Запуск программы начинается с запуска файла «гостиница. exe».

После запуска программы на экран появляется главное окно программы представленное на рисунке 4.1.

Рисунок 4.1 — Главное окно программы «гостиница»

На рисунке 4.1 показано состояние гостиничных номеров по занятости. Для просмотра бронированных номеров необходимо войти в пункт меню «Состояние», как показано на рисунке 4.2. И выбрать подпункт меню «бронировано».

Рисунок 4.2 — Пункт меню «Состояние»

После этого появиться на экране таблица по занятости бронированных номеров которая показана на рисунке 4.3.

Рисунок 4.3 — Окно данных таблицы по занятости бронированных номеров.

Просмотреть номера, которые стоят на ремонте можно проверить, щелкнув на пункт меню «Состояние» -- подпункт «на ремонте», показано на рисунке 4.2. После этого появиться таблица, в которой показано какие номера стоят на ремонте (Рисунок 4. 4).

информационный программный интерфейс процессор

Рисунок 4.4 -Окно данных таблицы состояние номеров на ремонте

Для регистрации клиентов в гостиничных номерах необходимо войти в пункт меню «Сервис», подпункт меню «вселить». Появиться окно приложения «Вселение» (Рисунок 4. 3)

Рисунок 4.3 -Окно приложения «Вселение»

Для бронирования номеров гостиницы необходимо войти в пункт меню «Сервис» -- «бронировать». (Рисунок 4. 4)

Далее идет заполнение экранных форм. В окне приложения «Бронировать».

Рисунок 4.4 — Окно приложения «Бронировать»

Если необходимо встретить клиента на жд/вокзале, автовокзале или из аэропорта, то необходимо для этого войти в пункт меню «встретить» и заполнить дату в окне приложения «Встретить». (Рисунок 4. 5).

Рисунок 4.5 -Окно данных таблицы встретить.

После заполнения даты в окне приложения встретить появиться таблица, показанная на рисунке 4.6.

Рисунок 4.6 — Таблица окна приложения «Встретить»

Для проживающих клиентов гостиница предоставляет ряд услуг, отдельно оплачиваемых. Чтобы знать, сколько клиент должен будет, и за какие виды услуг необходимо заполнять окно приложения «услуга», которое показано на рисунке 4.7. Зайти пункт меню «Сервис» — «услуга».

Рисунок 4.7 — Окно приложения «услуга»

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

Рисунок 4.7 — Окно приложения «Выписать»

Выбирается гостиничный номер, из которого клиенты выписываются, ставим дату вселения и выселения и щелкаем по кнопке «выполнить». После этого на экране выводятся услуги, которые заказывали клиенты и щелкаем по кнопке «просчитать». Теперь известно сколько клиент должен гостинице в сфере предоставления услуг.

Когда клиент расплатился щелкаем по кнопке «удалить». Записи удаляются из таблицы состояния и остаются в таблице базы данных «архив клиентов». Для просмотра архива клиентов необходимо зайти пункт меню «БД» -- «архив клиентов» (Рисунок 4. 8).

Рисунок 4.8 — Подпункт меню «архив клиентов»

Откроется таблица базы данных «Архив», который показан на рисунке 4.9.

Рисунок 4.9 — Таблица базы данных «архив клиентов»

4.2 Общие требования

Для стабильной работы информационной подсистемы «гостиница» необходимо: процессор не ниже 166 МГц, оперативной памяти 128 Мбайт, свободного места на диске должно быть не менее 5 Мбайт.

Обязательные требования: установленный пакет MS Office 97 и выше.

4.3 Требования к центральному процессору

Информационная подсистема «гостиница» реализована с помощью объектно-ориентированного языка программирования Delphi 7.0. В ходе контрольных прогонов, установлено, что подсистема функционирует на процессоре с тактовой частотой 166 MHz, но рекомендуется использование процессора с тактовой частотой 433 MHz и выше.

4.4 Требования к оперативному запоминающему устройству

Информационная подсистема «гостиница» работает под операционной системой Windows 98 и выше. Для стабильной работы информационной подсистемы рекомендуемый ресурс 128 Мбайта оперативной памяти. Минимальный объем ОЗУ составляет 64 Мбайта.

4.5 Требования к наличию свободного места на жестком диске

Информационная подсистема «гостиница» занимает свободного места на жестком диске 2 Мбайта.

4.6 Требования к монитору

Информационная подсистема не накладывает каких-либо ограничений на использование мониторов.

4.7 Требования к принтеру

Информационная подсистема не накладывает каких-либо ограничений на использование принтеров.

4.8 Результаты тестирования программы

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

После запуска подсистемы, были произведены следующие проверки:

а) Ввод в окна приложений данных подсистемы были произведены без проблем.

б) В таблице базы данных «Выселение» был произведен расчет клиента за обслуживание номеров. Ошибок не обнаружено.

ЗАКЛЮЧЕНИЕ

В данном проекте была разработана информационная подсистема для администрации гостиницы «Парадайс». В процессе разработки проекта было выполнено.

Разработана база данных и система управления базой данных для гостиницы «Парадайс».

Информационная подсистема гостиницы «Парадайс» предназначена для автоматизации данной гостиницы и выполняющая ввод, хранение, корректировку данных.

Для нормальной работы информационной подсистемы гостиница необходимо: операционная система Windows 98/ME/NT4. 0/2000/XP, процессор с тактовой частотой не ниже 133 МГц, объем оперативной памяти зависит от операционной системы, которая установлена на персональном компьютере, если это Windows 98/ME, то для нормальной работы информационной подсистемы требуется 64 Мбайта оперативной памяти установленной на персональный компьютер, а если Windows NT4. 0/2000/XP, тогда требуется установить 128 Мбайт оперативной памяти, видеокарта не менее 4 Мбайт, свободного места на жестком диске для установки программы вместе с базой данных, в которой хранятся фактические данные необходимые для работы информационной подсистемы — должно быть не менее 5 Мбайт, клавиатура, манипулятор типа мышь.

Список использованной литературы

1. http: //www. ych-group. ru/3/

2. http: //abcomp. chat. ru/

3. http: //www. softportal. com/

Приложение

Основной модуль

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, Grids, DBGrids, DB, DBTables, StdCtrls;

type

TForm1 = class (TForm)

GroupBox1: TGroupBox;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

Button1: TButton;

Button2: TButton;

N17: TMenuItem;

GroupBox2: TGroupBox;

Edit1: TEdit;

N4: TMenuItem;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Query1: TQuery;

procedure N2Click (Sender: TObject);

procedure N9Click (Sender: TObject);

procedure N10Click (Sender: TObject);

procedure N6Click (Sender: TObject);

procedure N7Click (Sender: TObject);

procedure N13Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure N14Click (Sender: TObject);

procedure N12Click (Sender: TObject);

procedure N15Click (Sender: TObject);

procedure N16Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure N17Click (Sender: TObject);

procedure N4Click (Sender: TObject);

procedure FormMouseDown (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

Uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;

{$R *. dfm}

procedure TForm1. N2Click (Sender: TObject);

begin

Close;

end;

procedure TForm1. N9Click (Sender: TObject);

begin

Form2. Show;

end;

procedure TForm1. N10Click (Sender: TObject);

begin

Form3. Show;

end;

procedure TForm1. N6Click (Sender: TObject);

begin

Query1. Close;

Query1. SQL. Clear;

Query1. SQL. Add ('SELECT Nomer, Familia, Sostoanie, Data_zaezda, Data_viezda FROM HOT WHERE Sostoanie="занят"');

Query1. Open;

end;

procedure TForm1. N7Click (Sender: TObject);

begin

Query1. Close;

Query1. SQL. Clear;

Query1. SQL. Add ('SELECT Nomer, Familia, Sostoanie, Data_zaezda, Data_viezda FROM HOT WHERE Sostoanie="бронирован"');

Query1. Open;

end;

procedure TForm1. N13Click (Sender: TObject);

begin

Form4. Show;

end;

procedure TForm1. N3Click (Sender: TObject);

begin

Form5. Show;

end;

procedure TForm1. N14Click (Sender: TObject);

begin

Form6. Show;

end;

procedure TForm1. N12Click (Sender: TObject);

begin

Form7. Show;

end;

procedure TForm1. N15Click (Sender: TObject);

begin

Query1. Close;

Query1. SQL. Clear;

Query1. SQL. Add ('SELECT Nomer, Sostoanie, RemontData FROM HOT WHERE Sostoanie="на ремонте"');

Query1. Open;

end;

procedure TForm1. N16Click (Sender: TObject);

begin

Form8. Show;

end;

procedure TForm1. Button1Click (Sender: TObject);

begin

if Query1. RecordCount<>0 then

Query1. Delete;

end;

procedure TForm1. Button2Click (Sender: TObject);

begin

Query1. Locate ('Familia', Edit1. Text, [loCaseInsensitive, loPartialKey]);

end;

procedure TForm1. N17Click (Sender: TObject);

begin

Query1. Close;

Query1. SQL. Clear;

Query1. SQL. Add ('SELECT Nomer, Data_zaezda, Data_viezda, Familia, Predoplata FROM HOT WHERE Sostoanie="занят"');

Query1. Open;

GroupBox2. Visible:=True;

Button2. Visible:=True;

end;

procedure TForm1. N4Click (Sender: TObject);

begin

Query1. Close;

Query1. SQL. Clear;

Query1. SQL. Add ('SELECT * FROM HOT');

Query1. Open;

end;

procedure TForm1. FormMouseDown (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

GroupBox2. Visible:=True;

Button2. Visible:=True;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, StdCtrls;

type

TForm2 = class (TForm)

GroupBox1: TGroupBox;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

Label10: TLabel;

Edit10: TEdit;

Label11: TLabel;

Edit11: TEdit;

Label12: TLabel;

Label13: TLabel;

Button1: TButton;

Button2: TButton;

Edit12: TEdit;

DateTimePicker3: TDateTimePicker;

Edit13: TEdit;

Edit14: TEdit;

ComboBox1: TComboBox;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

Edit15: TEdit;

Label19: TLabel;

Memo1: TMemo;

Label20: TLabel;

Button3: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Edit9DblClick (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure DateTimePicker2Change (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

Uses Unit1, DB, DBTables, Unit9;

{$R *. dfm}

procedure TForm2. Button1Click (Sender: TObject);

var sost: String;

E: Integer;

begin

sost: ='бронирован';

Form1. Query1. Close;

Form1. Query1. SQL. Clear;

Form1. Query1. SQL. Add ('SELECT * FROM HOT');

Form1. Query1. Open;

with Form1. Query1 do

begin

Insert;

FieldByName ('Familia'). AsString:=Edit2. Text;

FieldByName ('Ima'). AsString:=Edit3. Text;

FieldByName ('Otchestvo'). AsString:=Edit4. Text;

FieldByName ('Gorod'). AsString:=Edit5. Text;

FieldByName ('Tell'). AsString:=Edit6. Text;

FieldByName ('E-mail'). AsString:=Edit7. Text;

FieldByName ('Nomer'). AsString:=Edit8. Text;

FieldByName ('Data_zaezda'). AsDateTime:=DateTimePicker1. Date;

FieldByName ('Data_viezda'). AsDateTime:=DateTimePicker2. Date;

FieldByName ('Predoplata'). AsInteger:=StrToInt (Edit11. Text);

FieldByName ('Doppol'). AsString:=Memo1. Text;

FieldByName ('Sostoanie'). AsString:=sost;

//--встретить--

FieldByName ('TipTransVS'). AsString:=ComboBox1. Text;

FieldByName ('DataVS'). AsString:=DateToStr (DateTimePicker3. Date);

FieldByName ('TimeVS'). AsString:=Edit12. Text;

FieldByName ('ReysVS'). AsString:=Edit14. Text;

FieldByName ('VagonVS'). AsString:=Edit13. Text;

FieldByName ('Zaregil'). AsString:=Edit15. Text;

Post;

MessageDlg ('данные добавлены', mtInformation, [mbOk], 0);

end;

begin

for E:= 0 to ComponentCount -1 do

if (Components[E] IS TEdit) then

(Components[E] AS TEdit). Text: ='';

end;

end;

procedure TForm2. Button2Click (Sender: TObject);

begin

Close;

end;

procedure TForm2. Edit9DblClick (Sender: TObject);

var nach, konec, chislo: TDateTime;

Year, Month, Day: Word;

begin

nach: =DateTimePicker1. Date;

konec: =DateTimePicker2. Date;

// n: =StrToInt (nach);

// k: =StrToInt (konec);

chislo: =konec-nach;

DecodeDate (chislo, Year, Month, Day);

edit9. Text:=inttostr (day+1);

end;

procedure TForm2. Button3Click (Sender: TObject);

begin

Form9. Show;

end;

procedure TForm2. FormCreate (Sender: TObject);

begin

DateTimePicker1. Date:=Date;

DateTimePicker2. Date:=Date;

DateTimePicker3. Date:=Date;

end;

procedure TForm2. DateTimePicker2Change (Sender: TObject);

var nach, konec, chislo: TDateTime;

Year, Month, Day: Word;

begin

nach: =DateTimePicker1. Date;

konec: =DateTimePicker2. Date;

// n: =StrToInt (nach);

// k: =StrToInt (konec);

chislo: =konec-nach;

DecodeDate (chislo, Year, Month, Day);

if inttostr (day+1)='32' then begin edit9. Text:='1'; Exit; end;

if inttostr (day+1)='31' then begin edit9. Text:='0'; Exit; end;

edit9. Text:=inttostr (day+1);

end;

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, StdCtrls;

type

TForm3 = class (TForm)

GroupBox1: TGroupBox;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

GroupBox2: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Memo1: TMemo;

GroupBox3: TGroupBox;

Edit10: TEdit;

Edit13: TEdit;

Edit14: TEdit;

Label10: TLabel;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Edit11: TEdit;

Label15: TLabel;

GroupBox4: TGroupBox;

Edit12: TEdit;

Label16: TLabel;

Button1: TButton;

Button2: TButton;

Label17: TLabel;

Button3: TButton;

procedure Button2Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure DateTimePicker2Change (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1, Unit5, Unit9;

{$R *. dfm}

procedure TForm3. Button2Click (Sender: TObject);

begin

Close;

end;

procedure TForm3. Button1Click (Sender: TObject);

var sost: String;

E: Integer;

begin

sost: ='занят';

Form1. Query1. Close;

Form1. Query1. SQL. Clear;

Form1. Query1. SQL. Add ('SELECT * FROM HOT');

Form1. Query1. Open;

with Form1. Query1 do

begin

Insert;

FieldByName ('Nomerpas'). AsString:=Edit1. Text;

FieldByName ('VidanPas'). AsString:=Edit2. Text;

FieldByName ('DataPas'). AsString:=Edit3. Text;

FieldByName ('Familia'). AsString:=Edit4. Text;

FieldByName ('Ima'). AsString:=Edit5. Text;

FieldByName ('Otchestvo'). AsString:=Edit6. Text;

FieldByName ('Pol'). AsString:=Edit7. Text;

FieldByName ('DataRog'). AsString:=Edit8. Text;

FieldByName ('Propis'). AsString:=Memo1. Text;

//--место рож

FieldByName ('Nomer'). AsString:=Edit10. Text;

FieldByName ('Data_zaezda'). AsDateTime:=DateTimePicker1. Date;

FieldByName ('Data_viezda'). AsDateTime:=DateTimePicker2. Date;

// FieldByName ('Kol_dney'). AsInteger:=StrToInt (fKolDney. Text);

// FieldByName ('Cena_za_den'). AsInteger:=StrToInt (fCenaZaden. Text);

// FieldByName ('Itogo'). AsInteger:=StrToInt (fItogo. Text);

FieldByName ('Predoplata'). AsInteger:=StrToInt (Edit11. Text);

FieldByName ('Zaregil'). AsString:=Edit12. Text;

FieldByName ('Sostoanie'). AsString:=sost;

Post;

end;

with Form5. Query1 do

begin

Insert; //добавить в архив

FieldByName ('Nomer_pas'). AsString:=Edit1. Text;

FieldByName ('familia'). AsString:=Edit4. Text;

FieldByName ('Ima'). AsString:=Edit5. Text;

FieldByName ('Otchestvo'). AsString:=Edit6. Text;

FieldByName ('Data_zaezda'). AsDateTime:=DateTimePicker1. Date;

FieldByName ('Data_viezda'). AsDateTime:=DateTimePicker2. Date;

Post;

end;

MessageDlg ('данные добавлены', mtInformation, [mbOk], 0);

begin

for E:= 0 to ComponentCount -1 do

if (Components[E] IS TEdit) then

(Components[E] AS TEdit). Text: ='';

end;

end;

procedure TForm3. Button3Click (Sender: TObject);

begin

Form9. Show;

end;

procedure TForm3. FormCreate (Sender: TObject);

begin

DateTimePicker1. Date:=date;

DateTimePicker2. Date:=date;

end;

procedure TForm3. DateTimePicker2Change (Sender: TObject);

var nach, konec, chislo: TDateTime;

Year, Month, Day: Word;

begin

nach: =DateTimePicker1. Date;

konec: =DateTimePicker2. Date;

chislo: =konec-nach;

DecodeDate (chislo, Year, Month, Day);

if inttostr (day+1)='32' then begin edit13. Text:='1'; Exit; end;

if inttostr (day+1)='31' then begin edit13. Text:='0'; Exit; end;

edit13. Text:=inttostr (day+1);

end;

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, StdCtrls;

type

TForm4 = class (TForm)

GroupBox1: TGroupBox;

Label1: TLabel;

DateTimePicker1: TDateTimePicker;

Button1: TButton;

procedure Button1Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit1;

{$R *. dfm}

procedure TForm4. Button1Click (Sender: TObject);

var q: String;

begin

q: =DateToStr (DateTimePicker1. Date);

with Form1 do

begin

Query1. Close;

Query1. SQL. Clear;

Query1. SQL. Add ('SELECT Familia, Ima, Otchestvo, DataVS, TipTransVS, ReysVS, TimeVS');

Query1. SQL. Add ('FROM HOT');

Query1. SQL. Add ('WHERE DataVS='+chr (39)+q+chr (39));

Query1. Open;

end;

end;

procedure TForm4. FormCreate (Sender: TObject);

begin

DateTimePicker1. Date:=Date;

end;

end.

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DB, Grids, DBGrids, DBTables;

type

TForm5 = class (TForm)

GroupBox1: TGroupBox;

Query1: TQuery;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Edit1: TEdit;

Label1: TLabel;

Button1: TButton;

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *. dfm}

procedure TForm5. Button1Click (Sender: TObject);

begin

Query1. Locate ('Familia', Edit1. Text, [loCaseInsensitive, loPartialKey]);

end;

end.

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, ComCtrls;

type

TForm6 = class (TForm)

GroupBox1: TGroupBox;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Query1: TQuery;

GroupBox2: TGroupBox;

GroupBox3: TGroupBox;

Edit1: TEdit;

Label1: TLabel;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

Label2: TLabel;

Label3: TLabel;

Button1: TButton;

Button2: TButton;

Label4: TLabel;

Button3: TButton;

Button4: TButton;

Query2: TQuery;

DataSource2: TDataSource;

DBGrid2: TDBGrid;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure Button4Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

Uses Unit10;

{$R *. dfm}

procedure TForm6. Button1Click (Sender: TObject);

var c, q, a: String;

i, sum: Integer;

begin

c: =DateToStr (DateTimePicker2. Date);

q: =DateToStr (DateTimePicker1. Date);

a: =Edit1. Text;

with Query2 do

begin

Close;

SQL. Clear;

SQL. Add ('select Yslyga, DataY, CenaY');

SQL. Add ('FROM Hot');

SQL. Add ('WHERE (NomerY='+chr (39)+a+chr (39)+') and (DataY between'+chr (39)+q+chr (39)+ 'AND' +chr (39)+c+chr (39)+')');

Open;

end;

//-------расчет по имени---------

with Query1 do

begin

Close;

SQL. Clear;

SQL. Add ('SELECT *');

SQL. Add ('FROM HOT');

SQL. Add ('WHERE (Nomer='+chr (39)+a+chr (39)+') and (Sostoanie="занят")');

Open;

end;

end;

procedure TForm6. Button2Click (Sender: TObject);

var i, sum, temp: Integer;

begin

Query2. First;

temp: =0;

while not Query2. Eof do

begin

sum: =Query2. Fields[2]. AsInteger;

temp: =sum+temp;

Query2. Next;

end;

Label4. Caption:='Вы должны: '+ FloatToStr (temp);

end;

procedure TForm6. Button3Click (Sender: TObject);

var i, j: Integer;

begin

for i: =0 to Query1. RecordCount-1

do if Query1. RecordCount<>0 then Query1. Delete;

for j: =0 to Query2. RecordCount-1

do if Query2. RecordCount<>0 then Query2. Delete;

end;

procedure TForm6. FormCreate (Sender: TObject);

begin

DateTimePicker1. Date:=date;

DateTimePicker2. Date:=date;

end;

procedure TForm6. Button4Click (Sender: TObject);

begin

Form10. QuickRep1. Preview;

end;

end.

unit Unit7;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComCtrls;

type

TForm7 = class (TForm)

GroupBox1: TGroupBox;

DateTimePicker1: TDateTimePicker;

Edit1: TEdit;

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

Button2: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

Uses Unit1, DB, DBTables;

{$R *. dfm}

procedure TForm7. Button1Click (Sender: TObject);

var sost: String;

begin

sost: ='на ремонте';

Form1. Query1. Close;

Form1. Query1. SQL. Clear;

Form1. Query1. SQL. Add ('SELECT * FROM HOT');

Form1. Query1. Open;

with Form1. Query1 do

begin

Insert;

Form1. Query1. FieldByName ('Nomer'). AsString:=Edit1. Text;

Form1. Query1. FieldByName ('Sostoanie'). AsString:=sost;

Form1. Query1. FieldByName ('RemontData'). AsDateTime:=DateTimePicker1. Date

Post;

end;

end;

procedure TForm7. Button2Click (Sender: TObject);

begin

Close;

end;

procedure TForm7. FormCreate (Sender: TObject);

begin

DateTimePicker1. Date:=date;

end;

end.

unit Unit8;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComCtrls;

type

TForm8 = class (TForm)

Button1: TButton;

GroupBox1: TGroupBox;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

DateTimePicker1: TDateTimePicker;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure Button1Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses Unit1;

{$R *. dfm}

procedure TForm8. Button1Click (Sender: TObject);

begin

with Form1. Query1 do

begin

Close;

SQL. Clear;

SQL. Add ('SELECT * FROM HOT');

Open;

end;

with Form1. Query1 do

begin

Insert;

FieldByName ('Yslyga'). AsString:=Edit1. Text;

FieldByName ('CenaY'). AsInteger:=StrToInt (Edit2. Text);

FieldByName ('NomerY'). AsInteger:=StrToInt (Edit3. Text);

FieldByName ('DataY'). AsDateTime:=DateTimePicker1. Date;

Post;

end;

MessageDlg ('данные добавлены', mtInformation,[mbOk], 0);

Edit1. Clear;

Edit2. Clear;

Edit3. Clear;

end;

procedure TForm8. FormCreate (Sender: TObject);

begin

DateTimePicker1. Date:=Date;

end;

end.

unit Unit9;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls;

type

TForm9 = class (TForm)

GroupBox1: TGroupBox;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Query1: TQuery;

private

{ Private declarations }

public

{ Public declarations }

end;

ПоказатьСвернуть
Заполнить форму текущей работой