Маълумотлар омбори ва уни бошкариш тизими хакида умумий тушунчалар

9. Saqlanuvchi prosteduralar
Saqlanuvchi prostedura (stored procedure) – bu ixtiyoriy hajmdagi kompilyastiyalangan SQL tilidagi dastur bo’lib, boshqa ob’ektlar bilan birgalikda ma’lumotlar bazasida saqlanadi. Saqlanuvchi prosteduralar ikkita asosiy turga bo’linadi: tanlash prosteduralari (select procedure) va bajariluvchi prosteduralar (executable procedure). Tanlash prostedurasi SELECT operatorida jadval o’rnida ishlatiladi va ma’lumotlar to’plamini ifodalaydi. Bajariluvchi prostedura uchun bu narsa shart emas. Saqlanuvchi prosteduralar CREATE PROCEDURE buyrug’i yordamida yaratiladi va DROP PROCEDURE buyrug’i yordamida o’chiriladi.


10. Tanlash prosteduralari
Staff .gdb ma’lumotlar bazasida bo’ynso’nuvchi bo’limlar ro’yxatini hosil qiluvchi prostedurani yaratamiz. Bunda shuni anglash kerakki, korxona ierarxik strukturali bo’limlarga ega.
DEPS jadvalining ParentDeptID maydonida tegishli bo’limning identifkatori ko’rsatiladi.
Agar tegishli bo’lim mavjud bo’lmasa, bo’lim ierarxiyaning yuqorisida bo’ladi va ParentDeptID maydoniga 0 qiymati kiritiladi.

SET TERM ^ ;

CREATE PROCEDURE ChildDeptsList (pDeptID integer)
RETURNS (rDeptFullName varchar(100))
AS BEGIN
FOR SELECT DeptFullName FROM DEPS
WHERE ParentDeptiD =:pDeptID
INTO :rDeptFullName
DO SUSPEND;
END
Bu prostedurada yuqori bo’limning identifikatori bo’lgan pDeptiD parametr uzatiladi va natija sifatida bo’yso’nuvchi korxonalar ro’yxati qaytariladi. Tanlash prostedurasida qaytariluvchi ma’lumotlar RETURNS kalit so’zi orqali aniqlanadi. Kiritiluvchi parametrlar esa prostedura nomidan keyin yoziladi.
Natijaviy qatorni hosil qilish uchun FOR SELECT . . . DO konstrukstiyasi ishlatiladi. SUSPEND buyrug’i keyingi so’rovgacha prostedurani to’xtatadi. To’xtashdan oldin natija chiqariladi.

11. Bajariluvchi prostedurlar

Bajariluvchi prosteduralarda RETURNS operatori ishlatilmasligi mumkin. Xodim haqidagi ma’lumotlarni o’chirish prostedurasini tuzamiz.

SET TERM ^ ;

CREATE PROCEDURE DeleteEmp (pEmpID integer)
AS BEGIN
DELETE FROM STAFF
WHERE ID = :pEmpID;
END