Л. Н. Гумилев атындағы Еуразия
Л.Н. Гумилев атындағы Еуразия
жүктеу/скачать 4,34 Mb. Pdf көрінісі
|
umkd (1)
| Л.Н. Гумилев атындағы Еуразия
ұлттық университеті Пәннің оқу-әдістемелік кешені Басылым: бесінші ЕҦУ Ф 703-08-17 Пәннің оқу-әдістемелік кешені. Алтыншы басылым №11 практикалық жұмыс Тақырыбы: Жазбалармен жҧмыс. Мақсаты: Insert, Post әдістерінің қызметтерін меңгеру. Кестедегі жазбалар бойынша кӛшуді DBNavigator компонентінің кӛмегінсіз де жҥзеге асыруға болады. Қадам1. Форма бетіне тӛрт батырма орнатып, оның Caption қасиетіне келесі сәйкес мәндерді беріңіз: Бірінші (First), Келесі (Next), Алдыңгысы (Prior), Соңгысы (Last). Әр батырма ҥшін OnClick оқиғасының ӛңдеуішін қҧрып, оған сәйкес кодты жазамыз, мысалы Келесі батырмасына арналған код келесі тҥрде болады: procedure TForm1.Button3Click(Sender:TObject); begin Table1.Next; end; Қадам2. Кесте жолдарына жаңа жазбаларды енгізу. Форма бетіне алты Edit(1-6) компонентін және бір MaskEdit1 компонентін, сонымен қатар жеті Label (1-7) компонентін және Button1 компонентін орнатамыз. Label (1-7) компонентінің Caption қасиетіне келесі сәйкес мәндерді беріңіз: Сынақ кітапшасының №, Фамилия, Аты, әкесінің аты, Факультет, Топ, Дата. Button1 компонентінің Caption қасиетіне келесі сәйкес мәнді беріңіз: Жазба қосу. MaskEdit1 компонентінің Text қасиетін шақырып, оның Input Text жолына кез келген датаны, мысалы, 01.01.2002, енгізіп, Ok батырмасын басыңыз. ҚадамЗ. Жазба қосу батырмасын екі рет шертіп, оған келесі кодты енгізіңіз: procedure TForm1.Button7Click(Sender:TObject); var k, i: integer; begin k:=0; Table1.First; for i:=1 to Table1.RecordCount do begin if Table1.FieldByName('NZachet').AsString = Editl.Text then k:=k+1; Table1.Next; end; if k>0 then begin ShowMessage('Сынақ кітапшасының № сәйкес мәліметтер бар!!!'); Edit1.SetFocus; exit; end; else begin Table 1.Insert; Tablel. FieldByName('NZachet').AsString := Editl.Text; Tablel. FieldByName('FamS').AsString := Edit2.Text; Tablel. FieldByName('NameS').AsString := Edit3.Text; Tablel. FieldByName('PatS').AsString := Edit4.Text; Tablel. FieldByName('FaculS').AsString := Edit5.Text; Tablel. FieldByName('GroupS').AsString := Edit6.Text; Tablel. FieldByName('DataPost').AsString := MaskEdit1.Text; Table1.Post; end; end; Қадам4. Форма бетіне Button8 компонентін орнатып, Caption қасиетіне келесі сәйкес мәнді беріңіз: Жазбаны кетіру. Оның OnClick оқиғасының ӛңдеуішіне келесі кодты жазыңыз: procedure TForm1.Button8Click(Sender:TObject); begin |