fbxt_right_yessxx.aspx.vb

来自「vb2005电子书籍——vb.net项目开发宝典源码」· VB 代码 · 共 81 行

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


Namespace wsbgxt



Partial Class yessxx
    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_yessxx")
            ElseIf CType(Session("jybz"), Boolean) = True Then
                Response.Redirect("../NotLogin.aspx?FromPageName=fbxt/fbxt_right_yessxx")
                Return
            End If
            Dim myConn As New SqlConnection()
            myConn.ConnectionString = SQL_CONNECTION_STRING '
            Try
                myConn.Open()
                Dim myCmdStr As String
                If CInt(Session("dqxbh")) = 10 Then
                    myCmdStr = "SELECT DISTINCT n_bmdmb_ent.bmhdwmc," + _
                               "n_xxlxdmb_ent.xxlxmc,n_yhjbxx_ent.dlm," + _
                               "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 + " ORDER BY n_xxdjb_ent.fbsj DESC,n_xxlxdmb_ent.xxlxmc,n_bmdmb_ent.bmhdwmc"
                Else
                    myCmdStr = "SELECT DISTINCT n_bmdmb_ent.bmhdwmc," + _
                               "n_xxlxdmb_ent.xxlxmc,n_yhjbxx_ent.dlm," + _
                               "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_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_xxdjb_ent.fbsj DESC,n_xxlxdmb_ent.xxlxmc,n_bmdmb_ent.bmhdwmc"
                End If
                Dim myDataAD As SqlDataAdapter = New SqlDataAdapter(myCmdStr, myConn)
                Dim myDataset As New DataSet
                myDataAD.Fill(myDataset)
                myDataGrid.DataSource = myDataset
                myDataGrid.DataBind()
                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)
        myDataGrid.CurrentPageIndex = objArgs.NewPageIndex
        myDataGrid.DataBind()
    End Sub

End Class

End Namespace