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

UptoLike

ВУЗ: 

СибАДИ | Омск

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

Рубрика: 

95
писать название программного модуля, которое соответствует созданной
форме. В созданной форме в коде добавить описание модуля 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;

Страницы