itemsearch.aspx.vb

its it tracker and used for track

Imports dfs.ITracker.Business

Partial Public Class ItemSearch
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.Title = "ITracker: Item Search"
        lblPageHeader.Text = "Item Search: "
        If Not IsPostBack Then
            ' populate ddl
            Dim _vendorlist As VendorList = dfs.ITracker.Business.Vendor.FetchList()
            ddlVendor.DataTextField = "Name"
            ddlVendor.DataValueField = "ID"
            ddlVendor.DataSource = _vendorlist
            ddlVendor.DataBind()
            Dim li As New ListItem
            li.Text = " -- vendors -- "
            li.Value = ""
            ddlVendor.Items.Insert(0, li)
            Me.Form.DefaultButton = btnSearch.UniqueID
        End If
    End Sub

    Private Sub btnSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        Dim _id As Integer = -1
        If txtID.Text.Trim.Length > 0 Then
            _id = CInt(txtID.Text)
        End If
        Dim _desc As String = IIf(txtDesc.Text.Trim.Length > 0, txtDesc.Text, "")
        Dim _partnum As String = IIf(txtPartNum.Text.Trim.Length > 0, txtPartNum.Text, "")
        Dim _mfgnum As String = IIf(txtMFGNum.Text.Trim.Length > 0, txtMFGNum.Text, "")
        Dim _vendorid As Integer = -1
        If ddlVendor.SelectedIndex > 0 Then
            _vendorid = CInt(ddlVendor.SelectedValue)
        End If

        Dim _itemList As dfs.ITracker.Business.InventoryItemList = dfs.ITracker.Business.InventoryItem.Search(_id, _desc, _partnum, _mfgnum, _vendorid)
        gvItems.DataSource = _itemList
        gvItems.DataBind()
    End Sub

    Private Sub gvItems_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles gvItems.RowCommand
        If e.CommandName = "Select" Then
            Response.Redirect("~/Details.aspx?id=" & CType(e.CommandSource, GridView).DataKeys(CInt(e.CommandArgument)).Value.ToString)
        End If
    End Sub

    Private Sub ItemSearch_PreInit(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreInit
        Me.MasterPageFile = System.Configuration.ConfigurationManager.AppSettings("MasterPageName")
    End Sub
End Class