doudoulong可以了吗？

不行啊，还是没出效果，你把你改好的发到我邮箱里吧，你改好的出来效果了？？？

是啊。不同用户进入，菜单使用情况是不样的，菜单灰色表示不能用啊！

注意：效果体现在菜单上，不是CoolBar！！！
程序已经发给你，注意查收。

谢谢阿！！嘿嘿，真是麻烦你了，你真牛啊！！
我想问一下，以下是你给我的建议：
主要是你的Data1.Recordset.FindFirst 用错了。
应该在窗体main_mima中定义一个全局变量保存用户名：Public YongHu As String  '定义用户名
然后修改主窗体中代码：
Private Sub MDIForm_Activate()
  '设置操作员权限
  Data1.DatabaseName = App.Path & "\kfgl.mdb"
    Data1.RecordSource = "select * from  qxsz"
    Data1.Refresh
    With Data1.Recordset
   If .BOF = True Then .MoveFirst
   .FindFirst "操作员" & "=" & "'" & main_mima.YongHu & "'"
   If .NoMatch Then
   Else
        'frmmain.kfyd.Enabled = .Fields("客房预订")    '在数据库表单中没此项，会出错！
        frmmain.zjyj.Enabled = .Fields("追加押金")
        frmmain.ZSDJ.Enabled = .Fields("住宿登记")
       'frmmain.tsjz.Enabled = .Fields("退宿结账")     '在数据库表单中没此项，会出错！
        frmmain.tfdj.Enabled = .Fields("调房登记")
       'frmmain.kfsz.Enabled = .Fields("客房设置")    '在数据库表单中没此项，会出错！
       frmmain.kfcx.Enabled = .Fields("客房查询")
       frmmain.ftck.Enabled = .Fields("房态查看")
       frmmain.zscx.Enabled = .Fields("住宿查询")
       frmmain.tscx.Enabled = .Fields("退宿查询")
       frmmain.sftx.Enabled = .Fields("宿费提醒")
      'frmmain.xstj.Enabled = .Fields("客房销售统计")    '在数据库表单中没此项，会出错！
      frmmain.czysz.Enabled = .Fields("操作员设置")
      frmmain.mmsz.Enabled = .Fields("密码设置")
      frmmain.csh.Enabled = .Fields("初始化")
      frmmain.qxsz.Enabled = .Fields("权限设置")
    End If
    End With
End Sub


为何我改不管用能？？而我下载了你改的代码，就管用，呵呵，有没再改什么啊！！:006

注意这句话了吗？我说：“应该在窗体main_mima中定义一个全局变量保存用户名：Public YongHu As String  '定义用户名”

Public YongHu As String 你没加吧？

而且是在窗体main_mima中加的啊！

呵呵，编程的时候，有时候只差一条语句，结果会天壤之别的。

我看了编写的程序，向你提点建议：
（1）要有程序说明书（流程图），便于修改程序。
（2）建议添加Option Explicit                ' 强制变量声明
你可以作参考。

越来越佩服王懿了  哈哈
我的也要靠你了哦

嘿嘿，不好意思说，我添加了
Public YongHu As String  '定义用户名
不管用哦，所以我才问的，很怪吧，唉！怪哉~~~~~~~