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


