关于dbedit的小问题。(50分)

关于dbedit的小问题。
在一个dbcombobox中有下拉。在设计阶段写上两个
☆
★

当选第一个时候在一个dbedit中显示一个。
当选第二个时候在dbedit中显示另一个。
运行时都可以实现。但dbedit是要求在自动生成的内容基础上是可以修改的。
但鼠标一点到这个dbedit上的时候。dbedit就会变为空。真是很烦。
假如直接输入再修改就可以。

请问各位如何解决？谢谢。

源程序如下：
procedure TForm1.DBComboBox34Change(Sender: TObject);
var
nowyear:string;
temp:string;
begin
nowyear:=datetostr(date);
delete(nowyear,5,length(nowyear)-4);
if DBComboBox34.text='中共顺德市纪律检查委员会' then
dbedit1.edittext:='顺纪审'+'['+nowyear+']'+' '+'号';
if DBComboBox34.text='顺德市监察局' then
dbedit1.edittext:='顺监审'+'['+nowyear+']'+' '+'号';
end;

不要把值付给DBEdit,而要直接给DBEdit对应的字段的value付值。

如果你的dbedit完全是为了显示数据，干吗不用edit ,这样肯定不会出现你说的情况

多人接受答案了。