standardmaintenance.aspx.vb

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

        Catch eSQL As SqlException
            lblErrorMessage.Text = eSQL.Message
        End Try
        DataGridCurrentClass.EditItemIndex = -1
        DataGridCurrentClassDataBind()
    End Sub

    Private Sub drpCurrentClass_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles drpCurrentClass.SelectedIndexChanged
        '显示新的标准类别的标准编号
        PubStrSql = "select * from standardserial where standardclass='" _
                       & drpCurrentClass.SelectedItem.Value & "'"
        PubDataAdapter.SelectCommand.CommandText = PubStrSql
        PubDataAdapter.Fill(PubDataSet, "standardserial")
        DataGridCurrentStandard.DataSource = PubDataSet.Tables("standardserial")
        DataGridCurrentStandard.DataBind()

        PubStrSql = "select standardserial from standardserial where" _
        & " standardclass='" & drpCurrentClass.SelectedItem.Value & "' group by standardserial"
        PubDataAdapter.SelectCommand.CommandText = PubStrSql
        PubDataAdapter.Fill(PubDataSet, "serial")
        drpStandardSerial.DataSource = PubDataSet.Tables("serial")
        drpStandardSerial.DataBind()
    End Sub

    Private Sub btnNewStandard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNewStandard.Click
        '添加新标准编号        
        If (txtNewStandard.Text <> "" Or drpStandardSerial.SelectedIndex <> -1) And drpCurrentClass.SelectedIndex <> -1 Then
            '插入标准编号
            If txtNewStandard.Text <> "" Then
                PubStrSql = "insert into standardserial (standardClass,standardserial,iceboxType," _
                & drpIceboxType.SelectedItem.Value.Trim() & ") values ('" _
                & drpCurrentClass.SelectedItem.Value & "','" & txtNewStandard.Text.Trim() & "','" _
                & drpIceboxType.SelectedItem.Text.Trim() & "',1 )"
            Else
                PubStrSql = "insert into standardserial (standardClass,standardserial,iceboxType," _
                & drpIceboxType.SelectedItem.Value.Trim() & ") values ('" & drpCurrentClass.SelectedItem.Value _
                & "','" & drpStandardSerial.SelectedItem.Text.Trim() & "','" & drpIceboxType.SelectedItem.Text.Trim() & "',1 )"
            End If
            PubSqlCmd.CommandText = PubStrSql
            Try
                PubSqlCmd.ExecuteNonQuery()
            Catch eSQL As SqlException
                lblErrorMessage.Text = "<u>" & txtNewStandard.Text.Trim() _
                & drpIceboxType.SelectedItem.Text.Trim() & "</u>" & "已经存放到数据库中"
            End Try
            '在DataGrid中显示新标准
            DataGridCurrentStandardDataBind()
            '在下拉框中显示新标准
            PubStrSql = "select standardserial from standardserial where standardclass='" _
            & drpCurrentClass.SelectedItem.Value & "' group by standardserial"
            PubDataAdapter.SelectCommand.CommandText = PubStrSql
            PubDataAdapter.Fill(PubDataSet, "serial")
            drpStandardSerial.DataSource = PubDataSet.Tables("serial")
            drpStandardSerial.DataBind()
        End If
    End Sub

    Sub DataGridCurrentStandard_EditCommand(ByVal source As System.Object, ByVal objArgs As System.Web.UI.WebControls.DataGridCommandEventArgs)
        '标准编号编辑      
        '设定DataGrid的编辑Index
        DataGridCurrentStandard.EditItemIndex = objArgs.Item.ItemIndex
        DataGridCurrentStandardDataBind()
    End Sub

    Sub standardserialDoDelete(ByVal objSource As Object, ByVal e As DataGridCommandEventArgs)
        '标准编号删除
        Dim objLabelCtrl As Label
        objLabelCtrl = CType(e.Item.FindControl("lblIceBoxType"), Label)
        PubStrSql = "delete from standardserial where standardserial='" _
        & DataGridCurrentStandard.DataKeys(e.Item.ItemIndex) _
        & "' and iceboxType='" & objLabelCtrl.Text.Trim() & "'"
        PubSqlCmd.CommandText = PubStrSql
        PubSqlCmd.ExecuteNonQuery()
        DataGridCurrentStandardDataBind()
        '在DropdownList控件中显示新的标准编号
        PubStrSql = "select standardserial from standardserial where" _
        & " standardclass='" & drpCurrentClass.SelectedItem.Value & "' group by standardserial"
        PubDataAdapter.SelectCommand.CommandText = PubStrSql
        PubDataAdapter.Fill(PubDataSet, "serial")
        drpStandardSerial.DataSource = PubDataSet.Tables("serial")
        drpStandardSerial.DataBind()
    End Sub
    Sub standardserialDoCancel(ByVal objSource As Object, ByVal objArgs As DataGridCommandEventArgs)
        '标准编号取消
        DataGridCurrentStandard.EditItemIndex = -1
        DataGridCurrentStandardDataBind()
    End Sub
    Sub standardserialDoUpdate(ByVal objSource As Object, ByVal objArgs As DataGridCommandEventArgs)
        '标准编号更新
        Dim objIceboxTypeCtrl As DropDownList
        objIceboxTypeCtrl = CType(objArgs.Item.FindControl("drpIceboxTypeInside"), DropDownList)
        Dim iceBoxType As String = Session("iceboxType")
        Dim lblIceBoxType As String = Session("lblIceBoxType")
        '冰箱类型
        Dim strTemp As String = objIceboxTypeCtrl.SelectedItem.Text.Trim()
        Dim strOutcome As String '冰箱类型缩写
        If strTemp = "家用食品冷藏箱" Then
            strOutcome = "lcx"
        ElseIf strTemp = "家用食品冷冻箱" Then
            strOutcome = "ldx"
        ElseIf strTemp = "家用食品冷藏冷冻箱" Then
            strOutcome = "lcldx"
        ElseIf strTemp = "家用食品无霜冷藏箱" Then
            strOutcome = "wslcx"
        ElseIf strTemp = "家用食品无霜冷冻箱" Then
            strOutcome = "wsldx"
        ElseIf strTemp = "家用食品无霜冷藏冷冻箱" Then
            strOutcome = "wslcldx"
        ElseIf strTemp = "家用食品无霜食品冷冻箱" Then
            strOutcome = "wsspldx"
        ElseIf strTemp = "家用食品无霜冷冻食品储藏箱" Then
            strOutcome = "wsldspccx"
        End If
        PubStrSql = "UPDATE Standardserial SET iceBoxType='" _
        & objIceboxTypeCtrl.SelectedItem.Text.Trim() _
        & "'," & lblIceBoxType & "=0," & strOutcome & "=1 WHERE standardSerial='" _
        & DataGridCurrentStandard.DataKeys(objArgs.Item.ItemIndex) _
        & "'and iceboxType='" & iceBoxType & "'"
        PubSqlCmd.CommandText = PubStrSql
        Try
            PubSqlCmd.ExecuteNonQuery()
        Catch eSQL As SqlException
            lblErrorMessage.Text = eSQL.Message
        End Try
        '显示
        DataGridCurrentStandard.EditItemIndex = -1
        DataGridCurrentStandardDataBind()
    End Sub
    Sub DataGridCurrentStandardDataBind()
        '显示标准        
        PubStrSql = "select * from standardserial where standardclass='" _
                       & drpCurrentClass.SelectedItem.Value & "'"
        PubDataAdapter.SelectCommand.CommandText = PubStrSql
        PubDataAdapter.Fill(PubDataSet, "standardserial")
        DataGridCurrentStandard.DataSource = PubDataSet.Tables("standardserial")
        DataGridCurrentStandard.DataBind()
    End Sub


    Private Sub DataGridCurrentClass_UpdateCommand(ByVal source As System.Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs)
        '标准类型更新
        Dim TempString As String
        Dim ConsumeArea(100) As String
        Dim strSource As String
        Dim intnum, i, intloopindex, intloopindex1 As Int16
        Dim tb As TextBox
        PubStrSql = "delete from ConsumeAddress"
        PubSqlCmd.CommandText = PubStrSql
        PubSqlCmd.ExecuteNonQuery()
        '消费地区 
        tb = DataGridCurrentClass.Items(DataGridCurrentClass.EditItemIndex).Cells(2).Controls(0)
        If tb.Text.Trim <> "" Then
            strSource = tb.Text.Trim
            intnum = 0
            '分离消费地区
            Do While InStr(strSource, "、")
                intnum = intnum + 1
                i = InStr(strSource, "、")
                ConsumeArea(intnum) = Trim(Left(strSource, i - 1))
                strSource = Mid(strSource, i + 1)
            Loop
            ConsumeArea(intnum + 1) = Trim(strSource)
            For intloopindex = 1 To intnum + 1
                PubStrSql = "insert into ConsumeAddress(ConsumeAddress) values('" & ConsumeArea(intloopindex) & "')"
                PubSqlCmd.CommandText = PubStrSql
                Try '写入数据库
                    PubSqlCmd.ExecuteNonQuery()
                Catch eSql As Exception
                    lblErrorMessage.Text = eSql.ToString()
                End Try
            Next
        End If
        For intloopindex = 0 To DataGridCurrentClass.Items.Count - 1
            If DataGridCurrentClass.Items(intloopindex).Cells(2).Text.Trim <> "" Then
                strSource = DataGridCurrentClass.Items(intloopindex).Cells(2).Text.Trim
                intnum = 0
                Do While InStr(strSource, "、")
                    intnum = intnum + 1
                    i = InStr(strSource, "、")
                    ConsumeArea(intnum) = Trim(Left(strSource, i - 1))
                    strSource = Mid(strSource, i + 1)
                Loop
                ConsumeArea(intnum + 1) = Trim(strSource)
                For intloopindex1 = 1 To intnum + 1
                    TempString = "insert into ConsumeAddress(ConsumeAddress) values('" & ConsumeArea(intloopindex1) & "')"
                    PubSqlCmd.CommandText = TempString
                    PubSqlCmd.ExecuteNonQuery()
                Next
            End If
        Next
    End Sub
End Class