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