75 lines
4.1 KiB
VB.net
75 lines
4.1 KiB
VB.net
Public Class Report_Total
|
|
|
|
#Region "data Base 변경여부및 적용방법"
|
|
|
|
'''변경된내용을적용한다.
|
|
Public Overrides Function AcceptChanged() As Boolean
|
|
|
|
Return True
|
|
End Function
|
|
|
|
'''변경된내용이있다면 취소한다.
|
|
Public Overrides Function RejectChanged() As Boolean
|
|
|
|
Return True
|
|
End Function
|
|
|
|
'''데이터에변형이있었는가?
|
|
Public Overrides Function HasChanged() As Boolean
|
|
Return False
|
|
End Function
|
|
|
|
|
|
#End Region
|
|
|
|
Private Sub Report_그래프_SizeChanged(sender As Object, e As System.EventArgs) Handles Me.SizeChanged
|
|
'Me.Text = Me.Size.ToString
|
|
|
|
End Sub
|
|
|
|
Private Sub Frm_v20091231_RepResult_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
Me.bs.DataSource = DSETR1.TReqUse
|
|
Me.DSR.TReqUse.Merge(DSETR1.TReqUse)
|
|
|
|
'Dim Grp_요구량 As New ListViewGroup("grp_요구량", "에너지요구량")
|
|
'Dim Grp_소요량 As New ListViewGroup("grp_소요량", "에너지소요량")
|
|
'Dim A As ListViewItem
|
|
'Dim Idx As Short = 0
|
|
|
|
'Me.ListView1.Groups.Add(Grp_요구량)
|
|
'Me.ListView1.Groups.Add(Grp_소요량)
|
|
|
|
'A = New ListViewItem(New String() {"에너지요구량", "단위", "기호", "", "합계", "01월", "02월", "03월", "04월", "05월", "06월", "07월", "08월", "09월", "10월", "11월", "12월"}, Grp_요구량)
|
|
'Me.ListView1.Items.Add(A)
|
|
|
|
'Idx = 1
|
|
'A = New ListViewItem(New String() {"에너지요구량", "[kWh]", "Qb", "=", Ru(Idx).ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString}, Grp_요구량)
|
|
'Me.ListView1.Items.Add(A)
|
|
|
|
'Idx = 2
|
|
'A = New ListViewItem(New String() {"에너지요구량-사용면적당", "[kWh/m²]", "Σ(Qb / Ab)", "=", Ru(Idx).ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString}, Grp_요구량)
|
|
'Me.ListView1.Items.Add(A)
|
|
|
|
'A = New ListViewItem(New String() {"에너지요구량분석"}, Grp_요구량)
|
|
'Me.ListView1.Items.Add(A)
|
|
|
|
'Idx = 3
|
|
'A = New ListViewItem(New String() {"난방에너지요구량", "[kWh]", "QH,b", "=", Ru(Idx).ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString}, Grp_요구량)
|
|
'Me.ListView1.Items.Add(A)
|
|
|
|
'Idx = 4
|
|
'A = New ListViewItem(New String() {"난방에너지요구량(열)", "[kWh]", "Qh,b", "=", Ru(Idx).ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString}, Grp_요구량)
|
|
'Me.ListView1.Items.Add(A)
|
|
|
|
'Idx = 5
|
|
'A = New ListViewItem(New String() {"난방에너지요구량(공조,환기)", "[kWh]", "Qh,b", "=", Ru(Idx).ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString, Ru(Idx, "M01").ToString}, Grp_요구량)
|
|
'Me.ListView1.Items.Add(A)
|
|
|
|
Me.ReportViewer1.ZoomMode = Microsoft.Reporting.WinForms.ZoomMode.Percent
|
|
Me.ReportViewer1.RefreshReport()
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
|