【搞定】[请求]如何控制用lDataSheetArea.EditorRepeatMode 方法输出的单元格的访问

幽蓝星空

我使用lDataSheetArea.EditorRepeatMode 方法将自定义数据集中的数据输出出来（如下面代码所示），我需要在程序中对输出的数据进行访问权限控制，有的单元格中的数据要求可写，有的只能是只读。我该如何控制？
         //输出自定义数据集中的数据
    datasheet.Areas.Clear;
         lDataSheetArea := datasheet.Areas.Add(TAreaType.atDBArea) as TDataSheetArea;
         lDataSheetArea.DataSetDefID := userDataSet.ID;
         lDataSheetArea.DataSetID := userDataSet.ID;
         lDataSheetArea.BoundsRect := Classes.Bounds(intTableToLeft+1, intTableToTop+arrColIdList.count+1, colCount+ArrRowIdList.Count, 1);//(intTableToLeft+ArrRowIdList.Count, intTableToTop+arrColIdList.count, intTableToLeft+ArrRowIdList.Count+colCount, intTableToTop+arrColIdList.count+rowCount);
         lDataSheetArea.TitleRows := 0;
         lDataSheetArea.EditorRepeatCount := rowCount;
         lDataSheetArea.EditorRepeatMode := TEditorRepeatMode.ermLimit;

幽蓝星空

我曾经测试了一下如何定位到lDataSheetArea.EditorRepeatMode 方法输出的单元格，测试代码如下，但却得到如图所示的效果：连续的三行单元格会跨过数据的输出区域！可见这个方法不能定位输出的单元格。
   TDataSheet(TSheetDoc(DocView1.Doc).Sheet).Cells[6,9].Value:= 'mmm1';
   TDataSheet(TSheetDoc(DocView1.Doc).Sheet).Cells[6,10].Value:= 'mmm2';//该单元格数据没能在datasheet中输出
   TDataSheet(TSheetDoc(DocView1.Doc).Sheet).Cells[6,11].Value:= 'mmm3';


玩了，图又贴不上了！！

jiahaiminghr

楼主，对单元格的只读控制，在设计文档时定义：
这是对单元格的属性定义，不是对数据区域的定义
lFieldCell.Styles := lFieldCell.Styles + [TCellStyle.csReadOnly];

另外，建议对数据的权限控制，采用数据策略来实现（如：字段的只读定义），不要在数据的表现上进行处理

幽蓝星空

我的情况有些特殊，需要将读写权限控制到单元格而不是字段，同一个字段中，满足不同条件的记录，对于该字段有不同读写权限，所以控制数据集对我的需求来讲粒度粗了些。不知有没有控制到单元格的方法，只要你能提供一种能够取得该单元格的位置我就能实现这个功能。有没有函数可以取得特定单元格的位置即行列号？

jiahaiminghr

1、表格文档比较特殊，只有设计时能够定位，一旦打开后，就不能定位了。

2、你的需求可以通过对数据集的ReadOnlyFields属性操作来实现
NameSpace: Business.Model    ClassDelcare: Business.Model.TBizDataSet
--------------------------------------------------------------------------------
property ReadOnlyFields: Business.System.TStrings;

或者直接设置相关字段的ReadOnly

幽蓝星空

同样ReadOnlyFields这个方法也只能控制某个字段是只读的，而不能控制满足条件的的某几条记录的该字段对应的值是只读的呀

jiahaiminghr

楼主，你可以在记录集的滚动事件里写代码控制阿，在同一时间只能编辑一条记录，所以每滚动一次记录，重新设置一次只读属性，是完全可以满足的你的需求的。

幽蓝星空

谢谢！不过能给段示例代码么？记录集的滚动事件是什么名字？

jiahaiminghr

楼主，数据集的滚动事件是AfterScroll
下面的例子是：
记录滚动后判断，当前记录是否审核同意，如果同意就所有字段只读，不允许修改，否则所有字段取消只读，允许修改。

procedure TSJJCLDemoXX.DataSetCLDemoSJJAfterScroll(DataSet: TDataSet);
var
  lFieldCount, i : integer;
begin
  lFieldCount := DataSet.FieldCount;
  if DataSet.FieldByName('审核意见').AsString = '同意' then
    for i := 0 to lFieldCount -1 do
        DataSet.Fields.ReadOnly := True
  else
    for i := 0 to lFieldCount -1 do
        DataSet.Fields.ReadOnly := False;
end;

幽蓝星空

在测试，谢谢！！！