问一个简单点的问题！ ( 积分: 50 )

procedure TFrmyblabeldprt.FormCreate(Sender: TObject);
var
s:string;
begin
s:='select a.ybbh,case when substring(b.pdnm,len(rtrim(pdnm))-2,3)=:NN then
substring(pdnm,1,len(rtrim(pdnm))-3) else
b.pdnm end as pdnm,b.dhdwmc,b.ddh,b.jd,b.ac,b.bl,b.jlh from sc_ybzzph a,tp_ybjhd_prt b where b.lab=1 and gcname=:gcname and a.gzlhm=b.gzlhm ';
s:=s+' order by a.ybbh';
with qxlbsjd_prtdo
begin
close;
sql.Clear ;
sql.Add(s);
parambyname('gcname').AsString :=gcname;
parambyname('NN').AsString :='(N)';

Execsql;
OPen;
end;
end;
打印问题：
我这里现在是吧有后缀名PA194-CF194I_2X1(N)中的(N)给不打印出来，我现在多了个PA194-CF194I_2X1(T)中的(T)也不打印出来，怎么改语句阿？大虾们指点一下！

procedure TFrmyblabeldprt.FormCreate(Sender: TObject);
var
s:string;
begin
s:='select a.ybbh,case when substring(b.pdnm,len(rtrim(pdnm))-2,3)=:NN then
substring(pdnm,1,len(rtrim(pdnm))-3) else
b.pdnm end as pdnm,b.dhdwmc,b.ddh,b.jd,b.ac,b.bl,b.jlh from sc_ybzzph a,tp_ybjhd_prt b where b.lab=1 and gcname=:gcname and a.gzlhm=b.gzlhm ';
s:=s+' order by a.ybbh';
with qxlbsjd_prtdo
begin
close;
sql.Clear ;
sql.Add(s);
parambyname('gcname').AsString :=gcname;
parambyname('NN').AsString :='(N)';

Execsql;
OPen;
end;
end;
打印问题：
我这里现在是吧有后缀名PA194-CF194I_2X1(N)中的(N)给不打印出来，我现在多了个PA194-CF194I_2X1(T)中的(T)也不打印出来，怎么改语句阿？大虾们指点一下！