【结贴】有代码,不执行,上传了录像看一下

jiahaiming

估计是楼主忘了编译了。

xhsoft

编译过的,

atiger

请问，
1、这段代码写在哪个事件上了
2、是整个事件的代码都不执行，还是只执行某一部分？如果是一部分，那么请告知，哪部分没有执行
3、都写了些啥，把代码都帖出来看看

xhsoft

1\一个button的\click
2\ 都没有执行,加了断点后,都有执行
3\procedure TDZWJQC.BitBtn4Click(Sender: TObject);
begin

  dsb_dzqc.DataSet.Refresh;
  dsb_dzqc.DataSet.Open;
  dsb_dzqc.DataSet.Edit;
  dsb_dzqc.DataSet.FieldByName('tj').AsString := '审批';
  dsb_dzqc.DataSet.ApplyUpdates;
  FlowAction1.execute;   //调用流转
end;

procedure TDZWJQC.BitBtn3Click(Sender: TObject);
begin

  dsb_dzqc.DataSet.Refresh;
  dsb_dzqc.DataSet.Open;
  dsb_dzqc.DataSet.Edit;
  dsb_dzqc.DataSet.FieldByName('tj').AsString := '评审';
  dsb_dzqc.DataSet.ApplyUpdates;
  FlowAction1.execute;   //调用流转
end;

procedure TDZWJQC.Button1Click(Sender: TObject);
begin
  dsb_dzqc.DataSet.Refresh;
  dsb_dzqc.DataSet.Open;
  dsb_dzqc.DataSet.Edit;
  dsb_dzqc.DataSet.FieldByName('tj1').AsString := '起草1';
  dsb_dzqc.DataSet.ApplyUpdates;
  FlowAction1.execute;   //调用流转
end;

procedure TDZWJQC.Button2Click(Sender: TObject);
begin

  dsb_dzqc.DataSet.Refresh;
  dsb_dzqc.DataSet.Open;
  dsb_dzqc.DataSet.Edit;
  dsb_dzqc.DataSet.FieldByName('tj1').AsString := '审批1';
  dsb_dzqc.DataSet.ApplyUpdates;
  FlowAction1.execute;   //调用流转
end;

procedure TDZWJQC.BitBtn6Click(Sender: TObject);
begin

  dsb_dzqc.DataSet.Refresh;
  dsb_dzqc.DataSet.Open;
  dsb_dzqc.DataSet.Edit;
  dsb_dzqc.DataSet.FieldByName('tj2').AsString := '起草2';
  dsb_dzqc.DataSet.Post;
  FlowAction1.execute;   //调用流转
end;

procedure TDZWJQC.BitBtn5Click(Sender: TObject);
begin
  dsb_dzqc.DataSet.Refresh;
  dsb_dzqc.DataSet.Open;
  dsb_dzqc.DataSet.Edit;
  dsb_dzqc.DataSet.FieldByName('tj2').AsString := '结束';
  dsb_dzqc.DataSet.Post;
  FlowAction1.execute;   //调用流转
end;

shangxy

那句代码不执行？这些buttonclick里面的东西都不执行么？

xhsoft

是的

atiger

1、 哪个buttonclick，是14楼所有的代码吗？如果不是，那是哪个呢?
2、你点击这个按钮了吗？
3、你怎么知道这些代码没有执行？是看后台数据没有保存进去还是...？
4、在begin后面加一句Showmessage，看看是否有信息显示出来？

xhsoft

可以在qq上给你传一段录像吗

xhsoft

procedure TDZWJFF.Button3Click(Sender: TObject);
begin
        dsb_jsgw.DataSet.Open;
        //dialogs.ShowMessage(sysutils.IntToStr(dsb_jsgw.dataset.RecordCount));
        dsb_jsgw.DataSet.first;
        while not dsb_jsgw.dataset.eof do
        begin
        dsb_jsgw.dataset.edit;
        dsb_jsgw.dataset.FieldByName('zt').asstring := '发放';
        dsb_jsgw.dataset.post;
        dsb_jsgw.dataset.Next;
        end;

        dsb_jsgw.dataset.ApplyUpdates;
    flowaction1.Execute;
end;
这一段也没有执行

xhsoft

发现一个规律,加了断点第一次也不执行,(初始化运行),再初始化运行一次,就能执行到断到了