表结构：表名：ps_dpt，字段：dptid(部门的序列号，自动加）,dptno（部门编号）,dptname（部门名称）,dptparnt（父级，上级部门ID）,dptprcno（当前部门产生号）。 dptid dptparnt dptprcno dptno dptname 1 0 1 globeunion 成霖集團 2 1 101 A 中國生產事業處 3 1 102 B 成霖潔具 150 1 105 C 成霖實業 5 1 104 D 偉隆 550 2 10109 AE 法務部 551 19 1011101 AD1 開發二部 162 3 10201 BA 華南本部 19 2 10111 AD 開發本部 552 19 1011102 AD2 開發二部四課 553 19 1011103 AD3 開發二部五課 554 19 1011104 AD4 開發二部花洒課 558 150 10509 CO 成實副總室 563 457 105020807 CB87 二拋光七組 564 35 1010503 AH3 人力資源發展 565 35 1010504 AH4 員工關係 566 35 1010505 AH5 華南總務 要求树状为：---【】[globeunion] 成霖集团 ----【】[A] 中国生产事业处 ---【】[AD] 开发本部 ----【】[B]成霖实业 ---【】[B1]... 这【】为一个CheckBoX控件，如果选中，---【】[globeunion] 成霖集团，那么下面都要相应的选中打上勾，我现在碰到的难点就是＜1＞不能同时显示两个字段在（dptno dptname),：像这样[globeunion] 成霖集团。 ＜2＞不能判断它下面子级一起找勾上。 请各位大大帮忙，小的不胜感激。

引言: 表结构：表名：ps_dpt，字段：dptid(部门的序列号，自动加）,dptno（部门编号）,dptname（部门名称）,dptparnt（父级，上级部门ID）,dptprcno（当前部门产生号）。 dptid dptparnt dptprcno dptno dptname 1 0 1 globeunion 成霖集團 2 1 101 A 中國生產事業處 3 1 102 B 成霖潔具 150 1 105 C 成霖實業 5 1 104 D 偉隆 550 2 10109 AE 法務部 551 19 1011101 AD1 開發二部 162 3 10201 BA 華南本部 19 2 10111 AD 開發本部 552 19 1011102 AD2 開發二部四課 553 19 1011103 AD3 開發二部五課 554 19 1011104 AD4 開發二部花洒課 558 150 10509 CO 成實副總室 563 457 105020807 CB87 二拋光七組 564 35 1010503 AH3 人力資源發展 565 35 1010504 AH4 員工關係 566 35 1010505 AH5 華南總務 要求树状为：---【】[globeunion] 成霖集团 ----【】[A] 中国生产事业处 ---【】[AD] 开发本部 ----【】[B]成霖实业 ---【】[B1]... 这【】为一个CheckBoX控件，如果选中，---【】[globeunion] 成霖集团，那么下面都要相应的选中打上勾，我现在碰到的难点就是＜1＞不能同时显示两个字段在（dptno dptname),：像这样[globeunion] 成霖集团。 ＜2＞不能判断它下面子级一起找勾上。 请各位大大帮忙，小的不胜感激。

rocedure MakeTree(Query: TADOQuery; TableName: string; TreeView: TTreeView); begin TreeView.Items.BeginUpdate; list.Clear; TreeView.items.clear; if query.Active then query.Close; Query.SQL.Text := 'SELECT * FROM ' TableName ' ORDER BY dptparnt'; 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: TTreeView; bj: boolean = false); var index: integer; Node: TTreeNode; begin if Query.FieldByName('dptparnt').AsInteger = 0 then { ParentID=0ㄛ???? } Node := TreeView.Items.AddChildObject(nil, Query.FieldByName('dptname').AsString, query.GetBookmark) //崝樓??ㄛ??掛??垀??腔????揃蹋溫善??垀枑鼎腔蜇樓揃蹋笢 else begin Index := List.IndexOf(Query.FieldByName('dptparnt').AsString); Node := TreeView.Items.AddChildObjectFirst(TTreeNode(List.Objects[Index]), Query.FieldByName('dptname').AsString, query.GetBookmark); //崝樓赽??ㄛ??掛??垀??腔????揃蹋溫善??垀枑鼎腔蜇樓揃蹋笢 end; //崝樓????腔揃?善蹈桶笢ㄛ眕?政婓蹈桶笢辦厒脤梑??腔髡夔﹝ List.AddObject(Query.FieldByName('dptid').AsString, Node); if bj then begin treeview.Select(node); treeview.SetFocus; end; end;