База данных гостиничного комплекса MDI-приложение

Создаем в нашем MDI приложении (см. л.р. №4) еще одно исполняемое окно «Запросы», в котором будем реализовывать наши сложные запросы в БД:
Создаем связь окна с родительской формой через Object Inspector, где также указываем что это форма вызываемая родительской независима от нее, т.е. делает окно всегда остающимся на экране поверх остальных окон не только данного приложения, но и всех других приложений, в которые может перейти пользователь (свойство formstyle /fsStayOnTop ). На рабочее оно выносим компоненты DbGrid1, Query1, DataSource1, Button1, Button2, Edit1. Для этих компонентов создаем определенную связь и производим все необходимые запросы, где получаем следующий вид нашей формы:
После того как все настройки произведены, реализовываем запросы в БД в соответствии с вариантом (в данном случае Гостиничный комплекс, см. приложение А).
Запросы:
1-й запрос: перечень фирм с забронироваными местами > 20
select Nazvanie_org, kol_nomerov from zakazchik, bron1 where(bron1.id_zakazchik=zakazchik.id_zak) AND (bron1.kol_nomerov>20)
2-й запрос: перечень постояльцев прожывающих в номерах типа "оптимальный"
select FIO, id_nomer, Time_zaseleniya from clients, nomer, time where (nomer.id_type=2) and (clients.id=time.id_client) and (nomer.id_client=clients.id)
3-й запрос: кол-во свободных номеров на данный момент
select id_nomer from nomer where (id_client=0)
4-й запрос: кол-во свободных номеров типа «люкс»
select id_nomer from nomer where (id_client=0) and(nomer.id_type=1)
5-й запрос: Характеристика номера №5
select Etazh, Mestnost1,Class, Vid from nomer, korpus,vid_nomera where (nomer.id_korp=korpus.id_korp)and(nomer.id_type=vid_nomera.id)and(nomer.id_nomer=5)
6- й запрос : Список занятых номеров
select id_nomer, Time_zaseleniya, Time_projivaniya from nomer, time where (time.id_client=nomer.id_client)
8-й запрос: Список клиентов и их жалоб
select FIO, Soderganie from clients, zhalobu where (clients.id=zhalobu.id_client)
10-й запрос: Сведенья о постояльце, его жалобах услугах и счетах
select FIO, Soderganie,type_uslygi.Nazvanie, type_uslygi.Cena, uslygi.Data from clients, zhalobu, type_uslygi, uslygi where (clients.id=2) and (zhalobu.id_client=clients.id) and (type_uslygi.id_type=clients.id) and (uslygi.id_type=clients.id)
11-й запрос: Сведенья о наибольших заказчиках
select Nazvanie_org, Data from zakazchik, bron1 where (zakazchik.id_zak=bron1.id_zakazchik) and (bron1.kol_nomerov>15)
14-й запрос: сведенья о конкретном человеке
select FIO, Time_zaseleniya, id_nomer,Vid, Nazvanie, Data, Cena from clients, time, nomer, vid_nomera, uslygi, type_uslygi where (clients.id=3) and (clients.id=time.id_client) and (clients.id=nomer.id_client) and (nomer.id_type=vid_nomera.id) and (uslygi.id_type=type_uslygi.id_type) and (clients.id=uslygi.id_client)
15-й запрос: сведенья о конкретном номере
select id_korp, Etazh, Mestnost1, Vid, FIO, Time_zaseleniya, Time_projivaniya from nomer, vid_nomera, clients, time where (clients.id=4) and (clients.id=nomer.id_client) and (clients.id=time.id_client) and (nomer.id_type=vid_nomera.id)
Листинг исполняемой формы:
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, ComCtrls, ToolWin, ExtCtrls,
Menus;
type
TForm3 = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Button1: TButton;
Button2: TButton;
Query1: TQuery;
Edit1: TEdit;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
s: string;
implementation
{$R *.dfm}
// Процедура кнопки закрытия окна
procedure TForm3.Button1Click(Sender: TObject);
begin
close;
end;
//Процедура кнопки запроса
procedure TForm3.Button2Click(Sender: TObject);
begin
Query1.Close();
Query1.SQL.Clear();
s:=Edit1.Text;
Query1.SQL.Add(s);
Query1.Open();
end;
end.
Вывод: в данной лабораторной работе мы научились создавать сложные запросы в базу данных с помощью MDI приложения, а также выполнять различные элементы управления.

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать полную версию