Axborot ta’lim texnologiyalari kafedrasi

4.1-rasm. Dastur va muallif haqida ma’lumot. 
4.2. Uskunalar panelidan AlphaStandart bo’limini tanlab, Form1 oynasiga sPanel2 
komponentasi ichiga sButton komponentasini olib joylashtiriladi; 

 
Caption xususiyatiga "OK" deb yozamiz.  

 
Ushbu qism dastur va dasturchi haqida ma’lumot beradi. 
4.3.  Uskunalar  paneli  Aditional  bo’limidan  sPanel4  komponentasi  ichiga  Image 
komponentasini olib joylashtiriladi; 

 
Image  komponentasi  Picture  xususiyatiga  kirib,  kompyuter  xotirasidan 
mavzuga mos surat tanlanadi. 
4.4. sPanel4 Align xususiyati alClint ga o’zgartiriladi. 
4.5.  Uskunalar  panelining  AlphaStandart  bo’limidan  4  ta  sLabel  komponentasini 
olib   Form1 oynasiga sPanel1 ichiga joylashtiriladi. 
4.5.1.  sLabel4  komponentasi  Caption  xususiyatiga  "Omborga  Kirish"  deb 
yozib qo’yiladi; 

---

~ 33 ~ 
 
4.5.2. sLabel2 komponentasi Caption xususiyatiga "Ism" deb yozib qo’yiladi; 
4.5.3. sLabel3 komponentasi Caption xususiyatiga Parol" deb yozib qo’yiladi; 
4.5.4.  Ob’yektni  ko’rinishiga  doir  xossalaridan  Font  tanlanadi(...  bosilgan 
holda); 
Font shirift =
“
Times New Roman”,  qalin, 24  razmerga sozlanadi  va OK tugmasi 
bosiladi. 
4.6. Uskunalar panelidan AlphaStandart bo’limini tanlab, Form1 oynasiga sPanel4 
komponentasi ichiga sButton komponentasini olib joylashtiriladi; 

 
Caption xususiyatiga “Kirish” deb yoziladi. 
Ob’yektni ko’rinishiga doir xossalaridan Font tanlanadi(... bosilgan holda). 
Font shirift =
“
Times New Roman”,  qalin, 26  razmerga sozlanadi  va OK tugmasi 
bosiladi. 
sButton3 tugmasi ichiga quyidagi dastur kodni yozamiz: 
void __fastcall TForm1::sButton3Click(TObject *Sender) 
{ 
   if(sEdit1->Text==Ism&&Par==Parol) 
   { 
     sPanel4->Visible=false; 
   } 
   else 
   { 
      ShowError("Ism yoki parol to’g’ri kelmadi!\n Qaytadan Urinib ko’rin."); 
      Par=""; 
      sEdit2->Text=""; 
   } 
} 
4.7. Uskunalar panelidan AlphaStandart bo’limini tanlab, Form1 oynasiga sPanel4 
komponentasi ichiga 2 ta sEdit komponentasini olib joylashtiriladi; 

 
Text xususiyati o’chiriladi. 

---

~ 34 ~ 
 
Ob’yektni ko’rinishiga doir xossalaridan Font tanlanadi(... bosilgan holda). 
Font shirift =
“
Times New Roman”,  qalin, 22  razmerga sozlanadi  va OK tugmasi 
bosiladi. 
4.8. sEdit2 KeyPres hudusiyatiga kirib quyidagi dastur kodni yozamiz: 
if(int(Key)>=48&&int(Key)<=57) 
   { 
     Par=Par+Key; 
     Key=char(42); 
   } 
   else 
   { if(Key!=8) 
     { 
        Key=0; 
     } 
     else 
 
     { 
        Par=Par.SubString(0,Par.Length()-1); 
     } 
   }