Шығыс Қазақстан облысының білім басқармасы


procedure TfmMain.CheckFiltrClick(Sender: TObject)



Pdf көрінісі
бет157/180
Дата06.01.2022
өлшемі4,77 Mb.
#15026
1   ...   153   154   155   156   157   158   159   160   ...   180
Байланысты:
УМК-ОББ

procedure TfmMain.CheckFiltrClick(Sender: TObject); 
var s,sf:string;i,j:longint; 
begin 
   //Перекодировка и проверка числового значения: 
   try 
     i:=StrToInt(Trim(edFiltr.Text)); 
     if i>2000000000 then begin 
      ShowMessage('Числовое значение слишком велико!'); 
      AdoQuery1.Filtered :=False;CheckFiltr.Checked:=False;Exit; 
     end; 
   except 
     on E: EConvertError do begin 
      ShowMessage('Неверное числовое значение !'); 
      AdoQuery1.Filtered :=False;CheckFiltr.Checked:=False;Exit; 
     end; 
   end; 
   //Поиск FieldName по значению DisplayLabel из cbFiltr.Text: 
   with ADOQuery1 do begin 
    for j:=0 to FieldCount-1 do begin 
     if Fields[j].DisplayLabel = cbFiltr.Text then begin 
        sf:=Fields[j].FieldName; Break; 
     end; 


150 
 


Достарыңызбен бөлісу:
1   ...   153   154   155   156   157   158   159   160   ...   180




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет