Разработка информационной подсистемы для администрации гостиницы "Парадайс" - Программирование, компьютеры и кибернетика курсовая работа
Главная
Программирование, компьютеры и кибернетика
Разработка информационной подсистемы для администрации гостиницы "Парадайс"
Создание модели базы данных информационной подсистемы администрации гостиницы. Информационное и программное обеспечение. Описания логической структуры программы, интерфейса. Требования к центральному процессору, оперативному запоминающему устройству.
посмотреть текст работы
скачать работу можно здесь
полная информация о работе
весь список подобных работ
Нужна помощь с учёбой? Наши эксперты готовы помочь!
Нажимая на кнопку, вы соглашаетесь с
политикой обработки персональных данных
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
2.1 Назначения и область применения
3. ИНФОРМАЦИОННОЕ И ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ
В современном обществе высокие информационные технологии стали фундаментальной инфраструктурой. В последнее десятилетие в мире наблюдается увеличение объема информации. Синхронно с этим процессом в ряде областей науки, техники и управления народно-хозяйственным комплексом появляется все больше задач, требующих для своего эффективного решения новых технологий обработки данных.
Актуальность темы работы обусловлена тем, что в современных условиях жесткой конкуренции успешно могут действовать лишь те субъекты хозяйствования, которые оперативно и эффективно обрабатывают информацию.
Речь идёт о разработке и освоении в производстве информационной подсистемы, с помощью которой можно было бы оперативно обрабатывать информацию и получать результаты. Эта подсистема проста в эксплуатации и понятна обычному пользователю.
Пояснительная записка к работе содержит следующие разделы:
1) Результаты обследования информационной подсистемы администрации гостиницы «Парадайс». В этом разделе была проанализирована информационная система гостиницы, сформулированы задачи проектирования информационной подсистемы администрации гостиницы «Парадайс».
2) Разработка базы данных и системы управления базой данных для администрации гостиницы. В данном разделе создана модель базы данных информационной подсистемы администрации гостиница. После генерации были разработаны система управления базой данных и приложения с помощью среды программирования Delphi 7.0.
3) Информационное и программное обеспечение. В этом разделе показаны функции информационной подсистемы гостиница. Была описана логическая структура программы, рассмотрены входные данные информационной подсистемы, показаны результаты тестирования информационной подсистемы.
4) Требования к техническому обеспечению. Здесь рассмотрены требования к центральному процессору, оперативной памяти, видеопамяти, свободного места на жестком диске, клавиатуре, манипулятору типа мышь.
5) Расчет технико-экономической эффективности проекта информационной подсистемы гостиница. В этой главе выявлены суммарные затраты на создание информационной подсистемы «гостиница». Рассчитаны технико-экономическая эффективность информационной подсистемы «гостиница» и время окупаемости информационной подсистемы «гостиница».
6) Безопасность жизнедеятельности проекта. В этом разделе проанализированы опасные основные и вредные факторы на рабочем месте. Рассчитано естественное освещение на рабочем месте оператора информационной подсистемы гостиница «Парадайс».
База данных администратора гостиницы. Полное наименование системы - автоматизированная информационная подсистемы учета и хранения архивной документации клиентов для гостиницы «Парадайс».
Программный продукт создан с применением языка программирования Delphi в среде компилятора Borland Delphi 7.0.
Разработать базу данных для администратора гостиницы. База данных должна содержать следующую информацию:
Информация о клиентах, которые проживают в гостинице:
16. фамилия администратора, оформившего данного клиента.
Информационная подсистема должна обеспечивать ввод и хранение архивных данных:
Информационная подсистема «гостиница» предназначена для автоматизации места администратора гостиницы «Атлантис». К основным функциям программы можно отнести следующие:
1. Информационная подсистема выполняет учет клиентов в гостинице.
2. Ведется учет заселенных номеров.
3. Ведется учет забронированных номеров.
4. Ведется учет номеров, поставленных на ремонт.
5. Информационная подсистема поддерживает ускоренные средства поиска информации о состоянии номеров.
6. У программы стандартный оконный интерфейс, от пользователя требуется лишь своевременное заполнение экранных форм.
Программный продукт тестировался на работоспособность на компьютере с необходимым, установленным программным обеспечением (Borland Delphi 7.0.).
Для полноценной работы базы данных необходимо наличие всех компонентов данного программного продукта: модули и таблицы с данными.
2.1 Назначения и область применения
Данная программа применима в деятельности Службы быта, справочного бюро.
Программа написана на языке программирования Delphi в среде компилятора Borland Delphi 7.0. Кроме того необходимо наличие Microsoft ActiveX Data Objects (ADO) - машина баз данных Borland. Представляет собой набор DLL -библиотек, обеспечивающих низкоуровневый доступ к локальным и клиент-северным БД. Должна устанавливаться на каждом компьютере, который использует приложения для работы с БД, написанные для Delphi.
К основным функциям программы можно отнести следующие:
1. Информационная подсистема выполняет учет клиентов в гостинице.
2. Ведется учет заселенных номеров.
3. Ведется учет забронированных номеров.
4. Ведется учет номеров, поставленных на ремонт.
5. Информационная подсистема поддерживает ускоренные средства поиска информации о состоянии номеров.
6. У программы стандартный оконный интерфейс, от пользователя требуется лишь своевременное заполнение экранных форм.
После заполнения даты в окне приложения встретить появиться таблица, показанная на рисунке 4.6.
Рисунок 4.6 - Таблица окна приложения «Встретить»
Для проживающих клиентов гостиница предоставляет ряд услуг, отдельно оплачиваемых. Чтобы знать, сколько клиент должен будет, и за какие виды услуг необходимо заполнять окно приложения «услуга», которое показано на рисунке 4.7. Зайти пункт меню «Сервис» - «услуга».
Рисунок 4.7 - Окно приложения «услуга»
По окончанию проживания в гостинице делается расчет клиента с гостиницей. В пункте меню выбирается пункт меню «Рассчитать». После этого появится окно приложения «Выписать» (Рисунок 4.8)
Рисунок 4.7 - Окно приложения «Выписать»
Выбирается гостиничный номер, из которого клиенты выписываются, ставим дату вселения и выселения и щелкаем по кнопке «выполнить». После этого на экране выводятся услуги, которые заказывали клиенты и щелкаем по кнопке «просчитать». Теперь известно сколько клиент должен гостинице в сфере предоставления услуг.
Когда клиент расплатился щелкаем по кнопке «удалить». Записи удаляются из таблицы состояния и остаются в таблице базы данных «архив клиентов». Для просмотра архива клиентов необходимо зайти пункт меню «БД» -- «архив клиентов» (Рисунок 4.8).
Рисунок 4.8 - Подпункт меню «архив клиентов»
Откроется таблица базы данных «Архив», который показан на рисунке 4.9.
Рисунок 4.9 - Таблица базы данных «архив клиентов»
Информационная подсистема «гостиница» работает под операционной системой Windows 98 и выше. Для стабильной работы информационной подсистемы рекомендуемый ресурс 128 Мбайта оперативной памяти. Минимальный объем ОЗУ составляет 64 Мбайта.
После запуска подсистемы, были произведены следующие проверки:
а) Ввод в окна приложений данных подсистемы были произведены без проблем.
б) В таблице базы данных «Выселение» был произведен расчет клиента за обслуживание номеров. Ошибок не обнаружено.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, Grids, DBGrids, DB, DBTables, StdCtrls;
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);
Uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;
procedure TForm1.N2Click(Sender: TObject);
procedure TForm1.N9Click(Sender: TObject);
procedure TForm1.N10Click(Sender: TObject);
procedure TForm1.N6Click(Sender: TObject);
Query1.SQL.Add('SELECT Nomer, Familia, Sostoanie, Data_zaezda, Data_viezda FROM HOT WHERE Sostoanie="занят"');
procedure TForm1.N7Click(Sender: TObject);
Query1.SQL.Add('SELECT Nomer, Familia, Sostoanie, Data_zaezda, Data_viezda FROM HOT WHERE Sostoanie="бронирован"');
procedure TForm1.N13Click(Sender: TObject);
procedure TForm1.N3Click(Sender: TObject);
procedure TForm1.N14Click(Sender: TObject);
procedure TForm1.N12Click(Sender: TObject);
procedure TForm1.N15Click(Sender: TObject);
Query1.SQL.Add('SELECT Nomer, Sostoanie, RemontData FROM HOT WHERE Sostoanie="на ремонте"');
procedure TForm1.N16Click(Sender: TObject);
procedure TForm1.Button1Click(Sender: TObject);
procedure TForm1.Button2Click(Sender: TObject);
Query1.Locate('Familia', Edit1.Text, [loCaseInsensitive, loPartialKey]);
procedure TForm1.N17Click(Sender: TObject);
Query1.SQL.Add('SELECT Nomer, Data_zaezda, Data_viezda, Familia, Predoplata FROM HOT WHERE Sostoanie="занят"');
procedure TForm1.N4Click(Sender: TObject);
Query1.SQL.Add('SELECT * FROM HOT');
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Edit9DblClick(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure DateTimePicker2Change(Sender: TObject);
procedure TForm2.Button1Click(Sender: TObject);
Form1.Query1.SQL.Add('SELECT * FROM HOT');
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;
MessageDlg( 'данные добавлены', mtInformation, [mbOk], 0);
(Components[E] AS TEdit).Text :='';
procedure TForm2.Button2Click(Sender: TObject);
procedure TForm2.Edit9DblClick(Sender: TObject);
var nach, konec, chislo: TDateTime;
procedure TForm2.Button3Click(Sender: TObject);
procedure TForm2.FormCreate(Sender: TObject);
procedure TForm2.DateTimePicker2Change(Sender: TObject);
var nach, konec, chislo: TDateTime;
if inttostr(day+1)='32' then begin edit9.Text:='1'; Exit; end;
if inttostr(day+1)='31' then begin edit9.Text:='0'; Exit; end;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure DateTimePicker2Change(Sender: TObject);
procedure TForm3.Button2Click(Sender: TObject);
procedure TForm3.Button1Click(Sender: TObject);
Form1.Query1.SQL.Add('SELECT * FROM HOT');
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;
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;
MessageDlg( 'данные добавлены', mtInformation, [mbOk], 0);
(Components[E] AS TEdit).Text :='';
procedure TForm3.Button3Click(Sender: TObject);
procedure TForm3.FormCreate(Sender: TObject);
procedure TForm3.DateTimePicker2Change(Sender: TObject);
var nach, konec, chislo: TDateTime;
if inttostr(day+1)='32' then begin edit13.Text:='1'; Exit; end;
if inttostr(day+1)='31' then begin edit13.Text:='0'; Exit; end;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure TForm4.Button1Click(Sender: TObject);
q:=DateToStr(DateTimePicker1.Date);
Query1.SQL.Add('SELECT Familia, Ima, Otchestvo, DataVS, TipTransVS, ReysVS, TimeVS');
Query1.SQL.Add('WHERE DataVS='+chr(39)+q+chr(39));
procedure TForm4.FormCreate(Sender: TObject);
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, Grids, DBGrids, DBTables;
procedure Button1Click(Sender: TObject);
procedure TForm5.Button1Click(Sender: TObject);
Query1.Locate('Familia', Edit1.Text, [loCaseInsensitive, loPartialKey]);
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, ComCtrls;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure TForm6.Button1Click(Sender: TObject);
c:=DateToStr(DateTimePicker2.Date);
q:=DateToStr(DateTimePicker1.Date);
SQL.Add('select Yslyga, DataY, CenaY');
SQL.Add('WHERE (NomerY='+chr(39)+a+chr(39)+') and (DataY between'+chr(39)+q+chr(39)+ 'AND' +chr(39)+c+chr(39)+')' );
SQL.Add('WHERE (Nomer='+chr(39)+a+chr(39)+') and (Sostoanie="занят")');
procedure TForm6.Button2Click(Sender: TObject);
Label4.Caption:='Вы должны: '+ FloatToStr(temp);
procedure TForm6.Button3Click(Sender: TObject);
do if Query1.RecordCount<>0 then Query1.Delete;
do if Query2.RecordCount<>0 then Query2.Delete;
procedure TForm6.FormCreate(Sender: TObject);
procedure TForm6.Button4Click(Sender: TObject);
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure TForm7.Button1Click(Sender: TObject);
Form1.Query1.SQL.Add('SELECT * FROM HOT');
Form1.Query1.FieldByName('Nomer').AsString:=Edit1.Text;
Form1.Query1.FieldByName('Sostoanie').AsString:=sost;
Form1.Query1.FieldByName('RemontData').AsDateTime:=DateTimePicker1.Date
procedure TForm7.Button2Click(Sender: TObject);
procedure TForm7.FormCreate(Sender: TObject);
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure TForm8.Button1Click(Sender: TObject);
FieldByName('Yslyga').AsString:=Edit1.Text;
FieldByName('CenaY').AsInteger:=StrToInt(Edit2.Text);
FieldByName('NomerY').AsInteger:=StrToInt(Edit3.Text);
FieldByName('DataY').AsDateTime:=DateTimePicker1.Date;
MessageDlg('данные добавлены', mtInformation,[mbOk], 0);
procedure TForm8.FormCreate(Sender: TObject);
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls;
Создание логической модели базы данных информационной подсистемы "Computers". Ввод атрибутов, первичных ключей сущностей базы данных. Требования к центральному процессору, монитору, принтеру. Оценка экономической эффективности внедрения программы. дипломная работа [1,2 M], добавлен 01.07.2011
Разработка автоматизированной информационной подсистемы учета свидетельств обязательного пенсионного страхования для Управления Пенсионного фонда России. Атрибуты сущностей базы данных, создание интерфейса формы и описание логической структуры программы. дипломная работа [7,5 M], добавлен 24.06.2011
Варианты использования информационной подсистемы "InventoryManagement". Основные проблемные ситуации, возникающие при функционировании, методы и средства для их решения. Информационное и программное обеспечение подсистемы. Разработка базы данных. дипломная работа [6,7 M], добавлен 29.06.2011
Характеристика структуры локальной вычислительной сети планового отдела. Обоснование выбора среды разработки Windows-приложения. Анализ создания шаблона модели базы данных. Требования к центральному процессору и оперативному запоминающему устройству. дипломная работа [1,9 M], добавлен 10.02.2018
Проектирование базы данных, информационной подсистемы PLC-Tester, модуля тестирования и web-приложения. Разработка логической структуры программного продукта и общие требования к техническому обеспечению. Запуск программы и описание тестовых прогонов. дипломная работа [3,2 M], добавлен 30.06.2011
Создание приложения для регистрации оружия для отдела лицензионно-разрешительных работ УВД по Ставрополю. Написание программы в среде Microsoft Visual Studio. Разработка логической, физической и датологической модели базы данных информационной подсистемы. дипломная работа [5,3 M], добавлен 24.06.2011
Оценка организационной структуры и процесс реализации информационной подсистемы отдела менеджмента предприятия. Требования к информационной подсистеме и техническому обеспечению. Технико-экономическое обоснование разработки информационной подсистемы. дипломная работа [2,1 M], добавлен 29.06.2011
Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д. PPT, PPTX и PDF-файлы представлены только в архивах. Рекомендуем скачать работу .
© 2000 — 2021
Разработка информационной подсистемы для администрации гостиницы "Парадайс" курсовая работа. Программирование, компьютеры и кибернетика.
Курсовая работа по теме Педагогические условия и особенности театрализованных игр
Контрольная работа по теме План развития ОАО "Кукморский Маслодельно-Молочный комбинат" п.г.т. Кукмор Республики Татарстан на 2009-2022 годы
Сочинение Что Такое Доброта 9 Класс
Обязательное Медицинское Страхование Дипломная Работа
Контрольная работа по теме Нормативно-правовая база органов государственной власти субъектов РФ
Страницы Реферата Образец
Курсовая работа по теме Підвищення якості знань учнів з природознавства засобами проектної технології
Курсовая работа по теме Соціальна робота з людьми літнього та старого віку
Реферат по теме Религия как потребность мировоззрения
Реинжиниринг Бизнес Процессов Курсовая
Сочинение: Обломов и обломовщина в романе И. А. Гончарова Обломов 3
Реферат по теме Катализаторы риформинга нефтяных фракций
Особенности Конфликта В Пьесе Островского Гроза Сочинение
Типы Образовательных Учреждений Реферат
Дипломная работа по теме Дидактическая игра как средство сенсорного развития детей раннего возраста
Дипломная работа по теме Лизинговые операции коммерческих банков
Дипломная работа по теме Явление эвфемии в современном русском и английском языках
Курсовая работа по теме Роль финансовых ресурсов предприятий в развитии территории
Развитие Кадров Реферат
Инвестиции Курсовая Работа
Подготовка публикаций в текстовом редакторе Word с использованием графики - Программирование, компьютеры и кибернетика курсовая работа
Система управленческой деятельности предприятия как главный фактор прибыльности предприятия - Менеджмент и трудовые отношения курсовая работа
Основы саморегуляции и медитации организма - Медицина реферат