''' <summary>
''' 获取或设置所有数据权限
''' </summary>
''' <param name="cUserName">用户名</param>
''' <param name="cDataPowerType">数据权限类型</param>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property AllPower(ByVal cUserName As String, ByVal cDataPowerType As String, Optional ByVal cmd As System.Data.Common.DbCommand = Nothing) As Boolean
Get
Dim cClass As String = "数据权限"
Dim cVarName As String = cUserName & "_" & cDataPowerType
Dim Value As String = DAL.Var.Var.Create.getValue(cClass, cVarName, cmd)
If tostr(Value) = "" Or tostr(Value) = "1" Then
Return True
ElseIf tostr(Value) = "0" Then
Return False
End If
End Get
Set(ByVal value As Boolean)
Dim cClass As String = "数据权限"
Dim cVarName As String = cUserName & "_" & cDataPowerType
Dim cValue As String = IIf(value, "1", "0")
DAL.Var.Var.Create.Save(cClass, cVarName, cValue, cmd)
End Set
End Property
End Class