实现数据集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;
经验一点,见笑了。