form1.vb

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

        Me.Btnextrecord.Text = "下一条记录"
        '
        'Btfrontrecord
        '
        Me.Btfrontrecord.Location = New System.Drawing.Point(152, 24)
        Me.Btfrontrecord.Name = "Btfrontrecord"
        Me.Btfrontrecord.Size = New System.Drawing.Size(112, 23)
        Me.Btfrontrecord.TabIndex = 1
        Me.Btfrontrecord.Text = "前一条记录"
        '
        'Btfirstrecord
        '
        Me.Btfirstrecord.Location = New System.Drawing.Point(24, 24)
        Me.Btfirstrecord.Name = "Btfirstrecord"
        Me.Btfirstrecord.Size = New System.Drawing.Size(96, 23)
        Me.Btfirstrecord.TabIndex = 0
        Me.Btfirstrecord.Text = "第一条记录"
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.AddRange(New System.Windows.Forms.Control() {Me.Btexit, Me.Btreturndata, Me.Btdeleterecord, Me.Btmodifyrecord})
        Me.GroupBox3.Location = New System.Drawing.Point(16, 504)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(672, 56)
        Me.GroupBox3.TabIndex = 34
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "修改突发事件信息："
        '
        'Btexit
        '
        Me.Btexit.Location = New System.Drawing.Point(536, 24)
        Me.Btexit.Name = "Btexit"
        Me.Btexit.Size = New System.Drawing.Size(96, 23)
        Me.Btexit.TabIndex = 3
        Me.Btexit.Text = "退出"
        '
        'Btreturndata
        '
        Me.Btreturndata.Location = New System.Drawing.Point(376, 25)
        Me.Btreturndata.Name = "Btreturndata"
        Me.Btreturndata.Size = New System.Drawing.Size(104, 23)
        Me.Btreturndata.TabIndex = 2
        Me.Btreturndata.Text = "返回原始数据"
        '
        'Btdeleterecord
        '
        Me.Btdeleterecord.Location = New System.Drawing.Point(208, 24)
        Me.Btdeleterecord.Name = "Btdeleterecord"
        Me.Btdeleterecord.Size = New System.Drawing.Size(112, 23)
        Me.Btdeleterecord.TabIndex = 1
        Me.Btdeleterecord.Text = "删除记录"
        '
        'Btmodifyrecord
        '
        Me.Btmodifyrecord.Location = New System.Drawing.Point(24, 24)
        Me.Btmodifyrecord.Name = "Btmodifyrecord"
        Me.Btmodifyrecord.Size = New System.Drawing.Size(96, 23)
        Me.Btmodifyrecord.TabIndex = 0
        Me.Btmodifyrecord.Text = "修改记录"
        '
        'OleDbDataAdapter1
        '
        Me.OleDbDataAdapter1.DeleteCommand = Me.OleDbDeleteCommand1
        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("申报时间", "申报时间"), 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("备注", "备注")})})
        Me.OleDbDataAdapter1.UpdateCommand = Me.OleDbUpdateCommand1
        '
        'OleDbDeleteCommand1
        '
        Me.OleDbDeleteCommand1.CommandText = "DELETE FROM 突发事件信息表 WHERE (编号 = ?) AND (修改单位 = ? OR ? IS NULL AND 修改单位 IS NULL) A" & _
        "ND (修改单位电话 = ? OR ? IS NULL AND 修改单位电话 IS NULL) AND (修改时间 = ? OR ? IS NULL AND 修" & _
        "改时间 IS NULL) AND (发生地点 = ? OR ? IS NULL AND 发生地点 IS NULL) AND (发生时间 = ? OR ? IS " & _
        "NULL AND 发生时间 IS NULL) AND (备注 = ? OR ? IS NULL AND 备注 IS NULL) AND (持续时间 = ? OR" & _
        " ? IS NULL AND 持续时间 IS NULL) AND (申报单位 = ? OR ? IS NULL AND 申报单位 IS NULL) AND (申" & _
        "报单位电话 = ? OR ? IS NULL AND 申报单位电话 IS NULL) AND (申报时间 = ? OR ? IS NULL AND 申报时间 I" & _
        "S NULL) AND (突发事件名称 = ? OR ? IS NULL AND 突发事件名称 IS NULL) AND (类别 = ? OR ? IS NUL" & _
        "L AND 类别 IS NULL) AND (财产损失 = ? OR ? IS NULL AND 财产损失 IS NULL)"
        Me.OleDbDeleteCommand1.Connection = Me.OleDbConnection1
        Me.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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.OleDbDeleteCommand1.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))
        '
        '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=1;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"
        '
        'OleDbInsertCommand1
        '
        Me.OleDbInsertCommand1.CommandText = "INSERT INTO 突发事件信息表(编号, 突发事件名称, 类别, 发生地点, 发生时间, 持续时间, 受伤人数, 死亡人数, 财产损失, 申报时间, 申报单" & _
        "位, 申报单位电话, 修改时间, 修改单位, 修改单位电话, 备注) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?" & _
        ", ?, ?, ?)"
        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, 30, "突发事件名称"))
        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.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, 20, "持续时间"))
        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.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.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, "修改单位电话"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("备注", System.Data.OleDb.OleDbType.VarWChar, 255, "备注"))
        '
        'OleDbSelectCommand1
        '
        Me.OleDbSelectCommand1.CommandText = "SELECT 编号, 突发事件名称, 类别, 发生地点, 发生时间, 持续时间, 受伤人数, 死亡人数, 财产损失, 申报时间, 申报单位, 申报单位电话, 修改" & _
        "时间, 修改单位, 修改单位电话, 备注 FROM 突发事件信息表"
        Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
        '
        'OleDbUpdateCommand1
        '
        Me.OleDbUpdateCommand1.CommandText = "UPDATE 突发事件信息表 SET 编号 = ?, 突发事件名称 = ?, 类别 = ?, 发生地点 = ?, 发生时间 = ?, 持续时间 = ?, 受伤人数" & _
        " = ?, 死亡人数 = ?, 财产损失 = ?, 申报时间 = ?, 申报单位 = ?, 申报单位电话 = ?, 修改时间 = ?, 修改单位 = ?, 修改" & _
        "单位电话 = ?, 备注 = ? WHERE (编号 = ?) AND (修改单位 = ? OR ? IS NULL AND 修改单位 IS NULL) AND" & _
        " (修改单位电话 = ? OR ? IS NULL AND 修改单位电话 IS NULL) AND (修改时间 = ? OR ? IS NULL AND 修改时" & _
        "间 IS NULL) AND (发生地点 = ? OR ? IS NULL AND 发生地点 IS NULL) AND (发生时间 = ? OR ? IS NU" & _
        "LL AND 发生时间 IS NULL) AND (备注 = ? OR ? IS NULL AND 备注 IS NULL) AND (持续时间 = ? OR ?" & _
        " IS NULL AND 持续时间 IS NULL) AND (申报单位 = ? OR ? IS NULL AND 申报单位 IS NULL) AND (申报单" & _
        "位电话 = ? OR ? IS NULL AND 申报单位电话 IS NULL) AND (申报时间 = ? OR ? IS NULL AND 申报时间 IS " & _
        "NULL) AND (突发事件名称 = ? OR ? IS NULL AND 突发事件名称 IS NULL) AND (类别 = ? OR ? IS NULL " & _
        "AND 类别 IS NULL) AND (财产损失 = ? OR ? IS NULL AND 财产损失 IS NULL)"
        Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1
        Me.OleDbUpdateCommand1.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.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("突发事件名称", System.Data.OleDb.OleDbType.VarWChar, 30, "突发事件名称"))
        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, 50, "发生地点"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("发生时间", System.Data.OleDb.OleDbType.DBDate, 0, "发生时间"))
        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.Integer, 0, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "受伤人数", System.Data.DataRowVersion.Current, Nothing))
        Me.OleDbUpdateCommand1.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.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.DBDate, 0, "申报时间"))
        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.DBDate, 0, "修改时间"))