Курсовий проект
Туризм – це сфера соціально-економічного комплексу, яка в багатьох країнах перетворилась в високо розвинуту індустрію
Готельний сервіс є ключовим чинником, що визначає перспективи розвитку туризму.
Інформаційна база готелю
Концептуальна модель бази даних
UML – діаграма варіантів використання
UML – діаграма взаємодії
Кооперативна діаграма UML
UML – діаграма станів
База даних в Access
Схема бази даних готелю
Лістинг для відображення бази у програмі
Лістинг для здійснення пошуку
Дякую за увагу!
3.70M
Категория: ИнформатикаИнформатика

Інформаційна система готелю

1. Курсовий проект

НА ТЕМУ: «ІНФОРМАЦІЙНА СИСТЕМА ГОТЕЛЮ»
СТУДЕНТ: ВІНЧЕНКО ІРИНА ПЕТРІВНА
ВИКЛАДАЧ: ВЕЛИЧКО ПАВЛО ІВАНОВИЧ
ПРИХОЖЕНКО ВІКТОРІЯ БОРИСІВНА

2. Туризм – це сфера соціально-економічного комплексу, яка в багатьох країнах перетворилась в високо розвинуту індустрію

Туризм – це сфера
соціальноекономічного
комплексу, яка в
багатьох країнах
перетворилась в
високо розвинуту
індустрію

3. Готельний сервіс є ключовим чинником, що визначає перспективи розвитку туризму.

4. Інформаційна база готелю

Забезпечення сбіру та первісної обробки вихідної
інформації, необхідної за для підготовки звітності по
показникам діяльності
Зменшення паперових робіт
Систематизація даних
Узагальнення даних та підготовка звітів

5. Концептуальна модель бази даних

6. UML – діаграма варіантів використання

7. UML – діаграма взаємодії

8. Кооперативна діаграма UML

9. UML – діаграма станів

10. База даних в Access

Таблиця “Постояльці”
Таблиця “Номер”
Таблиця “Бронь”

11. Схема бази даних готелю

12.

Початкова форма.
Відкриття програми
Кінцева форма.
Робота з базою

13. Лістинг для відображення бази у програмі

procedure TForm2.FormCreate(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Postoyalci');
ADOQuery1.Active:=True;
end;

14. Лістинг для здійснення пошуку

procedure TForm2.Panel4Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT* FROM Postoyalci');
ADOQuery1.SQL.Add('WHERE [Familiya] LIKE '''+Edit1.Text+ '%' +'''');
ADOQuery1.Open;
end;
procedure TForm2.Panel5Click(Sender: TObject);
begin
Close;
end;
end.
Лістинг для здійснення пошуку

15. Дякую за увагу!

English     Русский Правила