testproject.aspx.vb

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

Imports System.Data.SqlClient
Public Class TestProject
    Inherits clsBiz
    Protected WithEvents DDLTestproject As System.Web.UI.WebControls.DropDownList
    Protected WithEvents TxtNewTestProject As System.Web.UI.WebControls.TextBox
    Protected WithEvents TxtNewPeriod As System.Web.UI.WebControls.TextBox
    Protected WithEvents btnDelCurrentProject As System.Web.UI.HtmlControls.HtmlInputButton
    Protected WithEvents TxtModifyAllTestProject As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RegularExpressionValidator1 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents VALNewProject As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents VALNewPeriodNum As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents VALModifyAllProject As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents VALNewPeriod As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents CBTypeN As System.Web.UI.WebControls.CheckBox
    Protected WithEvents CBTypeSN As System.Web.UI.WebControls.CheckBox
    Protected WithEvents CBTypeT As System.Web.UI.WebControls.CheckBox
    Protected WithEvents CBTypeST As System.Web.UI.WebControls.CheckBox
    Protected WithEvents CBAllProjectTypeN As System.Web.UI.WebControls.CheckBox
    Protected WithEvents CBAllProjectTypeSN As System.Web.UI.WebControls.CheckBox
    Protected WithEvents CBAllProjectTypeT As System.Web.UI.WebControls.CheckBox
    Protected WithEvents CBAllProjectTypeST As System.Web.UI.WebControls.CheckBox
    Protected WithEvents drpStandardClass As System.Web.UI.WebControls.DropDownList
    Protected WithEvents drpStandardSerial As System.Web.UI.WebControls.DropDownList
    Protected WithEvents drpTestObject As System.Web.UI.WebControls.DropDownList
    Protected WithEvents btnAddNewTestProject As System.Web.UI.WebControls.Button
    Protected WithEvents btnAddToCurrentProject As System.Web.UI.WebControls.Button
    Protected WithEvents btnDelAllTestProject As System.Web.UI.WebControls.Button
    Protected WithEvents btnModifyAllProject As System.Web.UI.HtmlControls.HtmlInputButton    
    Protected WithEvents lblErrorMessage As System.Web.UI.WebControls.Label
    Protected WithEvents selectAllTestProject As System.Web.UI.HtmlControls.HtmlSelect
    Protected WithEvents selectCurrentPeriod As System.Web.UI.HtmlControls.HtmlSelect
    Protected WithEvents LinkBtnModifyClimateType As System.Web.UI.WebControls.Button
    Protected WithEvents BtnClimateType As System.Web.UI.WebControls.LinkButton
    Protected WithEvents PanelClimate As System.Web.UI.WebControls.Panel
    Protected WithEvents selectCurrentTestProject As System.Web.UI.HtmlControls.HtmlSelect

