Программалау технологиясы



Pdf көрінісі
бет50/136
Дата08.02.2022
өлшемі2,48 Mb.
#121875
түріПрограмма
1   ...   46   47   48   49   50   51   52   53   ...   136
Байланысты:
Мукашев С Builder

void __fastcall 
TForm1::Button1Click(TObject *Sender)
// 'ЕНГIЗУДI ОРЫНДАУ' батырмасының коды 

grup[n].fam=Edit1->Text; 
grup[n].ati=Edit2->Text; 
grup[n].tugG=StrToInt(Edit3->Text); 


Memo1->Lines->Add(grup[n].fam+" "+ 
grup[n].ati+" "+IntToStr(grup[n].tugG)); 
n++; 
Edit1->Clear();Edit2->Clear();Edit3->Clear(); 
Edit1->SetFocus(); 

//--------------------------------------------------------------------------- 
void __fastcall 
TForm1::Edit1KeyPress(TObject *Sender,
char
&Key) 

if
(Key==13) Edit2->SetFocus(); 

//--------------------------------------------------------------------------- 
void __fastcall 
TForm1::Edit2KeyPress(TObject *Sender,
char
&Key) 

if
(Key==13) Edit3->SetFocus(); 

//--------------------------------------------------------------------------- 
void __fastcall 
TForm1::Edit3KeyPress(TObject *Sender,
char
&Key) 

if
(Key==13) Button1->SetFocus(); 

//--------------------------------------------------------------------------- 
void __fastcall 
TForm1::Button2Click(TObject *Sender)
// 'СУРЫПТАУДЫ ОРЫНДАУ' батырмасының коды 

if
(RadioGroup1->ItemIndex==0) //fam boinsha syriptay bastaldi 
{ Memo1->Clear(); 


for(


Достарыңызбен бөлісу:
1   ...   46   47   48   49   50   51   52   53   ...   136




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

    Басты бет