| 对象，用有一个私有数据成员：sqlserver来保存。其类型为_SqlServr.
此组件的构造函数和析构函数也十分简单。构造函数就是连接创建sqlserver对象。析构函数也仅仅是完成对sqlserver对象的析构。
constructor TDBCTRL.Create(AOwner: TComponent);
begin
inherited;
sqlserver:=coSqlserver.Create; //CoSqlserver是_SqlServer的类工厂
end;
destructor TDBCTRL.Destroy;
begin
sqlserver:=nil; //把此对象设置为nil后，Delphi会在幕后完成Com对象的析构。
inherited;
end;
如果我们要对某个SQL Server实例进行管理和操作，首先我们要连接到这个实例。下面的ConnectToServer函数就实现了如何连接到一个SQL Server实例的功能。
function TDBCTRL.ConnectToServer: Boolean;
begin
SqlServer.LoginSecure:= FLoginSecure;
// 设置是否是NT验证模式，如果是True就会忽略Login和Password；
try
sqlServer.Connect(FHost,FLogin,FPWD);
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> | 
