Axborot ta’lim texnologiyalari kafedrasi

2.6-rasm. PopMenu Itms 
2.28. DBGrid1 PopMenu xususiyatiga PopMenu1 ulanadi; 
2.29.  Form1  Caption  xususiyatiga  "SAVDO  DO‘KONLARIDA  HISOB-KITOB 
TIZIMI  FAOLIYATINI  TAKOMILLASHTIRISH  ELEKTIRON DASTURI" deb 
yoziladi (2.7-rasm); 
 
2.7-rasm. sPanel1 tayyor holda. 
3-§. Hisobot yuritish uchun ma’lumotlar bazasinitahrirlash 
 
Hisobotni yuritish uchun ma’lumotlar bazasini quyidagicha tahrirlaymiz: 
3.1.  Uskunalar  panelining  AlphaStandart  bo’limidan  3  ta  sPanel  komponentasini 
olib ichma-ich bo’lgan holda Form1 oynasiga joylashtiriladi; 
3.2. sPanel7 komponentasi Align xususiyati alClentga o’zgartiriladi; 

---

~ 25 ~ 
 
3.3.  Uskunalar  panelining  Data  Controls  bo’limidan  DBGrid  komponentasini  olib 
Form1 oynasiga sPanel10 ichiga joylashtiriladi; 
3.4.  Uskunalar  panelining  Data  Controls  bo’limidan  DBGrid  komponentasini  olib 
Form1 oynasiga sPanel11 ichiga joylashtiriladi; 
3.5. Uskunalar panelining Data Controls bo’limidan DBChart komponentasini olib 
Form1 oynasiga sPanel11 ichiga joylashtiriladi; 
3.6.  Uskunalar  panelining  AlphaStandart  bo’limidan  1  ta  sButton  komponentasini 
olib   Form1 oynasiga sPanel11 ichiga joylashtiriladi; 

 
Caption xususiyatiga “Chop etish” deb yoziladi. 
Ob’yektni  ko’rinishiga  doir  xossalaridan  Font  tanlanadi(...  bosilgan  holda).Font 
shirift =“Times New Roman”,  qalin,12  razmerga  sozlanadi  va  OK  tugmasi 
bosiladi. 
3.7.  Uskunalar  panelining  AlphaStandart  bo’limidan  3  ta  sButton  komponentasini 
olib   Form1 oynasiga sPanel7 ichiga joylashtiriladi; 
3.7.1.  sButton4  komponentasi  Caption  xususiyatiga  “Chop  etish”  deb  yozib 
qo’yiladi; 
3.7.2.  sButton5  komponentasi  Caption  xususiyatiga  “Jami”  deb  yozib 
qo’yiladi;
 
3.7.3.  sButton7  komponentasi  Caption  xususiyatiga  “PDFda  saqlash”  deb 
yozib qo’yiladi. 
3.8.  Uskunalar  panelining  AlphaStandart  bo’limidan  6  ta  sLabel  komponentasini 
olib   Form1 oynasiga sPanel7 ichiga joylashtiriladi; 
3.8.1. sLabel12 komponentasi Caption xususiyatiga “Hozirgi vaqt” deb yozib 
qo’yiladi; 
3.8.2.  sLabel8  komponentasi  Caption  xususiyatiga  “Hisobot”  deb  yozib 
qo’yiladi; 
3.8.3.  sLabel10  komponentasi  Caption  xususiyatiga  “VAQT”  deb  yozib 
qo’yiladi; 

---

~ 26 ~ 
 
