frmsourcesearch.vb

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

        Me.Btnumbersearch.TabIndex = 2
        Me.Btnumbersearch.Text = "按数量查询"
        '
        'Txtsourcenumber
        '
        Me.Txtsourcenumber.Enabled = False
        Me.Txtsourcenumber.Location = New System.Drawing.Point(240, 16)
        Me.Txtsourcenumber.Name = "Txtsourcenumber"
        Me.Txtsourcenumber.Size = New System.Drawing.Size(176, 21)
        Me.Txtsourcenumber.TabIndex = 1
        Me.Txtsourcenumber.Text = ""
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(24, 16)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(192, 23)
        Me.Label2.TabIndex = 0
        Me.Label2.Text = "请输入要查询应急物资数量："
        '
        'TabPage3
        '
        Me.TabPage3.Controls.AddRange(New System.Windows.Forms.Control() {Me.Btzonghesearch, Me.DataGrid3, Me.Label5, Me.Cbrelation, Me.Txtnumbersource, Me.Cbnamesource, Me.Label4, Me.Label3})
        Me.TabPage3.Location = New System.Drawing.Point(4, 21)
        Me.TabPage3.Name = "TabPage3"
        Me.TabPage3.Size = New System.Drawing.Size(744, 351)
        Me.TabPage3.TabIndex = 2
        Me.TabPage3.Text = "综合查询"
        '
        'Btzonghesearch
        '
        Me.Btzonghesearch.Location = New System.Drawing.Point(560, 48)
        Me.Btzonghesearch.Name = "Btzonghesearch"
        Me.Btzonghesearch.Size = New System.Drawing.Size(96, 23)
        Me.Btzonghesearch.TabIndex = 7
        Me.Btzonghesearch.Text = "综合查询"
        '
        'DataGrid3
        '
        Me.DataGrid3.DataMember = ""
        Me.DataGrid3.DataSource = Me.DataSet71.应急物资信息表
        Me.DataGrid3.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid3.Location = New System.Drawing.Point(8, 72)
        Me.DataGrid3.Name = "DataGrid3"
        Me.DataGrid3.Size = New System.Drawing.Size(728, 272)
        Me.DataGrid3.TabIndex = 6
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(560, 16)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(48, 23)
        Me.Label5.TabIndex = 5
        Me.Label5.Text = "数量："
        '
        'Cbrelation
        '
        Me.Cbrelation.Enabled = False
        Me.Cbrelation.Items.AddRange(New Object() {"and", "or"})
        Me.Cbrelation.Location = New System.Drawing.Point(440, 16)
        Me.Cbrelation.Name = "Cbrelation"
        Me.Cbrelation.Size = New System.Drawing.Size(80, 20)
        Me.Cbrelation.TabIndex = 4
        Me.Cbrelation.Text = "and"
        '
        'Txtnumbersource
        '
        Me.Txtnumbersource.Enabled = False
        Me.Txtnumbersource.Location = New System.Drawing.Point(624, 16)
        Me.Txtnumbersource.Name = "Txtnumbersource"
        Me.Txtnumbersource.TabIndex = 3
        Me.Txtnumbersource.Text = ""
        '
        'Cbnamesource
        '
        Me.Cbnamesource.Enabled = False
        Me.Cbnamesource.Items.AddRange(New Object() {"消防车", "警车", "清障车", "床位", "消防栓", "化学品处理车", "氧气瓶"})
        Me.Cbnamesource.Location = New System.Drawing.Point(256, 16)
        Me.Cbnamesource.Name = "Cbnamesource"
        Me.Cbnamesource.Size = New System.Drawing.Size(136, 20)
        Me.Cbnamesource.TabIndex = 2
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(152, 16)
        Me.Label4.Name = "Label4"
        Me.Label4.TabIndex = 1
        Me.Label4.Text = "应急物资名称："
        '
        'Label3
        '
        Me.Label3.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label3.Location = New System.Drawing.Point(16, 16)
        Me.Label3.Name = "Label3"
        Me.Label3.TabIndex = 0
        Me.Label3.Text = "查询条件设置"
        '
        'Btexitsourcesearch
        '
        Me.Btexitsourcesearch.Location = New System.Drawing.Point(656, 384)
        Me.Btexitsourcesearch.Name = "Btexitsourcesearch"
        Me.Btexitsourcesearch.TabIndex = 1
        Me.Btexitsourcesearch.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("备注", "备注")})})
        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 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) AN" & _
        "D (申报时间 = ? OR ? IS NULL AND 申报时间 IS NULL) AND (隶属部门 = ? OR ? IS NULL AND 隶属部门 I" & _
        "S 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.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, 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))
        '
        '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, 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