Axborot ta’lim texnologiyalari kafedrasi

2.1-rasm. MainMenu1 tayyor 
2.7.3. “Do’kon egasi” tugmasi ichiga quyidagi dastur dastur kodni yozamiz: 
void __fastcall TForm1::D2Click(TObject *Sender) 
{ 
    Form2->Label4->Caption="1" ; 
     if(sLabel3->Caption=="Sotuvchi") 
      { 

---

~ 13 ~ 
 
          Form2->sPanel2->Visible=true; 
          Form2->ShowModal(); 
      } 
      else 
      { 
         sLabel3->Caption="Sotuvchi"; 
         sPanel7->Visible=false; 
         MainMenu1->Items->operator [](0)->operator [](2)->Caption="Hisobot"; 
         MainMenu1->Items->operator 
[](0)->operator 
[](0)->Caption="Do’kon 
egasi"; 
 } 
} 
2.7.4. “Yangi mahsulot” tugmasi ichiga quyidagi dastur dastur kodni yozamiz: 
void __fastcall TForm1::t1Click(TObject *Sender) 
{ 
      if(sLabel3->Caption=="Sotuvchi") 
      { 
         ShowError("Mahsulot qo’shish uchun ruhsat berilmagan!"); 
      } 
      else 
      { 
         ADOQuery1->Insert(); 
         Form2->ShowModal(); 
      } 
} 
2.7.5. “Hisobot” tugmasi ichiga quyidagi dastur dastur kodni yozamiz: 
void __fastcall TForm1::H1Click(TObject *Sender) 
{ 
 

---

~ 14 ~ 
 
    if(ombor) 
    { 
      sPanel7->Visible=false; 
      MainMenu1->Items->operator [](0)->operator [](2)->Caption="Hisobot"; 
      ombor=false; 
    } 
    else 
    { 
      if(sLabel3->Caption!="Sotuvchi") 
      { 
        sPanel7->Visible=true; 
        sEdit3->Text="n"; 
        sEdit3->Text=""; 
        MainMenu1->Items->operator [](0)->operator [](2)->Caption="Ombor"; 
        ombor=true; 
      } 
      else 
      { 
       ShowWarning("Ruhsat berilmagan"); 
      } 
    } 
} 
2.7.6. “Qo’llanma”  tugmasi ichiga quyidagi dastur kodni yozamiz: 
void __fastcall TForm1::Q1Click(TObject *Sender) 
{ 
    sPanel2->Visible=true; 
    sPanel1->Visible=false; 
    sPanel4->Visible=false; 
    sPanel7->Visible=false; 

---

~ 15 ~ 
 
} 
2.7.7. “Dastur Haqida” tugmasi ichiga quyidagi dastur kodni yozamiz: 
void __fastcall TForm1::D1Click(TObject *Sender) 
{ 
  Form3->ShowModal(); 
} 
2.7.8. “Chiqish” tugmasi ichiga quyidagi dastur kodni yozamiz: 
void __fastcall TForm1::C1Click(TObject *Sender) 
{ 
   Form1->Close(); 
} 
Ikkinchi  formani  ochamiz  va  Form2  Formasida  quyidagi  amallarni 
bajaramiz. 
2.8. Uskunalar panelidan AlphaStandart bo’limini tanlab, Form2 oynasiga sPanel1 
komponentasi  ichiga  sGroupBox1  komponentasini  olib  joylashtiriladi.  Caption 
xususiyatiga esa “Mahsulot m’lumotlarini kiriting” deb yoziladi; 
2.8.1.  Uskunalar  panelidan  Standart  bo’limini  tanlab,  Form2  oynasiga  sPanel1 
komponentasi ichiga 4 ta Label komponentasini olib joylashtiriladi; 
2.8.1.1. Label1 Caption xususiyatiga “Mahsulot nomi” deb yoziladi. 
2.8.1.2. Label2 Caption xususiyatiga “Hajmi” deb yoziladi. 
2.8.1.3. Label3 Caption xususiyatiga “Sotuvdagi narxi” deb yoziladi. 
2.8.1.4. Label4 Caption xususiyatiga “Keltirilgan sana” deb yoziladi. 
2.8.1.5. Ob’yektni ko’rinishiga doir xossalaridan Font tanlanadi(... bosilgan holda). 
Font shirift =
“
Times New Roman”, 
qalin  ,12  razmerga  sozlanadi  va  OK 
tugmasi bosiladi. 
2.8.2. Uskunalar panelining Data Controls bo’limidan 3 ta DBEdit komponentasini 
olib Form2 oynasiga sPanel1 ichiga joylashtiriladi; 

