Отображение ДБГрида

[brick08]

Доброго времени суток!
На форме есть много TabSheet, и для каждого есть DBGrid. Нужно сделать процедуру, чтобы при переходе с одной вкладки на другую в ДБГриде отображалась соответствующая ему таблица. а на предыдущей вкладке дбгрид очищался. это нужно сделать с помощью одного компонента Table и DataSource. Т.е. при каждом переходе на другую вкладку очищались компоненты Тэйбл и ДатаСоурс. и присваивались новые данные. Попробовал написать вот так

 procedure TabSheetChange(const DataBaseName1, TableName1:String);
 var table:TTable;
 datasource:TDataSource;
 dbgrid:tDBGrid;
 begin
 if table.State=dsbrowse then table.Close;
Table.DatabaseName:=DataBaseName1;
Table.TableName:=TableName1;
datasource.DataSet:=table;
dbgrid.DataSource:=datasource;
table.Active:=true;
end;

, но выдает ошибку что датасет уже открыт.

BDE Paradox 7

[Speeker]

Возможно ты уже открыл базу какой то другой программой

[brick08]

Возможно ты уже открыл базу какой то другой программой

Добавлял строку

if datasource.DataSet.state=dsbrowse then datasource.DataSet.Close;

выдает ошибку.
Мне кажется что переменные неправильно объявил, может быть из-за этого?
нужно чтобы эта процедура работала в других, например:

procedure TForm1.TabSheet3Show(Sender: TObject);
begin
 TabSheetChange('C:\bazes','base1.db');

end;

[Аватар]

Проверяй

if table.Active then table.Active:=False;

add

и есть в процедуре

 var table:TTable;
 datasource:TDataSource;
 dbgrid:tDBGrid;

а где они инициализируются?

[brick08]

а где они инициализируются?

возможно я неправильно их объявил. На Делфи стал писать недавно. И как их правильно объявить не знаю, чтобы при вызове процедуры TabSheetChange действия выполнялись над компонентами Table1, DataSource1 (которые объявлены в типах) и над DBGridом, который находится на текущей вкладке. Поэтому внутри процедуры и создал эти переменные.

[Аватар]

а на предыдущей вкладке дбгрид очищался

примерно так

procedure TForm1.PageControl1Change(Sender: TObject);
begin
  case PageControl.TabIndex of
  0: DBGrid1.DataSource:=nil;
  1: DBGrid2.DataSource:=nil;
//и т.д.
  end;
end;

И примерно следующий код для активизации таблицы и отображения данных в указанном гриде

procedure TForm1.TabSheet3Show(Sender: TObject);
begin
  TabSheetChange('C:\bazes','base1.db',DBGrid3);
end;

procedure TForm1.TabSheetChange(const DataBaseName1, TableName1:String; DBGrid: TDBGrid);
begin
  if Table1.Active then Table1.Active:=False; //или Table1.Close
  Table1.DatabaseName:=DataBaseName1;
  Table1.TableName:=TableName1;
  Table1.Active:=true; //здесь может быть ошибка при открытии таблицы!
  DBGrid.DataSource:=DataSource1;
//предпологается что в DataSource1.DataSet уже в design_time внесено Table1
end;

[brick08]

Спасибо, работает. Я уже сам почти добился результата. Только вот про удаление таким способом не догадался. У меня причем не один PageControl, а в одном еще четыре, получается для них нужно удаление писать.
И еще небольшой вопрос, в плане быстродействия, правильно ли я сделал, что каждый раз присваиваю table новую БД, или быстрее бы было когда отдельной БД присвоен свой компонент Table и они бы одновременно отображались? Впоследствии предполагаются БД с несколькими тысячами строк.

[Аватар]

Чем больше открытых Table, тем больше памяти съест и дольше программа будет инициализироваться при открытии всех таблиц. Но потом будет быстрей работать (если памяти хватит, вдруг у вас их тысяча и в каждой по несколько тысяч строк). Выбирайте