Em Delphi.net, o vcl.net tem dois arrependimentos:
1. ADO (DBGO) não pode ser usado, mas, de acordo com Li Wei, o Delphi8.1 deste mês terá esse componente.
2. Você não pode usar o ADO.NET e o BDP, este será o tópico do meu artigo.
Na área de comunicação Delphi de Borland, Danny disse uma vez: "Em Delphi.net, o vcl.net pode chamar componentes Winform, e o Winform também pode ligar para os componentes do VCL.NET".
Para verificar a primeira frase, tentei. Em outras palavras, embora o componente .NET não possa ser visto no painel de componentes vcl.net, todas as classes do componente .NET, vcl.net, podem ser usadas! No entanto, o conjunto de dados da ADO.NET não é compatível com o componente do conjunto de dados do VCL.NET, portanto o componente consciente dos dados não pode ser chamado diretamente. No entanto, depois de analisar o VCL de Li Wei, descobri que havia um componente AdonetConnector.
Primeiro, a DLL do componente vcl.NET possui um borland.vcl.design.adonet.dll em BDS/2.0/bin. formulário. Em seguida, adicione um DBGrid, DB ..., DataSource ..., desde que DataSource.DataSet: = AdonetConnector1. Os outros são os mesmos que o Delphi original, apenas faça. Meu código específico é o seguinte
unidade de unidade1;
interface
usos
Janelas, mensagens, sysutils, variantes, classes, gráficos, controles, formulários,
Diálogos,
System.data.sqlclient,
System.data, System.comPonsModel, Borland.vcl.stdctrls,
Borland.vcl.extctrls, Borland.vcl.dbctrls, Borland.vcl.grids,
Borland.vcl.dbgrids, Borland.vcl.db, borland.vcl.adonetdb;
tipo
Tform1 = classe (tform)
Button1: tbutton;
AdonetConnector1: TadonetConnector;
DataSource1: TDataSource;
DbGrid1: tdbGrid;
Dbnavigator1: tdbnavigator;
Procedimento Button1Click (remetente: Tobject);
Privado
{Declarações privadas}
Conexão: SQLConnection;
Prodataset: DataSet;
Adaptador: sqldataadapter;
público
{Declarações públicas}
fim;
var
Form1: TForm1;
Implementação
{$ R *.nfm}
procedimento TForm1.Button1Click (remetente: TOBJECT);
Começar
Conexão: = sqlConnection.create (
'Fonte de dados = 192.168.76.170;'+
'Catálogo inicial = sfiecerp;'+
'Senha = qwert;'+
'Persiste informações de segurança = true;'+
'ID do usuário = SA;'+
'Tamanho do pacote = 4096;'+
'Lifetime de conexão = 0;'+
'Redefinição da conexão = false;'+
'Pooling = false;'+
'Tamanho máximo da piscina = 100; tamanho da piscina min = 0');
Connection.open;
ProdataSet: = DataSet.Create;
Adaptador: = sqldataadapter.create ('select * do tproduct', conexão);
Adaptador.fill (Prodataset, 'Product');
AdonetConnector1.Datatable: = Prodataset.Tables [0];
fim;
fim.
Em Delphi.net, o vcl.net tem dois arrependimentos:
1. ADO (DBGO) não pode ser usado, mas, de acordo com Li Wei, o Delphi8.1 deste mês terá esse componente.
2. Você não pode usar o ADO.NET e o BDP, este será o tópico do meu artigo.
Na área de comunicação Delphi de Borland, Danny disse uma vez: "Em Delphi.net, o vcl.net pode chamar componentes Winform, e o Winform também pode ligar para os componentes do VCL.NET".
Para verificar a primeira frase, tentei. Em outras palavras, embora o componente .NET não possa ser visto no painel de componentes vcl.net, todas as classes do componente .NET, vcl.net, podem ser usadas! No entanto, o conjunto de dados da ADO.NET não é compatível com o componente do conjunto de dados do VCL.NET, portanto o componente consciente dos dados não pode ser chamado diretamente. No entanto, depois de analisar o VCL de Li Wei, descobri que havia um componente AdonetConnector.
Primeiro, a DLL do componente vcl.NET possui um borland.vcl.design.adonet.dll em BDS/2.0/bin. formulário. Em seguida, adicione um DBGrid, DB ..., DataSource ..., desde que DataSource.DataSet: = AdonetConnector1. Os outros são os mesmos que o Delphi original, apenas faça. Meu código específico é o seguinte
unidade de unidade1;
interface
usos
Janelas, mensagens, sysutils, variantes, classes, gráficos, controles, formulários,
Diálogos,
System.data.sqlclient,
System.data, System.comPonsModel, Borland.vcl.stdctrls,
Borland.vcl.extctrls, Borland.vcl.dbctrls, Borland.vcl.grids,
Borland.vcl.dbgrids, Borland.vcl.db, borland.vcl.adonetdb;
tipo
Tform1 = classe (tform)
Button1: tbutton;
AdonetConnector1: TadonetConnector;
DataSource1: TDataSource;
DbGrid1: tdbGrid;
Dbnavigator1: tdbnavigator;
Procedimento Button1Click (remetente: Tobject);
Privado
{Declarações privadas}
Conexão: SQLConnection;
Prodataset: DataSet;
Adaptador: sqldataadapter;
público
{Declarações públicas}
fim;
var
Form1: TForm1;
Implementação
{$ R *.nfm}
procedimento TForm1.Button1Click (remetente: TOBJECT);
Começar
Conexão: = sqlConnection.create (
'Fonte de dados = 192.168.76.170;'+
'Catálogo inicial = sfiecerp;'+
'Senha = qwert;'+
'Persiste informações de segurança = true;'+
'ID do usuário = SA;'+
'Tamanho do pacote = 4096;'+
'Lifetime de conexão = 0;'+
'Redefinição da conexão = false;'+
'Pooling = false;'+
'Tamanho máximo da piscina = 100; tamanho da piscina min = 0');
Connection.open;
ProdataSet: = DataSet.Create;
Adaptador: = sqldataadapter.create ('select * do tproduct', conexão);
Adaptador.fill (Prodataset, 'Product');
AdonetConnector1.Datatable: = Prodataset.Tables [0];
fim;
fim.