Показать сообщение отдельно
  #2  
Старый 07.05.2008, 18:53
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Вариант 1.
Сделать справочник "тип объекта" (кинотеатр, театр, ресторан и т.д.), а все данные свалить в одну таблицу, сделав там ссылку на вышеупомянутый справочник. Это если правильно делать.

Вариант 2. Если правильно делать влом или унаследованная систем.
Проблему решает динамическое формирование запроса, куда вставляется имя таблицы. На изменение содержимого ComboBox пишем следующий код:
Код:
const
  CSQL : String = 'SELECT * FROM %s';
var
  ATableName : String;
begin
  ADOQuery1.Active := False;
  ADOQuery1.SQL.Clear;
  Case ComboBox1.ItemIndex Of
    0 : ATableName := 'Имя_таблицы_с_театрами';
    1 : ATableName := 'Имя_таблицы_с_кинотеатрами';
    2 : ATableName := 'Имя_таблицы_с_ресторанами';
  End;
  ADOQuery1.SQL.Add(Format(CSQL,[ATableName]);
  ADOQuery1.Active := True;
end;
Ответить с цитированием