end; end; //Формирование значения свойства Filter для AdoQuery1: if CheckFiltr.Checked then begin s:='['+cbFiltr.Text +']'; if cbCond.Text='Больше' then s:=s+'>' else s:=s+'<'; s:=s+IntToStr(i);AdoQuery1.Filter:=s; end; AdoQuery1.Filtered := CheckFiltr.Checked; end; 13.
Қолданушы жаңа фильтірмен қолданғанда ескіні жоюы керек. cbFiltr, cbCond и edFiltr компоненттері OnChange үшін өндеушіні құрып, оларды келесілерге жазыңыз:
CheckFiltr.Checked:=False; Әр түрлі фильтірлердің жұмысы мен бағдарламаның орындалуын тексеріңіз.
14.
Фильтірді өзгертткенне кейін қолданушыға кейбір мәліметтерді енгізуге тура
келеді.Оның формасында орын алмау үшін, оның тақырыбын қолданыңыз. DataSource1 компонентасының OnDataChange оқиғасын қолдану тиімді.:
