实现数据集dataset与DBGrid数据显示不一致的方法

           

实现数据集dataset与DBGrid数据显示不一致的方法

                                         

 

   在开发系统过程中，经常需要面对这种情况，dataset里的内容不想原本本的显示出来，例如各种标志字段，在数据库里存放的是1或0等数字字符，而要显示的是中文，例如，0对应的是邮资已付，1代表邮资到付。这时就需要点处理技巧。下面介绍一种方法，大家可以试下。

  在dbgrideh控件里有个OnDrawColumnCell 的事件，其实这个事件很有用，哈哈，大家都用过它来实现记录的不同颜色显示了吧。这里的事件里主要是用了其中的datacol的参数，再结合对数据集的某一字段的判断，就可以有以下代码诞生了。

 

procedure Tc_VisaWayBillFrm.DBGridEh1DrawColumnCell(Sender: TObject;

  const Rect: TRect; DataCol: Integer; Column: TColumnEh;

  State: TGridDrawState);

Begin

  //对payflag的值和dbgrid的数据列6结合来重画数据框

if (C_DM.dst_QryVWB.Fieldbyname('payflag').value = '0' )  and  (DataCol = 6)  then

  begin

    DBGrideh1.Canvas.FillRect(Rect);

    DBGrideh1.Canvas.TextOut(Rect.left+2,Rect.top+2,'已付');

  end

  else if (C_DM.dst_QryVWB.Fieldbyname('payflag').value = '1' )and (DataCol = 6) then

  begin

    DBGrideh1.Canvas.FillRect(Rect);

    DBGrideh1.Canvas.TextOut(Rect.left+2,Rect.top+2,'到付');

  end;

end;

 

经验一点，见笑了。