Professor6T9 Web SheLL

Windows NT WEB-23 10.0 build 17763 (Windows Server 2016) i586
Microsoft-IIS/10.0
103.118.16.173

File Name : SearchControl.ascx.vb.exclude

Partial Class UserControl_Back_WebUserControl
    Inherits System.Web.UI.UserControl
    Public Event BubbleClick As EventHandler
    Dim _UpdatePanel1 As UpdatePanel
    Dim GridView1 As GridView

#Region "User Control Property"
    Public Property UpdatePanel1() As UpdatePanel
        Get
            Return Me._UpdatePanel1
        End Get
        Set(value As UpdatePanel)
            Me._UpdatePanel1 = value
        End Set
    End Property
    Public Property UtxtSearch() As TextBox
        Get
            Return Me.txtsearch
        End Get
        Set(value As TextBox)
            Me.txtsearch = value
        End Set
    End Property
    Public Property Uhfadd() As HyperLink
        Get
            Return Me.hfadd
        End Get
        Set(value As HyperLink)
            Me.hfadd = value
        End Set
    End Property

'/** Created by Anand on 09-02-17 (used for hold the page name ) begin **/
    Public Property UhfPagename() As HyperLink
        Get
            Return Me.hfPagename
        End Get
        Set(value As HyperLink)
            Me.hfPagename = value
        End Set
    End Property
    '/** Created by Anand on 09-02-17 (used for hold the page name ) end **/

Public Property Uddpagesize() As DropDownList
        Get
            Return Me.ddpagesize
        End Get
        Set(value As DropDownList)
            Me.ddpagesize = value
        End Set
    End Property
    Public Property ULkadd() As LinkButton
        Get
            Return Me.lkadd
        End Get
        Set(value As LinkButton)
            Me.lkadd = value
        End Set
    End Property
    Public Property Uhfsearchmode() As HiddenField
        Get
            Return Me.hfsearchmode
        End Get
        Set(value As HiddenField)
            Me.hfsearchmode = value
        End Set
    End Property
    Public Property Uhfgridviewmode() As HiddenField
        Get
            Return Me.hfgridviewmode
        End Get
        Set(value As HiddenField)
            Me.hfgridviewmode = value
        End Set
    End Property
    Public Property Uhftotalcount() As HiddenField
        Get
            Return Me.hftotalcount
        End Get
        Set(value As HiddenField)
            Me.hftotalcount = value
        End Set
    End Property

Public Property UExportWord() As ImageButton
        Get
            Return Me.btnExportWord
        End Get
        Set(value As ImageButton)
            Me.btnExportWord = value
        End Set
    End Property

Public Property UExportExcel() As ImageButton
        Get
            Return Me.btnExportExcel
        End Get
        Set(value As ImageButton)
            Me.btnExportExcel = value
        End Set
    End Property

#End Region

Protected Sub Page_Init(sender As Object, e As EventArgs) Handles Me.Init
        If Not IsPostBack Then

End If
    End Sub

Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not IsPostBack Then
            UpdatePanel1 = Me.Parent.FindControl("UpdatePanel1")
            GridView1 = Me.Parent.FindControl("GridView1")
            'ddpagesize_SelectedIndexChanged(Nothing, Nothing)
            Me.txtsearch.Attributes.Add("onkeyup", String.Format("javascript:__doPostBack('{0}','')", Me.UpdatePanel1.ClientID))

Else
            UpdatePanel1 = Me.Parent.FindControl("UpdatePanel1")
            GridView1 = Me.Parent.FindControl("GridView1")
            Dim target As String = Me.Request.Form("__EVENTTARGET")
            If Not String.IsNullOrEmpty(target) AndAlso target.Equals(Me.UpdatePanel1.ClientID) Then
                If Not String.IsNullOrEmpty(Me.txtsearch.Text) Then
                    GridView1.AllowCustomPaging = False
                    FillSearch()
                Else
                    GridView1.AllowCustomPaging = True
                    fillGridview(ddpagesize.SelectedValue)
                End If

