En Delphi.net, VCL.net tiene dos arrepentimientos:
1. ADO (DBGO) no se puede usar, pero de acuerdo con Li Wei, el Delphi8.1 de este mes tendrá este componente.
2. No puedes usar ADO.NET y BDP, este será el tema de mi artículo.
En el área de comunicación de Delphi de Borland, Danny dijo una vez: "En Delphi.net, VCL.net puede llamar a los componentes de WinForm, y WinForm también puede llamar a los componentes VCL.NET".
Para verificar la primera oración, la probé en VCL.NET, puede usar componentes .NET, como usar System.Data.SQLClient directamente y usar la clase SQLConnection directamente. En otras palabras, aunque el componente .NET no se puede ver en el panel de componentes VCL.NET, se pueden usar todas las clases de componentes .NET, vcl.net,. Sin embargo, el conjunto de datos de ADO.NET no es compatible con el componente del conjunto de datos de VCL.NET, por lo que no se puede llamar directamente el componente de datos consciente de datos directamente. Sin embargo, después de mirar el interior de Li Wei, descubrí que había un componente AdonetConnector.
Primero, la DLL del componente VCL.NET tiene un borland.vcl.design.adonet.dll en bds/2.0/bin. Forma. Puedes ver el componente AdonetConnector. Luego agregue un DBGRID, DB ..., DataSource ..., siempre que dataSource.dataSet: = AdonetConnector1. Los otros son lo mismo que el Delphi original, solo hazlo. Mi código específico es el siguiente
Unidad Unidad1;
interfaz
usos
Windows, mensajes, sysutils, variantes, clases, gráficos, controles, formularios,
Diálogo,
System.data.sqlclient,
System.Data, System.ComponentModel, borland.vcl.stdctrls,
Borland.vcl.extctrls, borland.vcl.dbctrls, borland.vcl.grids,
Borland.vcl.dbgrids, Borland.vcl.db, Borland.vcl.adonetdb;
tipo
TForm1 = class (tForm)
Botón 1: tbutton;
AdonetConnector1: TadonetConnector;
DataSource1: TDataSource;
Dbgrid1: tdbgrid;
Dbnavigator1: tdbnavigator;
Procedimiento botón1Click (remitente: tobject);
Privado
{Declaraciones privadas}
Conexión: SQLConnection;
ProdataSet: conjunto de datos;
Adaptador: sqldataAdapter;
público
{Declaraciones públicas}
fin;
varilla
Form1: tform1;
Implementación
{$ R *.nfm}
procedimiento tForm1.Button1Click (remitente: tobject);
Comenzar
Conexión: = SQLConnection.Create (
'Fuente de datos = 192.168.76.170;'+
'Catálogo inicial = SfiCerp;'+
'contraseña = qwert;'+
'Persist Security Info = True;'+
'ID de usuario = SA;'+
'Tamaño del paquete = 4096;'+
'Connection Lifetime = 0;'+
'RESET DE CONEXIÓN = FALSE;'+
'Agrupar = falso;'+
'Tamaño máximo de la piscina = 100; mínimo tamaño del grupo = 0');
Conexión.apor;
ProdataSet: = DataSet.Create;
Adaptador: = sqldataAdapter.create ('select * de tproduct', conexión);
Adapter.fill (prodataSet, 'producto');
AdonetConnector1.datatable: = proDataSet.tables [0];
fin;
fin.
En Delphi.net, VCL.net tiene dos arrepentimientos:
1. ADO (DBGO) no se puede usar, pero de acuerdo con Li Wei, el Delphi8.1 de este mes tendrá este componente.
2. No puedes usar ADO.NET y BDP, este será el tema de mi artículo.
En el área de comunicación de Delphi de Borland, Danny dijo una vez: "En Delphi.net, VCL.net puede llamar a los componentes de WinForm, y WinForm también puede llamar a los componentes VCL.NET".
Para verificar la primera oración, la probé en VCL.NET, puede usar componentes .NET, como usar System.Data.SQLClient directamente y usar la clase SQLConnection directamente. En otras palabras, aunque el componente .NET no se puede ver en el panel de componentes VCL.NET, se pueden usar todas las clases de componentes .NET, VCL.NET. Sin embargo, el conjunto de datos de ADO.NET no es compatible con el componente del conjunto de datos de VCL.NET, por lo que no se puede llamar directamente el componente de datos consciente de datos directamente. Sin embargo, después de mirar el interior de Li Wei, descubrí que había un componente AdonetConnector.
Primero, la DLL del componente VCL.NET tiene un borland.vcl.design.adonet.dll en bds/2.0/bin. Forma. Puedes ver el componente AdonetConnector. Luego agregue un DBGRID, DB ..., DataSource ..., siempre que dataSource.dataSet: = AdonetConnector1. Los otros son lo mismo que el Delphi original, solo hazlo. Mi código específico es el siguiente
Unidad Unidad1;
interfaz
usos
Windows, mensajes, sysutils, variantes, clases, gráficos, controles, formularios,
Diálogo,
System.data.sqlclient,
System.Data, System.ComponentModel, borland.vcl.stdctrls,
Borland.vcl.extctrls, borland.vcl.dbctrls, borland.vcl.grids,
Borland.vcl.dbgrids, Borland.vcl.db, Borland.vcl.adonetdb;
tipo
TForm1 = class (tForm)
Botón 1: tbutton;
AdonetConnector1: TadonetConnector;
DataSource1: TDataSource;
Dbgrid1: tdbgrid;
Dbnavigator1: tdbnavigator;
procedimiento botón1Click (remitente: tobject);
Privado
{Declaraciones privadas}
Conexión: SQLConnection;
ProdataSet: conjunto de datos;
Adaptador: sqldataAdapter;
público
{Declaraciones públicas}
fin;
varilla
Form1: tform1;
Implementación
{$ R *.nfm}
procedimiento tForm1.Button1Click (remitente: tobject);
Comenzar
Conexión: = SQLConnection.Create (
'Fuente de datos = 192.168.76.170;'+
'Catálogo inicial = SfiCerp;'+
'contraseña = qwert;'+
'Persist Security Info = True;'+
'ID de usuario = SA;'+
'Tamaño del paquete = 4096;'+
'Connection Lifetime = 0;'+
'RESET DE CONEXIÓN = FALSE;'+
'Agrupar = falso;'+
'Tamaño máximo de la piscina = 100; mínimo tamaño del grupo = 0');
Conexión.apor;
ProdataSet: = DataSet.Create;
Adaptador: = sqldataAdapter.create ('select * de tproduct', conexión);
Adapter.fill (prodataSet, 'producto');
AdonetConnector1.datatable: = proDataSet.tables [0];
fin;
fin.