frmaccidentadd.vb

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

        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 NUL" & _
        "L) 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) AN" & _
        "D (突发事件名称 = ? OR ? IS NULL AND 突发事件名称 IS NULL) AND (类别 = ? OR ? IS NULL AND 类别 I" & _
        "S 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.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, "修改时间"))
        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))
        '
        'Label15
        '
        Me.Label15.Location = New System.Drawing.Point(32, 8)
        Me.Label15.Name = "Label15"
        Me.Label15.TabIndex = 33
        Me.Label15.Text = "编号："
        '
        'Txtbianhao
        '
        Me.Txtbianhao.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet21, "突发事件信息表.编号"))
        Me.Txtbianhao.Enabled = False
        Me.Txtbianhao.Location = New System.Drawing.Point(128, 8)
        Me.Txtbianhao.Name = "Txtbianhao"
        Me.Txtbianhao.Size = New System.Drawing.Size(120, 21)
        Me.Txtbianhao.TabIndex = 34
        Me.Txtbianhao.Text = ""
        '
        'DataSet21
        '
        Me.DataSet21.DataSetName = "DataSet2"
        Me.DataSet21.Locale = New System.Globalization.CultureInfo("zh-CN")
        Me.DataSet21.Namespace = "http://www.tempuri.org/DataSet2.xsd"
        '
        'Frmaccidentadd
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(640, 517)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Txtbianhao, Me.Label15, Me.Btexitaddaccident, Me.Btrefresh, Me.Btadd, Me.GroupBox1, Me.Txtmodifycompanyphone, Me.Txtmodifycompany, Me.Txtmodifytime, Me.Txtapplycompanyphone, Me.Label14, Me.Label13, Me.Label12, Me.Label11, Me.Txtapplycompany, Me.Txtapplytime, Me.Txtcost, Me.Txtdeadnumber, Me.Txthurtnumber, Me.Label10, Me.Label9, Me.Label8, Me.Label7, Me.Label1, Me.Txtaccidentaddr, Me.Txtlasttime, Me.Txtbegintime, Me.Cbaccidenttype, Me.Txtaccidentname, Me.Label6, Me.Label5, Me.Label4, Me.Label3, Me.Label2})
        Me.Name = "Frmaccidentadd"
        Me.Text = "添加突发事件信息"
        Me.GroupBox1.ResumeLayout(False)
        CType(Me.DataSet21, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Frmaccidentadd_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

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

    Private Sub Btadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btadd.Click
        If Btadd.Text = "添加记录" Then
            Btadd.Text = "确定添加"
            setall1()
            Btrefresh.Enabled = True
            Return
        End If
        If Btadd.Text = "确定添加" Then
            Dim tmptable As New System.Data.DataTable()
            tmptable = DataSet21.Tables("突发事件信息表")
            Dim row As System.Data.DataRow
            OleDbConnection1.Open()
            Dim tmpcommand As New System.Data.OleDb.OleDbCommand("insert into 突发事件信息表 (编号,突发事件名称,类别,发生地点,发生时间,持续时间,受伤人数,死亡人数,财产损失,申报时间,申报单位,申报单位电话,修改时间,修改单位,修改单位电话,备注) values('" & 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 & "')", OleDbConnection1)
            Try
                tmpcommand.ExecuteNonQuery()
            Catch fillexception As System.Exception
                MsgBox("caught exception:" & fillexception.Message)

            Finally
                OleDbConnection1.Close()
            End Try

            DataSet21.Clear()
            OleDbDataAdapter1.Fill(DataSet21, "突发事件信息表")
            Btadd.Text = "添加记录"
            setall2()
            Btrefresh.Enabled = True
            Return
        End If

    End Sub

    Private Sub Btrefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btrefresh.Click
        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 = ""
    End Sub
End Class