form1.vb

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

        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("修改单位", System.Data.OleDb.OleDbType.VarWChar, 40, "修改单位"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("修改单位电话", System.Data.OleDb.OleDbType.VarWChar, 20, "修改单位电话"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("备注", System.Data.OleDb.OleDbType.VarWChar, 255, "备注"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_编号", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "编号", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_修改单位", System.Data.OleDb.OleDbType.VarWChar, 40, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "修改单位", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_修改单位1", System.Data.OleDb.OleDbType.VarWChar, 40, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "修改单位", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_修改单位电话", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "修改单位电话", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_修改单位电话1", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "修改单位电话", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_修改时间", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "修改时间", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_修改时间1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "修改时间", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_发生地点", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "发生地点", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_发生地点1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "发生地点", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_发生时间", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "发生时间", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_发生时间1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "发生时间", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_备注", System.Data.OleDb.OleDbType.VarWChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "备注", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_备注1", System.Data.OleDb.OleDbType.VarWChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "备注", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_持续时间", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "持续时间", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_持续时间1", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "持续时间", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_申报单位", System.Data.OleDb.OleDbType.VarWChar, 40, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "申报单位", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_申报单位1", System.Data.OleDb.OleDbType.VarWChar, 40, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "申报单位", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_申报单位电话", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "申报单位电话", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_申报单位电话1", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "申报单位电话", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_申报时间", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "申报时间", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_申报时间1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "申报时间", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_突发事件名称", System.Data.OleDb.OleDbType.VarWChar, 30, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "突发事件名称", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_突发事件名称1", System.Data.OleDb.OleDbType.VarWChar, 30, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "突发事件名称", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_类别", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "类别", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_类别1", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "类别", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_财产损失", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "财产损失", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_财产损失1", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "财产损失", System.Data.DataRowVersion.Original, Nothing))
        '
        'Lbposition
        '
        Me.Lbposition.Location = New System.Drawing.Point(344, 304)
        Me.Lbposition.Name = "Lbposition"
        Me.Lbposition.Size = New System.Drawing.Size(336, 23)
        Me.Lbposition.TabIndex = 35
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(712, 585)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Lbposition, Me.GroupBox3, Me.GroupBox2, Me.GroupBox1, Me.Cbaccidenttype, Me.Txtmodifycompanyphone, Me.Txtmodifycompany, Me.Txtmodifytime, Me.Txtapplycompanyphone, Me.Txtapplycompany, Me.Txtapplytime, Me.Txtcost, Me.Txtdeadnumber, Me.Txthurtnumber, Me.Txtlasttime, Me.Txtbegintime, Me.Txtaccidentaddr, Me.Txtaccidentname, Me.Txtbianhao, Me.Label16, Me.Label14, Me.Label13, Me.Label12, Me.Label11, Me.Label10, Me.Label9, Me.Label8, Me.Label7, Me.Label6, Me.Label5, Me.Label4, Me.Label3, Me.Label2, Me.Label1})
        Me.Name = "Form1"
        Me.Text = "突发事件信息修改"
        CType(Me.DataSet21, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DataSet21.Clear()
        OleDbDataAdapter1.Fill(DataSet21)
    End Sub


    Private Sub Btfirstrecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btfirstrecord.Click
        'Me.BindingContext(DataSet21, "突发事件信息表").Position为当前显示的记录在绑定数据集表中的记录号
        Me.BindingContext(DataSet21, "突发事件信息表").Position = 0
        showposition()
    End Sub

    Private Sub Btfrontrecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btfrontrecord.Click
        '如果当前记录不是在数据集的第一条记录
        If Me.BindingContext(DataSet21, "突发事件信息表").Position >= 1 Then
            '显示该记录的前面一个记录信息()
            Me.BindingContext(DataSet21, "突发事件信息表").Position -= 1
            '如果当前记录是在数据集的第一条记录
        Else
            '显示第一条记录
            Me.BindingContext(DataSet21, "突发事件信息表").Position = 0
        End If
        showposition()
    End Sub

    Private Sub Btnextrecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnextrecord.Click
        'Me.BindingContext(DataSet21, "突发事件信息表").Count可以得到数据集中记录的数目
        If Me.BindingContext(DataSet21, "突发事件信息表").Position < Me.BindingContext(DataSet21, "突发事件信息表").Count - 1 Then
            Me.BindingContext(DataSet21, "突发事件信息表").Position += 1
        Else
            Me.BindingContext(DataSet21, "突发事件信息表").Position = Me.BindingContext(DataSet21, "突发事件信息表").Count - 1
        End If
        showposition()
    End Sub

    Private Sub Btlastrecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btlastrecord.Click
        Me.BindingContext(DataSet21, "突发事件信息表").Position = Me.BindingContext(DataSet21, "突发事件信息表").Count - 1
        showposition()
    End Sub

    Private Sub Btseeall_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btseeall.Click
        If Me.BindingContext(DataSet21, "突发事件信息表").Position < Me.BindingContext(DataSet21, "突发事件信息表").Count - 1 Then
            Me.BindingContext(DataSet21, "突发事件信息表").Position += 1
        ElseIf Me.BindingContext(DataSet21, "突发事件信息表").Position = Me.BindingContext(DataSet21, "突发事件信息表").Count - 1 Then
            Me.BindingContext(DataSet21, "突发事件信息表").Position = 0
        End If
        showposition()
    End Sub

    Private Sub Btmodifyrecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btmodifyrecord.Click
        If Btmodifyrecord.Text = "修改记录" Then
            Btmodifyrecord.Text = "确定修改"
            setall1()
            setall2()
            Return
        End If
        If Btmodifyrecord.Text = "确定修改" Then
            Dim tmptable As New System.Data.DataTable()
            OleDbConnection1.Open()
            tmptable = DataSet21.Tables("突发事件信息表")
            Dim tmpcommand As New System.Data.OleDb.OleDbCommand("update 突发事件信息表 set 编号='" & Txtbianhao.Text & "',突发事件名称='" & Txtaccidentname.Text & "',类别='" & Cbaccidenttype.Text & "',发生地点='" & Txtaccidentaddr.Text & "',发生时间='" & Txtbegintime.Text & "',持续时间='" & Txtlasttime.Text & "',受伤人数='" & Txthurtnumber.Text & "',死亡人数='" & Txtdeadnumber.Text & "',财产损失='" & Txtcost.Text & "',申报时间='" & Txtapplytime.Text & "',申报单位='" & Txtapplycompany.Text & "',申报单位电话='" & Txtapplycompanyphone.Text & "',修改时间='" & Txtmodifytime.Text & "',修改单位='" & Txtmodifycompany.Text & "',修改单位电话='" & Txtmodifycompanyphone.Text & "',备注='" & Txtadditional.Text & "'where 编号='" & Txtbianhao.Text & "'", OleDbConnection1)
            tmpcommand.ExecuteNonQuery()
            DataSet21.Clear()
            OleDbDataAdapter1.Fill(DataSet21, "突发事件信息表")
            OleDbConnection1.Close()

            showposition()
            setall3()
            setall4()
            Btmodifyrecord.Text = "修改记录"
            Return
        End If
    End Sub

    Private Sub Btdeleterecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btdeleterecord.Click
        Dim currentpos As Integer = Me.BindingContext(DataSet21, "突发事件信息表").Position
        If MessageBox.Show("确定删除吗？", "突发事件信息表中-确认", MessageBoxButtons.OKCancel) = DialogResult.OK Then
            Dim delstr As String = "delete * from 突发事件信息表 where 编号=" & Txtbianhao.Text

            OleDbConnection1.Open()
            OleDbDataAdapter1.DeleteCommand.CommandText = delstr
            OleDbDataAdapter1.DeleteCommand.ExecuteNonQuery()

            DataSet21.Clear()
            OleDbDataAdapter1.Fill(DataSet21)

            If currentpos >= Me.BindingContext(DataSet21, "突发事件信息表").Count Then
                currentpos = Me.BindingContext(DataSet21, "突发事件信息表").Count
            End If
            Me.BindingContext(DataSet21, "突发事件信息表").Position = currentpos
            showposition()
            OleDbConnection1.Close()
        End If
    End Sub

    Private Sub Btreturndata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btreturndata.Click
        Dim selstr As String = "select * from 突发事件信息表"
        OleDbConnection1.Open()
        OleDbDataAdapter1.SelectCommand.CommandText = selstr
        OleDbDataAdapter1.SelectCommand.ExecuteNonQuery()

        DataSet21.Clear()
        OleDbDataAdapter1.Fill(DataSet21, "突发事件信息表")
        OleDbConnection1.Close()

        showposition()
    End Sub

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