45, 46. Shop деректер қорына динамикалық параметрлі сұранысын жазаңыз: берілген категорияға қатысты тауарларды шығару керек.

Айталық бізде goods деген кесте бар болсын:

атауы	Типі	Түсінігі
Id	Int	басты кілт
name	char(15)	Атауы
category	char(15)	Категория

ADOQuery1 компонентіне 1 параметр қосайық. Оның name қасиетін A болсын

Тұтынушы бөліміндегі Button1 кнопкасын басқанда категориясы Edit1 компонентінде жазылған тауарлардыDBGrid1-ке шығарсын.

Сонда Button1 кнопкасын басқанда орындалатын функция:

void __fastcall TForm1::Button1Click(TObject *Sender)

{

ADOQuery1->Parameters->ParamByName("A")->Value = Edit1->Text;//параметрге мән беру

ADOQuery1->Active=false;// ADOQuery1 дің жұмысын тоқтату

ADOQuery1->SQL->Clear();//бұрынғы SQL кодты тазалау

ADOQuery1->SQL->Add("Select * from goods where category = :A") ;// SQL кодты енгізу

ADOQuery1->Active=true;// ADOQuery1 ді іске қосу

ADOQuery1->ExecSQL();//SQL кодты орындау

DBGrid1->DataSource= DataSource1;// DBGrid1-дің DataSource-ын DataSource1-ге(ADOQuery1-дің DataSource-ына) ауыстыру.

DBGrid1->Refresh();

}

47. Shop деректер қорына бірнеше кестелерді біріктірумен байланысты динамикалық параметрлі сұранысын жазыңыз: берілген тауарды алған фирмалар тізімін шығару керек.

Айталық бізде goods, firm деген кестелер бар болсын:

Goods :

Атауы	Типі	Түсінігі
Id	Int	басты кілт
Name	char(15)	Атауы
firmid	char(15)	берілген тауарды алған фирма(сыртқы кілт)

Firm:

Атауы	Типі	Түсінігі
Id	Int	басты кілт
Name	char(15)	Атауы

ADOQuery1 компонентіне 1 параметр қосайық. Оның name қасиетін A болсын

Тұтынушы бөліміндегі Button1 кнопкасын басқанда атауы Edit1 компонентінде жазылған тауарларды алған фирмалар DBGrid1-ке шығарсын.

Сонда Button1 кнопкасын басқанда орындалатын функция:

void __fastcall TForm1::Button1Click(TObject *Sender)

{

ADOQuery1->Parameters->ParamByName("A")->Value = Edit1->Text;//параметрге мән беру

ADOQuery1->Active=false;// ADOQuery1 дің жұмысын тоқтату

ADOQuery1->SQL->Clear();//бұрынғы SQL кодты тазалау

ADOQuery1->SQL->Add("Select firm.name from goods, firm where goods.name = :A and goods.firmid=firm.id") ;// SQL кодты енгізу

ADOQuery1->Active=true;// ADOQuery1 ді іске қосу

ADOQuery1->ExecSQL();//SQL кодты орындау

DBGrid1->DataSource= DataSource1;// DBGrid1-дің DataSource-ын DataSource1-ге(ADOQuery1-дің DataSource-ына) ауыстыру.

DBGrid1->Refresh();

}

48. Like операторының қолданылуымен Shop деректер қорынан сатылған тауарлар тізімін шығарып беретін сұраныс құрыңыз.

Айталық бізде goods деген кесте бар болсын:

атауы	Типі	Түсінігі
Id	Int	басты кілт
name	char(15)	Атауы
category	char(15)	Категория

Сонда сұраныс категориясы bought (сатылған) болып табылатын жазбаларды шығару керек

SELECT * FROM goods WHERE category LIKE ’bought’