如何從數據庫檢索數據並在delphi的Ttreeview中顯示

Question

請幫助我動態地從SQL數據庫填充樹視圖。我是很新的德爾福

，並一步一步的過程，歡迎選購。我在下面的圖片中給出了兩種表格格式，我想從數據庫中相應地填充樹視圖。我也搜索了其他資源網站，但沒有找到解決方案，我正在尋找。

我被卡住了。請幫助我們...... 很多人提前感謝。

procedure TForm1.Button1Click(Sender: TObject); 
var 
    // node : TTreeList; 
    i: Integer; 
    MyTreeNode1,MyTreeNode2 : TTreeNode; 
begin 
    with TreeList1.Items do 
    begin 
     Clear; 
     MyTreeNode1 := Add(nil, 'Table'); 
     ADOTable1.First; 
     while ADOTable1 do 
     begin 
      AddChild(MyTreeNode1,'B') ; 
      AddChild(MyTreeNode1,'c'); 
      Next; 
     end; 
    end; 
end; 

Answer 1

切換到TADOQuery，然後嘗試這樣的事：

procedure TForm1.Button1Click(Sender: TObject); 
var 
    CurrentDeptID, RecordDeptID: Integer; 
    RootNode, DeptNode: TTreeNode; 
begin 
    CurrentDeptID := 0; 
    TreeList1.Items.Clear; 
    RootNode := TreeList1.Items.Add(nil, 'Departments'); 
    DeptNode := nil; 
    ADOQuery1.SQL.Text := 'SELECT sd.DeptID, sd.Name, d.Dept FROM SubDepartments sd INNER JOIN Departments d ON (sd.DeptID = d.DeptID) ORDER BY d.Dept, sd.Name'; 
    ADOQuery1.Open; 
    try 
    ADOQuery1.First; 
    while not ADOQuery1.Eof do 
    begin 
     RecordDeptID := ADOQuery1.FieldByName('DeptID').AsInteger; 
     if (DeptNode = nil) or (RecordDeptID <> CurrentDeptID) then 
     begin 
     DeptNode := TreeList1.Items.AddChild(RootNode, ADOQuery1.FieldByName('Dept').AsString); 
     CurrentDeptID := RecordDeptID; 
     end; 
     TreeList1.Items.AddChild(DeptNode, ADOQuery1.FieldByName('Name').AsString); 
     ADOQuery1.Next; 
    end; 
    finally 
    ADOQuery1.Close; 
    end; 
end;