Запустите pb7.0, создайте невидимый пользовательский объект «uo_customer», создайте новый «объект» и выберите «пользовательский класс».
Введите и нажмите «ОК».
Напишите следующую программу во вновь созданном объекте пользователя:
1. Объявите переменные экземпляра «переменными экземпляра». Для типов, которые не поддерживаются в com, объявите их как защищенные типы. защищено:
хранилище данных ds_datastore
2. Создайте три новые функции-члена:
int uf_connect()//Используется для подключения к базе данных и создания объектов хранилища данных.
Код:
sqlca.dbms="odbc"
sqlca.database="webdw"
sqlca.autocommit = ложь
sqlca.dbparm="connectstring=''dsn=webdw;uid=dba;pwd=sql''"
подключиться с помощью sqlca;
ds_datastore = создать хранилище данных
если sqlca.sqlcode=0, то
вернуть 1
еще
вернуть -1
end if
void uf_disconnect()//Используется для отключения базы данных и освобождения объекта хранилища данных.
если isvalid(ds_datastore), то уничтожьте ds_datastore
отключиться с помощью sqlca;
resultset uf_retrieve()//Читать информацию о клиенте
набор результатов lrs_customers
ds_datastore.dataobject="d_customer"
ds_datastore.retiev()
ds_datastore.generateresultset(lrs_customers)//Сгенерировать набор результатов
return lrs_customers//Верните набор результатов. Наконец, сохраните измененный объект как «uo_customers».
Создайте проект компонента COM, создайте новый «проект», выберите «Мастер компонентов Com/mts» и подтвердите.
Определите имя «p_recordset_com» для проекта.
Затем выберите пользовательский объект «uo_customer» для создания com.
Установите свойства интерфейса после создания COM-компонента. Здесь можно использовать значения по умолчанию.
Затем самостоятельно определите идентификатор программы компонента как «pb70.uocustomer»,
Затем выберите имя файла dll компонента com, нажмите «новый», чтобы сгенерировать «appid сервера компонента»,
Также сгенерируйте «идентификатор библиотеки типов». Наконец, выберите имя файла ресурса pb и метод регистрации. После этого система предоставит вам общую информацию о настройках пользователя, а затем выберите создание «списка дел».
На этом проект по созданию COM-компонентов под названием «p_test_com» завершен.
Скомпилируйте проект и зарегистрируйте компоненты. Откройте сгенерированный проект, выберите соответствующий файл pbl и пользовательский объект и скомпилируйте.
Далее мы создаем веб-страницу asp для вызова этого pb com.
<head><title>pb com</title></head>
<тело>
<%
set customer=server.createobject("pb70.uo_customers")
iflag=customers.uf_connect()
установите rs=customers.uf_retrieve()
'www.downcodes.com
%>
<таблица>
<%rs.movefirst
делай, пока не rs.eof
%>
<тр>
<td><%=rs("lname")%></td>
<td><%=rs("адрес")%></td>
<td><%=rs("город")%></td>
</tr>
<%rs.movenext
петля
RS.закрыть
клиенты.uf_disconnect()
%>
</таблица>
</тело>
Сохраните его как файл asp.
Наконец, вы можете просмотреть файл asp в браузере.
Примечание: pb7.0 и pb8.0 по сути одинаковы. Читатели могут попрактиковаться в этом самостоятельно.