Axborot ta’lim texnologiyalari kafedrasi

10.1-rasm. 
10.3.3. Hisobot tugmasi ichiga quyidagi kodni yozamiz: 
void __fastcall TForm1::H1Click(TObject *Sender) 
{ 
    sEdit2->Text="s"; 
    sEdit2->Text=""; 
     if(sPanel2->Visible) 
     { 
      ADOQuery1->Cancel(); 
      sPanel2->Visible=false; 
     } 
   sPanel3->Visible=true; 
     sPanel1->Visible=false; 
     C2->Visible=true; 
     Joynibushatish1->Visible=false; 
     O2->Visible=false; 
} 
10.3.4. Yo'riqnoma tugmasi ichiga quyidagi kodni yozamiz: 
void __fastcall TForm1::Y1Click(TObject *Sender) 
{ 
     Form2->ShowModal();    
} 
10.3.5. Dastur Haqida tugmasi ichiga quyidagi kodni yozamiz: 
void __fastcall TForm1::D1Click(TObject *Sender) 
{ 
    Form3->ShowModal(); 
} 
10.3.6. Chop Etish tugmasi ichiga quyidagi kodni yozamiz: 

---

~ 81 ~ 
 
void __fastcall TForm1::C2Click(TObject *Sender) 
{ 
   QuickRep1->Preview(); 
} 
10.3.7. Joyni bo'shatish tugmasi ichiga quyidagi kodni yozamiz: 
void __fastcall TForm1::Joynibushatish1Click(TObject *Sender) 
{ 
    ADOTable2->Insert(); 
    ADOTable2->FieldByName("Rusumi")->AsString= ADOQuery1-
>FieldByName("Rusumi")->AsString; 
    ADOTable2->FieldByName("Davlat_raqami")->AsString= ADOQuery1-
>FieldByName("Davlat_raqami")->AsString; 
    ADOTable2->FieldByName("Egasi_Ism")->AsString= ADOQuery1-
>FieldByName("Egasi_Ism")->AsString; 
    ADOTable2->FieldByName("Tel_Nomeri")->AsString= ADOQuery1-
>FieldByName("Tel_Nomeri")->AsString; 
    ADOTable2->FieldByName("Joyi")->AsString= ADOQuery1-
>FieldByName("Joyi")->AsString; 
    ADOTable2->FieldByName("Kelgan_vaqti")->AsString= ADOQuery1-
>FieldByName("Kelgan_vaqti")->AsString; 
    ADOTable2->FieldByName("Ketgan_vaqti")->AsString =sLabel12->Caption+" 
"+sLabel11->Caption; 
     ADOTable2->Post(); 
     ADOQuery1->Delete(); 
} 
10.3.8. O‘zgartirish tugmasi ichiga quyidagi kodni yozamiz: 
void __fastcall TForm1::O2Click(TObject *Sender) 
{ 
      ADOQuery1->Edit(); 
      sPanel2->Visible=true; 

---

~ 82 ~ 
 
      sPanel1->Visible=false; 
} 
10.3.9. O‘zgartirish tugmasi ichiga quyidagi kodni yozamiz: 
void __fastcall TForm1::Chiqish1Click(TObject *Sender) 
{ 
      Form1->Close(); 
} 
10.4. Form1 oynasi kod qismiga F12 tugmasi yordamida o’tamiz va kutubxonalar 
qismigaquyidagi kutubxonalarni qo’shamiz: 
#include "Unit2.h" 
#include "Unit3.h" 
10.5. Uskunalar panelidan Additional bo’limini tanlab, Image komponentasini olib 
Form1ga sPanel1 ichiga joylashtiriladi; 
10.5.1.  Ob’yektni  ko’rinishiga  doir  xossalaridan  Stretch  xususiyatiga  true 
tanlanadi; 
10.5.2. Ob’yektni ko’rinishiga doir  xossalaridan  Picture  xususiyati tanlanadi, 
load  tugmasi  bosgan  holda  kompyuter  xotirasidan  Avtoturargohga  tegishli 
foto surat tanlanadi va Ok tugmasi bosiladi; 
10.5.3. Foto surat kerakli razmerga keltiriladi. 
10.6.  Uskunalar  panelidan  Standart  bo’limini  tanlab,  2  ta  Label  komponentasini 
olib Form1 oynasi sPanel1 ichiga joylashtiriladi; 
10.6.1. Label1 komponentasi Caption xususiyatiga “Qidirish” deb yoziladi; 
10.6.2.  Label2  komponentasi  Caption  xususiyatiga  “Qidirish  usuli”  deb 
yoziladi; 
10.6.3.  Label1,  Label2  ob’yektni  ko’rinishiga  doir  xossalaridan  Font 
tanlanadi(... bosilgan holda). 
Font shirift =“Times New Roman”,  qalin  ,  14  razmerga  sozlanadi  va  OK 
tugmasi bosiladi. 

---

~ 83 ~ 
 
10.7.  Uskunalar  panelidan  AlphaStandart  bo’limini  tanlab,  sComboBox 
komponentasini olob Form1 oynasi sPanel1 ichiga joylashtiriladi; 
10.7.1.  sComboBox1ning    ob’yektni  ko’rinishiga  doir  xossalaridan  Items 
tanlanadi (... bosiladi). 
Davlat_raqami 
Rusumi 
Egasi_Ism 
Tel_Nomeri 
Joyi 
Kelgan_vaqtideb yoziladi va Ok tugmasi bosiladi. 
10.7.2.    sComboBox1  ob’yektni  ko’rinishiga  doir  xossalaridan  Font 
tanlanadi(... bosilgan holda). 
Font  shrift  =“Times  New  Roman”,  qalin,  14  razmerga  sozlanadi  va  OK 
tugmasi bosiladi. 
10.8.  Uskunalar  panelidan  AlphaStandart  bo’limini  tanlab,  sEdit  komponentasini 
olob Form1 oynasi sPanel1 ichiga joylashtiriladi; 
10.8.1.  sEdit1  ob’yektni  ko’rinishiga  doir  xossalaridan  Font  tanlanadi(... 
bosilgan holda). 
Font  shrift  =“Times  New  Roman”,  qalin  ,  14  razmerga  sozlanadi  va  OK 
tugmasi bosiladi. 
10.8.2.  sEdit1  ob’yektni  ko’rinishiga  doir  xossalaridan  Text  hususiyati 
o'chiriladi.  
10.9. 
Uskunalar 
panelidan 
AlphaStandart 
bo’limini 
tanlab, 
sButton 
komponentasini olob Form1 oynasi sPanel1 ichiga joylashtiriladi; 
10.9.1.  sButton1  ob’yektni  ko’rinishiga  doir  xossalaridan  Font  tanlanadi(... 
bosilgan holda). 
Font  shrift  =“Times  New  Roman”,  qalin,  14  razmerga  sozlanadi  va  OK 
tugmasi bosiladi. 

---

~ 84 ~ 
 
10.9.2.  sEdit1  ob’yektni  ko’rinishiga  doir  xossalaridan  Caption  xususiyatiga 
“Avtomashina qo’shish” deb yozilzdi. 
10.10.  ADO  bolimidan  ADOConnection,  2  ta  ADOTable,  2  ta  ADOQuery 
komponentasini olib Form1 oynasiga ixtiyoriy joylashtiriladi; 
10.11.  Data  Access  bolimidan  4  ta  DataSource  komponentasini  olib 
Form1oynasiga ixtiyoriy joylashtiriladi; 
10.12. ADOConnection ustiga sichqoncha ikki marotaba bosiladi: