我把修改好的程序传上来，这是有关VB使用数据库的好例子。
大家根据需要下载学习吧！

宾馆管理信系统（关键字：VB，数据库）
这里面似乎传不上去。我发新帖吧。



我在外面发了新帖还是不行。。。

这个没错误 但是权限设置不管用啊 三个用户没区别阿

这个我还没看。
可是权限设置要求我不知道啊！
即权限设置达到什么样子？

就是要求三个用户有不同的权限，高级操作员可以用所有的菜单，服务员和收银员只能用一些，可以自由设置的，再帮我看看吧，谢谢

再把我看看吧，我现在很着急啊！谢谢阿！权限那个就没起到作用哦！！

哦。我看看。。。

呵呵，麻烦你了

主要是你的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

至此，菜单上功能是根据帐号来定的，即不同帐号可以使用不同的功能。
已经达到使用权限的目的！！！

需要修改好的程序的朋友，告诉我邮箱地址，我给你们发过去。
这个软件有2M，我传不上来！
程序界面如下：（高级用户登陆，菜单部分功能灰色，不可用）


[ 本帖最后由 王懿 于 2008-5-18 18:23 编辑 ]