Axborot ta’lim texnologiyalari kafedrasi

7.2-rasm. Form3 oynasi tayyor holda. 
7.20. Form4 komponentasi Caption xususiyatiga “Tahrirlash” deb yoziladi; 
7.21. Form4 komponentasi BorderStyle xususiyatiga bsSingle tanlanadi; 

---

~ 58 ~ 
 
7.22.  Form4  komponentasi  BorderIcons  xususiyatiga  [biSystemMenu]  deb 
yoziladi; 
7.23. Standart bo’limida MainMenu komponentasini olib Form4 oynasiga ixtiyoriy 
joylashtiriladi(Ma’lumotllar Standart joylashib qoladi); 
7.23.1.  MainMenu1ning    ob’yektni  ko’rinishiga  doir  xossalaridan  Items 
tanlanadi (... bosiladi); 
7.23.2 .MainMenu1 Itemsga CHIQISH tugmasini hosil qilamiz. 
7.24. CHIQISH tugmasi ichiga quyidagi dastur kod yoziladi: 
void __fastcall TForm4::C2Click(TObject *Sender) 
{ 
   sButton1->Enabled=false; 
   sButton2->Enabled=false; 
   sButton3->Enabled=false; 
   Form4->Close(); 
} 
7.25.  Uskunalar  panelidan  Standart  bo’limini  tanlab,  Form4  oynasiga  Edit 
komponentasini olib joylashtiriladi va Name xususiyatiga sEdit1 deb yoziladi; 
7.26. Edit komponentasini ustiga sichqonchani chap tugmasini ikki marta bosamiz 
va ushbu dastur kodni yozamiz: 
void __fastcall TForm4::sEdit1Change(TObject *Sender) 
{ 
 ADOQuery1->Close(); 
    ADOQuery1->SQL->Clear(); 
    ADOQuery1->SQL->Add("SELECT  *FROM  dorilar  WHERE  `nomi`  like 
‘"+sEdit1->Text+"%’"); 
    ADOQuery1->Open(); 
} 
7.27.  Uskunalar  panelidan  Standart  bo’limini  tanlab,  3  ta  Button  komponentasini 
olib Form2ga joylashtiriladi; 

---

~ 59 ~ 
 
7.27.1. Button1 komponentasi Caption xususiyatiga “O‘chirish” deb yoziladi; 
7.27.2.  Button2  komponentasi  Caption  xususiyatiga  “O‘zgartirish”  deb 
yoziladi; 
7.27.3.  Button3  komponentasi  Caption  xususiyatiga  “Soniga  Qo’shish”  deb 
yoziladi. 
7.28. O‘chirish tugmasi ichiga quyidagi dastur kod yoziladi: 
void __fastcall TForm4::sButton2Click(TObject *Sender) 
{ 
     if(ADOQuery1->FieldByName("nomi")->AsString!="") 
     { 
       ADOQuery1->Delete(); 
     } 
} 
7.29. O‘zgartirish tugmasi ichiga quyidagi dastur kod yoziladi: 
void __fastcall TForm4::sButton1Click(TObject *Sender) 
{ 
   Form5->sEdit1->Text=ADOQuery1->FieldByName("nomi")->AsString; 
   Form5->sEdit2->Text=ADOQuery1->FieldByName("turi")->AsString; 
   Form5->sEdit3->Text=ADOQuery1->FieldByName("qullanilishi")->AsString; 
   Form5->sEdit4->Text=ADOQuery1->FieldByName("soni")->AsString; 
   Form5->sEdit5->Text=ADOQuery1->FieldByName("narxi")->AsString; 
   Form5->sEdit6->Text=ADOQuery1->FieldByName("joyi")->AsString; 
   if(!(TBlobField*)ADOQuery1->FieldByName("surati")->IsNull) 
        { 
        if(!Form5->Image1->Visible)Form5->Image1->Visible=true; 
        TMemoryStream * strm = new TMemoryStream; 
        TJPEGImage *ptJpg=new TJPEGImage; 
        ((TGraphicField*)ADOQuery1->FieldByName("surati"))-
>SaveToStream(strm); 

---

~ 60 ~ 
 
        strm->Seek(0, 0); 
        if(*(Word*)strm->Memory == 0xD8FF) 
        Form5->Image1->Picture->Graphic=ptJpg; 
        Form5->Image1->Picture->Graphic->LoadFromStream(strm); 
        delete strm; 
        delete ptJpg; 
        } 
        else { 
                Form5->Image1->Visible=false; 
                Form5->sPanel1->Caption="Surat mavjud emas"; 
        } 
    Form5->ShowModal(); 
    ADOQuery1->Refresh(); 
} 
7.30. Soniga Qo’shish tugmasi ichiga quyidagi dastur kod yoziladi: 
void __fastcall TForm4::sButton3Click(TObject *Sender) 
{ 
    String p; 
    InputQuery(ADOQuery1->FieldByName("nomi")->AsString,"Dorilar 
sonini 
kiriting",p); 
    int b=StrToInt(p); 
    ADOQuery1->Edit(); 
    ADOQuery1->FieldByName("soni")-
>AsString=IntToStr(StrToInt(ADOQuery1->FieldByName("soni")-
>AsString)+StrToInt(p)); 
    ADOQuery1->Post(); 
    ADOQuery1->Refresh(); 
} 

---

~ 61 ~ 
 
7.31.  Uskunalar  panelidan  Standart  bo’limini  tanlab,  Panel  komponentasini  olib 
Form4ga joylashtiriladi. 
7.32. Uskunalar panelidan Additional bo’limini tanlab, Image komponentasini olib 
Form4ga Panel1 ichiga joylashtiriladi. 
7.32.1. Image1 komponentasining Align xususiyatiga alClient tanlanadi 
7.33.  Uskunalar  panelining  Data  Controls  bo’limida  DBGrid  komponentasini  olib 
Form4 oynasiga joylashtiriladi. 
7.33.1.  DBGrid1  komponentasining  ob’yektni  ko’rinishiga  doir  xossalaridan 
Align xossasiga alBottom tanlanadi. 
7.34.  DBGrid1  komponentasi  OnCellClik  xossasiga  quyidagi  dastur  kodni 
yozamiz: 
void __fastcall TForm4::DBGrid1CellClick(TColumn *Column) 
{ 
    if(!(TBlobField*)ADOQuery1->FieldByName("surati")->IsNull) 
        { 
        if(!Image1->Visible)Image1->Visible=true; 
        TMemoryStream * strm = new TMemoryStream; 
        TJPEGImage *ptJpg=new TJPEGImage; 
        ((TGraphicField*)ADOQuery1->FieldByName("surati"))-
>SaveToStream(strm); 
        strm->Seek(0, 0); 
        if(*(Word*)strm->Memory == 0xD8FF) 
Image1->Picture->Graphic=ptJpg; 
        Image1->Picture->Graphic->LoadFromStream(strm); 
        delete strm; 
        delete ptJpg; 
        } 
        else { 
                Image1->Visible=false; 

---

~ 62 ~ 
 
                sPanel1->Caption="Surat mavjud emas"; 
        } 
        sButton1->Enabled=true; 
        sButton2->Enabled=true; 
        sButton3->Enabled=true; 
} 
7.35. ADO bo’limidaADOTable, ADOQuery komponentasini olib Form4 oynasiga 
ixtiyoriy joylashtiriladi. 
7.36.  Data  Accessbo’limidaDataSource  komponentasini  olib  Form4  oynasiga 
ixtiyoriy joylashtiriladi. 
7.37. 
ADOQuery1 
komponentasi 
Connection 
xususiyatiga 
Form1-
>ADOConnection1 tanlanadi. 
7.38. 
ADOTable1 
komponentasi 
Connection 
xususiyatiga 
Form1-
>ADOConnection1 tanlanadi. 
7.39. ADOTable1 komponentasi TableName xususiyatiga dorilar tanlanadi. 
7.40. ADOTable1 komponentasi Active xususiyatiga true tanlanadi. 
7.41. DataSource1 komponentasi DataSet xususiyatiga ADOQuery1 tanlanadi.