Imports System.Web.Configuration
Imports Stock_Control.sqlDB

Partial Class UserDetails
	Inherits System.Web.UI.Page

	Private Shared UserID As Integer
	Private Shared UserName As String = ""
	Private db As New sqlDB
	Private refUserType As New Integer

	Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    If Not Page.IsPostBack Then
      WebConfigurationManager.AppSettings("strPage") = "UserDetails"
      UserID = Request.QueryString("UID")
      Try
        Dim i As Integer = UserID
      Catch ex As Exception
        UserID = 0
      End Try
      If UserID <> 0 Then
        Try
          Dim dr As DataRow
          dr = sqlDB.getRow(db.sql_get_Users(UserID))
          txtUser.Text = dr!strUserName
          ddlUserType.SelectedValue = dr!refUserGroupID
          txtDomainLogin.Text = dr!strDomainLogin
        Catch ex As Exception
          lblMessage.Text = "User Not Found!"
        End Try
      Else
      End If
    End If
	End Sub

	Protected Sub ddlUserType_DataBound(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlUserType.DataBound
		If refUserType > 0 Then
			ddlUserType.Items.FindByValue(refUserType).Selected = True
		End If
	End Sub

	Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click
		Dim msg As String = ""

		If txtUser.Text.Trim() = "" Then
			msg = "User name required!"
		End If

		If txtDomainLogin.Text.Trim() = "" Then
			msg = "Domain Login required!"
		End If

		If msg.Length > 0 Then
			lblMessage.Text = msg
		Else
			lblMessage.Text = ""

			If sqlDB.countRows(db.sql_get_Users(txtDomainLogin.Text, UserID)) > 0 Then
				lblMessage.Text = "Domain Login, """ & txtDomainLogin.Text & """, already exists!"
			Else
				If UserID <> 0 Then
          sqlDB.doQueryDS(db.sql_update_Users(UserID, txtUser.Text, txtDomainLogin.Text, ddlUserType.SelectedValue))
        Else
          Try
            sqlDB.doQueryDS(db.sql_insert_Users(txtUser.Text, txtDomainLogin.Text, ddlUserType.SelectedValue))

          Catch ex As Exception
            msg = ex.Message.Substring(0, ex.Message.IndexOf(".") + 1)
            Exit Sub
          End Try
        End If
        Response.Redirect("UserList.aspx")
      End If
		End If
	End Sub

	Protected Sub btnClose_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnClose.Click
		Response.Redirect("UserList.aspx")
	End Sub
End Class