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

UptoLike

ВУЗ: 

СибАДИ | Омск

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

Рубрика: 

94
sql_text:='CREATE USER '|| TRIM(NAME_USER)||' PROFILE
"DEFAULT" IDENTIFIED BY '||TRIM(PASSW)||' DEFAULT
TABLESPACE '||TRIM(TABLE_SPACE)||' ACCOUNT UNLOCK';
EXECUTE IMMEDIATE sql_text;
sql_text:='GRANT ALTER SESSION TO '||TRIM(NAME_USER);
EXECUTE IMMEDIATE sql_text;
sql_text:='GRANT CREATE SESSION TO '||TRIM(NAME_USER);
EXECUTE IMMEDIATE sql_text;
Commit;
END;
В данной процедуре использованы операторы Dynamic SQL.
В Delphi 7:
1. В проекте из лабораторной работы №7 на форму DM добавим ком-
понент ADOStoredProc (название по умолчанию будет ADOStoredProc1).
У компонента
ADOStoredProc1 изменить свойства:
Connection на ADOConnection1;
ProcedureName на ADD_USER.
2.
У компонента ADOStoredProc1 выбрать Parameters и создать 3 па-
раметра:
для name_user IN varchar2:
Name на name_user;
Datatype на ftString;
Direction на pdInput;
Value–Type на OleStr;
для passw IN varchar2:
Name на passw;
Datatype на ftString;
Direction на pdInput;
Value–Type на OleStr;
для table_space IN varchar2:
Name на table_space;
Datatype на ftString;
Direction на pdInput;
Value–Type на OleStr.
Добавить на основной форме (Form1) в меню пункт с названием
Ад-
министрирование
. Создать форму FormAdmin, которая будет запускать-
ся из пункта меню
Администрирование основной формы.
3.
В главной форме, в коде добавить описание формы FormAdmin,
для этого после ключевого слова USES в конце списка через запятую до-

Страницы