Реферат: База данных 3

Само задание:

Учет движения продуктов по складу горюче-смазочных материалов. Составить базу данных, полями которой являются: шифр продукта, наиме­нование продукта, объём, признак прибытие/убытие, дата, наименование (фамилия) потребителя/поставщика номер счёта потребителя/поставщика, адрес, телефон и др. Вывести динамику поступления-убытия каждого кон­кретного продукта, а также общий объём движения продуктов на складе ГСМ (сколько прибыло и убыло за текущий месяц).

Что нужно проделать

ЛАБОРАТОРНАЯ РАБОТА №1

ОСНОВЫ ПОСТРОЕНИЯ БАЗЫ ДАННЫХ

В СРЕДЕ BORLAND DELPHI

Определение структуры таблицы

Например, в учебном управлении высшего учебного за­ведения необходимо хранить информацию о студентах заведения: № зачётной книжки, шифр группы, ФИО, год рождения, пол, предмет, среднюю оценку по предмету.

Таблица БД пред­ставляет собой обычную двумерную таблицу с характеристи­ками (атрибутами) какого-то множества объектов и имеющая имя - идентификатор, по которому на неё можно сослаться.

Таблица 1. Данные о студентах

Например, для таблицы введём для последующих ссылок имена полей Zach , Group , Fam , Nam , Par , Year _ b , Sex , Pred , Oz , соответ­ствующие указанным в ней заголовкам полей.

Тип поля характеризует тип хранящихся в поле данных. Это могут быть строки, числа, булевы значения,большие тексты (на­пример характеристики сотрудников),изображения (фотографии) и т.п.

Каждая строка таблицы соответствует одному из объектов. Она называется записью и содержит значения всех полей, харак­теризующих данный объект.

При построении таблиц БД важно обеспечить непротиворе­чивость информации. Это делается введением ключевых полей , обеспечивающих уникальность каждой записи. Ключе­вым может быть одно или несколько полей. В приведённом примере можно было бы сделать ключевыми совокупность полей Fam , Nam и Par . Но в этом случае нельзя было бы заносить в таб­лицу сведения о полных однофамильцах, у которых совпадают фамилия, имя и отчество. Поэтому целесообразнее использовать поле Zach – номер зачётной книжки, которое можно сделать клю­чевым, по­скольку номер зачётной книжки не может быть одинаковым у двух студентов.

В каждый момент времени есть некоторая текущая запись, с которой ведётся работа. Записи в таблице БД физиче­ски могут располагаться без какого-либо порядка, просто в по­следовательности их ввода (появления новых студентов). Но когда данные таблицы предъявляются пользователю, они должны быть упорядочены. Для упорядочения данных в БД, так же, как и для упорядочения данных в массивах, используется понятие индекса. Индекс показывает, в какой последовательности будет просматриваться таблица. Часто индексы хранятся от­дельно от файла с данными. Для быстрой сортировки обычно ин­дексы выносят в отдельный индексный файл с тем же названием, но с другим расширением. В таком файле содержатся только пер­вичные ключи и описание очередности записей. Основной же файл при этом остается неупорядоченным. Т. к. индексный файл на­много меньше файла объектов, сортировка по индексу происходит гораздо быстрее, чем сортировка основного файла.

Индексы могут быть первичными и вторичными. Например, первичным индексом могут служить поля, отмеченные при соз­дании таблицы как ключевые. А вторичные индексы могут созда­ваться для других полей как при создании таблицы, так и впоследствии. Вторичным индексам присваиваются идентификато­ры, по которым их можно использовать.

Если индекс включает в себя несколько полей, то упорядо­чение БД сначала осуществляется по первому полю, а для за­писей, имеющих одинаковое значение первогополя, по второму полю. Например, таблицу о студентах можно проиндексировать по группам, а внутри каждой группыпо алфавиту.

Создание файла таблицы данных

Для работы с базами данныхнаиболее распространённых форматов можно использовать утилиту Database Desktop , постав­ляемую в составе большинства продуктов корпорации Inprise (Borland). При установке Delphi создаётся типовая структура каталогов и меню "Пуск" Windows, а в меню "Пуск"Прог paммы->Borland Delphi->Database Desktop .

Создание таблицы базы данных осуществляется выбором опции меню File->New->Table послезапускаутилитыDatabase Desktop .

ВпоявившемсядиалогеCreate Table выбираетсятиптабли­цы (изизвестныхстандартных – например,Paradox, Access, dBase, InterBase, Oracle ит.д.).

В этой работе используется наиболее простой тип плоских таблиц dBase for Windows .

В диалоге задания структуры указываются: 1. имя поля (FieldName) 2. тип (Type) 3. размер (Size) 4. число десятичных знаков (Dec) и др.

