Imports System
Imports System.Data
Imports System.Data.SqlClient

Partial Class Admin_view_application
    Inherits System.Web.UI.Page
    Dim con As New SqlConnection(System.Configuration.ConfigurationManager.AppSettings("ConnectionString"))
    Dim search As String
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        ''If Session("AdminID") = Nothing Then
        '    Response.Redirect("AdminLogin.aspx")
        'End If
        If Session("AdminID") Is Nothing Then
            Response.Redirect("AdminLogin.aspx?sesn=expire")
            Exit Sub
        End If
        If Not IsPostBack Then
            Fill_Combo("select Vacancy_Code,Vacancy_PositionName from Vacancy_Master", ddljobposition)
            trapplist.Visible = False
            trdetail.Visible = False
        End If
    End Sub
    Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click

        If txtqualification.Text <> "" Then
            search = "JobApplications_Qualification Like '%" & txtqualification.Text & "%' and"
        Else
            search = ""
        End If
        If ddljobposition.SelectedIndex <> 0 Then
            search = search & " JobApplications_Code='" & ddljobposition.SelectedValue & "' and "
        End If

        If ddlstart.SelectedValue = ddlend.SelectedValue And ddlstart.SelectedValue <> 0 Then
            search = search & " JobApplications_TotalExp=" & ddlstart.SelectedValue & " and "
        ElseIf ddlend.SelectedValue <> 0 Then
            search = search & " JobApplications_TotalExp between " & ddlstart.SelectedValue & " and " & ddlend.SelectedValue & " and "
        End If
        search = "SELECT   JobApplications_kid , JobApplications_Code ,JobApplications_CandName ,JobApplications_TotalExp  from  JobApplications where " & search & " JobApplications_Isdeleted='0' order by JobApplications_Code"
        fillgrid(search)
    End Sub
    Function fillgrid(ByVal str As String)
        Dim da As New SqlDataAdapter(Str, con)
        Dim ds As New DataSet
        da.Fill(ds)
        GridView1.Columns(1).Visible = True
        GridView1.DataSource = ds.Tables(0)
        GridView1.DataBind()
        GridView1.Columns(1).Visible = False
        DetailsView1.Visible = False
        If ds.Tables(0).Rows.Count > 0 Then
            trapplist.Visible = True
            trdetail.Visible = False
            GridView1.Visible = True
        Else
            trapplist.Visible = False
            trdetail.Visible = False
            GridView1.Visible = False

        End If
        If ds.Tables(0).Rows.Count > 10 Then
            ' div1.Style.Add("height", "350px")
        ElseIf ds.Tables(0).Rows.Count = 1 Then
            '  div1.Style.Add("height", "50px")
        Else
            '  Dim i As Integer = ds.Tables(0).Rows.Count * 50
            '  div1.Style.Add("height", i & "px")
            Dim gv As GridViewRow

            For Each gv In GridView1.Rows
                CType(gv.Cells(5).FindControl("btndelete"), Button).Attributes.Add("onclick", "return deletefunction();")
            Next
        End If
    End Function


    Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.SelectedIndexChanged
        Dim jobkid As String = GridView1.SelectedRow.Cells(1).Text
        Dim str As String = "SELECT     JobApplications_Code AS [Job Code], JobApplications_CandName AS [Candidate Name], JobApplications_Sex AS Jender,  JobApplications_BirthDate AS [Birth Date], JobApplications_Qualification AS Qualification, JobApplications_PresentDesignation AS [Present Designation], JobApplications_CurrentCompany AS [Current Company], JobApplications_currentCTC AS [Current CTC], JobApplications_PresentLocation AS [Present Location],JobApplications_RadyforRelocate AS [Ready For Locate], JobApplications_TotalExp AS [Total Experience], JobApplications_RelavantExp AS [Relavant Experience], JobApplications_PhoneNo AS [Phone No], JobApplications_MobileNo AS [Mobile No], JobApplications_EmailId AS [Email Id],JobApplications_ResumePath as [Resume] FROM JobApplications where JobApplications_kid='" & jobkid & "'"
        Dim da As New SqlDataAdapter(str, con)
        Dim ds As New DataSet
        da.Fill(ds)
        If ds.Tables(0).Rows.Count > 0 Then
            DetailsView1.DataSource = ds.Tables(0)
            DetailsView1.DataBind()
            trdetail.Visible = True
            DetailsView1.Visible = True
            DetailsView1.Rows(15).Visible = False
        Else
            trdetail.Visible = False
            DetailsView1.Visible = False
        End If
      
    End Sub

    Protected Sub ddljobposition_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddljobposition.SelectedIndexChanged
        trapplist.Visible = False
        trdetail.Visible = False
        GridView1.Visible = False
        DetailsView1.Visible = False
    End Sub

    Protected Sub btndelete_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim str As String
        str = "delete from JobApplications where jobapplications_kid='" & CType(sender, Button).CommandArgument.ToString & "'"
        con.Open()
        Dim cmd As New SqlCommand(str, con)
        cmd.ExecuteNonQuery()
        cmd.ExecuteScalar()
        con.Close()

        If txtqualification.Text <> "" Then
            search = "JobApplications_Qualification Like '%" & txtqualification.Text & "%' and"
        Else
            search = ""
        End If
        If ddljobposition.SelectedIndex <> 0 Then
            search = search & " JobApplications_Code='" & ddljobposition.SelectedValue & "' and "
        End If

        If ddlstart.SelectedValue = ddlend.SelectedValue And ddlstart.SelectedValue <> 0 Then
            search = search & " JobApplications_TotalExp=" & ddlstart.SelectedValue & " and "
        ElseIf ddlend.SelectedValue <> 0 Then
            search = search & " JobApplications_TotalExp between " & ddlstart.SelectedValue & " and " & ddlend.SelectedValue & " and "
        End If
        search = "SELECT   JobApplications_kid , JobApplications_Code ,JobApplications_CandName ,JobApplications_TotalExp  from  JobApplications where " & search & " JobApplications_Isdeleted='0' order by JobApplications_Code"
        fillgrid(search)
        

    End Sub
End Class