| 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 |