Л.Н. Гумилев атындағы Еуразия ұлттық университеті Пәннің оқу-әдістемелік кешені Басылым: бесінші ЕҦУ Ф 703-08-17 Пәннің оқу-әдістемелік кешені. Алтыншы басылым
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.
Тапсырма: Жатақхана формасына жазбалар бойынша іздеуді ҧйымдастырыңыз.
Тақырыпқа байланысты бақылау сұрақтары:
