testobj.aspx.vb

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

Imports System.Data.SqlClient
Public Class TestObj
    Inherits clsBiz
    Protected WithEvents TxtNewTestObject As System.Web.UI.WebControls.TextBox
    Protected WithEvents TxtModifyTestObject As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents TxtModifyAllTestObject As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents btnModify As System.Web.UI.HtmlControls.HtmlInputButton
    Protected WithEvents drpStandardClass As System.Web.UI.WebControls.DropDownList
    Protected WithEvents drpStandardSerial As System.Web.UI.WebControls.DropDownList
    Protected WithEvents btnAddNewTestObject As System.Web.UI.WebControls.Button
    Protected WithEvents Validator_NewObject As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents selectAllTestObject As System.Web.UI.HtmlControls.HtmlSelect
    Protected WithEvents selectCurrentTestObject As System.Web.UI.HtmlControls.HtmlSelect
    Protected WithEvents btnDelCurrentObject As System.Web.UI.HtmlControls.HtmlInputButton
    Protected WithEvents btnAddToCurrentObject As System.Web.UI.WebControls.Button
    Protected WithEvents btnDelAllTestObject As System.Web.UI.WebControls.Button
    Protected WithEvents btnModifyLeft As System.Web.UI.HtmlControls.HtmlInputButton
    Protected WithEvents lblErrorMessage As System.Web.UI.WebControls.Label
    Protected WithEvents panelErrorMessage As System.Web.UI.WebControls.Panel
