|
Информационная система компьютерного клуба |
b>4.2 Создание отношений с помощью языка SQLВ языке SQL оператором создания таблиц является оператор CREATE TABLE. Ниже приводится построение таблиц БД «Компьютерный клуб» с помощью оператора CREATE TABLE.CREATE TABLE Админ( Админ VARCHAR (50) NOT NULL,ФИО VARCHAR (50) NOT NULL,Адрес VARCHAR (50) NOT NULL,Ставка NUMBER NOT NULL,PRIMARY KEY (Админ),FOREIGN KEY (Админ),REFERENCES Центр данных,ON DELETE CASCADE,ON UPDATE CASCADE)CREATE TABLE Инфо игрока( Игрок VARCHAR (50) NOT NULL,ФИО VARCHAR (50) NOT NULL,Адрес VARCHAR (50) NOT NULL,Комманда VARCHAR (50) NOT NULL,PRIMARY KEY (Игрок),ON DELETE CASCADE,ON UPDATE CASCADE)CREATE TABLE Девайс( Устройство VARCHAR (50) NOT NULL,Магазин VARCHAR (50) NOT NULL,Фирма VARCHAR (50) NOT NULL,Цена VARCHAR (50) NOT NULL,PRIMARY KEY (Устройство),FOREIGN KEY (Устройство),REFERENCES Модернизация,ON DELETE CASCADE,ON UPDATE CASCADE)CREATE TABLE Услуги(Номер_услуги VARCHAR (10) NOT NULL,Название VARCHAR (50) NOT NULL,Тариф MONEY NOT NULL,PRIMARY KEY (Номер_услуги),ON DELETE CASCADE,ON UPDATE CASCADE)CREATE TABLE Комп(Номер_компа VARCHAR (50) NOT NULL,Платформа VARCHAR (50) NOT NULL,MHz VARCHAR (50) NOT NULL,MonitorVideo VARCHAR (50) NOT NULL,Hdd VARCHAR (50) NOT NULL,Mouse VARCHAR (50) NOT NULL,Keyboard VARCHAR (50) NOT NULL,Headphones VARCHAR (50) NOT NULL,PRIMARY KEY (Номер_компа),ON DELETE CASCADE,ON UPDATE CASCADE)CREATE TABLE Центр данных(Номер_компа VARCHAR (50) NOT NULL,Дата_аренды DATE NOT NULL,Время_аренды DATE NOT NULL,Продолжительность NUMBER NOT NULL,Код_услуги VARCHAR (50) NOT NULL,Игрок VARCHAR (50) NOT NULL,Цена MONEY NOT NULL,Админ VARCHAR (50) NOT NULL,PRIMARY KEY (Номер_компа, Дата_аренды, Время_аренды, Продолжительность, Админ),FOREIGN KEY (Код_услуги),REFERENCES Услуги,ON DELETE CASCADE,ON UPDATE CASCADE,FOREIGN KEY ( Игрок)REFERENCES Инфо игрока,ON DELETE CASCADE,ON UPDATE CASCADE,FOREIGN KEY (Номер_компа),REFERENCES Комп,ON DELETE CASCADE,ON UPDATE CASCADE,)4.3 Заполнение базы данныхДанные заносятся с использованием форм) приведенных в приложении. При занесении данных следует обратить внимание на поддержание ограничений целостности по первичным и внешним ключам отношений согласно схеме базы данных,приведенной на рис.4.2. Рекомендуется вначале установить связи в схеме базы данных, а затем заносить данные, что предотвратит ошибки, возникающие при попытке внести данные, нарушающие ограничения целостности в базу данных и связанные с их идентификацией.Особое внимание следует уделить занесению NULL-значений. В теоретическом плане NULL-значения запрещены (значения атрибута атомарны), однако требования практики обусловили их использование в коммерческих пакетах. Следует учитывать разницу в описании NULL-значений в каждом из них. В разрабатываемом проекте NULL-значения задавались средствами пакета ACCESS.4.4 Создание запросов к базе данных компьютерный клубВ основном запросы используются для анализа данных. В данной курсовой работе были созданы такие запросы:1. Данные о дежурстве админа:SELECT Данные.Дата_аренды, Данные.админFROM Комп INNER JOIN (Услуги INNER JOIN ([Инфо игрока] INNER JOIN Данные ON [Инфо игрока].Игрок=Данные.Игрок) ON Услуги.Номер_услуги=Данные.Код_услуги) ON Комп.Номер_компа=Данные.Номер_компаWHERE (((Данные.Дата_аренды)=[ Введите дату аренды ]));2.Доход в заданную дату.SELECT Sum([Центр данных].Цена) AS СуммаFROM [Центр данных]WHERE ((([Центр данных].Дата_аренды)=[ Введите дату аренды ])); 3.Вывести игроков, которые не состоят в командахSELECT [Инфо игрока].игрок, [Инфо игрока].фио, [Инфо игрока].адресFROM [инфо игрока]WHERE [Инфо игрока].комманда Is Null;4.Вывести информацию, если заработано более 5 грн. SELECT [Центр данных].игрок, [Центр данных].Цена, [Центр данных].Номер_компа, [Центр данных].Дата_аренды, [Центр данных].Код_услуги, [Центр данных].АдминFROM [Центр данных]GROUP BY [Центр данных].игрок, [Центр данных].Цена, [Центр данных].Номер_компа, [Центр данных].Дата_аренды, [Центр данных].Код_услуги, [Центр данных].АдминHAVING ((([Центр данных].Цена)>5));5.Вывести данные о том, когда и на каком компьютере пользовались определённой услугй.SELECT Услуги.Название, [Центр данных].Номер_компа, [Центр данных].Дата_аренды, [Центр данных].Время_аренды, [Центр данных].ПродолжительностьFROM Комп INNER JOIN (Услуги INNER JOIN ([Инфо игрока] INNER JOIN [Центр данных] ON [Инфо игрока].Игрок=[Центр данных].Игрок) ON Услуги.Номер_услуги=[Центр данных].Код_услуги) ON Комп.Номер_компа=[Центр данных].Номер_компаWHERE (((Услуги.Номер_услуги)=[ Код услуги ]))ORDER BY [Центр данных].Дата_аренды; 6.Вывести сумму, заработанную определённым администраторомSELECT Sum([Центр данных].Цена) AS СуммаFROM [Центр данных]WHERE ((([Центр данных].админ)=[ Администратор ]));7.Вывести данные о работе клуба, отсортировать по дате и игрокуSELECT [Центр данных].Номер_компа, [Центр данных].Дата_аренды, [Центр данных].Время_аренды, [Центр данных].Продолжительность, [Центр данных].Код_услуги, [Центр данных].Игрок, [Центр данных].Цена, [Центр данных].АдминFROM [Центр данных]ORDER BY [Центр данных].Дата_аренды, [Центр данных].Игрок;8.Вывести информацию о самой поздней аренде компьютераSELECT MAX([центр данных].время_аренды) AS Время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, входящую в комплект стандартной поставки пакета Microsoft Office.4.5.1 Создание отчета с помощью Microsoft Word. Откройте новое приложение в DelphiПоместить на форму компонент TADOConection, два компонента TADODataSet и три компонента TButton ( рис.4.3). Свойствам Caption и Name присвоить значения из таблицы 1.Таблица 4.1|
Компонент | Свойство Caption | Свойство Name | | Tbutton1 | Отчет с использованием MS Word | Report_Word | | Tbutton2 | Отчет с использованием MS Excel | Report_Excel | | | Свойству ConnectionString объекта TADODataSet установить значение, которое связывало бы его с базой данных club.mdb .Объявить глобальные переменные для объектов Application, Document, Range и Table:Var Forml: TForm1;// Range и TableWd, Doc, Rng, Tbl: Variant;Свойствам CommandType и CommandText компонентов присвоить значения из таблицы 4.2.Таблица 4.2|
Компонент | Свойство CommandType | Свойство CommandText | | TADODataSet1 | cmdText | Select КодКлиента, Название, Город From Страны | | | Реализовываем генерацию табличного отчета в обработчике события OnClick компонента Buttonl:procedure TForm1.Report_WordClick(Sender: TObject);var I, Rcnt:integer;begin // Открываем базу данных и подсчитываем количество записей ADODataSet1.Open; Rcnt:=ADODataSet1.RecordCount; // Запускаем MS Word wd:= CreateOleObject('Word.Application'); // Отображаем на экране окно MS Word wd.Visible :=True; // Создаем новый документ wd.Documents.Add; Doc:= wd.Documents.Item(1); // Добавляем новый абзацDoc.Paragraphs.Add;// Меняем его стильDoc.Paragraphs.Item(1).Style:='Заголовок 1';// Создаем заголовок отчетаRng := Doc.Range(0);Rng.InsertBefore('Центр данных');// Создаем заголовки колонокDoc.Paragraphs.Add;Rng.InsertAfter('Комп: Игрок: Дата: Продолжительность: Код услуги: Админ');// Перемещаемся на первую запись набора данныхADODataSet1.First;for I := 1 to Rcnt do begin // Добавляем новый абзац Doc.Paragraphs.Add; // Добавляем поля из текущей записи в новый абзац Rng.InsertAfter(ADODataSet1.Fields[0].AsString+':'+ ADODataSet1.Fields[1].ASString+':'+ ADODataSet1.Fields[2].AsString+':'+ ADODataSet1.Fields[3].ASString+':'+ ADODataSet1.Fields[4].ASString+':'+ ADODataSet1.Fields[5].ASString); ADODataSet1.Next;end;// Превращаем текст в таблицуRng:=Doc.Range(Doc.Paragraphs.Item(3).Range.Start, Doc.Paragraphs.Item(Rcnt+3).Range.End);Tbl:=Rng.ConvertToTable(':',Rcnt,6);// Изменяем размеры колонок таблицы Tbl.Columns.Item(1).Width:=Tbl.Columns.Item(1).Width-30; Tbl.Columns.Item(2).Width:=Tbl.Columns.Item(2).Width+20; Tbl.Columns.Item(3).Width:=Tbl.Columns.Item(3).Width-3; Tbl.Columns.Item(4).Width:=Tbl.Columns.Item(4).Width+20; Tbl.Columns.Item(5).Width:=Tbl.Columns.Item(5).Width-5; Tbl.Columns.Item(6).Width:=Tbl.Columns.Item(6).Width+5; // Подавляем вывод диагностических сообщенийWd.DisplayAlerts:=False;// Сохраняем документDoc.SaveAs(D:\SOT\Custrep.doc');// Закрываем Word и освобождаем ресурсы//Wd.Quit;Wd:=Unassigned;end;Откомпилируйте приложение и проверьте работу кнопки «Отчет с использованием MS Word». При выполнении этого приложения создается документ с отчетом по базе данный club.mdb (рис.4.4).Пояснения к приведенному выше фрагменту кода.Во-первых, мы должны создать копию Microsoft Word, сделать ее видимой и создать новый документ.wd:= CreateOleObject('Word.Application'); // Отображаем на экране окно MS Word wd.Visible :=True; // Создаем новый документ wd.Documents.Add;Затем нужно создать заголовок отчета и заголовки колонок будущей таблицы, добавляя соответствующие абзацы и меняя их стили:// Добавляем новый абзацDoc.Paragraphs.Add;// Меняем его стильDoc.Paragraphs.Item(1).Style:='Заголовок 1';// Создаем заголовок отчетаRng := Doc.Range(0);Rng.lnsertBefore(Центр данных');// Создаем заголовки колонокDoc.Paragraphs.Add;Rng.InsertAfter('Комп: Игрок: Дата: Продолжительность: Код услуги: Админ');Затем следует, перемещаясь по записям набора данных, добавить в документ строки, соответствующие этим записям:// Перемещаемся на первую запись набора данныхADODataSet1.First;for I := 1 to Rcnt do begin // Добавляем новый абзац Doc.Paragraphs.Add; // Добавляем поля из текущей записи в новый абзац Rng.InsertAter(ADODataSet1.Fields[0].AsString+':'+ADODataSet1.Fields[1].ASString+':'+ ADODataSet1.Fields[2].AsString+':'+ ADODataSet1.Fields[3].ASString+':'+ ADODataSet1.Fields[4].ASString+':'+ ADODataSet1.Fields[5].ASString); ADODataSet1.Next;end;Далее мы превращаем набор строк в таблицу Word и изменяем ширину ее колонок так, чтобы корректно отобразить содержащиеся в ней данные:// Превращаем текс в таблицуRng:=Doc.Range(Doc.Paragraphs.Item(3).Range.Start, Doc.Paragraphs.Item(rcnt+3).Range.End); Tbl:=Rng.ConvertToTable(':',rcnt.3);// Изменяем размеры колонок таблицы Tbl.Columns.Item(1).Width:=Tbl.Columns.Item(1).Width-30; Tbl.Columns.Item(2).Width:=Tbl.Columns.Item(2).Width+20; Tbl.Columns.Item(3).Width:=Tbl.Columns.Item(3).Width-3; Tbl.Columns.Item(4).Width:=Tbl.Columns.Item(4).Width+20; Tbl.Columns.Item(5).Width:=Tbl.Columns.Item(5).Width-5; Tbl.Columns.Item(6).Width:=Tbl.Columns.Item(6).Width+5;Теперь нам нужно сохранить документ, подавив при этом вывод диагностических сообщений Word:// Подавляем вывод диагностических сообщенийWd.DisplayAlerts:=False;Почему нужно избавиться от вывода диагностических сообщений? В общем случае приложения, подобные Word, можно запускать удаленно, например, с помощью средств DCOM или универсальных СОМ-клиентов, доступ к которым осуществляется по протоколам TCP/IP или HTTP/HTTPS. В этом случае у пользователя не будет возможности отвечать на вопросы диалоговых окон Word -- ведь физически он находится на другом компьютере; кроме того, некоторые режимы применения DCOM таковы, что пользовательский интерфейс DCOM-сервера (включая обработку им событий мыши и клавиатуры) может быть просто недоступен никому из пользователей. В этом случае диалоговое окно, созданное в оперативной памяти, получит сообщения о событии, связанном со щелчком на одной из кнопок этого окна, и не будет закрыто, и у пользователя создастся впечатление, что приложение «зависло».
Страницы: 1, 2, 3, 4
|
|
|
© 2003-2013
Рефераты бесплатно, курсовые, рефераты биология, большая бибилиотека рефератов, дипломы, научные работы, рефераты право, рефераты, рефераты скачать, рефераты литература, курсовые работы, реферат, доклады, рефераты медицина, рефераты на тему, сочинения, реферат бесплатно, рефераты авиация, рефераты психология, рефераты математика, рефераты кулинария, рефераты логистика, рефераты анатомия, рефераты маркетинг, рефераты релиния, рефераты социология, рефераты менеджемент. |
|
|