【搞定】代码设置数据约束问题**

hdwt

字段A为数值型，有一定的大小范围。提供给用户维护界面，动态设置该字段的约束。
通过代码能修改字段的数据约束：lbiztabledef.FieldDefs.Find('fDistance').CustomConstraint.Text，但并不执行，也不保存。请问怎样才能将该CustomConstraint保存进Tbiztabledef中？

hdwt

顶

hdwt

顶

jiahaiminghr

修改数据表实际是对平台中业务模型资源的修改。需要以下几步来完成：
1、指定这个表对象
2、修改结构定义
3、重新生成逻辑表
4、重启刷新业务模型资源

以下代码是用来创建逻辑表资源的，请参考：
{ABizTableDef表结构定义， ADBURL数据库URL， ACreateNew是否新建}
procedure CreateLogicTable(ABizTableDef: TBizTableDef; ADBURL : String;
  ACreateNew: Boolean);
var
  lDesc: TTableDefDesc;
  lCreator: TTableDefCreator;
  lBizTableDef : TBizTableDef;
begin
  lDesc := TTableDefDesc.Create(nil);
  lDesc.LanguageExt := '.pas';
  lDesc.FileName := ABizTableDef.ID + '.Table';
  lDesc.DisplayName := ABizTableDef.DisplayName;
  if ACreateNew then
    lDesc.CreateMode := Business.Forms.TCreateMode.cmNew
  else lDesc.CreateMode := Business.Forms.TCreateMode.cmRecreate; //修改

  lBizTableDef := lDesc.TableDef;  //用lbiztabledef替换temptabledef，需要单独释放temptabledef
  lDesc.TableDef := ABizTableDef;

  lCreator := TTableDefCreator.Create;
  try
    lCreator.Execute(Business.Model.BizSys.ObjectInfo(ADBURL).BizURL, lDesc,
      BizSys.GlobalContext);
    lCreator.Save;
  finally
    lDesc.TableDef := lBizTableDef;
    lDesc.Free;
    lCreator.Free;
  end;
end;

hdwt

试一下，谢谢回复

hdwt

试了一下，能修改，但得重新打开建模工具，该数据约束才起效。
“4、重启刷新业务模型资源”指的就是重新打开建模工具吗？

jiahaiminghr

对啊，在默认情况下，工具打开后，就开始使用本地缓存了。
只有重新打开，才能使用最新资源

当然，你也可以在studio中使用刷新缓存按键来更新资源
不过，在客户端就没有办法了。

hdwt

作了修改后，客户端重新打开协调平台，并“保持我的应用最新”，这样应该就能起效的吧？

hdwt

忘了谢谢jiahaiminghr了

jiahaiminghr

应该是不行的，楼主可以尝试一下。