站内搜索：

VB居民人口信息管理系统(程序下载)(11)

来源：xiaoniu168.com 作者：本站原创添加时间：2014-11-04 点击数：36902

4.8 用户权限设置页面（frmYhqx）
通过此模块可以设置用户使用该系统的权限信息，包括用户列表、权限模块，设置和取消按钮。

以下是引用片段：

Private Sub btn添加_Click()
'设置用户权限
Dim strResult As String
strResult = Exec_SqL("update 用户 set 信息字典管理=" & Me.Chk(0).Value & ",人口信息管理=" & Me.Chk(1).Value & ",用户信息管理=" & Me.Chk(2).Value & ",人口信息查询=" & Me.Chk(3).Value & ",系统更新维护=" & Me.Chk(4).Value & " where 用户帐号='" & Me.Label6.Caption & "' ")
If strResult <> "OK" Then
MsgBox strResult
Exit Sub
End If
End Sub

Private Sub ddd_DblClick()
'显示当前的用户权限
Dim i As Long
If ddd.TextMatrix(ddd.Row, 0) = "" Then Exit Sub
Me.Label6.Caption = Trim(ddd.TextMatrix(ddd.Row, 0))
Dim tmprs As New ADODB.Recordset
Set tmprs = ExecSql("select 信息字典管理,人口信息管理,用户信息管理,人口信息查询,系统更新维护 from 用户 where 用户帐号='" & Trim(ddd.TextMatrix(ddd.Row, 0)) & "'")
With tmprs
    If .RecordCount > 0 Then
       For i = 0 To 4
            Me.Chk(i) = .Fields(i).Value
       Next
    End If
End With
End Sub

〖资料来源:计算机毕业论文 www.xiaoniu168.com〗

第12页为计算机毕业论文部分......