Курсовая работа: Информационная система компьютерного клуба

FROM [центр данных];

9.Вывести информацию о самой ранней аренде компьютера

SELECT MIN([центр данных].время_аренды) AS Время

FROM [центр данных];

10.Вывести данные об аренде компьютера в заданное время

SELECT [Центр данных].Время_аренды, [Центр данных].Код_услуги, [Центр данных].Игрок, [Центр данных].Номер_компа

FROM Комп INNER JOIN (Услуги INNER JOIN ([Инфо игрока] INNER JOIN [Центр данных] ON [Инфо игрока].Игрок=[Центр данных].Игрок) ON Услуги.Номер_услуги=[Центр данных].Код_услуги) ON Комп.Номер_компа=[Центр данных].Номер_компа

WHERE ((([Центр данных].Время_аренды)=[ Введите время аренды ]));

11.Вывести данные об аренде компьютера в заданную дату.

SELECT [Центр данных].Дата_аренды, [Центр данных].Код_услуги, [Центр данных].Игрок, [Центр данных].Номер_компа

FROM Комп INNER JOIN (Услуги INNER JOIN ([Инфо игрока] INNER JOIN [Центр данных] ON [Инфо игрока].Игрок=[Центр данных].Игрок) ON Услуги.Номер_услуги=[Центр данных].Код_услуги) ON Комп.Номер_компа=[Центр данных].Номер_компа

WHERE ((([Центр данных].дата_аренды)=[ Введите дату аренды ]));

12.Вывести данные об услугах

SELECT Услуги.Номер_услуги, Услуги.Название, Услуги.Тариф

FROM Комп INNER JOIN (Услуги INNER JOIN ([Инфо игрока] INNER JOIN [Центр данных] ON [Инфо игрока].Игрок=[Центр данных].Игрок) ON Услуги.Номер_услуги=[Центр данных].Код_услуги) ON Комп.Номер_компа=[Центр данных].Номер_компа

GROUP BY Услуги.Номер_услуги, [Центр данных].Код_услуги, Услуги.Название, Услуги.Тариф

HAVING (("номер_компа"="номер_компа"));

4.5 Создание отчетов по базам данных с помощью приложений Office

Созданное приложение должно позволять создать отчеты по базе данных club.mdb, входящую в комплект стандартной поставки пакета MicrosoftOffice.

4.5.1 Создание отчета с помощью Microsoft Word . Откройте новое приложение в Delphi

Поместить на форму компонент TADOConection, два компонента TADODataSet и три компонента TButton ( рис.4.3). Свойствам Caption и Name присвоить значения из таблицы 1.

Таблица 4.1

Компонент	Свойство Caption	Свойство Name
Tbutton1	Отчет с использованием MSWord	Report_Word
Tbutton2	Отчет с использованием MSExcel	Report_Excel

Свойству ConnectionString объекта TADODataSet установить значение, которое связывало бы его с базой данных club.mdb.

Объявить глобальные переменные для объектов Application, Document, Range и Table:

Var Forml: TForm1;

// Range и Table

Wd, Doc, Rng, Tbl: Variant;

Свойствам CommandType и CommandText компонентов присвоить значения из таблицы 4.2.

Таблица 4.2

Компонент	Свойство CommandType	Свойство CommandText
TADODataSet1	cmdText	Select КодКлиента, Название, Город From Страны

Реализовываем генерацию табличного отчета в обработчике события OnClick компонента Buttonl:

procedure TForm1.Report_WordClick(Sender: TObject);