Результаты запросов отображаются во всех DBGrid`ах

[Dozent]

Здраствуйте,

В программе ест ьдатамодуль на котором расположены компаненты для подключения к базе, динамически создаю их, в этом проблем нет, идёт подключение к нескольким базам и идут скл запросы в эти базы, всё отлично, но проблема в том что во всех таблицах отображаются резельтаты последнего запроса... Подскажите что можно сделтаь?

with TDBGrid.Create(Self) do
           begin
            Name := 'DBGrid'+IntToStr(TabControl1.ControlCount+1);
            Parent:=TabControl1;
            Align := alClient;
            DataSource := DM[y+1].DS;
            Visible:=true;
           end;
         with DM[y+1].Query do
          begin
           Close;
           SQL.Clear;
           SQL.Text:='select FULL_NUMBER from G1_CASE where ENTRY_DATE > "2.04.2012";';
           DM[y+1].Trans.Active:=true;
           Active:=true;
           //Open;
          end;

[evg_m]

Подскажите что можно сделтаь?

правильно задать значение переменной y
правильно заполнить массив DM[]

[Dozent]

в чём моя ошибка?

[=master=]

Мало кода.

[Dozent]

Разобрался с проблемой всем спасибо.

Parent:=TabControl1; Являлся одним для всех Гридов поэтому и отображалось одно и тоже, заменил TabControl на Page.Control и делаю привязку Парент к закладке..

   
var
..
Tab: TTabSheet;

...

Tab:=TTabsheet.Create(PC);  //создаем динамически новую вкладку
         with Tab do        //и настраиваем ее
           begin
            Visible := true;
            Caption := NameStr; //можно задать имя вкладки
            Pagecontrol := PC; //поместить созданную вкладку в нужный PageControl
            PC.SelectNextPage(True);
           end;

with TDBGrid.Create(Self) do
           begin
            Name := 'DBGrid'+IntToStr(PC.PageCount+1);
            Parent:= Tab;
            Align := {alCustom;//}alClient;
            DataSource := DM[y+1].DS;
            Top:=50;
            Visible:=true;
           end;