【结帖】[请求]紧急需要,控制从模版表写入的功能!在线等**

hule1234

点参与投票  后  出现列表      右键 点一条满意记录   点右键 点处理
我能参考那些系统的资料?
望提示

zfang

任务中心

hule1234

太复杂了,看了半天搞不懂.

zfang

不知道你碰到什么问题。其实问题不复杂。
比如用下面的过滤方式：
dsbModelmain.DataSet.SQLFilter := ' TBNumberId = 用户选择的那个模板号';
dsbModelmain.DataSet.SQLFiltered := True;
然后接下来的内容还是给你1楼的代码一样啊。

atiger

看来是复杂了
今天下午我们开始放假了，5.4号开始上班，跟  zfang沟通一下他的意思，然后跟贴告知

hule1234

老大,我详细的看了下过滤,不太适合我这种方式:

我希望的是   流程审批模版  的方式
通过流程名字 判断写入的数据.

我只要把流程审批模版的使用改成通过  编号 来控制写入就可以了.

麻烦告诉我下,怎么做?

zfang

我希望的是   流程审批模版  的方式
通过流程名字 判断写入的数据.

我只要把流程审批模版的使用改成通过  编号 来控制写入就可以了.
--------------------------------
不太明白....

zfang

???

hule1234

这是流程审批模版的代码
procedure TMainForm.BizFormCreate(Sender: TObject);
begin
(Infobroker.Info as RepairPowerManagement.TRepairPowerManagement).IsStart := True;
end;

procedure TMainForm.BizFormShow(Sender: TObject);
var
  lDataSet : TSqlDataSet;
begin
  if not Flowbroker.FlowControl.FlowStartuped then
  begin
    dsbMaster.DataSet.Append;
    lDataSet := dsbFlow.DataSet as TSqlDataSet;
    FlowCommonUtils.TFlowUtils.LoadFlowTempletData('REPAIRPOWERACCESS',lDataSet);
  end;
  (InfoBroker.Info as RepairPowerManagement.TRepairPowerManagement).ModifyFlowData('bsWrite','10');
end;

下面是 效果图和   表

zfang

请稍等。