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

UptoLike

ВУЗ: 

СибАДИ | Омск

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

Рубрика: 

92
соответственно на «Введите количество страниц», «Введите название кни-
ги», «Количество найденных книг».
31.
На кнопке поменять название на «Выполнить запрос». В методе
Click кнопки написать следующий код:
DM.ADOSP_Count.Prepared;
try
DM.ADOSP_Count.Parameters.ParamByName('Count_pages').Value:=StrToInt(Edit1.Text);
DM.ADOSP_Count.Parameters.ParamByName('Title').Value:= Edit2.Text;
DM.ADOSP_Count.ExecProc;
Edit3.Text:= inttostr(DM.ADOSP_Count.Parameters.ParamByName('Itogo').Value);
finally
DM.ADOSP_Count.Prepared:=not(DM.ADOSP_Count.Prepared);
end;// try
32. Проверить работу приложения.
33.
Для вывода данных из нескольких таблиц можно использовать
представления (View), которые создаются и хранятся на сервере.
Создать представление на сервере, которое будет хранить информацию
о названии книги, авторе, издательстве. Для этого в утилите SQL *Plus
Worksheet напишите следующий код и выполните (F5):
CREATE OR REPLACE VIEW admin_books.view_books
AS
SELECT a.name_author AS "NAME_AUTHOR1",
b.title_book AS "TITLE_BOOK1",c.publish AS "PUBLISH1"
FROM (ADMIN_BOOKS.AUTHORS a INNER JOIN ADMIN_BOOKS.BOOKS b on
a.code_author=b.code_author)
INNER JOIN ADMIN_BOOKS.PUBLISHING_HOUSE c ON b.code_publish =
c.code_publish
34. Подключить созданное представление через ADOQuery. На форму
DM добавить компонент ADOQuery, переименовать компонент в
ADOView_Books. У ADOView_Books изменить следующие свойства:
Connection на ADOConnection1;
SQL на
select * from admin_books.view_books
35.
Для компонента ADOView_Books добавить на форму DM компо-
нент DataSource и присвоить его свойствам следующие значения:
Name на Data_Books_All;
DataSet на ADOView_Books.
36. На форму FormProcedure добавить DBGrid, 1 компонент типа
Button и 1 компонент типа Edit. Рядом с полем Edit поставить метку с тек-
стом "Введите фамилию искомого автора". В свойстве
Datasource компо-
нента DBGrid выбрать Data_Books_All. На кнопке поменять название на
«Выполнить запрос». В методе Click кнопки написать следующий код:
DM.ADOView_Books.Open;
IF trim(Edit4.Text)<>'' then
begin

Страницы