起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 192|回复: 7

【搞定】数据集约束问题**

[复制链接]
发表于 2007-4-2 20:14:51 | 显示全部楼层 |阅读模式
现在有一个动态的数据集,我想在上面设置数据集约束(Constraints),需要在代码中动态的添加这个约束,由于数据集是动态的所以里面的字段是不一样的。我想知道用代码添加怎么样实现,谢谢。我只查到了这个
DataSetBroker1.DataSet.Constraints.item[]

这个好像只能调用约束,并不能添加约束,最好能写个例子
回复

使用道具 举报

 楼主| 发表于 2007-4-3 09:18:37 | 显示全部楼层
谁帮个忙啊,急用啊,异常感谢,比非常感谢还要感谢,谢谢了
回复 支持 反对

使用道具 举报

发表于 2007-4-3 11:19:40 | 显示全部楼层
是作唯一性约束吗?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-4-3 11:20:04 | 显示全部楼层
是我又没说明白吗?怎么还没人管呢
回复 支持 反对

使用道具 举报

发表于 2007-4-3 11:33:40 | 显示全部楼层
是作唯一性约束吗?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-4-3 11:56:31 | 显示全部楼层
是,就是想几个字段一块约束一个数据集。用户手册中的6.1.12节中的相关内容,用代码怎样能实现
回复 支持 反对

使用道具 举报

发表于 2007-4-3 12:04:09 | 显示全部楼层
function TDSConstraints.AddConstraint(ADataSet: TSQLDataSet; AFields: String;
  ACaseSensitive: Boolean; AErrorMsg: String): Boolean;
var
  lConstraint: TDataSetUniqueConstraint;
begin
  lConstraint := TDataSetUniqueConstraint.Create(ADataSet);
  try
    lConstraint.Name := 'AFields';
    lConstraint.CaseSensitive := ACaseSensitive;
    lConstraint.ErrorMessage := AErrorMsg;
    lConstraint.FieldNames := AFields;
    lConstraint.Tag := 0;
    lConstraint.DataSet := ADataSet;


    ADataSet.Constraints.Add(lConstraint);
    Result := True;
  except
    lConstraint.Free;
    REsult := False;
  end;
end;
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-4-3 13:25:21 | 显示全部楼层
谢谢,结贴吧
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-6-18 14:50 , Processed in 0.042818 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表