vendor.aspx.vb

its it tracker and used for track

Imports System.Data.SqlClient

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

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            If Not Request.QueryString("id") Is Nothing Then
                If Request.QueryString("id") = "new" Then
                    ' NEW
                    BuildNew()
                Else
                    ' item
                    GetVendor(CInt(Request.QueryString("id")))
                End If
            Else
                ' NEW
                BuildNew()
            End If
        End If
    End Sub
    Private Sub BuildNew()
        Me.Title = "ITracker: Add Vendor"
        Me.lblPageHeader.Text = "New Vendor Details: "
        lblID.Text = ""
    End Sub
    Private Sub GetVendor(ByVal id As Integer)
        Me.Title = "ITracker: Vendor Details"
        Dim _vendor As dfs.ITracker.Business.Vendor = dfs.ITracker.Business.Vendor.Fetch(id)
        lblPageHeader.Text = "Vendor Details: " & _vendor.Name
        lblID.Text = id.ToString
        txtVendorName.Text = _vendor.Name
        txtVendorAddress1.Text = IIf(_vendor.Address1 Is DBNull.Value, "", _vendor.Address1)
        txtVendorAddress2.Text = IIf(_vendor.Address2 Is DBNull.Value, "", _vendor.Address2)
        txtVendorCity.Text = IIf(_vendor.City Is DBNull.Value, "", _vendor.City)
        txtVendorState.Text = IIf(_vendor.State Is DBNull.Value, "", _vendor.State)
        txtVendorZip.Text = IIf(_vendor.Zip Is DBNull.Value, "", _vendor.Zip)
    End Sub

    Protected Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        lblError.Text = ""
        Dim _vendor As New dfs.ITracker.Business.Vendor
        If lblID.Text.Trim.Length > 0 Then
            _vendor = dfs.ITracker.Business.Vendor.Fetch(CInt(lblID.Text.Trim))
        End If
        With _vendor
            .Name = txtVendorName.Text.Trim
            .Address1 = txtVendorAddress1.Text.Trim
            .Address2 = txtVendorAddress2.Text.Trim
            .City = txtVendorCity.Text.Trim
            .State = txtVendorState.Text.Trim
            .Zip = txtVendorZip.Text.Trim
        End With
        If dfs.ITracker.Business.Vendor.Save(_vendor) Then
            Response.Redirect("~/Default.aspx")
        Else
            lblError.Text = "Error saving vendor."
        End If
    End Sub

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

End Class