#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
            Response.Cache.SetNoStore() '禁缓存            
            PubStrSql = "select distinct standardClass from Standard"
            PubDataAdapter.SelectCommand.CommandText = PubStrSql
            PubDataAdapter.Fill(PubDataSet, "standardClass") '取得标准类别
            If PubDataSet.Tables("standardClass").Rows.Count = 0 Then
                PubDataSet.Tables.Add("standardSerial")
                PubDataSet.Tables("standardserial").Columns.Add("standardserial")
                PubDataSet.Tables.Add("testobject")
                PubDataSet.Tables("testobject").Columns.Add("testobject")
                PubDataSet.Tables.Add("allTestObject")
                PubDataSet.Tables("allTestObject").Columns.Add("testobject")
                lblErrorMessage.Text = "尚无任何类别，请单击" _
                & "<A href='standardMaintenance.aspx'>这里</A>添加类别"
            Else '显示类别以及该类别的实验项目
                Dim strFirstClass As String
                strFirstClass = PubDataSet.Tables("standardClass").Rows(0).Item("standardClass")
                PubStrSql = "select distinct standardserial from standardserial" _
                & " where standardClass='" & strFirstClass & "'"
                PubDataAdapter.SelectCommand.CommandText = PubStrSql
                PubDataAdapter.Fill(PubDataSet, "standardserial")
                If PubDataSet.Tables("standardserial").Rows.Count = 0 Then
                    PubDataSet.Tables.Add("testobject")
                    PubDataSet.Tables("testobject").Columns.Add("testobject")
                    PubDataSet.Tables.Add("allTestObject")
                    PubDataSet.Tables("allTestObject").Columns.Add("testobject")
                    lblErrorMessage.Text = "*在" & "<u>" & strFirstClass.Trim() _
                    & "</u>中没有任何标准，请单击<A href='standardMaintenance.aspx'>" _
                    & "这里</A>添加标准"
                Else '显示该类别的实验目的
                    strFirstClass = PubDataSet.Tables("standardserial").Rows(0).Item("standardserial")
                    PubStrSql = "select TestObject from testobj where standardserial='" _
                    & strFirstClass & "'"
                    PubDataAdapter.SelectCommand.CommandText = PubStrSql
                    PubDataAdapter.Fill(PubDataSet, "testObject")
                    '取得所有的实验目的
                    PubStrSql = "select DISTINCT TestObject from testObj "
                    PubDataAdapter.SelectCommand.CommandText = PubStrSql
                    PubDataAdapter.Fill(PubDataSet, "allTestObject")
                End If
            End If
            drpStandardClass.DataSource = PubDataSet.Tables("standardClass")
            drpStandardClass.DataBind()
            drpStandardSerial.DataSource = PubDataSet.Tables("standardserial")
            drpStandardSerial.DataBind()
            selectAllTestObject.DataSource = PubDataSet.Tables("allTestObject")
            selectAllTestObject.DataBind()
            selectCurrentTestObject.DataSource = PubDataSet.Tables("testObject")
            selectCurrentTestObject.DataBind()
        End If
    End Sub


    Private Sub drpStandardClass_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles drpStandardClass.SelectedIndexChanged
        '类别变化后显示该类别的标准编号
        Dim strFirstClass As String
        PubStrSql = "select distinct standardserial from standardserial" _
        & " where standardClass='" & drpStandardClass.SelectedItem.Text _
        & "' order by standardserial"
        PubDataAdapter.SelectCommand.CommandText = PubStrSql
        PubDataAdapter.Fill(PubDataSet, "standardserial")
        If PubDataSet.Tables("standardserial").Rows.Count = 0 Then
            PubDataSet.Tables.Add("testobject")
            PubDataSet.Tables("testobject").Columns.Add("testobject")
            PubDataSet.Tables.Add("allTestObject")
            PubDataSet.Tables("allTestObject").Columns.Add("testobject")
            lblErrorMessage.Text = "*在" & "<u>" & drpStandardClass.SelectedItem.Text.Trim() _
            & "</u>中没有任何标准，请单击<A href='standardMaintenance.aspx'>这里</A>添加标准"
        End If
        '显示标准编号
        drpStandardSerial.DataSource = PubDataSet.Tables("standardserial")
        drpStandardSerial.DataBind()
        '显示实验目的
        DisplayAllTestObj()
        DisplayCurrentTestObj()
    End Sub

    Private Sub drpStandardSerial_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles drpStandardSerial.SelectedIndexChanged
        '标准编号改变，显示和当前的标准编号对应的实验目的
        DisplayCurrentTestObj()
    End Sub

    Private Sub btnAddNewTestObject_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddNewTestObject.Click
        '添加新的实验目的
        PubStrSql = "insert into TestObj (testobject,standardserial,checked)" _
        & " values (@testObject,@standardserial,@checked)"
        With PubSqlCmd
            .CommandText = PubStrSql
            .Parameters.Add("@testObject", TxtNewTestObject.Text.Trim())
            .Parameters.Add("@standardSerial", drpStandardSerial.SelectedItem.Text.Trim())
            .Parameters.Add("@checked", "0")
        End With
        Try
            PubSqlCmd.ExecuteNonQuery()
        Catch eSQL As SqlException
            lblErrorMessage.Text = "*<u>" & drpStandardSerial.SelectedItem.Text.Trim() _
            & "</u>" & "编号下已经有" & "<u>" & TxtNewTestObject.Text.Trim() & "</u>" _
            & "，请使用其它名称"
        End Try
        DisplayAllTestObj()
        DisplayCurrentTestObj()
    End Sub

    Sub DisplayAllTestObj() '显示所有实验目的
        PubDataAdapter.SelectCommand.CommandText = "select DISTINCT TestObject from testObj order by TestObject"
        PubDataAdapter.Fill(PubDataSet, "allTestObject")
        selectAllTestObject.DataSource = PubDataSet.Tables("allTestObject")
        selectAllTestObject.DataBind()
    End Sub
    Sub DisplayCurrentTestObj() '显示当前标准编号的实验目的
        PubStrSql = "select TestObject from testobj where standardserial='" _
        & drpStandardSerial.SelectedItem.Text & "' order by TestObject"
        PubDataAdapter.SelectCommand.CommandText = PubStrSql
        PubDataAdapter.Fill(PubDataSet, "testObject")
        selectCurrentTestObject.DataSource = PubDataSet.Tables("testObject")
        selectCurrentTestObject.DataBind()
    End Sub
    Private Sub btnAddToCurrentObject_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddToCurrentObject.Click
        '从现有的实验目的中增加实验目的
        If selectAllTestObject.SelectedIndex <> -1 Then
            PubStrSql = "insert into TestObj (testobject,standardserial,checked)" _
            & " values (@testObject,@standardserial,@checked)"
            PubSqlCmd.CommandText = PubStrSql
            Dim strTestObj As String
            strTestObj = selectAllTestObject.Items(selectAllTestObject.SelectedIndex).Value
            With PubSqlCmd.Parameters
                .Add("@testObject", strTestObj.Trim())
                .Add("@standardSerial", drpStandardSerial.SelectedItem.Text)
                .Add("@checked", "0")
            End With
            Try
                PubSqlCmd.ExecuteNonQuery()
            Catch sqlEx As SqlException
                lblErrorMessage.Text = "*<u>" & drpStandardSerial.SelectedItem.Text.Trim() _
                & "</u>" & "编号下已经有" & "<u>" & strTestObj.Trim() & "</u>" _
                & "，请使用其它名称"
            End Try
            '显示当前标准的实验项目
            DisplayCurrentTestObj()
        End If
    End Sub

    Private Sub btnDelAllTestObject_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelAllTestObject.Click
        '从所有的实验目的中删除一个实验目的
        If selectAllTestObject.SelectedIndex <> -1 Then
            Dim strTestObject As String
            strTestObject = selectAllTestObject.Items(selectAllTestObject.SelectedIndex).Value()
            PubStrSql = "delete from TestObj where testobject=@testObject"
            PubSqlCmd.CommandText = PubStrSql
            PubSqlCmd.Parameters.Add(New SqlParameter("@testObject", strTestObject))
            PubSqlCmd.ExecuteNonQuery()
            '显示现有的实验目的
            DisplayAllTestObj()
            DisplayCurrentTestObj()
        End If
    End Sub


    Private Sub btnDelCurrentObject_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelCurrentObject.ServerClick
        If selectCurrentTestObject.SelectedIndex <> -1 Then '如果选中
            Dim strStandardserial As String
            strStandardserial = drpStandardSerial.SelectedItem.Text.Trim()
            PubStrSql = "delete from testobj where standardserial=@standardserial" _
            & " AND testobject=@testObjectToBeModified"
            PubSqlCmd.CommandText = PubStrSql
            Dim strTestObj As String
            '得到选中的实验目的
            strTestObj = selectCurrentTestObject.Items(selectCurrentTestObject.SelectedIndex).Value
            With PubSqlCmd.Parameters
                .Add("@testObjectToBeModified", strTestObj)
                .Add("@standardserial", strStandardserial)
            End With
            PubSqlCmd.ExecuteNonQuery()
            PubSqlCmd.Parameters.Clear()
            '显示现在剩余的实验目的
            DisplayAllTestObj()
            DisplayCurrentTestObj()
        End If
    End Sub


    Private Sub btnModify_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnModify.ServerClick
        '修改本标准的实验目的
        If selectCurrentTestObject.SelectedIndex <> -1 And TxtModifyTestObject.Value.Trim() <> "" Then
            Dim testObjectToBeModified As String
            testObjectToBeModified = _
            selectCurrentTestObject.Items(selectCurrentTestObject.SelectedIndex).Value.Trim()
            Dim testObject As String = TxtModifyTestObject.Value.Trim()
            Dim standardserial As String = drpStandardSerial.SelectedItem.Text.Trim()
            PubStrSql = "update testobj set testobject=@testObject where" _
            & " standardserial=@standardserial AND testobject=@testObjectToBeModified"
            PubSqlCmd.CommandText = PubStrSql
            With PubSqlCmd.Parameters
                .Add("@testObject", testObject)
                .Add("@testObjectToBeModified", testObjectToBeModified)
                .Add("@standardserial", standardserial)
            End With
            Try
                PubSqlCmd.ExecuteNonQuery()
            Catch eSQL As SqlException
                lblErrorMessage.Text = "*<u>" & drpStandardSerial.SelectedItem.Text.Trim() _
                & "</u>" & "编号下已经有" & "<u>" & TxtModifyTestObject.Value.Trim() _
                & "</u>" & "，请使用其它名称"
            End Try
            '显示所有实验目的和本标准的实验目的
            DisplayAllTestObj()
            DisplayCurrentTestObj()
        End If
    End Sub
    Private Sub btnModifyLeft_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnModifyLeft.ServerClick
        '在所有的实验目的中修改
        If selectAllTestObject.SelectedIndex <> -1 And TxtModifyAllTestObject.Value.Trim() <> "" Then
            Dim strTestObjectToBeModified As String
            strTestObjectToBeModified = selectAllTestObject.Items(selectAllTestObject.SelectedIndex).Value()
            Dim strTestObject As String = TxtModifyAllTestObject.Value.Trim()
            PubSqlCmd.CommandText = "update testobj set testobject=@testObject" _
            & " where testobject=@testObjectToBeModified"
            With PubSqlCmd.Parameters
                .Add(New SqlParameter("@testObject", strTestObject))
                .Add(New SqlParameter("@testObjectToBeModified", strTestObjectToBeModified))
            End With
            Try
                PubSqlCmd.ExecuteNonQuery()
            Catch eSQL As SqlException
                lblErrorMessage.Text = "*所有的试验目的中已经存在" & "<u>" _
                & TxtModifyAllTestObject.Value.Trim() _
                & "</u>" & "，请使用其它名称"
            End Try
            '显示修改后的结果
            DisplayAllTestObj()
            DisplayCurrentTestObj()
        End If
    End Sub
End Class