34. “Кадрлар бөлімі” деректер қорында “қызметкерлердің қызметі” кестесіне Transact-sql тілдері арқылы өзгерту енгізу кодын жазыңыз.
Біздіңкестемізмынандай болсын
Жолдың атауы |
Типі |
Түсінігі |
kodd |
Int |
қызметтің ДҚ-ындағыкоды – басты кілт |
Nazvn |
char(15) |
Атауы |
USE kadry--керекті ДҚ-ын таңдау
update doljn set nazv='mechanik' where kodd=1—- kodd 1-ге тең жазбаның nazv жолын mechanik деп өзгерту
update doljn set nazv='programmer' where nazv='IT-spec' —- nazv IT-spec'-ке тең жазбаның nazv жолын programmer деп өзгерту
--Осылай толтыра берсе болады
35. “Кадрлар бөлімі” деректер қорында “қызметкерлердің дәрежесі” кестесіндегі деректерді жоюды Transact-sql тілдері арқылы жүзеге асыру сұранысын жазыңыз.
Біздіңкестемізмынандай болсын
Жолдың атауы |
Типі |
Түсінігі |
Kodst |
Int |
дәреженің ДҚ-ындағыкоды – басты кілт |
Nazvst |
char(15) |
Атауы |
USE kadry--керекті ДҚ-ын таңдау
delete from Stepen where kodst=20 -- kodst жолы 20 ға тең жазбаны жою
delete from Stepen where nazvst='scientic'-- nazvst жолы scientic ке тең жазбаны жою
--Осылай толтыра берсе болады
36. “Кадрлар бөлімі” деректер қорында “қызметкерлердің атағы” кестесін Transact-sql тілдері арқылы деректермен толтырыңыз.
біздің кестеміз мынандай болсын
Жолдың атауы |
Типі |
Түсінігі |
kodz |
Int |
дәреженің ДҚ-ындағыкоды – басты кілт |
nazvz |
char(15) |
Атауы |
USE kadry--керекті ДҚ-ын таңдау
--толтырудың 2 түрі бар:
--1:жол атауларын көрсетпей
insert into zvanie values(1,'scientic');
--2: жол атауларын көрсетіп
insert into zvanie(kodz, nazvz) values(2,'medic');
--Осылай толтыра берсе болады
37. “Кадрларбөлімі” деректерқорындаесепберудіжасаңыз.
Есеп берулер
QReport бетінде есеп берулерді құруға арналған 23 компонент орналасқан.
QuckRep компоненті формадағы есеп беру бетін құруға арналған. QuckRep
төмендегідей қасиеттерден тұрады: Bands құрама қасиеті:Ішкі қасиеті:
HasDetail – бөлшектеу жолағы (егер мəні true болас ғана шығарылады).
HasTitle – есеп берудің басталынуының атауы.
HasColumnHeader – бағандардың атаулары.
DataSet – ADOTable1,2,…, ADOQuery1,2,…, ADODataSet1,2,…
компоненттерімен байланыс орнатады. TQRLabel компоненттері атауларды
белгілеу үшін қолданылады. Қасиеті – Caption (атауды өзгертеді).
TQRDBText компоненті DataSet деректер жиынынан DataField жазбалар
өрісінің текстін көрсетеді.
TQRDBText қасиеті:
DataSet – деректер жиынымен байланыс (TADOTable, TADODataSet,
TADOQuery).
DataField – деректер жиынындағы өріс атауы.
TADOData Set компоненті деректер жиынымен байлансыуы үшін арналған.
Жобаны жасаудағы сұраныстарды орындау барысында келесі қасиеттерін
көрсету қажет:
Connection – ADOConnection компонентімен баланысу.
CommandText – сұраныс тексті, мысалы
select p2. namspe from fac p1, spec p2 where p1. kodfac=p2. kodfac.
Active – true.
CommandText қасиетін көрсетпесе онда барлығын программалық түрде
жазуға болады.
Сол сияқты TQRDBText, TQRLabel компоненттерінің де қасиеттерін
көрсетпей программалық түрде жазуға болады.
Мысал.
КАДР.mdf (УКСАС КЫП ИСТЕУ КЕРЕК ОТДЕЛ МЕН ЖУМЫСКЕР)
Қасиеті:
ADOConnection1қасиеті:
ADOConnection1 – КАДР.mdf байланыс жасау жолы
Connected - true
Свойства ADODataSet1:
Connection – ADOConnection1
CommandText - Select p2. namspe from fac p1, spec p2 where p1. kodfac = p2.
kodfac
Active – true
QuickRep1 қасиеті:
DataSet – ADODataSet1
Bands: HasTitle – true
HasDetail – true
HasColumnHeader – true
QRLabel1қасиеті:
Caption – мамандықтар тізімі
QRLabel2 қасиеті:
Caption – мамандықтар.
QRDBText1 қасиеті:
DataSet – ADODataSet1
DataField – Namspe.
Есеп беруді көру үшін келесі команданы орындау қажет
QuickRep1→ Preview ();
Есеп беруді басып шығару үшін
QuickRep1→Print ();__
ПРОГРАММАЛЫК НУСКАСЫ
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;
95
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();
}