Starten Sie pb7.0, erstellen Sie ein unsichtbares Benutzerobjekt „uo_customer“, erstellen Sie ein neues „Objekt“ und wählen Sie „benutzerdefinierte Klasse“ aus.
Geben Sie ein und klicken Sie auf „OK“.
Schreiben Sie das folgende Programm in das neu erstellte Benutzerobjekt:
1. Deklarieren Sie Instanzvariablen als „Instanzvariablen“. Für Typen, die in com nicht unterstützt werden, deklarieren Sie sie bitte als geschützte Typen. geschützt:
Datenspeicher ds_datastore
2. Erstellen Sie drei neue Mitgliedsfunktionen:
int uf_connect()//Wird verwendet, um eine Verbindung zur Datenbank herzustellen und Datenspeicherobjekte zu erstellen.
Code:
sqlca.dbms="odbc"
sqlca.database="webdw"
sqlca.autocommit=false
sqlca.dbparm="connectstring=''dsn=webdw;uid=dba;pwd=sql''"
Verbindung mit SQLCA herstellen;
ds_datastore =Datenspeicher erstellen
wenn sqlca.sqlcode=0 dann
Rückkehr 1
anders
Rückgabe -1
end if
void uf_disconnect()//Wird verwendet, um die Datenbank zu trennen und das Datenspeicherobjekt freizugeben.
Wenn isvalid(ds_datastore), dann ds_datastore zerstören
Verbindung mit SQLCA trennen;
resultset uf_retrieve()//Kundeninformationen lesen
Ergebnismenge lrs_customers
ds_datastore.dataobject="d_customer"
ds_datastore.retrieve()
ds_datastore.generateresultset(lrs_customers)//Ergebnismenge generieren
return lrs_customers//Gib die Ergebnismenge zurück. Speichern Sie abschließend das geänderte Objekt als „uo_customers“.
Erstellen Sie ein COM-Komponentenprojekt, erstellen Sie ein neues „Projekt“, wählen Sie „Com/mts-Komponenten-Assistent“ und bestätigen Sie.
Definieren Sie einen Namen „p_recordset_com“ für das Projekt
Wählen Sie als Nächstes das Benutzerobjekt „uo_customer“ aus, um com zu generieren
Legen Sie die Schnittstelleneigenschaften fest, nachdem Sie die COM-Komponente generiert haben. Hier können Sie die Standardeinstellung verwenden.
Definieren Sie dann selbst die Programm-ID der Komponente als „pb70.uocustomer“,
Wählen Sie dann den DLL-Dateinamen der COM-Komponente aus und klicken Sie auf „Neu“, um „Komponentenserver-App-ID“ zu generieren.
Generieren Sie außerdem die „Typbibliotheks-ID“. Wählen Sie abschließend den Namen der pb-Ressourcendatei und die Registrierungsmethode aus. Anschließend erhalten Sie vom System die allgemeinen Informationen zu den Benutzereinstellungen und können dann die „Aufgabenliste“ erstellen.
Damit ist ein Projekt zum Generieren von COM-Komponenten mit dem Namen „p_test_com“ abgeschlossen.
Kompilieren Sie das Projekt und registrieren Sie die Komponenten. Öffnen Sie das generierte Projekt, wählen Sie die entsprechende pbl-Datei und das Benutzerobjekt aus und kompilieren Sie
als Nächstes eine ASP-Webseite, um diese pb com aufzurufen.
<head><title>pb com</title></head>
<Körper>
<%
set customer=server.createobject("pb70.uo_customers")
iflag=customers.uf_connect()
setze rs=customers.uf_retrieve()
„www.downcodes.com
%>
<Tabelle>
<%rs.movefirst
tun, während nicht rs.eof
%>
<tr>
<td><%=rs("lname")%></td>
<td><%=rs("address")%></td>
<td><%=rs("city")%></td>
</tr>
<%rs.movenext
Schleife
rs.close
customer.uf_disconnect()
%>
</table>
</body>
Speichern Sie es als ASP-Datei.
Schließlich können Sie die ASP-Datei im Browser durchsuchen.
Hinweis: pb7.0 und pb8.0 können es selbst üben.