国食健字g20080206:怎样用VB构建多用户

Adodc1.Refresh

If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "没有您输入的操作员，请重新输入！ ", vbOKOnly + vbExclamation, "提示"
Adodc1.RecordSource = "select * from login order by user_name"
Adodc1.Refresh
DataCombo1.SetFocus
Else
'解析密码
Dim strmima As String
Dim mima As String
Dim i As Integer
strmima = Adodc1.Recordset.Fields("pass_word")
For i = 1 To Len(strmima)
mima = mima & Chr(Asc(Mid$(strmima, i, 1)) - 5)
Next i
If Trim$(DataCombo1.text) <> "" And Trim$(Text2.text) <> "" And Trim$(Text2.text) = mima Then
logouser = Trim(DataCombo1.text)
'检测用户级别,设置相应权限
logojb = Adodc1.Recordset.Fields("user_class")
With frm_main
If logojb = "管理员" Then
.Toolbar1.Buttons(1).Enabled = False '日结算
.Toolbar1.Buttons(2).Enabled = False '结帐分析
.Toolbar1.Buttons(3).Enabled = False '开台管理
.Toolbar1.Buttons(4).Enabled = False '客人买单
.Toolbar1.Buttons(5).Enabled = False '挂帐管理
.Toolbar1.Buttons(6).Enabled = False '应付帐款
.Toolbar1.Buttons(7).Enabled = False '应付帐款
.Toolbar1.Buttons(8).Enabled = False '应付帐款
.Toolbar1.Buttons(9).Enabled = False '应付帐款
.Toolbar1.Buttons(10).Enabled = False '应付帐款
.Toolbar1.Buttons(11).Enabled = False '应付帐款
.Toolbar1.Buttons(12).Enabled = False '应付帐款

.bdwdy.Enabled = True '本单位定义
.bmxxgl.Enabled = True '部门信息管理
.ftlx.Enabled = True '房间台号类型
.fjthgl.Enabled = True '房间台号管理
.gys.Enabled = True '供应商管理
.spxxgl.Enabled = True '商品信息管理
.ckinf.Enabled = True '仓库信息管理
.ygjbgl.Enabled = True '员工级别管理
.ygxxgl.Enabled = True '员工信息管理

.jhgl.Enabled = True '进货管理
.jhcxtj.Enabled = True '进货查询统计
.kccx.Enabled = True '库存查询
.ktgl.Enabled = False '开台管理
.mdgl.Enabled = False '买单管理
.rjzfx.Enabled = True '当日结帐数据分析
.rjsgl.Enabled = False '日结算管理
.yjsgl.Enabled = False '月结算管理
.yyyfx.Enabled = True '月营业分析
.nyyfx.Enabled = True '年营业分析
.yfgl.Enabled = False '应付帐款
.gzgl.Enabled = False '应收帐款
.lsgz.Enabled = False '历史挂帐查询
.pcjs.Enabled = False '陪唱查询

.usergl.Enabled = True '用户管理
.editpass.Enabled = True '修改密码
.bakdata.Enabled = True '备份数据
.redata.Enabled = True '恢复数据
.syscsh.Enabled = True '系统数据库初始化B
.xtwh.Enabled = True '系统维护向导
ElseIf logojb = "前台接待" Then
.Toolbar1.Buttons(1).Enabled = True '日结算
.Toolbar1.Buttons(2).Enabled = False '结帐分析
.Toolbar1.Buttons(3).Enabled = True '开台管理
.Toolbar1.Buttons(4).Enabled = True '客人买单
.Toolbar1.Buttons(5).Enabled = True '挂帐管理
.Toolbar1.Buttons(6).Enabled = True '应付帐款
.Toolbar1.Buttons(7).Enabled = True '应付帐款
.Toolbar1.Buttons(8).Enabled = False '应付帐款
.Toolbar1.Buttons(9).Enabled = False '应付帐款
.Toolbar1.Buttons(10).Enabled = False '应付帐款
.Toolbar1.Buttons(11).Enabled = False '应付帐款
.Toolbar1.Buttons(12).Enabled = False '应付帐款

.bdwdy.Enabled = False '本单位定义
.bmxxgl.Enabled = False '部门信息管理
.ftlx.Enabled = False '房间台号类型
.fjthgl.Enabled = False '房间台号管理
.gys.Enabled = False '供应商管理
.spxxgl.Enabled = False '商品信息管理
.ckinf.Enabled = False '仓库信息管理
.ygjbgl.Enabled = False '员工级别管理
.ygxxgl.Enabled = False '员工信息管理
.pcjs.Enabled = True '陪唱查询

.jhgl.Enabled = False '进货管理
.jhcxtj.Enabled = False '进货查询统计
.kccx.Enabled = False '库存查询
.ktgl.Enabled = True '开台管理
.mdgl.Enabled = True '买单管理
.rjzfx.Enabled = True '当日结帐数据分析
.rjsgl.Enabled = True '日结算管理
.yjsgl.Enabled = False '月结算管理
.yyyfx.Enabled = True '月营业分析
.nyyfx.Enabled = True '年营业分析
.yfgl.Enabled = False '应付帐款
.gzgl.Enabled = False '应收帐款
.lsgz.Enabled = False '历史挂帐查询

.usergl.Enabled = False '用户管理
.editpass.Enabled = True '修改密码
.bakdata.Enabled = True '备份数据
.redata.Enabled = False '恢复数据
.syscsh.Enabled = False '系统数据库初始化B
.xtwh.Enabled = False '系统维护向导
ElseIf logojb = "总经理" Then
.Toolbar1.Buttons(1).Enabled = False '日结算
.Toolbar1.Buttons(2).Enabled = True '结帐分析
.Toolbar1.Buttons(3).Enabled = True '开台管理
.Toolbar1.Buttons(4).Enabled = True '客人买单
.Toolbar1.Buttons(5).Enabled = False '挂帐管理
.Toolbar1.Buttons(6).Enabled = True '应付帐款
.Toolbar1.Buttons(7).Enabled = False '应付帐款
.Toolbar1.Buttons(8).Enabled = False '应付帐款
.Toolbar1.Buttons(9).Enabled = True '应付帐款
.Toolbar1.Buttons(10).Enabled = True '应付帐款
.Toolbar1.Buttons(11).Enabled = True '应付帐款
.Toolbar1.Buttons(12).Enabled = True '应付帐款

.bdwdy.Enabled = False '本单位定义
.bmxxgl.Enabled = False '部门信息管理
.ftlx.Enabled = False '房间台号类型
.fjthgl.Enabled = False '房间台号管理
.gys.Enabled = False '供应商管理
.spxxgl.Enabled = False '商品信息管理
.ckinf.Enabled = False '仓库信息管理
.ygjbgl.Enabled = False '员工级别管理
.ygxxgl.Enabled = True '员工信息管理
.pcjs.Enabled = True '陪唱查询

.jhgl.Enabled = False '进货管理
.jhcxtj.Enabled = True '进货查询统计
.kccx.Enabled = True '库存查询
.ktgl.Enabled = False '开台管理
.mdgl.Enabled = False '买单管理
.rjzfx.Enabled = True '当日结帐数据分析
.rjsgl.Enabled = False '日结算管理
.yjsgl.Enabled = True '月结算管理
.yyyfx.Enabled = True '月营业分析
.nyyfx.Enabled = True '年营业分析
.yfgl.Enabled = True '应付帐款
.gzgl.Enabled = True '应收帐款
.lsgz.Enabled = True '历史挂帐查询
这是我写的程序里的关于不同身份的不同权限的设置.我想这是你要的东西!!