В dBaseforWindows используются типы полей: Character ( C ) - символьное; Float ( F ) - вещественное (с вы­сокой точностью); Number ( N ) - целое, вещественное (с точностью в 2 десятичных знака); Date ( D ) - дата; Logical ( L ) - логическое; Мето(М) - текстовое без ограничениядлины; Binary ( B ) - двоич­ное (рисунки и другие объекты).

Выбор типа поля осуществляется нажатием клавиши <пробел> или правой клавишей «мыши».

Для примера БД студентов учебного заведения структура файла таблицы может быть представлена в виде (рис. 2).

Рис. 2 Диалог задания структуры таблицы

Изменение кодовой страницы для поддержки русского язы­ка осуществляется следующим образом: в окошке Table Properties из выпадающего списка выбирается пункт Table Language , после чего необходимо нажать кнопку Modify ; в появившемся диалоге Table Language указывается кодовая страница dBase RUScpp 866.

После задания структуры таблицы, её сохранение произво­дится выбором кнопки Save As . В диалоге указывается имя файла таблицы (например, stud . dbf ).

Если необходимо в дальнейшем изменить структуру табли­цы, следует открыть таблицу в Database Desktop и выбрать в главном меню пункты Table -> Restructure .

После создания таблицы возможно её редактирование и использование в при­кладных программах.

Разработка приложения для работы с таблицей данных

Для разработки системы управлениябазой данных можно воспользоваться как стандартными СУБД (Access, Paradox, dBase и т.д.), так и разработать самостоятельное приложение для работы с БД.

Разработка самостоятельного приложения для работы с БД имеет ряд преимуществ по сравнению с использованием готовых пакетов:

1) ресурсы ОС задействованы только для тех задач, которые будут реализованы в СУБД;

2) полученные программные модули очень компактны;

3) обеспечивается более высокое быстродействие вследствие использования только необходимых для решения задачи операций с БД;

4) многообразие реализаций максимально удобного интерфейса пользователя с СУБД;

5) возможность интегрироваться в любые программные приложения;

6) осуществление расчётных задач сложности, которая не может быть обеспечена применением готовых СУБД.

Для разработки системы управлениябазой данных восполь­зуемся интегрированной средой визуальной разработки Windows-приложений Borland Delphi. Одним из важнейших достоинств Delphi является на­личие удобных средств быстрой визуальнойразработки приложе­ний с использованием специализированных компонент доступа и управления базами данных, генерации отчётов, запросов SQL, a так же наличие технологии BorlandDatabaseEngine (BDE), обеспечи­вающей доступ к большинству известных баз данных с использо­ванием их собственных драйверов.

Для программирования баз данныхиспользуются следую­щие вкладки палитры компонент: Data Access и Data Control (рис. 3, 4, 5).

Рис. 3. Палитра компонентов Borland Delphi

Рис . 4. Вкладка Data Access

Вкладка Data Access содержит компоненты:

Table (второй слева) - связывающий файл таблицы на диске с приложением и позволяющий оперировать с таблицей (второй компонент).

DataSource (первый слева) - связывает компоненты ото­бражения информации с компонентом Table (первый компонент).

Рис. 5. Вкладка DataControl

Вкладка Data Control содержит компоненты:

DBGrid - для отображения и редактирования записей базы данных (первый компонент)

DBNavigator - для управления данными (удаление, добавле­ние, перемещение и т. д.)

Компоненты переносятся на окно приложения (форму) путём выделения компоненты нажатием правой клавиши мыши на ней, а затем на форме.

Компоненты вкладки Data Access являются служебными и от­носятся к невидимым (т. е. отображаются на стадии разработки приложения и не отображаются в процессе выполнения), aData Control к отображаемым как в процессе разработки, так и в про­цессе выполнения.

После переноса компонент на форму производится настройка свойств объектов с использованием Object Inspector .

Основные свойства объекта Table :

Name - имя объекта используемое в программе (является указателем, заданным в соответствии с шаблоном компоненты); DatabaseName - имя псевдонима (alias) базы данных (выби­рается из списка, если таблица и проектнаходятся в одном ката­логе необязательный параметр!); TableName - имя файла таблицы (выбирается из списка, ес­ли указан псевдоним БД или файл с таблицей и проект находятся в одном каталоге); Active - позволяет отображать данные из таблицы в процес­се разработки и автоматически открывает файл при выполнении (когда установлено true).

Служебная компонента DataSource выполняет роль свя­зующего звена и имеет следующие свойства:

Name - имя объекта используемое в программе (является указателем, заданным в соответствии с шаблоном компоненты); DataSet - имя таблицы связанной с данным объектом (вы­бирается из списка).

Объект Table позволяет приложению работать с таблицей, но для отображения данных на экране необходимо использовать компоненту DBGrid .

Основные свойства объекта DBGrid: Name - имя объекта используемое в программе (является указателем, заданным в соответствии с шаблоном компоненты); DataSource – имя источника данных, посредством которого осуществляется связь объекта DBGrid с объектом Table (выбира­ется из списка).

