formtaskbook.aspx.vb

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

            GuiGe(10) = ggDKG.SelectedItem.Text.Trim
            GuiGe(11) = ggDCF.SelectedItem.Text.Trim
            GongYingShang(1) = gyYJ.SelectedItem.Text.Trim
            GongYingShang(2) = gyWKQ.SelectedItem.Text.Trim
            GongYingShang(3) = gyZHKB.SelectedItem.Text.Trim
            GongYingShang(4) = gyLC.SelectedItem.Text.Trim
            GongYingShang(5) = gyJRS.SelectedItem.Text.Trim
            GongYingShang(6) = gyLD.SelectedItem.Text.Trim
            GongYingShang(7) = gyLNQ.SelectedItem.Text.Trim
            GongYingShang(8) = gyGLQ.SelectedItem.Text.Trim
            GongYingShang(9) = gyFJ.SelectedItem.Text.Trim
            GongYingShang(10) = gyDKG.SelectedItem.Text.Trim
            GongYingShang(11) = gyDCF.SelectedItem.Text.Trim
            For intLoopIndex = 1 To 11
                PubStrSql = "insert into MusterMainPart(TestID,TestXiaDa,Num,NameSpec,Provider," _
                & "GuiGe,Address) values('" & strTestID & "','" & XDRQ.Text & "'," _
                & intLoopIndex & ",'" & MainPart(intLoopIndex) & "','" _
                & GongYingShang(intLoopIndex) & "','" & GuiGe(intLoopIndex) & "','" _
                & CSDD.SelectedItem.Text.Trim & "')"
                PubSqlCmd.CommandText = PubStrSql
                PubSqlCmd.ExecuteNonQuery()
            Next
            '测试项目
            If BXBH.Text.Trim <> "" Then
                strSource = Trim(BXBH.Text)
                intNum = 0
                Do While InStr(strSource, "#")
                    intNum = intNum + 1
                    i = InStr(strSource, "#")
                    IceBoxSerial(intNum) = Trim(Left(strSource, i - 1))
                    strSource = Mid(strSource, i + 1)
                Loop
                IceBoxSerial(intNum + 1) = Trim(strSource)
            Else
                For intLoopIndex = 1 To CInt(BXSHL.SelectedItem.Text.Trim)
                    IceBoxSerial(intLoopIndex) = intLoopIndex
                Next
                intNum = CInt(BXSHL.SelectedItem.Text.Trim) - 1
            End If
            For secondintloop = 1 To intNum + 1
                For intLoopIndex = 0 To dgTestProject.Items.Count - 1
                    cb = dgTestProject.Items(intLoopIndex).Cells(0).Controls(1)
                    If cb.Checked = True Then
                        PubStrSql = "insert into taskbookprj(TestID,TestXiaDa,Project," _
                        & "IceBoxSerial,TestStandard,Period,Address) values('" & strTestID _
                        & "','" & XDRQ.Text.Trim & "','" _
                        & dgTestProject.Items(intLoopIndex).Cells(1).Text.Trim & "','" _
                        & IceBoxSerial(secondintloop) & "','" _
                        & dgTestProject.Items(intLoopIndex).Cells(2).Text.Trim & "','" _
                        & dgTestProject.Items(intLoopIndex).Cells(3).Text.Trim & "','" _
                        & CSDD.SelectedItem.Text.Trim & "')"
                        PubSqlCmd.CommandText = PubStrSql
                        PubSqlCmd.ExecuteNonQuery()
                    End If
                Next
            Next

            '特殊项目
            SpecialProjectNum = 0
            For i = 1 To 3
                objtextbox1 = CType(Tablespecialitem.Controls(1).FindControl("TBProject" & i), TextBox)
                objtextbox2 = CType(Tablespecialitem.Controls(1).FindControl("TBMethod" & i), TextBox)
                objtextbox3 = CType(Tablespecialitem.Controls(1).FindControl("TBPeriod" & i), TextBox)
                If objtextbox1.Text.Trim <> "" Then
                    For j = 1 To intNum + 1
                        PubStrSql = "insert into SpecialProject(testid,iceboxserial,ProjectName," _
                        & "ProjectMethod,period,address) values('" & strTestID & "','" _
                        & IceBoxSerial(j) & "','" & objtextbox1.Text.Trim & "','" _
                        & objtextbox2.Text.Trim & "','" & objtextbox3.Text.Trim & "','" _
                        & CSDD.SelectedItem.Text & "')"
                        PubSqlCmd.CommandText = PubStrSql
                        PubSqlCmd.ExecuteNonQuery()
                    Next
                    SpecialProjectNum += 1
                End If
            Next
            '实验目的描述
            If XCHP.Checked = True Then
                strXZH = XCHP.Text.Trim
            ElseIf XSH.Checked = True Then
                strXZH = XSH.Text.Trim
            ElseIf WT.Checked = True Then
                strXZH = WT.Text.Trim
            Else
                strXZH = QT.Text.Trim
            End If
            PubStrSql = "insert into TestObjDescription(TestId,TestXiada,TestProperty,address)" _
            & " values('" & strTestID & "','" & XDRQ.Text.Trim & "','" _
            & strXZH & "','" & CSDD.SelectedItem.Text.Trim & "')"
            PubSqlCmd.CommandText = PubStrSql
            PubSqlCmd.ExecuteNonQuery()
            ProjectNum = 0
            For intLoopIndex = 0 To dgTestProject.Items.Count - 1
                cb = dgTestProject.Items(intLoopIndex).Cells(0).Controls(1)
                If cb.Checked = True Then
                    ProjectNum += 1
                End If
            Next

            totalProjectNum = ProjectNum + SpecialProjectNum
            For intLoopIndex = 1 To intNum + 1
                PubStrSql = "insert into taskbookstatistics(Testid,TestXiada,TotalPrj,NoTesting," _
                & "IceBoxSerial,address) values('" & strTestID & "','" & XDRQ.Text.Trim _
                & "'," & totalProjectNum & "," & totalProjectNum & ",'" _
                & IceBoxSerial(intLoopIndex) & "','" & CSDD.SelectedItem.Text.Trim & "')"
                PubSqlCmd.CommandText = PubStrSql
                PubSqlCmd.ExecuteNonQuery()
            Next
            ErrorMessage = ""
        Catch objerroe As Exception
            PubSqlTransaction.Rollback()
            ErrorMessage = "失败"
            Exit Sub
        End Try
        PubSqlTransaction.Commit()
    End Sub

    Private Sub XD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles XD.Click
        '下达任务书
        Dim SpecialProjectNum, i, j, intnum, projectnum, totalprojectnum As Int16
        Dim objtextbox1, objtextbox2, objtextbox3 As TextBox
        Dim cb As CheckBox
        Dim checkFlag As Boolean
        Dim strSource As String
        Dim IceBoxSerial(4) As String
        lblmessage.Text = ""
        '处理冰箱编号
        If BXBH.Text.Trim <> "" Then
            Dim Positioni, Positiony As Int16
            Dim findstring As String
            Dim findnum As String
            findstring = BXBH.Text.Trim
            Positioni = InStr(findstring, "#")
            findnum = 0
            While Positioni
                findnum = findnum + 1
                findstring = Mid(findstring, Positioni + 1)
                Positioni = InStr(findstring, "#")
            End While

            If findnum <> CInt(BXSHL.SelectedItem.Text.Trim) - 1 Then
                lblmessage.Text += "冰箱编号间以#分隔"
                Exit Sub
            End If
        End If
        If BXBH.Text.Trim <> "" Then
            strSource = Trim(BXBH.Text)
            intnum = 0
            Do While InStr(strSource, "#")
                intnum = intnum + 1
                i = InStr(strSource, "#")
                IceBoxSerial(intnum) = Trim(Left(strSource, i - 1))
                strSource = Mid(strSource, i + 1)
            Loop
            IceBoxSerial(intnum + 1) = Trim(strSource)
        End If
        If BXBH.Text.Trim <> "" Then
            For intLoopIndex = 1 To intnum + 1
                If IceBoxSerial(intLoopIndex) = "" Then
                    lblmessage.Text += "所有冰箱编号不能为空字符"
                    Exit Sub
                End If
            Next
        End If
        If LXN.Checked = False And LXSN.Checked = False _
        And LXT.Checked = False And LXST.Checked = False Then
            lblmessage.Text += "请选择气候类型"
            Exit Sub
        End If
        SpecialProjectNum = 0
        For i = 1 To 3
            objtextbox1 = CType(Tablespecialitem.Controls(1).FindControl("TBProject" & i), TextBox)
            objtextbox2 = CType(Tablespecialitem.Controls(1).FindControl("TBMethod" & i), TextBox)
            objtextbox3 = CType(Tablespecialitem.Controls(1).FindControl("TBPeriod" & i), TextBox)
            If objtextbox1.Text.Trim <> "" Then
                SpecialProjectNum += 1
            End If
        Next
        projectnum = 0
        For intLoopIndex = 0 To dgTestProject.Items.Count - 1
            cb = dgTestProject.Items(intLoopIndex).Cells(0).Controls(1)
            If cb.Checked = True Then
                projectnum += 1
            Else
                checkFlag = True
            End If
        Next

        totalprojectnum = projectnum + SpecialProjectNum
        If totalprojectnum = 0 Then
            lblmessage.Text += "请选择实验项目"
            Exit Sub
        End If
        If TBPRoject1.Text.Trim <> "" And (TBMethod1.Text.Trim = "" Or TBPeriod1.Text.Trim = "") Then
            lblmessage.Text += "请输入特殊项目实验方法和周期"
            Exit Sub
        End If
        If TBPRoject2.Text.Trim <> "" And (TBMethod2.Text.Trim = "" Or TBPeriod2.Text.Trim = "") Then
            lblmessage.Text += "请输入特殊项目实验方法和周期"
            Exit Sub
        End If
        If TBPRoject3.Text.Trim <> "" And (TBMethod3.Text.Trim = "" Or TBPeriod3.Text.Trim = "") Then
            lblmessage.Text += "请输入特殊项目实验方法和周期"
            Exit Sub
        End If
        Call SaveTable(1)
        If ErrorMessage = "" Then
            lblmessage.Text = "下达成功"
        Else
            lblmessage.Text = "下达失败"
        End If
        If checkFlag = True Then
            lblmessage.Text += "需要审核"
        End If
    End Sub


End Class