此组件的构造函数和析构函数也十分简单。构造函数就是连接创建sqlserver对象。析构函数也仅仅是完成对sqlserver对象的析构。
constructor TDBCTRL.Create(AOwner: TComponent);
begin
inherited;
sqlserver:=coSqlserver.Create; //CoSqlserver是_SqlServer的类工厂
end;
destructor TDBCTRL.Destroy;
sqlserver:=nil; //把此对象设置为nil后,Delphi会在幕后完成Com对象的析构。
如果我们要对某个SQL Server实例进行管理和操作,首先我们要连接到这个实例。下面的ConnectToServer函数就实现了如何连接到一个SQL Server实例的功能。
function TDBCTRL.ConnectToServer: Boolean;
SqlServer.LoginSecure:= FLoginSecure;
// 设置是否是NT验证模式,如果是True就会忽略Login和Password;
try
sqlServer.Connect(FHost,FLogin,FPWD);
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18