помогите с фильтром

← →
licherep (2003-11-04 16:40) [0]

У меня сформирован набор данных из нескольких таблиц
SELECT S.NP, S.DRP, S.AR, K.RJ, S.FACTSS, O.NOR
FROM SHET S, KRJ K, ORG O
WHERE (S.KR = K.KR) AND (S.KO = O.KO) AND (S.NP >= 2003050000) AND (S.NP <= 2003059999) AND (S.DRP IS NOT NULL)
ORDER BY S.DRP, S.NP

NP - номер счета
DRP - дата
AR - адрес
RJ - район
FACTSS - сума
NOR - название предприятия

мне теперь надо чтобы в программе я мог выбрать нужный район из 14 DBLookupComboBox1 и месяц из 12 DBLookupComboBox2 и CheckBox-ом остальное отсеить, чтобы посмотреть какая фирма сколько денег заплатила интересующего меня района в определенном месяце

как мне это сделать или как можна проще это сделать?!
помогите плиз

← →
bon (2003-11-04 16:53) [1]

формируй запрос из кода

Query.close;
Query.Sql.Clear;
Query.Sql.Add("SELECT S.NP, S.DRP, S.AR, K.RJ, S.FACTSS, O.NOR");
Query.Sql.Add("FROM SHET S, KRJ K, ORG O");
Query.Sql.Add("WHERE (S.KR = K.KR) AND (S.KO = O.KO) AND (S.NP >= 2003050000) AND (S.NP <= 2003059999) AND (S.DRP IS NOT NULL)
and K.RJ"+DBLookupComboBox1.KeyValue+" and mounth(S.DRP)= "+DBLookupComboBox2.keyValue+" and...." );
Query.Sql.Add("ORDER BY S.DRP, S.NP");
Query.Open;

← →
licherep (2003-11-04 17:10) [2]

объясни тупому куда это все вставить

← →
Sandman25 (2003-11-04 17:11) [3]

В обработчик OnClick кнопки с Caption "Найти"

← →
Митяй (2003-11-04 17:16) [4]

Я пробовал с помощью фильтра, тоже работает, правда не знаю как это влияет на скорость.

← →
licherep (2003-11-04 17:17) [5]

procedure TForm1.Button2Click(Sender: TObject);
begin
Query.close;
Query.Sql.Clear;
Query.Sql.Add("SELECT S.NP, S.DRP, S.AR, K.RJ, S.FACTSS, O.NOR");
Query.Sql.Add("FROM SHET S, KRJ K, ORG O");
Query.Sql.Add("WHERE (S.KR = K.KR) AND (S.KO = O.KO) AND (S.NP >= 2003050000) AND (S.NP <= 2003059999) AND (S.DRP IS NOT NULL)
and K.RJ"+DBLookupComboBox1.KeyValue+" and mounth(S.DRP)= "+DBLookupComboBox2.keyValue+" and...." );
Query.Sql.Add("ORDER BY S.DRP, S.NP");
Query.Open;
end;

[Error] UOplata.pas(44): Unknown directive: "Query"

что я делаю не правельно?!

← →
licherep (2003-11-04 17:25) [6]

← →
licherep (2003-11-04 17:42) [7]

procedure TForm1.Button2Click(Sender: TObject);
begin
Query1.close;
Query1.Sql.Clear;
Query1.Sql.Add("SELECT S.NP, S.DRP, S.AR, K.RJ, S.FACTSS, O.NOR");
Query1.Sql.Add("FROM SHET S, KRJ K, ORG O");
Query1.Sql.Add("WHERE (S.KR = K.KR) AND (S.KO = O.KO) AND (S.NP >= 2003050000) AND (S.NP <= 2003059999) AND (S.DRP IS NOT NULL)
and K.RJ"+DBLookupComboBox1.KeyValue+" and mounth(S.DRP)= "+DBLookupComboBox2.keyValue+" and...." );
Query1.Sql.Add("ORDER BY S.DRP, S.NP");
Query1.Open;
end;

[Error] UOplata.pas(48): Unterminated string
[Error] UOplata.pas(49): Undeclared identifier: "K"
[Error] UOplata.pas(49): Undeclared identifier: "mounth"
[Error] UOplata.pas(49): "END" expected but ")" found
[Error] UOplata.pas(49): Unterminated string

что нужно сделать?! помогите плиз

← →
licherep (2003-11-04 18:04) [8]

в чем ошибка?!

← →
licherep (2003-11-04 18:06) [9]

нужно ли при этом устанавливать какие либо свойства в комбобоксах?!

помогите с фильтром Найти похожие ветки