Professor6T9 Web SheLL

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

SearchControlWithIDgrdpay.ascx.vb

Partial Class UserControl_Back_SearchControlWithIDgrdpay
    Inherits System.Web.UI.UserControl
    Public Event BubbleClick As EventHandler
    Dim _UpdatePanel1 As UpdatePanel
    Dim grdpayment As GridView
    Dim MainId As Integer

#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
    Public Property Uddpagesize() As DropDownList
        Get
            Return Me.ddpagesizesgrdpay
        End Get
        Set(value As DropDownList)
            Me.ddpagesizesgrdpay = 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
#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
        ' MainId = Security.Decrypt(HttpUtility.UrlDecode(Request.QueryString("Id")))
        If IsNumeric(Session("MainID")) Then
            MainId = Convert.ToInt32(Session("MainID"))
        End If
        If Not IsPostBack Then
            UpdatePanel1 = Me.Parent.FindControl("UpdatePanel1")
            grdpayment = Me.Parent.FindControl("grdpayment")
            Me.txtsearch.Attributes.Add("onkeyup", String.Format("javascript:__doPostBack('{0}','')", Me.UpdatePanel1.ClientID))
        Else
            UpdatePanel1 = Me.Parent.FindControl("UpdatePanel1")
            grdpayment = Me.Parent.FindControl("grdpayment")
            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
                    grdpayment.AllowCustomPaging = False
                    FillSearch()
                Else
                    grdpayment.AllowCustomPaging = True
                    fillGridview(ddpagesizesgrdpay.SelectedValue)
                End If
            End If
        End If
        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
            'MainId = Security.Decrypt(HttpUtility.UrlDecode(Request.QueryString("Id")))
            If IsNumeric(Session("MainID")) Then
                MainId = Convert.ToInt32(Session("MainID"))
            End If
            grdpayment.DataSource = MainBLL.SearchGridViewById(txtsearch.Text.Trim, hfsearchmode.Value, MainId, Session("BranchID"))
            grdpayment.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
            ' MainId = Security.Decrypt(HttpUtility.UrlDecode(Request.QueryString("Id")))
            If IsNumeric(Session("MainID")) Then
                MainId = Convert.ToInt32(Session("MainID"))
            End If
            grdpayment.VirtualItemCount = MainBLL.TotalRowInGridviewById(hftotalcount.Value, MainId, Session("BranchID"))
            grdpayment.DataSource = MainBLL.FillGridViewById("0", ddpagesize, hfgridviewmode.Value, MainId, Session("BranchID"))
            grdpayment.DataBind()
            Dim temp As Integer = grdpayment.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 ddpagesizescpay_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddpagesizesgrdpay.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
        grdpayment.AllowCustomPaging = True
        fillGridview(ddpagesizesgrdpay.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.SearchGridViewById(txtsearch.Text.Trim, hfsearchmode.Value, MainId, Session("BranchID"))
            GRD.DataBind()
            GRD.AllowPaging = False
            GRD.DataBind()
        Else
            GRD.DataSource = MainBLL.SearchGridViewById(txtsearch.Text.Trim, hfsearchmode.Value, MainId, Session("BranchID"))
            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.SearchGridViewById(txtsearch.Text.Trim, hfsearchmode.Value, MainId, Session("BranchID"))
            GRD.DataBind()
            GRD.AllowPaging = False
            GRD.DataBind()
        Else
            GRD.DataSource = MainBLL.SearchGridViewById(txtsearch.Text.Trim, hfsearchmode.Value, MainId, Session("BranchID"))
            GRD.DataBind()
            GRD.AllowPaging = False
            GRD.DataBind()
        End If
        GRD.RenderControl(hw)
        Dim style As String = "<style> .textmode { mso-number-format:\@; } </style>"
        Response.Write(style)
        Response.Output.Write(sw.ToString())
        Response.Flush()
        Response.End()
    End Sub

End Class

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	0/0	0777	2017-08-18 04:06:18
..	dir	-	0/0	0777	2016-12-09 12:35:42
AddSponsorControl.ascx	text/html	6.36 KB	0/0	0666	2016-02-15 03:05:57
AddSponsorControl.ascx.vb	text/plain	2.9 KB	0/0	0666	2016-02-15 03:05:57
BankinformationControl.ascx	text/plain	4.26 KB	0/0	0666	2017-03-04 05:43:22
BankinformationControl.ascx.vb	text/plain	2.51 KB	0/0	0666	2017-02-06 02:54:33
DocumentControl.ascx	text/html	10.26 KB	0/0	0666	2017-02-06 02:54:34
DocumentControl.ascx.vb	text/plain	8.1 KB	0/0	0666	2017-02-06 02:54:34
HeaderSearchControl.ascx	text/plain	2.07 KB	0/0	0666	2017-02-06 02:54:35
HeaderSearchControl.ascx.vb	text/plain	9.21 KB	0/0	0666	2017-02-06 02:54:36
NewDocumentControl.ascx	text/html	10.1 KB	0/0	0666	2017-02-06 02:54:36
NewDocumentControl.ascx.vb	text/plain	9.29 KB	0/0	0666	2017-02-06 02:54:37
SearchControl.ascx	text/plain	2.28 KB	0/0	0666	2017-02-06 02:54:37
SearchControl.ascx.vb	text/plain	9.38 KB	0/0	0666	2017-02-06 02:54:38
SearchControlByName.ascx	text/plain	2.48 KB	0/0	0666	2017-02-06 02:54:38
SearchControlByName.ascx.vb	text/plain	7.77 KB	0/0	0666	2017-02-06 02:54:39
SearchControlWithID.ascx	text/plain	2.48 KB	0/0	0666	2017-02-06 02:54:39
SearchControlWithID.ascx.vb	text/plain	8.72 KB	0/0	0666	2017-02-06 02:54:40
SearchControlWithIDPay.ascx	text/plain	2.49 KB	0/0	0666	2017-02-06 02:54:42
SearchControlWithIDPay.ascx.vb	text/plain	8.31 KB	0/0	0666	2017-02-06 02:54:42
SearchControlWithIDSC.ascx	text/plain	2.49 KB	0/0	0666	2017-02-06 02:54:42
SearchControlWithIDSC.ascx.vb	text/plain	8.39 KB	0/0	0666	2017-02-06 02:54:43
SearchControlWithIDgrdpay.ascx	text/plain	2.5 KB	0/0	0666	2017-02-06 02:54:40
SearchControlWithIDgrdpay.ascx.vb	text/plain	8.34 KB	0/0	0666	2017-02-06 02:54:41
UCGridById.ascx	text/plain	2.05 KB	0/0	0666	2017-08-18 03:11:11
UCGridById.ascx.vb	text/plain	7.56 KB	0/0	0666	2017-08-18 03:11:11

Team Anon Force

https://t.me/Professor6T9x