Axborot ta’lim texnologiyalari kafedrasi

7.1-rasm. Form2 oynasi tayyor ko’rinishda. 

---

~ 55 ~ 
 
7.10. CHIQISH tugmasi ichiga quyidagi dastur kod yoziladi: 
void __fastcall TForm2::C1Click(TObject *Sender) 
{ 
        sEdit1->Text=""; 
        sEdit2->Text=""; 
        sEdit3->Text=""; 
        sEdit4->Text=""; 
        sEdit5->Text=""; 
        sEdit6->Text=""; 
         rasm=false; 
         Image1->Visible=false; 
     Form2->Close(); 
} 
7.11. Rasm tugmasi ichiga quyidagi dastur kod yoziladi: 
void __fastcall TForm2::sButton2Click(TObject *Sender) 
{ 
    if(OpenPictureDialog1->Execute()) 
    { 
       Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName); 
       Image1->Visible = true; 
       rasm=true; 
    } 
} 
7.12. QO‘SHISH tugmasi ichiga quyidagi dastur kod yoziladi: 
void __fastcall TForm2::sButton1Click(TObject *Sender) 
{ 
     if(sEdit1->Text!=""&&sEdit2->Text!=""&&sEdit3->Text!=""&&sEdit4-
>Text!=""&&sEdit5->Text!=""&&sEdit6->Text!="") 
     { 

---

~ 56 ~ 
 
        Form1->ADOTable1->Insert(); 
        Form1->ADOTable1->FieldByName("nomi")->AsString=sEdit1->Text; 
        Form1->ADOTable1->FieldByName("turi")->AsString=sEdit2->Text; 
        Form1->ADOTable1->FieldByName("qullanilishi")->AsString=sEdit3-
>Text; 
        Form1->ADOTable1->FieldByName("soni")->AsString=sEdit4->Text; 
        Form1->ADOTable1->FieldByName("narxi")->AsString=sEdit5->Text; 
        Form1->ADOTable1->FieldByName("joyi")->AsString=sEdit6->Text; 
        Form1->ADOTable1->FieldByName("Keltirilgan")->AsString=Form1-
>Label9->Caption; 
        Form1->ADOTable1->FieldByName("sotilanlari")->AsString="0"; 
        Form1->ADOTable1->FieldByName("summasi")->AsString="0"; 
         if(rasm) 
         { 
              TMemoryStream * strm = new TMemoryStream(); 
              Image1->Picture->Graphic->SaveToStream(strm); 
              ((TGraphicField 
*)Form1->ADOTable1->FieldByName("surati"))-
>LoadFromStream(strm); 
              delete strm; 
              rasm=false; 
              Image1->Visible=false; 
          } 
        Form1->ADOTable1->Post(); 
        sEdit1->Text=""; 
        sEdit2->Text=""; 
        sEdit3->Text=""; 
        sEdit4->Text=""; 
        sEdit5->Text=""; 
        sEdit6->Text=""; 

---

~ 57 ~ 
 
        sEdit1->SetFocus(); 
     } 
} 
7.13.  Form2  komponentasi  BorderStyle  xususiyatiga  bsSingle  tanlanadi.  Form2 
komponentasi BorderIcons xususiyatiga [biSystemMenu,biMinimize] deb yoziladi; 
7.14. Form3 komponentasi Caption xususiyatiga “Dastur Haqida” deb yoziladi; 
7.15. Form3 komponentasi BorderStyle xususiyatiga bsSingle tanlanadi; 
7.16.  Form3  komponentasi  BorderIcons  xususiyatiga  [biSystemMenu]  deb 
yoziladi; 
7.17.  Uskunalar  panelidan  Standart  bo’limini  tanlab,  Label  komponentasini  olib 
Form3ga joylashtiriladi; 
7.18.    Label1  komponentasi  Caption  xususiyatiga  dasturchi  haqida  ma’lumot 
masalan:  

 
“Ushbu  dastur  TATU  Qarshi  filialida  Ma’rufjon  Isomiddinov  tomonidan 
ishlab chiqildi. Murojat uchun: 
[e-mail]
 :” deb yoziladi. 
7.19.  Label1  ob’yektni  ko’rinishiga  doir  xossalaridan  Font  tanlanadi(...  bosilgan 
holda); 
Font shirift =
“
Times New Roman”,  qalin  ,  14  razmerga  sozlanadi  va  OK 
tugmasi bosiladi.