【结贴】数据集添加，奇怪？**

cdz0451

可惜设置啥都不好使呀！
procedure TMAINFORM.DataNavigatorBeforeAction(Sender: TObject; var Accept: Boolean);
var
  sValue :string;
begin
  //保存
  if(BizActnConsts.ActionDataSetSave = TBizDataSetAction(Sender).ID) then
  begin
     //DataSetBroker1.DataSet.UpdateRecord();
     //保存
     if(jsDialogs.ConfirmBox('您确认保存吗?', '保存', 2)) then
     begin
       ToolButton1.Enabled := true;
       DataSetBroker1.DataSet.FieldByName('ZT').AsString := '新';
     end;
  end;
    //添加
  if(BizActnConsts.ActionDataSetAppend = TBizDataSetAction(Sender).ID) then
  begin
    Accept := false;
    DataSetBroker1.DataSet.Insert();
    sValue := DataSetBroker1.DataSet.FieldByName('DJBH').AsString;
    sValue := sValue;
  end;
end;

procedure TMAINFORM.DataNavigatorAfterAction(Sender: TObject);
begin
  //删除
  if(BizActnConsts.ActionDataSetDelete = TBizDataSetAction(Sender).ID) then
  begin
    DataSetBroker1.DataSet.ApplyUpdates();
  end;
  //保存
  if(BizActnConsts.ActionDataSetSave = TBizDataSetAction(Sender).ID) then
  begin
       if(DataSetBroker1.DataSet.State = TDataSetState.dsBrowse ) then
       begin
           JsDialogs.ShowMsg('保存成功！','保存');
       end;
  end;
end;
真是无语了

cdz0451

之所以这么用！
原因有：
1，我确实不知道你们这个牛插工具，有啥好东西可以用！
2，这是一个简单流程投递过程：
  用户添加单据，点击“保存”但不进入流程流转。此时，数据状态应该是“新”。
  当用户点击流程流转时，数据状态是“待受理”。然后跑到一下一个流程环节点。
  投递环节和处理环节两个环节全部用一个数据源进行操作。
如果采用自动填充的化 不知道能否区分的开呢？

cdz0451

至于数据效验部分就更简单了，如果在数据集效验部分加入提示，我想就不用我说了，那个提示简直惨目忍睹。

sjz10

呵呵，看来你是带着成见用X3啊。
如果是这样，花那么多钱购买X3就没什么意义了。
我不是起步公司的人，我和你一样，只是一个用户。我建议你还是踏踏实实的好好学习一下。既然用这个工具，就不要一知半解。起步的帮助文件跟没有一样，现在能帮我们的，除了论坛就是培训教程了。如果你肯花点时间仔细学习一下，你会发现，使用X3能让我们的开发效率提高很多。我们购买X3的目的也就在这里了。

cdz0451

挨骂的人是我们！
客户是上帝！
考，跑你们这里，我们还是受气，你们是上帝

cdz0451

成见不成见的！
我没有带着，我这个人有啥说啥！直率
X3能走到今天，看来很多人都在受苦，
希望未来 X3黄掉算了，现在技术更新是闪电级的，连个起码的帮助都写的一塌糊涂，哪有竞争力可言。

cdz0451

说点正事吧！
现在清楚所有源代码，还是报错。
unit MAINFORM;

interface

uses
  FORMLIBRARY,Business.System, Business.Model, Business.Forms, Business.Data,
  Business.Model.Flow;

type
  TMAINFORM = class(TForm)
    FuncBroker: TFuncBroker;
    InfoBrokerXFDJ: TInfoBroker;
    ControlBar: TControlBar;
    DataNavigator: TDataNavigator;
    DocViewBar: TDocViewBar;
    Panel: TPanel;
    DocViewXFDJ_XFDJB: TDocView;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ImageList1: TImageList;
    DataSetBroker1: TDataSetBroker;
    FlowBroker1: TFlowBroker;
    Timer1: TTimer;
  private
    {private declarations}
    m_sCaption:string;
    m_sRowId:string;   //当前录入记录编号   保存时获得
    m_bFocus:Boolean;  //焦点
  public

  end;


implementation


//流程流转 开始
//流程流转 End

end.
真是无语了

jiahaiming

楼主，打个完整的资源包（包括数据表，信息，功能和你的流程）传上来吧。
我给您查找一下错误的原因。

cdz0451

唉
脚本容量 1.6 M
咋给你

gaihl

用RAR分成多个包,每个1M左右,