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