| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

licherep ©   (2003-11-04 16:40:00) 

У меня сформирован набор данных из нескольких таблиц
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-ом остальное отсеить, чтобы посмотреть какая фирма сколько денег заплатила интересующего меня района в определенном месяце

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

---

licherep   (2003-11-04 18:06:00) [1]

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

---

licherep   (2003-11-04 18:04:00) [2]

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

---

licherep   (2003-11-04 17:42:00) [3]

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 17:25:00) [4]

up

---

licherep   (2003-11-04 17:17:00) [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"

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

---

Митяй   (2003-11-04 17:16:00) [6]

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

---

Sandman25   (2003-11-04 17:11:00) [7]

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

---

licherep   (2003-11-04 17:10:00) [8]

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

---

bon   (2003-11-04 16:53:00) [9]

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

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;

---

Наверх