Delphi（Tuxedo,BDE,ADO）三合一数据集组件HsTxQuery(二)

end;

1 :

begin

hsQuery2.DatasetType := dtBDE;

hsQuery2.ConnectionString := 'orcl';

hsQuery2.Connection := Database1;

end;

2 :

begin

hsQuery2.DatasetType := dtADO;

hsQuery2.ConnectionString := 'Provider=OraOLEDB.Oracle.1;Password=gf;Persist Security Info=True;User ID=gf;Data Source=orcl;Extended Properties=""';

hsQuery2.Connection := ADOConnection1;

end;

end;

end;

五、展望

很多进行数据换的中间件（如各种MQ）都可以封装成易用的组件，使开发员生活更美好。

控件地址：https://sourceforge.net/projects/hstxqueryfordelphi/