Проблема с DBGrid

[tattynaz]

Помого мне, пожалуйста!!!
На форме есть 2 DBGrid, первый выводит список - заемщиков, второй должен выводит список кредитов, заемщиков отображенных в первом DBGrid. Если я связываю по ключу - отображается список кредитов конкретного заемщика, на котором стоит курсор. Если не связываю то список всех кредитов.
Как сделать так как мне надо????
Спасибо за ответ.

[Stilet]

Ну вот примерно так:
Dbgrid 1 связан с Project
Dbgrid 2 связан с Workers
Тогда примерно так будет выглядеть запрос для второго Грида.

SELECT Project.id_project, Project.qww, Workers.id_worker
FROM Project INNER JOIN Workers ON Project.id_project = Workers.id_project;

В общем смысл весь в JOIN

[tattynaz]

Если делать таким образом, то второй запрос не реагирует на изменения первого. Дело в том что у меня первый фильтуется в зависимости от тех или иных условий.

[Stilet]

Пот когда первый изменился выполняй второй.

[tattynaz]

Или я не правильно ябъясняю, или уже туплю.
У меня есть 2 запроса:
1. Q_Zaem:
SELECT
Kredit.Tip_kredita, Kredit.Summa, Kredit.Data_vydachi,
Kredit.Kod, Kredit.Data_pogasheniya, Kredit.Zakrytie
FROM Kredit
WHERE (Kredit.Data_vydachi)>=:Date1 And (Kredit.Data_vydachi)<=:Date2;

2. Q_FinPok:
SELECT Pokazateli.Kredit,
Sum(Pokazateli.Obyem_prodazh) AS [Sum - Obyem_prodazh],
Sum(Pokazateli.Obyem_pr_tsena) AS [Sum - Obyem_pr_tsena],
Sum(Pokazateli.Rasxody) AS [Sum - Rasxody],
Sum(Pokazateli.Pokupka) AS [Sum - Pokupka],
Sum(Pokazateli.Trudozatraty) AS [Sum - Trudozatraty],
Round(Avg(Pokazateli.Kol_rabotnikov ),0) AS [Avg - Kol_rabotnikov]
FROM Kredit INNER JOIN Pokazateli ON Kredit.Kod = Pokazateli.Kredit
GROUP BY Pokazateli.Kredit;

В результате 2 запрос выводит все финансовые показатели, которые забиты в базу, а надо только тех кредитов, что выводит 1 запрос.

[lexaltd]

Ну так заноси в глобальную переменную , все фамилии или ID заемщиков
в первом запросе

s := ''
 while not Query1.Eof do 
  begin
  s := s + Query1.FldByName['FID'].AsString + ',';
  end;
Delete(s, Length(s), 1);

А во втором подставляй эту переменную в SQL запрос

FID in ('+ s +')

P.S
И вообще ты же в первом запросе ищеш их по какому ту критерию - так что нельзя во втором запросе их искать по тому же критерию

[tattynaz]

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

Ну так заноси в глобальную переменную , все фамилии или ID заемщиков
в первом запросе

s := ''
 while not Query1.Eof do 
  begin
  s := s + Query1.FldByName['FID'].AsString + ',';
  end;
Delete(s, Length(s), 1);

А во втором подставляй эту переменную в SQL запрос

FID in ('+ s +')

P.S
И вообще ты же в первом запросе ищеш их по какому ту критерию - так что нельзя во втором запросе их искать по тому же критерию

Тогда проще наверно сделать один запрос, т.к. в первом кроме поиска есть и фильтрация по тем или иным критериям. Просто получается большой запрос, боюсь что будет ключить.

А то что Вы предложили, у меня висит при компиляции на строчке

while not Query1.Eof do )

Но все равно спасибо за помощь!!

[lexaltd]

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

А то что Вы предложили, у меня висит при компиляции на строчке

while not Query1.Eof do )

Но все равно спасибо за помощь!!

Query1 замени на имя своего Query.
Что за ошибку пишет внизу ?
Какая база , какими компонентами пользуешся?
И что это за скобка в конце?

[Stilet]

И что это за скобка в конце?

Смайлик )

Просто получается большой запрос, боюсь что будет ключить.

Не бойся. Луччче большой запрос чем большой геморрой выборки вручную.

[tattynaz]

Query1 замени на имя своего Query.

Заменила.

Что за ошибку пишет внизу ?

В том-то и дело ничего не пишет, при компиляции висит и exe не запускает.

Какая база , какими компонентами пользуешся?

База в Access, 2 запроса TQuery, для вывода инфо использзую DBGrid.