代码设置TSQLCONNECTION参数

function ConnRemoteSvr(cn:TSQLConnection;const hostname,UserName,password:string; const port:Integer):Boolean;
begin
  try
  cn.Close;
  cn.DriverName := 'DataSnap';
  cn.LoginPrompt :=False;
  Cn.ConnectionName := 'DataSnapCONNECTION';
  cn.Params.Clear;
  cn.Params.Add('DriverName=DataSnap');
  Cn.Params.Add('HostName='+HostName);
  Cn.Params.Add('Port='+inttostr(port));
  Cn.Params.Add('User_Name='+UserName);
  Cn.Params.Add('Password='+PassWord);
  cn.Open;
  Result :=True;
  except
    Result :=False;
  end;