fbxt_right_atjssxx.aspx.vb

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

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


Namespace wsbgxt


Partial Class atjssxx
    Inherits System.Web.UI.Page
    Protected Shared mydataset As DataSet

#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_atjssxx")
            ElseIf CType(Session("jybz"), Boolean) = True Then
                Response.Redirect("../NotLogin.aspx?FromPageName=fbxt/fbxt_right_atjssxx")
                Return
            End If



            Dim MyConnection As SqlConnection

            MyConnection = New SqlConnection(SQL_CONNECTION_STRING) '"user id=secs;password=sces;initial catalog=secs;data source=localhost;Connect Timeout=30")
            Try
                MyConnection.Open()

                '信息类型列表
                Dim MyDataAD1 As SqlDataAdapter = New SqlDataAdapter("Select * from n_xxlxdmb_ent", MyConnection)
                Dim myDataSet1 As DataSet = New DataSet
                MyDataAD1.Fill(myDataSet1, "n_xxlxdmb_ent")
                sslxDropdownList.DataSource = myDataSet1.Tables("n_xxlxdmb_ent")
                sslxDropdownList.DataBind()
                '部门列表
                Dim MyDataAD2 As SqlDataAdapter = New SqlDataAdapter("Select * from n_bmdmb_ent", MyConnection)
                Dim myDataSet2 As DataSet = New DataSet
                MyDataAD2.Fill(myDataSet2, "n_bmdmb_ent")
                fbbmDropdownList.DataSource = myDataSet2.Tables("n_bmdmb_ent")
                fbbmDropdownList.DataBind()
            Catch ex As SqlException
                Status.Text = ex.Message
            Finally
                MyConnection.Close()
            End Try
            'End If
        End Sub


        Private Sub searchbutton_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles searchbutton.Click
            Dim sslxvalue As String
            Dim fbbmvalue As String
            Dim lbSybm As Boolean
            Dim lbSyxxlx As Boolean
            sslxvalue = CStr(sslxDropdownList.SelectedItem.Value)
            fbbmvalue = CStr(fbbmDropdownList.SelectedItem.Value)
            lbSybm = cbSybm.Checked
            lbSyxxlx = cbSyxxlx.Checked
            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"
                    If Not lbSyxxlx Then
                        myCmdStr = myCmdStr + " and n_xxlxdmb_ent.id ='" + sslxvalue + "'"
                    End If
                    If Not lbSybm Then
                        myCmdStr = myCmdStr + " and n_bmdmb_ent.id ='" + fbbmvalue + "'"
                    End If
                    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"))) + "'))"
                    If Not lbSyxxlx Then
                        myCmdStr = myCmdStr + " and n_xxlxdmb_ent.id ='" + sslxvalue + "'"
                    End If
                    If Not lbSybm Then
                        myCmdStr = myCmdStr + " and n_bmdmb_ent.id ='" + fbbmvalue + "'"
                    End If
                    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)
                mydataset = New DataSet
                myDataAD.Fill(mydataset)
                myDataGrid.DataSource = mydataset
                myDataGrid.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.DataSource = mydataset
        myDataGrid.DataBind()
    End Sub

End Class

End Namespace