Л. Н. Гумилев атындағы Еуразия
Л.Н. Гумилев атындағы Еуразия
жүктеу/скачать 4,34 Mb. Pdf көрінісі
|
| Л.Н. Гумилев атындағы Еуразия
ұлттық университеті Пәннің оқу-әдістемелік кешені Басылым: бесінші ЕҦУ Ф 703-08-17 Пәннің оқу-әдістемелік кешені. Алтыншы басылым Table1.GotoKey; end; Қадам2. Белгілі бір аралықтағы Сынақ кітапшасының №-мен жҧмыс жасау ҥшін ApplyRange, SetRangeStart, SetRangeEnd, CancelRange әдістерін қолданамыз. SetRangeStart - аралықтың басын анықтайды; SetRangeEnd - аралықтың соңын анықтайды; ApplyRange - фильтрді қолдану; CancelRange - фильтр әрекетін тоқтату. Студенттер формасының бетіне Label9, Button12 және Edit8, Edit9 компоненттерін орнатып, Button компонентінің Caption қасиетіне келесі сәйкес мәнді беріңіз: Фильтрді қолдану. Label компонентінің Caption қасиетіне келесі сәйкес мәнді беріңіз: Диапазон. Button компоненті ҥшін OnClick оқиғасының ӛңдеуішін қҧрып, оған тӛмендегі кодты жазамыз: procedure TForm1.Button12Click(Sender: TObject); begin Table1.CancelRange; Table1. SetRangeStart; if Edit1.Text<>' ' then Table1.Fields[0].AsString:=Edit8.Text; Table1.SetRangeEnd; if Edit2.Text<>' ' then Table1.Fields[0].AsString:=Edit9.Text; Table1.ApplyRange; end; ҚадамЗ. Ҥлгерім формасына ӛтеміз. Ҥлгерім формасының бетіне ComboBox, Label, Button және Edit компоненттерін тӛмендегі суреттегідей орнатамыз. Ҥлгерім кестесін толтыруды жеңілдету ҥшін Сынақ кітапшасының № жолының мәнін, Студенттер кестесіндегі бар мәліметтердің негізінде, автоматты тҥрде толтыруға болады. Ол ҥшін форманың OnActivate оқиғасының ӛңдеуішіне келесі кодтты жазамыз: procedure TForm2.FormActivate(Sender: TObject); var i:integer; «Студенттер» негізгі формасы |