Delphi 3 и создание приложений баз данных


12.4.1. Список объявленных БД


Метод procedure GetAliasNames(List: TStrings); возвращает список псевдонимов БД, объявленных для BDE на данном компьютере.

Количество активных в данном приложении БД возвращает свойство property DatabaseCount: Integer; При этом отсчет активных БД ведется начиная с 0.

Свойство property Databases[Index: Integer]: TDatabase; обеспечивает доступ к активной БД с индексом Index; при этом каждой БД из списка Databases соответствует компонент типа TDatabase. Таким образом, при работе с каждой активной БД из списка Databases можно пользоваться свойствами, методами и событиями, присущими компоненту TDatabase.

Например,

поместить в ListBox2 список активных БД приложения:

var i : Integer;

ListBox2.Clear;

WITH Session do begin

FOR i := 0 TO DatabaseCount - 1 do

ListBox2.Items.Add(Databases[i].DatabaseName) ;

END;//with




- Начало -  - Назад -  - Вперед -