下面代码什么意思？

Crazy_wen2006

procedure TPLANCENTERINFO.InfoCreate(Sender: TObject);
var
  lBizParam: TBizParam;
begin
  {
    计划标题, _状态图形, 重点考核项,
    计划周期, 计划开始时间, 计划完成时间,
    完成形式名称, 计量单位, 数量,
    计划类型ID, 业务类型ID, 时间跨度ID, 计划状态, _进度图形,
    计划工时, 实际工时, 计划百分比, 实际百分比,
    实际周期, 实际开始时间, 实际完成时间,
    责任人部门ID, 责任人ID, 主管院领导部门ID, 主管院领导ID,
    协办人, 创建人部门ID, 创建人ID,
    计划编制时间, 计划修改时间, 计划年, 计划月, 计划周,
    专题计划, 安全级别, 审批范围,
    计划编码
  }
  FPlanDataFields := CreateStringList([
    '_WBS', {'FPLANTITLE',} '_STATE',
    'FPLANTYPEID', 'FPLANSTATE',
    'FPRINCIPALDEPTID', 'FPRINCIPALID',
    'FPLANBEGINTIME', 'FPLANFINISHTIME', '_PERCENT', 'FPLANCYCLE',
    'FPLANPERCENT_AUTO', 'FFACTBEGINTIME', 'FFACTFINISHTIME', 'FFACTCYCLE', 'FFACTPERCENT',
    'FTIMESPANID', 'FFINISHMODENAME', 'FPIECE', 'FAMOUNT',
    'FPLANMANHOUR', 'FFACTMANHOUR',
    'FCREATORDEPTID', 'FCREATORID',
    'FCREATETIME', 'FCHANGETIME',
    'FPLANYEAR', 'FPLANMONTH', 'FPLANWEEK',
    'FSAFELEVEL', 'FPLANCODE']);

  FPlanImageFields := CreateStringList(['_WBS', {'_STATE', }'_PERCENT']);

  FPlanDataSetManager := TPlanDataSetManager.Create(Context,
    DataSetPlanData, DataSetPlanExecutor, DataSetPlanFeed);

  FBizImageList := TBizImageList.Create(Self);
  PlanGraphicLib.TPlanGraphicLib.GetPlanStateBizImageList(FBizImageList);

  lBizParam := TContextUtils.GetParam(Context, 'Biz:\COLLABORATION\PlanParams.ParamGroup', 'CanEdit');
  lBizParam.OnGetValue := ParamCanEditGetValue;

  FPlanTypes := TStringList.Create;
  TPlanDefineInfo.GetTypeNameList(FPlanTypes);

  FUpdatePercent := True;
  // 为了实现不允许录入,但又不希望显示为只读
  FIELD_PlanData_FFINISHMODENAME.ValidChars := #255;

计划中心中的部分代码，意思是不是重新组织一个数据库，我在别的地方怎么引用过来

zfang

不是，这里的代码都是对一些对象做初始化操作。
不知道楼主要实现什么，请描述下

Crazy_wen2006

这是计划中心的一段代码，没看明白什么意思？
_WBS这个字段我数据表里也没有哦

amao800613

你说的那个字段是后来他们加的字段，该字段是用在项目管理里面的。

Crazy_wen2006

这段代码的意思是对数据字段做初始化操作吗？我如果屏蔽这些字段，再打开计划中心的时候里面就是空的了

Crazy_wen2006

能解释下上面的意思吗？或者推荐相关的说明

zfang

FPlanDataFields  是数据字段
FPlanImageFields 是图像字段（应该用于显示进度条等之类的吧）