Imports System.Data.SqlClient
Imports ModCommon
Imports System.Data.Sql
Imports System.Data
Partial Class Admin_buyer_register_report
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("AdminID") Is Nothing Then
            Response.Redirect("AdminLogin.aspx?sesn=expire")
            Exit Sub
        End If
        If Page.IsPostBack = False Then
            If Session("AdminID") = Nothing Then
                Response.Redirect("AdminLogin.aspx")
            End If
            fillgrid()
        End If
    End Sub
    Protected Sub fillgrid()
        Dim con As New SqlConnection(ConfigurationManager.AppSettings("ConnectionString"))
        Dim sqlstr As String
        sqlstr = "SELECT distinct BuyerRegister.BuyerRegister_Kid, BuyerRegister.BuyerRegister_Name, BuyerRegister.BuyerRegister_EmailId,BuyerRegister.BuyerRegister_Address + ' ' + City_Master.City_Name + '-' + State_Master.State_Name AS Address, BuyerRegister.BuyerRegister_PinCode,BuyerRegister.BuyerRegister_TelephoneNo + ' - ' + BuyerRegister.BuyerRegister_TelephoneExt AS TelephoneNo,BuyerRegister.BuyerRegister_MobileNo, BuyerRegister.BuyerRegister_RegDate, BuyerRegister.BuyerRegister_CompanyName,BuyerRegister.BuyerRegister_pwd  FROM BuyerRegister  LEFT OUTER JOIN City_Master ON BuyerRegister.BuyerRegister_CityId = City_Master.City_Kid INNER JOIN State_Master ON BuyerRegister.BuyerRegister_StateId = State_Master.State_Kid order by BuyerRegister.BuyerRegister_RegDate desc"
        ' Dim cmd As New SqlCommand(sqlstr, con)
        Dim adptr As New SqlDataAdapter(sqlstr, con)
        Dim bdataset As New DataSet
        adptr.Fill(bdataset, "buyer")
        Dim mydatatbl As DataTable = bdataset.Tables("buyer")
        bdataset.Tables("buyer").Columns.Add("SrNO", GetType(Integer))
        Dim i As Integer = 1
        For Each dr As DataRow In bdataset.Tables("buyer").Rows
            dr("SrNo") = i
            i = i + 1
        Next
        Dim rowcunt As Integer = bdataset.Tables("buyer").Rows.Count
        If rowcunt > 0 Then
            Label1.Text = rowcunt & "  Buyer Registered."
            Label1.Visible = True
        Else
            Label1.Text = ""
            Label1.Visible = False
        End If
        gvbuyer.DataSource = bdataset
        gvbuyer.DataBind()
    End Sub

    
    Protected Sub gvbuyer_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles gvbuyer.PageIndexChanging
        Try
            gvbuyer.PageIndex = e.NewPageIndex
            fillgrid()
        Catch ex As Exception

        End Try
    End Sub

    Protected Sub gvbuyer_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles gvbuyer.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.Cells(9).Text = Decrypt(e.Row.Cells(9).Text.ToString)
        End If
    End Sub
End Class