#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

    Sub DisplayAllTestProject() '显示所有的项目
        selectAllTestProject.Items.Clear()
        PubStrSql = "select DISTINCT project from testProject order by project"
        PubDataAdapter.SelectCommand.CommandText = PubStrSql
        PubDataAdapter.Fill(PubDataSet, "allTestproject")
        selectAllTestProject.DataSource = PubDataSet.Tables("allTestproject")
        selectAllTestProject.DataTextField = "project"
        selectAllTestProject.DataValueField = "project"
        selectAllTestProject.DataBind()
    End Sub
    Private Sub DisplayCurrentTestProject()  '显示当前实验目的的项目和该项目的周期
        Try
            selectCurrentTestProject.Items.Clear()
            selectCurrentPeriod.Items.Clear()
            PubStrSql = "select distinct project,period from testproject " _
            & "where standardserial='" & drpStandardSerial.SelectedItem.Text.Trim _
            & "' AND testObj='" & drpTestObject.SelectedItem.Text.Trim & " ' "
            PubDataAdapter.SelectCommand.CommandText = PubStrSql
            PubDataAdapter.Fill(PubDataSet, "testProject")
            selectCurrentTestProject.DataSource = PubDataSet.Tables("testProject")
            selectCurrentTestProject.DataBind()
            selectCurrentPeriod.DataSource = PubDataSet.Tables("testProject")
            selectCurrentPeriod.DataTextField = "period"
            selectCurrentPeriod.DataValueField = "period"
            selectCurrentPeriod.DataBind()
        Catch eSql As Exception
            lblErrorMessage.Text = eSql.ToString()
        End Try
    End Sub

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not IsPostBack Then
            Response.Cache.SetNoStore()
            '显示标准类别
            DisplayStandardClass(drpStandardClass)
            '显示标准类别中的标准编号
            DisplayStandardSerial(drpStandardClass.SelectedItem.Text.Trim, drpStandardSerial)
            '显示标准编号中的实验目的
            DisplayTestObj(drpStandardSerial.SelectedItem.Text.Trim, drpTestObject)
            '显示所有的实验项目
            DisplayAllTestProject()
            '显示当前实验目的的实验项目和周期
            DisplayCurrentTestProject()
        End If
    End Sub


    Private Sub drpStandardClass_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles drpStandardClass.SelectedIndexChanged
        '显示标准类别中的标准编号
        DisplayStandardSerial(drpStandardClass.SelectedItem.Text.Trim, drpStandardSerial)
        '显示标准编号中的实验目的
        DisplayTestObj(drpStandardSerial.SelectedItem.Text.Trim, drpTestObject)
        '显示当前实验目的的实验项目和周期
        DisplayCurrentTestProject()
    End Sub

    Private Sub drpStandardSerial_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles drpStandardSerial.SelectedIndexChanged
        '显示标准编号中的实验目的
        DisplayTestObj(drpStandardSerial.SelectedItem.Text.Trim, drpTestObject)
        '显示当前实验目的的实验项目和周期
        DisplayCurrentTestProject()
    End Sub

    Private Sub btnAddNewTestProject_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddNewTestProject.Click
        '向当前实验目的中增加实验项目
        VALNewPeriod.Enabled = True
        VALNewProject.Enabled = True
        VALNewPeriodNum.Enabled = True
        VALNewProject.Validate()
        VALNewPeriod.Validate()
        VALNewPeriodNum.Validate()
        If Not (VALNewProject.IsValid And VALNewPeriod.IsValid And VALNewPeriodNum.IsValid) Then
            Exit Sub
        End If
        '通过有效性验证
        With PubSqlCmd
            .CommandText = "insert into TestProject (project,standardserial,testObj," _
            & "period,MethodTemplate,MethodChecked,StandardTemplate,StandardChecked,N,SN,T,ST)" _
            & "values (@testproject,@standardserial,@testObj,@period,@MethodTemplate," _
            & "@MethodChecked,@StandardTemplate,@StandardChecked,@N,@SN,@T,@ST)"
            .Parameters.Add("@testproject", TxtNewTestProject.Text.Trim())
            .Parameters.Add("@standardSerial", drpStandardSerial.SelectedItem.Text.Trim())
            .Parameters.Add("@testobj", drpTestObject.SelectedItem.Text.Trim())
            .Parameters.Add("@period", TxtNewPeriod.Text.Trim())
        End With
        '生成要求模板文件名和方法模板文件名           
        Dim yaoqiu As String = drpStandardSerial.SelectedItem.Text.Trim() & "_" _
        & TxtNewTestProject.Text.Trim() & "_yaoqiu.xlt"
        Dim fangfa As String = drpStandardSerial.SelectedItem.Text.Trim() & "_" _
        & TxtNewTestProject.Text.Trim() & "_fangfa.xlt"
        With PubSqlCmd
            .Parameters.Add("@StandardTemplate", yaoqiu)
            .Parameters.Add("@StandardChecked", "0")
            .Parameters.Add("@MethodTemplate", fangfa)
            .Parameters.Add("@MethodChecked", "0")
            .Parameters.Add("@N", CBTypeN.Checked)
            .Parameters.Add("@SN", CBTypeSN.Checked)
            .Parameters.Add("@T", CBTypeT.Checked)
            .Parameters.Add("@ST", CBTypeST.Checked)
            Try
                .ExecuteNonQuery()
            Catch eSQL As SqlException
                lblErrorMessage.Text = "*<u>" & TxtNewTestProject.Text.Trim() & "</u>" _
                & "已经存放到数据库中，请使用其它名称"
            End Try
        End With
        '显示所有的实验项目
        DisplayAllTestProject()
        '显示当前目的的实验项目和周期
        DisplayCurrentTestProject()
    End Sub


    Private Sub btnAddToCurrentProject_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddToCurrentProject.Click
        Dim strProjectName, strStandardSerial As String
        If selectAllTestProject.SelectedIndex <> -1 Then
            '取得该项目的信息
            strProjectName = selectAllTestProject.Items(selectAllTestProject.SelectedIndex).Value