fbxt_right_sgxx.aspx.vb

vb2005电子书籍——vb.net项目开发宝典源码

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


Namespace wsbgxt


Partial Class fbxt_right_sgxx
    Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   
        If Session("jybz") Is Nothing Then
            Response.Redirect("../NotLogin.aspx?FromPageName=fbxt/fbxt_right_sgxx")
        ElseIf CType(Session("jybz"), Boolean) = True Then
            Response.Redirect("../NotLogin.aspx?FromPageName=fbxt/fbxt_right_sgxx")
            Return
        End If

        '绑定数据
        If Not IsPostBack Then
            DataGrid2.CurrentPageIndex = 0
            MyDataBind()
        End If
    End Sub

    Sub ClickItem(ByVal objSender As Object, ByVal objArgs As DataGridCommandEventArgs)
        If objArgs.CommandSource.CommandName = "DeleteIt" Then
            Dim MessageId As Integer = CInt(objArgs.Item.Cells(0).Text)
            Status.Text = CStr(MessageId)
            Dim myConn As New SqlConnection()
                myConn.ConnectionString = SQL_CONNECTION_STRING '"user id=secs;password=sces;initial catalog=secs;data source=localhost;Connect Timeout=30"
            Try
                myConn.Open()
                Dim myCmdStr As String
                myCmdStr = "DELETE FROM n_xxybmgx_ent WHERE xxid= '" + Trim(CStr(MessageId)) + "'"
                myCmdStr = "DELETE FROM n_xxdjb_ent WHERE id= '" + Trim(CStr(MessageId)) + "'"
                Dim myCmd As SqlCommand = New SqlCommand(myCmdStr, myConn)
                Dim n As Integer = myCmd.ExecuteNonQuery()
                If n = 1 Then
                    Status.Text = "已删除所选项，请继续！"
                Else
                    Status.Text = "删除不成功！"
                End If
            Catch ex As SqlException
                Status.Text = ex.Message
            Finally
                myConn.Close()
            End Try
            '下面是关于删除是显示在原来页面上的算法
            If (DataGrid2.CurrentPageIndex = DataGrid2.PageCount - 1 And DataGrid2.CurrentPageIndex > 0) Then
                DataGrid2.CurrentPageIndex = DataGrid2.CurrentPageIndex - 1
                MyDataBind()
                If (DataGrid2.CurrentPageIndex = DataGrid2.PageCount - 2) Then
                    DataGrid2.CurrentPageIndex = DataGrid2.CurrentPageIndex + 1
                    MyDataBind()
                End If
            Else
                MyDataBind()
            End If
        End If
    End Sub

    Sub MyDataBind()
        '代码说明：以下一句是，隐藏了id列，定义id列但是不显示它的原因是为了删除按钮可以拿到其信息id值
        DataGrid2.Columns(0).Visible = False

        Dim myConn As New SqlConnection
            myConn.ConnectionString = SQL_CONNECTION_STRING ' "user id=secs;password=sces;initial catalog=secs;data source=localhost;Connect Timeout=30"
        Try
            myConn.Open()
            Dim myCmdStr As String
                myCmdStr = "SELECT DISTINCT n_bmdmb_ent.bmhdwmc," + _
                           "n_xxlxdmb_ent.xxlxmc,n_xxdjb_ent.id," + _
                           "n_xxdjb_ent.fbsj,n_xxdjb_ent.xxbt," + _
                           "n_dqxdmb_ent.dqxmc" + _
                           " FROM  n_bmdmb_ent,n_xxlxdmb_ent,n_yhjbxx_ent,n_xxdjb_ent,n_dqxdmb_ent,n_xxybmgx_ent"
            myCmdStr = myCmdStr + " WHERE n_yhjbxx_ent.id = n_xxdjb_ent.fbyhid and n_bmdmb_ent.id = n_xxdjb_ent.bmhdwid and n_xxlxdmb_ent.id = n_xxdjb_ent.xxlxid and n_dqxdmb_ent.id=n_xxdjb_ent.dqxid"
            myCmdStr = myCmdStr + " and n_yhjbxx_ent.id ='" + Trim(CStr(Session("id"))) + "'"
            myCmdStr = myCmdStr + " and (n_xxlxdmb_ent.djbbz=1 or (n_xxlxdmb_ent.djbbz=0 and n_xxdjb_ent.dxzbz=1 and n_dqxdmb_ent.dqxbh>='" + Trim(CStr(Session("dqxbh"))) + "')"
            myCmdStr = myCmdStr + " or (n_xxlxdmb_ent.djbbz=0 and n_xxdjb_ent.dxzbz=0 and n_xxdjb_ent.id = n_xxybmgx_ent.xxid and n_xxybmgx_ent.bmhdwid = '" + Trim(CStr(Session("bmhdwid"))) + "' and n_dqxdmb_ent.dqxbh>='" + Trim(CStr(Session("dqxbh"))) + "'))"
            myCmdStr = myCmdStr + " ORDER BY n_xxlxdmb_ent.xxlxmc,n_bmdmb_ent.bmhdwmc"

            '数据源：dataset
            Dim myDataAD As SqlDataAdapter = New SqlDataAdapter(myCmdStr, myConn)
            Dim myDataset As New DataSet
            myDataAD.Fill(myDataset)

            '以下是相关的绑定语句
            DataGrid2.DataSource = myDataset
            DataBind()

        Catch ex As SqlException
            Status.Text = ex.Message
        Finally
            myConn.Close()
        End Try
    End Sub

    Sub ChangeGridPage(ByVal objSender As Object, ByVal objArgs As DataGridPageChangedEventArgs)
        DataGrid2.CurrentPageIndex = objArgs.NewPageIndex
        MyDataBind()
    End Sub
End Class

End Namespace