DELPHI通用技术问题，考验您的技术深度，如何实现DBGRID或DBGRIDEH中代码字段的代码和名称的显示

Question

双击DBGRID，弹出一个框，单击右键，选SELECT ALL，再选要改的字段，修改
TITLE---CAPTION

Answer 1

在字段编辑器中新建一字段x设为计算字段
在dataset的计算事件中
with adoquery do 
begin 
 close;
sql.text:='select name from dmb where dm='+''''+dataset.fieldbyname('dm').asstring+'''';
open;
dataset.fieldbyname('x').asstring:=fields[0].asstring;
end;

Answer 2

另外在代码字段的gettext事件中与是可以的,原理一样
if sender.asstrin<>''then
beginwith query do 
begin 
 close;
 sql.clear;
sql.text:=sql.text:='select name from dmb where dm='+''''+sender.text+'''';
open;
text:=fields[0].asstring;
end;
end;