Балакина Е.П., Логинова Л.Н. Управление данными в Delphi

Подождите немного. Документ загружается.

ключах (вообще, как правило, пользователям запрещается

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

 Dynamic (динамический). Динамический курсор

функционирует приблизительно так же, как курсор набора

ключей. Разница заключается в том, что набор ключей заново

читается с сервера каждый раз, когда приложение нуждается в

данных, отсутствующих в кэше. Так как запросы на чтение

данных возникают достаточно часто. Можно себе представить

дополнительную нагрузку, которую данный курсор создает на

сервер DBMS и на сеть. Однако при использовании этого

курсора клиент знает не только об изменениях данных, но и о

добавлениях и удалениях, выполняемых другими клиентами.

2.2. Компонент ADOCommand

Компонент ADOCommand предназначен в основном для

выполнения команд, не возвращающих результаты.

Для использования данного компонента, необходимо

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

ConnectionString. Данное свойство настраивается аналогично

настройке свойства ConnectionString компонента ADOConnection,

описанного в п.2.1.

Текст исполняемой команды хранится в свойстве

CommandText:

property CommandText: WideString;

Свойство CommandText может быть строкой, содержащей

SQL-оператор, именем таблицы или хранимой процедуры. Тип

команды указывается в свойстве CommandType, возможные значения

которого могут быть следующие:

 mdUnknown - тип заданной команды неизвестен;

 cmdText - текстовое представление команды или хранимой

процедуры;

 cmdTable - в свойстве CommandText указано имя таблицы,

образующей обрабатываемый набор;

 cmdStoredProc - в свойстве CommandText указано имя

хранимой процедуры, создающей набор данных;

 cmdFile - в свойстве CommandText указано имя файла с

сохраненным набором записей;

 cmdTableDirect - в свойстве CommandText указано имя

таблицы.

За один прием компонент ADOCommand способен исполнить

только одну команду.

При некоторых обстоятельствах компонент ADOCommand

способен возвращать результаты. Для этого используется метод

Execute. Если в результате выполнения команды Execute

возвращается набор данных, то для их использования должен

применяться один из компонентов набора данных, например

ADODataSet:

ADODataSet1.RecordSet:=ADOCommand1.Execute;

Свойство ExecuteOptions определяет характеристики

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

значения:

 eoAsyncExecute - асинхронное выполнение команды;

 eoAsyncFetch - асинхронное выполнение команды на

обновление набора данных;

 eoAsyncFetch-NonBlocking - асинхронное выполнение

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

блокировки;

 eoExecuteNoRecords - команда или хранимая процедура

ничего не возвращает; если получены какие-то строки, то они

игнорируются.

Особенностью компонента TADOCommand является

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

можно сформировать команду. Этот редактор (см. рис. 6) вызывается

щелчком на кнопке с многоточием в строке свойства CommandText

инспектора объектов.

Рис. 6

Все окно редактора состоит из трех частей: список таблиц базы

данных отображается в левой верхней части, список полей

выделенной таблицы - в нижней левой, текстовый редактор занимает

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

выбрать в окне Tables требуемую таблицу и нажать на кнопку

.После чего в поле SQL будет отображена

часть запроса (см. рис. 7). Для выбора полей таблицы необходимо

выбрать соответствующее поле в окне Fields, после чего нажать на

кнопку . В окне SQL отобразится в тексте

запроса выбранное поле (см. рис. 7). При необходимости можно

дополнить запрос в окне SQL, после чего нажать на кнопку «ОК».

Рис. 7

2.3. Компонент ADODataSet

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

одной или нескольких таблиц и доступа к ним посредством ADO. С

помощью этого компонента можно получить все данные из таблицы,

установить фильтры для того, чтобы выбрать ту информацию,

которая отвечает некоторым условиям, выполнять SQL-запросы,

запускать системные и определенные пользователем хранимые

процедуры, а также сохранять наборы данных в файле и загружать

их. Компонент ADODataSet обеспечивает доступ к одной или

нескольким таблицам базы данных с помощью запроса типа Select. В

компоненте есть свойство CommandText, однако в него можно

поместить только оператор Select.

С помощью метода Open или свойства Active осуществляется

соединение с базой данных:

ADOTable1.Active:=true;

Или

ADOTable1.Open;

Для того чтобы упорядочить записи, которые отображаются,

используется свойство IndexFieldNames, в котором необходимо

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

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

разделение полей точкой с запятой:

IndexFieldNames:=’Field1;Field2’;

Для фильтрации данных в компоненте ADOTable

используется свойство Filter аналогично компонента Table в BDE.

Свойство Filter работает, если свойство Filtered =true. Если

необходимо отменить фильтрацию, свойство Filtered надо

установить false. Необходимо следить за тем, что бы выражение

фильтра было правильно сформулировано. Эту возможность дает

обработчик событий OnFilterRecord

, в котором надо проверить

строку свойства Filter на сформулированные условия.

Одной из интересных возможностей компонента ADOTable

является сохранение данных в файл с помощью метода SaveToFile:

Procedure SaveToFile(const FileName: String=’ ’;Format:

TPersistFormat=pfADTG)

Набор данных сохраняется в файле, имя которого указывается

параметром FileName. Данный параметр является обязательным.

Параметр TPersistFormat-необязательный параметр, принимающий

одно из двух значений: pfADTG ( формат ADTG ) или pfXML (формат

XML для ADO 2.1 и выше). По умолчанию файл сохраняется в

формате pfADTG.

Чтение данных осуществляется с помощью метода

LoadFromFile (const FileName: WideString),

где FileName – имя файла.

Событие OnFilterRecord возникает при смене текущей записи, если свойство Filtered=true. В

обработчик события передается по ссылке параметр Accept типа Boolean. Если проверка в

обработчике показала что запись удовлетворяет фильтру, то переменная Accept должна быть

установлена в true, иначе в false.

2.4. Компонент ADOTable

Данный компонент необходим для управления одной таблицей

базы данных.

Основные свойства и методы компонента ADOTable

аналогичны свойствам компонента ADODataSet, однако есть и новые

свойства, как например, свойство TableName с помощью которого

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

поддерживают доступ к таблице по ее имени, некоторые провайдеры

требуют доступа с помощью оператора SQL SELECT. Вариант

доступа к таблице определяется свойством TableDirect: по

умолчанию TableDirect=false, что означает автоматическое создание

компонентом соответствующего оператора SELECT.

Связь друг с другом компонентов ADOTable, работающих с

разными таблицами, одна из которых главная, а другая -

вспомогательная, осуществляется с помощью свойств MasterSource и

MasterFields.

2.5. Компонент ADOQuery

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

SQL, предназначенных для получения набора записей из одной или

нескольких таблиц БД [2]. Основным свойством является свойство

SQL, которое содержит запрос и методы выполнения этого запроса.

Свойство SQL (TStrings) используется для указания одного

или нескольких SQL-операторов, которые следует выполнить. В

операторах могут использоваться параметры, идентификаторы

которых помечаются знаком ":". Изменение параметра

осуществляется изменением свойства Value по индексу в коллекции

объектов Parameters. Изменение параметров возможно только при

закрытом запросе.

Подобно компоненту ADOTable свойства ADOQuery близки

свойствам компонента ADODataSet. Другими словами, ADOQuery

обеспечивает те же функциональные возможности, что и компонент

ADODataSet, свойство CommandType которого имеет значение

cmdText.

3. Задание на лабораторную работу

Написать программу просмотра двух таблиц из разных баз

данных. Соединение с одной базой данных осуществляется с

помощью файл связи udl , связь с другой базой данных происходит

через окно редактора строки подключения.

Порядок выполнения работы:

1. Создать две базы данных Student и Group с помощью

Microsoft Access.

2. В каждой из баз данных создать соответственно по одной

таблице с помощью Microsoft Access: таблицу TableStudent и

TableGroup. Таблица TableStudent должна иметь поля,

указанные в таблицеH1. Таблица TableStudent имеет одно

индексированное поле - первичный ключ по полю «Код».

Таблица TableGroup должна иметь поля, указанные в таблице

2, индексированное поле - первичный ключ по полю «Код».

Таблица 1

Название поля Тип поля Примечание

Код Счетчик -

Фамилия Текстовый Размер поля - 50

Имя Текстовый Размер поля - 15

Дата_рождения Дата/время Укажите краткий формат ввода

Номер_паспорта Числовой Размер поля - длинное целое

Серия_паспорта Числовой Размер поля - длинное целое

Таблица 2

Название поля Тип поля Примечание

Код Счетчик -

Номер_группы Текстовый Размер поля - 50

Название_группы Текстовый Размер поля - 15

Кол-во_студентов Числовой Размер поля - длинное целое

ФИО_куратора Текстовый Размер поля - 50

3. Запустить среду Delphi. Сохранить проект и все модули,

входящие в него в директорию (…\Student\lab_1_ADO\).

4. Поместить на форму (по умолчанию Form1) следующие

компоненты: ADOConnection1, DataSource1, ADOTable1,

DBGrid1, Button1, Button2, Button3.

5. Переименовать название формы. Для этого необходимо

изменить свойство Caption формы Form1. На рисунке 8

представлен внешний вид формы.

Рис. 8

6. Для связи компонента ADOConnection1 с набором данных

(физической таблицей Table_Student базы данных Student)

необходимо настроить свойство ConnectionString компонента

ADOConnection1 с помощью инспектора объектов (см.п. 2.1.2.

данных методических указаний)

7. Далее необходимо программно в процедуре - обработчике

события нажатия на кнопку «Установить соединение с БД»

настроить связь компонентов ADOConnection1, DataSource1,

ADOTable1, DBGrid1:

ADOConnection1.LoginPrompt:=false;

ADOConnection1.Connected:=true;

ADOTable1.Connection:=ADOConnection1;

ADOTable1.Active:=false;

DataSource1.DataSet:=ADOTable1;

DBGrid1.DataSource:=DataSource1;

8. Настроить свойства компонента ADOTable1 на таблицу

'Table_ Student':

ADOTable1.TableName:='Table_Student' ;

ADOTable1.Active:=true;

В случае правильности всех действий, после запуска приложения и

нажатия на кнопку «Установить соединение с БД №1» появляются

поля таблицы «Table_Student».

9. Написать обработчик нажатия кнопки «Закрыть соединение с

БД №1»:

ADOTable1.Active:=false;

ADOConnection1.Connected:=false;

10. Написать обработчик нажатия кнопки «Закрыть»:

Form1.Close;

11. Дополнительно на форму Form1 поместить компоненты

ADOConnection2, Button4, Button5.

12. Кнопки Button4 и Button5 переименовать, изменив свойство

Caption на «Установить соединение с БД» и «Закрыть

соединение с БД» соответственно (см. рис.H9).

Рис. 9

13. Создать файл подключения с базой данных Group, сохранить

файл под именем «file_connect.udl» (см. п. настоящих

методических указаний).

14. Связать компонент ADOConnection с базой данных через

файл связи file_connect.udl. (см. п. настоящих методических

указаний).

15. Далее необходимо программно в процедуре - обработчике

события нажатия на кнопку «Установить соединение с

БД№2» настроить связь компонентов ADOConnection2,

DataSource1, ADOTable1, DBGrid1:

ADOConnection2.LoginPrompt:=false;

ADOConnection2.Connected:=true;

ADOTable1.Connection:=ADOConnection2;

ADOTable1.Active:=false;

DataSource1.DataSet:=ADOTable1;

DBGrid1.DataSource:=DataSource1;

16. Настроить свойства компонента ADOTable1 на таблицу

«Table_Group» :

ADOTable1.TableName:='Table_Group' ;