Басылым: алтыншы
Тақырыбы: Жазбаларды іздеу. Мақсаты
жүктеу/скачать 1,27 Mb.
|
| Тақырыбы: Жазбаларды іздеу.
Мақсаты: SetKey және GotoKey әдістерінің қызметтерін меңгеру. Индекстелген жазбалар бойынша іздеуді жүзеге асыру үшін SetKey және GotoKey әдістерін қолданамыз. Біздің жағдайымызда индекстелген жол Сынақ кітапшасының №. Қадам1. Форма бетіне Label, Button және Edit компоненттерін орнатып, Button компонентінің Caption қасиетіне келесі сәйкес мәнді беріңіз: Жазбаны іздеу. Label компонентінің Caption қасиетіне келесі сәйкес мәнді беріңіз: Сынақ кітапшасының №. Button компоненті үшін OnClick оқиғасының өңдеуішін құрып, оған төмендегі кодты жазамыз: procedure TForm1.Button8Click(Sender: TObject); begin Table1.SetKey; Table1.FieldByName('Nzachet').AsString:=Edit7.Text; 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; begin Form1.Table1.First; ComboBox1.Clear; for i:=1 to Form1.Table1.RecordCount do begin ComboBox1.Items.Add(Form1.Table1.FieldByName('NZachet').AsString); Form1.Table1.Next; e nd; end; Қадам4. Таңдалған сынақ кітапшасының №-не байланысты Фамилия, Аты, Әкесінің аты жолдары автоматты түрде толтырылуы үшін ComboBox1 компонентінің OnClick оқиғасының өңдеуішіне келесі кодты жазыңыз: procedure TForm2.ComboBox1Change(Sender: TObject); begin Form1.Table1. SetKey; Form1.Table1.FieldByName('NZachet').AsString:=ComboBox1.Text; Form 1.Table1. GotoKey; Edit2.Text:=Form1.Table1.FieldByName('FamS').AsString; Edit3.Text:=Form1.Table1.FieldByName('NameS').AsString; Edit4.Text:=Form1.Table1.FieldByName('PatS').AsString; end; Қадам5. Жазбаларды енгізу батырмасының OnClick оқиғасының өңдеуішіне келесі кодты жазыңыз: procedure TForm2.Button1Click(Sender: TObject); begin Table1.Insert; Table1.FieldByName('NZachet').AsString:=ComboBox1.Text; Table1.FieldByName('FamU').AsString:=Edit2.Text; Table1.FieldByName('NameU').AsString:=Edit3.Text; Table1.FieldByName('PatU').AsString:=Edit4.Text; Table1.FieldByName('PredU').AsString:=Edit5.Text; Table1.FieldByName('OcenkaU').AsString:=ComboBox2.Text; Table1.FieldByName('DataStU').AsString:=MaskEdit1.Text; Table1.Post; end; end. Тапсырма: Жатақхана формасына жазбалар бойынша іздеуді ұйымдастырыңыз. Тақырыпқа байланысты бақылау сұрақтары: SetKey және GotoKey әдістері қандай қызмет атқарады? SetRangeStart нені анқытайды? ApplyRange нені анқытайды? CancelRange нені анқытайды? №13 практикалық жұмыс жүктеу/скачать 1,27 Mb. Достарыңызбен бөлісу:
|