Объект DBGrid позволяет не толькоотображать данные, но и управлять ими (перемещаться по записям, добавлять и редакти­ровать записи и т.д.). Однако ряд действий эффективней выпол­нять с использованием объекта DBNavigator .

Основные свойства объекта DBNavigator: Name – имя объекта (указатель); DataSource – имя источника данных, посредством которого осуществляется управление компонентой Table , выбирается из спи­ска (рис. 6).

Рис. 6 Свойства компонент Table и DataSource

На рис. 7 показана структурная схема взаимодействия компонент приложения для работы с базой данных.

Рис. 7. Взаимодействие компонент приложения

После размещения на форме всех необходимых компонент и настройки их свойств получим макет приложения, показанный на рис. 8.

Рис. 8 Макет формы приложения для работы с таблицей stud

После компиляции и запуска приложения возможна работа с исходной однотабличной БД – ввод, сохранение, удаление и редактирование данных, перемещение по записям таблицы. Вводимая в поля таблицы информация должна соответствовать указанному при создании таблицы типу поля и не превышать длину поля (в этом случае ввод символов за границей длины поля будет невозможен).

Рис. 9 Внешний вид работающего приложения

Структура проекта приложения

При работе с БД можно выделить три группы фай­лов, которые создаются интегрированной средой и содержат программный код, необходимый для компиляции проекта:

1. проектные файлы (приводятся имена, используемые по умолчанию для первого созданного в среде проекта):

Project1 .dof - проектный файл компоновки, описывающий все файлы, входящие в проект;

Project1.dpr - файл, отвечающий за запуск приложения;

Project1.res - файл ресурсов (курсоры, пиктограммы и т.д.).

2. файлы, относящиеся к формам приложения (имена, используемые по умолчанию Delphi для первой созданной формы):

Unit1 .pas - исходные тексты программы, содержащие обра­ботчики событий класса TForm1;

Unit1 .dfm - файл с описанием формы, её визуальных объек­тов и их свойств.

3. Файлы данных: файлы таблиц, индексов и т.д.

При использовании формата dBaseforWindows файлы таблиц имеют расширение *.dbf, а файлы индексов *.mdx.

Пример реализации БД о студентах

Постановка задачи: необходимо организовать хранение информации о студентах: № зачётной книжки, шифр группы, ФИО, год рождения, пол, предмет, среднюю оценку по предмету.

А. Определим структуру базы и введём условные обозначения:

Zach – номер зачётной книжки, целое 6 знаков;

Group – шифр группы, символьное, 4 символа;

Fam – фамилия символьное, 20 символов;

Nam – имя символьное, 20 символов;

Par – отчество символьное, 20 символов;

Year_b – год рождения, целое, 4 знака;

Sex – пол символьное, 1 символ;

Pred – предмет символьное, 10 символов;

Oz – оценка целое, 4 целых знака, 2 десятичных.

В. Разработаем таблицу с соответствующей структурой. Для этого необходимо запустить утилиту DatabaseDesktop, выбрать опции меню File->New и заполнить соответствующие ячейки диалога задания структуры в соответствии с выбранной структурой (пункт А, рис. 2). После этого необходимо сохранить таблицу на диске в своём рабочем каталоге.

С. Создадим Windows -приложение для работы с данными. Для этого необходимо запустить среду BorlandDelphi, выбрать опции меню File->New->Application, после чего откроется новый проект приложения. Далее следует перенести на макет формы приложения компоненты Table, DataSource, DBGrid, DBNavigator и настроить их свойства в соответствии с табл. 2.

Таблица 2. Свойства компонент приложения

Внешний вид макета формы приложения должен соответствовать рис. 8.

После этого необходимо откомпилировать проект и осуществить ввод данных в таблицу (рис. 9).

ЛАБОРАТОРНАЯ РАБОТА №2

СОЗДАНИЕ WINDOWS-ПРИЛОЖЕНИЯ ДЛЯ РАБОТЫ С БАЗОЙ ДАННЫХ. ГЕНЕРАЦИЯ ОТЧЕТОВ.

Обработка информации однотабличной базы данных

Помимо хранения, редактирования, обновления и анализа данных в базе данных (БД), на практике часто возникает задача осуществления разного рода расчётов и вычислений с использованием хранящейся в БД информации. Например, для базы данных, хранящей информацию о студентах учебного заведения (см. методические указания к лабораторной работе №1) может возникнуть задача расчёта средней оценки студента по конкретному предмету или расчёта успеваемости группы. Поскольку требуемые расчёты могут быть довольно сложные, необходимо использование программных пакетов разработки приложений, объединяющих в себе как удобные средства доступа к БД различных форматов, так и гибкий язык программирования. С этой точки зрения наиболее удобным инструментом является среда визуальной разработки Windows-приложений Borland Delphi , обеспечивающая доступ к информации БД практически всех существующих форматов и возможность её обработки, используя язык Delphi .

