Л. Н. Гумилев атындағы Еуразия


Л.Н. Гумилев атындағы Еуразия



Pdf көрінісі
бет109/116
Дата28.10.2022
өлшемі4,34 Mb.
#45944
1   ...   105   106   107   108   109   110   111   112   ...   116
Байланысты:
umkd (1)

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


Л.Н. Гумилев атындағы Еуразия 


Достарыңызбен бөлісу:
1   ...   105   106   107   108   109   110   111   112   ...   116




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

    Басты бет