Axborot ta’lim texnologiyalari kafedrasi

7.3-rasm. Form4 oynasi tayyor ko’rinishi. 

---

~ 63 ~ 
 
7.42. Standart bo’limida MainMenu komponentasini olib Form5 oynasiga ixtiyoriy 
joylashtiriladi(Ma’lumotllar Standart joylashib qoladi); 
7.42.1.  MainMenu1ning    ob’yektni  ko’rinishiga  doir  xossalaridan  Items  tanlanadi 
(... bosiladi); 
7.42.2 .MainMenu1 Itemsga CHIQISH tugmasini hosil qilamiz. 
7.43.  Uskunalar  panelidan  Standart  bo’limini  tanlab,  6  ta  Label  komponentasini 
olib Form5ga joylashtiriladi; 
7.43.1.  Label1 komponentasi Caption xususiyatiga “Nomi :” deb yoziladi; 
7.43.2. Label2 komponentasi Caption xususiyatiga “Turi :” deb yoziladi; 
7.43.3.  Label3  komponentasi  Caption  xususiyatiga  “Qo’llanilishi  :”  deb 
yoziladi; 
7.43.4. Label4 komponentasi Caption xususiyatiga “Soni :” deb yoziladi; 
7.43.5. Label5 komponentasi Caption xususiyatiga “Narxi :” deb yoziladi; 
7.43.6  Label6 komponentasi Caption xususiyatiga “Joyi:” deb yoziladi.  
7.44. Uskunalar panelidan Standart bo’limini tanlab, 6 ta Edit komponentasini olib 
Form5ga  joylashtiriladi.  Edit  komponentalarining  barchasi  belgilanib  Text 
xususiyati o’chiriladi; 
7.45.  Uskunalar  panelidan  Standart  bo’limini  tanlab,  2  ta  Button  komponentasini 
olib Form5ga joylashtiriladi; 
3.45.1. Button1 komponentasi Caption xususiyatiga “Rasmi” deb yoziladi; 
3.45.2.  Button2  komponentasi  Caption  xususiyatiga  “SAQLASH”  deb 
yoziladi. 
7.46.  Uskunalar  panelidan  Standart  bo’limini  tanlab,  Panel  komponentasini  olib 
Form5ga joylashtiriladi; 
7.47. Uskunalar panelidan Additional bo’limini tanlab, Image komponentasini olib 
Form5ga Panel1 ichiga joylashtiriladi; 
7.47.1. Image1 komponentasining Align xususiyatiga alClient tanlanadi. 
7.48.  Uskunalar  panelidan  Dialogs  bo’limini  tanlab,  OpenPictureDialog 
komponentasini olib Form5ga joylashtiriladi; 

---

~ 64 ~ 
 
7.49. Form5 oynasi Caption xususiyatiga "O‘zgartirish" deb yoziladi; 
7.50. CHIQISH tugmasi ichiga quyidagi dastur kod yoziladi: 
void __fastcall TForm5::C1Click(TObject *Sender) 
{ 
      sEdit1->Text=""; 
        sEdit2->Text=""; 
        sEdit3->Text=""; 
        sEdit4->Text=""; 
        sEdit5->Text=""; 
        sEdit6->Text=""; 
         rasm=false; 
              Image1->Visible=false; 
    Form5->Close(); 
} 
7.51. Rasmi tugmasi ichiga quyidagi dastur kod yoziladi: 
if(OpenPictureDialog1->Execute()) 
    { 
       Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName); 
       Image1->Visible = true; 
       rasm=true; 
    } 
7.52. SAQLASH tugmasi ichiga quyidagi dastur kod yoziladi: 
void __fastcall TForm5::sButton1Click(TObject *Sender) 
{ 
    if(sEdit1->Text!=""&&sEdit2->Text!=""&&sEdit3->Text!=""&&sEdit4-
>Text!=""&&sEdit5->Text!=""&&sEdit6->Text!="") 
     { 
        Form4->ADOQuery1->Edit(); 
        Form4->ADOQuery1->FieldByName("nomi")->AsString=sEdit1->Text; 

---

~ 65 ~ 
 
        Form4->ADOQuery1->FieldByName("turi")->AsString=sEdit2->Text; 
        Form4->ADOQuery1->FieldByName("qullanilishi")->AsString=sEdit3-
>Text; 
        Form4->ADOQuery1->FieldByName("soni")->AsString=sEdit4->Text; 
        Form4->ADOQuery1->FieldByName("narxi")->AsString=sEdit5->Text; 
        Form4->ADOQuery1->FieldByName("joyi")->AsString=sEdit6->Text; 
        Form4->ADOQuery1->FieldByName("Keltirilgan")->AsString=Form1-
>Label9->Caption; 
         if(rasm) 
         { 
              TMemoryStream * strm = new TMemoryStream(); 
              Image1->Picture->Graphic->SaveToStream(strm); 
              ((TGraphicField 
*)Form4->ADOQuery1->FieldByName("surati"))-
>LoadFromStream(strm); 
              delete strm; 
              rasm=false; 
              Image1->Visible=false; 
          } 
        Form4->ADOQuery1->Post(); 
        sEdit1->Text=""; 
        sEdit2->Text=""; 
        sEdit3->Text=""; 
        sEdit4->Text=""; 
        sEdit5->Text=""; 
        sEdit6->Text=""; 
     } 
     Form5->Close(); 
} 

---

~ 66 ~