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;