用AlphaControls控件优化界面一窗口编辑时出现下列错误提示

相关代码

TShowOld_1_Frm.Button7Click(Sender:

TObject);

beginGroupBox4.Caption:Button7.Caption;DateTimetoString(ID,yyyy-MM-dd,now-100);SQL:select

from

入院日期;DataModule1.ClientDataSet1.Active:False;DataModule1.ClientDataSet1.DataRequest(SQL);DataModule1.ClientDataSet1.Active:True;ClientDataSet1.Data:DataModule1.ClientDataSet1.Data;DataModule1.ClientDataSet1.Active:False;L:ClientDataSet1.RecordCount;SetSource(DataSource1);DBGridEh1.Columns[0].Title.Alignment

taCenter;DBGridEh1.Columns[0].Alignment:taCenter;DBGridEh1.Columns[1].Title.Alignment

taCenter;DBGridEh1.Columns[1].Alignment:taCenter;DBGridEh1.Columns[0].Width:36;DBGridEh1.Columns[1].Width:80;

sStatusbar1.Panels.Items[0].text:

数据库

end;问题是首次都能正常显示OnShow中执行代码再次执行代码时出现下列提示

二、搜索思路

ClientDataSet无法在关闭的数据集上执行此操作”ClientDataSet上作文章。

打开数据集时每次打开换个ClientDataSet是可以解决问题但是这太复杂了也违背编程的原则。

放弃此办法。

2、在引起DBCombobox有OnChange的控件找原因。

方法见我的别一文章《AlphaControls控件TsDBCombobox出错访问违规》。

3、逐个控件进行查找方法是屏蔽全部控件逐个开放检查是否出现错误。

找到在

TsDBEdit控件时使用OnChange生成其它字段的数据引起ClientDataSet不能进入Open状态。

三、解决问题

原因中使用控件AlphaControls界面很好但是重画窗口界面比较复杂要求不使用或少使用OnChange事件引起不必要的麻烦。

只能改变思路加一按键实现“OnChange生成其它字段的数据”。