Зертханалы жмыс №12.

Таырыбы: Жазбаларды іздеу.

Масаты: 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;

end;

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 нені анытайды?