testproject.aspx.vb

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

            '从数据库中去的项目的周期和气候类型
            PubStrSql = "select top 1 period,N,SN,T,ST from TestProject" _
            & " where project='" & strProjectName & "' and (period<>0 or n=0 or sn=0 or t=0 or st=0)"
            PubSqlCmd.CommandText = PubStrSql
            PubSqlDataReader = PubSqlCmd.ExecuteReader(CommandBehavior.SingleRow)
            If PubSqlDataReader.Read() = False Then '原来没有这个项目
                With PubSqlCmd
                    .Parameters.Add("@period", 0)
                    .Parameters.Add("@N", 1)
                    .Parameters.Add("@SN", 1)
                    .Parameters.Add("@T", 1)
                    .Parameters.Add("@ST", 1)
                End With
            Else '原来有这个项目
                With PubSqlCmd
                    .Parameters.Add("@period", PubSqlDataReader.GetDouble(0))
                    .Parameters.Add("@N", PubSqlDataReader.GetByte(1))
                    .Parameters.Add("@SN", PubSqlDataReader.GetByte(2))
                    .Parameters.Add("@T", PubSqlDataReader.GetByte(3))
                    .Parameters.Add("@ST", PubSqlDataReader.GetByte(4))
                End With
                PubSqlDataReader.Close()
            End If
            PubStrSql = "insert into TestProject (project,standardserial,testObj,MethodTemplate," _
            & "MethodChecked,StandardTemplate,StandardChecked,period,N,SN,T,ST) " _
            & " values (@project,@standardserial,@testObj,@MethodTemplate," _
            & "@MethodChecked,@StandardTemplate,@StandardChecked,@period,@N,@SN,@T,@ST)"
            PubSqlCmd.CommandText = PubStrSql
            With PubSqlCmd.Parameters
                .Add("@project", strProjectName)
                .Add("@standardSerial", drpStandardSerial.SelectedItem.Text)
                .Add("@testobj", drpTestObject.SelectedItem.Text)
                .Add("@StandardTemplate", strStandardSerial & "_" & strProjectName & "_yaoqiu.xlt")
                .Add("@StandardChecked", "0")
                .Add("@MethodTemplate", strStandardSerial & "_" & strProjectName & "_fangfa.xlt")
                .Add("@MethodChecked", "0")
            End With
            Try
                PubSqlCmd.ExecuteNonQuery()
            Catch sqlEx As SqlException
                lblErrorMessage.Text = sqlEx.Message.Trim
            Finally
                PubSqlCmd.Parameters.Clear()
            End Try
            '显示当前实验目的的项目
            DisplayCurrentTestProject()
        End If
    End Sub

    Private Sub btnDelAllTestProject_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelAllTestProject.Click
        '在所有实验项目列表中删除实验项目
        If selectAllTestProject.SelectedIndex <> -1 Then
            '取得实验项目
            Dim strTestproject As String = selectAllTestProject.Items(selectAllTestProject.SelectedIndex).Value
            With PubSqlCmd
                .CommandText = "delete from testProject where project='" & strTestproject & "'"
                .ExecuteNonQuery()
            End With
            '显示所有的实验项目和当前的实验项目
            DisplayAllTestProject()
            DisplayCurrentTestProject()
        End If
    End Sub
    Private Sub btnDelCurrentProject_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelCurrentProject.ServerClick
        If selectCurrentTestProject.SelectedIndex <> -1 Then
            Dim strStandardserial As String = drpStandardSerial.SelectedItem.Text
            Dim strTestObject As String = drpTestObject.SelectedItem.Text
            Dim strTestProject As String
            strTestProject = selectCurrentTestProject.Items(selectCurrentTestProject.SelectedIndex).Value()
            '删除
            PubStrSql = "delete from testProject where standardserial=@standardserial" _
            & " AND project=@testproject AND testObj=@testObject"
            With PubSqlCmd
                .CommandText = PubStrSql
                .Parameters.Add(New SqlParameter("@testproject", strTestProject))
                .Parameters.Add(New SqlParameter("@standardserial", strStandardserial))
                .Parameters.Add(New SqlParameter("@testObject", strTestObject))
                .ExecuteNonQuery()
                .Parameters.Clear()
            End With
            '显示所有项目
            DisplayAllTestProject()
            DisplayCurrentTestProject()
        End If
    End Sub

    Private Sub drpTestObject_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles drpTestObject.SelectedIndexChanged
        '显示当前实验目的的实验项目和周期
        DisplayCurrentTestProject()
    End Sub



    Private Sub btnModifyAllProject_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnModifyAllProject.ServerClick
        '修改现有实验项目    
        VALModifyAllProject.Enabled = True
        VALModifyAllProject.Validate()
        If Not VALModifyAllProject.IsValid Then
            Exit Sub
        End If
        If selectAllTestProject.SelectedIndex <> -1 Then
            Dim testprojectToBeModified As String '要修改得实验项目
            Dim testproject As String = TxtModifyAllTestProject.Value.Trim() '修改后的实验项目
            testprojectToBeModified = selectAllTestProject.Items(selectAllTestProject.SelectedIndex).Value
            PubStrSql = "update testProject set project=@testproject " _
            & "where project=@testprojectToBeModified"
            With PubSqlCmd
                .CommandText = PubStrSql
                .Parameters.Add(New SqlParameter("@testproject", testproject))
                .Parameters.Add(New SqlParameter("@testprojectToBeModified", testprojectToBeModified))
                .ExecuteNonQuery()
            End With
            PubStrSql = "update taskbookprj set project=@testproject "
            PubStrSql = PubStrSql & "where project=@testprojectToBeModified"
            With PubSqlCmd
                .CommandText = PubStrSql
                .ExecuteNonQuery()
            End With
            '显示所有实验项目和现有实验项目
            DisplayAllTestProject()
            DisplayCurrentTestProject()
        End If
    End Sub

    Private Sub BtnClimateType_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClimateType.Click
        '取得当前项目的气候类型
        If selectAllTestProject.SelectedIndex <> -1 Then
            PanelClimate.Visible = True
            Dim strTestproject As String = selectAllTestProject.Items(selectAllTestProject.SelectedIndex).Value
            Dim blnClimateResult As Boolean '数据库中的气候类型
            '取得N型在数据库中的值
            PubStrSql = "select N from testProject where project='" & strTestproject & "'"
            PubSqlCmd.CommandText = PubStrSql
            blnClimateResult = PubSqlCmd.ExecuteScalar
            CBAllProjectTypeN.Checked = blnClimateResult
            '取得SN型在数据库中的值
            PubStrSql = "select SN from testProject where project='" & strTestproject & "'"
            PubSqlCmd.CommandText = PubStrSql
            blnClimateResult = PubSqlCmd.ExecuteScalar
            CBAllProjectTypeSN.Checked = blnClimateResult
            '取得T型在数据库中的值
            PubStrSql = "select T from testProject where project='" & strTestproject & "'"
            PubSqlCmd.CommandText = PubStrSql
            blnClimateResult = PubSqlCmd.ExecuteScalar
            CBAllProjectTypeT.Checked = blnClimateResult
            '取得ST型在数据库中的值
            PubStrSql = "select ST from testProject where project='" & strTestproject & "'"
            PubSqlCmd.CommandText = PubStrSql
            blnClimateResult = PubSqlCmd.ExecuteScalar
            CBAllProjectTypeST.Checked = blnClimateResult
        End If
    End Sub

    Private Sub LinkBtnModifyClimateType_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkBtnModifyClimateType.Click
        '修改项目的气候类型
        Dim Testproject As String
        Testproject = selectAllTestProject.Items(selectAllTestProject.SelectedIndex).Value()
        PubStrSql = "update testProject set n=@N,sn=@sn,t=@t,st=@st where project=@testproject "
        With PubSqlCmd
            .CommandText = PubStrSql
            .Parameters.Add(New SqlParameter("@n", CBAllProjectTypeN.Checked))
            .Parameters.Add(New SqlParameter("@sn", CBAllProjectTypeSN.Checked))
            .Parameters.Add(New SqlParameter("@t", CBAllProjectTypeT.Checked))
            .Parameters.Add(New SqlParameter("@ST", CBAllProjectTypeST.Checked))
            .Parameters.Add(New SqlParameter("@testproject", Testproject))
            .ExecuteNonQuery()
        End With
    End Sub
End Class