semth
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
         IF  (<frxDB_cdsresult."res_CHR">=\'\') THEN
       BEGIN                       
          frxdb_cdsresultres_chr.FONT.COLOR:=CLblue;
          frxdb_cdsresultres_dec.FONT.COLOR:=CLblue;
          frxdb_cdsresultres_dec.FONT.STYLE:=0;  
       END  
       else IF   (<frxDB_cdsresult."res_CHR">=\'\' ) THEN
       BEGIN                       
          frxdb_cdsresultres_chr.FONT.COLOR:=CLRED;
          frxdb_cdsresultres_dec.FONT.COLOR:=CLRED;
          frxdb_cdsresultres_dec.FONT.STYLE:=fsnone;  
       END                       
       ELSE IF  (<frxDB_cdsresult."res_CHR">=\'阳性\') THEN
       BEGIN                       
          frxdb_cdsresultres_chr.FONT.COLOR:=CLRED;
          frxdb_cdsresultres_dec.FONT.COLOR:=CLRED;
          frxdb_cdsresultres_dec.FONT.STYLE:=fSBOLD;              
       END
       ELSE
       BEGIN
          frxdb_cdsresultres_chr.FONT.COLOR:=CLBLACK;
          frxdb_cdsresultres_dec.FONT.COLOR:=CLBLACK;
          frxdb_cdsresultres_dec.FONT.STYLE:=0;                
       END;  
end;

 

分类:

技术点:

相关文章: