Разработка клиент-серверных приложений с использованием технологий Oracle. Семенова И.И. - 97 стр.

UptoLike

ВУЗ: 

СибАДИ | Омск

Составители: 

Рубрика: 

96
8. Запустить приложение и проверить работу. Но для создания нового
пользователя вы должны запустить приложение от пользователя, обла-
дающего привилегией CREATE USER, GRANT ANY PRIVILEGE.
В SQL *Plus Worksheet:
Создадим процедуру добавления новой привилегии пользователя в
табличное пространство DB_Books в разделе Schema – Procedure –
ADMIN_BOOKS через утилиту
SQL *Plus Worksheet:
CREATE OR REPLACE PROCEDURE admin_books.add_privileg (name_user
IN varchar2, privileg IN VARCHAR2, object IN VARCHAR2) IS
sql_text varchar2(200);
BEGIN
sql_text:='GRANT '||TRIM(privileg)|| ' ON '||TRIM(object)|| ' TO '||
TRIM(NAME_USER);
EXECUTE IMMEDIATE sql_text;
Commit;
END;
В Delphi 7:
1. В проекте, который был создан в лабораторной работе №8, на фор-
му DM добавим компонент ADOStoredProc (название по умолчанию будет
ADOStoredProc2).
У компонента
ADOStoredProc2 изменить свойства:
Connection на ADOConnection1;
ProcedureName на ADD_PRIVILEG.
2.
У компонента ADOStoredProc2 выбрать Parameters и создать 3 па-
раметра:
для name_user IN varchar2:
Name на name_user;
Datatype на ftString;
Direction на pdInput;
Value–Type на OleStr;
для privileg IN varchar2:
Name на privileg;
Datatype на ftString;
Direction на pdInput;
Value–Type на OleStr;
для object IN varchar2:
Name на object;
Datatype на ftString;
Direction на pdInput;

Страницы