使用函数连接SQL数据库

//AServerName, ADataName, AUser, Apass分别可以为服务器的IP地址\数据库名\用户名\密码
function getDataConnection(AServerName, ADataName, AUser, Apass:string);
begin
Result := 'Provider=SQLOLEDB.1;Password= ' + Apass
+ ';Persist Security Info=True;User ID= ' + AUser
+ ';Initial Catalog= ' + ADataName
+ ';Data Source= ' + AServerName;
end;
调用如下:
ADOConnection1.ConnectionString := getDataConnection(ServerName, DataName, User, pass);
ADOQuery1.connection := ADOConnection1;