Визуальная навигация и управление данными в Borland Delphi производится с помощью компонент просмотра ( DBGrid ) и управления ( DBNavigator ), которые позволяют перемещаться по записям, удалять, добавлять или модифицировать их и т.д.

Программная навигация по записям таблицы возможна ис­пользованием соответствующих методов. Компонента Table ос­нована на базовом классе TTable , в который инкапсулированы следующие методы навигации:

Next - перемещение указателя на следующую запись;

Prior - перемещение указателя на предыдущую запись;

First - перемещение указателя на первую запись таблицы;

Last - перемещение указателя на последнюю запись таблицы.

Например, если создан объект Table , свойством Name ко­торого является значение Table 1, то оператор

Table 1. First ;

переместит указатель на первую запись. Перечисленные методы позволяют последовательно пере­мещать указатель записи по таблице. Для определения последней записи таблицы используется ее свойство Eof , которое принимает значение true , когда указатель установлен на последней записи.

Фрагмент программы

Tabl 1. Open ;

Table 1. First ; //перемещение на начало таблицы

While not Table 1. EOF do //проверка на конец файла

Table 1. Next ; //перемещение на следующую запись

Table 1. Close ;

показывает, как организовать последовательный просмотр всех записей таблицы.

Для программного управления записями таблицы в класс TTable инкапсулированы следующие методы управле­ния:

Delete - удаление текущей записи с позиционированием указателя на следующую запись;

Insert - добавление пустой записи в таблицу;

Edit – перевод таблицы в режим редактирования;

Post – сохранение изменений в таблице.

Например, фрагмент программы

Table 1. Last ;

Table 1. Delete ;

Перечисленные методы позволяют оперировать с целыми записями таблицы.

При обработке данных таблицы часто требуется программ­но получить значение определенного поля записи или записать в него новое значение. Например, в БД студентов учебного заведения необходимо поменять оценку в одной записи, не изменяя значения остальных полей. Подобные операции с полями таблицы тре­буют создания объектов, указывающих на соответствующие поля.

Для создания подобных объектов нужно выполнить следующую последовательность действий:

- нажать правой клавишей мыши на соответствующем объ­екте Table ;

- в выведенном меню выбрать опцию Fields Editor , в ре­зультате чего на экране появится диалог редактирования полей;

- нажать правой клавишей мыши в области диалога редак­тирования полей;

- в выведенном меню выбрать опцию Add Fields , в резуль­тате чего на экране появится соответствующий диалог;

- добавить необходимые поля выбором кнопки Ok . В результате диалог редактирования полей должен содер­жать список созданных объектов, свойствакоторых отражены в окне Object Inspector . Каждый из созданных объектов, указываю­щих на соответствующие поля, имеет свойство Name .

Например, для таблицы с именем stud.dbf, содержащей фа­милии студентов и их оценки с именами полей FAM и OZ , для полей FAM и OZ будут созданы объекты с именами Table 1[‘ FAM ‘]и Table 1[‘ OZ ’].

Созданные объекты позволяютоперироватьс таблицей на уровне полей.

Фрагмент программы

Var

Soz : real ; //переменная для средней оценки

N : integer ; //счётчик записей

begin

Table1.First;

While not Table1.EOF do begin

soz:=soz+Table1[‘OZ’].Value; //накоплениесуммы

n := n +1; //увеличение счётчика записей

Table 1. Next ; //переход на след. запись

End;

if ( n <>0) then //проверка отсутствия записей

soz := soz / n ; //расчёт среднего

end ;

показывает, как вычислить среднюю оценку всех студентов. Для отображения на экране вычисленных данных можно, например, использовать объекты Label (текстовая метка). Свойст­во Caption объекта Label отвечает за надпись на форме приложе­ния.

Например, если имя объекта Label 1 , то фрагмент програм­мы

var

buf : string[50];

buf:=" Средняя оценка :”+FloatToStr(soz);

Label1.Caption := buf;

позволяет отобразить на форме вычисленное значение средней оценки.

Свойство Caption представляет собой данное специализи­рованного типа AnsiString , позволяющего хранить символьные строки в формате отличном от формата хранения в символьном массиве. Для преобразования значения типа символьной строки в значение типа AnsiString используется операция при­сваивания, справа от которой указывается символьная строка или ее адрес.

Для вывода разного рода списков плавающего размера используется компонента Memo. Добавление, например, фамилии студента в список будет осуществляться с помощью оператора:

Memo1.lines.Add(Table1[‘FAM’]);

Кроме ввода данных в таблицу, как правило, в программу требуется вводить другие исходные данные. Для ввода исходных данных в программу используются объекты Edit . Объект Edit имеет свойство Text , которое является данным типа AnsiString и содержит значение, введенное в поле ввода на форме приложе­ния.

