Question

用vb6.0+access做一个企业管理系统，用户登陆分管理员和普通员工，权限怎么做？具体权限表怎么做

如题

Answer 1

再用户表上建设一个权限字段 再根据字段的权限来配置程序该哪些显示哪些不显示 在登陆的时候判断 下面是我登陆权限的一部分代码 Private Sub CmdLogin_Click() Dim SqlStr As String On Error GoTo lerr 'If Trim(CmbUser.Text) = "" Or Trim(TxtPwd.Text) = "" Then 'MsgBox "用户名或密码不能为空！请重新输入！", vbExclamation, "错误" 'Exit Sub 'End If If ConnMain.State = 0 Then Call SQLConnect(ConnMain, Trim(TxtSqlName.Text), Trim(TxtSqlUser.Text), Trim(TxtSqlPwd.Text), Trim(TxtSqlDB.Text)) End If SqlStr = "select UserPwd,UserQX from TUser where UserName='" & CmbUser.Text & "'" If rs.State <> 0 Then rs.Close rs.Open SqlStr, ConnMain, 1, 1 If Not rs.EOF Then If Trim(rs("UserPwd")) = Trim(TxtPwd.Text) Then Call SaveServer(Trim(TxtSqlName.Text), Trim(TxtSqlUser.Text), Trim(TxtSqlPwd.Text), Trim(TxtSqlDB.Text)) MsgBox "登陆成功！", vbInformation, "成功" 'BBUser = CmbUser.Text BBUser = CmbUser.Text If rs!UserQX = "系统管理员" Then MDIFormMain.NmSys.Visible = True ElseIf rs!UserQX = "仓库管理员" Then MDIFormMain.NmSys.Visible = False ElseIf rs!UserQX = "车间管理员" Then MDIFormMain.NmSys.Visible = False MDIFormMain.NmDepot.Visible = False End If 'MDIFormMain.Show rs.Close Unload Me Exit Sub Else MsgBox "密码错误！请重新输入！", vbInformation, "错误" TxtPwd.Text = "" TxtPwd.SetFocus Exit Sub End If Else MsgBox "用户名不存在！请与管理员联系！", vbInformation, "错误" CmbUser.Text = "" TxtPwd.Text = "" CmbUser.SetFocus End If rs.Close ConnMain.Close Set rs = Nothing Exit Sub lerr: If rs.State <> 0 Then rs.Close MsgBox "1与服务器连接失败！", vbInformation, "失败" End Sub