projectdetail.aspx.vb

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

Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class ProjectDetail
    Inherits clsBiz
    Protected WithEvents tableitem As System.Web.UI.HtmlControls.HtmlTable
    Protected WithEvents TableHead As System.Web.UI.HtmlControls.HtmlTable
    Protected WithEvents TableStatic As System.Web.UI.HtmlControls.HtmlTable
    Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Panel1 As System.Web.UI.WebControls.Panel
    Protected WithEvents HyperLinkpre As System.Web.UI.WebControls.HyperLink
    Protected WithEvents Hyperlinknext As System.Web.UI.WebControls.HyperLink
    Protected WithEvents LabelType As System.Web.UI.WebControls.Label
    Protected WithEvents DataGridProject As System.Web.UI.WebControls.DataGrid
    Protected WithEvents Tablespecialitem As System.Web.UI.HtmlControls.HtmlTable
#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
        Dim strTestID As String
        Dim strAddress As String
        strTestID = Request.Params("Serial")
        strAddress = Request.Params("Address")
        '任务书信息
        PubStrSql = "select * from taskbook where testid='" & strTestID & "'" _
        & " and address='" & strAddress & "'"
        PubDataAdapter.SelectCommand.CommandText = PubStrSql
        PubDataAdapter.Fill(PubDataSet, "taskbook")
        With PubDataSet.Tables("taskbook")
            If .Rows.Count <> 0 Then
                '任务书编号
                TableHead.Rows(2).Cells(0).InnerText = Trim(.Rows(0)("TestId"))
                '下达日期
                TableHead.Rows(2).Cells(1).InnerText = Trim(.Rows(0)("TestXiada"))
                '开测时间
                TableHead.Rows(2).Cells(2).InnerText = Trim(.Rows(0)("TaskbookBeginTime"))
                '批准日期
                TableHead.Rows(2).Cells(3).InnerText = Trim(.Rows(0)("TestPiZhun"))
                '型号
                LabelType.Text = Trim(.Rows(0)("IceModel"))
                TableHead.Attributes.Add("Style", "border-collapse: collapse")
            End If
        End With
        '显示项目测试信息
        PubStrSql = "select Iceboxserial as 冰箱编号, project as 项目," _
        & "TestStandard as 测试标准,Period as 周期,state as 状态," _
        & "Qualified as 是否合格 ,TestResult as 测试结果,Remark as 备注," _
        & "TestBeginTime as 开始时间,TestEndTime as 结束时间,estradenum as 台位号," _
        & "PrjExpectBeginTime as 计划开始,PrjExpectEndTime as 计划结束," _
        & "ExpireExpectFlag as 超计划,ExpireStandardFlag as 超周期" _
        & " from taskbookprj where testid='" & strTestID & "'" _
        & " and address='" & strAddress & "'"
        Dim strTempSql As String '特殊项目
        strTempSql = "select Iceboxserial as 冰箱编号, projectname as 项目," _
        & "ProjectMethod as 测试标准,Period as 周期,state as 状态," _
        & "Qualified as 是否合格 ,TestResult as 测试结果,Remark as 备注," _
        & "TestBeginTime as 开始时间,TestEndTime as 结束时间,estradenum as 台位号," _
        & "PrjExpectBeginTime as 计划开始,PrjExpectEndTime as 计划结束," _
        & "ExpireExpectFlag as 超计划,ExpireStandardFlag as 超周期" _
        & " from SpecialProject where testid='" & strTestID & "'" _
        & " and address='" & strAddress & "'"
        PubStrSql = "(" & PubStrSql & ")" & " union (" & strTempSql & " )"
        PubDataAdapter.SelectCommand.CommandText = PubStrSql
        PubDataAdapter.Fill(PubDataSet, "taskbookprj")
        DataGridProject.DataSource = PubDataSet.Tables("taskbookprj")
        DataGridProject.DataBind()        
    End Sub

    Private Sub DataGridProject_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGridProject.ItemDataBound
        Select Case e.Item.Cells(4).Text
            Case "0"
                e.Item.Cells(4).Text = "未测"
            Case "1"
                e.Item.Cells(4).Text = "在测"
            Case "2"
                e.Item.Cells(4).Text = "结束"
        End Select
        Select Case e.Item.Cells(5).Text
            Case "0"
                e.Item.Cells(5).Text = "不合格"
            Case "1"
                e.Item.Cells(5).Text = "合格"
            Case "2"
                e.Item.Cells(5).Text = "不判定"
        End Select
        Select Case e.Item.Cells(13).Text
            Case "0"
                e.Item.Cells(13).Text = "否"
            Case "1"
                e.Item.Cells(13).Text = "是"
        End Select
        Select Case e.Item.Cells(14).Text
            Case "0"
                e.Item.Cells(14).Text = "否"
            Case "1"
                e.Item.Cells(14).Text = "是"
        End Select
    End Sub
End Class