3.8.4.  sLabel11  komponentasi  Caption  xususiyatiga  “12/12/2012”  deb  yozib 
qo’yiladi; 
3.8.5. sLabel10  komponentasi Caption  xususiyatiga “<-- Qidirish” deb  yozib 
qo’yiladi; 
3.8.6.  sLabel11  komponentasi  Caption  xususiyatiga  “Sanasi”  deb  yozib 
qo’yiladi; 
3.8.7.  Ob’yektni  ko’rinishiga  doir  xossalaridan  Font  tanlanadi(...  bosilgan 
holda); 
Font shirift =
“
Times New Roman”,  qalin,18  razmerga  sozlanadi  va  OK  tugmasi 
bosiladi. 
3.9. Uskunalar panelidan AlphaStandart bo’limini tanlab, Form1 oynasiga sPanel7 
komponentasi ichiga 2 ta sEdit komponentasini olib joylashtiriladi; 
Ob’yektni ko’rinishiga doir xossalaridan Font tanlanadi(... bosilgan holda). 
Font shirift =
“
Times New Roman”,  qalin ,18  razmerga sozlanadi  va OK tugmasi 
bosiladi. 
3.9.1. sEdit3 komponentasi ichiga quyidagi dastur dastur kod yoziladi: 
void __fastcall TForm1::sEdit3Change(TObject *Sender) 
{ 
     ADOQuery2->Close(); 
     ADOQuery2->SQL->Clear(); 
     ADOQuery2->SQL->Add("SELECT *FROM Hisobot WHERE "+qid+" like 
‘"+sEdit3->Text+"%’"); 
     ADOQuery2->Open(); 
     ADOQuery4->Close(); 
     ADOQuery4->SQL->Clear(); 
     ADOQuery4->SQL->Add("SELECT *FROM Hammasi WHERE "+qid+" like 
‘"+sEdit3->Text+"%’"); 
     ADOQuery4->Open(); 
} 

---

~ 27 ~ 
 
3.9.2. sEdit5 komponentasi ichiga quyidagi dastur kod yoziladi: 
void __fastcall TForm1::sEdit5Change(TObject *Sender) 
{ 
     ADOQuery3->Close(); 
     ADOQuery3->SQL->Clear(); 
     ADOQuery3->SQL->Add("SELECT *FROM Grafik WHERE `Kassa_sanasi` 
like ‘"+sEdit5->Text+"%’"); 
     ADOQuery3->Open(); 
     ADOQuery4->Close(); 
     ADOQuery4->SQL->Clear(); 
     ADOQuery4->SQL->Add("SELECT *FROM Hammasi WHERE `Sana` like 
‘"+sEdit5->Text+"%’"); 
     ADOQuery4->Open(); 
} 
3.10.  Uskunalar  panelidan  AlphaStandart  bo’limini  tanlab,  Form1  oynasiga 
sPanel7 komponentasi ichiga sCombobox komponentasini olib joylashtiriladi; 
Itms xususiyatiga: 
Nomi 
Narxi 
Sotilgan_Vaqt 
Sotilgan_Sana 
Hajmi deb yoziladi. 
3.11.  Uskunalar  panelidan  AlphaStandart  bo’limini  tanlab,  Form1  oynasiga 
sPanel7 komponentasi ichiga sDateEdit komponentasini olib joylashtiriladi; 
3.11.1. sDateEdit1 OnClik xususiyatiga quyidagi dastur kod yoziladi: 
void __fastcall TForm1::sDateEdit1Change(TObject *Sender) 
{ 
  sEdit5->Text=sDateEdit1->Text; 
} 

---

~ 28 ~ 
 
3.12. sButton4 tugmasi ichiga quyidagi dastur dastur kodni yozamiz: 
void __fastcall TForm1::sButton4Click(TObject *Sender) 
{ 
   if(sPanel10->Visible) 
    { 
      frxReport2->ShowReport(); 
    } 
    else 
    { 
      frxReport1->ShowReport(); 
    } 
} 
3.13. sButton5 tugmasi ichiga quyidagi dastur kodni yozamiz: 
void __fastcall TForm1::sButton5Click(TObject *Sender) 
{ 
    if(sPanel10->Visible) 
    { 
      sPanel10->Visible=false; 
      sButton5->Caption="Jami"; 
    } 
    else 
    { 
      sPanel10->Visible=true; 
     sButton5->Caption="Hammasi"; 
    } 
} 
3.14. sButton6 tugmasi ichiga quyidagi dastur kodni yozamiz: 
void __fastcall TForm1::sButton6Click(TObject *Sender) 
{ 

---

~ 29 ~ 
 
    QuickRep1->PrinterSetup(); 
   DBChart1->Print(); 
} 
3.15. sButton7 tugmasi ichiga quyidagi dastur kodni yozamiz: 
void __fastcall TForm1::sButton7Click(TObject *Sender) 
{ 
   if(sPanel10->Visible) 
    { 
      frxReport2->Export(frxPDFExport1); 
    } 
    else 
    { 
      frxReport1->Export(frxPDFExport1); 
    } 
}