Например, если имя объекта Edit 1 , то фрагмент программы

Var

soz : real;

n : integer;

begin

soz:=0;

n:=0;

Table1.First;

While not Table1.EOF do begin

/* проверка совпадения поля FAM и текста в Edit1*/

if (Table1[‘FAM’] = Editl.Text) then begin

soz:=soz+Table1[‘OZ’];

n:=n+1;

end;

Table1.Next;

End;

If (n<>0) then soz:=soz/n;

End ;

позволяет рассчитать оценку не всех студен­тов, а конкретного студента, фамилия которого введена в поле ввода объекта Edit 1 .

Ряд методов в Borland Delphi специально предусмотрен для преобразования типов:

FloatToStr () - преобразование вещественного числа в строку;

IntToStr () - преобразование целого числа в строку;

StrToFloat () - преобразование строки в вещественное число;

StrToInt () - преобразование строки в целоечисло.

Как правило, программные модули выполняются в резуль­тате определенных действий пользователя. Например, фрагмент программы по расчёту и выводу средней оценки может выпол­няться при нажатии кнопки «Расчет». Событие Click (одинар­ное нажатие) объекта Button (кнопка) позволяет определить функцию, выполняемую при нажатии на кнопку. За надпись на кнопке отвечает свойство Caption .

Заголовок функции генерируется автоматическипри выбо­ре в закладке Events инспектора объектов соответствующего со­бытия и двойном щелчке напротив, сама функция инкапсулирует­ся в класс Form (форма) - основной класс приложения. В BorlandDelphi такие функции называются обработчиками событий, т. к. они содержат программный код, выполняющийся при насту­плении соответствующего события этой компоненты. Например, если на форме с именем Form 1 разместить ком­поненту Button с именем Button 1 и создать обработчик события Click для компоненты Button 1 , в редакторе кода в файле Unit 1. pas будет создана пустая функция, которая должна содер­жать код, выполняемый, если произойдёт событие Click.

procedure TForm1.Button1Click(Sender: TObject);

begin

//код, выполняющийся при наступлении события OnClick //например, расчёт средней оценки студентов

end;

а в заголовочном файле unit Unit1 в шаблоне класса TForm1 будет объявлена функция обработчика события Click.

procedure Button1Click(Sender: TObject);

Приведём вид формы приложения (рис. 9) примера работы с таблицей stud . dbf , расчёта средней оценки студента, фамилия которого вво­дится в поле ввода и описание компонент приложения с по­яснением настройки свойств и событий (табл. 1).

Рис. 1. Внешний вид формы приложения

Таблица 1. Свойства и события компонент приложения

На рис. 2 показан вид работающего Windows-приложения после отладки и компиляции проекта, запускаприложения, ввода в поле ввода фамилии Петров и нажатия кнопки "Расчёт средней оценки".

Рис. 2. Внешний вид работающего приложения

3. Печать данных

A. Для осуществления печати результатов, представления данных в удобной для просмотра форме удобно использовать так называемые отчёты. В Borland Delphi имеется набор компо­нент для быстрой визуальной разработки отчётов. За автоматиче­скую генерацию отчёта отвечает компонента TRVTableConnect (вкладка Rave). Вся дальнейшая работа осуществляется под управлением утилиты RaveReportDesigner.

Для создания отчёта необходимо выполнить последовательность действий:

1. Для вызова утилиты выберите в главном меню команду Tools -> Rave Designer .

2. C помощью команды File -> New Data Object вызовите окно DataConnection, в котором выберите продолжение Direct Data View , и после щелчка на кнопке Next - RvTableConnection 1 . Таким образом, отчет связывается с источником данных, которые он будет отображать.

3. Вызовите мастера создания отчета по данным, получаемым из единственной таблице командой Tools -> Report Wizards -> Simple Table . Этот мастер с помощью последовательно раскрывающихся окон определяет основные параметры отчета.

4. Для подготовки проекта отчета скорректируйте размеры полос и взаимное расположе­ние на них компонент.

5. Для указания связи приложения с проектом имя файла отчета (*.rav) помещается в свойство ProjectFile компоненты TrvProject , которую необходимо поместить на форму.

6. Напишите обработчик события щелчка на кнопке Отчет :

procedure TForm1.Button1Click (Sender: TObject);

Begin

RvProject1.Execute;

End ;

B. Существует альтернативная технология создания отчетов в DelphiQuick Report .

Этот компонент всегда помещается на пустую форму, образуя с ее помощью визуальную среду конструирования отчета.

Для создания отчёта необходимо выполнить последовательность действий:

1. Создать дополнительную форму для отчёта,выбрав опции меню File->NewForm, вынести на форму отчёта компоненту TQuickRep из вкладки Qreport и сохраните.

2. Эта форма не будет создаваться автоматически в момент старта программы, поэтому после ее присоединения к проекту выберите команду Project -> Options и перенесите ее в список доступных форм Available forms .

