Лабораторные работы по базам данных в Delphi

Лабораторная работа № 1

Цель работы:

1. Ознакомить с утилитой DatabaseDesktop.
2. Усвоить процесс создания и редактирования таблиц с помощью DatabaseDesktop.

Database Desktop - это утилита, которая поставляется вместе с Delphi для интерактивной работы с таблицами различных форматов локальных баз данных - Paradox и dBase, а также SQL-серверных баз данных InterBase, Oracle, Informix, Sybase (с использованием SQL Links). Исполняемый файл утилиты называется DBD32.EXE . Для запуска Database Desktop просто дважды щелкните по ее иконке.

Запуск Database Desktop :

Запустить Delphi

1.1 В меню Delphi выбрать раздел Tools

2.2 В появившемся списке выбрать строку Database Desktop

Щелкнуть по кнопке Пуск

1.1 Из главного меню выбрать строку Программы

2.2 В появившемся списке выбрать строку Delphi 7

3.3 В следующем списке выбрать строку Database Desktop

После запуска DatabaseDesktop на экране появится окно:

Создание таблиц в Database Desktop :

1. Запускаем программу Database Desktop;
2. В появившемся окне выбираем: File ► New ► Table .

Формат таблицы выбираем Paradox . После этого появится окно создания таблицы, в котором можно определить поля таблицы и их тип:

