formtaskbook.aspx.vb

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

Imports System.Data.SqlClient
Public Class FormTaskBook
    Inherits clsTaskBook
    Protected WithEvents tablehead As System.Web.UI.HtmlControls.HtmlTable
    Protected WithEvents CSDD As System.Web.UI.WebControls.DropDownList
    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 XDRQ As System.Web.UI.WebControls.TextBox
    Protected WithEvents WCHRQ As System.Web.UI.WebControls.TextBox
    Protected WithEvents BXXH As System.Web.UI.WebControls.TextBox
    Protected WithEvents SHB As System.Web.UI.WebControls.DropDownList
    Protected WithEvents YPJD As System.Web.UI.WebControls.DropDownList
    Protected WithEvents MDMSH As System.Web.UI.WebControls.TextBox
    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 BXBH As System.Web.UI.WebControls.TextBox
    Protected WithEvents tablepara As System.Web.UI.HtmlControls.HtmlTable
    Protected WithEvents Tablemainpart As System.Web.UI.HtmlControls.HtmlTable
    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 DJ As System.Web.UI.WebControls.DropDownList
    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 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 ggZHKB As System.Web.UI.WebControls.DropDownList
    Protected WithEvents gyZHKB 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 ggLNQ As System.Web.UI.WebControls.DropDownList
    Protected WithEvents gyLNQ 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 ggDCF As System.Web.UI.WebControls.DropDownList
    Protected WithEvents gyDCF As System.Web.UI.WebControls.DropDownList
    Protected WithEvents gyWKQ 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 ggLD As System.Web.UI.WebControls.DropDownList
    Protected WithEvents gyLD 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 ggDKG As System.Web.UI.WebControls.DropDownList
    Protected WithEvents gyDKG 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 SHYMD 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 LXST As System.Web.UI.WebControls.CheckBox
    Protected WithEvents SHFJJ As System.Web.UI.WebControls.CheckBox
    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 XD As System.Web.UI.WebControls.Button
    Protected WithEvents DY As System.Web.UI.WebControls.HyperLink
    Protected WithEvents Tablespecialitem As System.Web.UI.HtmlControls.HtmlTable
    Protected WithEvents txtBeiZhu As System.Web.UI.WebControls.TextBox
    Protected WithEvents TableBeiZhu As System.Web.UI.HtmlControls.HtmlTable    
    Protected WithEvents txtSHYMD As System.Web.UI.WebControls.TextBox
    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 lblmessage As System.Web.UI.WebControls.Label
    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
        If Not Page.IsPostBack Then
            '绑定商标
            DisplayBrand(SHB)
            '绑定消费地区
            DisplayConsumeAddress(XFDQ)
            '绑定测试地点
            DisplayAddress(CSDD)
            '设置测试地点的默认值
            For intLoopIndex = 0 To CSDD.Items.Count - 1
                If CSDD.Items(intLoopIndex).Text.Trim = Session("UserAddress") Then
                    CSDD.Items(intLoopIndex).Selected = True
                    Exit For
                End If
            Next
            '下达日期
            XDRQ.Text = DateTime.Now.ToString("yyyy-MM-dd")
            '冰箱提供者
            BXTZHZH.Text = Session("UserId")
            '制冷剂            
            DisplayZhiLengJi(ZHLJ)
            '发泡剂
            DisplayFaPaoJi(FPJ)
            '绑定主关部件
            '压机
            DisplayZhuGuanJianGuiGe(ggYJ, "压机")
            DisplayZhuGuanJianSupply(gyYJ, "压机")
            '温控器
            DisplayZhuGuanJianGuiGe(ggWKQ, "温控器")
            DisplayZhuGuanJianSupply(gyWKQ, "温控器")
            '主控板
            DisplayZhuGuanJianGuiGe(ggZHKB, "主控板")
            DisplayZhuGuanJianSupply(gyZHKB, "主控板")
            '冷藏蒸发器
            DisplayZhuGuanJianGuiGe(ggLC, "冷藏蒸发器")
            DisplayZhuGuanJianSupply(gyLC, "冷藏蒸发器")
            '冷冻蒸发器
            DisplayZhuGuanJianGuiGe(ggLD, "冷冻蒸发器")
            DisplayZhuGuanJianSupply(gyLD, "冷冻蒸发器")
            '加热丝
            DisplayZhuGuanJianGuiGe(ggJRS, "加热丝")
            DisplayZhuGuanJianSupply(gyJRS, "加热丝")
            '冷凝器
            DisplayZhuGuanJianGuiGe(ggLNQ, "冷凝器")
            DisplayZhuGuanJianSupply(gyLNQ, "冷凝器")
            '干燥过滤器
            DisplayZhuGuanJianGuiGe(ggGLQ, "干燥过滤器")
            DisplayZhuGuanJianSupply(gyGLQ, "干燥过滤器")
            '风机
            DisplayZhuGuanJianGuiGe(ggFJ, "风机")
            DisplayZhuGuanJianSupply(gyFJ, "风机")
            '灯开关
            DisplayZhuGuanJianGuiGe(ggDKG, "灯开关")
            DisplayZhuGuanJianSupply(gyDKG, "灯开关")
            '电磁阀
            DisplayZhuGuanJianGuiGe(ggDCF, "电磁阀")
            DisplayZhuGuanJianSupply(gyDCF, "电磁阀")
            '试验目的
            DisplayTestObj(SHYMD)
            SHYMD.Items.Add("其它")
            SHYMD.Items.Add("")
            SHYMD.Items(SHYMD.Items.Count - 1).Selected = True
            '实验项目
            PubStrSql = "TestProject.StandardSerial=StandardSerial.StandardSerial and" _
            & " StandardSerial.StandardClass=Standard.StandardClass and" _
            & " TestProject.MethodChecked=1 and TestProject.StandardChecked=1" _
            & " and TestProject.testobj='" & SHYMD.SelectedItem.Text.Trim & "'" _
            & " and Standard.ConsumArea like '%" & XFDQ.SelectedItem.Text.Trim & "%'"
            Select Case BXMCH.SelectedItem.Text.Trim
                Case "家用制冷器具冷藏箱"
                    PubStrSql += " and lcx=1"
                Case "家用制冷器具冷冻箱"
                    PubStrSql += " and ldx=1"
                Case "家用制冷器具冷藏冷冻箱"
                    PubStrSql += " and lcldx=1"
                Case "家用制冷器具无霜冷藏箱"
                    PubStrSql += " and Wslcx=1"
                Case "家用制冷器具无霜冷冻箱"
                    PubStrSql += " and Wsldx=1"
                Case "家用制冷器具无霜冷藏冷冻箱"
                    PubStrSql += " and Wslcldx=1"
                Case "家用制冷器具无霜冷冻食品储藏箱"
                    PubStrSql += " and Wsldspccx=1"
                Case "家用制冷器具无霜食品冷冻箱"
                    PubStrSql += " and Wsspldx=1"
            End Select
            Session("tempPubStrSql") = Replace(PubStrSql, "TestProject", "T2")
            PubStrSql += " order by TestProject.StandardSerial"
            GetProjectDataSet(PubStrSql) '取得实验项目
            dgTestProject.DataSource = PubDataSet.Tables("testproject").DefaultView
            dgTestProject.DataBind()
        End If
    End Sub

    Private Sub SHYMD_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SHYMD.SelectedIndexChanged
        '显示该实验目的对应的实验项目
        Dim tempString As String
        If SHYMD.SelectedItem.Text.Trim <> "其它" Then
            PubStrSql = "TestProject.StandardSerial=StandardSerial.StandardSerial and" _