begin if (Key=Chr(VK_BACK))or(Key=Chr(VK_DELETE)) then Exit; if not(Key in ['0'..'9']) then Key:= #0; end; Бағдарламаны жіберіп, осы компонентаның жұмысын тексеріңіз.
9.
AdoQuery1 компонентасын Filter қасиетінде Design-Time орналастырыңыз
төмендегідей мәнде: [Население]>100000000 10.
CheckFiltr компонентасы үшін төмендегі өндеушіні OnClick оқиғасына
құрыңыз:
11.
procedure TfmMain.CheckFiltrClick(Sender: TObject);
begin
AdoQuery1.Filtered := CheckFiltr.Checked; end;
Бағдарламаны жіберіп оның CheckFiltr компонентасында ерекшелінген бүкіл тізімде
елдер халықтарымен 100 миллионнан аса тұрғынымен шығатынын тексеріңіз.
12.
cbFiltr, cbCond және edFiltr компоненттерінқолданып, қолданушы фильтр
арқылы өзгерту алуы біздің келесі міндетіміз. Установите в для свойства компонента cbFiltr копонентасында Text қасиетінде Design-Time орналастырып, «Население» мәнін, ал осы
қасиетке edFiltr компонентасында 1000000000 (сто миллионов). CheckFiltr компонентасында OnClick оқиғаларында өндеушілерімен төмендегідей болуы керек:
