关于TreeView的

Question

procedure TForm_main.TreeView1Click(Sender: TObject);
begin
  if TreeView1.Selected.Level=1   then
     begin
     ADOQ_user.Open;
     ADOQ_user.First;
     ADOQ_user.Locate('用户名称',Edit1.Text,[]);
    if  TreeView1.Selected.Text='用户管理' then
       if not ADOQ_user.FieldByName('是否有用户管理权限').AsBoolean=True  then       begin
        MessageBox(handle,'对不起，您没有足够的权限使用该功能！','权限不足',MB_ICONWARNING+MB_OK);
  exit;
  end
  else
  Form_user.Show;end;    if  TreeView1.Selected.Text='修改密码' then
    begin
     Form_password.Show;
     end;        if  TreeView1.Selected.Text='商品类别' then
       if not ADOQ_user.FieldByName('是否有商品管理权限').AsBoolean=True  then
    begin
        MessageBox(handle,'对不起，您没有足够的权限使用该功能！','权限不足',MB_ICONWARNING+MB_OK);
    Exit;
    end
    else
    Form_lb.Show;
    end;   if TreeView1.Selected.Text='商品信息' then       if not ADOQ_user.FieldByName('是否有商品管理权限').AsBoolean=True  then       begin
        MessageBox(handle,'对不起，您没有足够的权限使用该功能！','权限不足',MB_ICONWARNING+MB_OK);
    Exit;
    end
   else
 Form_product.Show;
if TreeView1.Selected.Text='商品销售' then       if not ADOQ_user.FieldByName('是否有商品销售权限').AsBoolean=True  then       begin
        MessageBox(handle,'对不起，您没有足够的权限使用该功能！','权限不足',MB_ICONWARNING+MB_OK);
    Exit;
    end
   else
 Form_sell.Show;
   if TreeView1.Selected.Text='历史信息' then       if not ADOQ_user.FieldByName('是否有商品销售权限').AsBoolean=True  then       begin
        MessageBox(handle,'对不起，您没有足够的权限使用该功能！','权限不足',MB_ICONWARNING+MB_OK);
    Exit;
    end
   else
 Form_selllook.Show;
  
  if TreeView1.Selected.Text='今日盘点' then       if not ADOQ_user.FieldByName('是否有商品销售权限').AsBoolean=True  then       begin
        MessageBox(handle,'对不起，您没有足够的权限使用该功能！','权限不足',MB_ICONWARNING+MB_OK);
    Exit;
    end
   else
 Form_today.Show;  end;
end.这段代码是TreeView的权限设置，但是，只有TreeView1.Selected.Text='用户管理' 能正确实现，其他的，不能实现，只要一点击属性节点，根本就不会判断是否有这个权限，就直接进去相应的窗口了，高手们，帮帮忙

Answer 1

写的代码真乱，进不去，你不会调试吗，看看为什么进不去，就那么几个if条件，调一次就知道为什么了