була розроблена інформаційна підсистема для адміністрації готелю В«ПарадайсВ». У процесі розробки проекту було виконано. p align="justify"> Розроблено базу даних і система управління базою даних для готелю В«ПарадайсВ».
Інформаційна підсистема готелю В«ПарадайсВ» призначена для автоматизації даного готелю і виконує введення, зберігання, коригування даних.
Для нормальної роботи інформаційної підсистеми готель необхідно: операційна система Windows 98/ME/NT4.0/2000/XP, процесор з тактовою частотою не нижче 133 МГц, обсяг оперативної пам'яті залежить від операційної системи, яка встановлена на персональному комп'ютері, якщо це Windows 98/ME, то для нормальної роботи інформаційної підсистеми потрібна 64 Мбайта оперативної пам'яті встановленої на персональний комп'ютер, а якщо Windows NT4.0/2000/XP, тоді потрібно встановити 128 Мбайт оперативної пам'яті, відеокарта не менше 4 Мбайт, вільного місця на жорсткому диску для встановлення програми разом з базою даних, в якій зберігаються фактичні дані необхідні для роботи інформаційної підсистеми - повинно бути не менше 5 Мбайт, клавіатура, маніпулятор типу миша.
Список використаної літератури
1. <# "justify"> Додаток
Основний модуль
unit Unit1;
interface
uses, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, Grids, DBGrids, DB, DBTables, StdCtrls; = class (TForm): TGroupBox;: TMainMenu;: TMenuItem ;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TButton;: TButton;: TMenuItem;: TGroupBox;: TEdit;: TMenuItem;: TDataSource;: TDBGrid;: TQuery; N2Click (Sender: TObject); N9Click (Sender: TObject); N10Click (Sender: TObject); N6Click (Sender: TObject); N7Click ( Sender: TObject); N13Click (Sender: TObject); N3Click (Sender: TObject); N14Click (Sender: TObject); N12Click (Sender: TObject); N15Click (Sender: TObject); N16Click (Sender: TObject); Button1Click (Sender : TObject); Button2Click (Sender: TObject); N17Click (Sender: TObject); N4Click (Sender: TObject); FormMouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);
{Private declarations}
{Public declarations};: TForm1; Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;
{$ R *. dfm} TForm1.N2Click (Sender: TObject);;; TForm1.N9Click (Sender: TObject);. Show;; TForm1.N10Click (Sender: TObject);. Show ;; TForm1.N6Click (Sender: TObject);. Close;. SQL.Clear;. SQL.Add ('SELECT Nomer, Familia, Sostoanie, Data_zaezda, Data_viezda FROM HOT WHERE Sostoanie = "зайнятий"');. Open; ; TForm1.N7Click (Sender: TObject);. Close;. SQL.Clear;. SQL.Add ('SELECT Nomer, Familia...
