优的网站建设明细报价表,网络营销的缺点及建议,确山网站建设,辽宁建设培训网站一、问题表现 Delphi 三层DataSnap#xff0c;使用AlphaControls控件优化界面#xff0c;一窗口编辑时#xff0c;出现下列错误提示#xff1a; 编译通过#xff0c;该窗口中#xff0c;重新显示数据#xff0c;下图#xff1a; 相关代码#xff1a; procedure… 一、问题表现 Delphi 三层DataSnap使用AlphaControls控件优化界面一窗口编辑时出现下列错误提示 编译通过该窗口中重新显示数据下图 相关代码 procedure TShowOld_1_Frm.Button7Click(Sender: TObject);
var SQL,ID:string;k,L:integer;
beginGroupBox4.Caption:Button7.Caption;DateTimetoString(ID,yyyy-MM-dd,now-100);SQL:select * from 老人基本信息 where (分支#39sFCID#39) ;SQL:SQLand (入院日期#39ID#39) order by 入院日期;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: 数据库 IntToStr(L) 人信息;
end;问题是首次都能正常显示OnShow中执行代码再次执行代码时出现下列提示 二、搜索思路 1、由提示“ ClientDataSet无法在关闭的数据集上执行此操作”ClientDataSet上作文章。打开数据集时每次打开换个ClientDataSet是可以解决问题但是这太复杂了也违背编程的原则。放弃此办法。 2、在引起DBCombobox有OnChange的控件找原因。方法见我的别一文章《AlphaControls控件TsDBCombobox出错访问违规》。 3、逐个控件进行查找方法是屏蔽全部控件逐个开放检查是否出现错误。找到在 TsDBEdit控件时使用OnChange生成其它字段的数据引起ClientDataSet不能进入Open状态。 三、解决问题 只能放弃使用OnChange事件。 原因中使用控件AlphaControls界面很好但是重画窗口界面比较复杂要求不使用或少使用OnChange事件引起不必要的麻烦。 只能改变思路加一按键实现“OnChange生成其它字段的数据”。
