Механизм доступа к данным InterBase Express. Компонент TIBDatabase.
Компонент TiBDatabase позволяет выполнять некоторые операции с метаданными базы данных.
При помощи метода:
procedure CreateDatabase;
…можно создавать новые базы данных, включая создание файла базы данных. Все параметры новой базы данных, которые разработчик посчитает нужным указать явно, должны быть включены в список свойства Params (см. выше).
Имя файла новой базы данных должно быть указано в свойстве:
procedure DropDatabase;
…удаляет существующую базу данных, путь к которой указан свойством DatabaseName.
Список List имен таблиц, имеющихся в базе данных, возвращает метод:
procedure GetTableNames(List: TStrings; SystemTables: Boolean = False);
При этом параметр SystemTables управляет включением в список имен системных таблиц.
Метод:
procedure GetFieldNames(const TableName: string; List: TStrings);
…аналогичным образом возвращает список полей для таблицы, заданной параметром TableName.
Методы-обработчики событий компонента TiBDatabase представлены в табл. 18.1.
Таблица 18.1. Методы-обработчики событий компонента TiBDatabase.
| Объявление | Тип | Описание |
|---|---|---|
| property Af terConnect: TNotifyEvent; | Pb | Выполняется после открытия соединения |
| property AfterDisconnect: TNotifyEvent; | Pb | Выполняется после закрытия соединения |
| property Bef oreConnect: TNotifyEvent; | Pb | Выполняется перед открытием соединения |
| property BeforeDisconnect: TNotifyEvent; | Pb | Выполняется перед закрытием соединения |
| property OnDialectDowngradeWarning: TNotifyEvent; | Pb | Выполняется в случае изменения диалекта SQL при открытии соединения |
| property OnldleTimer: TNotifyEvent; | Pb | Вызывается по истечении времени, заданного свойством dleTimer |
| TDatabaseLoginEvent = procedure (Database: TiBDatabase; LoginParams: TStrings) of object; property OnLogin: TDatabaseLoginEvent; |
Pb | Вызывается для регистрации пользователя при открытии соединения |