Imports System.Data.SqlClient
Imports System.Data.SqlClient.SqlDataAdapter
Partial Class _Default
    Inherits System.Web.UI.Page
    'Dim nFicheiro As String
    Dim CONNSTR As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\GSIb04.mdf;Integrated Security=True;User Instance=True"

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub envregalu_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles envregalu.Click


        If aluregcod.Text <> "" And aluregnome.Text <> "" And aluregpass.Text <> "" And alureguser.Text <> "" And aluregcontacto.Text <> "" Then

            Dim conn As New SqlConnection(CONNSTR)
            Dim query As String = "SELECT A_COD, A_USERNAME  FROM ALUNO WHERE A_USERNAME = '" & alureguser.Text & "'"
            Dim commd As New SqlCommand(query, conn)
            Dim dr As SqlDataReader

            conn.Open()
            dr = commd.ExecuteReader()


            If dr.HasRows = True Then
                Label1.Text = "Username j� existente! Escolha outro Username por favor. Obrigado!"

            Else

                Dim conn1 As New SqlConnection(CONNSTR)
                Dim sp As New SqlCommand("ADICIONAR_ALUNO", conn1)
                sp.CommandType = Data.CommandType.StoredProcedure

                Dim A_COD As New SqlParameter("@A_COD", Data.SqlDbType.Int)
                A_COD.Value = aluregcod.Text
                sp.Parameters.Add(A_COD)

                Dim A_NOME As New SqlParameter("@A_NOME", Data.SqlDbType.NChar)
                A_NOME.Value = aluregnome.Text
                sp.Parameters.Add(A_NOME)

                Dim A_CONTACTO As New SqlParameter("@A_TLF", Data.SqlDbType.NChar)
                A_CONTACTO.Value = aluregcontacto.Text
                sp.Parameters.Add(A_CONTACTO)

                Dim A_AREA_COD As New SqlParameter("@A_AREA_COD", Data.SqlDbType.Int)
                A_AREA_COD.Value = areainteressedrop.Text
                sp.Parameters.Add(A_AREA_COD)

                Dim A_CUR_COD As New SqlParameter("@A_CUR_COD", Data.SqlDbType.Int)
                A_CUR_COD.Value = dropdowncurso.Text
                sp.Parameters.Add(A_CUR_COD)

                Dim A_MORADA As New SqlParameter("@A_MORADA", Data.SqlDbType.NChar)
                A_MORADA.Value = aluregmorada.Text
                sp.Parameters.Add(A_MORADA)


                Dim A_EMAIL As New SqlParameter("@A_EMAIL", Data.SqlDbType.NChar)
                A_EMAIL.Value = aluregmail.Text
                sp.Parameters.Add(A_EMAIL)

                Dim A_USERNAME As New SqlParameter("@A_USERNAME", Data.SqlDbType.NChar)
                A_USERNAME.Value = alureguser.Text
                sp.Parameters.Add(A_USERNAME)

                Dim A_PASSWORD As New SqlParameter("@A_PASSWORD", Data.SqlDbType.NChar)
                A_PASSWORD.Value = aluregpass.Text
                sp.Parameters.Add(A_PASSWORD)

                Dim password As String = aluregpass.Text
                Dim password2 As String = aluregpass2.Text

                If aluregpass.Text.Length < 6 Then
                    Label1.Text = "Password tem de ter no minimo 6 caracteres"
                Else
                    If Not password = password2 Then
                        Label1.Text = "Passwords n�o coincidem"
                    Else

                        If (Not aluregcv.PostedFile Is Nothing And aluregcv.PostedFile.FileName <> "") Then
                            Dim nFicheiro As String = System.IO.Path.GetFileName(aluregcv.PostedFile.FileName)


                            If nFicheiro.Substring(nFicheiro.IndexOf(".")).Equals(".pdf") Then
                                nFicheiro = NomeFicheiro()


                                Dim aluregcv As New SqlParameter("@A_CV", System.Data.SqlDbType.NVarChar)
                                aluregcv.Value = nFicheiro
                                sp.Parameters.Add(aluregcv)


                                conn1.Open()
                                sp.ExecuteNonQuery()
                                conn1.Close()
                                Response.Redirect("RegistoSucesso.aspx")
                            Else
                                MsgBox("S� � permitido ficheiros pdf")
                                Return
                            End If
                        End If
                    End If
                End If
                conn.Close()
                dr.Close()
                End If
        Else
                Label1.Text = ("Preencha os dados obrigat�rios")
        End If



    End Sub

    Public ReadOnly Property NomeFicheiro()
        Get


            Dim nFicheiro As String
            Dim dirficheiro As String = Server.MapPath("~\curriculos\")

            If (Not aluregcv.PostedFile Is Nothing) Then

                nFicheiro = System.IO.Path.GetFileName(aluregcv.PostedFile.FileName)
                If nFicheiro.Substring(nFicheiro.IndexOf(".")).Equals(".pdf") Then
                    Dim aux As Integer = nFicheiro.IndexOf(".")
                    Dim primNome As String = nFicheiro.Substring(0, aux)
                    Dim tipoFich As String = nFicheiro.Substring(aux)
                    Dim novoFic As String = primNome & "_" & aluregnome.Text & tipoFich
                    aluregcv.PostedFile.SaveAs(dirficheiro + novoFic)
                    Return novoFic
                End If

            End If


        End Get
    End Property

    Protected Sub aluregnumero_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles aluregcod.TextChanged

    End Sub

    Protected Sub aluregmorada_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles aluregmorada.TextChanged

    End Sub

    Protected Sub areainteressedrop_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles areainteressedrop.SelectedIndexChanged

    End Sub
End Class