searchform.vb

一个管理系统

        '
        'btnSearch
        '
        Me.btnSearch.AccessibleDescription = resources.GetString("btnSearch.AccessibleDescription")
        Me.btnSearch.AccessibleName = resources.GetString("btnSearch.AccessibleName")
        Me.btnSearch.Anchor = CType(resources.GetObject("btnSearch.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.btnSearch.BackgroundImage = CType(resources.GetObject("btnSearch.BackgroundImage"), System.Drawing.Image)
        Me.btnSearch.Dock = CType(resources.GetObject("btnSearch.Dock"), System.Windows.Forms.DockStyle)
        Me.btnSearch.Enabled = CType(resources.GetObject("btnSearch.Enabled"), Boolean)
        Me.btnSearch.FlatStyle = CType(resources.GetObject("btnSearch.FlatStyle"), System.Windows.Forms.FlatStyle)
        Me.btnSearch.Font = CType(resources.GetObject("btnSearch.Font"), System.Drawing.Font)
        Me.btnSearch.Image = CType(resources.GetObject("btnSearch.Image"), System.Drawing.Image)
        Me.btnSearch.ImageAlign = CType(resources.GetObject("btnSearch.ImageAlign"), System.Drawing.ContentAlignment)
        Me.btnSearch.ImageIndex = CType(resources.GetObject("btnSearch.ImageIndex"), Integer)
        Me.btnSearch.ImeMode = CType(resources.GetObject("btnSearch.ImeMode"), System.Windows.Forms.ImeMode)
        Me.btnSearch.Location = CType(resources.GetObject("btnSearch.Location"), System.Drawing.Point)
        Me.btnSearch.Name = "btnSearch"
        Me.btnSearch.RightToLeft = CType(resources.GetObject("btnSearch.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.btnSearch.Size = CType(resources.GetObject("btnSearch.Size"), System.Drawing.Size)
        Me.btnSearch.TabIndex = CType(resources.GetObject("btnSearch.TabIndex"), Integer)
        Me.btnSearch.Text = resources.GetString("btnSearch.Text")
        Me.btnSearch.TextAlign = CType(resources.GetObject("btnSearch.TextAlign"), System.Drawing.ContentAlignment)
        Me.btnSearch.Visible = CType(resources.GetObject("btnSearch.Visible"), Boolean)
        '
        'btnClose
        '
        Me.btnClose.AccessibleDescription = resources.GetString("btnClose.AccessibleDescription")
        Me.btnClose.AccessibleName = resources.GetString("btnClose.AccessibleName")
        Me.btnClose.Anchor = CType(resources.GetObject("btnClose.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.btnClose.BackgroundImage = CType(resources.GetObject("btnClose.BackgroundImage"), System.Drawing.Image)
        Me.btnClose.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.btnClose.Dock = CType(resources.GetObject("btnClose.Dock"), System.Windows.Forms.DockStyle)
        Me.btnClose.Enabled = CType(resources.GetObject("btnClose.Enabled"), Boolean)
        Me.btnClose.FlatStyle = CType(resources.GetObject("btnClose.FlatStyle"), System.Windows.Forms.FlatStyle)
        Me.btnClose.Font = CType(resources.GetObject("btnClose.Font"), System.Drawing.Font)
        Me.btnClose.Image = CType(resources.GetObject("btnClose.Image"), System.Drawing.Image)
        Me.btnClose.ImageAlign = CType(resources.GetObject("btnClose.ImageAlign"), System.Drawing.ContentAlignment)
        Me.btnClose.ImageIndex = CType(resources.GetObject("btnClose.ImageIndex"), Integer)
        Me.btnClose.ImeMode = CType(resources.GetObject("btnClose.ImeMode"), System.Windows.Forms.ImeMode)
        Me.btnClose.Location = CType(resources.GetObject("btnClose.Location"), System.Drawing.Point)
        Me.btnClose.Name = "btnClose"
        Me.btnClose.RightToLeft = CType(resources.GetObject("btnClose.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.btnClose.Size = CType(resources.GetObject("btnClose.Size"), System.Drawing.Size)
        Me.btnClose.TabIndex = CType(resources.GetObject("btnClose.TabIndex"), Integer)
        Me.btnClose.Text = resources.GetString("btnClose.Text")
        Me.btnClose.TextAlign = CType(resources.GetObject("btnClose.TextAlign"), System.Drawing.ContentAlignment)
        Me.btnClose.Visible = CType(resources.GetObject("btnClose.Visible"), Boolean)
        '
        'SearchForm
        '
        Me.AcceptButton = Me.btnSearch
        Me.AccessibleDescription = resources.GetString("$this.AccessibleDescription")
        Me.AccessibleName = resources.GetString("$this.AccessibleName")
        Me.Anchor = CType(resources.GetObject("$this.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.AutoScaleBaseSize = CType(resources.GetObject("$this.AutoScaleBaseSize"), System.Drawing.Size)
        Me.AutoScroll = CType(resources.GetObject("$this.AutoScroll"), Boolean)
        Me.AutoScrollMargin = CType(resources.GetObject("$this.AutoScrollMargin"), System.Drawing.Size)
        Me.AutoScrollMinSize = CType(resources.GetObject("$this.AutoScrollMinSize"), System.Drawing.Size)
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.CancelButton = Me.btnClose
        Me.ClientSize = CType(resources.GetObject("$this.ClientSize"), System.Drawing.Size)
        Me.ControlBox = False
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnClose, Me.btnSearch, Me.lvResults, Me.lblFindWhat, Me.txtQuery})
        Me.Dock = CType(resources.GetObject("$this.Dock"), System.Windows.Forms.DockStyle)
        Me.Enabled = CType(resources.GetObject("$this.Enabled"), Boolean)
        Me.Font = CType(resources.GetObject("$this.Font"), System.Drawing.Font)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.ImeMode = CType(resources.GetObject("$this.ImeMode"), System.Windows.Forms.ImeMode)
        Me.Location = CType(resources.GetObject("$this.Location"), System.Drawing.Point)
        Me.MaximumSize = CType(resources.GetObject("$this.MaximumSize"), System.Drawing.Size)
        Me.MinimumSize = CType(resources.GetObject("$this.MinimumSize"), System.Drawing.Size)
        Me.Name = "SearchForm"
        Me.RightToLeft = CType(resources.GetObject("$this.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.ShowInTaskbar = False
        Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
        Me.StartPosition = CType(resources.GetObject("$this.StartPosition"), System.Windows.Forms.FormStartPosition)
        Me.Text = resources.GetString("$this.Text")
        Me.Visible = CType(resources.GetObject("$this.Visible"), Boolean)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private m_DataLayer As DataLayer
    Private m_ResourceManager As New Resources.ResourceManager("TaskVision.Localize", System.Reflection.Assembly.GetExecutingAssembly())

    Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        If txtQuery.Text.Trim() = String.Empty Then
            Return
        End If

        'clear last results
        lvResults.Items.Clear()

        Try
            'loop through tasks and do a simple indexof search
            'on the summary, description, assignedtotext fields
            Dim dr As DataRow
            For Each dr In m_DataLayer.DsTasks.Tasks.Rows
                If CType(dr.Item("TaskSummary"), String).ToLower().IndexOf(txtQuery.Text.ToLower()) <> -1 Or CType(dr.Item("TaskDescription"), String).ToLower().IndexOf(txtQuery.Text.ToLower()) <> -1 Or CType(dr.Item("AssignedToText"), String).ToLower().IndexOf(txtQuery.Text.ToLower()) <> -1 Then

                    'add found task to listview
                    Dim lvItem As New ListViewItem(New String() {CType(dr.Item("TaskID"), String), CType(dr.Item("TaskSummary"), String), CType(dr.Item("AssignedToText"), String)})
                    lvResults.Items.Add(lvItem)
                End If
            Next
            If lvResults.Items.Count = 0 Then
                'add found task to listview
                Dim lvItem As New ListViewItem(New String() {String.Empty, m_ResourceManager.GetString("Search_0items"), String.Empty})
                lvResults.Items.Add(lvItem)
            End If
        Catch ex As Exception
            LogError.Write(ex.Message & vbCrLf & ex.StackTrace)
        End Try
    End Sub

    Private Sub lvResults_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvResults.DoubleClick
        'user double-clicked a task, try to open a task form
        If lvResults.SelectedItems.Count > 0 Then
            Try
                If lvResults.SelectedItems(0).SubItems(0).Text = String.Empty Then Return

                Dim taskID As Integer = Integer.Parse(lvResults.SelectedItems(0).SubItems(0).Text)
                Dim dr As DataRow = m_DataLayer.DsTasks.Tasks.Rows.Find(taskID)

                Dim eForm As New EditTaskForm(m_DataLayer, dr)
                eForm.ShowDialog()
            Catch ex As Exception
                LogError.Write(ex.Message & vbCrLf & ex.StackTrace)
            End Try
        End If
    End Sub

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub
End Class