frmsourcemodify.vb

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

        " 备注) 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, 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, 50, "备注"))
        '
        '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 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, 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, 50, "备注"))
        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.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, 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))
        '
        'Frmsourcemodify
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(656, 541)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Lbposition, Me.Cbsourcename, Me.GroupBox2, Me.GroupBox1, Me.Txtmodifycompanyphone, Me.Txtmodifycompany, Me.Txtmodifytime, Me.Txtapplycompanyphone, Me.Txtadditional, Me.Label11, Me.Txtapplycompany, Me.Txtapplytime, Me.Cbbumen, Me.Txtshuliang, Me.Txtbianhao, Me.Label10, Me.Label9, Me.Label8, Me.Label7, Me.Label6, Me.Label5, Me.Label4, Me.Label3, Me.Label2, Me.Label1})
        Me.Name = "Frmsourcemodify"
        Me.Text = "修改应急物资信息"
        CType(Me.DataSet71, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtshuliang.TextChanged

    End Sub

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

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

    Private Sub Btfirstrecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btfirstrecord.Click
        Me.BindingContext(DataSet71, "应急物资信息表").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(DataSet71, "应急物资信息表").Position >= 1 Then
            Me.BindingContext(DataSet71, "应急物资信息表").Position -= 1
        Else
            Me.BindingContext(DataSet71, "应急物资信息表").Position = 0
        End If
        showposition()
    End Sub

    Private Sub Btnextrecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnextrecord.Click
        If Me.BindingContext(DataSet71, "应急物资信息表").Position < Me.BindingContext(DataSet71, "应急物资信息表").Count - 1 Then
            Me.BindingContext(DataSet71, "应急物资信息表").Position += 1
        Else
            Me.BindingContext(DataSet71, "应急物资信息表").Position = Me.BindingContext(DataSet71, "应急物资信息表").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(DataSet71, "应急物资信息表").Position = Me.BindingContext(DataSet71, "应急物资信息表").Count - 1
        showposition()
        showposition()
    End Sub

    Private Sub Btseeall_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btseeall.Click
        If Me.BindingContext(DataSet71, "应急物资信息表").Position < Me.BindingContext(DataSet71, "应急物资信息表").Count - 1 Then
            Me.BindingContext(DataSet71, "应急物资信息表").Position += 1
        ElseIf Me.BindingContext(DataSet71, "应急物资信息表").Position = Me.BindingContext(DataSet71, "应急物资信息表").Count - 1 Then
            Me.BindingContext(DataSet71, "应急物资信息表").Position = 0
        End If
        showposition()
    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(DataSet71, "应急物资信息表").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()

            DataSet71.Clear()
            OleDbDataAdapter1.Fill(DataSet71)

            If currentpos >= Me.BindingContext(DataSet71, "应急物资信息表").Count Then
                currentpos = Me.BindingContext(DataSet71, "应急物资信息表").Count
            End If
            Me.BindingContext(DataSet71, "应急物资信息表").Position = currentpos
            showposition()
            OleDbConnection1.Close()
        End If
    End Sub

    Private Sub Btreturn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btreturn.Click
        Dim selstr As String = "select * from 应急物资信息表"
        OleDbConnection1.Open()
        OleDbDataAdapter1.SelectCommand.CommandText = selstr
        OleDbDataAdapter1.SelectCommand.ExecuteNonQuery()

        DataSet71.Clear()
        OleDbDataAdapter1.Fill(DataSet71, "Table")
        OleDbConnection1.Close()

        showposition()
    End Sub
End Class