taskbookdetail.aspx.vb

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

                        tempBool = True
                        Exit For
                    End If
                Next
                If tempBool = False Then
                    BXCHD.Items.Add(Trim(.Rows(0)("IceMakePos")))
                    BXCHD.Items(BXCHD.Items.Count - 1).Selected = True
                End If
                '消费地区
                For intLoopIndex = 0 To XFDQ.Items.Count - 1
                    If XFDQ.Items(intLoopIndex).Text.Trim = Trim(.Rows(0)("ConsumeArea")) Then
                        XFDQ.Items(intLoopIndex).Selected = True
                        tempBool = True
                        Exit For
                    End If
                Next
                '冰箱名称
                For intLoopIndex = 0 To BXMCH.Items.Count - 1
                    If BXMCH.Items(intLoopIndex).Text.Trim = Trim(.Rows(0)("IceBoxName")) Then
                        BXMCH.Items(intLoopIndex).Selected = True
                    End If
                Next
                '实验目的
                For intLoopIndex = 0 To SHYMD.Items.Count - 1
                    If SHYMD.Items(intLoopIndex).Text.Trim = Trim(.Rows(0)("TestObject")) Then
                        SHYMD.Items(intLoopIndex).Selected = True
                    End If
                Next
                '备注
                txtBeiZhu.Text = Trim(.Rows(0)("BeiZhu"))
                If Not IsDBNull(.Rows(0)("Refuse")) Then
                    txtResult.Text = Trim(.Rows(0)("Refuse"))
                End If
                If Not (Session("UserType") = "委托方" And (.Rows(0)("AcceptFlag") <> 1 _
                Or .Rows(0)("Checked") = 3)) Then
                    XD.Enabled = False
                End If
                '气候类型
                If .Rows(0)("N") = 1 Then
                    LXN.Checked = True
                End If
                If .Rows(0)("SN") = 1 Then
                    LXSN.Checked = True
                End If
                If .Rows(0)("T") = 1 Then
                    LXT.Checked = True
                End If
                If .Rows(0)("ST") = 1 Then
                    LXST.Checked = True
                End If
                '是否加急
                If .Rows(0)("Jiaji") = 1 Then
                    LblJiaJi.Text = "****"
                    SHFJJ.Checked = True
                Else
                    SHFJJ.Checked = False
                End If
                If .Rows(0)("checked") = 1 Then
                    Session("check") = "true"
                End If
            End With

          
            '试验性质            
            PubStrSql = "select * from testobjdescription  where testid='" _
            & SHYBH.Text.Trim & "'" & " and address='" & CSDD.SelectedItem.Text.Trim & "'"
            PubDataAdapter.SelectCommand.CommandText = PubStrSql
            PubDataAdapter.Fill(PubDataSet, "testobjdescription")
            With PubDataSet.Tables("testobjdescription")
                If Trim(.Rows(0)("TestProperty")) = "新产品试验" Then
                    XCHP.Checked = True
                ElseIf Trim(.Rows(0)("TestProperty")) = "改进委托试验" Then
                    WT.Checked = True
                ElseIf Trim(.Rows(0)("TestProperty")) = "周期性型式试验" Then
                    XSH.Checked = True
                Else
                    QT.Checked = True
                End If
            End With
           
            'Report表的内容
            PubStrSql = "select Brand,ProductAddress,SampleAddress,SampleBase,SampleBy" _
            & " from report where testid='" & SHYBH.Text.Trim & "'" & " and address='" _
            & CSDD.SelectedItem.Text.Trim & "'"
            PubDataAdapter.SelectCommand.CommandText = PubStrSql
            PubDataAdapter.Fill(PubDataSet, "tblReport")
            With PubDataSet.Tables("tblReport")               
                For intLoopIndex = 0 To SHCHDZH.Items.Count - 1
                    If SHCHDZH.Items(intLoopIndex).Text.Trim = .Rows(0)("ProductAddress") Then
                        SHCHDZH.Items(intLoopIndex).Selected = True
                    End If
                Next
                For intLoopIndex = 0 To SHB.Items.Count - 1
                    If SHB.Items(intLoopIndex).Text.Trim = .Rows(0)("Brand") Then
                        SHB.Items(intLoopIndex).Selected = True
                    End If
                Next
                For intLoopIndex = 0 To CHYDD.Items.Count - 1
                    If CHYDD.Items(intLoopIndex).Text.Trim = .Rows(0)("SampleAddress") Then
                        CHYDD.Items(intLoopIndex).Selected = True
                    End If
                Next
                CHYJSH.Text = .Rows(0)("SampleBase")
                CHYYJ.Text = .Rows(0)("SampleBy")
            End With
            '技术参数
            PubStrSql = "select * from mustertechpara where testid='" & SHYBH.Text.Trim & "'" _
            & " and address='" & CSDD.SelectedItem.Text.Trim & "'"            
            PubDataAdapter.SelectCommand.CommandText = PubStrSql
            PubDataAdapter.Fill(PubDataSet, "tblTechPara")
            With PubDataSet.Tables("tblTechPara")
                For intLoopIndex = 0 To ZHLJ.Items.Count - 1
                    If ZHLJ.Items(intLoopIndex).Text.Trim = .Rows(0)("Quantity") Then
                        ZHLJ.Items(intLoopIndex).Selected = True
                    End If
                Next
                GZHL.Text = .Rows(1)("Quantity")
                YXRJ.Text = .Rows(2)("Quantity")
                HDL.Text = .Rows(3)("Quantity")
                LDNL.Text = .Rows(4)("Quantity")
                DYPL.Text = .Rows(5)("Quantity")
                GL.Text = .Rows(6)("Quantity")
                For intLoopIndex = 0 To DJ.Items.Count - 1
                    If DJ.Items(intLoopIndex).Text.Trim = .Rows(7)("Quantity") Then
                        DJ.Items(intLoopIndex).Selected = True
                    End If
                Next
                For intLoopIndex = 0 To FPJ.Items.Count - 1
                    If FPJ.Items(intLoopIndex).Text.Trim = .Rows(8)("Quantity") Then
                        FPJ.Items(intLoopIndex).Selected = True
                    End If
                Next
            End With            
            '主关部件
            PubStrSql = "select * from taskbook where testid='" & strSerial & "'" _
            & " and address='" & strAddress & "'"
            PubDataAdapter.SelectCommand.CommandText = PubStrSql
            PubDataAdapter.Fill(PubDataSet, "tblTaskBook")
            If (Session("UserType") = "委托方" _
            And (PubDataSet.Tables("tblTaskBook").Rows(0)("AcceptFlag") <> 1 _
            Or PubDataSet.Tables("tblTaskBook").Rows(0)("Checked") = 3)) Then
                PubStrSql = "select * from musterMainPart where testid='" & SHYBH.Text.Trim _
                & "'" & " and address='" & CSDD.SelectedItem.Text.Trim & "'"
                PubDataAdapter.SelectCommand.CommandText = PubStrSql
                PubDataAdapter.Fill(PubDataSet, "tblMainPart")
                '主关部件
                With PubDataSet.Tables("tblMainPart")
                    For intLoopIndex = 0 To ggYJ.Items.Count - 1
                        If ggYJ.Items(intLoopIndex).Text.Trim = Trim(.Rows(0)("GuiGe")) Then
                            ggYJ.Items(intLoopIndex).Selected = True
                            Exit For
                        End If
                    Next
                    For intLoopIndex = 0 To gyYJ.Items.Count - 1
                        If gyYJ.Items(intLoopIndex).Text.Trim = Trim(.Rows(0)("Provider")) Then
                            gyYJ.Items(intLoopIndex).Selected = True
                            Exit For
                        End If
                    Next

                    For intLoopIndex = 0 To ggWKQ.Items.Count - 1
                        If ggWKQ.Items(intLoopIndex).Text.Trim = Trim(.Rows(1)("GuiGe")) Then
                            ggWKQ.Items(intLoopIndex).Selected = True
                            Exit For
                        End If
                    Next
                    For intLoopIndex = 0 To gyWKQ.Items.Count - 1
                        If gyWKQ.Items(intLoopIndex).Text.Trim = Trim(.Rows(1)("Provider")) Then
                            gyWKQ.Items(intLoopIndex).Selected = True
                            Exit For
                        End If
                    Next

                    For intLoopIndex = 0 To ggZHKB.Items.Count - 1
                        If ggZHKB.Items(intLoopIndex).Text.Trim = Trim(.Rows(2)("GuiGe")) Then
                            ggZHKB.Items(intLoopIndex).Selected = True
                            Exit For
                        End If
                    Next
                    For intLoopIndex = 0 To gyZHKB.Items.Count - 1
                        If gyZHKB.Items(intLoopIndex).Text.Trim = Trim(.Rows(2)("Provider")) Then
                            gyZHKB.Items(intLoopIndex).Selected = True
                            Exit For
                        End If
                    Next

                    For intLoopIndex = 0 To ggLC.Items.Count - 1
                        If ggLC.Items(intLoopIndex).Text.Trim = Trim(.Rows(3)("GuiGe")) Then
                            ggLC.Items(intLoopIndex).Selected = True
                            Exit For
                        End If
                    Next
                    For intLoopIndex = 0 To gyLC.Items.Count - 1
                        If gyLC.Items(intLoopIndex).Text.Trim = Trim(.Rows(3)("Provider")) Then
                            gyLC.Items(intLoopIndex).Selected = True
                            Exit For
                        End If
                    Next

                    For intLoopIndex = 0 To ggJRS.Items.Count - 1
                        If ggJRS.Items(intLoopIndex).Text.Trim = Trim(.Rows(4)("GuiGe")) Then
                            ggJRS.Items(intLoopIndex).Selected = True
                            Exit For
                        End If
                    Next
                    For intLoopIndex = 0 To gyJRS.Items.Count - 1
                        If gyJRS.Items(intLoopIndex).Text.Trim = Trim(.Rows(4)("Provider")) Then
                            gyJRS.Items(intLoopIndex).Selected = True
                            Exit For
                        End If
                    Next

                    For intLoopIndex = 0 To ggLD.Items.Count - 1
                        If ggLD.Items(intLoopIndex).Text.Trim = Trim(.Rows(5)("GuiGe")) Then
                            ggLD.Items(intLoopIndex).Selected = True
                            Exit For
                        End If
                    Next
                    For intLoopIndex = 0 To gyLD.Items.Count - 1
                        If gyLD.Items(intLoopIndex).Text.Trim = Trim(.Rows(5)("Provider")) Then
                            gyLD.Items(intLoopIndex).Selected = True
                            Exit For
                        End If
                    Next

                    For intLoopIndex = 0 To ggLNQ.Items.Count - 1
                        If ggLNQ.Items(intLoopIndex).Text.Trim = Trim(.Rows(6)("GuiGe")) Then
                            ggLNQ.Items(intLoopIndex).Selected = True
                            Exit For
                        End If
                    Next
                    For intLoopIndex = 0 To gyLNQ.Items.Count - 1
                        If gyLNQ.Items(intLoopIndex).Text.Trim = Trim(.Rows(6)("Provider")) Then
                            gyLNQ.Items(intLoopIndex).Selected = True
                            Exit For
                        End If
                    Next

                    For intLoopIndex = 0 To ggGLQ.Items.Count - 1
                        If ggGLQ.Items(intLoopIndex).Text.Trim = Trim(.Rows(7)("GuiGe")) Then
                            ggGLQ.Items(intLoopIndex).Selected = True
                            Exit For
                        End If
                    Next
                    For intLoopIndex = 0 To gyGLQ.Items.Count - 1
                        If gyGLQ.Items(intLoopIndex).Text.Trim = Trim(.Rows(7)("Provider")) Then
                            gyGLQ.Items(intLoopIndex).Selected = True
                            Exit For
                        End If
                    Next

                    For intLoopIndex = 0 To ggFJ.Items.Count - 1
                        If ggFJ.Items(intLoopIndex).Text.Trim = Trim(.Rows(8)("GuiGe")) Then
                            ggFJ.Items(intLoopIndex).Selected = True
                            Exit For
                        End If
                    Next
                    For intLoopIndex = 0 To gyFJ.Items.Count - 1
                        If gyFJ.Items(intLoopIndex).Text.Trim = Trim(.Rows(8)("Provider")) Then
                            gyFJ.Items(intLoopIndex).Selected = True
                            Exit For
                        End If
                    Next

                    For intLoopIndex = 0 To ggDKG.Items.Count - 1
                        If ggDKG.Items(intLoopIndex).Text.Trim = Trim(.Rows(9)("GuiGe")) Then
                            ggDKG.Items(intLoopIndex).Selected = True
                            Exit For
                        End If
                    Next
                    For intLoopIndex = 0 To gyDKG.Items.Count - 1
                        If gyDKG.Items(intLoopIndex).Text.Trim = Trim(.Rows(9)("Provider")) Then
                            gyDKG.Items(intLoopIndex).Selected = True
                            Exit For
                        End If
                    Next
                    If .Rows.Count = 11 Then
                        For intLoopIndex = 0 To ggDCF.Items.Count - 1
                            If ggDCF.Items(intLoopIndex).Text.Trim = Trim(.Rows(10)("GuiGe")) Then
                                ggDCF.Items(intLoopIndex).Selected = True
                                Exit For
                            End If
                        Next
                        For intLoopIndex = 0 To gyDCF.Items.Count - 1
                            If gyDCF.Items(intLoopIndex).Text.Trim = Trim(.Rows(10)("Provider")) Then
                                gyDCF.Items(intLoopIndex).Selected = True
                                Exit For
                            End If