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

cbFiltr өндеушісі үшін OnEnter

жүктеу/скачать 4,77 Mb.

Pdf көрінісі

бет	155/180
Дата	06.01.2022
өлшемі	4,77 Mb.
	#15026

1 ... 151 152 153 154 155 156 157 158 ... 180

Байланысты:
УМК-ОББ

if (Fields[i] is TIntegerField) then cbFiltr.Items.Add(Fields[i].DisplayLabel); end; end; end;
OnKeyPress

cbFiltr өндеушісі үшін OnEnter жағдайын төмендегідей етіп құрамыз:
procedure TfmMain.cbFiltrEnter(Sender: TObject);
var i:integer;
begin
cbFiltr.Items.Clear;
With ADOQuery1 do begin
for i:=0 to FieldCount-1 do begin

149

    if (Fields[i] is TIntegerField) then
      cbFiltr.Items.Add(Fields[i].DisplayLabel);
  end;
end;
end;
Бағдарламаны жібергеннен кейін тізім дұрыс қалыптасуын тексеріңіз.
8.
edFiltr
компонентасында  қолданушы  сандық  мәліметтерді  енгізеді.
Қолданушы  қате  жібермеу  үшін,  осы  өрісте    сандардан  басқа  ештене  болмауы  керек.
Берілген OnKeyPress  компонентасына өндеушіні құрамыз:
procedure TfmMain.edFiltrKeyPress(Sender: TObject; var Key: Char);

жүктеу/скачать 4,77 Mb.

Достарыңызбен бөлісу:

1 ... 151 152 153 154 155 156 157 158 ... 180