datatree和数据库绑定的最少代码

转载 2006年05月22日 19:46:00

//问题描述见 howto 一文,代码最终版本见下文

//标红色部分为解决问题的关键

//标蓝色部分为datatree所要求的,即前文提供的解决方案,但并不奏效

procedure TScriptProperty.DataTreeDragDrop(Sender: TBaseVirtualTree;
  Source: TObject; DataObject: IDataObject; Formats: TFormatArray;
  Shift: TShiftState; Pt: TPoint; var Effect: Integer; Mode: TDropMode);
var
  pnode2: PAdminNode;
  data: PInt;
  Node2: PVirtualNode;
  sql: string;

  changeList: TStringList;
  FocusNode: PVirtualNode;
  TargetNode: PVirtualNode;
  Temp:PVirtualNode;
  i: Integer;
  left,right,targe:Integer;
begin
  Effect := DROPEFFECT_NONE;
  if (Source is TBaseVirtualTree) then
  begin
    Node2 := (Source as TBaseVirtualTree).GetFirstSelected;
    data := (Source as TBaseVirtualTree).GetNodeData(Node2);
    pnode2 := Pointer(data^);

    FocusNode := Sender.GetFirstSelected;
    TargetNode := Sender.DropTargetNode;

    left :=LeftBracketIndex(FocusNode);
    right:=RightBracketIndex(FocusNode);
    if TargetNode <> nil then
      targe := TargetNode.Index
    else
      targe := -1;
    if (Source as TBaseVirtualTree).Name = 'DataTree' then
    begin
      if DataTree.DropTargetNode = nil then Exit;
      if DataTree.DropTargetNode.Index = 0 then Exit;
      changeList := TStringList.Create;

      DataTree.BeginUpdate;

//块拖动问题

      if (left<>0) and (right<>0)and (left<>LeftBracketIndex(TargetNode))and (right <>RightBracketIndex (TargetNode)) then  //后两个条件解决了同一块类不能移动的问题
      begin
        if  right< targe then
        begin
           if (LeftStr(stringlist.Strings[targe],5)='While') or (LeftStr(stringlist.Strings[targe],3)='for') then
              Exit;
           for i:=right+ 1 to targe do
               changeList.Add(stringlist.Strings[i]);
           for i:=left-1 to right do
               changeList.Add(stringlist.Strings[i]);
           for i:=left-1 to targe do
               stringlist.Strings[i]:= changeList.Strings[i-left+1];
        end;

        if  (left-1)> targe then
        begin
          if (stringlist.Strings[targe]='{')  then
              exit;
          for i:=left-1 to right do
              changeList.Add(stringlist.Strings[i]);
          for i:=targe to left-2 do
              changeList.Add(stringlist.Strings[i]);
          for i:=targe to right do
              stringlist.Strings[i]:= changeList.Strings[i-targe];
        end;
      end
      else
      begin
        if FocusNode.Index > TargetNode.Index then
        begin
          if (stringlist.Strings[TargetNode.Index]='{')  then
              exit;
          changeList.Add(stringlist.Strings[FocusNode.index]);
          for i:=TargetNode.Index to FocusNode.Index-1 do
              changeList.Add(stringlist.Strings[i]);
          for i:=TargetNode.Index to FocusNode.Index do
              stringlist.Strings[i]:= changeList.Strings[i-TargetNode.Index];
        end;

//行拖动问题   

     if FocusNode.Index < TargetNode.Index then
        begin
          if (LeftStr(stringlist.Strings[TargetNode.Index],5)='While') or (LeftStr(stringlist.Strings[TargetNode.Index],3)='for') then
              Exit;
          for i:=FocusNode.Index+1 to targetnode.Index do
              changeList.add(stringlist.Strings[i]);
          changeList.Add(stringlist.Strings[FocusNode.index]);
          for i:=FocusNode.Index to TargetNode.Index do
              stringlist.Strings[i]:= changeList.Strings[i-FocusNode.Index];
        end;
      end;
      changeList.Free;
      DataTree.EndUpdate;
      DataTree.Clear; //只加了这行代码就解决了!原理:重画了整个树,就不存在width cach的问题了
      self.DataTree.RootNodeCount:=stringlist.Count;
      DataTree.Refresh;
      Exit;
    end
    else if pnode2.typename = 'MobileUserAgent' then
    begin
      if targe > 0 then
        stringlist.Insert(targe, CreateUserAgentCode(pnode2.data))
      else
        stringlist.Append(CreateUserAgentCode(pnode2.data));
      self.DataTree.RootNodeCount:=stringlist.Count;
      DataTree.Refresh;
      Exit;
    end

//脚本拖动问题
    else
    begin
      if application.MessageBox('Are you sure to replace current script?', 'Message', MB_OKCANCEL) = IDCancel then
        exit;

      sql := 'Select texts from systemobjects where itemid=''' + pnode2.id + '''';
      currentdatabase.ExeuteSQlQurey(pnode2, sql, @GetScriptFromDB);
      Self.SetScript(pnode2.texts);
      Exit;
    end;
  end;
end;

『绝对原创 飞飞于北京 2005-08-31』


作者Blog:http://blog.csdn.net/feifei1018/

C#中DataGridView绑定了DataTable后,通过代码修改DataGridView中的数据,总有一行(被修改过并被用户选中的行集合中索引为0的行)不能被UpDate回数据库的问题和解决办法

问题细节: DataAdapter的update方法可以接收一个datatable参数  然后运行下列代码来改变行数据,再去更新数据库的数据 foreach (DataGridViewRo...
  • iloli
  • iloli
  • 2013年07月07日 19:45
  • 10964

DBChart代码实现绑定数据库

来源:http://hi.baidu.com/ma_wei/blog/item/0c8d1a12aa0431175baf53b6.html 一:属性相关: Series选项: (1)Fo...

UGUI中使用代码动态绑定触发事件

前言:UGUI系统中官方提供了一种Button控件,Button封装了官方提供的一套OnClick事件,如果该GameObject还需要支持按下,移入,移出等事件呢?这时候我们就需要添加EventTr...

T数据库开绑定与发基础.

  • 2013年06月15日 19:02
  • 163KB
  • 下载

js原生代码实现数据双向绑定

封装成jquery的插件了,复制代码后在Jquery之后引入; 也可以去掉插件那行直接使用。 $.DBind(1).set("name", "123"); (function() {...

绑定到数据库的数据表格

  • 2012年10月21日 10:42
  • 1KB
  • 下载

将数据库中数据绑定到TREEVIEW

  • 2009年03月17日 18:21
  • 2KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:datatree和数据库绑定的最少代码
举报原因:
原因补充:

(最多只允许输入30个字)