В Delphi 7

1. В проекте, который был создан в лабораторной работе №8, на форму 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 в конце списка через запятую дописать название программного модуля, которое соответствует созданной форме. В созданной форме в коде добавить описание модуля DM, для этого после ключевого слова USES в конце списка поставить запятую и дописать название программного модуля, например UNIT2, который соответствует созданной форме DM.

4. На форме FormAdmin расположить три компонента Edit1, Edit2 и DBLookupComboBox1, один компонент Button. Рядом с компонентами типа Edit поставить элементы Label, в которых соответственно изменить свойства Caption на «Введите имя нового пользователя» и «Введите пароль», «Выберите табличное пространство по умолчанию».

5. Для настройки компонента DBLookupComboBox1 на форму DM добавить компонент ADOQuery, переименовать компонент в ADOQuery_ts. У ADOQuery_ts изменить следующие свойства:

Connection на ADOConnection1;

SQL на

select name from sys.ts$

Таблица sys.ts$ содержит информацию о табличных пространствах Oracle.

Для компонента ADOQuery_ts добавить на форму DM компонент DataSource и присвоить его свойствам следующие значения:

Name на DataSource_ts;

DataSet на ADOQuery_ts.

У компонента DBLookupComboBox1 настроить свойства:

ListSource на DM.DataSource_ts;

ListField на NAME;

KeyField на NAME.

6. В методе Click созданной кнопки написать:

try

DBLookupComboBox1.Refresh;

dm.ADOStoredProc1.Parameters.ParamByName('name_user').Value: = Edit1.Text;

dm.ADOStoredProc1.Parameters.ParamByName('passw').Value: = Edit2.Text;

dm.ADOStoredProc1.Parameters.ParamByName('table_space').Value: =

DBLookupComboBox1.Text;

DM.ADOStoredProc1.ExecProc;

ShowMessage('Пользователь добавлен');

except

ShowMessage('Невозможно добавление пользователя');

end; // try

7. В пункте меню Администрирование перед оператора запуска формы FormAdmin добавить оператор, чтобы гарантировать для выпадающего списка работоспособность источника данных:

dm.ADOQuery_ts.Open;

8. Запустить приложение и проверить работу. Но для создания нового пользователя вы должны запустить приложение от пользователя, обладающего привилегией CREATE USER, GRANT ANY PRIVILEGE.