taskbookqueryresult.aspx.vb

一个很不错的实验室管理系统,用vb+sql编写,功能强大,界面美观

Public Class TaskBookQueryResult
    Inherits clsDataAccess
    Protected WithEvents dgQueryResult As System.Web.UI.WebControls.DataGrid

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <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: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not IsPostBack Then
            Dim strAddress As String '地址
            Dim strWhereSql As String '查询语句
            strAddress = Request.Form("dropdownlistaddress").Trim
            If Request.Form("strTestID") <> "" Then '任务书编号
                strWhereSql = " testid like '%" & Request.Form("strTestID").Trim & "%'"
            Else
                strWhereSql = ""
            End If
            If Request.Form("txtdep") <> "" Then '实验部门
                If strWhereSql <> "" Then
                    strWhereSql = strWhereSql & " and "
                End If
                strWhereSql = strWhereSql & "testDep like '%" & Request.Form("txtdep").Trim & "%'"
            End If
            If Request.Form("selwrap") <> "不判断" Then
                If Request.Form("selwrap") <> "" Then
                    If strWhereSql <> "" Then
                        strWhereSql = strWhereSql & " and "
                    End If
                    strWhereSql = strWhereSql & "Epiboly='" & Request.Form("selwrap").Trim & "'"
                End If
            End If
            If Request.Form("txtmodel") <> "" Then
                If strWhereSql <> "" Then
                    strWhereSql = strWhereSql & " and "
                End If
                strWhereSql = strWhereSql & "IceModel like '%" & Request.Form("txtmodel").Trim & "%'"
            End If
            If Request.Form("txtshenqing") <> "" Then
                If strWhereSql <> "" Then
                    strWhereSql = strWhereSql & " and "
                End If
                strWhereSql = strWhereSql & "TestShengqing like '%" _
                & Request.Form("txtshenqing").Trim & "%'"
            End If
            If Request.Form("txtarea") <> "" Then
                If strWhereSql <> "" Then
                    strWhereSql = strWhereSql & " and "
                End If
                strWhereSql = strWhereSql & "IceMakePos like '%" & Request.Form("txtarea").Trim & "%'"
            End If
            If Request.Form("strXiada") <> "" Then
                If strWhereSql <> "" Then
                    strWhereSql = strWhereSql & " and "
                End If
                strWhereSql = strWhereSql & "TestXiaDa like '%" & Request.Form("strXiada").Trim & "%'"
            End If
            If Request.Form("txtfinish") <> "" Then
                If strWhereSql <> "" Then
                    strWhereSql = strWhereSql & " and "
                End If
                strWhereSql = strWhereSql & "testPiZhun like '%" _
                & Request.Form("txtfinish").Trim & "%'"
            End If
            If Request.Form("txtconsume") <> "" Then
                If strWhereSql <> "" Then
                    strWhereSql = strWhereSql & " and "
                End If
                strWhereSql = strWhereSql & "ConsumeArea like '%" _
                & Request.Form("txtconsume").Trim & "%'"
            End If
            If Request.Form("txtprovider") <> "" Then
                If strWhereSql <> "" Then
                    strWhereSql = strWhereSql & " and "
                End If
                strWhereSql = strWhereSql & "IceProvider like '%" _
                & Request.Form("txtprovider").Trim & "%'"
            End If
            If Request.Form("txtstandard") <> "" Then
                If strWhereSql <> "" Then
                    strWhereSql = strWhereSql & " and "
                End If
                strWhereSql = strWhereSql & "ExecuteStandard like '%" _
                & Request.Form("txtstandard").Trim & "%'"
            End If
            If strAddress <> "" Then
                If strWhereSql <> "" Then
                    strWhereSql = strWhereSql & " and "
                End If
                strWhereSql = strWhereSql & "address like '%" & strAddress & "%'"
            End If
            If Request.Form("selExecute") <> "不判断" Then
                If Request.Form("selExecute") = "是" Then
                    If strWhereSql <> "" Then
                        strWhereSql = strWhereSql & " and "
                    End If
                    strWhereSql = strWhereSql & "state=2"
                ElseIf Request.Form("selExecute") = "否" Then
                    If strWhereSql <> "" Then
                        strWhereSql = strWhereSql & " and "
                    End If
                    strWhereSql = strWhereSql & "state<2"
                End If
            End If
            If Request.Form("selAccept") <> "不判断" Then
                If Request.Form("selAccept") = "是" Then
                    If strWhereSql <> "" Then
                        strWhereSql = strWhereSql & " and "
                    End If
                    strWhereSql = strWhereSql & "AcceptFlag=1"
                ElseIf Request.Form("selAccept") = "否" Then
                    If strWhereSql <> "" Then
                        strWhereSql = strWhereSql & " and "
                    End If
                    strWhereSql = strWhereSql & "AcceptFlag=0"
                Else
                    If strWhereSql <> "" Then
                        strWhereSql = strWhereSql & " and "
                    End If
                    strWhereSql = strWhereSql & "AcceptFlag=2"
                End If
            End If
            If Request.Form("txtbianhao") <> "" Then
                If strWhereSql <> "" Then
                    strWhereSql = strWhereSql & " and "
                End If
                strWhereSql = strWhereSql & "Iceserial like '%" _
                & Request.Form("txtbianhao").Trim & "%'"
            End If
            Session("strSqlQuery") = strWhereSql
            PubStrSql = "select '序号' as 序号,TestID as 任务书号,TestXiaDa as 下达日期," _
            & "TestPiZhun as 批准完成日期,IceModel as 型号,TestObject as 实验目的," _
            & "TestObjectDescription as 实验目的描述,AcceptFlag as 任务书状态," _
            & "State as 执行状态,Checked as 审核状态,'项目明细'as 项目明细,Address as 地址" _
            & " from TaskBook "
            If Session("strSqlQuery") <> "" Then
                PubStrSql = PubStrSql & " where " & Session("strSqlQuery")
                Session("PubStrSql") = PubStrSql
                ShowQueryResult(Session("PubStrSql"))
            End If
        End If
    End Sub
    '函数名称:ShowQueryResult
    '函数功能:显示查询结果
    '输入参数：strSql查询语句
    Private Sub ShowQueryResult(ByVal strSql As String)
        PubDataAdapter.SelectCommand.CommandText = strSql
        PubDataAdapter.Fill(PubDataSet, "tblResult")
        dgQueryResult.DataSource = PubDataSet.Tables("tblResult")
        dgQueryResult.DataBind()
    End Sub




    Private Sub dgQueryResult_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles dgQueryResult.ItemDataBound
        If e.Item.ItemIndex <> -1 Then
            Dim objHyperLink As New HyperLink()
            Dim objHyperLinkTaskBook As New HyperLink()
            '第一列序号列
            e.Item.Cells(0).Text = e.Item.ItemIndex + 1 + _
            dgQueryResult.CurrentPageIndex * dgQueryResult.PageSize
            With PubDataSet.Tables("tblResult")
                '任务书编号
                objHyperLinkTaskBook.Text = _
                Trim(.Rows(CType(e.Item.Cells(0).Text, Int16) - 1)("任务书号"))
                objHyperLinkTaskBook.Target = "_blank"
                objHyperLinkTaskBook.NavigateUrl = "TaskBookDetail.aspx?Serial=" _
                & .Rows(CType(e.Item.Cells(0).Text, Int16) - 1)("任务书号") _
                & "&Address=" _
                & .Rows(CType(e.Item.Cells(0).Text, Int16) - 1)("地址")
                e.Item.Cells(1).Controls.Add(objHyperLinkTaskBook)
            End With
            '任务书接收状态列
            Select Case e.Item.Cells(7).Text.Trim
                Case "0" '未接收
                    e.Item.Cells(7).Text = "未接收"
                Case "1" '接收
                    e.Item.Cells(7).Text = "接收"
                Case Else
                    e.Item.Cells(7).Text = "拒收"
            End Select
            '任务书状态
            Select Case e.Item.Cells(8).Text.Trim
                Case "0" '保存
                    e.Item.Cells(8).Text = "保存"
                Case "1" '下达
                    e.Item.Cells(8).Text = "下达"
                Case "2" '正在执行
                    e.Item.Cells(8).Text = "正在执行"
                Case "3" '完成
                    e.Item.Cells(8).Text = "完成"
            End Select
            '审核状态
            Select Case e.Item.Cells(9).Text.Trim
                Case "0"
                    e.Item.Cells(9).Text = "不需审核"
                Case "1"
                    e.Item.Cells(9).Text = "未审核"
                Case "2"
                    e.Item.Cells(9).Text = "审核通过"
                Case "3"
                    e.Item.Cells(9).Text = "审核未通过"
            End Select
            '项目明细
            objHyperLink.Text = "查看"
            objHyperLink.Target = "_blank"
            With PubDataSet.Tables("tblResult")
                objHyperLink.NavigateUrl = "ProjectDetail.aspx?Serial=" _
                & Trim(.Rows(CType(e.Item.Cells(0).Text, Int16) - 1)("任务书号")) _
                & "&Address=" & .Rows(CType(e.Item.Cells(0).Text, Int16) - 1)("地址")
            End With
            e.Item.Cells(10).Controls.Add(objHyperLink)
        End If
        e.Item.Cells(11).Visible = False
    End Sub

    Private Sub dgQueryResult_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles dgQueryResult.PageIndexChanged
        dgQueryResult.CurrentPageIndex = e.NewPageIndex
        ShowQueryResult(Session("PubStrSql"))
    End Sub
End Class