38. Кадрлар бөлімі деректер қорынан доценттер тізімін шығару кодын жазыңыз.

Біздің ДҚ-мыз мынандай болсын

Осыдан званиесі доцент болатын адамдарды шығару керек

USE kadry--керекті ДҚ-ын таңдау

selectname,Family,father-- керек жолдар

fromperson,Zvanie--керек кестелер

whereZvanie.kodz=person.kodz and zvanie.nazvz='доцент'–шарт

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

ADOConnection қасиеті:

ADOConnection1 – ConnectionString – деректер қорымен байланысу жолы

Connected – true

ADODataSet1 қасиеті:

Connection – ADOConnection1

QuckRep1 қасиеті:

DataSet – ADODataSet1

void __fastcall TForm1:: Button 1_Click(TObject *Sender)

{ Form2 →QRLabel1 →Caption = “мамандықтар”;

Form2 →QRLabel2 →Caption = “мамандықтар тізімі”;

Form2 →QRDBText →DataSet = Form2→ADODataSet1;

Form2 → QRDBText1→DataField = “namspe”;

Form2 → ADODataSet1→ Close();

Form2 → ADODataSet1→Command Text = “select p2.namspe from fac p1, spec

p2 where (p1. kodfac= p2.kodfac)”;

Егер сұраныс параметрлі болса, онда

Form2 → ADODataSet1→Parameters→Items[0]→Value =f;

Form2 → ADODataSet1→Active = true;

Form2 → QuickRep 1→Preview(); }

Есеп беруге мысал:

void __fastcall TForm20::Button2Click(TObject *Sender)

{

Form26->QRLabel2->Caption="фамилиясы";

Form26->QRLabel3->Caption="аты";

Form26->QRLabel4->Caption="əкесінің аты";

Form26->QRLabel5->Caption="қызметі";

Form26->QRLabel6->Caption="бөлім";

Form26->QRLabel8->Caption="10";

Form26->QRDBText1->DataSet =Form26->ADODataSet1;

Form26->QRDBText1->DataField ="family";

Form26->QRDBText2->DataSet =Form26->ADODataSet1;

Form26->QRDBText2->DataField ="name";

Form26->QRDBText3->DataSet =Form26->ADODataSet1;

Form26->QRDBText3->DataField ="father";

Form26->QRDBText5->DataSet =Form26->ADODataSet1;

Form26->QRDBText5->DataField ="doljn";

Form26->QRDBText6->DataSet =Form26->ADODataSet1;

Form26->QRDBText6->DataField ="nazv";

Form26->ADODataSet1->Close();

Form26->ADODataSet1->CommandText= "Select p1.family, p1.name,

p1.father, p1.ostaj,p2.doljn,p4.nazv from pers p1,doljn p2,otdel p4 where

((p1.id2=p2.id2)and(p4.notd=p1.notd)and(p1.ostaj>=:a)and(p1.ostaj<:b))";

Form26->ADODataSet1->Parameters->Items[0]->Value=10;

Form26->ADODataSet1->Parameters->Items[1]->Value=25;

Form26->ADODataSet1->Active=true;

Form26->QuickRep1->Preview();

}

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

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

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

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

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

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

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

ADOQuery1->SQL->Add("UPDATE Employ SET salary=’”+Edit1->Text+”’ where work ="+Edit2->Text+"'") ;// SQL кодты енгізу

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

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