frmmansearch.vb

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

        '
        Me.Txtnumberman.Enabled = False
        Me.Txtnumberman.Location = New System.Drawing.Point(552, 16)
        Me.Txtnumberman.Name = "Txtnumberman"
        Me.Txtnumberman.TabIndex = 5
        Me.Txtnumberman.Text = ""
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(456, 16)
        Me.Label5.Name = "Label5"
        Me.Label5.TabIndex = 4
        Me.Label5.Text = "应急人员人数："
        '
        'Cbnamejob
        '
        Me.Cbnamejob.Enabled = False
        Me.Cbnamejob.Items.AddRange(New Object() {"消防队员", "公安民警", "交通警察", "武装警察", "护士", "医师", "水利工程师", "化学工程师", "城市管理员", "森林火警"})
        Me.Cbnamejob.Location = New System.Drawing.Point(224, 16)
        Me.Cbnamejob.Name = "Cbnamejob"
        Me.Cbnamejob.Size = New System.Drawing.Size(121, 20)
        Me.Cbnamejob.TabIndex = 2
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(152, 16)
        Me.Label4.Name = "Label4"
        Me.Label4.TabIndex = 1
        Me.Label4.Text = "职业名称："
        '
        'Label3
        '
        Me.Label3.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label3.Location = New System.Drawing.Point(8, 16)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(112, 23)
        Me.Label3.TabIndex = 0
        Me.Label3.Text = "设置查询条件："
        '
        'Btexitmansearch
        '
        Me.Btexitmansearch.Location = New System.Drawing.Point(616, 384)
        Me.Btexitmansearch.Name = "Btexitmansearch"
        Me.Btexitmansearch.Size = New System.Drawing.Size(80, 32)
        Me.Btexitmansearch.TabIndex = 1
        Me.Btexitmansearch.Text = "退出"
        '
        'OleDbDataAdapter1
        '
        Me.OleDbDataAdapter1.InsertCommand = Me.OleDbInsertCommand1
        Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1
        Me.OleDbDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "应急人员信息表", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("编号", "编号"), New System.Data.Common.DataColumnMapping("职业名称", "职业名称"), New System.Data.Common.DataColumnMapping("人数", "人数"), New System.Data.Common.DataColumnMapping("隶属部门", "隶属部门"), New System.Data.Common.DataColumnMapping("申报时间", "申报时间"), New System.Data.Common.DataColumnMapping("申报单位", "申报单位"), New System.Data.Common.DataColumnMapping("申报单位电话", "申报单位电话"), New System.Data.Common.DataColumnMapping("修改时间", "修改时间"), New System.Data.Common.DataColumnMapping("修改单位", "修改单位"), New System.Data.Common.DataColumnMapping("修改单位电话", "修改单位电话")})})
        '
        'OleDbInsertCommand1
        '
        Me.OleDbInsertCommand1.CommandText = "INSERT INTO 应急人员信息表(编号, 职业名称, 人数, 隶属部门, 申报时间, 申报单位, 申报单位电话, 修改时间, 修改单位, 修改单位电话) V" & _
        "ALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
        Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("编号", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "编号", System.Data.DataRowVersion.Current, Nothing))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("职业名称", System.Data.OleDb.OleDbType.VarWChar, 20, "职业名称"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("人数", System.Data.OleDb.OleDbType.SmallInt, 0, System.Data.ParameterDirection.Input, False, CType(5, Byte), CType(0, Byte), "人数", System.Data.DataRowVersion.Current, Nothing))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("隶属部门", System.Data.OleDb.OleDbType.VarWChar, 50, "隶属部门"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("申报时间", System.Data.OleDb.OleDbType.DBDate, 0, "申报时间"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("申报单位", System.Data.OleDb.OleDbType.VarWChar, 40, "申报单位"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("申报单位电话", System.Data.OleDb.OleDbType.VarWChar, 20, "申报单位电话"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("修改时间", System.Data.OleDb.OleDbType.DBDate, 0, "修改时间"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("修改单位", System.Data.OleDb.OleDbType.VarWChar, 40, "修改单位"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("修改单位电话", System.Data.OleDb.OleDbType.VarWChar, 20, "修改单位电话"))
        '
        'OleDbConnection1
        '
        Me.OleDbConnection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=D:\曹乃勇毕业设计" & _
        "\数据库\应急信息系统数据库.mdb;Mode=Share Deny None;Extended Properties="""";Jet OLEDB:System " & _
        "database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:" & _
        "Engine Type=5;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Op" & _
        "s=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet " & _
        "OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Do" & _
        "n't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;" & _
        "Jet OLEDB:SFP=False"
        '
        'OleDbSelectCommand1
        '
        Me.OleDbSelectCommand1.CommandText = "SELECT 编号, 职业名称, 人数, 隶属部门, 申报时间, 申报单位, 申报单位电话, 修改时间, 修改单位, 修改单位电话 FROM 应急人员信息表"
        Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
        '
        'Frmmansearch
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(712, 421)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Btexitmansearch, Me.TabControl1})
        Me.Name = "Frmmansearch"
        Me.Text = "应急人员信息查询"
        Me.TabControl1.ResumeLayout(False)
        Me.TabPage1.ResumeLayout(False)
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet51, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabPage2.ResumeLayout(False)
        CType(Me.DataGrid2, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabPage4.ResumeLayout(False)
        CType(Me.DataGrid3, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Btbhsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btbhsearch.Click
        '用户首次点击查询按钮
        If Btbhsearch.Text = "按编号查询" Then
            Txtmanbianhao.Text = ""
            Btbhsearch.Text = "确定查询"
            Txtmanbianhao.Enabled = True
            Return
        End If
        '用户再次点击查询按钮,并执行查询操作
        If Btbhsearch.Text = "确定查询" Then
            '如果应急人员编号文本框为空,提示用户填写
            If Txtmanbianhao.Text = "" Then
                MessageBox.Show("请输入应急人员信息编号！")
                Return
                '用户填写了编号信息
            Else
                Dim selstr As String = ""
                Dim bianhao As String = Txtmanbianhao.Text
                '定义查询语句
                selstr = selstr & "编号='" & bianhao & "'"
                Dim dvresult As DataView = DataSet51.应急人员信息表.DefaultView
                '按照编号自动显示应急人员信息
                dvresult.Sort = "编号"
                dvresult.RowFilter = selstr
                '锁定当前行
                dvresult.RowStateFilter = DataViewRowState.CurrentRows
                '在DataGrid中显示查询信息
                DataGrid1.DataSource = dvresult
                Btbhsearch.Text = "按编号查询"
                Txtmanbianhao.Enabled = False
                Return
            End If
        End If
    End Sub

    Private Sub Frmmansearch_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            OleDbConnection1.Open()
            OleDbDataAdapter1.Fill(DataSet51, "应急人员信息表")
        Catch eexception As System.Exception
            MsgBox(eexception.ToString)
        Finally
            OleDbConnection1.Close()
        End Try
    End Sub

    Private Sub Btjobnamesearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btjobnamesearch.Click

        If Btjobnamesearch.Text = "按职业名称查询" Then
            Cbjobname.Text = ""
            Btjobnamesearch.Text = "确定查询"
            Cbjobname.Enabled = True
            Return
        End If
        If Btjobnamesearch.Text = "确定查询" Then
            If Cbjobname.Text = "" Then
                MessageBox.Show("请选择要查询应急人员的职业名称！")
                Return
            Else
                Dim selstr As String = ""
                Dim jobname As String = Cbjobname.Text
                selstr = selstr & "职业名称='" & jobname & "'"
                Dim dvresult As DataView = DataSet51.应急人员信息表.DefaultView
                dvresult.Sort = "编号"
                dvresult.RowFilter = selstr
                dvresult.RowStateFilter = DataViewRowState.CurrentRows
                DataGrid2.DataSource = dvresult
                Btjobnamesearch.Text = "按职业名称查询"
                Cbjobname.Enabled = False
                Return
            End If

        End If
    End Sub

    Private Sub Btzhsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btzhsearch.Click

        Dim namejob As String = Cbnamejob.Text
        Dim numberman As String = Txtnumberman.Text
        Dim relation2 As String = Cbrelation.Text
        Dim selstr1 As String = ""
        '用户首次点击查询按钮
        If Btzhsearch.Text = "综合查询" Then
            Cbnamejob.Text = ""
            Txtnumberman.Text = ""
            Btzhsearch.Text = "确定查询"
            Cbnamejob.Enabled = True
            Cbrelation.Enabled = True
            Txtnumberman.Enabled = True
            Return
        End If
        '用户再次点击查询按钮,并执行查询操作
        If Btzhsearch.Text = "确定查询" Then
            '如果职业名称和人数文本框为空
            If Cbnamejob.Text = "" Or Txtnumberman.Text = "" Then
                MessageBox.Show("职业名称和人数均不能为空！请输入要查询应急人员的职业名称和人数")
                Return
                '用户已经输入职业名称和人数信息,执行查询操作
            Else
                selstr1 = selstr1 & "职业名称='" & namejob & "'" & relation2 & " 人数='" & numberman & "'"
                '将数据集的突发事件信息表产生一个数据视图显示在DataGrid中
                Dim dvresult1 As DataView = DataSet51.应急人员信息表.DefaultView
                dvresult1.Sort = "编号"
                dvresult1.RowFilter = selstr1
                '锁定当前行
                dvresult1.RowStateFilter = DataViewRowState.CurrentRows
                '在DataGrid中显示查询信息
                DataGrid3.DataSource = dvresult1
                Btzhsearch.Text = "综合查询"
                Cbnamejob.Enabled = False
                Cbrelation.Enabled = False
                Txtnumberman.Enabled = False
                Return
            End If
        End If
    End Sub

    Private Sub Btexitmansearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btexitmansearch.Click
        Dim newFrmmain As New Frmmain()
        newFrmmain.Show()
        Me.Hide()
    End Sub

    Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged

    End Sub
End Class