По умолчанию сразу после открытия окна в правой его части в списке Table properties выбран пункт Validity Chekcs , что позволяет контролировать содержимое полей. С помощью флажка Required Fields можно потребовать обязательного заполнения поля при вводе новой записи. Также можно контролировать минимальное и максимальное значение числового поля в строках Minimum Value и Maximum Value . В строке Default Value можно указать значение поля по умолчанию – при вводе новой записи значение в это поле поместит BDE .С помощью строки Picture можно задать шаблон для автоматического форматирования значения поля. Например, если задан шаблон (###)###-#### и в поле введена строка 9054005647, она будет автоматически преобразована к виду (905)400-5647.

Кнопки предназначены для:

Borrow … – осуществляет копирование структуры таблицы из другой таблицы

Save as … – сохраняет изменения в структуре таблицы

Cancel – выход без сохранения

Help – вызов справки

Чтобы определить структуру таблицы в этом окне необходимо заполнить следующие графы:

· Field Name - Имя поля .

· Type - Тип поля. Вызывает список допустимых типов, щелчком правой кнопки мыши или клавишей пробел.

· Size - Размер. Определяет размер поля. Не все типы полей имеют размер. Большинство типов имеют стандартный размер, который не может быть изменен. Размер в основном меняется у строковых типов (Alpha), бинарных (Binary) и др.

· Key - Ключ . Двойной щелчок мышью определяет ключевое поле. Ключевыми могут быть только первые поля, то есть второе поле сможет быть ключевым только вместе с первым.

Типы полей формата Paradox

Создадим таблицу с данными о студентах. Укажем такие данные, как: ФИО, дата рождения, на основании какого приказа студент принят в университет, номер зачетки, специальность, курс, стипендия. Во всех текстовых полях, необходимо указать размер.

Созданную таблицу сохраняем под названием Student.db и закрываем окно создания таблиц.

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

Редактирование таблицы:

1. Определение вторичных индексов.

1.1. Открыть таблицу Student.db (File ► Open ► Table )

1.2. Из меню Table выбрать пункт Restructure . Откроется окно редактирования полей таблицы.

1.3. В выпадающем списке Table properties выбрать Secondary Indexes и нажать кнопку Define . В окне Define Secondary Index определяются вторичные индексы:

С помощью флажков группы Index options можно определить следующие особенности индекса:

· Unique – индекс будет содержать уникальные значения;

· Maintained – индексные поля сортируются по возрастанию значений;

· Case sensitive – индекс чувствителен к регистру букв в текстовых полях;

· Descending – индексные поля сортируются по убыванию значения.

1.4. Выбрать « SFio » из списка Fields и нажать кнопку с изображенной стрелкой вправо. В списке Indexed fields (индексированные поля) появится « SFio ». То же самое проделать с полями « SSpec » и « SKurs ».

1.5. Закрытьокно“Define Secondary Index”

1.6. В появившемся окне ввести имя индекса IDFio и нажать "OK" .

2. Теперь, так как на факультете всего две специальности, то можно переопределить тип поля « SSpec » . Для работы будет гораздо удобнее, чтоб это поле было типа Logical .

2.1. Навести курсор на тип поля « SSpec » и написать тип поля « L » .

3. Определим языковой драйвер. Это следует делать для правильного отображения русскоязычного текста.

3.1. Открыть окно редактирования полей таблицы Student.db.

3.2. В выпадающем списке Table properties выбрать Table Language и нажать кнопку Modify .

3.3. В появившемся окне выбрать из списка Pdox ANSI Cyrillic .

3.4. Сохранить таблицу.

4. Для логического типа значение по умолчанию зададим False .

Заполнение данными в таблице Student . db :

· Открыть таблицу (File ► Open ► Table )

· Выбрать Table ► Edit data или нажать клавишу F 9 .

· Создать несколько записей.

Создание псевдонима:

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

Регистрация псевдонима:

1. Воспользуемся приложением SQLExplorer, запускаемым командой Database ► Explore . В левой части окна приводится список всех зарегистрированных в системе BDE баз данных, в правой – свойства текущей базы, выбранной в списке.

2. Создадим псевдоним для базы данных. Для этого выполним команду Object ► New и в диалоговом окне выбора драйвера укажем значение Standart .

3. После щелчка на кнопке ОК в списке появится новый элемент, помеченный зеленым треугольником.

4. По умолчанию формируется имя базы данных Standard 1 , изменим его на Student .

5. Убедимся, что в свойствах Default Driver (Драйвер по умолчанию) стоит значение Paradox. В свойстве Path укажем каталог, в котором хранится наши таблица.

6. Теперь зарегистрированную в системе BDE базу сохраним, выбрав для этого Apply в контекстном меню объекта Student.

7. На вопрос о необходимости сохранения изменений нажать Yes . Теперь таблица доступны из среды BDE под именем Student.

8. Закройте Sql Explorer .

Лабораторная работа № 2

Цель работы:

1. Изучить начальные этапы создания приложения для работы с базами данных в среде Delphi:

· ознакомить с компонентами доступа к БД: TTable , TDataSource ;

· ознакомить с компонентами управления БД: TDBGrid , TDBNavigator .

2. Усвоить ввод и редактирование текста.

Методика создания приложения для работы с базой данных ничем не отличается от методики создания обычной программы: к форме добавляются необходимые компоненты, устанавливаются значения свойств компонентов, разрабатываются необходимые процедуры обработки событий.

Приложение работы с базой данных должно содержать компоненты, обеспечивающие доступ к данным, возможность просмотра и редактирования содержимого полей. Компоненты доступа к данным находятся на вкладке Data Access и BDE палитры компонентов, а компоненты отображения данных — на вкладке Data Controls.

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

Компоненты доступа к базам данных :

TTable - обеспечивает взаимодействие с таблицей БД, т.е. компонент TTable указывает, откуда брать данные и какие поля будут составлять набор данных. Компонент TTable имеет следующие основные свойства:

· DatabaseName – база данных

· TableName - имя таблицы

· Active – активация таблицы (значение True активирует ее)

Свойство DatabaseName определяет базу данных, в которой находится таблица. Это свойство может содержать:

* псевдоним (псевдоним)

* путь для локальных БД

* путь и имя файла базы данных для Local InterBase

* локальный псевдоним, определенный через компонент TDatabase .

Свойство TableName определяет имя таблицы базы данных.

TDataSource - определяет связь между базой данных и компонентами управления данными, то есть компонент TDataSource является промежуточным звеном между компонентом Table 1 , соединенным с реальной БД и визуальными компонентами DBGrid 1 и DBNavigator 1 , с помощью которых пользователь взаимодействует с таблицей.

В большинстве случаев, все, что нужно сделать с DataSource - это указать в свойстве DataSet соответствующий TTable . Затем, у визуального компонента вроде DBGrid или DBNavigator в свойстве DataSource указывается TDataSource , который используется в настоящее время.

Компоненты управления данными с палитры Data Contorls :

TDBGrid - отображает содержимое таблицы БД в виде сетки, в котором столбцы соответствуют полям, а строки записям таблицы.

Компонент имеет следующие свойства:

· Data Source – содержит ссылку на компонент типа TDataSource , служащий источником данных;

· Editor Mode – если содержит true , пользователь может редактировать ячейку после нажатия клавиши F 2 или Enter . Игнорируется, если свойство Option включает значение goEditing или goAlwaysShowEditor ;

· Option – определяет вид и поведение компонента;

o dgEditing – разрешает изменение набора данных;

o dgAlwaysShowEditor – автоматически переводит столбец в режим редактирования при его выделение;

o dgTitles – показывает заголовки столбцов;

o dgIndicator – показывает индикатор текущей строки в самом левом фиксированном столбце;

o dgColumnResize – разрешает пользователю вручную изменять ширину столбцов;

o dgColLines – показывает разделяющие вертикальные линии;

o dgRowLines – показывает разделяющие горизонтальные линии;

o dgTabs – разрешает переход от столбца к столбцу с помощью клавиши Tab ;

o dgRowSelect – разрешает выделение цветом всей выбранной строки;

o dgAlwaysShowSelection – выделение текущей строки сохраняется, если компонент теряет фокус ввода;

o dgConfirmDelete – удаление строки должно подтверждаться;

o dgCancelOnExit – если пользователь вставил пустую строку и покинул ее, она не помещается в набор данных;

o dgMultiSelect – разрешает множественный выбор строк.

TDBNavigator - осуществляет перемещение и редактирование записей (вид и назначение кнопок указаны в пункте DBNavigator ). С помощью свойства DataSource компонент связывается с нужным источником данных Т DataSource – это все, что необходимо для его нормальной работы. Свойство ConfirmDelete управляет отображением диалогового окна с просьбой подтвердить удаление записи (значение True этого свойства выводит окно).

Создание приложения:

1. Запустить Delphi.

2. В свойстве Caption изменить имя формы на Студенты .

3. Установить на форму компоненту TTable .

4. Определить следующие свойства компоненты Table 1 .

· определить псевдоним - выбрать в свойстве DatabaseName инспектора объектов псевдоним «Student» .

· задать имя таблицы - выбрать в свойстве TableName таблицу Student.

· активизировать таблицу - установить в свойстве Active значение true (это будет возможно после выполнения пункта 4).

5. Разместить на форму компоненту DataSource с закладки Data Access и в свойстве DataSet инспектора объектов выбрать компоненту Table 1 .

6. Расположить на форме компоненту DBGrid с закладки Data Controls и в свойстве DataSource выбрать DataSource 1 .

Если вы внесли несколько записей, то форма Студенты примет вид:

Редактор полей:

Для управления отображением данных таблицы используют специальный редактор полей - Editor Field .

Для вызова Editor Field следует:

• Дважды щелкнуть по Table 1 .
• Для открывшегося окна вызвать контекстное меню и выбрать пункт Add All Field , если необходимо добавить все поля таблицы.
• Add Field для выбора отдельного поля.

Редактор полей имеет следующие свойства:

• DisplayLabel – задает имя полю;
• DisplayWidth – определяет количество символов, которое будет выводится в поле;

Определим свойства для полей таблицы Student . db .

1. Выбрать в окне редактора полей таблицы поле SFio и в свойстве DisplayLabel инспектора объектов изменить SFio на ФИО . Выбрать свойство DisplayWidth и заменить размер на 35.

2. Так же поменять свойства других полей таблицы.

3. Для полей логического типа в свойстве DisplayValues можно написать варианты для значений True и False . В поле SSpec в этом свойстве написать «Математика;Физика » (без пробела, разделяя «;»). Получиться как показано на рисунке.

4. Если возникнет необходимость можно скрыть любое поле, выбрав его и в свойстве Visible инспектора объектов установив значение false .

После выполненных действий сетка DBGrid 1 будет выглядеть так:

Ввод данных:

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

Основные методы для организации доступа компоненты Table :

• Append – добавить новую запись в конец таблицы.
• Delete – удалить текущую строку.
• Edit – перейти в режим редактирования. После этого можно изменять значения полей.
• Insert – вставить новую строку в таблицу.
• Post – принять все изменения.
• Refresh – обновить информацию о данных.
• UpdateRecord – обновить текущую запись.

1. Откроем созданное приложение.

2. Разместим на форме три компоненты SpeedButton из палитры Additional . Одна из кнопок будет добавлять запись, другая – изменять данные в записи, третья – удалять. Назовем их соответственно.

3. Создадим новую форму, которая будет вызываться нажатием кнопки «Добавить» . На форме расположены 4 компоненты Edit , компонент DateTimePicker с закладки Win 32 , компонент CheckBox и компонент RadioGroup .

4. Текст процедуры для события OnClick кнопки «Добавить» на форме Студенты :

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

Form 2. ShowModal ; //открывает форму «Добавление записи»

end;

5. Текст процедуры для события OnClick кнопки «ОК» на форме Добавление записи :

procedure TForm2.Button1Click(Sender: TObject);

begin

Form1.Table1.Insert;

Form1.Table1.FieldByName('SFio').Text:=Edit1.Text;

Form1.Table1.FieldByName('SOsn').Text:=Edit2.Text;

Form1.Table1.FieldByName('SNom').Text:=Edit3.Text;

Form1.Table1.FieldByName('SKurs').Text:=Edit4.Text;

Form1.Table1.FieldByName('SData').AsDateTime:=DateTimePicker1.Date;

if CheckBox1.Checked then

Form1.Table1.FieldByName('SStip').Text:='да'

else

Form1.Table1.FieldByName('SStip').Text:='нет';

//при нажатии на флажок полю SStip (Стипендия) передается

//значение True , в противном случае вводится передается

// значение False

case RadioGroup1.ItemIndex of

0: Form1.Table1.FieldByName('SSpec').Text:='Математика';

1: Form1.Table1.FieldByName('SSpec').Text:='Физика';

end;

if form1.Table1.Modified

then form1.Table1.Post;

close ;

Комметарий: в строке Form 1. Table 1. Insert вызывается метод, который допускает вставку новой строки в таблицу, которая находится на форме «Студенты ». Без вызова этого метода дальнейшая работа по вставке записи в таблицу невозможна. Запись Form 1. Table 1. FieldByName (' SFio '). Text := Edit 1. Text означает, что текст, который находится в Edit 1 по нажатии кнопки будет перенесен в таблицу на форме «Студенты » в новую запись в текстовое поле ФИО . Остальные записи в процедуре работают аналогичным образом. Запись if form 1. Table 1. Modified then form 1. Table 1. Post сохраняет изменения в таблице. Close – закрывает форму «Добавление записи ».

6. По нажатии кнопки Cancel осуществляется выход. То же и на форме «Редактирование записи».

7. Текст процедуры для события OnClick при нажатии клавиши «Удалить» на форме Студенты :

procedure TForm1.SpeedButton3Click(Sender: TObject);

begin

Table1.Delete //удаляет текущую запись в таблице

end;

Редактирование данных:

Компоненты, отражающие информацию, делятся на две категории – те, которые не связаны с таблицами БД, и компоненты, связанные с таблицами и обменивающиеся с ними информацией. В первую категорию входят обычные компоненты Delphi. Компоненты второй категории расположены на странице Data Controls . Почти каждая из них имеет аналог среди обычных компонент; основные отличия заключаются в том, что они могут работать с данными, хранящимися в БД. К этой группе относится компонента DBEdit , которая используется для ввода текстовой однострочной информации.

Чтобы компонент DBEdit видел данные из поля таблицы, следует указать в свойствах:

• DataSource – источник данных;
• DataField – поле для редактирования.

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

1. Создадим новую форму: Редактирование записи .

2. В случае перетаскивания поля логического типа, на форме автоматически устанавливается компонента DBCheckBox , что не всегда удобно.

2.1. Установим на форму компоненту DBRadioGroup с закладки Data Control .

2.2. В свойстве DataSource укажем DataSource1 .

2.3. В свойстве DataField укажем SSpec .

3. Текст процедуры для события OnClick при нажатии клавиши «Изменить» на форму Студенты :

begin

Form3.ShowModal // вызов Form3

end;

4. Текст процедуры для события OnClick при нажатии клавиши «Сохранить» на форму Редактирование :

begin

if form1.Table1.Modified

then form1.Table1.Post; // все изменения в таблице сохраняются

close ;

end;

5. Пользователь имеет возможность редактировать записи в таблице напрямую. Чтобы это предотвратить используется свойство компоненты DBGrid dgEditing . Нужно выделить DBGrid 1 и в свойстве Options ► dgEditing инспектора объектов поставить false .

Лабораторная работа № 3

Цели работы:

1. Ознакомиться с сортировкой записей в базе данных.
2. Поиск полей с помощью методов Locate и Lookup ;

Сортировка:

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

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

Сортировка набора данных TTable выполняется автоматически по текущему индексу. При смене индекса происходит переупорядочивание записей. Таким образом, возможна по полям, для которых создан индекс. Для сортировки по нескольким полям нужно создать индекс, включающий эти поля.

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

· IndexName – указывается имя индекса, установленное при его создании;

· IndexFieldName – указываются имена полей, образующий соответствующий индекс.

1. Откроем приложение.
2. Добавим на форму компоненты ComboBox и Button .

1. В свойстве Items компоненты ComboBox запишем параметры сортировки: Фамилия, Специальность, Курс, Дата рождения, Номер зачетки.
Условия сортировки задаются вторичными индексами. То есть сортировка по фамилии происходит по вторичному ключу IDFio так как в него первым входит поле SFio . Для того, чтобы сортировка проходила по выбранным параметрам необходимо вхождение соответствующих полей в разные вторичные ключи.
2. Текст процедуры для события OnClick при нажатии кнопки «Сортировка» на форме Студенты :

begin

Case ComboBox1.ItemIndex of

0: Table1.IndexFieldNames:='SFio'; // при выборе строки « Фамилия »

//сортировка идет по вторичному индексу IDFio

1: Table1.IndexFieldNames:='SSpec';

2: Table1.IndexFieldNames:='SKurs';

3: Table1.IndexFieldNames:='SData';

4: Table1.IndexFieldNames:='SNom';

end;

end;

Замечание: во вторичный индекс IDFio входят поля: SFio , SKurs , SSpec . То есть при совпадении фамилии сортировка идет уже по курсу и т.д.

Пример:

Поиск:

Метод Locate ищет первую запись, удовлетворяющую критерию поиска, и если такая запись найдена, делает ее текущей. В этом случае в качестве результата возвращается значение True . Если запись не найдена, возвращается значение False и курсор не меняет своего положения.

function Locate (const KeyFields: String ; const KeyValues: Variant;

Options: TLocateOptions): Boolean;

Список полей, по которым ведется поиск, задается в параметре KeyFields , поля разделяются точкой с запятой. ПараметрKeyValues типа Variant указывает значение полей для поиска. Если поиск ведется по одному полю, то параметр содержит одно значение, соответствующие типу поля, заданного для поиска.

Параметр Options позволяет задать значение, которое обычно используется при поиске строк. Этот параметр принадлежит к множественному типу TLocateOptions и принимает комбинации следующих значений:

· LoCaseInsensitive –регистр букв не учитывается;

· LoPartialKey – допускается частичное совпадение.

На форму добавить компоненту Edit .

Текст процедуры для события OnChange компоненты Edit на форме Студенты :

begin

table1.Locate('SFio',Edit1.Text,[loPartialKey]);

end;

Поиск записи по фамилии организован. Регистр букв не учитывается.

Метод Lookup находит запись, удовлетворяющую условию поиска, но не делает ее текущей, а возвращает значения некоторых ее полей. Независимо от результата поиска записи указатель текущей записи в НД не изменяется. В отличие от метода Locate , метод Lookup осуществляет поиск только на точное соответствие критерию поиска значения поля поиска записи.

function Lookup (const KeyFields: String; const KeyValues: Variant;

const ResultFields: String ): Variant;

В параметре ResultFields перечисляются поля, значения которых требуется получить в случае успешного поиска. Тип результата – Variant или вариантный массив.

1. Добавить на главную форму новую кнопку «Поиск».

2. Открыть новую форму и ввести компоненты как показано на рисунке. Эта форма вызывается нажатием кнопки поиска на главной форме.

3. Поиск будет происходить по фамилии введенной в компоненте Edit1 после нажатия кнопки на форме «Поиск методом Lookup».

procedure TForm5.Button1Click(Sender: TObject);

var LookupResult: Variant;

begin

LookupResult:=Form1.Table1.Lookup('SFio', Edit1.Text, 'SData; SOsn; SNom; SSpec; SKurs'); // ищем поля ' Дата рождения '

//’ Основание ’, ’ Номер зачетки ’, ’ Специальность ’, ’ Курс ’

if VarIsArray (LookupResult) then

begin

Edit2.Text:=LookupResult[0]; // записывает значения

Edit3.Text:=LookupResult[1]; // в искомых полях в

Edit4.Text:=LookupResult[2]; // соответствующие

Edit5.Text:=LookupResult[3]; // компоненты

if Edit5.Text='False' then

Edit5.Text:=' Физика ' // поиск полей логического типа

else Edit5.Text:='Математика';

Edit6.Text:=LookupResult[4];

end ;

end ;

Лабораторная работа № 4

Цели:

Ознакомиться с фильтрацией записей.

Фильтрацию можно отнести к одному из методов поиска. Потому что фильтрация – выбор из набора данных только тех записей, которые удовлетворяют конкретным условиям. Например, можно указать отображение только записей, в которых поле «Фамилия » содержит значение «Иванов ». Применение фильтра к набору данных определяется свойством Filtered логического типа. Значение True определяет применение в качестве фильтра выражения, указанного в свойстве Filter :

Поле [Оператор сравнения] ‘Значение’

Например, если отобразить все записи, в которых поле «Фамилия » равно значению «Сидоров», то нужно указать:

Table1.Filter:=’Фамилия=’’Сидоров’’’;

Фильтрация записей:

1. Открыть приложение.

2. Добавить на форму компоненту TEdit .

3. Текст процедуры для события OnChange :

begin

Table1.Filtered:=true; // включение фильтрации

Table1.Filter:='SNom = ‘+Edit2.Text;

// задает критерий фильтрации

end;

4. Этот способ фильтрации пригоден только для числовых полей.

5. При применении фильтра можно указать свойства:

a. foCaseInsensitive – нечувствительность к регистру букв;

b. foNoPartialCompare – поиск на точное соответствие.

6. Для фильтрации текстовых полей, например по полю «Фамилия» необходимо изменить текст процедуры.

procedure TForm1.Edit2Change(Sender: TObject);

begin

Table1.Filtered:=true;

Table1.Filter:='SFio='+#39+Edit2.Text+'*'+#39;

end;

7. В этом случае фильтрация проходит по текстовому полю. Знак «#39» означает знак апострофа, так как ввод фамилии при использовании фильтра происходит в апострофах. А символ «*» означает любые символы, то есть при вводе только одной буквы на экране появятся все фамилии начинающиеся на букву.

Лабораторная работа № 5

Цели:

1. Усвоить возможность связи таблицам.

Установка связи между таблицами:

Для демонстрации связи между таблицами необходимо создать еще одну таблицу. Создайте таблицу успеваемости студентов. В нее войдут поля: учебный год, сессия (зима или лето), предмет, ФИО преподавателя, дата аттестации по предмету, дата сдачи, оценка.

1. Эта таблица будет дочерней для таблицы Студенты . В таблице Успеваемость надо ввести дополнительно числовое поле и определить его вторичным ключом.

2. Разместите таблицу успеваемости на форме Студенты .

3. В свойстве компоненты Table 2 Master Source написать Data Source 1. Это означает, что вторая таблица станет дочерней для первой.

4. Двойным щелчком по свойству Master Fields вызовем окно FieldLinkDesigner (Дизайнер поля связи):

4. ВыбратьвспискеAvailable Index ( Доступные индексы ) изокнаField Link Designer индексIDGod (этовторичныйиндексвторойтаблицы).

5. В левом списке Detail Field выделить IdU , а в правом списке Master Field (Основа) выделить Ind .

6. Нажать на кнопку Add (Добавить) и закрыть окно.

7. Таким образом между таблицами установилась связь. Она называется связь один ко многим .

8. К дочерней таблице добавить кнопки для ввода и редактирования данных также как и для таблицы Студенты .

Лабораторная работа № 6

Цели работы:

Ознакомиться с возможностью создания отчета.

Создание отчетов:

Отчет — это печатный документ, содержащий записи БД. В Delphi для создания отчетов служит генератор отчетов QuickReport , содержащий обширный набор компонентов. Компоненты, предназначенные для создания отчетов, находятся на закладке QReport палитры компонентов.

Главным элементом отчета является компонент-отчет QuickRep , представляющий собой основу, на которой размещаются другие компоненты. Компонент QuickRep обычно размещается на отдельной форме, предназначенной для создания отчета.

Свойства компоненты QuickRep :

· Bands – здесь указываются компоненты размещаемые в QuickRep .

· DataSet – здесь указывается набор данных из которой отчет будет брать данные.

· Frame – здесь указывается параметры рамки.

· Options – здесь доступны три параметра. Если FirstPageHeader равно true , то заголовок печатается только на первой странице отчета. Если LastPageFooter равен true , то нижний колонтитул печатается только на последней странице отчета. Если установить свойство Compression в true , то отчет будет сохраняться в сжатом виде.

· ReportTitle – здесь находится заголовок печатаемого документа.

· SnapToGrid – нужно ли выравнивать компоненты по установленной сетке.

· Zoom – масштаб отображения данных.

Настройку параметров отчета можно выполнить с помощью окна Report Settings , вызываемый двойным щелчком мыши по компоненте QuckRep . Предпочтительно пользоваться именно этим окном, так как здесь всегда можно просмотреть будущий результат.

1. Открыть приложение «Студенты ».
2. Добавить на главную форму кнопку «Создание отчета ».
3. Создать новую форму «Отчет », которая будет вызываться нажатием на кнопку «Создание отчета ».
4. На форму установить компоненту QuickRep с закладки QReport . Выделить этот компонент и в объектном инспекторе включить параметры HasTitle и HasDetail свойства Bands .

1. Расположим компоненты в секциях QuickRep1 , которые будут отображать нужную информацию отчета. На закладке QReport палитры компонентов доступны следующие компоненты, которые можно расположить в этих разделах:
• QRLabel – надпись. Этот компонент похож на стандартный компонент TLabel и просто отображает нужные данные.
• QRDBText – данные. Этот компонент тоже похож на TLabel , только он предназначен для отображения значения какого либо поля из базы данных.
• QRSysData – системная информация. Это опять копия TLabel только с возможностью отображать системную информацию – дату, время, номер страницы, номер строки в таблицы, общее количество страниц и т.д.
• QRImage – картинка. Компонент схожий с TImage .
2. Увеличить область заголовка Title . В верхний угол поместите один компонент QRSysData . Выделить его и в свойстве Data выбрать значение qrsDateTime . Теперь этот компонент будет отображать в правом, верхнем углу дату распечатки документа.
3. В центре области Tittle установить компонент QRLabel , увеличь шрифт в свойстве Font и написать в свойстве Caption текст «Студенты ».
4. Расположить в области Tittle компоненты QRLabel и дать им заголовки: ФИО, Дата рождения, Номер зачетки, Специальность, Курс.
5. Перейти к области Detail . Под заголовками поставить пять компонентов QRDBText . Установить в свойстве DataSet компонентов QRDBText набор данных - Form 1. Table 1 , а в свойстве DataField для QRDBText 1 указать SFio . У всех остальных компонентов QRDBText указать соответствующие имена полей.

Перейти в главный модуль и по нажатию кнопки “Печать” написать следующий код.

procedure TForm1.SpeedButton5Click(Sender: TObject);

begin

Form4.QuickRep1.Preview; // вызывается метод Preview

// компонента QuickRep . Этот метод показывает окно

// предварительного просмотра созданного документа.

е nd ;

Запустить программу, выделить какую-нибудь строку и нажать кнопку печати. Откроется окно предварительного просмотра.

1. Выделить компонент QuickRep1 и в свойстве DataSet указать таблицу Form 1.Table1 .
2. Если сделать это, то компонент QuickRep1 автоматически будет перебирать все записи из этой таблицы и использовать их в компонентах, которые стоят в блоке DetailBand1 .
3. После этого в отчете появятся все записи таблицы:

1. Установить на форму отчета компонент – QRSubDetail с закладки QReport . Этот компонент предназначен для перебора данных относящихся к подчиненным таблицам.
2. Установить следующие свойства: DataSet – Form 1.Table2 , чтобы связать блок с таблицей Uspevaemost . db , которая является подчиненной к основной Studenti . db .
3. В свойстве Master нужно указать главный компонент с основными данными. Выбрать в этом свойстве QuickRep1 .
4. Расположить на компоненте QRSubDetail компоненты QRDBText в свойстве указав, к каким полям подчиненной таблицы они обращаются.
5. Получится следующий вид отчета: