Grant Permissions to all objects

select 'GRANT EXECUTE ON OBJECT::' + name +  ' To DevUser;'
from sysobjects where xtype in ('P')
UNION ALL
select 'GRANT SELECT ON OBJECT::' + name +  ' To DevUser;'
from sysobjects where xtype in ('U')
UNION ALL
select 'GRANT INSERT ON OBJECT::' + name +  ' To DevUser;'
from sysobjects where xtype in ('U')
UNION ALL
select 'GRANT UPDATE ON OBJECT::' + name +  ' To DevUser;'
from sysobjects where xtype in ('U')
UNION ALL
select 'GRANT DELETE ON OBJECT::' + name +  ' To DevUser;'
from sysobjects where xtype in ('U')