Неправильно работает поиск

[Власов А.С.]

Вот листинг программы помогите разобратьси. Вобщем выбираешь поиск по дате работает поиск по сельсовету работает. Но все работает по отдельности, а вместе нехотит.

[Consol]

напишите просто какие у вас sql запросы

[Власов А.С.]

procedure TForm2.Button1Click(Sender: TObject);
var k:boolean;
    m:string;
    sum: integer;
begin

ProgressBar1.Position:=0;
 for i:=ProgressBar1.Min to ProgressBar1.Max do
        begin
        ProgressBar1.Position:=ProgressBar1.Position+1;
        Sleep(30);
        Label5.Caption:='Идет поиск данных ' +IntToStr(ProgressBar1.Position)+ '%';
        Application.ProcessMessages;
        end;
ProgressBar1.Position:=0;
Label5.Caption:='';
k:=false;
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select *');
ADOQuery1.SQL.Add('FROM Свод');
if CheckBox1.Checked then
begin
if not(k) then  ADOQuery1.SQL.Add('where Сельсовет='+chr(39)+DBLookupComboBox3.Text+chr(39)) else  ADOQuery1.SQL.Add(' and Сельсовет='+chr(39)+DBLookupComboBox3.Text+chr(39)) ;
k:=true;
end;
if CheckBox2.Checked then
begin
if not(k) then  ADOQuery1.SQL.Add('where КБК='+chr(39)+DBLookupComboBox4.Text+chr(39)) else  ADOQuery1.SQL.Add(' and КБК='+chr(39)+DBLookupComboBox4.Text+chr(39)) ;
k:=true;
end;
if CheckBox3.Checked then
if (ComboBox1.Text<>'') and (ComboBox2.Text<>'')
then
begin
adoquery1.Close;
adoquery1.sql.Text:='select * from Свод where Дата>= :date1 and Дата<= :date2' ;
adoquery1.Parameters.ParamValues['date1']:=ComboBox1.Text;
adoquery1.Parameters.ParamValues['date2']:=ComboBox2.Text;
adoquery1.Open;
end;

ADOQuery1.Active:=false;
ADOQuery1.Active:=true;

end;

[Serge_Bliznykov]

ну и правильно, что "вместе нехотит"...
у Вас же код так написан.
if нажат CheckBox1 (это поиск по сельсовету), то формируется в запрос строка поиска
if нажат CheckBox2 (это поиск по КБК), то формируется в запрос строка поиска (добавляется к имеющемуся - а были ранее условия или нет, проверяется по булевской переменной K)
if же нажат CheckBox3 (это поиск по дата), то формируется НОВЫЙ текст запроса (старые условия все стираются - т.о. если выбрали CheckBox3 - то уже неважно, были ли другие условия или нет - запрос будет ТОЛЬКО по датам...

а ещё делаете очень грубую ошибку с производительностью - когда запрос по датам, то выборка данных происходит ДВАЖДЫ - 1-й раз по AdoQuery1.Open, второй раз — по AdoQuery1.Active := true (Вы этого не замечаете, т.к. таблица свод маленькая)

запомните.
AdoQuery1.Open ПОЛНОСТЬЮ ОДНО И ТОЖЕ ЧТО И AdoQuery1.Active := true
AdoQuery1.Close ПОЛНОСТЬЮ ОДНО И ТОЖЕ ЧТО И AdoQuery1.Active := false


ДОБАВЛЕНО.
так что, помочь с комбинированием всех условий вместе или теперь самостоятельно разберётесь?

[soleil@mmc]

предлагаю основной текст запроса сделать таким

ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * ');
ADOQuery1.SQL.Add('FROM Свод ');
ADOQuery1.SQL.Add('where 0=0 ');

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

and Сельсовет=
and КБК=

и даже в случае с датами не нужно переписывать основной кусок запроса
точно так же добавляем условия отбора

and Дата>= :date1 
and Дата<= :date2

в данном случае всегда помогает в отладке вывод полного текста запроса перед его выполнением в Мемо

[Власов А.С.]

Чет непойму

Люди добрые ну помогите разобраться. Укажите подробнее как это переработать.