USEGEAR

导航

cxdbtreelist的处理点滴

由程序修改数据：

 1 procedure TFormBase1.Act_CalcFileCodeExecute(Sender: TObject);
 2 var
 3   i,j,mystep,mycode,mylen,k : Integer;
 4   mybegin,myend,tmp_str : string;
 5   myNode : TcxTreeListNode;
 6   myclientdataset : TDataSet;
 7 begin
 8   inherited;
 9   if CalcFileCodeDlg.ShowModal=mrOk then
10      begin
11         mystep := CalcFileCodeDlg.cxspndt_step.Value;
12         mybegin := CalcFileCodeDlg.cxtxtdt_begin.Text;
13         myend :=  CalcFileCodeDlg.cxtxtdt_end.Text;
14         mycode :=  CalcFileCodeDlg.cxspndt_code.Value;
15         mylen :=  CalcFileCodeDlg.cxspndt_len.Value;
16         if not Assigned(lst_projet) then  Exit;
17         myclientdataset := lst_projet.DataController.DataSet;
18         lst_projet.BeginUpdate;
19        try
20          myNode := lst_projet.FocusedNode;
21          for I := 0 to lst_projet.SelectionCount - 1 do
22             begin
23                j:=i * mystep;
24                tmp_str := '%s%.'+inttostr(mylen)+'d%s';
25                lst_projet.SetFocusedNode(lst_projet.Selections[I], [ssCtrl]);
26                myclientdataset.Edit;
27                if CalcFileCodeDlg.rg_ItemCode.ItemIndex=0 then
28                   myclientdataset.FieldByName('pm_code').AsString := Format(tmp_str,[mybegin,mycode+j,myend]);
29                if CalcFileCodeDlg.rg_ItemCode.ItemIndex=1 then
30                   myclientdataset.FieldByName('pm_No').AsString := Format(tmp_str,[mybegin,mycode+j,myend]);
31                myclientdataset.Post;
32             end;
33          if Assigned(myNode) then lst_projet.SetFocusedNode(myNode, [ssCtrl]);
34        finally
35           lst_projet.EndUpdate;
36        end;
37      end;
38 end;

由代码规则窗口设定参数，此代码根据规则生成format的字符串tmp_str。然后根据规则修改多选的记录表字段：编码pm_code和序号pm_no。

同时注意：如果用到tree图标显示字段，那么会检查该值。是null将会出现转换错误。

posted on 2016-08-09 12:12  USEGEAR  阅读(447)  评论(0)  编辑  收藏  举报