frmsourcesearch.vb

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

        '
        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))
        '
        'Frmsourcesearch
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(752, 413)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Btexitsourcesearch, Me.TabControl1})
        Me.Name = "Frmsourcesearch"
        Me.Text = "应急物资信息查询"
        Me.TabControl1.ResumeLayout(False)
        Me.TabPage1.ResumeLayout(False)
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabPage2.ResumeLayout(False)
        CType(Me.DataGrid2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet71, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabPage3.ResumeLayout(False)
        CType(Me.DataGrid3, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

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

    Private Sub Btnamesearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnamesearch.Click
        If Btnamesearch.Text = "按名称查询" Then
            Cbsourcename.Text = ""
            Btnamesearch.Text = "确定查询"
            Cbsourcename.Enabled = True
            Return
        End If
        If Btnamesearch.Text = "确定查询" Then
            If Cbsourcename.Text = "" Then
                MessageBox.Show("请选择要查询应急物资名称！")
                Return
            Else
                Dim selstr As String = ""
                Dim sourcename As String = Cbsourcename.Text
                selstr = selstr & "应急物资名称='" & sourcename & "'"
                Dim dvresult As DataView = DataSet71.应急物资信息表.DefaultView
                dvresult.Sort = "编号"
                dvresult.RowFilter = selstr
                dvresult.RowStateFilter = DataViewRowState.CurrentRows
                DataGrid1.DataSource = dvresult
                Btnamesearch.Text = "按名称查询"
                Cbsourcename.Enabled = False
                Return
            End If

        End If
    End Sub

    Private Sub Btnumbersearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnumbersearch.Click
        If Btnumbersearch.Text = "按数量查询" Then
            Txtsourcenumber.Text = ""
            Btnumbersearch.Text = "确定查询"
            Txtsourcenumber.Enabled = True
            Return
        End If
        If Btnumbersearch.Text = "确定查询" Then
            If Txtsourcenumber.Text = "" Then
                MessageBox.Show("请输入应急物资数量！")
                Return
            Else
                Dim selstr As String = ""
                Dim sourcenumber As String = Txtsourcenumber.Text
                selstr = selstr & "数量='" & sourcenumber & "'"
                Dim dvresult As DataView = DataSet71.应急物资信息表.DefaultView
                dvresult.Sort = "编号"
                dvresult.RowFilter = selstr
                dvresult.RowStateFilter = DataViewRowState.CurrentRows
                DataGrid1.DataSource = dvresult
                Btnumbersearch.Text = "按数量查询"
                Txtsourcenumber.Enabled = False
                Return
            End If
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btzonghesearch.Click
        Dim namesource As String = Cbnamesource.Text
        Dim numbersource As String = Txtnumbersource.Text
        Dim relation2 As String = Cbrelation.Text
        Dim selstr1 As String = ""
        '首次点击查询按钮
        If Btzonghesearch.Text = "综合查询" Then
            Cbnamesource.Text = ""
            Txtnumbersource.Text = ""
            Btzonghesearch.Text = "确定查询"
            Cbnamesource.Enabled = True
            Cbrelation.Enabled = True
            Txtnumbersource.Enabled = True
            Return
        End If
        '再次点击查询按钮
        If Btzonghesearch.Text = "确定查询" Then
            '如果应急物资名称和数量文本框为空,向用户提示信息
            If Cbnamesource.Text = "" Or Txtnumbersource.Text = "" Then
                MessageBox.Show("应急物资名称和数量均不能为空！请输入要查询应急物资名称和数量！")
                Return
            Else
                selstr1 = selstr1 & "应急物资名称='" & namesource & "'" & relation2 & " 数量='" & numbersource & "'"
                '将数据集的突发事件信息表产生一个数据视图显示在DataGrid中
                Dim dvresult1 As DataView = DataSet71.应急物资信息表.DefaultView
                dvresult1.Sort = "编号"
                dvresult1.RowFilter = selstr1
                '锁定当前行
                dvresult1.RowStateFilter = DataViewRowState.CurrentRows
                '在DataGrid中显示查询结果
                DataGrid3.DataSource = dvresult1
                Btzonghesearch.Text = "综合查询"
                Cbnamesource.Enabled = False
                Cbrelation.Enabled = False
                Txtnumbersource.Enabled = False
                Return
            End If
        End If
    End Sub

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