Для заполнения окна списка в листинге 28.8 именами полей в обработчике события OnCreate формы выполните следующее:

tbIParts.Open;
try
═════tblParts.GetFieldNames(lbFields.Items);
finally
═════tbIParts.Close;
end;

Листинг 28.9 иллюстрирует, как выбрать таблицу для применения к ней оператора SELECT. Код этого примера практически идентичен коду в листинге 28.8, различаются лишь строки формата, а обработчик события OnCreate формы получает список имен таблиц вместо списка имен полей.

Вот как получается список имен таблиц:

procedure TMainForm. FormCreate( Sender: TObject);
begin
{ Вначале необходимо получить список, имен таблиц }
═════Session. GetTableNames(dbMain.DatabaseName, ' ', False, False, IbTables. Items);
end;

Для выбора таблицы, к которой применен запрос SELECT, используется обработчик события OnClick, как показано в листинге 28.9.