---

~ 16 ~ 
 
Ob’yektni  ko’rinishiga  doir  xossalaridan  Font  tanlanadi(...  bosilgan  holda).Font 
shirift =
“
Times New Roman”,  qalin  ,14  razmerga  sozlanadi  va  OK  tugmasi 
bosiladi. 
2.8.2.1. Barcha DBEdit lar bazaga ulanadi. 
2.8.3.  Uskunalar  panelidan  AlphaStandart  bo’limini  tanlab,  Form2  oynasiga 
sPanel1 komponentasi ichiga 2 ta sButton komponentasini olib joylashtiriladi; 
2.8.3.1. sButton1 tugmasi ichiga quyidagi dastur kod yoziladi: 
void __fastcall TForm2::sButton1Click(TObject *Sender) 
{ 
   if(DBEdit1->Text=="") 
   { 
     ShowMessage("Siz mahsulot nomini kiritmadingiz!") ; 
   } 
   else if(DBEdit2->Text=="") 
   { 
    ShowMessage("Siz mahsulot hajmini kiritmadingiz!") ; 
   } 
   else if(DBEdit3->Text=="") 
   { 
      ShowMessage("Siz mahsulot sotuv narxini kiritmadingiz!") ; 
   } 
   else if(DBComboBox1->Text=="") 
   { 
      ShowMessage("Siz mahsulot sotuv o’lchov birligini tanlamadingiz!") ; 
   } 
   else 
   { 
            bool o=true; 
            int t=0; 
            AnsiString s,d; 
      if(true) 
      { 
          s= DateTimePicker1->DateTime; 

---

~ 17 ~ 
 
          for(int i=0; i          { 
             d=s.SubString(i,1); 
             if(d==" ") 
             { 
                t=i; 
                break; 
             } 
          } 
          s=s.SubString(0,t); 
          DBEdit4->Text=s; 
      } 
         Form1->ADOQuery1->FieldByName("Sotuv_soni")->AsString="0"; 
       Form1->ADOQuery1->Insert(); 
       ShowMessage("Mahsulot saqlandi"); 
       if(Label4->Caption=="3") 
       { 
         sLabel2->Visible=false; 
          DBEdit1->Visible=true; 
          sButton2->Visible=true; 
          Form2->Close(); 
       } 
   } 
} 
sButton2 tugmasi ichiga quyidagicha dastur kod yozamiz: 
void __fastcall TForm2::sButton2Click(TObject *Sender) 
{ 
   if( DBEdit1->Text==""&&DBEdit2->Text==""&&DBEdit3->Text=="" 
&&DBComboBox1->Text=="") 

---

~ 18 ~ 
 
   { 
       Form2->Close(); 
   } 
   else 
   { 
     ShowMessage("Yangi mahsulot qo’shilganini tekshirin!"); 
   } 
} 
2.8.4.  Uskunalar  panelining  Data  Controls  bo’limidan  1  ta  DBComboBox1 
komponentasini olib Form2 oynasiga sPanel1 ichiga joylashtiriladi; 
2.8.5.  Uskunalar  panelining  Win32  bo’limidan  1  ta  DateTimePicker1 
komponentasini olib Form2 oynasiga sPanel1 ichiga joylashtiriladi; 
Ob’yektni  ko’rinishiga  doir  xossalaridan  Font  tanlanadi(...  bosilgan  holda).Font 
shirift =
“
Times New Roman”,  qalin,14  razmerga  sozlanadi  va  OK  tugmasi 
bosiladi.