Басылым: алтыншы


Тақырыбы: Жазбаларды іздеу. Мақсаты



бет17/20
Дата14.10.2023
өлшемі1,27 Mb.
#114170
1   ...   12   13   14   15   16   17   18   19   20
Байланысты:
Практика

Тақырыбы: Жазбаларды іздеу.
Мақсаты: 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.


Тапсырма:
Жатақхана формасына жазбалар бойынша іздеуді ұйымдастырыңыз.
Тақырыпқа байланысты бақылау сұрақтары:

  1. SetKey және GotoKey әдістері қандай қызмет атқарады?

  2. SetRangeStart нені анқытайды?

  3. ApplyRange нені анқытайды?

  4. CancelRange нені анқытайды?

13 практикалық жұмыс


Достарыңызбен бөлісу:
1   ...   12   13   14   15   16   17   18   19   20




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

    Басты бет