3. С помощью команды File -> Use unit связать новую форму с модулем данных, после чего поместить в свойство DataSet компонента QuickRep 1 значение того набора данных, который будет содержать основную информацию.

4. Вынести на форму отчёта компоненты QRBand (полосы отчёта). Эта компонента является частью печатной страницы, т.е. основанием для ввода данных. В зависимости от свойств BandType различают несколько типов компонентыQRBand : за­головочная полоса ( rbTitle ) выводится только один раз в начале страницы (может содержать заголовок и наименования столбцов таблицы); полоса данных ( rbDetail ) содержит значения полей текущей записи и выводится столько раз, сколько записей в таб­лице; rbSummary выводится один раз в конце отчёта.

5. Установить значение свойства BandType компоненты QRBand . Рекомендуется выносить как минимум две полосы: за­головочную и данных.

6. На заголовочную полосу вынести компоненты QRLabel (аналогичны компонентам Label). Свойство Caption содержит выводимую на печать информацию (например, наименования столбцов, поясняющие надписи, расчётные значения и т.д.).

7. На полосу данных вынести компоненты QRDBText , ото­бражающие значения определённых полей таблицы. Свойство DataSource устанавливает имя источника данных, а свойства DataField — имя выводимого поля.

8. Скорректировать размеры полос и взаимное расположе­ние на них компонент.

Предварительный просмотр на стадии проектирования при­ложения осуществляется двойным щелчком мыши на объекте QuickRep 1.

Макет формы печати данных таблицы stud.dbf и рассчитанной средней оценкипредставлен на рис. 3.

Рис. 3. Внешний вид формы печати

Вывод данных на печать из программы выполняется встро­енным в компоненту TQuickRep методом Print .

Например, если имя компоненты TQuickRep - QuickRe ­ p 1 , то оператор

Form2.QuickRep1.Print;

выведет данные на печать, а

Form2:=TForm2.Create(Self);

Form2.QuickRep1.Preview;

Form 2. Free ;

осуществит предварительный просмотр на экране.

Необходимо предусмотреть в программе вывод в от­чёт расчётных значений с использованием компоненты QRLabel .

При предварительном просмотре или выводе на печать данные будут отображены в следующем виде (рис. 4).

Рис. 4. Данные таблицы stud . dbf при предварительном просмотре

Пример реализации программы расчёта средней оценки

Постановка задачи: необходимо организовать хранение информации о студентах: № зачётной книжки, шифр группы, ФИО, год рождения, пол, предмет, среднюю оценку по предмету. Обеспечить расчёт средней оценки для любого студента.

А. Создадим таблицу соответствующей структуры и Windows-приложение для работы с БД (см. методические указанияк лабораторной работе №1).

B. Вынесем на макет формы приложения компоненту Edit с именем Edit1, компоненту Label с именем Label1 и компоненту Button с именем Button1 (см. рис. 1). Настроим свойства этих компонент в соответствии с табл. 1. Создадим обработчик события Click для компоненты Button1 и напишем в обработчике следующий код:

Var

soz : real;

n : integer;

buf : string[50];

begin

soz:=0;

n:=0;

Table1.First;

While not Table1.EOF do begin

/* проверка совпадения поля FAM и текста в Edit1*/

if (Table1[‘FAM’] = Editl.Text) then begin

soz:=soz+Table1[‘OZ’];

n:=n+1;

end;

Table1.Next;

End;

If (n<>0) then soz:=soz/n;

buf:=" Средняя оценка :”+FloatToStr(soz);

Label1.Caption := buf;

QRLabel10.Caption := buf;

End ;

C. Создадим вторую форму выбором меню File->New. Вынесем на форму компоненту QuickRep из вкладки QReport .. Вынесем на форму отчёта три компоненты QRBand (со свойствами BandType rbTitle , rbDetail и rbSummary ). На заголовочную полосу вынесем компоненты QRLabel и настроим свойство Caption для отображения названия отчёта и столбцов. На полосу данных вынесем компоненты QRDBText и настроим их на связь с соответствующими полями. На последнюю полосу вынесем компоненту QRLabelc именем QRLabel10. Внешний вид и расположение компонент соответствует рис. 3. Просмотр отчёта организуем добавлением компоненты Button2 и обработчиком события Click следующего содержания:

Form2:=TForm2.Create(Self);

Form2.QuickRep1.Preview;

Form 2. Free ;

После компиляции проекта необходимо проверить правильность работы программы.

ЛАБОРАТОРНАЯ РАБОТА №3

ОБРАБОТКА ИНФОРМАЦИИ БАЗЫ ДАННЫХ, ИМЕЮЩЕЙ СТРУКТУРУ « master - detail ». ИЗУЧЕНИЕ ОСНОВ SQL .

Основные сведения о ссылочной целостности. Задание индексов.

