fbxt_right_ydhytz.aspx.vb

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

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


Namespace wsbgxt



Partial Class fbxt_right_ydhytz
    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
        '在此处放置初始化页的用户代码
        '程序开始，用vb语句实现页面的设置，该方法实现比较麻烦

        '权限检查
        If Session("jybz") Is Nothing Then
            Response.Redirect("../NotLogin.aspx?FromPageName=fbxt/fbxt_right_ydhytz")
        ElseIf CType(Session("jybz"), Boolean) = True Then
            Response.Redirect("../NotLogin.aspx?FromPageName=fbxt/fbxt_right_ydhytz")
            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 + " and n_xxdjb_ent.xxlxid = 4"
                myCmdStr = myCmdStr + " ORDER BY n_xxlxdmb_ent.xxlxmc,n_bmdmb_ent.bmhdwmc"
            Else
                    myCmdStr = "SELECT DISTINCT n_bmdmb_ent.bmhdwmc," + _
                               "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_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_dqxdmb_ent.id=n_xxdjb_ent.dqxid"
                myCmdStr = myCmdStr + " and ((n_xxdjb_ent.dxzbz=1 and n_dqxdmb_ent.dqxbh>='" + Trim(CStr(Session("dqxbh"))) + "')"
                myCmdStr = myCmdStr + " or (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 + " and n_xxdjb_ent.xxlxid = 4"
                myCmdStr = myCmdStr + " ORDER BY 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