KICT/ECO2-OD
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*오타정정

Browse Source 
*그래프에 씨오2 항목 추가
This commit is contained in:
raytrace
2021-10-23 23:31:49 +09:00
parent 50bb66aa4f
commit f9b8998cb1
7 changed files with 65 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
ArinWarev1/REPORT-OD/Frm_v20091231_Report.Designer.vb generated
View File

@@ -56,9 +56,9 @@ Partial Class Frm_v20091231_Report
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_msg})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 919)
Me.StatusStrip1.Location = New System.Drawing.Point(0, 946)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(784, 22)
Me.StatusStrip1.Size = New System.Drawing.Size(779, 22)
Me.StatusStrip1.TabIndex = 15
Me.StatusStrip1.Text = "StatusStrip1"
'
@@ -80,20 +80,20 @@ Partial Class Frm_v20091231_Report
Me.ReportViewer1.LocalReport.ReportEmbeddedResource = "Eco2OD.Report_result.rdlc"
Me.ReportViewer1.Location = New System.Drawing.Point(0, 0)
Me.ReportViewer1.Name = "ReportViewer1"
Me.ReportViewer1.Size = New System.Drawing.Size(784, 919)
Me.ReportViewer1.Size = New System.Drawing.Size(779, 946)
Me.ReportViewer1.TabIndex = 16
'
'Frm_v20091231_Report
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(784, 941)
Me.ClientSize = New System.Drawing.Size(779, 968)
Me.Controls.Add(Me.ReportViewer1)
Me.Controls.Add(Me.StatusStrip1)
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "Frm_v20091231_Report"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "dk"
Me.Text = "결과그래프"
CType(Me.Graph_ReqBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DSR, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Graph_ReqUseBindingSource, System.ComponentModel.ISupportInitialize).EndInit()

54
ArinWarev1/REPORT-OD/Frm_v20091231_Report.vb
View File

@@ -82,7 +82,7 @@
Dim Dr2 As DSR.Graph_ReqUseRow
For Gubun As Short = 0 To 2
For Gubun As Short = 0 To 3
Select Case Gubun
Case 0 '//1차에너지소요량
@@ -337,7 +337,56 @@
Dr2.type = "합계"
Dr2.Req = (난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지) * addmulti
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
Case 3 '//co2발생량
신재생에너지 = 0
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "CO2발생량"
Dr2.type = "신재생에너지"
Dr2.Req = 신재생에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
난방에너지 = Math.Round(Result1o.Co2발생량(0).난방면적, 1)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "CO2발생량"
Dr2.type = "난방에너지"
Dr2.Req = 난방에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
냉방에너지 = Math.Round(Result1o.Co2발생량(0).냉방면적, 1)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "CO2발생량"
Dr2.type = "냉방에너지"
Dr2.Req = 냉방에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
급탕에너지 = Math.Round(Result1o.Co2발생량(0).급탕면적, 1)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "CO2발생량"
Dr2.type = "급탕에너지"
Dr2.Req = 급탕에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
조명에너지 = Math.Round(Result1o.Co2발생량(0).조명면적, 1)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "CO2발생량"
Dr2.type = "조명에너지"
Dr2.Req = 조명에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
'계산결과!H92*3/계산결과!H27
환기에너지 = Math.Round(Result1o.Co2발생량(0).환기면적, 1)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "CO2발생량"
Dr2.type = "환기에너지"
Dr2.Req = 환기에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "CO2발생량"
Dr2.type = "합계"
Dr2.Req = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
End Select
Next
@@ -345,4 +394,7 @@
End Sub
Private Sub Frm_v20091231_Report_SizeChanged(sender As System.Object, e As System.EventArgs) Handles MyBase.SizeChanged
'Me.Text = Me.Size.ToString()
End Sub
End Class

4
ArinWarev1/REPORT-OD/Report_result.rdlc
View File

@@ -798,7 +798,6 @@ iif(Fields!type.Value="조명에너지","#765e00","#475e76")))))</Color>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
<DataElementOutput>Output</DataElementOutput>
</TablixCell>
@@ -864,8 +863,7 @@ iif(Fields!type.Value="조명에너지","#765e00","#475e76")))))</Color>
</Group>
<SortExpressions>
<SortExpression>
<Value>=Fields!Gubun.Value</Value>
<Direction>Descending</Direction>
<Value>=iif(Fields!Gubun.Value="요구량",1,iif(Fields!Gubun.Value="소요량",2,iif(Fields!Gubun.Value="1차소요량",3,4)))</Value>
</SortExpression>
</SortExpressions>
<TablixHeader>