妳可以設計隱藏所有的菜單，然後顯示數據庫中已有的菜單(l.Strings[k]是數據庫中的菜單。)
//顯示權限範圍內的菜單。
對於i:=0至FMain。MainMenu1。Items.Count-1 do
開始
對於j:=0至FMain。MainMenu1。項目[i]。Count-1 do
開始
FMain。MainMenu1。項目[i]。項目[j]。可見:=假；
對於k:=0到l.Count-1 do
開始
如果FMain。MainMenu1。項目[i]。項目[j]。那麽字符串[k]
開始
FMain。MainMenu1。項目[i]。項目[j]。可見:=真；
打破；
結束；
結束；
結束；
結束；