taskbookdetail.aspx.vb

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

            & flag & "," & intN & "," & intSN & "," & intT & "," & intST & "," & intCHeck _
            & ",'" & txtBeiZhu.Text.Trim & "','" & MDMSH.Text.Trim & "','" _
            & YPJD.SelectedItem.Text.Trim & "'," _
            & intJaJ & ",'" & CSDD.SelectedItem.Text.Trim & "'," & intObj & ")"
            PubSqlCmd.CommandText = PubStrSql
            PubSqlCmd.ExecuteNonQuery()
            '实验报告
            PubStrSql = "insert into report(testID,ProductAddress,SampleAddress,SampleBase," _
            & "SampleBy,Brand,TestObject,Address) values('" & strTestID & "','" _
            & SHCHDZH.SelectedItem.Text.Trim & "','" & CHYDD.SelectedItem.Text.Trim _
            & "','" & CHYJSH.Text.Trim & "','" & CHYYJ.Text.Trim & "','" _
            & SHB.SelectedItem.Text.Trim & "','" & strSHYMD & "','" _
            & CSDD.SelectedItem.Text.Trim & "')"
            PubSqlCmd.CommandText = PubStrSql
            PubSqlCmd.ExecuteNonQuery()
            '技术参数
            TechPara(1) = "制冷剂"
            TechPara(2) = "灌注量"
            TechPara(3) = "总有效容积"
            TechPara(4) = "耗电量"
            TechPara(5) = "冷冻能力"
            TechPara(6) = "额定电压/频率"
            TechPara(7) = "额定功率"
            TechPara(8) = "防触电保护等级"
            TechPara(9) = "发泡剂"
            ShuoMing(1) = ZHLJ.SelectedItem.Text.Trim
            ShuoMing(2) = GZHL.Text.Trim
            ShuoMing(3) = YXRJ.Text.Trim
            ShuoMing(4) = HDL.Text.Trim
            ShuoMing(5) = LDNL.Text.Trim
            ShuoMing(6) = DYPL.Text.Trim
            ShuoMing(7) = GL.Text.Trim
            ShuoMing(8) = DJ.SelectedItem.Text.Trim
            ShuoMing(9) = FPJ.SelectedItem.Text.Trim
            For intLoopIndex = 1 To 9
                PubStrSql = "insert into MusterTechPara(TestID,TestXiaDa,Num,Project," _
                & "Quantity,Address) values('" & strTestID & "','" & XDRQ.Text & "'," _
                & intLoopIndex & ",'" & TechPara(intLoopIndex) & "','" & ShuoMing(intLoopIndex) _
                & "','" & CSDD.SelectedItem.Text.Trim & "')"
                PubSqlCmd.CommandText = PubStrSql
                PubSqlCmd.ExecuteNonQuery()
            Next
            '主关部件
            MainPart(1) = "压机"
            MainPart(2) = "温控器"
            MainPart(3) = "主控板"
            MainPart(4) = "冷藏蒸发器"
            MainPart(5) = "加热丝"
            MainPart(6) = "冷冻蒸发器"
            MainPart(7) = "冷凝器"
            MainPart(8) = "干燥过滤器"
            MainPart(9) = "风机"
            MainPart(10) = "灯开关"
            MainPart(11) = "电磁阀"
            GuiGe(1) = ggYJ.SelectedItem.Text.Trim
            GuiGe(2) = ggWKQ.SelectedItem.Text.Trim
            GuiGe(3) = ggZHKB.SelectedItem.Text.Trim
            GuiGe(4) = ggLC.SelectedItem.Text.Trim
            GuiGe(5) = ggJRS.SelectedItem.Text.Trim
            GuiGe(6) = ggLD.SelectedItem.Text.Trim
            GuiGe(7) = ggLNQ.SelectedItem.Text.Trim
            GuiGe(8) = ggGLQ.SelectedItem.Text.Trim
            GuiGe(9) = ggFJ.SelectedItem.Text.Trim
            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, intloopindex, intnum, projectnum, totalprojectnum As Int16
        Dim objtextbox1, objtextbox2, objtextbox3 As TextBox
        Dim cb As CheckBox
        Dim checkFlag As Boolean
        Dim strSource, 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
            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 Session("change") = "true" Then
            For intloopindex = 0 To dgTestProject.Items.Count - 1
                cb = dgTestProject.Items(intloopindex).Cells(0).Controls(1)
                If cb.Checked = False Then
                    checkFlag = True
                    Exit For
                End If
            Next
        Else
            If Session("check") = "true" Then
                checkFlag = True
            End If
        End If
        If ErrorMessage = "" Then
            lblmessage.Text = "下达成功"
        Else
            lblmessage.Text = "下达失败"
        End If
        If checkFlag = True Then
            lblmessage.Text += "需要审核"
        End If
    End Sub
End Class