41. Тұтынушы бөлімі арқылы деректер қорындағы мәліметтерді жою коды сұранысын жазыңыз.

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

атауы	Типі	Түсінігі
id	Int	басты кілт
name	char(15)	Атауы
work	char(15)	Қызметі
salary	Int	Жалақысы

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

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

void __fastcall TForm1::Button1Click(TObject *Sender)

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

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

ADOQuery1->SQL->Add("DELETE FROM Employ WHERE work = "+Edit1->Text+"'") ;// SQL кодты енгізу

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

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

42. Тұтынушы бөлімі арқылы деректер қорына мәліметтерді қосу компонентін атаңыз және оның сұраныс кодын жазыңыз.

ADOTable1 кестесіне деректерді қосу фрагментін қарастырайық.

ADOTable1->Append();

ADOTable1->FieldByName(“nomer”)->AsInteger= StrToInt(LabeledEdit1-

>Text);

ADOTable1->FieldByName(“fam”)->AsString= LabeledEdit2->Text;

ADOTable1->FieldByName(“namer”)->AsString= LabeledEdit3->Text;

ADOTable1->Post();

Деректерге түзету енгізу фрагменті келесі түрде:

ADOTable1->Edit();

ADOTable1->FieldByName(“nomer”)->AsInteger= StrToInt(LabeledEdit1-

>Text);

ADOTable1->FieldByName(“fam”)->AsString= LabeledEdit2->Text;

ADOTable1->FieldByName(“namer”)->AsString= LabeledEdit3->Text;

ADOTable1->Post();

43. Shop деректер қоры үшін like операторын қолданумен sql-сұраныс жазыңыз (тауарлар атауы жолына енгізілген тауарын табу керек).

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

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

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

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

void __fastcall TForm1::Button1Click(TObject *Sender)

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

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

ADOQuery1->SQL->Add("Select * from goods where name like '%"+Edit6->Text+"%'") ;// SQL кодты енгізу

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

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

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

DBGrid1->Refresh();}

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

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

атауы	Типі	Түсінігі
Id	Int	басты кілт
name	char(15)	Атауы
firm	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 from goods where name= :A") ;// SQL кодты енгізу

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

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

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

DBGrid1->Refresh();

}