Tadotable

[WereWolf]

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

 

[zubr]

Что то типа:

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;