taskbookdetail.aspx.vb

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

Imports System.Data.SqlClient
Public Class TaskBookDetail
    Inherits clsTaskBook
    Protected WithEvents BXBH As System.Web.UI.WebControls.TextBox
    Protected WithEvents XDRQ As System.Web.UI.WebControls.TextBox
    Protected WithEvents WCHRQ As System.Web.UI.WebControls.TextBox
    Protected WithEvents YPJD As System.Web.UI.WebControls.DropDownList
    Protected WithEvents MDMSH As System.Web.UI.WebControls.TextBox
    Protected WithEvents ZHLJ As System.Web.UI.WebControls.DropDownList
    Protected WithEvents GZHL As System.Web.UI.WebControls.TextBox
    Protected WithEvents YXRJ As System.Web.UI.WebControls.TextBox
    Protected WithEvents HDL As System.Web.UI.WebControls.TextBox
    Protected WithEvents LDNL As System.Web.UI.WebControls.TextBox
    Protected WithEvents DYPL As System.Web.UI.WebControls.TextBox
    Protected WithEvents GL As System.Web.UI.WebControls.TextBox
    Protected WithEvents DJ As System.Web.UI.WebControls.DropDownList
    Protected WithEvents FPJ As System.Web.UI.WebControls.DropDownList
    Protected WithEvents ggYJ As System.Web.UI.WebControls.DropDownList
    Protected WithEvents gyYJ As System.Web.UI.WebControls.DropDownList
    Protected WithEvents ggWKQ As System.Web.UI.WebControls.DropDownList
    Protected WithEvents gyWKQ As System.Web.UI.WebControls.DropDownList
    Protected WithEvents ggZHKB As System.Web.UI.WebControls.DropDownList
    Protected WithEvents gyZHKB As System.Web.UI.WebControls.DropDownList
    Protected WithEvents ggLC As System.Web.UI.WebControls.DropDownList
    Protected WithEvents gyLC As System.Web.UI.WebControls.DropDownList
    Protected WithEvents ggJRS As System.Web.UI.WebControls.DropDownList
    Protected WithEvents gyJRS As System.Web.UI.WebControls.DropDownList
    Protected WithEvents ggLD As System.Web.UI.WebControls.DropDownList
    Protected WithEvents gyLD As System.Web.UI.WebControls.DropDownList
    Protected WithEvents ggLNQ As System.Web.UI.WebControls.DropDownList
    Protected WithEvents gyLNQ As System.Web.UI.WebControls.DropDownList
    Protected WithEvents ggGLQ As System.Web.UI.WebControls.DropDownList
    Protected WithEvents gyGLQ As System.Web.UI.WebControls.DropDownList
    Protected WithEvents ggFJ As System.Web.UI.WebControls.DropDownList
    Protected WithEvents gyFJ As System.Web.UI.WebControls.DropDownList
    Protected WithEvents ggDKG As System.Web.UI.WebControls.DropDownList
    Protected WithEvents gyDKG As System.Web.UI.WebControls.DropDownList
    Protected WithEvents ggDCF As System.Web.UI.WebControls.DropDownList
    Protected WithEvents gyDCF As System.Web.UI.WebControls.DropDownList
    Protected WithEvents XCHP As System.Web.UI.WebControls.RadioButton
    Protected WithEvents WT As System.Web.UI.WebControls.RadioButton
    Protected WithEvents XSH As System.Web.UI.WebControls.RadioButton
    Protected WithEvents QT As System.Web.UI.WebControls.RadioButton
    Protected WithEvents XFDQ As System.Web.UI.WebControls.DropDownList
    Protected WithEvents BXMCH As System.Web.UI.WebControls.DropDownList
    Protected WithEvents LXN As System.Web.UI.WebControls.CheckBox
    Protected WithEvents LXSN As System.Web.UI.WebControls.CheckBox
    Protected WithEvents LXT As System.Web.UI.WebControls.CheckBox
    Protected WithEvents LXST As System.Web.UI.WebControls.CheckBox
    Protected WithEvents SHFJJ As System.Web.UI.WebControls.CheckBox
    Protected WithEvents SHYMD As System.Web.UI.WebControls.DropDownList
    Protected WithEvents txtSHYMD As System.Web.UI.WebControls.TextBox
    Protected WithEvents TBPRoject1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TBMethod1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TBPeriod1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TBPRoject2 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TBMethod2 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TBPeriod2 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TBPRoject3 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TBMethod3 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TBPeriod3 As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtBeiZhu As System.Web.UI.WebControls.TextBox
    Protected WithEvents XD As System.Web.UI.WebControls.Button
    Protected WithEvents paneladd As System.Web.UI.WebControls.Panel
    Protected WithEvents tablehead As System.Web.UI.HtmlControls.HtmlTable
    Protected WithEvents tablepara As System.Web.UI.HtmlControls.HtmlTable
    Protected WithEvents Tablemainpart As System.Web.UI.HtmlControls.HtmlTable
    Protected WithEvents Tablespecialitem As System.Web.UI.HtmlControls.HtmlTable
    Protected WithEvents TableBeiZhu As System.Web.UI.HtmlControls.HtmlTable
    Protected WithEvents Table1 As System.Web.UI.HtmlControls.HtmlTable
    Protected WithEvents RequiredBXTGZH As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredSHYBM As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredXDRQ As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredWCHRQ As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredBXXH As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredBXCHD As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredMDMSH As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredCHYJSH As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredCHYYJ As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredGZHL As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredYXRJ As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredHDL As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredLDNL As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredDYPL As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredGL As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredDest As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RangeXDRQ As System.Web.UI.WebControls.RangeValidator
    Protected WithEvents RangeWCHRQ As System.Web.UI.WebControls.RangeValidator
    Protected WithEvents RangeTB1 As System.Web.UI.WebControls.RangeValidator
    Protected WithEvents RangeTB2 As System.Web.UI.WebControls.RangeValidator
    Protected WithEvents RangeTB3 As System.Web.UI.WebControls.RangeValidator
    Protected WithEvents ValidationSummary1 As System.Web.UI.WebControls.ValidationSummary
    Protected WithEvents txtResult As System.Web.UI.WebControls.TextBox
    Protected WithEvents CSDD As System.Web.UI.WebControls.DropDownList
    Protected WithEvents SHYBH As System.Web.UI.WebControls.TextBox
    Protected WithEvents BXTZHZH As System.Web.UI.WebControls.TextBox
    Protected WithEvents SHYBM As System.Web.UI.WebControls.TextBox
    Protected WithEvents BXSHL As System.Web.UI.WebControls.DropDownList
    Protected WithEvents BXXH As System.Web.UI.WebControls.TextBox
    Protected WithEvents SHB As System.Web.UI.WebControls.DropDownList
    Protected WithEvents SHCHDZH As System.Web.UI.WebControls.DropDownList
    Protected WithEvents CHYDD As System.Web.UI.WebControls.DropDownList
    Protected WithEvents CHYJSH As System.Web.UI.WebControls.TextBox
    Protected WithEvents CHYYJ As System.Web.UI.WebControls.TextBox
    Protected WithEvents LblJiaJi As System.Web.UI.WebControls.Label
    Protected WithEvents lblmessage As System.Web.UI.WebControls.Label
    Protected WithEvents ttYJ As System.Web.UI.WebControls.TextBox
    Protected WithEvents tyYJ As System.Web.UI.WebControls.TextBox
    Protected WithEvents ttWKQ As System.Web.UI.WebControls.TextBox
    Protected WithEvents tyWKQ As System.Web.UI.WebControls.TextBox
    Protected WithEvents ttZHKB As System.Web.UI.WebControls.TextBox
    Protected WithEvents tyZHKB As System.Web.UI.WebControls.TextBox
    Protected WithEvents ttLC As System.Web.UI.WebControls.TextBox
    Protected WithEvents tyLC As System.Web.UI.WebControls.TextBox
    Protected WithEvents ttJRS As System.Web.UI.WebControls.TextBox
    Protected WithEvents tyJRS As System.Web.UI.WebControls.TextBox
    Protected WithEvents ttLD As System.Web.UI.WebControls.TextBox
    Protected WithEvents tyLD As System.Web.UI.WebControls.TextBox
    Protected WithEvents ttLNQ As System.Web.UI.WebControls.TextBox
    Protected WithEvents tyLNQ As System.Web.UI.WebControls.TextBox
    Protected WithEvents ttGLQ As System.Web.UI.WebControls.TextBox
    Protected WithEvents tyGLQ As System.Web.UI.WebControls.TextBox
    Protected WithEvents ttFJ As System.Web.UI.WebControls.TextBox
    Protected WithEvents tyFJ As System.Web.UI.WebControls.TextBox
    Protected WithEvents ttDKG As System.Web.UI.WebControls.TextBox
    Protected WithEvents tyDKG As System.Web.UI.WebControls.TextBox
    Protected WithEvents ttDCF As System.Web.UI.WebControls.TextBox
    Protected WithEvents tyDCF As System.Web.UI.WebControls.TextBox
    Protected WithEvents BXCHD As System.Web.UI.WebControls.DropDownList    
    Protected WithEvents RegularExpressionWCHRQ As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents RegularexpressionXDRQ As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents dgTestProject 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
    Protected ErrorMessage As String
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim strAddress, strSerial As String
        Dim mytext As String
        Dim objtextbox As TextBox
        Dim tempBool As Boolean
        strAddress = Request.Params("Address")
        strSerial = Request.Params("Serial")
        If Not Page.IsPostBack Then
            '绑定测试地点
            DisplayAddress(CSDD)
            '绑定消费地区
            DisplayConsumeAddress(XFDQ)
            '绑定商标
            DisplayBrand(SHB)
            '冰箱提供者
            BXTZHZH.Text = Session("UserId")
            '制冷剂
            DisplayZhiLengJi(ZHLJ)
            '发泡剂
            DisplayFaPaoJi(FPJ)
            '绑定主关部件
            PubStrSql = "select * from taskbook where testid='" & strSerial & "'" _
            & " and address='" & strAddress & "'"
            PubDataAdapter.SelectCommand.CommandText = PubStrSql
            PubDataAdapter.Fill(PubDataSet, "TempTable")
            If (Session("UserType") = "委托方" And _
            (PubDataSet.Tables("TempTable").Rows(0)("AcceptFlag") <> 1 _
            Or PubDataSet.Tables("TempTable").Rows(0)("Checked") = 3)) Then
                '压机
                DisplayZhuGuanJianGuiGe(ggYJ, "压机")
                DisplayZhuGuanJianSupply(gyYJ, "压机")
                ttYJ.Visible = False
                tyYJ.Visible = False
                '温控器
                DisplayZhuGuanJianGuiGe(ggWKQ, "温控器")
                DisplayZhuGuanJianSupply(gyWKQ, "温控器")
                ttWKQ.Visible = False
                tyWKQ.Visible = False
                '主控板
                DisplayZhuGuanJianGuiGe(ggZHKB, "主控板")
                DisplayZhuGuanJianSupply(gyZHKB, "主控板")
                ttZHKB.Visible = False
                tyZHKB.Visible = False
                '冷藏蒸发器
                DisplayZhuGuanJianGuiGe(ggLC, "冷藏蒸发器")
                DisplayZhuGuanJianSupply(gyLC, "冷藏蒸发器")
                ttLC.Visible = False
                tyLC.Visible = False
                '冷冻蒸发器
                DisplayZhuGuanJianGuiGe(ggLD, "冷冻蒸发器")
                DisplayZhuGuanJianSupply(gyLD, "冷冻蒸发器")
                ttLD.Visible = False
                tyLD.Visible = False
                '加热丝
                DisplayZhuGuanJianGuiGe(ggJRS, "加热丝")
                DisplayZhuGuanJianSupply(gyJRS, "加热丝")
                ttJRS.Visible = False
                tyJRS.Visible = False
                '冷凝器
                DisplayZhuGuanJianGuiGe(ggLNQ, "冷凝器")
                DisplayZhuGuanJianSupply(gyLNQ, "冷凝器")
                ttLNQ.Visible = False
                tyLNQ.Visible = False
                '干燥过滤器
                DisplayZhuGuanJianGuiGe(ggGLQ, "干燥过滤器")
                DisplayZhuGuanJianSupply(gyGLQ, "干燥过滤器")
                ttGLQ.Visible = False
                tyGLQ.Visible = False
                '风机
                DisplayZhuGuanJianGuiGe(ggFJ, "风机")
                DisplayZhuGuanJianSupply(gyFJ, "风机")
                ttFJ.Visible = False
                tyFJ.Visible = False
                '灯开关
                DisplayZhuGuanJianGuiGe(ggDKG, "灯开关")
                DisplayZhuGuanJianSupply(gyDKG, "灯开关")
                ttDKG.Visible = False
                tyDKG.Visible = False
                '电磁阀
                DisplayZhuGuanJianGuiGe(ggDCF, "电磁阀")
                DisplayZhuGuanJianSupply(gyDCF, "电磁阀")
                ttDCF.Visible = False
                tyDCF.Visible = False
            End If
            '试验目的
            DisplayTestObj(SHYMD)
            SHYMD.Items.Add("其它")
            '任务书内容
            PubStrSql = "select * from taskbook where testid='" & strSerial & "'" _
            & " and address='" & strAddress & "'"
            PubDataAdapter.SelectCommand.CommandText = PubStrSql
            PubDataAdapter.Fill(PubDataSet, "tempTable")
            With PubDataSet.Tables("tempTable")
                For intLoopIndex = 0 To CSDD.Items.Count - 1
                    If CSDD.Items(intLoopIndex).Text.Trim = Trim(.Rows(0)("address")) Then
                        CSDD.Items(intLoopIndex).Selected = True
                        Exit For
                    End If
                Next
                '任务书编号
                SHYBH.Text = Trim(.Rows(0)("TestId"))
                '冰箱提供着
                BXTZHZH.Text = Trim(.Rows(0)("IceProvider"))
                '要求实验部门
                SHYBM.Text = Trim(.Rows(0)("TestDep"))
                '冰箱数量
                For intLoopIndex = 0 To BXSHL.Items.Count - 1
                    If BXSHL.Items(intLoopIndex).Text.Trim = CStr(.Rows(0)("IceNum")) Then
                        BXSHL.Items(intLoopIndex).Selected = True
                        Exit For
                    End If
                Next
                '型号
                BXXH.Text = Trim(.Rows(0)("IceModel"))
                '冰箱编号
                BXBH.Text = Trim(.Rows(0)("IceSerial"))
                '下达日期
                XDRQ.Text = Trim(.Rows(0)("TestXiaDa"))
                '申请完成日期
                WCHRQ.Text = Trim(.Rows(0)("TestShengQing"))
                '冰箱生产地点
                For intLoopIndex = 0 To SHCHDZH.Items.Count - 1
                    If SHCHDZH.Items(intLoopIndex).Text.Trim = Trim(.Rows(0)("IceMakePos")) Then
                        SHCHDZH.Items(intLoopIndex).Selected = True
                        Exit For
                    End If
                Next
                '样品阶段
                For intLoopIndex = 0 To YPJD.Items.Count - 1
                    If YPJD.Items(intLoopIndex).Text.Trim = Trim(.Rows(0)("SampleStep")) Then
                        YPJD.Items(intLoopIndex).Selected = True
                    End If
                Next
                '实验目的描述
                MDMSH.Text = Trim(.Rows(0)("TestObjectDescription"))
                tempBool = False
                '冰箱产地
                For intLoopIndex = 0 To BXCHD.Items.Count - 1
                    If BXCHD.Items(intLoopIndex).Text.Trim = Trim(.Rows(0)("ConsumeArea")) Then
                        BXCHD.Items(intLoopIndex).Selected = True