form2_yanshi.vb

本软件设计为在"采购部""工程部""财务部""总经理"等部门之间的采购审核流转等事宜

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked = True Then
            Button1.Enabled = False
            ComboBox1.Enabled = True
            ComboBox2.Enabled = False
            ComboBox4.Enabled = False
            ComboBox5.Enabled = False
            Button3.Enabled = True
            CheckBox1.Checked = True
            Dim mydataset As New DataSet
            Dim str As String
            str = "select 编号 from bj_sheding where 录入报警人 = " + Chr(39) + UserName.Trim + Chr(39) + " and 是否取消 = " + Chr(39) + "0" + Chr(39) + " and 是否为提示别人 = " + Chr(39) + "0" + Chr(39)
            mydataset = GetDataFromDB(str)

            Dim i, y As Integer
            Dim sstr As String
            y = mydataset.Tables(0).Rows.Count
            ComboBox1.Items.Clear()
            For i = 0 To y - 1
                sstr = mydataset.Tables(0).Rows(i)("编号")
                ComboBox1.Items.Add(sstr)
            Next
            mydataset.Dispose()
        End If
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked = True Then
            Button1.Enabled = False
            ComboBox2.Enabled = True
            ComboBox1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = True
            ComboBox4.Enabled = False
            ComboBox5.Enabled = False

            Dim mydataset As New DataSet
            Dim str As String
            str = "select 编号 from bj_sheding where 录入报警人 = " + Chr(39) + UserName.Trim + Chr(39) + " and 是否取消 = " + Chr(39) + "1" + Chr(39)
            mydataset = GetDataFromDB(str)

            Dim i, y As Integer
            Dim sstr As String
            y = mydataset.Tables(0).Rows.Count
            ComboBox2.Items.Clear()
            For i = 0 To y - 1
                sstr = mydataset.Tables(0).Rows(i)("编号")
                ComboBox2.Items.Add(sstr)
            Next
            mydataset.Dispose()
        End If
    End Sub


    '新建
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        RadioButton1.Checked = False
        RadioButton2.Checked = False
        TextBox1.Text = ""
        Button1.Enabled = True
        Button2.Enabled = False
        Button3.Enabled = False
        ComboBox1.Enabled = False
        ComboBox2.Enabled = False

    End Sub


    '设定报警
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text.Trim = "" Then
            MsgBox("请输入报警信息和报警时间！", MsgBoxStyle.Information, "提示")
            TextBox1.Focus()
            Exit Sub
        End If

        Dim ssstr, wstr As String
        If CheckBox1.Checked = True Then
            ssstr = UserName.Trim
            wstr = "0"
        ElseIf CheckBox2.Checked = True Then
            If ComboBox3.Text = "其他报警人" Then
                MsgBox("请选择报警提示人", MsgBoxStyle.Information, "提示")
                Exit Sub
            End If
            ssstr = ComboBox3.Text.Trim
            wstr = "1"
        End If

        Dim sqlstr As String
        sqlstr = "INSERT INTO bj_sheding " & _
        "(报警内容,报警日期,是否取消,录入报警时间,录入报警人,报警提示人员,是否为提示别人) " & _
        "VALUES ('" & Me.TextBox1.Text.Trim & "','" & Me.DateTimePicker1.Value.ToShortDateString & "','" & "0" & "','" & Now.Date.ToShortDateString & "','" & UserName.Trim & "','" & ssstr & "','" & wstr & "')"
        If UpdateData(sqlstr) = False Then
            MsgBox("没有成功添加了该新的报警信息！", MsgBoxStyle.OKOnly + _
                    MsgBoxStyle.Exclamation, "添加不成功")
            Exit Sub
        Else
            MsgBox("成功添加了该新的报警信息！", MsgBoxStyle.OKOnly + _
                                MsgBoxStyle.Exclamation, "添加不成功")

            RadioButton1.Checked = True
        End If



    End Sub


    '更新
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim ssstr, wstr As String
        If CheckBox1.Checked = True Then
            ssstr = UserName.Trim
            wstr = "0"
        ElseIf CheckBox2.Checked = True Then
            If ComboBox3.Text = "其他报警人" Then
                MsgBox("请选择报警提示人", MsgBoxStyle.Information, "提示")
                Exit Sub
            End If
            ssstr = ComboBox3.Text.Trim
            wstr = "1"
        End If

        Dim sqlstr As String
        sqlstr = "UPDATE bj_sheding SET  报警内容=" + Chr(39) + Trim(TextBox1.Text) + Chr(39) + ",报警日期=" + Chr(39) + DateTimePicker1.Value.Date + Chr(39) + ",录入报警时间=" + Chr(39) + Now.Date + Chr(39) + ",报警提示人员=" + Chr(39) + ssstr + Chr(39) + ",是否为提示别人=" + Chr(39) + wstr + Chr(39) + "where 编号=" + Chr(39) + Trim(ComboBox1.Text.Trim) + Chr(39)
        If UpdateData(sqlstr) = True Then
            MsgBox("已经成功更新了该报警信息！", MsgBoxStyle.OKOnly + _
            MsgBoxStyle.Exclamation, "更新不成功")
        Else
            MsgBox("不能成功更新了该该报警信息，请与管理员联系！", MsgBoxStyle.OKOnly + _
                       MsgBoxStyle.Exclamation, "更新成功")
        End If

    End Sub



    '取消报警
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim sqlstr, mystr As String
        If RadioButton1.Checked = True Then
            mystr = ComboBox1.Text.Trim
            If mystr = "已有报警编号" Then
                MsgBox("请选择报警编号", MsgBoxStyle.Information, "提示")
                Exit Sub
            End If
        ElseIf RadioButton4.Checked = True Then
            mystr = ComboBox5.Text.Trim
            If mystr = "已有别人给你报警编号" Then
                MsgBox("请选择报警编号", MsgBoxStyle.Information, "提示")
                Exit Sub
            End If
        End If
        sqlstr = "UPDATE bj_sheding SET  是否取消=" + Chr(39) + "1" + Chr(39) + "where 编号=" + Chr(39) + mystr + Chr(39)
        If UpdateData(sqlstr) = True Then
            MsgBox("已经成功取消了该报警信息！", MsgBoxStyle.OKOnly + _
            MsgBoxStyle.Exclamation, "更新不成功")
        Else
            MsgBox("不能成功取消了该该报警信息，请与管理员联系！", MsgBoxStyle.OKOnly + _
                       MsgBoxStyle.Exclamation, "更新成功")
        End If
    End Sub

    '得到报警的详细信息

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim str As String
        str = "select 报警内容,报警日期 from bj_sheding  where 编号 = " + Chr(39) + ComboBox1.Text.Trim + Chr(39)

        Dim mydataset As New DataSet
        mydataset = GetDataFromDB(str)
        TextBox1.Text = mydataset.Tables(0).Rows(0)("报警内容")
        DateTimePicker1.Value = mydataset.Tables(0).Rows(0)("报警日期")
        mydataset.Dispose()

    End Sub


    '得到报警的详细信息
    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        Dim str As String
        str = "select 报警内容,报警日期 from bj_sheding  where 编号 = " + Chr(39) + ComboBox2.Text.Trim + Chr(39)

        Dim mydataset As New DataSet
        mydataset = GetDataFromDB(str)
        TextBox1.Text = mydataset.Tables(0).Rows(0)("报警内容")
        DateTimePicker1.Value = mydataset.Tables(0).Rows(0)("报警日期")
        mydataset.Dispose()
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            CheckBox2.Checked = False
            ComboBox3.Enabled = False
        End If
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            CheckBox1.Checked = False
            ComboBox3.Enabled = True

            Dim str As String = "select * from UserInfo"
            Dim mydataset As New DataSet
            mydataset = GetDataFromDB(str)

            Dim i As Integer = 0
            Dim y As Integer = mydataset.Tables(0).Rows.Count
            Dim sstr As String
            ComboBox3.Items.Clear()
            For i = 0 To y - 1
                sstr = Trim(mydataset.Tables(0).Rows(i)("姓名"))
                ComboBox3.Items.Add(sstr)
            Next

            mydataset.Dispose()
        End If
    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
        If RadioButton4.Checked = True Then
            Button1.Enabled = False
            Button2.Enabled = False
            ComboBox1.Enabled = False
            ComboBox2.Enabled = False
            ComboBox4.Enabled = False
            ComboBox5.Enabled = True
            Button3.Enabled = True
            CheckBox2.Checked = True
            Dim mydataset As New DataSet
            Dim str As String
            str = "select 编号 from bj_sheding where 报警提示人员 = " + Chr(39) + UserName.Trim + Chr(39) + " and 是否取消 = " + Chr(39) + "0" + Chr(39) + " and 是否为提示别人 = " + Chr(39) + "1" + Chr(39)
            mydataset = GetDataFromDB(str)

            Dim i, y As Integer
            Dim sstr As String
            y = mydataset.Tables(0).Rows.Count
            ComboBox5.Items.Clear()
            For i = 0 To y - 1
                sstr = mydataset.Tables(0).Rows(i)("编号")
                ComboBox5.Items.Add(sstr)
            Next
            mydataset.Dispose()
        End If
    End Sub

    Private Sub ComboBox5_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox5.SelectedIndexChanged
        Dim str As String
        str = "select 报警内容,报警日期,录入报警人 from bj_sheding  where 编号 = " + Chr(39) + ComboBox5.Text.Trim + Chr(39)

        Dim mydataset As New DataSet
        mydataset = GetDataFromDB(str)
        TextBox1.Text = mydataset.Tables(0).Rows(0)("报警内容")
        DateTimePicker1.Value = mydataset.Tables(0).Rows(0)("报警日期")

        Dim mystr As String = mydataset.Tables(0).Rows(0)("录入报警人")
        mystr = "提醒你的人是：" + mystr

        MsgBox(mystr, MsgBoxStyle.Information, "提示")

        mydataset.Dispose()
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        If RadioButton3.Checked = True Then
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            ComboBox1.Enabled = False
            ComboBox2.Enabled = False
            ComboBox5.Enabled = False
            ComboBox4.Enabled = True
            Dim mydataset As New DataSet
            Dim str As String
            str = "select 编号 from bj_sheding where 报警提示人员 = " + Chr(39) + UserName.Trim + Chr(39) + " and 是否取消 = " + Chr(39) + "1" + Chr(39) + " and 是否为提示别人 = " + Chr(39) + "1" + Chr(39)
            mydataset = GetDataFromDB(str)

            Dim i, y As Integer
            Dim sstr As String
            y = mydataset.Tables(0).Rows.Count
            ComboBox4.Items.Clear()
            For i = 0 To y - 1
                sstr = mydataset.Tables(0).Rows(i)("编号")
                ComboBox4.Items.Add(sstr)
            Next
            mydataset.Dispose()
        End If
    End Sub

    Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged
        Dim str As String
        str = "select 报警内容,报警日期,录入报警人 from bj_sheding  where 编号 = " + Chr(39) + ComboBox4.Text.Trim + Chr(39)

        Dim mydataset As New DataSet
        mydataset = GetDataFromDB(str)
        TextBox1.Text = mydataset.Tables(0).Rows(0)("报警内容")
        DateTimePicker1.Value = mydataset.Tables(0).Rows(0)("报警日期")

        Dim mystr As String = mydataset.Tables(0).Rows(0)("录入报警人")
        mystr = "提醒你的人是：" + mystr

        MsgBox(mystr, MsgBoxStyle.Information, "提示")

        mydataset.Dispose()
    End Sub
End Class