Как сделать вывод нужной таблицы?

[skorik-1992]

Всем доброго времени суток. Существует такая проблема: Есть БД access в которых находится 2 таблицы. БД подключенна к Делфи. Необходимо организовать вывод 1ой из таблиц на форме используя компонент radiogroup. исходники программы.rar
Я хотел с помощь свойств DataSource.DataSet переключаться между таблицами, но никак не могу сообразить, как это сделать.
Очень прошу помощи и совета. Заранее спасибо.

[Stilet]

Просто опиши OnClick для радиогруппы примерно так:

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
 if TRadioGroup(sender).ItemIndex=0 then DataSource1.DataSet:=Table1
 else DataSource1.DataSet:=Table2;
end;

Смысл понятен?

[skorik-1992]

Сообщение от Stilet

Просто опиши OnClick для радиогруппы примерно так:

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
 if TRadioGroup(sender).ItemIndex=0 then DataSource1.DataSet:=Table1
 else DataSource1.DataSet:=Table2;
end;

Смысл понятен?

да, да, понятен, я именно так и хотел сделать. Но в строке "DataSource1.DataSet:=Table1" у меня выдает ошибку. Пишет - "Undeclared identifier: 'Table1'", поэтому я не могу понять, как правильно код прописать, что-бы он присваивал "DataSet"у именно ту таблицу, которую надо выбрать.

[DiemonStar]

Но в строке "DataSource1.DataSet:=Table1" у меня выдает ошибку. Пишет - "Undeclared identifier: 'Table1'", поэтому я не могу понять, как правильно код прописать, что-бы он присваивал "DataSet"у именно ту таблицу, которую надо выбрать.

В данном коде подразумевается, что у вас уже есть два привязанных к нужным таблицам БД компонента Table1 и Table2 и вы просто переключаетесь между ними.

[skorik-1992]

Сообщение от DiemonStar

В данном коде подразумевается, что у вас уже есть два привязанных к нужным таблицам БД компонента Table1 и Table2 и вы просто переключаетесь между ними.

Да, так и есть, они уже привязаны. И table1, и table2. Они подключены через ADO. И когда я в компоненте DataSourse в свойстве DataSet нажимаю на стрелочку, я могу выбирать одну из подключенных таблиц. Но когда я прописываю кодом, что-бы в DataSet выбиралась та или иная таблица, получается ошибка, которую я описал выше.

[Veruschka]

Сообщение от Stilet

Просто опиши OnClick для радиогруппы примерно так:

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
 if TRadioGroup(sender).ItemIndex=0 then DataSource1.DataSet:=Table1
 else DataSource1.DataSet:=Table2;
end;

Смысл понятен?

извиняюсь за тупой вопрос, но где это нужно написать?

[Serge_Bliznykov]

Сообщение от Veruschka

извиняюсь за тупой вопрос, но где это нужно написать?

на событие onClick контрола RadioGroup1

попасть туда можно либо через Object Browser - закладка Events, либо, банально выделить на форме в DesignTime нужный RadioGroup1 и сделать на нём двойной щелчок кода, откроется редакторо кода с заготовкой вида:

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
    
end;

вот туда и вставляйте данный код.

Вангирую, этим ваши проблемы не закончатся, ибо не уверен, что у Вас есть настроенные Table1 и Table2, DataSource1 и он используется там, где он нужен...


p.s. а вообще, это основы работы с визуальными контролами в Delphi, может стоить буквари по Delphi проштудировать?