В моей базе несколько таблиц. Мне надо выборочно подключать 1 выбраную таблицу.Выбор таблиц осуществляется с помощью Label.
Как это зделать правильно?
Полная версия этой страницы: Tadotable
В моей базе несколько таблиц. Мне надо выборочно подключать 1 выбраную таблицу.Выбор таблиц осуществляется с помощью Label.
Как это зделать правильно?
Цитата(WereWolf @ 22:03:2008 - 19:47) 
Как это зделать правильно?
Не так -
Цитата(WereWolf @ 22:03:2008 - 19:47)
Выбор таблиц осуществляется с помощью Label.
!
Что то типа:
Код
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;
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;
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.