Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум программистов _ Delphi - Базы данных _ Tadotable

Автор: WereWolf 22:03:2008, 16:47

В моей базе несколько таблиц. Мне надо выборочно подключать 1 выбраную таблицу.
Выбор таблиц осуществляется с помощью Label.
Как это зделать правильно?

Автор: sax_ol 22:03:2008, 19:17

Цитата(WereWolf @ 22:03:2008 - 19:47)

Как это зделать правильно?

Не так -

Цитата(WereWolf @ 22:03:2008 - 19:47)

Выбор таблиц осуществляется с помощью Label.

Автор: zubr 23:03:2008, 06:28

Что то типа:

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;