formtaskbook.aspx.vb

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

            & " StandardSerial.StandardClass=Standard.StandardClass and" _
            & " TestProject.MethodChecked=1 and TestProject.StandardChecked=1" _
            & " and TestProject.testobj='" & SHYMD.SelectedItem.Text.Trim & "'" _
            & " and Standard.ConsumArea like '%" & XFDQ.SelectedItem.Text.Trim & "%'"
            txtSHYMD.Visible = False
            txtSHYMD.Text = "NotQiTa"
        Else
            PubStrSql = "TestProject.StandardSerial=StandardSerial.StandardSerial" _
            & " and StandardSerial.StandardClass=Standard.StandardClass and" _
            & " TestProject.MethodChecked=1 and TestProject.StandardChecked=1" _
            & " and Standard.ConsumArea like '%" & XFDQ.SelectedItem.Text.Trim & "%'"
            txtSHYMD.Visible = True
            txtSHYMD.Text = ""
        End If
        '冰箱名称
        Select Case BXMCH.SelectedItem.Text.Trim
            Case "家用制冷器具冷藏箱"
                PubStrSql += " and lcx=1"
            Case "家用制冷器具冷冻箱"
                PubStrSql += " and ldx=1"
            Case "家用制冷器具冷藏冷冻箱"
                PubStrSql += " and lcldx=1"
            Case "家用制冷器具无霜冷藏箱"
                PubStrSql += " and Wslcx=1"
            Case "家用制冷器具无霜冷冻箱"
                PubStrSql += " and Wsldx=1"
            Case "家用制冷器具无霜冷藏冷冻箱"
                PubStrSql += " and Wslcldx=1"
            Case "家用制冷器具无霜冷冻食品储藏箱"
                PubStrSql += " and Wsldspccx=1"
            Case "家用制冷器具无霜食品冷冻箱"
                PubStrSql += " and Wsspldx=1"
        End Select
        '气候类型
        If LXN.Checked = True Then
            tempString = " and (N=1"
        End If
        If LXSN.Checked = True Then
            If tempString <> "" Then
                tempString = tempString & " or SN=1"
            Else
                tempString = " and (SN=1"
            End If
        End If
        If LXST.Checked = True Then
            If tempString <> "" Then
                tempString = tempString & " or ST=1"
            Else
                tempString = " and (ST=1"
            End If
        End If
        If LXT.Checked = True Then
            If tempString <> "" Then
                tempString = tempString & " or T=1"
            Else
                tempString = " and (T=1"
            End If
        End If
        If tempString <> "" Then
            tempString = tempString & ")"
        End If
        PubStrSql += tempString
        Session("tempPubStrSql") = Replace(PubStrSql, "TestProject", "T2")
        PubStrSql += " order by TestProject.StandardSerial"
        GetProjectDataSet(PubStrSql)
        dgTestProject.DataSource = PubDataSet.Tables("testproject").DefaultView
        dgTestProject.DataBind()
    End Sub
    Private Sub dgTestProject_ItemDataBound(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs)
        '增加checkbox
        Dim CheckBoxObj As CheckBox
        If e.Item.ItemIndex > -1 Then
            CheckBoxObj = e.Item.Cells(0).Controls(1)
            CheckBoxObj.Text = (e.Item.ItemIndex + 1).ToString
        End If
    End Sub


    Public Sub SaveTable(ByVal flag As Int16) 'flag=1任务书下达
        Dim strSource As String
        Dim strTestStandard, strStandardClass, strSHYMD, strTestID, strXZH As String
        Dim intNum, i, j, secondintloop As Int16
        Dim ProjectNum, SpecialProjectNum, totalProjectNum As Int16
        Dim cb As CheckBox
        Dim objtextbox1, objtextbox2, objtextbox3 As TextBox
        Dim intN, intSN, intST, intT, intCHeck, intJaJ, intObj As Int16
        Dim TechPara(20), ShuoMing(20), MainPart(20), GuiGe(20), GongYingShang(20), IceBoxSerial(3) As String
        strTestID = Format(DateTime.Now, "yyyy-MM-dd") & " " & DateTime.Now.ToLongTimeString
        strTestStandard = ""
        For intLoopIndex = 0 To dgTestProject.Items.Count - 1
            cb = dgTestProject.Items(intLoopIndex).Cells(0).Controls(1)
            If InStr(strTestStandard, dgTestProject.Items(intLoopIndex).Cells(2).Text.Trim) = 0 And cb.Checked = True Then
                strTestStandard += dgTestProject.Items(intLoopIndex).Cells(2).Text.Trim & "、"
            End If
        Next

        If strTestStandard <> "" Then
            strTestStandard = Left(strTestStandard, Len(strTestStandard) - 1)
        End If
        PubStrSql = "select * from standard where consumarea like '%" _
        & XFDQ.SelectedItem.Text.Trim & "%'"
        PubDataAdapter.SelectCommand.CommandText = PubStrSql
        PubDataAdapter.Fill(PubDataSet, "Standard")
        strStandardClass = PubDataSet.Tables("standard").Rows(0)("StandardClass")
        If SHYMD.SelectedItem.Text.Trim <> "其它" Then
            strSHYMD = SHYMD.SelectedItem.Text.Trim
        Else
            strSHYMD = txtSHYMD.Text.Trim
            intObj = 1
        End If
        If LXN.Checked = True Then
            intN = 1
        Else
            intN = 0
        End If
        If LXSN.Checked = True Then
            intSN = 1
        Else
            intSN = 0
        End If
        If LXST.Checked = True Then
            intST = 1
        Else
            intST = 0
        End If
        If LXT.Checked = True Then
            intT = 1
        Else
            intT = 0
        End If
        If SHFJJ.Checked = True Then
            intJaJ = 1
        Else
            intJaJ = 0
        End If
        For intLoopIndex = 0 To dgTestProject.Items.Count - 1
            cb = dgTestProject.Items(intLoopIndex).Cells(0).Controls(1)
            If cb.Checked = False Then
                intCHeck = 1
                Exit For
            End If
        Next
        '保存，采用事务技术
        Try
            PubSqlTransaction = PubSqlConn.BeginTransaction()
            PubSqlCmd.Transaction = PubSqlTransaction
            '任务书
            PubStrSql = "insert into taskbook(TestID,IceBoxName,TestDep,IceProvider," _
            & "TestXiaDa,TestShengQing,IceModel,IceNum,IceSerial,IceMakePos," _
            & "ConsumeArea,ExecuteStandard,StandardClass,TestObject,State," _
            & "N,SN,T,ST,Checked,BeiZhu,TestObjectDescription,SampleStep,JiaJi," _
            & "Address,TestObjFlag) values('" & strTestID & "','" _
            & BXMCH.SelectedItem.Text.Trim & "','" & SHYBM.Text.Trim & "','" _
            & BXTZHZH.Text.Trim & "','" & XDRQ.Text.Trim & "','" & WCHRQ.Text.Trim _
            & "','" & BXXH.Text.Trim & "','" & BXSHL.SelectedItem.Text.Trim & "','" _
            & BXBH.Text.Trim & "','" & BXCHD.SelectedItem.Text.Trim & "','" _
            & XFDQ.SelectedItem.Text.Trim & "','" & strTestStandard & "','" _
            & strStandardClass & "','" & strSHYMD & "'," & 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