解决超时问题

      FConn.ProviderName := FProviderName;
      if FConn.ProviderName=‘SQL Server‘ then
      begin
        FConn.SpecificOptions.Values[‘Provider‘] := ‘prDirect‘;
        FConn.SpecificOptions.Values[‘Authentication‘] := ‘auServer‘;
        //锁超时时间,毫秒
        FConn.SpecificOptions.Values[‘LockTimeout‘] := ‘10000‘;
      end;