主题：[求助]

老师，如下：

 

 

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")
cmd.C
cmd.CommandText = "SELECT DISTINCT Name F-rom {Users}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.Datarows
    cmb.Items.Add(dr("Name"))
Next
cmb.SelectedIndex = 0

Forms("用户登录").Open()

 

If _UserGroup <> "系统管理员" Then
    RibbonTabs("用户管理").Enabled = False
Else
    RibbonTabs("用户管理").Enabled = True
End If

老师，如下代码帮我看看，执行结果一直执行的是 Else 的情形。

 

Dim DataKW As String
cmd1.Connection-Name = "User"
cmd1.CommandText = "Select [Password] f-rom {Users} where [Name] = '" & UserName & "'"
DataKW = cmd1.ExecuteScalar()
If DataKW = NewKW Then
  cmd.CommandText = "U-pdate {Users} Set [Password] = '" & NewKW & "' Where [Name]= '" & UserName & "'"
  cmd.ExecuteNonQuery()
  Else
  MessageBox.Show("请输入正确的密码!","提示!")
  Forms("密码修改").Close()
End If

 12楼问题已OK 。感谢！

 

13楼请帮忙，求助！

加入代码

 

msgbox(username)

msgbox(newkw)

msgbox(datakw)

Dim DataKW As String
cmd1.Connection-Name = "User"
cmd1.CommandText = "Select [Password] f-rom {Users} where [Name] = '" & UserName & "'"
DataKW = cmd1.ExecuteScalar()
If DataKW = OldKW Then
  cmd.CommandText = "U-pdate {Users} Set [Password] = '" & NewKW & "' Where [Name]= '" & UserName & "'"
  cmd.ExecuteNonQuery()
  Else
  MessageBox.Show("请输入正确的密码!","提示!")
  Forms("密码修改").Close()
End If

 

 

已修改OK ，见上面紫色部分。谢谢老师。

 

老师还有问题求助。

 

我们想实现如下目的权限控制，如图

 

此主题相关图片如下：111.jpg

 

 

 

我们也写了代码，如下：      但就是达不到效果，请指教。

 

If _UserGroup = "销售部" Then
    e.Cancel = True
      ElseIf _UserGroup <> "生产部"
            Select Case e.Col.Name
                 Case "pz","pzrq"
                    e.Cancel = True  
       End Select 
       If _UserGroup <> "综合部" Then
          Select Case e.Col.Name
          Case "zhb_lh","zhb_bom","jiean"
            e.Cancel = True
        End Select
    End If
End If

If _UserGroup = "销售部" Then
    e.Cancel = True
Else
    If _UserGroup <> "生产部"
        Select Case e.Col.Name
            Case "pz","pzrq"
                e.Cancel = True
        End Select
    End If
    If _UserGroup <> "综合部" Then
        Select Case e.Col.Name
            Case "zhb_lh","zhb_bom","jiean"
                e.Cancel = True
        End Select
    End If
End If

老师  不行啊  综合部除了能编辑  "zhb_lh"   "zhb_bom"  "jiean" 外 还能编辑除  "pz"  "pzrq" 之外的列

 

我们想要综合部只能编辑这三列  而且其他部门不能编辑这三列  生产部能编辑除综合部的三列外的所有列  技术品管部能编辑除 "pz"  "pzrq" "zhb_lh"   "zhb_bom"  "jiean" 之外所有的列

 Select Case e.Col.Name
    Case "zhb_lh","zhb_bom","jiean"
        If _UserGroup <> "综合部" Then
            e.cancel = True
        End If
    Case Else
        If _UserGroup = "综合部" Then
            e.cancel = True
        End If
End Select
Select Case e.Col.Name
    Case "pz","pzrq","zhb_lh","zhb_bom","jiean"
        If _UserGroup = " 技术品管部" Then
            e.cancel = True
        End If
    Case Else
End Select