Tadotable

Тема в разделе "Delphi - Базы данных", создана пользователем WereWolf, 22 мар 2008.

  1. WereWolf

    WereWolf Гость

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

    zubr Гость

    Что то типа:
    Код (Text):
    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;
     

Поделиться этой страницей