如何在打印表格中的审核人这一栏显示本人的签名？**

atiger

如何使审核人编号这栏按要求填入数据
这不是填充的是当前操作者的ID吗？可以通过设置字段的自动填充（填充的表达式就是当前操作者ID）。当审核人登陆后，填充审核意见，那么审核人编号会自动填充进去

lantian402

我要实现的当该审核者有签名图片就填充这个图片。。没有才填充ID.。。唉。。。

atiger

2楼不是已经给你方法了吗？
不能实现，还是报错，还是其他的？

lantian402

很久没来了。。
资源集里面的图片如何和审核人这个字段进行关联呢。
  若某审核人有签名图片则该字段内容就是资源集里面想对应的审核人图片。
现在是不太明白这个字段是这样存储资源集里面的图片的。

lisb

你要有一张表来存储人员ID和签名图片的对照关系，不能直接和资源集中的图片比较

lantian402

哦。。。那这个资源集在这啥意思啊？？
  可以不用资源集存储图片 而是直接把图片以二进制格式存储在这个表中吗。。

lisb

可以啊，可以不用资源集

lantian402

哦。。。这样的话就是要通过控件来往数据表中加载图片资源了。
     能给个如何在开发平台往数据表中添加图片记录的例程吗
或者相应代码也行。

lisb

不用写代码，用一个二进制流字段，设置表现类型为图像就可以载入图片了

lantian402

按着你说的做了。。代码如下：
procedure TMainForm.DataSetBroker3NewRecord(DataSet: TDataSet);
Var
CC : TContextCurrent;
query:TQuery;
begin
  Inherited;
  CC:=TContextCurrent.Create(Context);
  Query.ConnectionString := 'DatabaseURL=Biz:\OPERATION\XMGL\XMGLSJK.DATABASE';
  Query.CommandText := 'SELECT YGBH,DYQM FROM TPZY where YGBH='''+CC.Operator.ID+'''';
Query.Open;
  try
    DataSet.FieldByName('LCHJ').AsString := FuncBroker.Func.DisplayName;
    if query.RecordCount<>0 then
     begin
     TsqlDataSet(DataSetBroker3.DataSet).BizFieldByName('SHRBH').EditStyleID := 'Graphic';
      DataSetBroker3.DataSet.FieldByName('SHRBH').assign(QUERY.FieldByNamE('DYQM'));
  end
    else
     begin
    TsqlDataSet(DataSetBroker3.DataSet).BizFieldByName('SHRBH').EditStyleID := 'String';
     DataSetBroker3.DataSet.FieldByName('SHRBH').asString := CC.Operator.DisplayName;
    end;
  finally
            CC.free;
           Query.free;
  end;
end;
但是通过DataGrid表现不出来，审核人这一列显示为空了。打印Sheet中的审核人这栏也是空了。    是不是因为设置二进制原因啊。。