当前位置:跳过导航链接计算机毕业设计首页 : VB毕业设计 : 详细内容

VB商店客户管理系统(程序下载)(11)

来源:xiaoniu168.com 作者:本站原创 添加时间:2014-11-03 点击数:17518

计算机毕业设计介绍:

4.3.4 人员权限管理
此模块用于设置本商店部门员工的权限,界面左侧显示全体员工,右侧显示权限设置具体内容和用户口令,以及设置当前人员的权限和取消按钮。

以下是引用片段:

Private Sub btn添加_Click()
'1.判断当前的人员在权限列表中是否有记录,如果有修改权限,没有,添加记录
Dim strkey As String
If Me.TreeView1.SelectedItem.Key = "" Then Exit Sub
If Me.TreeView1.SelectedItem.Key = "All" Then Exit Sub
strkey = Mid(Me.TreeView1.SelectedItem.Key, 2, Len(Me.TreeView1.SelectedItem.Key) - 1)
If ExecSql("select * from qx where ryid='" & strkey & "'").RecordCount > 0 Then
   Call Exec_SqL("update qx set jcsjsz=" & Me.Check1(0).Value & ",dcgl=" & Me.Check1(1).Value & ",cxtj=" & Me.Check1(2).Value & ",qxgl=" & Me.Check1(3).Value & " where ryid='" & strkey & "' ")
Else
    Call Exec_SqL("insert into qx (ryid,jcsjsz,dcgl,cxtj,qxgl,pas) values ('" & strkey & "'," _
     & " " & Me.Check1(0).Value & "," & Me.Check1(1).Value & "," & Me.Check1(2).Value & "," & Me.Check1(3).Value & ",'" & Trim(Me.Text1.Text) & "')")
End If
End Sub

<责任编辑:计算机毕业设计网(http://www.xiaoniu168.com)>

【联系方式】

【本站信誉】

用心做计算机毕业设计论文网
计算机毕业设计客服
计算机毕业论文客服在线 计算机毕业论文客服在线
计算机毕业论文在线,计算机毕业设计在线