End If
        End If
        CheckPrivilege()
        Dim scriptManager__1 As ScriptManager = ScriptManager.GetCurrent(Me.Page)
        scriptManager__1.RegisterPostBackControl(Me.btnExportWord)
        scriptManager__1.RegisterPostBackControl(Me.btnExportExcel)
    End Sub

Public Sub FillSearch()
        Try
            GridView1.DataSource = MainBLL.SearchGridView(txtsearch.Text.Trim, hfsearchmode.Value, Session("BranchID"), Session("LoginYearID"))
            GridView1.DataBind()
        Catch ex As Exception
            Dim error1 As String = ex.Message.Replace(Chr(34), "")
            error1 = error1.Replace(Chr(39), "")
            ScriptManager.RegisterStartupScript(Page, Me.[GetType](), "Call", "alert('" + (error1.ToString).ToString + "')", True)
        End Try
    End Sub

Public Sub fillGridview(ByVal ddpagesize As Integer)
        Try
            GridView1.VirtualItemCount = MainBLL.TotalRowInGridview(hftotalcount.Value, Session("BranchID"), Session("LoginYearID"))
            GridView1.DataSource = MainBLL.FillGridView(GridView1.PageIndex, ddpagesize, hfgridviewmode.Value, Session("BranchID"), Session("LoginYearID"))
            GridView1.DataBind()
            Dim temp As Integer = GridView1.Rows.Count
        Catch ex As Exception
            Dim error1 As String = ex.Message.Replace(Chr(34), "")
            error1 = error1.Replace(Chr(39), "")
            ScriptManager.RegisterStartupScript(Page, Me.[GetType](), "Call", "alert('" + (error1.ToString).ToString + "')", True)
        End Try
    End Sub

Public Event SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
    Public Event LKClick(ByVal sender As Object, ByVal e As System.EventArgs)

Protected Sub ddpagesize_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddpagesize.SelectedIndexChanged
        'Bubble the event
        RaiseEvent SelectedIndexChanged(sender, e)
    End Sub
    Protected Sub lkadd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lkadd.Click

RaiseEvent LKClick(sender, e)
    End Sub
    Protected Sub btnshowall_Click(sender As Object, e As EventArgs) Handles btnshowall.Click
        GridView1.AllowCustomPaging = True
        fillGridview(ddpagesize.SelectedValue)
        txtsearch.Text = ""
    End Sub

Protected Sub btnExportWord_Click(sender As Object, e As EventArgs) Handles btnExportWord.Click
        Response.Clear()
        Response.Buffer = True
        Response.AddHeader("content-disposition", "attachment;filename=GridViewExport.doc")
        Response.Charset = ""
        Response.ContentType = "application/vnd.ms-word "
        Dim sw As New StringWriter()
        Dim hw As New HtmlTextWriter(sw)
        Dim GRD As New GridView
        If txtsearch.Text = "" Then
            GRD.DataSource = MainBLL.SearchGridView(txtsearch.Text.Trim, hfsearchmode.Value, Session("BranchID"), Session("LoginYearID"))
            GRD.DataBind()
            GRD.AllowPaging = False
            GRD.DataBind()
        Else
            GRD.DataSource = MainBLL.SearchGridView(txtsearch.Text.Trim, hfsearchmode.Value, Session("BranchID"), Session("LoginYearID"))
            GRD.DataBind()
            GRD.AllowPaging = False
            GRD.DataBind()
        End If
        GRD.RenderControl(hw)
        Response.Output.Write(sw.ToString())
        Response.Flush()
        Response.[End]()

End Sub

Protected Sub btnExportExcel_Click(sender As Object, e As EventArgs) Handles btnExportExcel.Click
        Response.Clear()
        Response.Buffer = True

Response.AddHeader("content-disposition", "attachment;filename=GridViewExport.xls")
        Response.Charset = ""
        Response.ContentType = "application/vnd.ms-excel"
        Dim sw As New StringWriter()
        Dim hw As New HtmlTextWriter(sw)

