Imports System.ComponentModel |
Imports System.Drawing |
Imports System.Windows.Forms |
Imports Telerik.Reporting |
Imports Telerik.Reporting.Drawing |
Imports System.Data |
Imports System.Data.SqlClient |
|
Partial Public Class SectionReportGroup |
Inherits Telerik.Reporting.Report |
Public Sub New() |
InitializeComponent() |
DisplayData() |
End Sub |
|
Public sub DisplayData() |
Dim t as string |
t= RetrieveSelectCommand() |
|
End Sub |
|
Public Function RetrieveSelectCommand() As String |
Dim s As String = Nothing |
|
Select Case Me.Report.ReportParameters("a1").Value |
Case 1 |
s = "Select RESOURCE_NAME,SECTION_ID, DIVISION_ID,RESOURCE_YEAR,RESOURCE_MONTH,RESOURCE_WEEK, SUM(M1_JAN), SUM(M2_FEB),SUM(M3_MAR),SUM(M4_APR),SUM(M5_MAY),SUM(M6_JUN),SUM(M7_JUL),SUM(M8_AUG),SUM(M9_SEP) FROM RESOURCE_DATA GROUP BY RESOURCE_NAME,SECTION_ID,DIVISION_ID,RESOURCE_YEAR,RESOURCE_MONTH,RESOURCE_WEEK" |
Case 2 |
s = "Select RESOURCE_NAME,SECTION_ID, DIVISION_ID,RESOURCE_YEAR,RESOURCE_MONTH,RESOURCE_WEEK, SUM(M2_FEB),SUM(M3_MAR),SUM(M4_APR),SUM(M5_MAY),SUM(M6_JUN),SUM(M7_JUL),SUM(M8_AUG),SUM(M9_SEP),SUM(M10_OCT) FROM RESOURCE_DATA GROUP BY RESOURCE_NAME,SECTION_ID,DIVISION_ID,RESOURCE_YEAR,RESOURCE_MONTH,RESOURCE_WEEK" |
Case 3 |
s = "Select RESOURCE_NAME,SECTION_ID, DIVISION_ID,RESOURCE_YEAR,RESOURCE_MONTH,RESOURCE_WEEK, SUM(M3_MAR),SUM(M4_APR),SUM(M5_MAY),SUM(M6_JUN),SUM(M7_JUL),SUM(M8_AUG),SUM(M9_SEP),SUM(M10_OCT),SUM(M11_NOV) FROM RESOURCE_DATA GROUP BY RESOURCE_NAME,SECTION_ID,DIVISION_ID,RESOURCE_YEAR,RESOURCE_MONTH,RESOURCE_WEEK" |
Case 4 |
s = "Select RESOURCE_NAME,SECTION_ID, DIVISION_ID,RESOURCE_YEAR,RESOURCE_MONTH,RESOURCE_WEEK, SUM(M4_APR),SUM(M5_MAY),SUM(M6_JUN),SUM(M7_JUL),SUM(M8_AUG),SUM(M9_SEP),SUM(M10_OCT),SUM(M11_NOV),SUM(M12_DEC) FROM RESOURCE_DATA GROUP BY RESOURCE_NAME,SECTION_ID,DIVISION_ID,RESOURCE_YEAR,RESOURCE_MONTH,RESOURCE_WEEK" |
Case 5 |
s = "Select RESOURCE_NAME,SECTION_ID, DIVISION_ID,RESOURCE_YEAR,RESOURCE_MONTH,RESOURCE_WEEK, SUM(M5_MAY),SUM(M6_JUN),SUM(M7_JUL),SUM(M8_AUG),SUM(M9_SEP),SUM(M10_OCT),SUM(M11_NOV),SUM(M12_DEC),SUM(M1_JAN) FROM RESOURCE_DATA GROUP BY RESOURCE_NAME,SECTION_ID,DIVISION_ID,RESOURCE_YEAR,RESOURCE_MONTH,RESOURCE_WEEK" |
Case 6 |
s = "Select RESOURCE_NAME,SECTION_ID, DIVISION_ID,RESOURCE_YEAR,RESOURCE_MONTH,RESOURCE_WEEK, SUM(M6_JUN),SUM(M7_JUL),SUM(M8_AUG),SUM(M9_SEP),SUM(M10_OCT),SUM(M11_NOV),SUM(M12_DEC),SUM(M1_JAN), SUM(M2_FEB) FROM RESOURCE_DATA GROUP BY RESOURCE_NAME,SECTION_ID,DIVISION_ID,RESOURCE_YEAR,RESOURCE_MONTH,RESOURCE_WEEK" |
Case 7 |
s = "Select RESOURCE_NAME,SECTION_ID, DIVISION_ID,RESOURCE_YEAR,RESOURCE_MONTH,RESOURCE_WEEK, SUM(M7_JUL),SUM(M8_AUG),SUM(M9_SEP),SUM(M10_OCT),SUM(M11_NOV),SUM(M12_DEC),SUM(M1_JAN), SUM(M2_FEB),SUM(M3_MAR) FROM RESOURCE_DATA GROUP BY RESOURCE_NAME,SECTION_ID,DIVISION_ID,RESOURCE_YEAR,RESOURCE_MONTH,RESOURCE_WEEK" |
Case 8 |
s = "Select RESOURCE_NAME,SECTION_ID, DIVISION_ID,RESOURCE_YEAR,RESOURCE_MONTH,RESOURCE_WEEK, SUM(M8_AUG),SUM(M9_SEP),SUM(M10_OCT),SUM(M11_NOV),SUM(M12_DEC),SUM(M1_JAN), SUM(M2_FEB),SUM(M3_MAR),SUM(M4_APR) FROM RESOURCE_DATA GROUP BY RESOURCE_NAME,SECTION_ID,DIVISION_ID,RESOURCE_YEAR,RESOURCE_MONTH,RESOURCE_WEEK" |
Case 9 |
s = "Select RESOURCE_NAME,SECTION_ID, DIVISION_ID,RESOURCE_YEAR,RESOURCE_MONTH,RESOURCE_WEEK, SUM(M9_SEP),SUM(M10_OCT),SUM(M11_NOV),SUM(M12_DEC),SUM(M1_JAN), SUM(M2_FEB),SUM(M3_MAR),SUM(M4_APR),SUM(M5_MAY) FROM RESOURCE_DATA GROUP BY RESOURCE_NAME,SECTION_ID,DIVISION_ID,RESOURCE_YEAR,RESOURCE_MONTH,RESOURCE_WEEK" |
Case 10 |
s = "Select RESOURCE_NAME,SECTION_ID, DIVISION_ID,RESOURCE_YEAR,RESOURCE_MONTH,RESOURCE_WEEK, SUM(M10_OCT),SUM(M11_NOV),SUM(M12_DEC),SUM(M1_JAN), SUM(M2_FEB),SUM(M3_MAR),SUM(M4_APR),SUM(M5_MAY),SUM(M6_JUN) FROM RESOURCE_DATA GROUP BY RESOURCE_NAME,SECTION_ID,DIVISION_ID,RESOURCE_YEAR,RESOURCE_MONTH,RESOURCE_WEEK" |
Case 11 |
s = "Select RESOURCE_NAME,SECTION_ID, DIVISION_ID,RESOURCE_YEAR,RESOURCE_MONTH,RESOURCE_WEEK, SUM(M11_NOV),SUM(M12_DEC),SUM(M1_JAN), SUM(M2_FEB),SUM(M3_MAR),SUM(M4_APR),SUM(M5_MAY),SUM(M6_JUN),SUM(M7_JUL) FROM RESOURCE_DATA GROUP BY RESOURCE_NAME,SECTION_ID,DIVISION_ID,RESOURCE_YEAR,RESOURCE_MONTH,RESOURCE_WEEK" |
Case 12 |
s = "Select RESOURCE_NAME,SECTION_ID, DIVISION_ID,RESOURCE_YEAR,RESOURCE_MONTH,RESOURCE_WEEK, SUM(M12_DEC),SUM(M1_JAN), SUM(M2_FEB),SUM(M3_MAR),SUM(M4_APR),SUM(M5_MAY),SUM(M6_JUN),SUM(M7_JUL),SUM(M8_AUG) FROM RESOURCE_DATA GROUP BY RESOURCE_NAME,SECTION_ID,DIVISION_ID,RESOURCE_YEAR,RESOURCE_MONTH,RESOURCE_WEEK" |
End Select |
Return s |
End Function |
|
|
|
End Class |