scriptcomponent.vb

来自「< SQL Server2005程序设计>」· VB 代码 · 共 15 行

Public Class ScriptMain
    Inherits UserComponent

    Private Month() As String = New String() {"Invalid", "Jan", "Feb", "Mar", "Apr", "May", "June", "July", "Aug", "Sept", "Oct", "Nov", "Dec"}

    Public Overrides Sub MapMonthInput_ProcessInputRow(ByVal Row As MapMonthInputBuffer)
        If Row.EmployeeID < 1 Or Row.EmployeeID > 12 Then
            Row.Month = Month(0)
        Else
            Row.Month = Month(Row.EmployeeID)
        End If
    End Sub

End Class