mylib.pas

我的信息管理中心程序（源码）适合初级

unit MYLIB;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, BusinessSkinForm, bsSkinData, bsSkinCtrls, ExtCtrls,
  ComCtrls, bsSkinGrids, bsDBGrids;
procedure MakeTree(Query: TADOQuery; TableName: string; TreeView: TbsSkinTreeView);
procedure addtreenode(Query: TADOQuery; TreeView: TbsSkinTreeView; bj: boolean = false);
procedure deltree(query: TAdoQuery; TreeView: TbsSkinTreeView);
procedure AddChildNode(Query: TADOQuery; TreeView: TbsSkinTreeView);
procedure AddNode(Query: TADOQuery; TreeView: TbsSkinTreeView);
procedure Treechange(query: TADOQuery; node: TTreenode);
function TreeFind(TreeView: TbsSkinTreeView; text: string): boolean;
function GetExeDir:String;
implementation


var
  List: TStringList; //用于记录各个id及其在树中所对应的节点,从而实现快速查找
function GetExeDir:String;
var Mydir:string;
begin
  Mydir:=Extractfilepath(ParamStr(0));
  if Copy(Mydir,Length(Mydir),1)<>'\' then
     Mydir:=Mydir+'\';

  Result:=Mydir;
end;
procedure MakeTree(Query: TADOQuery; TableName: string; TreeView: TbsSkinTreeView);
begin
  TreeView.Items.BeginUpdate;
  list.Clear;
  TreeView.items.clear;
  if query.Active then query.Close;
  Query.SQL.Text := 'SELECT * FROM ' + TableName + ' ORDER BY PID, ID DESC';
  Query.Open;
  query.DisableControls;
  TreeView.Items.Clear;
  list.Clear;
  List.Sorted := True;
  query.First;
  while not Query.Eof do
  begin
    addtreenode(Query, TreeView); //依次增加所有的节点
    Query.Next;
  end;
  TreeView.Items.EndUpdate;
  query.EnableControls;
  if treeview.Items.Count < 1 then exit;
  treeview.Select(treeview.Items.Item[0]);
  treeview.SetFocus;
end;

procedure addtreenode(Query: TADOQuery; TreeView: TbsSkinTreeView; bj: boolean = false);
var
  index: integer;
  Node: TTreeNode;
begin
  if Query.FieldByName('PID').Asinteger = 0 then { ParentID=0，顶层节点 }
    Node := TreeView.Items.AddChildObject(nil, TRIM(Query.FieldByName('TYPENAME').AsString), query.GetBookmark)
//增加节点，并将本节点所对应的记录标签数据放到节点所提供的附加数据中
  else
  begin
    Index := List.IndexOf(Query.FieldByName('PID').AsString);
    Node := TreeView.Items.AddChildObjectFirst(TTreeNode(List.Objects[Index]),
      trim(Query.FieldByName('TYPENAME').AsString), query.GetBookmark);
//增加子节点，并将本节点所对应的记录标签数据放到节点所提供的附加数据中
  end;
//增加当前节点的信息到列表中，以实现在列表中快速查找节点的功能。
  List.AddObject(Query.FieldByName('ID').AsString, Node);
  if bj then
  begin
    treeview.Select(node);
    treeview.SetFocus;
  end;
end;

procedure deltree(query: TAdoQuery; TreeView: TbsSkinTreeView);
var
  node: TTreenode;
//删除当前选择的节点下的所有节点（不删除当前选择的节点）
  procedure delnode(node: TTreenode);
  var
    i: integer;
    childnode: TTreenode;
  begin
    for i := 0 to node.Count - 1 do
    begin
      childnode := node.Item[i]; //取当前节点下的所有节点
      query.GotoBookmark(childnode.Data); //移到节点所对应的记录
      list.Delete(list.IndexOf(query.FieldByName('ID').AsString)); //删除列表中的数据
      query.Delete; //删除对应的记录
      if node.HasChildren then delnode(childnode); //有子节点则递归直到所有的数据删除完毕
    end;
  end;
{另一方法：
用一个递归：
procedure doSearch(tn: TTreeNode);
var i: ingeger;　　
begin
　if tn.HasChildren then
　begin
　　for i := tn.Count -1 downto 0 do doSearch(tn[i]);　
　end
　else
　begin
　　　//这里是你对每个节电要做的事情
　end;
end;}

begin
  node := treeview.Selected;
  if node = nil then exit;
//删除当前选择的节点下的所有节点（不删除当前选择的节点）
  delnode(node);
//删除当前选择的节点
  query.GotoBookmark(node.Data);
  list.Delete(list.IndexOf(query.FieldByName('ID').AsString));
  query.Delete;
  node.Delete;
  TreeView.SetFocus;
end;

procedure AddChildNode(Query: TADOQuery; TreeView: TbsSkinTreeView);
var
  id: integer;
begin
  id := query.FieldByName('ID').AsInteger; //记下当前的节点编号
  query.Append;
  query.FieldByName('PID').AsInteger := id; //新增加的子节点的父节点编号即为id
  query.FieldByName('caption').AsString := '新子节点';
  query.post;
  addtreenode(query, treeview, true);
end;

procedure AddNode(Query: TADOQuery; TreeView: TbsSkinTreeView);
var
  pid: integer;
begin
  pid := query.FieldByName('pID').AsInteger; //记下当前节点的父节点编号
  query.Append;
  query.FieldByName('PID').AsInteger := pid; //新增加的子节点的父节点编号即为pid
  query.FieldByName('caption').AsString := '新节点';
  query.post;
  addtreenode(query, treeview, true);
end;

procedure Treechange(query: TADOQuery; node: TTreenode);
begin
  query.GotoBookmark(node.Data);
end;

procedure TreeEdit(query: TADOQuery; text: string);
begin
  query.Edit;
  query.FieldByName('TYPENAME').AsString := text;
  query.post;
end;

procedure treeselect(query: Tadoquery; TreeView: TTreeView);
var
  index: integer;
  Node: TTreeNode;
begin
  Index := List.IndexOf(Query.FieldByName('ID').AsString);
  Node := TTreeNode(List.Objects[Index]);
  treeview.Selected := Node;
  treeview.SetFocus;
end;

function TreeFind(TreeView: TbsSkinTreeView; text: string): boolean;
var
  i: integer;
begin
  Result := false;
  for i := 0 to treeview.Items.Count - 1 do
  begin
    if treeview.Items.Item[i].Text = text then
    begin
      treeview.Select(treeview.Items.Item[i]);
      treeview.SetFocus;
      Result := true;
      exit;
    end;
  end;
end;

initialization
  List := TStringList.Create;

finalization
  list.Free;



end.