Delphi связать несколько dbgrid

[Dvoishnik]

все зависимые DBGrid связываешь с ADOQuery2
и все также;

 procedure SelTablFi ;
   begin
     with Form1.ADOQuery2 do
     begin
       Close;
       SQL.Clear;
       SQL.Add('select * From ' + MyTab + ' where id_prep ='+ intToStr(Form1.ADOQuery1.FieldByName('id_prep').AsInteger));
       Open;
     end;
   end;
procedure TForm1.PageControl1Change(Sender: TObject);
begin
case PageControl1.ActivePageIndex of 
0:begin MyTab:='диплом'; SelTablFi ; end;
1:begin MyTab:='аттестат'; SelTablFi ; end;
2:begin MyTab:='награды'; SelTablFi ; end;
end;

а лучше использовать TabControl и DBgrid

procedure TForm1.TabControl1Change(Sender: TObject);
begin
 MyTab:=TabControl1.Tabs.Strings[TabControl1.TabIndex ];
SelTablFi;
end;

[OTGB]

Dvoishnik не могу понять

procedure SelTablFi

что это и откудо это?
и procedure TForm1.PageControl1Change(Sender: TObject); откуда?

[xxbesoxx]

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

Ребята можете мне разобрать код? Что за что отвечает? Мне просто интересно.

1) Это не твой код
2) Кому интересно тот читает книгу , тренирует и так изучает .! А вы это код копировали из другой форум и копипастите так что даже желание нету разобрать
3) Так что тебя нечего не интересно .!!! Тебя надо преподу что то показать что он тебя дал "волшебные диплом"

[OTGB]

Уважаемый xxbesoxx я не говорил что это мой код.Больше скажу вы дали мне исходник за что вам большое спасибо. Но у вас RAD Studio стоит. Так что у меня не так гладко запускалась программа, пришлось немного подумать. Вы ошибайтесь мне интересно. До диплома мне как раком до пикина ещё)
Так на будущее, правильно будет не (Тебя надо преподу) или (тебя дал) а тебе надо преподу. Вам тоже есть чему учится как и мне)

[xxbesoxx]

OTGB Но у вас RAD Studio стоит. Так что у меня не так гладко запускалась программа, пришлось немного подумать.

Вы говорите что код который вы хотели что

OTGB скажите можно ли с помощью DBComboBox выбирать таблицы и выводить их в DBGrid?

Он не работает на Delphi7 он будет работать на все версий , Но я проверю

[OTGB]

xxbesoxx уважаемый, может вы скажете что это?

procedure SelTablFi ;

[xxbesoxx]

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

xxbesoxx уважаемый, может вы скажете что это?

procedure SelTablFi ; {procedure=Процкдура, SelTablFi=Имя процедуры...... Так понятно ?}

Если не ошибаюсь имя процедуры .! Но не вижу тела этого процедуры . Вы не ответили на вопрос .! Мои код не работает на Delphi7 да ?

[xxbesoxx]

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

Уважаемый xxbesoxx я не говорил что это мой код.Больше скажу вы дали мне исходник за что вам большое спасибо. Но у вас RAD Studio стоит. Так что у меня не так гладко запускалась программа, пришлось немного подумать. Вы ошибайтесь мне интересно. До диплома мне как раком до пикина ещё)
Так на будущее, правильно будет не (Тебя надо преподу) или (тебя дал) а тебе надо преподу. Вам тоже есть чему учится как и мне)

Слышь ты .! Русский это не мой родной язык и это все знает на это форуме ...! А ты ленивый студент "Книга почитай который на Русском языке"

[OTGB]

xxbesoxx вот что пишет при запуске

[OTGB]

xxbesoxx Зачем вот эта грубость, я к вам с уважением а вы.Вроде бы взрослый человек а говорите

Слышь ты .!

Русский это не мой родной язык и это все знает на это форуме

я вот не знал.Но теперь знаю.)

А ты ленивый студент

Ленивый студент давно бы спал или занимался другим делом, а не зависал бы тут на форуме.