PROCEDURE pSlry PROCEDURE pSlryid IN NUMBER newsl IN NUMBER IS BEGIN UPDTE employees SET slrynewsl WHERE employeeidid; END pSlry
Работа добавлена на сайт samzan.net:
1 тапсырма
CREATE OR REPLACE FUNCTION fSalary
(id IN NUMBER)
RETURN NUMBER
AS
salary NUMBER;
BEGIN
SELECT salary INTO salary FROM employees WHERE employee_id=id;
RETURN salary;
END fSalary;
/
DECLARE
salary NUMBER;
BEGIN
salary:=fSalary(100);
DBMS_OUTPUT.PUT_LINE(salary);
END;
/
2 тапсырма
CREATE OR REPLACE PROCEDURE pSalary
(id IN NUMBER, new_sal IN NUMBER)
IS
BEGIN
UPDATE employees SET salary=new_sal WHERE employee_id=id;
END pSalary;
/
DECLARE
id NUMBER;
sal NUMBER;
BEGIN
pSalary(103,30000);
SELECT employee_id, salary INTO id, sal FROM employees WHERE employee_id=103;
DBMS_OUTPUT.PUT_LINE(id);
DBMS_OUTPUT.PUT_LINE(sal);
END;
/
3 тапсырма
CREATE OR REPLACE PACKAGE pkgSalary IS
PROCEDURE pSalary(id IN NUMBER, new_sal IN NUMBER);
FUNCTION fSalary(id IN NUMBER) RETURN NUMBER;
END pkgSalary;
/
CREATE OR REPLACE PACKAGE BODY pkgSalary IS
-- PROCEDURE pSalary -- *******************************************
PROCEDURE pSalary(id IN NUMBER, new_sal IN NUMBER)
IS
BEGIN
UPDATE employees SET salary=new_sal WHERE employee_id=id;
END pSalary;
-- FUNCTION fSalary -- ********************************************
FUNCTION fSalary(id IN NUMBER) RETURN NUMBER
IS
salary NUMBER;
BEGIN
SELECT salary INTO salary FROM employees WHERE employee_id=id;
RETURN salary;
END fSalary;
END pkgSalary;
/
DECLARE
salary NUMBER;
BEGIN
pkgSalary.pSalary(104,10000);
salary:=pkgSalary.fSalary(104);
DBMS_OUTPUT.PUT_LINE(salary);
END;
/
4 тапсырма
CREATE OR REPLACE TRIGGER MySalaryCheck
BEFORE INSERT OR UPDATE OF salary ON employees
REFERENCING NEW as new
FOR EACH ROW
DECLARE
BEGIN
IF :new.salary<1000 THEN
raise_application_error(-20300, 'Ailyk minimumnan az!');
END IF;
IF :new.salary>50000 THEN
raise_application_error(-20301, 'Ailyk maximumnan kop!');
END IF;
END;
/
INSERT INTO employees
(employee_id, first_name, last_name, email, phone_number, hire_date, job_id, salary, comission_pct, manager_id, department_id)
VALUES
(105, 'Elaman', 'Bekbolatov', 'EBEKBOLATOV', '877.148.871', '8.12.2013', 'AD_STUD', 100000, NULL, 100, 11)
/
5 тапсырма
DECLARE
nNum1 NUMBER(10,0);
nNum2 NUMBER(10,0);
nResult NUMBER(10,5);
BEGIN
nNum1:=&Bolgish;
nNum2:=&Bolingish;
nResult:=nNum1/nNum2;
DBMS_OUTPUT.PUT_LINE(nResult);
EXCEPTION
WHEN ZERO_DIVIDE THEN
DBMS_OUTPUT.PUT_LINE('Nolge boluge bolmaydi!');
WHEN VALUE_ERROR THEN
DBMS_OUTPUT.PUT_LINE('Malimetter typi durys emes!');
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('Belgisiz kate...');
END;
/
2. Финансы денежное обращение и кредит Деньги у которых номинальная стоимость соответствует реальной
3. При нестачі азоту на молодому листі троянд спостерігається- червоне краєвий некроз листової пластинки
4. Изготовление клееных деревянных элементов и конструкций
5. Реферат- Генерация дидактических материалов по математике
6. видимому на всех звёздах
7. Понятие и условия эффективности правового воздействия
8. І НечуйЛевицький можна розчленувати на три неускладнені висловлювання День був ясний
9. Особенности создания программного продукта Специфика разработки программных средств Разработке прог
10. История становления и развития субъектов оперативнорозыскной деятельности
11. на тему- Наука как социальный институт.html
12. Кодовый замок
13. От убийства Кирова к Большому Террору а
14. Тема- Семья ~среда определяющая развитие защиты у детей
15. Питер Пауль Рубенс Питер Пауль Рубенс знаменитый живописец первой половины XVII века был сыном богатой и
16. Налог на добавленную стоимость НДС
17. тема осуществляет быстрое реагирование организма на изменения условий среды посредством рефлексов
18. Построение зависимости часового расхода топлива от скорости вращения коленчатого вала
19. Fust der Film vom Regisseur leksndr Sokurov
20. Лекция 10 Социальное поведение личности Общение и коммуникация