Л. Н. Гумилев атындағы Еуразия
Л.Н. Гумилев атындағы Еуразия
жүктеу/скачать 4,34 Mb. Pdf көрінісі
|
umkd (1)
| Л.Н. Гумилев атындағы Еуразия
ұлттық университеті Пәннің оқу-әдістемелік кешені Басылым: бесінші ЕҦУ Ф 703-08-17 Пәннің оқу-әдістемелік кешені. Алтыншы басылым if MessageDlg (Сіз расында да жазбаны кетіресіз ба?',mtConfirmation, [mbYes, mbNo],0)=mrYes then Table1.Delete; end; Қадам5. Форма бетіне Button9 компонентін орнатып, Caption қасиетіне келесі сәйкес мәнді беріңіз: Барлығын кетіру. Оның OnClick оқиғасының ӛңдеуішіне келесі кодты жазыңыз: procedure TForm1.Button9Click(Sender:TObject); begin if MessageDlg(Сіз расында да барлық жазбаны кетіресіз ба?',mtConfirmation, [mbYes, mbNo],0)=mrYes then begin Table1.First; for i:=1 to Table1.RecordCount do begin Table1.Delete; Table1.Next; end; end; end; Тапсырма: 1. Жатақхана формасына жазбалар бойынша кӛшуді ҧйымдастырыңыз. 2. Кесте жолдарына жаңа жазбаларды енгізуді ҧйымдастырыңыз. 3. Жазбаларды кетіруді ҧйымдастырыңыз Тақырыпқа байланысты бақылау сұрақтары: 1. Жазбалар бойынша кӛшуді қалай ҧйымдастырамыз? 2. Edit компонентіне мәліметтер базасының ӛрісін қалай меншіктейміз? 3. Жазбаны кетіруді қалай ҧйымдастырамыз? №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; |