61.19.244.139/61.19.244.139.zip/61.19.244.139/CompulWeb_Realtime/CarCode.aspx.vb.orig

Text File | 2013-06-06 | 4KB | 68 lines


Partial Class CarCode
    Inherits System.Web.UI.Page
    'Private Shared ReadOnly CacheKey As String = "CarCodeCacheKey"
    Private ReadOnly Property CacheKey() As String
        Get
            'Test17
            Return "CarCodeCacheKey" & strCarCode()
        End Get
    End Property

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            grvCarCode.DataSource = GetCarCodeData()
            grvCarCode.DataBind()
        End If
    End Sub
    Private ReadOnly Property strCarCode() As String
        Get
            Return Request.QueryString("CarCode")
        End Get
    End Property


    Private Function GetCarCodeData() As List(Of CarCodeItem)
        Dim data As List(Of CarCodeItem) = DirectCast(Cache(CacheKey), List(Of CarCodeItem))

        If data Is Nothing Then
            Using db_MoTypeUsage_MoVehSizeData_MoCompPrem As New CompulWeb_J_MoTypeUsage_MoVehSizeData_MoCompPremContext
                Dim IqueryX = From MO_VEH_SIZE_NotUsed In db_MoTypeUsage_MoVehSizeData_MoCompPrem.MO_VEH_SIZE_NotUsed_JTVCs _
                                  Order By MO_VEH_SIZE_NotUsed.VD_Usage_Code, MO_VEH_SIZE_NotUsed.VD_Type_Code, MO_VEH_SIZE_NotUsed.VD_Size_Code _
                                  Select MO_VEH_SIZE_NotUsed.VD_Usage_Code.Trim & MO_VEH_SIZE_NotUsed.VD_Type_Code.Trim & MO_VEH_SIZE_NotUsed.VD_Size_Code

                Dim resu = (From MO_VEH_SIZE In db_MoTypeUsage_MoVehSizeData_MoCompPrem.MO_VEH_SIZE_JTVCs _
                             Join MO_TYPE_USAGE In db_MoTypeUsage_MoVehSizeData_MoCompPrem.MO_TYPE_USAGE_JTVCs _
                             On MO_VEH_SIZE.VD_Usage_Code Equals MO_TYPE_USAGE.TU_Usage_Code And MO_VEH_SIZE.VD_Type_Code Equals MO_TYPE_USAGE.TU_Type_Code _
                             Order By MO_VEH_SIZE.VD_Usage_Code, MO_VEH_SIZE.VD_Type_Code, MO_VEH_SIZE.VD_Size_Code _
                             Where Not IqueryX.ToList.Contains(MO_VEH_SIZE.VD_Usage_Code.Trim & MO_VEH_SIZE.VD_Type_Code.Trim & MO_VEH_SIZE.VD_Size_Code) And (MO_TYPE_USAGE.s_type = CChar(strCarCode)) _
                             Select New CarCodeItem With {.ValueField = MO_VEH_SIZE.VD_Usage_Code.Trim & "." & MO_VEH_SIZE.VD_Type_Code.Trim & MO_VEH_SIZE.VD_Size_Code, _
                                                          .TextField = MO_VEH_SIZE.VD_Usage_Code.Trim & "." & MO_VEH_SIZE.VD_Type_Code.Trim & MO_VEH_SIZE.VD_Size_Code, _
                                                          .TextField2 = MO_VEH_SIZE.VD_Desc, _
                                                          .VD_Usage_Code = MO_VEH_SIZE.VD_Usage_Code, _
                                                          .VD_Type_Code = MO_VEH_SIZE.VD_Type_Code, _
                                                          .VD_Size_Code = MO_VEH_SIZE.VD_Size_Code})
                Dim sql = DirectCast(db_MoTypeUsage_MoVehSizeData_MoCompPrem, System.Data.Linq.DataContext).GetCommand(resu)
                Dim result As String = ""
                For index As Integer = 0 To sql.Parameters.Count - 1
                    result &= String.Format("{0}:{1}, ", index, sql.Parameters(index).Value.ToString)
                Next


                data = resu.ToList
                Cache.Add(CacheKey, data, Nothing, DateTime.Now.AddDays(10), TimeSpan.Zero, CacheItemPriority.High, Nothing)
            End Using
        End If

        Return data
    End Function

    Protected Sub grvCarCode_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles grvCarCode.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.Attributes.Add("onmouseover", "javascript:setMouseOverColor(this);")
            e.Row.Attributes.Add("onmouseout", "javascript:setMouseOutColor(this);")
            e.Row.Attributes.Add("onclick", String.Format("javascript:selectValue('{0}','{1}');", e.Row.Cells(0).Text, e.Row.Cells(1).Text))
        End If
    End Sub
End Class