【结贴】[请求]数据录入解决方案？**

matthaus

业务需求：
1.表格文档A有字段A1和A2以及其他字段，根据A1和A2确定数据库中表B的部分分字段数据。
2.A数据录入完成后点击保存按钮（截图中的保存按钮），从组织机构中取相关人员姓名和岗位名称录入表B。

问题1.保存按钮点击事件是什么？
      2.如何取通过代码取组织机构人员成员，岗位成员的DisplayName？
      3.如何将这些数据录入B表中？

谢谢！

jiahaiming

1、使用数据集的BeforeApplyUpdates
2、需要楼主设计一个规则，能根据A1 A2确定需要人员的BizUrl或者三个id（部门、岗位、人员），然后获取displayname
var
  lOrgUnit: TOrgUnit;;
  lPersonName, lPositionName, lDeptName: String;
begin
  //取人员成员
  lOrgUnit := Org.OrgSystem.FindUnit('部门ID', '岗位ID', '人员ID');
  lPersonName := lOrgUnit.DisplayName;

  //取岗位成员
  lOrgUnit := lOrgUnit.Parent;
  lPositionName := lOrgUnit.DisplayName;
  //取部门
  lOrgUnit := lOrgUnit.Parent;
  lDeptName := lOrgUnit.DisplayName;
end;

3、录入其他表需要用数据控件完成，如：TQuery
var
  lQuery: TQuery;
begin
  lQuery := TQuery.Create(nil);
  try
    lQuery.ConnectionString :='DATABASEURL=Biz:\…….Database';
    lQuery.CommandText := 'Insert into ……';
    lQuery.Execute;
  finally
    lQuery.Free;
  end;
end;

matthaus

谢谢贾工，我看看！

jiahaiming

ok

matthaus

BeforeApplyUpdates时间中怎么取A1和A2的值呢？

jiahaiming

DataSet.FieldByName('A').AsString

matthaus

取岗位和取部门怎么是一样的呢？
都是
lOrgUnit := lOrgUnit.Parent;
lDeptName := lOrgUnit.DisplayName; or  lDeptName := lOrgUnit.DisplayName;

shangxy

//取人员成员
  lOrgUnit := Org.OrgSystem.FindUnit('部门ID', '岗位ID', '人员ID');
  lPersonName := lOrgUnit.DisplayName;
  
//取岗位成员
  lOrgUnit := lOrgUnit.Parent;
  lPositionName := lOrgUnit.DisplayName;
  //取部门
  lOrgUnit := lOrgUnit.Parent;
  lDeptName := lOrgUnit.DisplayName;

这3个是连续的，人员成员的parent是岗位成员，岗位成员的parent是部门

matthaus

明白了，谢谢Shangxy

matthaus

搞定了，结贴吧！