Для выполнения задания, необходимо сформировать в DatabaseDesktop (DBD) структуры 2-х таблиц типа Paradox7, между которыми будет организована связь «один-ко-многим».

Рис. 1 Структура основной и подчиненной таблиц в Paradox 7.

Данные структур сохраним в папке WorkDir с именами stud . db и ozen . db .

Ссылочная целостность обеспечивает однозначное соответствие значений в поле одной таблицы значениям связанного поля в другой. Кроме обеспечения равенства значений в связанных полях при вводе, ссылочная целостность обеспечивает сохранение этого условия при внесении изменений в связанные поля подчиненной таблицы, отображая их в основной. В Paradox она также запрещает удаление записей в основной таблице , если они используют данные из подчиненной таблицы .

Итак, в организации ссылочной целостности присутствуют 2 таблицы, одна из них содержит данные (подчиненная), другая использует эти данные (основная). Осуществляется она через поля основной и подчиненной таблиц. При этом в основной таблице можно использовать только ключевые поля, а в подчиненной – индексированные, причем выбранные для связи поля автоматически становятся индексированными. Из основной таблицы можно организовывать связь с несколькими подчиненными.

Для организации связи 2-х таблиц с помощью DataDesktop в окне задания структуры, когда в нем находится структура подчиненной таблицы (в нашем случае, ozen . db ), следует у списка Table properties (характеристики таблицы) выбрать значение Referential Integrity (ссылочная целостность), после чего определить Define связь. В открывшемся окне задаем характеристики связи таблиц, выбрав в левом окне поле для организации связи, в правом – имя требуемой таблицы (двойным щелчком мыши). Естественно, что количество выбранных полей из каждой таблицы и их типы должны совпадать .

Рис. 2 Связь подчиненной и основной таблицы по ключевым полям.

Здесь же можно задать характеристики связи: 1) правило обновления (updaterule) – для определения варианта обновления значений в подчиненной таблице при изменении или удалении связанных значений в основной (каскадный, запрещенный); 2) выключатель защиты целостности (strictreferentialintegrity) – для определения невозможности изменения данных в таблицах, для которых установлена ссылочная целостность. После определения параметров связи задаем имя связи.

Идентифицируем параметры всех связей основной таблицы:

Теперь зададим вторичные индексы. Данная операция используется для ускорения поиска в таблицах необходимой информации по значениям в конкретных полях. Индексирование в Paradox приводит к созданию специальных файлов по каждому индексу, такой файл содержит записи, включающие значения индекса (одно или несколько полей) и указатель на соответствующую запись в таблице. Выбрав нужное значение индекса, можно затем по указателю найти и саму запись.

Для задания вторичных индексов с помощью DBD, следует у списка Table properties (характеристики таблицы) выбрать значение Secondary Indexes (вторичные индексы), после чего определить Define поля, используемые в индексе, их последовательность (!!!) и ряд характеристик: 1) уникальность (unique); 2) режим обновления (maintained); 3) чувствительность к регистру (casesensitive); 4) порядок сортировки (descending). По завершению формирования индекса задаем имя индекса.

Предварительно сформируем таблицу, в которой перечислим все индексы и их характерные особенности:

Отметим, что для задания каждого индекса следует выполнять всю последовательность выше указанных действий. Нельзя, например, переместить все поля, используемые в индексах, в правый список, а затем выполнить оставшиеся действия, так как в этом случае будет создан 1 индекс сразу по всем выделенным полям.

Рис. 3 Задание вторичного индекса.

3. Задание псевдонимов в BDE Administrator .

Располагать все таблицы БД, а также программы СУБД желательно в отдельной папке, которой к тому же следует задать псевдоним для более простого обращения к данным (до сих пор псевдонимы нами не были использованы ).

Для задания псевдонима можно воспользоваться утилитой BDEAdministrator, постав­ляемую в составе большинства продуктов корпорации Inprise (Borland). Утилита BDEAdministrator находится в меню "Пуск"Прог paммы -> Borland Delphi -> BDE Administrator .

В левой части окна следует открыть страницу Databases , содержащую список псевдонимов, в правой части появятся его характеристики.

Рис. 4. Окно BDE .

Для добавления псевдонима задаем либо Object . New , либо по правой кнопке мыши в дополнительном меню выбираем New. Из списка драйверов выбираем значение Standard , используемое для создания псевдонима БД в формате Paradox.

Изменив имя псевдонима, рассмотрим набор его характеристик: 1) type – название драйвера, на основе которого был создан псевдоним, 2) defaultdriver – название драйвера, который подключается к файлу БД первым, 3) enablebcd – признак перевода значений десятичных полей в двоично-десятичное представление, 4) path – путь к папке, где находятся таблицы БД.

4. Установка связей между компонентами и БД. Создание меню.

