web/Consignment.aspx.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports BLL
Imports Model
Imports System.Data
Imports System.Data.SqlClient
Partial Class Consignment
    Inherits System.Web.UI.Page
    Dim Syscrf As New SystemBLL()

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        delete_btn.Attributes.Add("onclick", "javascript:return confirm('Are you sure to delete ?');")
        GridViewBind()
        GridViewCount()
    End Sub
    Public Sub GridViewBind()
        Dim conn As New SqlConnection(Syscrf.Context)
        conn.Open()
        Dim da As New SqlDataAdapter("SELECT * from [TRANSACTION]  ORDER BY CREATEDATE DESC", conn)
        Dim ds As New DataSet()
        da.Fill(ds, AspNetPager1.PageSize * (AspNetPager1.CurrentPageIndex - 1), AspNetPager1.PageSize, "CRFView")
        AspNetPager1.AlwaysShow = True
        CATEGRID.DataSource = ds
        CATEGRID.DataBind()
        ds.Dispose()
        da.Dispose()
        conn.Close()
        conn.Dispose()

    End Sub
    Public Sub GridViewCount()
        Dim conn As New SqlConnection(Syscrf.Context)
        conn.Open()
        Dim cmd As New SqlCommand("SELECT count(*) from [TRANSACTION] ", conn)
        cmd.Connection = conn
        AspNetPager1.RecordCount = CInt(cmd.ExecuteScalar())
        AspNetPager1.RecordCount = CInt(cmd.ExecuteScalar())
        cmd.Dispose()
        conn.Close()
        conn.Dispose()
    End Sub

    Protected Sub AspNetPager1_PageChanging(ByVal src As Object, ByVal e As Wuqi.Webdiyer.PageChangingEventArgs) Handles AspNetPager1.PageChanging
        AspNetPager1.CurrentPageIndex = e.NewPageIndex
        GridViewBind()
        GridViewCount()
    End Sub

    Protected Sub delete_btn_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles delete_btn.Click
        Dim strdel As String = ""
        Dim tt As String = ""
        Dim str As String = ""
        Dim ckb As String() = Nothing
        str = Request.Form.[Get]("checkboxname")
        If str = "" Then
            Response.Write("<script>alert('pls select the records to delete');</script>")
        Else

            ckb = str.Split(New Char() {","c})
            For i As Integer = 0 To ckb.Length - 1
                tt += ckb(i) & ","
            Next