O‘zbekiston Respublikasi Aloqa Axborotlashtirish va Telekomunikatsiya Davlat Qo‘mitasi

2.3 Ma‟lumotlar bazasida qidiruv tizimini yaratish, SQL 
qidiruv hizmati. 
2.7 rasm Qidiruv hizmati 
Bu dasturda tugma oldidagi Edit1 ga izlanayotgan kerakli ishchi so‘zni 
kiritiladi va qidirish tugmasi bosiladi. 
//--------------------------------------------------------------------------- 
void __fastcall TfrmQidiruv::Button1Click(TObject *Sender) 
{ if(RadioButton1->Checked) 
{ 
if(Edit1->Text=="") 
{Edit1->Text="kerakli modda raqamini kiriting!"; 
}else 
{dm->ADOQuery1->Close(); 

---

dm->ADOQuery1->SQL->Text="select * from qonun where moddalar like 
\"%"+ Edit1->Text+"%\""; 
dm->ADOQuery1->Open(); 
} } 
if(RadioButton2->Checked) 
{if(Edit1->Text=="") 
{Edit1->Text="kerakli so'zni kiriting!"; 
}else 
{dm->ADOQuery1->Close(); 
dm->ADOQuery1->SQL->Text="select * from sugurta_sozlari where soz 
like \"%"+ Edit1->Text+"%\""; 
dm->ADOQuery1->Open(); 
} }} 
2.7.2 rasm Dasturning bosh qismi 
//--------------------------------------------------------------------------- 

---

void __fastcall TfrmBoshi::btnQidiruvClick(TObject *Sender) 
{ 
dm->ADOQuery1->Close(); 
dm->ADOQuery1->SQL->Text="select * from qonun where qonun_sharhi 
like \"%"+ Edit1->Text+"%\""; 
dm->ADOQuery1->SQL->Text="select * from sugurta_sozlari where soz 
like \"%"+ Edit1->Text+"%\""; 
dm->ADOQuery1->Open(); 
} 
 
III. Amaliy qism. 
Dastur loyixasi. 
Sug'urta faoliyati 
qidiruv hizmati 
dastur haqida 
Muallif 
Sugurta haqida 
O'zbekiston 
respublikasi qonuni 
Sug'urta lug'ati 

---