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


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



Pdf көрінісі
бет106/116
Дата28.10.2022
өлшемі4,34 Mb.
#45944
1   ...   102   103   104   105   106   107   108   109   ...   116
Байланысты:
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 




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




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

    Басты бет