不知道微软还有没有脸，用VB的ADO后期绑定测试了一下相同的流程，竟然要一个多小时！ 如何提高ADO简单过程(Edit…Post Next)的效率（500分）

const
  Levels: array [1..8] of byte = (1,1,2,3,4,4,5,5);
  LevelLen: array [0..5] of byte = (0, 2, 3, 4, 6, 8);
var
  PNode, Node: TTreeNode;
  code, s, sql: string;
  lv, n: Integer;

  function GetLevel(const s: string): Integer;
  begin
    Result:=1;
    if copy(s,3,6)='000000' then exit;
    Result:=2;
    if copy(s,4,5)='00000' then exit;
    Result:=3;
    if copy(s,5,4)='0000' then exit;
    Result:=4;
    if copy(s,7,2)='00' then exit;
    Result:=5;
  end;

begin
  pnode := nil;
  code := '';
  sql := '';
  lv := 1;
  Treeview1.items.BeginUpdate;
  Treeview1.Items.Clear;
  with adoDataset1 do
  begin
    ConnectionString:=getVFConnStr('d:/dbTest');
    adocommand1.connectionstring := connectionstring;
    commandtext := 'select cpdm, cpcm from gypcbz order by cpdm';
    open;
    while not eof do
    begin
      code := fields[0].asstring;
      n := getlevel(code);
      if n > lv then
      begin
        pnode := node;
        lv := lv+1;
      end
      else if n < lv then
        while lv > n do
        begin
          pnode := pnode.parent;
          dec(lv);
        end;
      s :=copy(code, 1, levellen[lv]);
      node := treeview1.items.AddChild(pnode, '['+s+']'+fields[1].asstring);
      // 如果想在最后一起执行
      sql := sql + 'update gypcbz set id='''+s+''', p_id='''+copy(code, 1, levellen[lv-1])+''''#13#10;
      {如果不想在最后一起执行
      adocommand1.commandtext := 'update gypcbz set id='''+s+''', pid='''+copy(code, 1, levellen[lv-1])+'''';
      adocommand1.execute;
      }
      next;
    end;
    close;
    { 如果最后一起执行
    adocommand1.commandtext := sql;
    adocommand1.execute;
    }
  end;
end;