Dim GRD As New GridView
        If txtsearch.Text = "" Then
            GRD.DataSource = MainBLL.SearchGridView(txtsearch.Text.Trim, hfsearchmode.Value, Session("BranchID"), Session("LoginYearID"))
            GRD.DataBind()
            GRD.AllowPaging = False
            GRD.DataBind()
        Else
            GRD.DataSource = MainBLL.SearchGridView(txtsearch.Text.Trim, hfsearchmode.Value, Session("BranchID"), Session("LoginYearID"))
            GRD.DataBind()
            GRD.AllowPaging = False
            GRD.DataBind()
        End If

'Change the Header Row back to white color 
        'GRD.HeaderRow.Style.Add("background-color", "#FFFFFF")

''Apply style to Individual Cells 
        'GRD.HeaderRow.Cells(0).Style.Add("background-color", "#f9f9f9")
        'GRD.HeaderRow.Cells(1).Style.Add("background-color", "#f9f9f9")
        'GRD.HeaderRow.Cells(2).Style.Add("background-color", "#f9f9f9")
        'GRD.HeaderRow.Cells(3).Style.Add("background-color", "#f9f9f9")

'For i As Integer = 0 To GRD.Rows.Count - 1
        '    Dim row As GridViewRow = GRD.Rows(i)

'    'Change Color back to white 
        '    row.BackColor = System.Drawing.Color.White

'    'Apply text style to each Row 
        '    row.Attributes.Add("class", "textmode")

'    'Apply style to Individual Cells of Alternating Row 
        '    If i Mod 2 <> 0 Then
        '        row.Cells(0).Style.Add("background-color", "#f9f9f9")
        '        row.Cells(1).Style.Add("background-color", "#f9f9f9")
        '        row.Cells(2).Style.Add("background-color", "#f9f9f9")
        '        row.Cells(3).Style.Add("background-color", "#f9f9f9")
        '    End If
        'Next
        GRD.RenderControl(hw)

'style to format numbers to string 
        Dim style As String = "<style> .textmode { mso-number-format:\@; } </style>"
        Response.Write(style)
        Response.Output.Write(sw.ToString())
        Response.Flush()
        Response.End()
    End Sub
    '/** Created by Anand on 09-02-17 (used for check privilege of add page ) begin **/
    Public Sub CheckPrivilege()
        Dim strArr() As String
        Dim TemStr As String = ""

Dim dtPrivi As New DataTable
        dtPrivi = Session("dtPrivilege")
        Dim rows() As DataRow = dtPrivi.Select("Menu_URL = '" + UhfPagename.NavigateUrl + "'")
        If rows.Count > 0 Then
            TemStr = rows(0).Item("Val").ToString()
        End If
        strArr = TemStr.Split(",")
        If (strArr.Length > 2) Then
            If strArr(0) = "1" Then
                Uhfadd.Visible = True
            Else
                Uhfadd.Visible = False
            End If
        End If
    End Sub
    '/** Created by Anand on 09-02-17 (used for check privilege of add page ) end **/
End Class

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	0/0	0777	2017-05-10 12:47:39
..	dir	-	0/0	0777	2017-05-10 12:47:38
GridviewItemControl.ascx	text/html	4.43 KB	0/0	0666	2017-06-03 11:56:19
GridviewItemControl.ascx.vb	text/plain	4 KB	0/0	0666	2017-06-03 11:56:20
GridviewaddItemControl.ascx	text/html	3.86 KB	0/0	0666	2017-06-03 11:56:15
GridviewaddItemControl.ascx.vb	text/plain	2.75 KB	0/0	0666	2017-06-03 11:56:16
SearchControl.ascx.exclude	text/plain	2.37 KB	0/0	0666	2017-06-03 11:56:20
SearchControl.ascx.vb.exclude	text/plain	10.63 KB	0/0	0666	2017-06-03 11:56:21

Team Anon Force

https://t.me/Professor6T9x