Помощник
 |
|
Разработка бизнес сайтов Нужны клиенты? Тогда сюда быстрее... |
Сообщение сайта
Здравствуйте, гость ( Вход | Регистрация )
 Tadotable, Переключение Table |
|
|
  22:03:2008, 16:47
 
|
|
Новенький  Группа: Программист Сообщений: 4 Регистрация: 11:03:2008 Пользователь №: 15 795 Специализация: АСУ и ЕВМ Репутация:  0 
 |
 В моей базе несколько таблиц. Мне надо выборочно подключать 1 выбраную таблицу.Выбор таблиц осуществляется с помощью Label. Как это зделать правильно? 
|
 |
Сообщение
#1
|
 |
|
|
22:03:2008, 19:17
|
|
============== Группа: Модеры Сообщений: 1 740 Регистрация: 11:01:2007 Пользователь №: 8 750 Специализация: specialist Репутация: 27
|
Цитата(WereWolf @ 22:03:2008 - 19:47)  Как это зделать правильно? Не так - Цитата(WereWolf @ 22:03:2008 - 19:47) Выбор таблиц осуществляется с помощью Label. ! |
|
|
Сообщение
#2
|
|
|
23:03:2008, 06:28
|
|
Божественный Группа: Модеры Сообщений: 899 Регистрация: 19:11:2003 Пользователь №: 133 Репутация: 11
|
Что то типа:
Код procedure TForm1.Label1Click(Sender: TObject);
var i:Integer; begin ADOTable1.Active:=False; ADOTable1.TableName:=TLabel(Sender).Caption; ADOTable1.Active:=True; TLabel(Sender).Font.Color:=clRed; For i:=0 to ComponentCount-1 do If (Components[i] is TLabel) and (Components[i]<>Sender) then TLabel(Components[i]).Font.Color:=clBlack; end; |
|
|
Сообщение
#3
|
|
|
Текстовая версия | Сейчас: 17:05:2008 - 06:41 |
