3、判断授权的存储过程
CREATE PROCEDURE tmp_判断授权 @用户 nvarchar(20),@授权项目 nvarchar(20),@通行 bit OUTPUT
AS
DECLARE @Sql nvarchar(300)
DECLARE @用户项目ID nvarchar(20)
SELECT @用户项目ID=授权项目ID FROM o_授权表 WHERE 用户=@用户
IF @用户项目ID IS NULL
BEGIN
SELECT @通行=0
RETURN
END
SELECT @Sql='SELECT * FROM o_授权项目表 WHERE 授权项目='''+@授权项目+''' AND 授权项目ID IN ('+@用户项目ID+')'
EXECUTE (@Sql)
IF @@ROWCOUNT=0
SELECT @通行=0
ELSE
SELECT @通行=1
4、判断某一项目的操作权限
Public Shared Function IsAuth(ByVal User As String, ByVal AuthItem As String) As Boolean
Dim cm As New LzmTw.Data.Command
With cm.DBCommand
.CommandText = "dbo.[tmp_判断授权]"
.CommandType = System.Data.CommandType.StoredProcedure
.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
.Parameters.Add(New System.Data.SqlClient.SqlParameter("@用户", System.Data.SqlDbType.NVarChar, 20))
.Parameters.Add(New System.Data.SqlClient.SqlParameter("@授权项目", System.Data.SqlDbType.NVarChar, 20))
.Parameters.Add(New System.Data.SqlClient.SqlParameter("@通行", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Output, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
.Parameters("@用户").Value = User
.Parameters("@授权项目").Value = AuthItem
If cm.DBConnction.State <> ConnectionState.Open Then cm.DBConnction.Open()
cm.DBCommand.ExecuteNonQuery()
cm.DBConnction.Close()
Return CType(.Parameters("@通行").Value, Boolean)
End With
End Function