Теперь разместив на форме диалога компонент Menu с палитры компонентов Стандарт , сформируем простое меню, задавая названия пунктов меню свойству Items . Для Поиск – подменю: SQL и фильтрация , для Сортировка – по фамилии , по наименованию дисциплин и пункт Выход . Обратите внимание на порядок задания имен, в свойстве Name каждого пункта будет отображен этот номер.

Модуль пункта меню Выход будет самым информативным: Close();

Предыдущие приложения (л/р№1, 2) разрабатывались для ведения данных одной таблицы. Здесь же, одна из связанных таблиц является головной (master , таблица stud), а другая вспомогательной, детализирующей (detail , таблица ozen).

Итак, разместив в окне 2 комплекта Table, DataSource и средства отображения данных DBGrid, зададим их цепочку связи, которую можно представить схемой (рис.6). Связь с БД устанавливается в итоге значением true свойства Active.

Для связи в форме этих таблиц, временно разорвем связь, указав для вспомогательной таблицы ozen значение false для свойства Active.

Рис. 5 Форма диалога приложения БД

Рис. 6 Схема взаимодействия компонентов Delphi с БД.

Далее в свойстве MasterSource компонента Table , настроенного на вспомогательную таблицу, установите имя головной таблицы. После этого щелкните на свойстве MasterFields . Откроется окно редактора связей полей (Field Link Designer ). Индексировать таблицу надо так, чтобы индекс включал ключевое поле связи Zach . После этого можете восстанавливать связь с БД (Active = true ) и запустить приложение.

Теперь немного об удобстве вода данных в форму. Для полей просмотра в DBGrid можно в свойстве Columns задать значение свойства ButtonStyle поля равным cbsAuto и тогда при редактировании данных автоматически будет появляться выпадающий список, из которого пользователь может выбирать соответствующее значение (например, для поля group ).

На форму можно добавить кнопки Добавить, Удалить, Сохранить, Отменить с соответствующими обработчиками событий:

Table 1. Append ; \\ метод, добавляющий новую запись в БД

Table 1. DeleteRecords ( arCurrent ); \\ удаление записи, на которой стоит курсор текущей записи

Table 1. Post ; \\ сохранение изменений в БД

Table 1. Cancel ; \\отмена действий пользователя

Для корректного удаления записи, можно предварительно уточнить требование у пользователя:

If (Application.MessageDlg (

“Действительно хотите удалить запись?”,

“Подтвердите удаление записи”,

MB_YESNO + MB_ICONQUESTION) = IDYES) then

Table 1. Delete ;

который после положительного ответа на вопрос программы удаляет текущую запись.

5. Поиск данных.

Одна из важнейших для пользователя операций с БД – поиск записей по некоторому ключу. Для их применения таблица должна быть предварительно проиндексирована по этому полю.

В работе мы рассмотрим только фильтрацию записей (Filter для компонента Table )и применение запросов к БД при помощи компонента Query .

a) Компонент Table позволяет не только отображать, редактировать и упорядочивать данные, но и фильтровать записи по определенным критериям. Фильтрация задается свойствами Filter , Filtered и FilterOptions компонента Table . Для отображения отфильтрованных записей по вами заданному критерию, добавим на Form1 надпись и текстовой поле, установив предварительно их свойства Visible в состояние false . А пункту меню Фильтрация назначим функцию:

begin

Label1.Visible:=true;

Edit1.Visible:=true;

if (Edit1.Text<>’’) then begin

Table1.Filtered:=false;

Table1.Filter:=’group=’+Edit1.Text;

Table1.Filtered:=true;

end else

ShowMessage(" Укажите номер группы !!!");

end ;

б) Основное свойство Query – SQL, имеющее тип Tstrings. Это список строк, содержащих запросы SQL. Создайте для этого новую форму (рис. 7) с модулем Unit2. Пропишите в unit ее заголовок (как мы это уже делали в л/р№2) и назначьте вызов для пункта меню SQL: Form2.Show;

ПеренеситенаформукомпонентыQuery1 (вместо Table1), DataSource1 , DBGrid1 исоединитеихобычнойцепочкой: вDBGrid1 задайтесвойствоDataSource равнымDataSource1 , авDataSource1 задайтесвойствоDataSet равнымQuery1 . Компонент Query 1 настройте на таблицу ozen . Для этого установите свойство DataBaseName на псевдоним qwerty , а в свойстве SQL напишите оператор: select * from ozen .

Рис. 7. Форма SQL -запросов к БД.

Чтобы вы могли самостоятельно формировать произвольные запросы, перенесите на форму обычное (не db) поле Memo и кнопку Выполнить , для которой можно задать функцию:

begin

if (Query1.Active=true) then Query1.Close;

Query1.SQL.Clear;

Query1.SQL.AddStrings(Memo1.Lines);

Query1.ExecSQL;

end;

Сохраните все операции и запустите приложение с различными видами запросов на выборку, на добавление, на удаление, на обновление.