根据用户拥有的权限显示菜单
但不知道到什么原因,一个菜单都不能显示?
权限表t_qxb
yhm(用户名)   cdx(菜单项)
111            001
111            002

with frm_dm.temp do begin
    sql.Clear;
    sql.Add('select * from t_qxb where yhm=:yhm');//查找权限
    parameters.ParamByName('yhm').Value:=admin;
    open;
    first;
    while not eof do
        begin
          a:=strtoint(copy(frm_dm.temp.fieldbyname('cdx').AsString,1,1));
          b:=strtoint(copy(frm_dm.temp.fieldbyname('cdx').AsString,2,2));
          frm_main.MainMenu1.Items.Items[a].Visible:=true;
          frm_main.MainMenu1.Items[a].Items[b].Visible:=true;
          next;
        end;
    end;