procedure TForm1.wdb1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if (field.fieldname='加密字段名称') then
begin
解密过程;
xx:=解密后的内容
wdb1.Canvas.FillRect(rect);
wdb1.Canvas.TextOut(Rect.Left,Rect.Top,xx);
在那个字段的Ongettext事件中编程。比如
procedure TForm1.Query1StringFieldGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
if Sender.AsString 已经加密 then
Text:=解密过程(Sender.AsString);
else
Text:=Sender.AsString;
end;