Jeg har lavet det på den måde her.
Det eneste jeg er i tvivl om er om min metode "AddNewUser" skal returnere et Integer i stedet for objektet "CreateNewUser".
Vil du ikke lige vise mig hvordan?
Plus den label der, der ligger i samme metode også. Den ved jeg heller ikke hvordan jeg skal omkode, så jeg kan tilgå den fra min code-behind class.
Her er min Usermanagement class:
-----------------------------------------------------------------
Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.Reflection
Imports SecurityLib
Public Class CreateNewUser
Public TextBox1 As String
Public TextBox2 As String
Public TextBox3 As String
Public TextBox4 As String
Public DropList As Integer
Public OutPut As Integer
End Class
Public Class UserManagement
Inherits DbClass
'tilføj en ny bruger
Public Function AddNewUser(ByVal ddlUserRightsValue As Integer, ByVal txtCompanyValue As String, ByVal txtUserNameValue As String, ByVal txtEmailValue As String, ByVal txtPasswordValue As String) As CreateNewUser
Dim con As New SqlConnection(connectionString)
Dim cmd As New SqlCommand("sp_GetUserLoginSpecs", con)
'cmd.CommandType = CommandType.StoredProcedure
'parameter til et email tjek længere nede
'cmd.Parameters.Add("@Email", SqlDbType.NVarChar, 50).Value = txtEmailValue
Try
'åbner conn til Db
If con.State <> ConnectionState.Open Then
con.Open()
End If
'tjekker om email adressen allerede findes i Db
'Dim reader As SqlDataReader = cmd.ExecuteReader()
'If reader.Read = True Then
'blblMsg.Text = "<ul><li>Der findes allerede en bruger med denne email-adresse!</li></ul>"
'blblMsg.ForeColor = Color.Red
'blblMsg.Font.Bold = False
'con.Dispose()
'con.Close()
'Exit Try
'Else
'reader.Close()
'Tilføj bruger i Db tabel User_Accounts
cmd = New SqlCommand("sp_UserAdd", con)
cmd.CommandType = CommandType.StoredProcedure
'input parametre til tilføjelse af det nye bruger data
cmd.Parameters.Add("@Company", SqlDbType.NVarChar, 50).Value = txtCompanyValue
cmd.Parameters.Add("@Name", SqlDbType.NVarChar, 50).Value = txtUserNameValue
cmd.Parameters.Add("@Email", SqlDbType.NVarChar, 50).Value = txtEmailValue
cmd.Parameters.Add("@Password", SqlDbType.NVarChar, 50).Value = PasswordHasher.Hash(txtPasswordValue)
cmd.Parameters.Add("@UserRights", SqlDbType.Int, 4).Value = ddlUserRightsValue
cmd.Parameters.Add("@AddedDate", SqlDbType.DateTime, 8).Value = System.DateTime.Now
'output
cmd.Parameters.Add("@Result", SqlDbType.Int, 4).Direction = ParameterDirection.Output
cmd.ExecuteNonQuery()
'End If
Catch
Throw
Finally
If con.State <> ConnectionState.Closed Then
con.Dispose()
con.Close()
End If
End Try
Dim addUser As New CreateNewUser()
addUser.TextBox1 = cmd.Parameters("@Company").Value.ToString()
addUser.TextBox2 = cmd.Parameters("@Name").Value.ToString()
addUser.TextBox3 = cmd.Parameters("@Email").Value.ToString()
addUser.TextBox4 = cmd.Parameters("@Password").Value.ToString()
addUser.DropList = CType(cmd.Parameters("@UserRights").Value, Integer)
addUser.OutPut = CType(cmd.Parameters("@Result").Value, Integer)
Return addUser
End Function
End Class
------------------------------------------------------------------------------
Og her kommer min code-behind class:
Public Sub btnNewUser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNewUser.Click
If IsValid Then
If CInt(Context.Session("TP_UserRights")) <> 1 Then
With blblError
.Text = "<ul><li>Du har ikke rettigheder til at tilføje data i databasen!</li></ul>"
.ForeColor = Color.Red
.Visible = True
End With
Else
Dim txtCompanyValue As String = bTxtCompany.Text
Dim txtUserNameValue As String = bTxtUserName.Text
Dim txtEmailValue As String = bTxtEmail.Text
Dim txtPasswordValue As String = bTxtPassword.Text
Dim ddlUserRightsValue As Integer = CType(bDdlUserRights.SelectedItem.Value, Integer)
Dim userManagement As UserManagement = New UserManagement()
Dim createNewUser As CreateNewUser = New CreateNewUser()
createNewUser = userManagement.AddNewUser(ddlUserRightsValue, txtCompanyValue, txtUserNameValue, txtEmailValue, txtPasswordValue) 'fanger værdien af output parameteren fra @Result
Dim intResult As Integer = createNewUser.OutPut
Dim strResult As String '= "Resultat=" & CStr(intResult) & "<br /><br />" '** udskriver resultatet -1, 0 eller 1 **
'select case ud fra en af disse
'output parametre: -1, 0 eller 1
Select Case intResult
Case -1 : strResult += "<font style=""color:red;"">Der skete en fejl, og ingen brugerdata er blevet tilføjet!</font>"
Case 0 : strResult += "<font style=""color:red;"">Der skete en fejl, og ingen brugerdata er blevet tilføjet!</font>"
Case Is > 0 : strResult += "<font style=""color:green;"">Bruger dataene blev tilføjet korrekt!</font>"
End Select
'sætter Session til UserRights fra Db, til senere brug.
'ellers ville den være 0
Dim userRights As Integer
userRights = Convert.ToInt32(Context.Session("TP_UserRights"))
'udskiver resultat til label
bLblMsg.Text = "<br /><br /><br /><center>" & strResult & "</center>"
bLblMsg.Font.Bold = True
bLblMsgRedirect.Text = "<center><br /><br />Du bliver redirected tilbage,- et øjeblik<img src=""../Images/loader.gif"" valign=""bottom"" /></center>"
bLblMsgRedirect.ForeColor = Color.Black
pnlNewUser.Visible = False
Response.AppendHeader("Refresh", "5;URL=http://192.168.5.75/TPNet/Secure/Admin.aspx")
End If
End If
End Sub 'btnNewUser_Click
Ny bruger
Nybegynder
Opret
Preview
