请教！ ( 积分: 0 )

我这段代码为什么酒水类的却显示在菜系类中 为什么呀
procedure TDCFY_LR.FormShow(Sender: TObject);
var a:integer;
List:Array[0..5] of TTreeNode;
begin
Query4.Open;
while not Query4.Eof do //将菜系名称用树状视图组件显示
begin
List[0]:=TreeView1.Items.AddChild(TreeView1.Items[0],Query4.FieldByName('菜系名称').AsString); //创建子节点
List[0].ImageIndex:=1; //指定图片
List[0].SelectedIndex:=1;
Query4.Next;
end;
Query4.Close;
Query4.SQL.Clear;
Query4.SQL.Add('Select * From 菜谱费用信息表'); //选择菜谱
Query4.Open;
While not Query4.Eof do //将菜谱菜名作为菜系名称的子节点
begin
For a:=0 to TreeView1.Items[0].Count-1 do //将菜谱指定到所属菜系节点下
begin
if TreeView1.Items[0].Item[a].Text=Query4.FieldByName('菜系类别').AsString then
begin
List[0]:=TreeView1.Items.AddChild(TreeView1.Items[0].Item[a],Query4.FieldByName('菜名').AsString);
List[0].ImageIndex:=2; //指定图片
List[0].SelectedIndex:=2;
Break;
end;
end;
Query4.Next;
end;
List1:=TreeView1.Items[0];
ZJ:='ALL';
TreeView1.Items[0].Expanded:=True; //显示菜系节点
Query5.Open;
while not Query5.Eof do
begin
List[0]:=TreeView1.Items.AddChild(TreeView1.Items[0],Query5.FieldByName('类别名称').AsString);
List[0].ImageIndex:=4;
List[0].SelectedIndex:=4;
Query5.Next;
end;
Query5.Close;
Query5.SQL.Clear;
Query5.SQL.Add('Select * From 酒水费用信息表');
Query5.Open;
While not Query5.Eof do
begin
For a:=0 to TreeView1.Items[1].Count-1 do
begin
if TreeView1.Items[0].Item[a].Text=Query5.FieldByName('酒水类别').AsString then
begin
List[0]:=TreeView1.Items.AddChild(TreeView1.Items[0].Item[a],Query5.FieldByName('酒水名称').AsString);
List[0].ImageIndex:=5;
List[0].SelectedIndex:=5;
Break;
end;
end;
Query5.Next;
end;
List2:=TreeView1.Items[0];
ZJ:='ALL';
TreeView1.Items[0].Expanded:=True;