客户端问题求助

小弟用delphi编程，数据库是sqlserver2005，有一个模块是在界面初始化的时候就要查询出最大编号、人员和原因。其中原因和人员在同一张表中的同一个字段，靠另一个字段来区分。而最大编号在另一张表中。现在小弟在客户端用三次查询来完成，但是每次界面初始化要二十多秒，耗时太长。现在想请教各位前辈，能不能提高客户端的速度，或是将三个查询变成一个，减少查询次数？抑或各位有另外的办法？
下面是sql代码：
select distinct code1 from other where codegroup='man'
select distinct code1 from other where codegroup='reason'
Select max(recno) as recno from out where len(recno)=8 and left(recno,4)=year(current_timestamp)

select code1 from other where codegroup='man' group by code1

codegroup字段和code1字段加索引

1.lz的第一和第二条SQL能否用union all 连接呢。
2.建议lz给where条件后的字段加索引。
3.最耗时的应该在第三条SQL。但不知道第三条SQL是完成什么业务功能的。