frmaccidentsearch.vb

应急系统(Emergency System, ES)主要是针对自然灾害,安全事故

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bttypesearch.Click
        '首次点击查询按纽
        If Bttypesearch.Text = "按类别查询" Then
            Cbaccidenttype.Text = ""
            Bttypesearch.Text = "确定查询"
            Cbaccidenttype.Enabled = True
            Return
        End If
        '再次点击查询按钮
        If Bttypesearch.Text = "确定查询" Then
            '如果突发事件类别文本框为空,向用户显示提示信息
            If Cbaccidenttype.Text = "" Then
                MessageBox.Show("请选择突发事件类别！")
                Return
                '如果突发事件类别文本框不为空,执行查询操作
            Else
                Dim selstr As String = ""
                Dim accidenttype As String = Cbaccidenttype.Text
                '定义查询语句
                selstr = selstr & "类别='" & accidenttype & "'"
                '将数据集的突发事件信息表产生一个数据视图显示在DataGrid中
                Dim dvresult As DataView = DataSet21.突发事件信息表.DefaultView
                '按照编号自动排序,并且选择筛选
                dvresult.Sort = "编号"
                dvresult.RowFilter = selstr
                '锁定在当前行
                dvresult.RowStateFilter = DataViewRowState.CurrentRows
                '显示在DataGrid中
                Dgresult.DataSource = dvresult
                Bttypesearch.Text = "按类别查询"
                Cbaccidenttype.Enabled = False
                Return
            End If

        End If
    End Sub

    Private Sub Frmaccidentsearch_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            '打开数据连接
            OleDbConnection1.Open()
            '将突发事件信息表填充到DataSet21中
            OleDbDataAdapter1.Fill(DataSet21, "突发事件信息表")
            '如果操作出错给出提示信息
        Catch eexception As System.Exception
            MsgBox(eexception.ToString)
        Finally
            '断开连接
            OleDbConnection1.Close()
        End Try
    End Sub

    Private Sub Btbianhaosearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btbianhaosearch.Click
        '首次点击查询按纽
        If Btbianhaosearch.Text = "按编号查询" Then
            Txtbianhao.Text = ""
            Btbianhaosearch.Text = "确定查询"
            Txtbianhao.Enabled = True
            Return
        End If
        '再次点击查询按钮
        If Btbianhaosearch.Text = "确定查询" Then
            '如果编号文本框为空,向用户显示提示信息
            If Txtbianhao.Text = "" Then
                MessageBox.Show("请输入突发事件信息编号！")
                Return
                '如果编号文本框不为空,执行查询操作
            Else
                Dim selstr As String = ""
                Dim bianhao As String = Txtbianhao.Text
                '定义查询语句
                selstr = selstr & "编号='" & bianhao & "'"
                '将数据集的突发事件信息表产生一个数据视图显示在DataGrid中
                Dim dvresult As DataView = DataSet21.突发事件信息表.DefaultView
                '按照编号自动排序,并且选择筛选
                dvresult.Sort = "编号"
                dvresult.RowFilter = selstr
                '锁定在当前行
                dvresult.RowStateFilter = DataViewRowState.CurrentRows
                '显示在DataGrid中
                DataGrid1.DataSource = dvresult
                Btbianhaosearch.Text = "按编号查询"
                Txtbianhao.Enabled = False
                Return
            End If

        End If

    End Sub

    Private Sub Bthurtnusearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bthurtnusearch.Click
        '首次点击查询按纽
        If Bthurtnusearch.Text = "按受伤人数查询" Then
            Txthurtnumber.Text = ""
            Bthurtnusearch.Text = "确定查询"
            Txthurtnumber.Enabled = True
            Return
        End If
        '再次点击查询按钮
        If Bthurtnusearch.Text = "确定查询" Then
            '如果受伤人数文本框为空,向用户显示提示信息
            If Txthurtnumber.Text = "" Then
                MessageBox.Show("请输入突发事件信息编号！")
                Return
                '如果受伤人数文本框不为空,执行查询操作
            Else
                Dim selstr As String = ""
                Dim hurtnumber As String = Txthurtnumber.Text
                '定义查询语句
                selstr = selstr & "受伤人数='" & hurtnumber & "'"
                '将数据集的突发事件信息表产生一个数据视图显示在DataGrid中
                Dim dvresult As DataView = DataSet21.突发事件信息表.DefaultView
                dvresult.Sort = "编号"
                dvresult.RowFilter = selstr
                '锁定在当前行
                dvresult.RowStateFilter = DataViewRowState.CurrentRows
                '显示在DataGrid中
                DataGrid2.DataSource = dvresult
                Bthurtnusearch.Text = "按受伤人数查询"
                Txthurtnumber.Enabled = False
                Return
            End If

        End If
    End Sub

    Private Sub TabPage4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage4.Click

    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim accidenttype1 As String = Cbtype.Text
        Dim hurtnumber1 As String = Txthurt.Text
        Dim relation1 As String = Cbrelation.Text
        Dim selstr1 As String = ""
        '首次点击查询按纽
        If Button1.Text = "综合查询" Then
            Cbtype.Text = ""
            Txthurt.Text = ""
            Button1.Text = "确定查询"
            Cbtype.Enabled = True
            Cbrelation.Enabled = True
            Txthurt.Enabled = True
            Return
        End If
        '如果类别和受伤人数文本框均为空
        If Cbtype.Text = "" Or Txthurt.Text = "" Then
            MessageBox.Show("突发事件类别和受伤人数均不能为空！请输入要查询突发事件类别和受伤人数")
            Return
            ' 如果用户已经输入了类别和受伤人数,执行查询操作
        Else
            selstr1 = selstr1 & "类别='" & accidenttype1 & "'" & relation1 & " 受伤人数='" & hurtnumber1 & "'"
            '将数据集的突发事件信息表产生一个数据视图显示在DataGrid中
            Dim dvresult1 As DataView = DataSet21.突发事件信息表.DefaultView
            dvresult1.Sort = "编号"
            dvresult1.RowFilter = selstr1
            '锁定在当前行
            dvresult1.RowStateFilter = DataViewRowState.CurrentRows
            '显示在DataGrid中
            DataGrid3.DataSource = dvresult1
            Button1.Text = "综合查询"
            Cbtype.Enabled = False
            Cbrelation.Enabled = False
            Txthurt.Enabled = False
            Return
        End If
    End Sub


End Class