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

initial commit

Browse Source
This commit is contained in:
Chikyun
2019-10-24 21:24:21 +09:00
commit 376f7d9de0
544 changed files with 295019 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

86
ArinWarev1/Forms_Report/Frm_Export.Designer.vb generated Normal file
View File

@@ -0,0 +1,86 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_Export
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'Panel1
'
Me.Panel1.Controls.Add(Me.Button2)
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(469, 49)
Me.Panel1.TabIndex = 3
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(149, 6)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(137, 38)
Me.Button2.TabIndex = 1
Me.Button2.Text = "Multi Convert"
Me.Button2.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(6, 6)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(137, 38)
Me.Button1.TabIndex = 0
Me.Button1.Text = "Convert"
Me.Button1.UseVisualStyleBackColor = True
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(12, 55)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(440, 21)
Me.TextBox1.TabIndex = 4
Me.TextBox1.Text = "C:\Users\HOME\Downloads\성능평가를_위한_입력정보_TPL파일"
'
'Frm_Export
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(469, 91)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Panel1)
Me.Name = "Frm_Export"
Me.Text = "Frm_Export"
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
End Class

120
ArinWarev1/Forms_Report/Frm_Export.resx Normal file
View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

287
ArinWarev1/Forms_Report/Frm_Export.vb Normal file
View File

@@ -0,0 +1,287 @@
Public Class Frm_Export
Dim fn As String = ""
Dim 단위면적당신재생1차에너지합 As Decimal = 0
Dim 단위면적당1차에너소비량합 As Decimal = 0
Dim 에너지자립률 As Double = 0
Public Sub New()
' 이 호출은 디자이너에 필요합니다.
InitializeComponent()
fn = ""
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
End Sub
Public Sub New(_file As String)
' 이 호출은 디자이너에 필요합니다.
InitializeComponent()
fn = _file
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
' Dim prjfile As String = Prj.FileName.Substring(Prj.FileName.LastIndexOf("\") + 1)
Dim path As String = AppDomain.CurrentDomain.BaseDirectory + "\Export\" + Now.ToString("yyMMdd")
MakeData(path)
End Sub
Private Sub MakeData(savepath As String, Optional silent As Boolean = False)
'FpSpread1.Visible = False
' FpSpread1.Sheets.Clear()
Dim prjfile As String = Prj.FileName.Substring(Prj.FileName.LastIndexOf("\") + 1)
prjfile = prjfile.Substring(0, prjfile.LastIndexOf("."))
Dim di As New System.IO.DirectoryInfo(savepath + "\" + prjfile)
If Not di.Exists Then di.Create()
'//테이블갯수만큼 시트를 생성한다.
For i As Integer = 0 To DSET1.Tables.Count - 1
Dim dt As DataTable = DSET1.Tables(i)
Dim tablename As String = dt.TableName.ToLower()
If tablename = "tbl_pic" Then Continue For
If tablename.IndexOf("weather") <> -1 Then Continue For
If tablename = "tbl_buha" Then Continue For
If tablename = "tbl_monuse" Then Continue For
If tablename = "tbl_common" Then Continue For
If tablename = "tbl_profile" Then Continue For
Dim filename As String = tablename
If tablename = "tbl_bunbae" Then filename = "냉방분배"
If tablename = "tbl_common" Then filename = "공용코드"
If tablename = "tbl_desc" Then filename = "건물개요"
If tablename = "tbl_kongjo" Then filename = "공조기기"
If tablename = "tbl_kongkub" Then filename = "공급기기"
If tablename = "tbl_myoun" Then filename = "입력면"
If tablename = "tbl_nanbangkiki" Then filename = "난방기기"
If tablename = "tbl_nangbangkiki" Then filename = "냉방기기"
If tablename = "tbl_nbunbae" Then filename = "난방분배"
If tablename = "tbl_new" Then filename = "신재생기기"
If tablename = "tbl_profile" Then filename = "용도프로필"
If tablename = "tbl_yk" Then filename = "열관류율"
If tablename = "tbl_ykdetail" Then filename = "열관류율(세부)"
If tablename = "tbl_zone" Then filename = "입력존"
Dim fi As New System.IO.FileInfo(di.FullName + "\" + filename + ".csv")
Dim buffer As New System.Text.StringBuilder
'Dim newsheep As New FarPoint.Win.Spread.SheetView(dt.TableName)
'FpSpread1.Sheets.Add(newsheep)
'FpSpread1.Sheets(FpSpread1.Sheets.Count - 1).RowCount = dt.Rows.Count + 1
'FpSpread1.Sheets(FpSpread1.Sheets.Count - 1).ColumnCount = dt.Columns.Count
'//첫줄에는 컬럼명을 넣는다.
Dim cols As New List(Of String)
For c As Integer = 0 To dt.Columns.Count - 1
'FpSpread1.Sheets(FpSpread1.Sheets.Count - 1).Cells(0, c).Text = dt.Columns(c).ColumnName
Dim colname = dt.Columns(c).ColumnName
If colname = "sortkey" Then Continue For
If tablename = "tbl_ykdetail" Then
If colname = "전경색" Or colname = "후경색" Or colname = "커스텀" Then
Continue For
End If
ElseIf tablename = "tbl_nbunbae" Then
If colname = "지관장소" Then Continue For
ElseIf tablename = "tbl_myoun" Then
If colname = "대차대조존" Then Continue For
ElseIf tablename = "tbl_zone" Then
If colname = "지역" Then Continue For
If colname = "냉난방분배시스템" Then Continue For
End If
cols.Add(colname)
Next
'//column title
For Each colname As String In cols
buffer.Append("," + colname)
Next
buffer.AppendLine()
'//이테이블의 데이터를 넣는다.
For r As Integer = 0 To dt.Rows.Count - 1
Try
Dim codedata As String = dt.Rows(r)("code").ToString()
If codedata = "0" Then Continue For
Catch ex As Exception
End Try
For Each colname As String In cols
'FpSpread1.Sheets(FpSpread1.Sheets.Count - 1).Cells(r + 1, c).Text = dt.Rows(r)(c).ToString()
Dim data As String = dt.Rows(r)(colname).ToString().Replace(",", "_")
If tablename = "tbl_nanbangkiki" Then
If colname = "연결된시스템" Then
Dim dr() As DataRow = DSET1.tbl_new.Select("code='" + data + "'")
If dr.Length = 1 Then
data = dr(0)("설명").ToString()
End If
End If
ElseIf tablename = "tbl_myoun" Then
'존분류 열관류율2
If colname = "존분류" Then
Dim dr() As DataRow = DSET1.tbl_zone.Select("code='" + data + "'")
If dr.Length = 1 Then
data = dr(0)("설명").ToString()
End If
ElseIf colname = "열관류율2" Then
Dim dr() As DataRow = DSET1.tbl_yk.Select("code='" + data + "'")
If dr.Length = 1 Then
data = dr(0)("설명").ToString()
End If
ElseIf colname = "열관류율" Then
Dim yk2code As String = dt.Rows(r)("열관류율2").ToString()
If yk2code <> "" AndAlso yk2code <> "0" Then
Dim dr() As DataRow = DSET1.tbl_yk.Select("code='" + yk2code + "'")
If dr.Length = 1 Then
data = dr(0)("열관류율").ToString()
End If
End If
End If
ElseIf tablename = "tbl_yk" Then
If colname = "면형태" Then
Dim dr() As DataRow = DSET1.tbl_common.Select("gubun ='1088' and code='" + data + "'")
If dr.Length = 1 Then
data = dr(0)("name").ToString()
End If
End If
ElseIf tablename = "tbl_nbunbae" Then
If colname = "생산기기구분" Then
Dim dr() As DataRow = DSET1.tbl_nanbangkiki.Select("code='" + data + "'")
If dr.Length = 1 Then
data = dr(0)("설명").ToString()
End If
End If
ElseIf tablename = "tbl_kongkub" Then
If colname = "열공급생산기기" Then
Dim dr() As DataRow = DSET1.tbl_nanbangkiki.Select("code='" + data + "'")
If dr.Length = 1 Then
data = dr(0)("설명").ToString()
End If
End If
ElseIf tablename = "tbl_nangbangkiki" Then
If colname = "연결된시스템" Then
Dim dr() As DataRow = DSET1.tbl_new.Select("code='" + data + "'")
If dr.Length = 1 Then
data = dr(0)("설명").ToString()
End If
ElseIf colname = "온수열생산기기" Then
Dim dr() As DataRow = DSET1.tbl_nanbangkiki.Select("code='" + data + "'")
If dr.Length = 1 Then
data = dr(0)("설명").ToString()
End If
End If
ElseIf tablename = "tbl_zone" Then
Select Case colname
Case "프로필"
Dim dr() As DataRow = DSET1.tbl_profile.Select("code='" + data + "'")
If dr.Length = 1 Then
data = dr(0)("설명").ToString()
End If
Case "냉난방열공급시스템"
Dim dr() As DataRow = DSET1.tbl_kongkub.Select("code='" + data + "'")
If dr.Length = 1 Then
data = dr(0)("설명").ToString()
End If
Case "냉난방공조처리시스템"
Dim dr() As DataRow = DSET1.tbl_kongjo.Select("code='" + data + "'")
If dr.Length = 1 Then
data = dr(0)("설명").ToString()
End If
Case "열생산난방생산기기"
Dim dr() As DataRow = DSET1.tbl_nanbangkiki.Select("code='" + data + "'")
If dr.Length = 1 Then
data = dr(0)("설명").ToString()
End If
Case "공조냉방생산기기"
Dim dr() As DataRow = DSET1.tbl_nangbangkiki.Select("code='" + data + "'")
If dr.Length = 1 Then
data = dr(0)("설명").ToString()
End If
Case "공조난방생산기기"
Dim dr() As DataRow = DSET1.tbl_nanbangkiki.Select("code='" + data + "'")
If dr.Length = 1 Then
data = dr(0)("설명").ToString()
End If
Case "열생산급탕생산기기"
Dim dr() As DataRow = DSET1.tbl_nanbangkiki.Select("code='" + data + "'")
If dr.Length = 1 Then
data = dr(0)("설명").ToString()
End If
Case "열생산냉방생산기기"
Dim dr() As DataRow = DSET1.tbl_nangbangkiki.Select("code='" + data + "'")
If dr.Length = 1 Then
data = dr(0)("설명").ToString()
End If
Case "열생산가습생산기기"
Dim dr() As DataRow = DSET1.tbl_nanbangkiki.Select("code='" + data + "'")
If dr.Length = 1 Then
data = dr(0)("설명").ToString()
End If
Case "냉난방공조분배시스템"
Dim dr() As DataRow = DSET1.tbl_kongjo.Select("code='" + data + "'")
If dr.Length = 1 Then
data = dr(0)("설명").ToString()
End If
Case "냉방분배시스템"
Dim dr() As DataRow = DSET1.tbl_nbunbae.Select("code='" + data + "'")
If dr.Length = 1 Then
data = dr(0)("설명").ToString()
End If
End Select
End If
buffer.Append("," + data.Replace(",", ""))
Next
buffer.AppendLine()
Next
System.IO.File.WriteAllText(fi.FullName, buffer.ToString(), System.Text.Encoding.Default)
Next
' FpSpread1.Visible = True
If (Not silent) Then
MsgBox("완료")
Shell("explorer " + di.FullName, AppWinStyle.NormalFocus)
End If
End Sub
Private Sub Frm_Upload_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Dim fd As New FolderBrowserDialog
fd.SelectedPath = TextBox1.Text
If (fd.ShowDialog() = Windows.Forms.DialogResult.OK) Then
Dim files() As String = System.IO.Directory.GetFiles(fd.SelectedPath, "*.tpl")
For Each filename As String In files
MdiMain.Open_File(filename, False, False, True)
MakeData(fd.SelectedPath, True)
Next
MsgBox(files.Length.ToString() + " 개 완료")
Shell("explorer " + fd.SelectedPath, AppWinStyle.NormalFocus)
End If
End Sub
End Class

102
ArinWarev1/Forms_Report/Frm_Upload.Designer.vb generated Normal file
View File

@@ -0,0 +1,102 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_Upload
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.FpSpread1 = New FarPoint.Win.Spread.FpSpread()
Me.FpSpread1_Sheet1 = New FarPoint.Win.Spread.SheetView()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
CType(Me.FpSpread1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.FpSpread1_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'FpSpread1
'
Me.FpSpread1.AccessibleDescription = ""
Me.FpSpread1.Dock = System.Windows.Forms.DockStyle.Fill
Me.FpSpread1.Location = New System.Drawing.Point(0, 49)
Me.FpSpread1.Name = "FpSpread1"
Me.FpSpread1.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.FpSpread1_Sheet1})
Me.FpSpread1.Size = New System.Drawing.Size(760, 596)
Me.FpSpread1.TabIndex = 0
'
'FpSpread1_Sheet1
'
Me.FpSpread1_Sheet1.Reset()
Me.FpSpread1_Sheet1.SheetName = "Sheet1"
FpSpread1_Sheet1.ColumnCount = 5
FpSpread1_Sheet1.RowCount = 1
'
'Panel1
'
Me.Panel1.Controls.Add(Me.Button2)
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(760, 49)
Me.Panel1.TabIndex = 1
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(149, 6)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(137, 38)
Me.Button2.TabIndex = 1
Me.Button2.Text = "저장하기"
Me.Button2.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(6, 6)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(137, 38)
Me.Button1.TabIndex = 0
Me.Button1.Text = "새로고침"
Me.Button1.UseVisualStyleBackColor = True
'
'Frm_Upload
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(760, 645)
Me.Controls.Add(Me.FpSpread1)
Me.Controls.Add(Me.Panel1)
Me.Name = "Frm_Upload"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "업로드자료"
Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
CType(Me.FpSpread1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.FpSpread1_Sheet1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents FpSpread1 As FarPoint.Win.Spread.FpSpread
Friend WithEvents FpSpread1_Sheet1 As FarPoint.Win.Spread.SheetView
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
End Class

123
ArinWarev1/Forms_Report/Frm_Upload.resx Normal file
View File

@@ -0,0 +1,123 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="FpSpread1_Sheet1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

1800
ArinWarev1/Forms_Report/Frm_Upload.vb Normal file
View File

File diff suppressed because it is too large Load Diff

573
ArinWarev1/Forms_Report/Report_Graph - 백업.rdlc Normal file
View File

@@ -0,0 +1,573 @@
<?xml version="1.0" encoding="utf-8"?>
<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2005/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
<DataSources>
<DataSource Name="DummyDataSource">
<rd:DataSourceID>86b9a4cd-3b18-499f-bc7b-ae4126af8be2</rd:DataSourceID>
<ConnectionProperties>
<DataProvider>SQL</DataProvider>
<ConnectString>Data Source=ms0501.gabiadb.com;Initial Catalog=eco2;Persist Security Info=True;User ID=raytrace;Password=arin</ConnectString>
</ConnectionProperties>
</DataSource>
</DataSources>
<InteractiveHeight>29.7cm</InteractiveHeight>
<rd:DrawGrid>true</rd:DrawGrid>
<InteractiveWidth>21cm</InteractiveWidth>
<rd:GridSpacing>0.25cm</rd:GridSpacing>
<rd:SnapToGrid>true</rd:SnapToGrid>
<RightMargin>1cm</RightMargin>
<LeftMargin>1cm</LeftMargin>
<BottomMargin>1.5cm</BottomMargin>
<rd:ReportID>5ec02dd0-720b-446d-9ac5-21bd03e4b31f</rd:ReportID>
<PageWidth>21cm</PageWidth>
<DataSets>
<DataSet Name="DSR_Graph_Req">
<Fields>
<Field Name="Gubun">
<DataField>Gubun</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Mon">
<DataField>Mon</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Req">
<DataField>Req</DataField>
<rd:TypeName>System.Single</rd:TypeName>
</Field>
</Fields>
<Query>
<DataSourceName>DummyDataSource</DataSourceName>
<CommandText />
<rd:UseGenericDesigner>true</rd:UseGenericDesigner>
</Query>
<rd:DataSetInfo>
<rd:DataSetName>DSR</rd:DataSetName>
<rd:TableName>Graph_Req</rd:TableName>
</rd:DataSetInfo>
</DataSet>
<DataSet Name="DSR_Graph_ReqUse">
<Fields>
<Field Name="Gubun">
<DataField>Gubun</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="type">
<DataField>type</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Req">
<DataField>Req</DataField>
<rd:TypeName>System.Single</rd:TypeName>
</Field>
</Fields>
<Query>
<DataSourceName>DummyDataSource</DataSourceName>
<CommandText />
<rd:UseGenericDesigner>true</rd:UseGenericDesigner>
</Query>
<rd:DataSetInfo>
<rd:DataSetName>DSR</rd:DataSetName>
<rd:TableName>Graph_ReqUse</rd:TableName>
</rd:DataSetInfo>
</DataSet>
</DataSets>
<Code />
<Width>19cm</Width>
<Body>
<ColumnSpacing>1cm</ColumnSpacing>
<ReportItems>
<Matrix Name="matrix1">
<MatrixColumns>
<MatrixColumn>
<Width>2.2cm</Width>
</MatrixColumn>
</MatrixColumns>
<ZIndex>2</ZIndex>
<DataSetName>DSR_Graph_ReqUse</DataSetName>
<RowGroupings>
<RowGrouping>
<Width>2.53968cm</Width>
<DynamicRows>
<Grouping Name="matrix1_Gubun">
<GroupExpressions>
<GroupExpression>=Fields!Gubun.Value</GroupExpression>
</GroupExpressions>
</Grouping>
<Sorting>
<SortBy>
<SortExpression>=Fields!Gubun.Value</SortExpression>
<Direction>Descending</Direction>
</SortBy>
</Sorting>
<ReportItems>
<Textbox Name="Gubun">
<rd:DefaultName>Gubun</rd:DefaultName>
<Style>
<BorderStyle>
<Default>Dotted</Default>
</BorderStyle>
<BorderWidth>
<Default>0.25pt</Default>
</BorderWidth>
<FontFamily>나눔고딕</FontFamily>
<TextAlign>Center</TextAlign>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
<CanGrow>true</CanGrow>
<Value>=Fields!Gubun.Value</Value>
</Textbox>
</ReportItems>
</DynamicRows>
</RowGrouping>
</RowGroupings>
<Top>19cm</Top>
<ColumnGroupings>
<ColumnGrouping>
<Height>0.63492cm</Height>
<DynamicColumns>
<Grouping Name="matrix1_type">
<GroupExpressions>
<GroupExpression>=Fields!type.Value</GroupExpression>
</GroupExpressions>
</Grouping>
<ReportItems>
<Textbox Name="type">
<rd:DefaultName>type</rd:DefaultName>
<Style>
<BorderStyle>
<Default>Dotted</Default>
</BorderStyle>
<BorderWidth>
<Default>0.25pt</Default>
</BorderWidth>
<FontFamily>나눔고딕</FontFamily>
<FontSize>9.5pt</FontSize>
<TextAlign>Center</TextAlign>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
<CanGrow>true</CanGrow>
<Value>=Fields!type.Value</Value>
</Textbox>
</ReportItems>
</DynamicColumns>
</ColumnGrouping>
</ColumnGroupings>
<Width>4.73968cm</Width>
<Corner>
<ReportItems>
<Textbox Name="textbox1">
<rd:DefaultName>textbox1</rd:DefaultName>
<Style>
<BorderStyle>
<Default>Dotted</Default>
</BorderStyle>
<BorderWidth>
<Default>0.5pt</Default>
</BorderWidth>
<FontFamily>굴림</FontFamily>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
<CanGrow>true</CanGrow>
<Value />
</Textbox>
</ReportItems>
</Corner>
<Style>
<BorderStyle>
<Default>Solid</Default>
</BorderStyle>
<FontFamily>나눔고딕</FontFamily>
</Style>
<MatrixRows>
<MatrixRow>
<Height>0.63492cm</Height>
<MatrixCells>
<MatrixCell>
<ReportItems>
<Textbox Name="Req">
<rd:DefaultName>Req</rd:DefaultName>
<Style>
<BorderStyle>
<Default>Dotted</Default>
</BorderStyle>
<BorderWidth>
<Default>0.25pt</Default>
</BorderWidth>
<FontFamily>나눔고딕</FontFamily>
<Format>N1</Format>
<TextAlign>Center</TextAlign>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
<CanGrow>true</CanGrow>
<Value>=Sum(Fields!Req.Value)</Value>
</Textbox>
</ReportItems>
</MatrixCell>
</MatrixCells>
</MatrixRow>
</MatrixRows>
<Height>1.26984cm</Height>
<Left>0.5cm</Left>
</Matrix>
<Chart Name="chart3">
<Legend>
<Visible>true</Visible>
<Style>
<BackgroundGradientType>LeftRight</BackgroundGradientType>
<FontFamily>나눔고딕</FontFamily>
<FontSize>6pt</FontSize>
</Style>
<Position>TopRight</Position>
<Layout>Row</Layout>
</Legend>
<CategoryAxis>
<Axis>
<Title>
<Style />
<Position>Near</Position>
</Title>
<Style>
<FontFamily>나눔고딕</FontFamily>
<FontSize>9pt</FontSize>
</Style>
<MajorGridLines>
<Style>
<BorderStyle>
<Default>Solid</Default>
</BorderStyle>
</Style>
</MajorGridLines>
<MinorGridLines>
<Style>
<BorderStyle>
<Default>Solid</Default>
</BorderStyle>
</Style>
</MinorGridLines>
<MajorTickMarks>Outside</MajorTickMarks>
<Margin>true</Margin>
<Visible>true</Visible>
</Axis>
</CategoryAxis>
<ZIndex>1</ZIndex>
<DataSetName>DSR_Graph_ReqUse</DataSetName>
<PlotArea>
<Style>
<BackgroundColor>White</BackgroundColor>
<BackgroundGradientType>LeftRight</BackgroundGradientType>
<BorderColor>
<Default>DimGray</Default>
</BorderColor>
<BorderStyle>
<Default>Solid</Default>
</BorderStyle>
</Style>
</PlotArea>
<ThreeDProperties>
<Enabled>true</Enabled>
<ProjectionMode>Orthographic</ProjectionMode>
<Shading>Real</Shading>
<DrawingStyle>Cylinder</DrawingStyle>
</ThreeDProperties>
<PointWidth>0</PointWidth>
<SeriesGroupings>
<SeriesGrouping>
<DynamicSeries>
<Grouping Name="chart3_SeriesGroup1">
<GroupExpressions>
<GroupExpression>=Fields!type.Value</GroupExpression>
</GroupExpressions>
<Filters>
<Filter>
<FilterExpression>=Fields!type.Value</FilterExpression>
<Operator>NotEqual</Operator>
<FilterValues>
<FilterValue>합계</FilterValue>
</FilterValues>
</Filter>
</Filters>
</Grouping>
<Label>=Fields!type.Value</Label>
</DynamicSeries>
</SeriesGrouping>
</SeriesGroupings>
<Top>9.5cm</Top>
<Subtype>Stacked</Subtype>
<ValueAxis>
<Axis>
<Title>
<Style />
</Title>
<Style />
<MajorGridLines>
<Style>
<BorderStyle>
<Default>Dotted</Default>
</BorderStyle>
</Style>
</MajorGridLines>
<MinorGridLines>
<ShowGridLines>true</ShowGridLines>
<Style>
<BorderColor>
<Default>Gainsboro</Default>
</BorderColor>
<BorderStyle>
<Default>Dotted</Default>
</BorderStyle>
</Style>
</MinorGridLines>
<MajorTickMarks>Outside</MajorTickMarks>
<MajorInterval>100</MajorInterval>
<MinorInterval>50</MinorInterval>
<Margin>true</Margin>
<Visible>true</Visible>
<Scalar>true</Scalar>
</Axis>
</ValueAxis>
<Type>Bar</Type>
<Width>18.25cm</Width>
<CategoryGroupings>
<CategoryGrouping>
<DynamicCategories>
<Grouping Name="chart3_CategoryGroup1">
<GroupExpressions>
<GroupExpression>=Fields!Gubun.Value</GroupExpression>
</GroupExpressions>
</Grouping>
<Label>=Fields!Gubun.Value</Label>
</DynamicCategories>
</CategoryGrouping>
</CategoryGroupings>
<Palette>Pastel</Palette>
<ChartData>
<ChartSeries>
<DataPoints>
<DataPoint>
<DataValues>
<DataValue>
<Value>=Sum(Fields!Req.Value)</Value>
</DataValue>
</DataValues>
<DataLabel>
<Style>
<FontFamily>나눔고딕</FontFamily>
<FontSize>8pt</FontSize>
</Style>
<Value>=Fields!Req.Value</Value>
<Position>Top</Position>
</DataLabel>
<Style>
<BackgroundColor>=iif(Fields!type.Value="신재생에너지","#475e00",
iif(Fields!type.Value="난방에너지","#762f00",
iif(Fields!type.Value="냉방에너지","#182f76",
iif(Fields!type.Value="급탕에너지","#5e4776",
iif(Fields!type.Value="조명에너지","#765e00","#475e76")))))</BackgroundColor>
<BackgroundGradientEndColor>White</BackgroundGradientEndColor>
</Style>
<Marker>
<Size>6pt</Size>
</Marker>
</DataPoint>
</DataPoints>
</ChartSeries>
</ChartData>
<Style>
<Color>#80ff80</Color>
<BackgroundColor>White</BackgroundColor>
<BorderColor>
<Default>DimGray</Default>
</BorderColor>
<BorderStyle>
<Default>Solid</Default>
</BorderStyle>
<FontFamily>나눔고딕</FontFamily>
<FontWeight>700</FontWeight>
</Style>
<Title>
<Caption>연간 에너지 요구량 및 소요량[kWh/㎡]</Caption>
<Style>
<FontFamily>나눔고딕</FontFamily>
</Style>
</Title>
<Height>9cm</Height>
<Left>0.25cm</Left>
</Chart>
<Chart Name="chart1">
<Legend>
<Style>
<BorderStyle>
<Default>Solid</Default>
</BorderStyle>
</Style>
<Position>BottomCenter</Position>
<Layout>Row</Layout>
</Legend>
<CategoryAxis>
<Axis>
<Title />
<MajorGridLines>
<Style>
<BorderStyle>
<Default>Solid</Default>
</BorderStyle>
</Style>
</MajorGridLines>
<MinorGridLines>
<Style>
<BorderStyle>
<Default>Solid</Default>
</BorderStyle>
</Style>
</MinorGridLines>
<MajorTickMarks>Outside</MajorTickMarks>
<Min>0</Min>
<Margin>true</Margin>
<Visible>true</Visible>
</Axis>
</CategoryAxis>
<DataSetName>DSR_Graph_Req</DataSetName>
<PlotArea>
<Style>
<BackgroundColor>White</BackgroundColor>
<BackgroundGradientType>LeftRight</BackgroundGradientType>
<BorderColor>
<Default>DimGray</Default>
</BorderColor>
<BorderStyle>
<Default>Solid</Default>
</BorderStyle>
</Style>
</PlotArea>
<ThreeDProperties>
<Enabled>true</Enabled>
<ProjectionMode>Orthographic</ProjectionMode>
<Shading>Real</Shading>
<WallThickness>1</WallThickness>
<DrawingStyle>Cylinder</DrawingStyle>
</ThreeDProperties>
<PointWidth>0</PointWidth>
<SeriesGroupings>
<SeriesGrouping>
<DynamicSeries>
<Grouping Name="chart1_SeriesGroup1">
<GroupExpressions>
<GroupExpression>=Fields!Gubun.Value</GroupExpression>
</GroupExpressions>
</Grouping>
<Sorting>
<SortBy>
<SortExpression>=Fields!Gubun.Value</SortExpression>
<Direction>Descending</Direction>
</SortBy>
</Sorting>
<Label>=Fields!Gubun.Value</Label>
</DynamicSeries>
</SeriesGrouping>
</SeriesGroupings>
<Top>0.25cm</Top>
<Subtype>Plain</Subtype>
<ValueAxis>
<Axis>
<Title />
<MajorGridLines>
<ShowGridLines>true</ShowGridLines>
<Style>
<BorderStyle>
<Default>Solid</Default>
</BorderStyle>
</Style>
</MajorGridLines>
<MinorGridLines>
<Style>
<BorderStyle>
<Default>Solid</Default>
</BorderStyle>
</Style>
</MinorGridLines>
<MajorTickMarks>Outside</MajorTickMarks>
<Min>0</Min>
<MajorInterval>2</MajorInterval>
<Interlaced>true</Interlaced>
<Margin>true</Margin>
<Visible>true</Visible>
<Scalar>true</Scalar>
</Axis>
</ValueAxis>
<Type>Column</Type>
<Width>18.25cm</Width>
<CategoryGroupings>
<CategoryGrouping>
<DynamicCategories>
<Grouping Name="chart1_CategoryGroup1">
<GroupExpressions>
<GroupExpression>=Fields!Mon.Value</GroupExpression>
</GroupExpressions>
</Grouping>
<Label>=Fields!Mon.Value</Label>
</DynamicCategories>
</CategoryGrouping>
</CategoryGroupings>
<Palette>Excel</Palette>
<ChartData>
<ChartSeries>
<DataPoints>
<DataPoint>
<DataValues>
<DataValue>
<Value>=Sum(Fields!Req.Value)</Value>
</DataValue>
</DataValues>
<DataLabel>
<Style>
<FontFamily>나눔고딕</FontFamily>
<FontWeight>700</FontWeight>
</Style>
<Value>=Fields!Req.Value</Value>
<Position>Top</Position>
<Rotation>60</Rotation>
</DataLabel>
<Style />
<Marker>
<Size>6pt</Size>
</Marker>
</DataPoint>
</DataPoints>
</ChartSeries>
</ChartData>
<Style>
<BackgroundColor>White</BackgroundColor>
<BorderColor>
<Default>Gray</Default>
</BorderColor>
<BorderStyle>
<Default>Solid</Default>
</BorderStyle>
<FontFamily>나눔고딕</FontFamily>
<FontWeight>700</FontWeight>
</Style>
<Title>
<Caption>월별 냉난방 에너지 요구량 [kWh/(m²a)]</Caption>
</Title>
<Height>9cm</Height>
<Left>0.25cm</Left>
</Chart>
</ReportItems>
<Height>24cm</Height>
</Body>
<Language>ko-KR</Language>
<TopMargin>1.5cm</TopMargin>
<PageHeight>29.7cm</PageHeight>
</Report>

112
ArinWarev1/Forms_Report/Report_Graph.Designer.vb generated Normal file
View File

@@ -0,0 +1,112 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Report_Graph
Inherits CForm
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim ReportDataSource1 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource()
Dim ReportDataSource2 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Report_Graph))
Me.bs_req = New System.Windows.Forms.BindingSource(Me.components)
Me.DSR = New Eco2Ar.DSR()
Me.bs_requse = New System.Windows.Forms.BindingSource(Me.components)
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel()
Me.ReportViewer1 = New Microsoft.Reporting.WinForms.ReportViewer()
CType(Me.bs_req, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DSR, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bs_requse, System.ComponentModel.ISupportInitialize).BeginInit()
Me.StatusStrip1.SuspendLayout()
Me.SuspendLayout()
'
'bs_req
'
Me.bs_req.DataMember = "Graph_Req"
Me.bs_req.DataSource = Me.DSR
'
'DSR
'
Me.DSR.DataSetName = "DSR"
Me.DSR.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'bs_requse
'
Me.bs_requse.DataMember = "Graph_ReqUse"
Me.bs_requse.DataSource = Me.DSR
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_msg})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 418)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(653, 22)
Me.StatusStrip1.TabIndex = 15
Me.StatusStrip1.Text = "StatusStrip1"
'
'lb_msg
'
Me.lb_msg.Name = "lb_msg"
Me.lb_msg.Size = New System.Drawing.Size(59, 17)
Me.lb_msg.Text = "<메세지>"
'
'ReportViewer1
'
Me.ReportViewer1.Dock = System.Windows.Forms.DockStyle.Fill
ReportDataSource1.Name = "DSR_Graph_Req"
ReportDataSource1.Value = Me.bs_req
ReportDataSource2.Name = "DSR_Graph_ReqUse"
ReportDataSource2.Value = Me.bs_requse
Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource1)
Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource2)
Me.ReportViewer1.LocalReport.ReportEmbeddedResource = "Eco2Ar.Report_Graph.rdlc"
Me.ReportViewer1.Location = New System.Drawing.Point(0, 0)
Me.ReportViewer1.Name = "ReportViewer1"
Me.ReportViewer1.Size = New System.Drawing.Size(653, 418)
Me.ReportViewer1.TabIndex = 16
'
'Report_Graph
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(653, 440)
Me.Controls.Add(Me.ReportViewer1)
Me.Controls.Add(Me.StatusStrip1)
Me.Font = New System.Drawing.Font("굴림", 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 = "Report_Graph"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "결과그래프"
CType(Me.bs_req, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DSR, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bs_requse, System.ComponentModel.ISupportInitialize).EndInit()
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents ReportViewer1 As Microsoft.Reporting.WinForms.ReportViewer
Friend WithEvents bs_req As System.Windows.Forms.BindingSource
Friend WithEvents DSR As Eco2Ar.DSR
Friend WithEvents bs_requse As System.Windows.Forms.BindingSource
End Class

954
ArinWarev1/Forms_Report/Report_Graph.rdlc Normal file
View File

@@ -0,0 +1,954 @@
<?xml version="1.0" encoding="utf-8"?>
<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition">
<DataSources>
<DataSource Name="DummyDataSource">
<ConnectionProperties>
<DataProvider>SQL</DataProvider>
<ConnectString>Data Source=ms0501.gabiadb.com;Initial Catalog=eco2;Persist Security Info=True;User ID=raytrace;Password=arin</ConnectString>
</ConnectionProperties>
<rd:DataSourceID>86b9a4cd-3b18-499f-bc7b-ae4126af8be2</rd:DataSourceID>
</DataSource>
</DataSources>
<DataSets>
<DataSet Name="DSR_Graph_Req">
<Fields>
<Field Name="Gubun">
<DataField>Gubun</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Mon">
<DataField>Mon</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Req">
<DataField>Req</DataField>
<rd:TypeName>System.Single</rd:TypeName>
</Field>
</Fields>
<Query>
<DataSourceName>DummyDataSource</DataSourceName>
<CommandText />
<rd:UseGenericDesigner>true</rd:UseGenericDesigner>
</Query>
<rd:DataSetInfo>
<rd:DataSetName>DSR</rd:DataSetName>
<rd:TableName>Graph_Req</rd:TableName>
</rd:DataSetInfo>
</DataSet>
<DataSet Name="DSR_Graph_ReqUse">
<Fields>
<Field Name="Gubun">
<DataField>Gubun</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="type">
<DataField>type</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Req">
<DataField>Req</DataField>
<rd:TypeName>System.Single</rd:TypeName>
</Field>
</Fields>
<Query>
<DataSourceName>DummyDataSource</DataSourceName>
<CommandText />
<rd:UseGenericDesigner>true</rd:UseGenericDesigner>
</Query>
<rd:DataSetInfo>
<rd:DataSetName>DSR</rd:DataSetName>
<rd:TableName>Graph_ReqUse</rd:TableName>
</rd:DataSetInfo>
</DataSet>
</DataSets>
<Body>
<ReportItems>
<Chart Name="chart1">
<ChartCategoryHierarchy>
<ChartMembers>
<ChartMember>
<Group Name="chart1_CategoryGroup1">
<GroupExpressions>
<GroupExpression>=Fields!Mon.Value</GroupExpression>
</GroupExpressions>
</Group>
<Label>=Fields!Mon.Value</Label>
<DataElementOutput>Output</DataElementOutput>
</ChartMember>
</ChartMembers>
</ChartCategoryHierarchy>
<ChartSeriesHierarchy>
<ChartMembers>
<ChartMember>
<Group Name="chart1_SeriesGroup1">
<GroupExpressions>
<GroupExpression>=Fields!Gubun.Value</GroupExpression>
</GroupExpressions>
</Group>
<SortExpressions>
<SortExpression>
<Value>=Fields!Gubun.Value</Value>
<Direction>Descending</Direction>
</SortExpression>
</SortExpressions>
<Label>=Fields!Gubun.Value</Label>
<DataElementOutput>Output</DataElementOutput>
</ChartMember>
</ChartMembers>
</ChartSeriesHierarchy>
<ChartData>
<ChartSeriesCollection>
<ChartSeries Name="Series1">
<ChartDataPoints>
<ChartDataPoint>
<ChartDataPointValues>
<Y>=Sum(Fields!Req.Value)</Y>
</ChartDataPointValues>
<ChartDataLabel>
<Style>
<FontFamily>나눔고딕</FontFamily>
<FontWeight>Bold</FontWeight>
</Style>
<Label>=Fields!Req.Value</Label>
<Position>Top</Position>
<Rotation>60</Rotation>
</ChartDataLabel>
<Style>
<Border>
<Width>0.376pt</Width>
</Border>
</Style>
<ChartMarker>
<Size>6pt</Size>
<Style />
</ChartMarker>
</ChartDataPoint>
</ChartDataPoints>
<Style />
<ChartEmptyPoints>
<Style />
<ChartMarker>
<Style />
</ChartMarker>
<ChartDataLabel>
<Style />
</ChartDataLabel>
</ChartEmptyPoints>
<CustomProperties>
<CustomProperty>
<Name>PointWidth</Name>
<Value>0.6</Value>
</CustomProperty>
<CustomProperty>
<Name>DrawingStyle</Name>
<Value>Cylinder</Value>
</CustomProperty>
</CustomProperties>
<ValueAxisName>Primary</ValueAxisName>
<CategoryAxisName>Primary</CategoryAxisName>
<ChartSmartLabel>
<Disabled>true</Disabled>
</ChartSmartLabel>
</ChartSeries>
</ChartSeriesCollection>
</ChartData>
<ChartAreas>
<ChartArea Name="Default">
<ChartCategoryAxes>
<ChartAxis Name="Primary">
<Style>
<Border>
<Style>None</Style>
<Width>0.75pt</Width>
</Border>
</Style>
<ChartAxisTitle>
<Caption />
<Style>
<FontSize>8pt</FontSize>
</Style>
</ChartAxisTitle>
<Margin>True</Margin>
<Interval>1</Interval>
<ChartMajorGridLines>
<Enabled>False</Enabled>
<Style>
<Border>
<Style>Solid</Style>
<Width>0.75pt</Width>
</Border>
</Style>
<Interval>NaN</Interval>
<IntervalOffset>1</IntervalOffset>
</ChartMajorGridLines>
<ChartMinorGridLines>
<Enabled>False</Enabled>
<Style>
<Border>
<Style>Solid</Style>
<Width>0.75pt</Width>
</Border>
</Style>
<Interval>NaN</Interval>
</ChartMinorGridLines>
<ChartMajorTickMarks>
<Enabled>True</Enabled>
<Style>
<Border>
<Style>Solid</Style>
<Width>0.75pt</Width>
</Border>
</Style>
<Interval>NaN</Interval>
<IntervalOffset>1</IntervalOffset>
</ChartMajorTickMarks>
<ChartMinorTickMarks>
<Type>None</Type>
</ChartMinorTickMarks>
<PreventFontShrink>true</PreventFontShrink>
<PreventFontGrow>true</PreventFontGrow>
<IncludeZero>false</IncludeZero>
</ChartAxis>
<ChartAxis Name="Secondary">
<Style>
<FontSize>8pt</FontSize>
</Style>
<ChartAxisTitle>
<Caption />
<Style>
<FontSize>8pt</FontSize>
</Style>
</ChartAxisTitle>
<CrossAt>NaN</CrossAt>
<Location>Opposite</Location>
<Minimum>NaN</Minimum>
<Maximum>NaN</Maximum>
</ChartAxis>
</ChartCategoryAxes>
<ChartValueAxes>
<ChartAxis Name="Primary">
<Style>
<Border>
<Style>None</Style>
<Width>0.75pt</Width>
</Border>
</Style>
<ChartAxisTitle>
<Caption />
<Style>
<FontSize>8pt</FontSize>
</Style>
</ChartAxisTitle>
<Margin>True</Margin>
<ChartMajorGridLines>
<Enabled>True</Enabled>
<Style>
<Border>
<Style>Solid</Style>
<Width>0.75pt</Width>
</Border>
</Style>
<Interval>2</Interval>
</ChartMajorGridLines>
<ChartMinorGridLines>
<Enabled>False</Enabled>
<Style>
<Border>
<Style>Solid</Style>
<Width>0.75pt</Width>
</Border>
</Style>
<Interval>NaN</Interval>
</ChartMinorGridLines>
<ChartMajorTickMarks>
<Enabled>True</Enabled>
<Style>
<Border>
<Style>Solid</Style>
<Width>0.75pt</Width>
</Border>
</Style>
<Interval>2</Interval>
</ChartMajorTickMarks>
<ChartMinorTickMarks>
<Type>None</Type>
</ChartMinorTickMarks>
<Interlaced>true</Interlaced>
<Scalar>true</Scalar>
<Minimum>0</Minimum>
<PreventFontShrink>true</PreventFontShrink>
<PreventFontGrow>true</PreventFontGrow>
<IncludeZero>false</IncludeZero>
</ChartAxis>
<ChartAxis Name="Secondary">
<Style>
<FontSize>8pt</FontSize>
</Style>
<ChartAxisTitle>
<Caption />
<Style>
<FontSize>8pt</FontSize>
</Style>
</ChartAxisTitle>
<CrossAt>NaN</CrossAt>
<Location>Opposite</Location>
<Minimum>NaN</Minimum>
<Maximum>NaN</Maximum>
</ChartAxis>
</ChartValueAxes>
<ChartThreeDProperties>
<Enabled>true</Enabled>
<Rotation>0</Rotation>
<Inclination>0</Inclination>
<WallThickness>0</WallThickness>
<Clustered>true</Clustered>
</ChartThreeDProperties>
<Style>
<Border>
<Color>DimGray</Color>
<Style>Solid</Style>
<Width>0.75pt</Width>
</Border>
<BackgroundColor>White</BackgroundColor>
<BackgroundGradientType>LeftRight</BackgroundGradientType>
</Style>
</ChartArea>
</ChartAreas>
<ChartLegends>
<ChartLegend Name="Default">
<Hidden>true</Hidden>
<Style>
<Border>
<Style>Solid</Style>
<Width>0.75pt</Width>
</Border>
</Style>
<Position>BottomCenter</Position>
<Layout>Row</Layout>
<ChartLegendTitle>
<Caption />
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
<TextAlign>Center</TextAlign>
</Style>
</ChartLegendTitle>
<AutoFitTextDisabled>true</AutoFitTextDisabled>
</ChartLegend>
</ChartLegends>
<ChartTitles>
<ChartTitle Name="Default">
<Caption>월별 냉난방 에너지 요구량 [kWh/(m²a)]</Caption>
<Style>
<BackgroundGradientType>None</BackgroundGradientType>
<FontFamily>굴림</FontFamily>
<TextAlign>General</TextAlign>
<VerticalAlign>Top</VerticalAlign>
</Style>
</ChartTitle>
</ChartTitles>
<Palette>Excel</Palette>
<ChartBorderSkin>
<Style>
<BackgroundColor>Gray</BackgroundColor>
<BackgroundGradientType>None</BackgroundGradientType>
<Color>White</Color>
</Style>
</ChartBorderSkin>
<ChartNoDataMessage Name="NoDataMessage">
<Caption>사용 가능한 데이터 없음</Caption>
<Style>
<BackgroundGradientType>None</BackgroundGradientType>
<TextAlign>General</TextAlign>
<VerticalAlign>Top</VerticalAlign>
</Style>
</ChartNoDataMessage>
<DataSetName>DSR_Graph_Req</DataSetName>
<Top>0.25cm</Top>
<Left>0.25cm</Left>
<Height>9cm</Height>
<Width>18.25cm</Width>
<CustomProperties>
<CustomProperty>
<Name>__Upgraded2005__</Name>
<Value>__Upgraded2005__</Value>
</CustomProperty>
</CustomProperties>
<Style>
<Border>
<Color>Gray</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>White</BackgroundColor>
<FontFamily>나눔고딕</FontFamily>
<FontWeight>Bold</FontWeight>
</Style>
</Chart>
<Chart Name="chart3">
<ChartCategoryHierarchy>
<ChartMembers>
<ChartMember>
<Group Name="chart3_CategoryGroup1">
<GroupExpressions>
<GroupExpression>=Fields!Gubun.Value</GroupExpression>
</GroupExpressions>
</Group>
<Label>=Fields!Gubun.Value</Label>
<DataElementOutput>Output</DataElementOutput>
</ChartMember>
</ChartMembers>
</ChartCategoryHierarchy>
<ChartSeriesHierarchy>
<ChartMembers>
<ChartMember>
<Group Name="chart3_SeriesGroup1">
<GroupExpressions>
<GroupExpression>=Fields!type.Value</GroupExpression>
</GroupExpressions>
<Filters>
<Filter>
<FilterExpression>=Fields!type.Value</FilterExpression>
<Operator>NotEqual</Operator>
<FilterValues>
<FilterValue>합계</FilterValue>
</FilterValues>
</Filter>
</Filters>
</Group>
<Label>=Fields!type.Value</Label>
<DataElementOutput>Output</DataElementOutput>
</ChartMember>
</ChartMembers>
</ChartSeriesHierarchy>
<ChartData>
<ChartSeriesCollection>
<ChartSeries Name="Series1">
<ChartDataPoints>
<ChartDataPoint>
<ChartDataPointValues>
<Y>=Sum(Fields!Req.Value)</Y>
</ChartDataPointValues>
<ChartDataLabel>
<Style>
<FontFamily>나눔고딕</FontFamily>
<FontSize>8pt</FontSize>
</Style>
<Label>=Fields!Req.Value</Label>
<Position>Top</Position>
</ChartDataLabel>
<Style>
<Border>
<Width>0.376pt</Width>
</Border>
<Color>=iif(Fields!type.Value="신재생에너지","#475e00",
iif(Fields!type.Value="난방에너지","#762f00",
iif(Fields!type.Value="냉방에너지","#182f76",
iif(Fields!type.Value="급탕에너지","#5e4776",
iif(Fields!type.Value="조명에너지","#765e00","#475e76")))))</Color>
<BackgroundGradientEndColor>White</BackgroundGradientEndColor>
</Style>
<ChartMarker>
<Size>6pt</Size>
<Style />
</ChartMarker>
</ChartDataPoint>
</ChartDataPoints>
<Type>Bar</Type>
<Subtype>Stacked</Subtype>
<Style />
<ChartEmptyPoints>
<Style />
<ChartMarker>
<Style />
</ChartMarker>
<ChartDataLabel>
<Style />
</ChartDataLabel>
</ChartEmptyPoints>
<CustomProperties>
<CustomProperty>
<Name>PointWidth</Name>
<Value>0.6</Value>
</CustomProperty>
<CustomProperty>
<Name>DrawingStyle</Name>
<Value>Cylinder</Value>
</CustomProperty>
</CustomProperties>
<ValueAxisName>Primary</ValueAxisName>
<CategoryAxisName>Primary</CategoryAxisName>
<ChartSmartLabel>
<CalloutLineColor>Black</CalloutLineColor>
<MinMovingDistance>0pt</MinMovingDistance>
</ChartSmartLabel>
</ChartSeries>
</ChartSeriesCollection>
</ChartData>
<ChartAreas>
<ChartArea Name="Default">
<ChartCategoryAxes>
<ChartAxis Name="Primary">
<Style>
<Border>
<Style>None</Style>
<Width>0.75pt</Width>
</Border>
<FontFamily>굴림</FontFamily>
<FontSize>9pt</FontSize>
</Style>
<ChartAxisTitle>
<Caption />
<Style>
<FontSize>8pt</FontSize>
</Style>
</ChartAxisTitle>
<Margin>True</Margin>
<ChartMajorGridLines>
<Enabled>False</Enabled>
<Style>
<Border>
<Style>Solid</Style>
<Width>0.75pt</Width>
</Border>
</Style>
<Interval>NaN</Interval>
<IntervalOffset>1</IntervalOffset>
</ChartMajorGridLines>
<ChartMinorGridLines>
<Enabled>False</Enabled>
<Style>
<Border>
<Style>Solid</Style>
<Width>0.75pt</Width>
</Border>
</Style>
<Interval>NaN</Interval>
</ChartMinorGridLines>
<ChartMajorTickMarks>
<Enabled>True</Enabled>
<Style>
<Border>
<Style>Solid</Style>
<Width>0.75pt</Width>
</Border>
</Style>
<Interval>NaN</Interval>
<IntervalOffset>1</IntervalOffset>
</ChartMajorTickMarks>
<ChartMinorTickMarks>
<Type>None</Type>
</ChartMinorTickMarks>
<PreventFontShrink>true</PreventFontShrink>
<PreventFontGrow>true</PreventFontGrow>
<IncludeZero>false</IncludeZero>
</ChartAxis>
<ChartAxis Name="Secondary">
<Style>
<FontSize>8pt</FontSize>
</Style>
<ChartAxisTitle>
<Caption />
<Style>
<FontSize>8pt</FontSize>
</Style>
</ChartAxisTitle>
<CrossAt>NaN</CrossAt>
<Location>Opposite</Location>
<Minimum>NaN</Minimum>
<Maximum>NaN</Maximum>
</ChartAxis>
</ChartCategoryAxes>
<ChartValueAxes>
<ChartAxis Name="Primary">
<Style>
<Border>
<Style>None</Style>
<Width>0.75pt</Width>
</Border>
</Style>
<ChartAxisTitle>
<Caption />
<Style>
<FontSize>8pt</FontSize>
</Style>
</ChartAxisTitle>
<Margin>True</Margin>
<ChartMajorGridLines>
<Enabled>False</Enabled>
<Style>
<Border>
<Style>Dotted</Style>
<Width>0.75pt</Width>
</Border>
</Style>
<Interval>100</Interval>
</ChartMajorGridLines>
<ChartMinorGridLines>
<Enabled>True</Enabled>
<Style>
<Border>
<Color>Gainsboro</Color>
<Style>Dotted</Style>
<Width>0.75pt</Width>
</Border>
</Style>
<Interval>50</Interval>
</ChartMinorGridLines>
<ChartMajorTickMarks>
<Enabled>True</Enabled>
<Style>
<Border>
<Style>Dotted</Style>
<Width>0.75pt</Width>
</Border>
</Style>
<Interval>100</Interval>
</ChartMajorTickMarks>
<ChartMinorTickMarks>
<Type>None</Type>
</ChartMinorTickMarks>
<Scalar>true</Scalar>
<PreventFontShrink>true</PreventFontShrink>
<PreventFontGrow>true</PreventFontGrow>
<IncludeZero>false</IncludeZero>
</ChartAxis>
<ChartAxis Name="Secondary">
<Style>
<FontSize>8pt</FontSize>
</Style>
<ChartAxisTitle>
<Caption />
<Style>
<FontSize>8pt</FontSize>
</Style>
</ChartAxisTitle>
<CrossAt>NaN</CrossAt>
<Location>Opposite</Location>
<Minimum>NaN</Minimum>
<Maximum>NaN</Maximum>
</ChartAxis>
</ChartValueAxes>
<ChartThreeDProperties>
<Enabled>true</Enabled>
<Rotation>0</Rotation>
<Inclination>0</Inclination>
<WallThickness>0</WallThickness>
<Clustered>true</Clustered>
</ChartThreeDProperties>
<Style>
<Border>
<Color>DimGray</Color>
<Style>Solid</Style>
<Width>0.75pt</Width>
</Border>
<BackgroundColor>White</BackgroundColor>
<BackgroundGradientType>LeftRight</BackgroundGradientType>
</Style>
</ChartArea>
</ChartAreas>
<ChartLegends>
<ChartLegend Name="Default">
<Style>
<Border>
<Style>None</Style>
<Width>0.75pt</Width>
</Border>
<BackgroundGradientType>LeftRight</BackgroundGradientType>
<FontFamily>나눔고딕</FontFamily>
<FontSize>6pt</FontSize>
</Style>
<Position>TopRight</Position>
<Layout>Row</Layout>
<ChartLegendTitle>
<Caption />
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
<TextAlign>Center</TextAlign>
</Style>
</ChartLegendTitle>
<AutoFitTextDisabled>true</AutoFitTextDisabled>
</ChartLegend>
</ChartLegends>
<ChartTitles>
<ChartTitle Name="Default">
<Caption>연간 에너지 요구량 및 소요량[kWh/㎡]</Caption>
<Style>
<FontFamily>나눔고딕</FontFamily>
</Style>
</ChartTitle>
</ChartTitles>
<Palette>Pastel</Palette>
<ChartBorderSkin>
<Style>
<BackgroundColor>Gray</BackgroundColor>
<BackgroundGradientType>None</BackgroundGradientType>
<Color>White</Color>
</Style>
</ChartBorderSkin>
<ChartNoDataMessage Name="NoDataMessage">
<Caption>사용 가능한 데이터 없음</Caption>
<Style>
<BackgroundGradientType>None</BackgroundGradientType>
<TextAlign>General</TextAlign>
<VerticalAlign>Top</VerticalAlign>
</Style>
</ChartNoDataMessage>
<DataSetName>DSR_Graph_ReqUse</DataSetName>
<Filters>
<Filter>
<FilterExpression>=Fields!Gubun.Value</FilterExpression>
<Operator>NotEqual</Operator>
<FilterValues>
<FilterValue>Co2발생량</FilterValue>
</FilterValues>
</Filter>
</Filters>
<Top>9.5cm</Top>
<Left>0.25cm</Left>
<Height>9cm</Height>
<Width>18.25cm</Width>
<ZIndex>1</ZIndex>
<CustomProperties>
<CustomProperty>
<Name>__Upgraded2005__</Name>
<Value>__Upgraded2005__</Value>
</CustomProperty>
</CustomProperties>
<Style>
<Border>
<Color>DimGray</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>White</BackgroundColor>
<FontFamily>나눔고딕</FontFamily>
<FontWeight>Bold</FontWeight>
<Color>#80ff80</Color>
</Style>
</Chart>
<Tablix Name="matrix1">
<TablixCorner>
<TablixCornerRows>
<TablixCornerRow>
<TablixCornerCell>
<CellContents>
<Textbox Name="textbox1">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontFamily>굴림</FontFamily>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>textbox1</rd:DefaultName>
<Style>
<Border>
<Style>Dotted</Style>
<Width>0.5pt</Width>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCornerCell>
</TablixCornerRow>
</TablixCornerRows>
</TablixCorner>
<TablixBody>
<TablixColumns>
<TablixColumn>
<Width>0.86614in</Width>
</TablixColumn>
</TablixColumns>
<TablixRows>
<TablixRow>
<Height>0.24997in</Height>
<TablixCells>
<TablixCell>
<CellContents>
<Textbox Name="Req">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Sum(Fields!Req.Value)</Value>
<Style>
<FontFamily>굴림</FontFamily>
<Format>N1</Format>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Req</rd:DefaultName>
<Style>
<Border>
<Style>Dotted</Style>
<Width>0.25pt</Width>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
<DataElementOutput>Output</DataElementOutput>
</TablixCell>
</TablixCells>
</TablixRow>
</TablixRows>
</TablixBody>
<TablixColumnHierarchy>
<TablixMembers>
<TablixMember>
<Group Name="matrix1_type">
<GroupExpressions>
<GroupExpression>=Fields!type.Value</GroupExpression>
</GroupExpressions>
</Group>
<TablixHeader>
<Size>0.24997in</Size>
<CellContents>
<Textbox Name="type">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!type.Value</Value>
<Style>
<FontFamily>굴림</FontFamily>
<FontSize>9.5pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>type</rd:DefaultName>
<Style>
<Border>
<Style>Dotted</Style>
<Width>0.25pt</Width>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixHeader>
<DataElementOutput>Output</DataElementOutput>
</TablixMember>
</TablixMembers>
</TablixColumnHierarchy>
<TablixRowHierarchy>
<TablixMembers>
<TablixMember>
<Group Name="matrix1_Gubun">
<GroupExpressions>
<GroupExpression>=Fields!Gubun.Value</GroupExpression>
</GroupExpressions>
</Group>
<SortExpressions>
<SortExpression>
<Value>=iif(Fields!Gubun.Value="요구량",1,iif(Fields!Gubun.Value="소요량",2,iif(Fields!Gubun.Value="1차소요량",3,4)))</Value>
</SortExpression>
</SortExpressions>
<TablixHeader>
<Size>0.99987in</Size>
<CellContents>
<Textbox Name="Gubun">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!Gubun.Value</Value>
<Style>
<FontFamily>굴림</FontFamily>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Gubun</rd:DefaultName>
<Style>
<Border>
<Style>Dotted</Style>
<Width>0.25pt</Width>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixHeader>
<DataElementOutput>Output</DataElementOutput>
</TablixMember>
</TablixMembers>
</TablixRowHierarchy>
<RepeatColumnHeaders>true</RepeatColumnHeaders>
<RepeatRowHeaders>true</RepeatRowHeaders>
<OmitBorderOnPageBreak>true</OmitBorderOnPageBreak>
<NoRowsMessage>No Data</NoRowsMessage>
<DataSetName>DSR_Graph_ReqUse</DataSetName>
<Top>19cm</Top>
<Left>0.5cm</Left>
<Height>1.26985cm</Height>
<Width>4.73967cm</Width>
<ZIndex>2</ZIndex>
<Style>
<Border>
<Style>Solid</Style>
</Border>
<FontFamily>굴림</FontFamily>
</Style>
</Tablix>
</ReportItems>
<Height>20.26985cm</Height>
<Style />
</Body>
<Width>19cm</Width>
<Page>
<PageHeight>29.7cm</PageHeight>
<PageWidth>21cm</PageWidth>
<LeftMargin>1cm</LeftMargin>
<RightMargin>1cm</RightMargin>
<TopMargin>1.5cm</TopMargin>
<BottomMargin>1.5cm</BottomMargin>
<ColumnSpacing>1cm</ColumnSpacing>
<Style />
</Page>
<Language>ko-KR</Language>
<ConsumeContainerWhitespace>true</ConsumeContainerWhitespace>
<rd:ReportID>5ec02dd0-720b-446d-9ac5-21bd03e4b31f</rd:ReportID>
<rd:ReportUnitType>Cm</rd:ReportUnitType>
</Report>

1577
ArinWarev1/Forms_Report/Report_Graph.resx Normal file
View File

File diff suppressed because it is too large Load Diff

333
ArinWarev1/Forms_Report/Report_Graph.vb Normal file
View File

@@ -0,0 +1,333 @@
Public Class Report_Graph
#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 Frm_v20091231_Result_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.DSR.TReqUse.Merge(DSETR1.TReqUse)
MakeGraphTable()
Me.ReportViewer1.ZoomMode = Microsoft.Reporting.WinForms.ZoomMode.PageWidth
Me.ReportViewer1.ZoomPercent = 100
Me.ReportViewer1.RefreshReport()
End Sub
Private Sub MakeGraphTable()
If DSR.TReqUse.Rows.Count < 1 Then Return
Dim Dr As DSR.Graph_ReqRow
For Gubun As Short = 0 To 1
For mon As Short = 1 To 12
If Gubun = 0 Then '//6번
Dr = Me.DSR.Graph_Req.NewGraph_ReqRow
Dr.Gubun = "난방에너지요구량"
Dr.Mon = Format(mon, "0") & "월"
Dr.Req = Result1.E요구량(mon).난방면적
Me.DSR.Graph_Req.Rows.Add(Dr)
Else '//11번
Dr = Me.DSR.Graph_Req.NewGraph_ReqRow
Dr.Gubun = "냉방에너지요구량"
Dr.Mon = Format(mon, "0") & "월"
Dr.Req = Result1.E요구량(mon).냉방면적
Me.DSR.Graph_Req.Rows.Add(Dr)
End If
Next
Next
'//연간에너지요구량및소요량
'//Graph_requse gubun,type,
'1차에너지소요량 에너지소요량 에너지요구량
'신재생에너지(-57)
'난방에너지 106 91.87445415 56.14013248
'냉방에너지 155.3678094 119.8832527 40.83005443
'급탕에너지 42.6421498 14.21404993 14.6
'조명에너지 144.2220948 48.07403159 73.08380082
'환기에너지 61.68818331 20.56272777
Dim 신재생에너지 As Decimal
Dim 난방에너지 As Decimal
Dim 냉방에너지 As Decimal
Dim 급탕에너지 As Decimal
Dim 조명에너지 As Decimal
Dim 환기에너지 As Decimal
'Dim 합계 As Decimal
Dim Dr2 As DSR.Graph_ReqUseRow
For Gubun As Short = 0 To 3
Select Case Gubun
Case 0 '//1차에너지소요량
신재생에너지 = 0
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "1차소요량"
Dr2.type = "신재생에너지"
Dr2.Req = 신재생에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
난방에너지 = Result1.일차E소요량(0).난방면적
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "1차소요량"
Dr2.type = "난방에너지"
Dr2.Req = 난방에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
냉방에너지 = Result1.일차E소요량(0).냉방면적
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "1차소요량"
Dr2.type = "냉방에너지"
Dr2.Req = 냉방에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
급탕에너지 = Result1.일차E소요량(0).급탕면적
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "1차소요량"
Dr2.type = "급탕에너지"
Dr2.Req = 급탕에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
조명에너지 = Result1.일차E소요량(0).조명면적
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "1차소요량"
Dr2.type = "조명에너지"
Dr2.Req = 조명에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
'계산결과!H92*3/계산결과!H27
환기에너지 = Result1.일차E소요량(0).환기면적
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "1차소요량"
Dr2.type = "환기에너지"
Dr2.Req = 환기에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "1차소요량"
Dr2.type = "합계"
Dr2.Req = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
Case 1 '//에너지소요량
Dim Sum As Decimal = Result1.생산E(0).태양광전력생산량 / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력)
Dim 난방 As Decimal = Sum * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
Dim 냉방 As Decimal = Sum * Result1.일차E소요량(0).냉방전력
Dim 조명 As Decimal = Sum * Result1.일차E소요량(0).조명전력
Dim 급탕 As Decimal = Sum * Result1.일차E소요량(0).급탕전력
Dim 환기 As Decimal = Sum * Result1.일차E소요량(0).환기전력
Dim 난방면적 As Decimal = 0
Dim 냉방면적 As Decimal = 0
Dim 조명면적 As Decimal = 0
Dim 급탕면적 As Decimal = 0
Dim 환기면적 As Decimal = 0
If Result1.사용면적.H <> 0 Then
난방면적 = TOSG(IIf(난방 = 0, 0, 난방 / Result1.사용면적.H))
End If
If Result1.사용면적.C <> 0 Then
냉방면적 = TOSG(IIf(냉방 = 0, 0, 냉방 / Result1.사용면적.C))
End If
If Result1.사용면적.L <> 0 Then
조명면적 = TOSG(IIf(조명 = 0, 0, 조명 / Result1.사용면적.L))
End If
If Result1.사용면적.W <> 0 Then
급탕면적 = TOSG(IIf(급탕 = 0, 0, 급탕 / Result1.사용면적.W))
End If
If Result1.사용면적.V <> 0 Then
환기면적 = TOSG(IIf(환기 = 0, 0, 환기 / Result1.사용면적.V))
End If
Dim 면적 As Decimal = 난방면적 + 냉방면적 + 조명면적 + 급탕면적 + 환기면적
'=-SUM(계산결과!G108:G109)-계산결과!F42-계산결과!F48-계산결과!F51-계산결과!F56-계산결과!F59
'F42=IF($G$15=0,0,F38/$G$15)
'f38=(G104)/(SUM(H76:S76)+SUM(H85:S85)+SUM(H93:S93)+SUM(H97:S97)+SUM(H101:S101))*SUM(H76:S76)
'g15=난방면적
'f48=IF($G$20=0,0,F44/$G$20)
'f44=(G104)/(SUM(H76:S76)+SUM(H85:S85)+SUM(H93:S93)+SUM(H97:S97)+SUM(H101:S101))*SUM(H85:S85)
'g20=냉방면적
신재생에너지 = -1 * (Result1.생산E(0).면적당생산량태양열 + Result1.생산E(0).면적당생산량지열) - 면적
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "소요량"
Dr2.type = "신재생에너지"
Dr2.Req = 신재생에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
난방에너지 = Result1.E소요량(0).난방면적
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "소요량"
Dr2.type = "난방에너지"
Dr2.Req = 난방에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
냉방에너지 = Result1.E소요량(0).냉방면적
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "소요량"
Dr2.type = "냉방에너지"
Dr2.Req = 냉방에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
급탕에너지 = Result1.E소요량(0).급탕면적
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "소요량"
Dr2.type = "급탕에너지"
Dr2.Req = 급탕에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
조명에너지 = Result1.E소요량(0).조명면적
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "소요량"
Dr2.type = "조명에너지"
Dr2.Req = 조명에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
환기에너지 = Result1.E소요량(0).환기면적
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "소요량"
Dr2.type = "환기에너지"
Dr2.Req = 환기에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "소요량"
Dr2.type = "합계"
Dr2.Req = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
Case 2 '//에너지요구량
신재생에너지 = 0
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "요구량"
Dr2.type = "신재생에너지"
Dr2.Req = 신재생에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
'계산결과!H14
난방에너지 = Result1.E요구량(0).난방면적
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "요구량"
Dr2.type = "난방에너지"
Dr2.Req = 난방에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
냉방에너지 = Result1.E요구량(0).냉방면적
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "요구량"
Dr2.type = "냉방에너지"
Dr2.Req = 냉방에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
'계산결과!H25
급탕에너지 = Result1.E요구량(0).급탕면적
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "요구량"
Dr2.type = "급탕에너지"
Dr2.Req = 급탕에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
'계산결과!H22
조명에너지 = Result1.E요구량(0).조명면적
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "요구량"
Dr2.type = "조명에너지"
Dr2.Req = 조명에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
환기에너지 = 0
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "요구량"
Dr2.type = "환기에너지"
Dr2.Req = 환기에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "요구량"
Dr2.type = "합계"
Dr2.Req = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
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)
난방에너지 = Result1.Co2발생량(0).난방면적
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "Co2발생량"
Dr2.type = "난방에너지"
Dr2.Req = 난방에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
냉방에너지 = Result1.Co2발생량(0).냉방면적
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "Co2발생량"
Dr2.type = "냉방에너지"
Dr2.Req = 냉방에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
급탕에너지 = Result1.Co2발생량(0).급탕면적
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "Co2발생량"
Dr2.type = "급탕에너지"
Dr2.Req = 급탕에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
조명에너지 = Result1.Co2발생량(0).조명면적
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "Co2발생량"
Dr2.type = "조명에너지"
Dr2.Req = 조명에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
'계산결과!H92*3/계산결과!H27
환기에너지 = Result1.Co2발생량(0).환기면적
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
End Sub
End Class

2291
ArinWarev1/Forms_Report/Report_Graph_auth - 백업.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

138
ArinWarev1/Forms_Report/Report_Graph_auth.Designer.vb generated Normal file
View File

@@ -0,0 +1,138 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Report_Graph_auth
Inherits CForm
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim ReportDataSource1 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource()
Dim ReportDataSource2 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource()
Dim ReportDataSource3 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource()
Dim ReportDataSource4 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Report_Graph_auth))
Me.bs_req = New System.Windows.Forms.BindingSource(Me.components)
Me.DSR = New Eco2Ar.DSR()
Me.bs_requse = New System.Windows.Forms.BindingSource(Me.components)
Me.bs_reqinfo = New System.Windows.Forms.BindingSource(Me.components)
Me.bs_reqinfodata = New System.Windows.Forms.BindingSource(Me.components)
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel()
Me.ReportViewer1 = New Microsoft.Reporting.WinForms.ReportViewer()
CType(Me.bs_req, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DSR, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bs_requse, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bs_reqinfo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bs_reqinfodata, System.ComponentModel.ISupportInitialize).BeginInit()
Me.StatusStrip1.SuspendLayout()
Me.SuspendLayout()
'
'bs_req
'
Me.bs_req.DataMember = "Graph_Req"
Me.bs_req.DataSource = Me.DSR
'
'DSR
'
Me.DSR.DataSetName = "DSR"
Me.DSR.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'bs_requse
'
Me.bs_requse.DataMember = "Graph_ReqUse"
Me.bs_requse.DataSource = Me.DSR
'
'bs_reqinfo
'
Me.bs_reqinfo.DataMember = "Graph_Info"
Me.bs_reqinfo.DataSource = Me.DSR
'
'bs_reqinfodata
'
Me.bs_reqinfodata.DataMember = "Graph_Info_data"
Me.bs_reqinfodata.DataSource = Me.DSR
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_msg})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 413)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(845, 22)
Me.StatusStrip1.TabIndex = 15
Me.StatusStrip1.Text = "StatusStrip1"
'
'lb_msg
'
Me.lb_msg.Name = "lb_msg"
Me.lb_msg.Size = New System.Drawing.Size(59, 17)
Me.lb_msg.Text = "<메세지>"
'
'ReportViewer1
'
Me.ReportViewer1.Dock = System.Windows.Forms.DockStyle.Fill
ReportDataSource1.Name = "DSR_Graph_Req"
ReportDataSource1.Value = Me.bs_req
ReportDataSource2.Name = "DSR_Graph_ReqUse"
ReportDataSource2.Value = Me.bs_requse
ReportDataSource3.Name = "DSR_Graph_Info"
ReportDataSource3.Value = Me.bs_reqinfo
ReportDataSource4.Name = "DSR_Graph_Info_data"
ReportDataSource4.Value = Me.bs_reqinfodata
Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource1)
Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource2)
Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource3)
Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource4)
Me.ReportViewer1.LocalReport.ReportEmbeddedResource = "Eco2Ar.Report_Graph_auth.rdlc"
Me.ReportViewer1.Location = New System.Drawing.Point(0, 0)
Me.ReportViewer1.Name = "ReportViewer1"
Me.ReportViewer1.Size = New System.Drawing.Size(845, 413)
Me.ReportViewer1.TabIndex = 16
'
'Report_Graph_auth
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(845, 435)
Me.Controls.Add(Me.ReportViewer1)
Me.Controls.Add(Me.StatusStrip1)
Me.Font = New System.Drawing.Font("돋움", 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 = "Report_Graph_auth"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "결과그래프"
CType(Me.bs_req, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DSR, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bs_requse, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bs_reqinfo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bs_reqinfodata, System.ComponentModel.ISupportInitialize).EndInit()
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents ReportViewer1 As Microsoft.Reporting.WinForms.ReportViewer
Friend WithEvents bs_req As System.Windows.Forms.BindingSource
Friend WithEvents DSR As Eco2Ar.DSR
Friend WithEvents bs_requse As System.Windows.Forms.BindingSource
Friend WithEvents bs_reqinfo As System.Windows.Forms.BindingSource
Friend WithEvents bs_reqinfodata As System.Windows.Forms.BindingSource
End Class

3403
ArinWarev1/Forms_Report/Report_Graph_auth.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

1586
ArinWarev1/Forms_Report/Report_Graph_auth.resx Normal file
View File

File diff suppressed because it is too large Load Diff

308
ArinWarev1/Forms_Report/Report_Graph_auth.vb Normal file
View File

@@ -0,0 +1,308 @@
Public Class Report_Graph_auth
#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_Result_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.DSR.TReqUse.Merge(DSETR1.TReqUse)
MakeInfoTable()
MakeGraphTable()
Me.ReportViewer1.ZoomMode = Microsoft.Reporting.WinForms.ZoomMode.Percent
Me.ReportViewer1.ZoomPercent = 100
Me.ReportViewer1.RefreshReport()
End Sub
Private Sub MakeInfoTable()
'//일반정보확인
Dim Dr As DSR.Graph_InfoRow = Me.DSR.Graph_Info.NewGraph_InfoRow
Dr.name = CType(DSET1.tbl_Desc.Rows(0), DS.tbl_DescRow).buildname
Dr.year = CType(DSET1.tbl_Desc.Rows(0), DS.tbl_DescRow).reqdate.Substring(0, 4)
Dr.juso = CType(DSET1.tbl_Desc.Rows(0), DS.tbl_DescRow).buildaddr
Dr.chung = CType(DSET1.tbl_Desc.Rows(0), DS.tbl_DescRow).builds1 & "/" & CType(DSET1.tbl_Desc.Rows(0), DS.tbl_DescRow).builds2
Dr.myoun = CType(DSET1.tbl_Desc.Rows(0), DS.tbl_DescRow).buildm23
Dr.ydo = "" '//용도는 딱히 필드가없다.
Dr.i1 = "[인증번호]"
Dr.i2 = "[인증기관]"
Dr.i3 = "[운영기관]"
Dr.co2 = 80 '//co2배출량값
Me.DSR.Graph_Info.AddGraph_InfoRow(Dr)
Me.DSR.Graph_Info.AcceptChanges()
'//용도별 Co2 배출량 데이터 생성
Dim Dr2 As DSR.Graph_Info_dataRow = Me.DSR.Graph_Info_data.NewGraph_Info_dataRow
Dr2.난방소요 = Result1.E소요량(0).난방면적
Dr2.급탕소요 = Result1.E소요량(0).급탕면적
Dr2.냉방소요 = Result1.E소요량(0).냉방면적
Dr2.조명소요 = Result1.E소요량(0).조명면적
Dr2.환기소요 = Result1.E소요량(0).환기면적
Dr2.난방소요1 = Result1.일차E소요량(0).난방면적
Dr2.급탕소요1 = Result1.일차E소요량(0).급탕면적
Dr2.냉방소요1 = Result1.일차E소요량(0).냉방면적
Dr2.조명소요1 = Result1.일차E소요량(0).조명면적
Dr2.환기소요1 = Result1.일차E소요량(0).환기면적
Dr2.난방co2 = Result1.Co2발생량(0).난방면적
Dr2.급탕co2 = Result1.Co2발생량(0).급탕면적
Dr2.냉방co2 = Result1.Co2발생량(0).냉방면적
Dr2.조명co2 = Result1.Co2발생량(0).조명면적
Dr2.환기co2 = Result1.Co2발생량(0).환기면적
Me.DSR.Graph_Info_data.AddGraph_Info_dataRow(Dr2)
Me.DSR.Graph_Info_data.AcceptChanges()
End Sub
Private Sub MakeGraphTable()
'If DSR.TReqUse.Rows.Count < 1 Then Return
'Dim Dr As DSR.Graph_ReqRow
'For Gubun As Short = 0 To 1
' For mon As Short = 1 To 12
' If Gubun = 0 Then '//6번
' Dr = Me.DSR.Graph_Req.NewGraph_ReqRow
' Dr.Gubun = "난방에너지요구량"
' Dr.Mon = Format(mon, "0") & "월"
' Dr.Req = Ru(6, "M" & Format(mon, "00"))
' Me.DSR.Graph_Req.Rows.Add(Dr)
' Else '//11번
' Dr = Me.DSR.Graph_Req.NewGraph_ReqRow
' Dr.Gubun = "냉방에너지요구량"
' Dr.Mon = Format(mon, "0") & "월"
' Dr.Req = Ru(11, "M" & Format(mon, "00"))
' Me.DSR.Graph_Req.Rows.Add(Dr)
' End If
' Next
'Next
''//연간에너지요구량및소요량
''//Graph_requse gubun,type,
'' 1차에너지소요량 에너지소요량 에너지요구량
''신재생에너지 (-57)
''난방에너지 106 91.87445415 56.14013248
''냉방에너지 155.3678094 119.8832527 40.83005443
''급탕에너지 42.6421498 14.21404993 14.6
''조명에너지 144.2220948 48.07403159 73.08380082
''환기에너지 61.68818331 20.56272777
'Dim 신재생에너지 as decimal
'Dim 난방에너지 as decimal
'Dim 냉방에너지 as decimal
'Dim 급탕에너지 as decimal
'Dim 조명에너지 as decimal
'Dim 환기에너지 as decimal
'Dim Drow As DSR.TReqUseRow = CType(DSETR.TReqUse.Rows(56 - 1), DSR.TReqUseRow)
'Dim L56 as decimal = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12
'Drow = CType(DSETR.TReqUse.Rows(57 - 1), DSR.TReqUseRow)
'Dim L57 as decimal = Drow.M01 + Drow.M02 + Drow.M03 + Drow.M04 + Drow.M05 + Drow.M06 + Drow.M07 + Drow.M08 + Drow.M09 + Drow.M10 + Drow.M11 + Drow.M12
'Dim Dr2 As DSR.Graph_ReqUseRow
'For Gubun As Short = 0 To 2
' Select Case Gubun
' Case 0 '//1차에너지소요량
' 신재생에너지 = 0
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
' Dr2.Gubun = "1차에너지소요량"
' Dr2.type = "신재생에너지"
' Dr2.Req = 신재생에너지
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
' '(SUM(계산결과!H72:H74)*1.1+계산결과!H75*0.88+계산결과!H76*3)/계산결과!H15
' 난방에너지 = CSng(((Ru(41) + Ru(42) + Ru(43)) * 1.1 + Ru(44) * 0.88 + Ru(45) * 3) / Ru(7))
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
' Dr2.Gubun = "1차에너지소요량"
' Dr2.type = "난방에너지"
' Dr2.Req = 난방에너지
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
' '(SUM(계산결과!H78:H80)*1.1+계산결과!H81*0.88+계산결과!H82*3)/계산결과!H20
' 냉방에너지 = CSng(((Ru(46) + Ru(47) + Ru(48)) * 1.1 + Ru(49) * 0.88 + Ru(50) * 3) / Ru(12))
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
' Dr2.Gubun = "1차에너지소요량"
' Dr2.type = "냉방에너지"
' Dr2.Req = 냉방에너지
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
' '(SUM(계산결과!H84:H86)*1.1+계산결과!H87*0.88+계산결과!H88*3)/계산결과!H26
' 급탕에너지 = CSng(((Ru(51) + Ru(52) + Ru(53)) * 1.1 + Ru(54) * 0.88 + Ru(55) * 3) / Ru(18))
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
' Dr2.Gubun = "1차에너지소요량"
' Dr2.type = "급탕에너지"
' Dr2.Req = 급탕에너지
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
' 'IF(SUM(D33:D35)=0,0,계산결과!H90*3/계산결과!H23)
' 조명에너지 = CSng(IIf(난방에너지 + 냉방에너지 + 급탕에너지 = 0, 0, Ru(56) * 3 / Ru(15)))
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
' Dr2.Gubun = "1차에너지소요량"
' Dr2.type = "조명에너지"
' Dr2.Req = 조명에너지
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
' '계산결과!H92*3/계산결과!H27
' 환기에너지 = Ru(57) * 3 / Ru(19)
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
' Dr2.Gubun = "1차에너지소요량"
' Dr2.type = "환기에너지"
' Dr2.Req = 환기에너지
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
' Case 1 '//에너지소요량
' '=-(ru(62)+ru(63))-(IF(계산결과!H15<>0,(계산결과!H39+계산결과!H41-계산결과!G38)/계산결과!H15,0)+IF(계산결과!H20<>0,(계산결과!H45+계산결과!H47-계산결과!G44)/계산결과!H20,0)+IF(계산결과!H23<>0,(SUM(계산결과!I90:T90)-계산결과!G50)/계산결과!H23,0)+IF(계산결과!H26<>0,(계산결과!H54+계산결과!H55-계산결과!G53)/계산결과!H26,0)+IF(계산결과!H27<>0,(SUM(계산결과!I92:T92)-계산결과!G58)/계산결과!H27,0))
' Dim PreData as decimal = 0
' Dim Ru7, Ru23, Ru25, Ru22G as decimal
' Ru7 = Ru(7)
' Ru23 = Ru(23)
' Ru25 = Ru(25)
' Ru22G = Ru(22, "COLG")
' PreData += CSng(IIf(Ru(7) <> 0, (Ru(23) + Ru(25) - Ru(22, "COLG")) / Ru(7), 0))
' PreData += CSng(IIf(Ru(12) <> 0, (Ru(28) + Ru(29) - Ru(27, "COLG")) / Ru(12), 0))
' PreData += CSng(IIf(Ru(15) <> 0, (L56 - Ru(31, "COLG")) / Ru(15), 0))
' PreData += CSng(IIf(Ru(18) <> 0, (Ru(34) + Ru(35) - Ru(33, "COLG")) / Ru(18), 0))
' PreData += CSng(IIf(Ru(19) <> 0, (L57 - Ru(37, "COLG")) / Ru(19), 0))
' 'PreData = -1 * PreData
' 신재생에너지 = -(Ru(62) + Ru(63)) - PreData
' 'MsgBox(신재생에너지)
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
' Dr2.Gubun = "에너지소요량"
' Dr2.type = "신재생에너지"
' Dr2.Req = 신재생에너지
' 'MsgBox(Dr2.Req)
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
' '계산결과!H42
' 난방에너지 = Ru(26)
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
' Dr2.Gubun = "에너지소요량"
' Dr2.type = "난방에너지"
' Dr2.Req = 난방에너지
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
' '계산결과!H48()
' 냉방에너지 = Ru(30)
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
' Dr2.Gubun = "에너지소요량"
' Dr2.type = "냉방에너지"
' Dr2.Req = 냉방에너지
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
' '계산결과!H56
' 급탕에너지 = Ru(36)
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
' Dr2.Gubun = "에너지소요량"
' Dr2.type = "급탕에너지"
' Dr2.Req = 급탕에너지
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
' '=IF(SUM(E33:E35)=0,0,계산결과!H51) '/난방+냉방+급탕
' If 난방에너지 + 냉방에너지 + 급탕에너지 = 0 Then
' 조명에너지 = 0
' Else
' 조명에너지 = Ru(32)
' End If
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
' Dr2.Gubun = "에너지소요량"
' Dr2.type = "조명에너지"
' Dr2.Req = 조명에너지
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
' '계산결과!H59
' 환기에너지 = Ru(38)
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
' Dr2.Gubun = "에너지소요량"
' Dr2.type = "환기에너지"
' Dr2.Req = 환기에너지
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
' Case 2 '//에너지요구량
' 신재생에너지 = 0
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
' Dr2.Gubun = "에너지요구량"
' Dr2.type = "신재생에너지"
' Dr2.Req = 신재생에너지
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
' '계산결과!H14
' 난방에너지 = Ru(6)
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
' Dr2.Gubun = "에너지요구량"
' Dr2.type = "난방에너지"
' Dr2.Req = 난방에너지
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
' '계산결과!H19
' 냉방에너지 = Ru(11)
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
' Dr2.Gubun = "에너지요구량"
' Dr2.type = "냉방에너지"
' Dr2.Req = 냉방에너지
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
' '계산결과!H25
' 급탕에너지 = Ru(17)
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
' Dr2.Gubun = "에너지요구량"
' Dr2.type = "급탕에너지"
' Dr2.Req = 급탕에너지
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
' '계산결과!H22
' 조명에너지 = Ru(14)
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
' Dr2.Gubun = "에너지요구량"
' Dr2.type = "조명에너지"
' Dr2.Req = 조명에너지
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
' 환기에너지 = 0
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
' Dr2.Gubun = "에너지요구량"
' Dr2.type = "환기에너지"
' Dr2.Req = 환기에너지
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
' End Select
'Next
End Sub
End Class

101
ArinWarev1/Forms_Report/Report_Total.Designer.vb generated Normal file
View File

@@ -0,0 +1,101 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Report_Total
Inherits CForm
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim ReportDataSource1 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Report_Total))
Me.bs = New System.Windows.Forms.BindingSource(Me.components)
Me.DSR = New Eco2Ar.DSR()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel()
Me.ReportViewer1 = New Microsoft.Reporting.WinForms.ReportViewer()
CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DSR, System.ComponentModel.ISupportInitialize).BeginInit()
Me.StatusStrip1.SuspendLayout()
Me.SuspendLayout()
'
'bs
'
Me.bs.DataMember = "TReqUse"
Me.bs.DataSource = Me.DSR
'
'DSR
'
Me.DSR.DataSetName = "DSR"
Me.DSR.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_msg})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 876)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(1098, 22)
Me.StatusStrip1.TabIndex = 14
Me.StatusStrip1.Text = "StatusStrip1"
'
'lb_msg
'
Me.lb_msg.Name = "lb_msg"
Me.lb_msg.Size = New System.Drawing.Size(59, 17)
Me.lb_msg.Text = "<메세지>"
'
'ReportViewer1
'
Me.ReportViewer1.Dock = System.Windows.Forms.DockStyle.Fill
ReportDataSource1.Name = "DSR_TReqUse"
ReportDataSource1.Value = Me.bs
Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource1)
Me.ReportViewer1.LocalReport.ReportEmbeddedResource = "Eco2Ar.Report_total.rdlc"
Me.ReportViewer1.Location = New System.Drawing.Point(0, 0)
Me.ReportViewer1.Name = "ReportViewer1"
Me.ReportViewer1.Size = New System.Drawing.Size(1098, 876)
Me.ReportViewer1.TabIndex = 17
'
'Report_Total
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1098, 898)
Me.Controls.Add(Me.ReportViewer1)
Me.Controls.Add(Me.StatusStrip1)
Me.Font = New System.Drawing.Font("돋움", 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 = "Report_Total"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "계산결과(에너지요구량 및 소요량)"
CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DSR, System.ComponentModel.ISupportInitialize).EndInit()
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents DSR As Eco2Ar.DSR
Friend WithEvents TOTALDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents ReportViewer1 As Microsoft.Reporting.WinForms.ReportViewer
Friend WithEvents bs As System.Windows.Forms.BindingSource
End Class

1574
ArinWarev1/Forms_Report/Report_Total.resx Normal file
View File

File diff suppressed because it is too large Load Diff

74
ArinWarev1/Forms_Report/Report_Total.vb Normal file
View File

@@ -0,0 +1,74 @@
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

173
ArinWarev1/Forms_Report/Report_pyonga.Designer.vb generated Normal file
View File

@@ -0,0 +1,173 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Report_pyonga
Inherits CForm
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim ReportDataSource1 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource()
Dim ReportDataSource2 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource()
Dim ReportDataSource3 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource()
Dim ReportDataSource4 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource()
Dim ReportDataSource5 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource()
Dim ReportDataSource6 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Report_pyonga))
Me.bs_desc = New System.Windows.Forms.BindingSource(Me.components)
Me.DS = New Eco2Ar.DS()
Me.bs_graph_requse = New System.Windows.Forms.BindingSource(Me.components)
Me.DSR = New Eco2Ar.DSR()
Me.PyongaREQBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.PyongaUSEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.Pyonga1USEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.PyongaYKBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel()
Me.ReportViewer1 = New Microsoft.Reporting.WinForms.ReportViewer()
CType(Me.bs_desc, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bs_graph_requse, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DSR, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PyongaREQBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PyongaUSEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Pyonga1USEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PyongaYKBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.StatusStrip1.SuspendLayout()
Me.SuspendLayout()
'
'bs_desc
'
Me.bs_desc.DataMember = "tbl_Desc"
Me.bs_desc.DataSource = Me.DS
'
'DS
'
Me.DS.DataSetName = "DS"
Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'bs_graph_requse
'
Me.bs_graph_requse.DataMember = "Graph_ReqUse"
Me.bs_graph_requse.DataSource = Me.DSR
'
'DSR
'
Me.DSR.DataSetName = "DSR"
Me.DSR.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'PyongaREQBindingSource
'
Me.PyongaREQBindingSource.DataMember = "Pyonga_REQ"
Me.PyongaREQBindingSource.DataSource = Me.DSR
'
'PyongaUSEBindingSource
'
Me.PyongaUSEBindingSource.DataMember = "Pyonga_USE"
Me.PyongaUSEBindingSource.DataSource = Me.DSR
'
'Pyonga1USEBindingSource
'
Me.Pyonga1USEBindingSource.DataMember = "Pyonga_1USE"
Me.Pyonga1USEBindingSource.DataSource = Me.DSR
'
'PyongaYKBindingSource
'
Me.PyongaYKBindingSource.DataMember = "Pyonga_YK"
Me.PyongaYKBindingSource.DataSource = Me.DSR
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_msg})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 811)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(792, 22)
Me.StatusStrip1.TabIndex = 15
Me.StatusStrip1.Text = "StatusStrip1"
'
'lb_msg
'
Me.lb_msg.Name = "lb_msg"
Me.lb_msg.Size = New System.Drawing.Size(59, 17)
Me.lb_msg.Text = "<메세지>"
'
'ReportViewer1
'
Me.ReportViewer1.Dock = System.Windows.Forms.DockStyle.Fill
ReportDataSource1.Name = "DS_TBL_DESC"
ReportDataSource1.Value = Me.bs_desc
ReportDataSource2.Name = "DS_REQ_USE"
ReportDataSource2.Value = Me.bs_graph_requse
ReportDataSource3.Name = "ENERGY_REQ"
ReportDataSource3.Value = Me.PyongaREQBindingSource
ReportDataSource4.Name = "ENERGY_USE"
ReportDataSource4.Value = Me.PyongaUSEBindingSource
ReportDataSource5.Name = "ENERGY_1USE"
ReportDataSource5.Value = Me.Pyonga1USEBindingSource
ReportDataSource6.Name = "STRUCT_YK"
ReportDataSource6.Value = Me.PyongaYKBindingSource
Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource1)
Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource2)
Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource3)
Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource4)
Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource5)
Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource6)
Me.ReportViewer1.LocalReport.ReportEmbeddedResource = "Eco2Ar.평가서.rdlc"
Me.ReportViewer1.Location = New System.Drawing.Point(0, 0)
Me.ReportViewer1.Name = "ReportViewer1"
Me.ReportViewer1.Size = New System.Drawing.Size(792, 811)
Me.ReportViewer1.TabIndex = 16
'
'Report_pyonga
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(792, 833)
Me.Controls.Add(Me.ReportViewer1)
Me.Controls.Add(Me.StatusStrip1)
Me.Font = New System.Drawing.Font("돋움", 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 = "Report_pyonga"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "인증평가서"
CType(Me.bs_desc, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bs_graph_requse, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DSR, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PyongaREQBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PyongaUSEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Pyonga1USEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PyongaYKBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents ReportViewer1 As Microsoft.Reporting.WinForms.ReportViewer
Friend WithEvents DSR As Eco2Ar.DSR
Friend WithEvents bs_graph_requse As System.Windows.Forms.BindingSource
Friend WithEvents bs_desc As System.Windows.Forms.BindingSource
Friend WithEvents DS As Eco2Ar.DS
Friend WithEvents PyongaREQBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents PyongaUSEBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents Pyonga1USEBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents PyongaYKBindingSource As System.Windows.Forms.BindingSource
End Class

8301
ArinWarev1/Forms_Report/Report_pyonga.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

1595
ArinWarev1/Forms_Report/Report_pyonga.resx Normal file
View File

File diff suppressed because it is too large Load Diff

974
ArinWarev1/Forms_Report/Report_pyonga.vb Normal file
View File

@@ -0,0 +1,974 @@
Public Class Report_pyonga
#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 Frm_v20091231_Result_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.DSR.TReqUse.Merge(DSETR1.TReqUse)
Me.DS.tbl_Desc.Merge(DSET1.tbl_Desc)
MakeGraphTable()
항목별평가결과()
'//주거용건축물?
Dim 건축물데이터 As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0)
Dim 주거용 As Integer = CInt(건축물데이터.isjugo)
Dim param As New Microsoft.Reporting.WinForms.ReportParameter("PTitle", Me.DS.tbl_Desc.Rows(0)("buildname").ToString())
Dim param2 As New Microsoft.Reporting.WinForms.ReportParameter("PGrade", 평가결과등급(주거용, 일차에너지소요량합계))
Dim param3 As New Microsoft.Reporting.WinForms.ReportParameter("PNewUse", Me.신재생에너지)
Dim param4 As New Microsoft.Reporting.WinForms.ReportParameter("PP2CO2SUM", Me.단위면적당CO2배출량합계)
Dim param5 As New Microsoft.Reporting.WinForms.ReportParameter("PCompany", DSET1.tbl_Desc.Rows(0)("인증기관").ToString())
Dim param11 As Microsoft.Reporting.WinForms.ReportParameter
Dim param12 As Microsoft.Reporting.WinForms.ReportParameter
Dim param13 As Microsoft.Reporting.WinForms.ReportParameter
Dim param14 As Microsoft.Reporting.WinForms.ReportParameter
Dim param15 As Microsoft.Reporting.WinForms.ReportParameter
Dim param16 As Microsoft.Reporting.WinForms.ReportParameter
Dim param17 As Microsoft.Reporting.WinForms.ReportParameter
Dim param18 As Microsoft.Reporting.WinForms.ReportParameter
Dim param19 As Microsoft.Reporting.WinForms.ReportParameter
Dim param20 As Microsoft.Reporting.WinForms.ReportParameter
'//평가범위(주거용/비
If 주거용 <= 10 Then
param11 = New Microsoft.Reporting.WinForms.ReportParameter("PG1", "60미만")
param12 = New Microsoft.Reporting.WinForms.ReportParameter("PG2", "60이상 90미만")
param13 = New Microsoft.Reporting.WinForms.ReportParameter("PG3", "90이상 120미만")
param14 = New Microsoft.Reporting.WinForms.ReportParameter("PG4", "120이상 150미만")
param15 = New Microsoft.Reporting.WinForms.ReportParameter("PG5", "150이상 190미만")
param16 = New Microsoft.Reporting.WinForms.ReportParameter("PG6", "190이상 230미만")
param17 = New Microsoft.Reporting.WinForms.ReportParameter("PG7", "230이상 270미만")
param18 = New Microsoft.Reporting.WinForms.ReportParameter("PG8", "270이상 320미만")
param19 = New Microsoft.Reporting.WinForms.ReportParameter("PG9", "320이상 370미만")
param20 = New Microsoft.Reporting.WinForms.ReportParameter("PG10", "370이상 420미만")
Else
param11 = New Microsoft.Reporting.WinForms.ReportParameter("PG1", "80미만")
param12 = New Microsoft.Reporting.WinForms.ReportParameter("PG2", "80이상 140미만")
param13 = New Microsoft.Reporting.WinForms.ReportParameter("PG3", "140이상 200미만")
param14 = New Microsoft.Reporting.WinForms.ReportParameter("PG4", "200이상 260미만")
param15 = New Microsoft.Reporting.WinForms.ReportParameter("PG5", "260이상 320미만")
param16 = New Microsoft.Reporting.WinForms.ReportParameter("PG6", "320이상 380미만")
param17 = New Microsoft.Reporting.WinForms.ReportParameter("PG7", "380이상 450미만")
param18 = New Microsoft.Reporting.WinForms.ReportParameter("PG8", "450이상 520미만")
param19 = New Microsoft.Reporting.WinForms.ReportParameter("PG9", "520이상 610미만")
param20 = New Microsoft.Reporting.WinForms.ReportParameter("PG10", "610이상 700미만")
End If
Dim params As New Microsoft.Reporting.WinForms.ReportParameterCollection()
params.Add(param)
params.Add(param2)
params.Add(param3)
params.Add(param4)
params.Add(param5)
params.Add(param11)
params.Add(param12)
params.Add(param13)
params.Add(param14)
params.Add(param15)
params.Add(param16)
params.Add(param17)
params.Add(param18)
params.Add(param19)
params.Add(param20)
Me.ReportViewer1.LocalReport.SetParameters(params)
Me.ReportViewer1.ZoomMode = Microsoft.Reporting.WinForms.ZoomMode.Percent
Me.ReportViewer1.ZoomPercent = 100
Me.ReportViewer1.RefreshReport()
End Sub
'//항목별평가결과
Private Sub 항목별평가결과()
Dim NDr As DSR.Pyonga_YKRow = DSR.Pyonga_YK.NewPyonga_YKRow
'//기준(*)데이터가없는경우에는 1번째데이터를 쓰도록한다.
Dim 외벽벽체찾음 As Boolean = False
Dim 외벽지붕찾음 As Boolean = False
Dim 외벽바닥찾음 As Boolean = False
For Each dr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code <> '0'")
Dim gcode As String = dr.면형태.ToString()
Dim gname As String = Get_CName("1088", gcode)
If gname = "외벽(벽체)" Then
If dr.설명.Substring(0, 1) = "*" Then '//기준데이터가져오기
NDr.벽체값 = dr.열관류율
Dim 최대저항값 As Decimal = 0
'//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다
For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'")
If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다.
외벽벽체찾음 = True
NDr.벽체종류 = ddr.설명 + Space(1) + ddr.두께 + "mm"
최대저항값 = CDec(ddr.열저항)
End If
Next
End If
ElseIf gname = "외벽(지붕)" Then
If dr.설명.Substring(0, 1) = "*" Then '//기준데이터가져오기
NDr.지붕값 = dr.열관류율
Dim 최대저항값 As Decimal = 0
'//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다
For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'")
If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다.
외벽지붕찾음 = True
NDr.지붕종류 = ddr.설명 + Space(1) + ddr.두께 + "mm"
최대저항값 = CDec(ddr.열저항)
End If
Next
End If
ElseIf gname = "외벽(바닥)" Then
If dr.설명.Substring(0, 1) = "*" Then '//기준데이터가져오기
NDr.바닥값 = dr.열관류율
Dim 최대저항값 As Decimal = 0
'//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다
For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'")
If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다.
외벽바닥찾음 = True
NDr.바닥종류 = ddr.설명 + Space(1) + ddr.두께 + "mm"
최대저항값 = CDec(ddr.열저항)
End If
Next
End If
End If
Next
If Not 외벽벽체찾음 Then
For Each dr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code <> '0'")
Dim gcode As String = dr.면형태.ToString()
Dim gname As String = Get_CName("1088", gcode)
If gname = "외벽(벽체)" Then
NDr.벽체값 = dr.열관류율
Dim 최대저항값 As Decimal = 0
'//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다
For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'")
If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다.
외벽벽체찾음 = True
NDr.벽체종류 = ddr.설명 + Space(1) + ddr.두께 + "mm"
최대저항값 = CDec(ddr.열저항)
End If
Next
If 외벽벽체찾음 Then Exit For
End If
Next
If Not 외벽벽체찾음 Then
NDr.벽체종류 = ""
NDr.벽체값 = 0
End If
End If
If Not 외벽지붕찾음 Then
For Each dr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code <> '0'")
Dim gcode As String = dr.면형태.ToString()
Dim gname As String = Get_CName("1088", gcode)
If gname = "외벽(지붕)" Then
NDr.지붕값 = dr.열관류율
Dim 최대저항값 As Decimal = 0
'//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다
For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'")
If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다.
외벽지붕찾음 = True
NDr.지붕종류 = ddr.설명 + Space(1) + ddr.두께 + "mm"
최대저항값 = CDec(ddr.열저항)
End If
Next
If 외벽지붕찾음 Then Exit For
End If
Next
If Not 외벽지붕찾음 Then
NDr.지붕종류 = ""
NDr.지붕값 = 0
End If
End If
If Not 외벽바닥찾음 Then
For Each dr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code <> '0'")
Dim gcode As String = dr.면형태.ToString()
Dim gname As String = Get_CName("1088", gcode)
If gname = "외벽(바닥)" Then
NDr.바닥값 = dr.열관류율
Dim 최대저항값 As Decimal = 0
'//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다
For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'")
If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다.
외벽바닥찾음 = True
NDr.바닥종류 = ddr.설명 + Space(1) + ddr.두께 + "mm"
최대저항값 = CDec(ddr.열저항)
End If
Next
If 외벽바닥찾음 Then Exit For
End If
Next
If Not 외벽바닥찾음 Then
NDr.바닥종류 = ""
NDr.바닥값 = 0
End If
End If
'//지열설비정보확인
Dim Sum_지열히트펌프용량_난방 As Single = 0
Dim Sum_지열히트펌프용량_냉방 As Single = 0
Dim Max_난방 As Single = 0
Dim Max_냉방 As Single = 0
Dim JDROW() As DS.tbl_newRow = DSET1.tbl_new.Select("code <> '0' and 기기종류='지열'", "설명")
If JDROW.GetUpperBound(0) = -1 Then '//지열데이터가없는경우엔 빈값처리
NDr.지열히트펌프용량냉방 = ""
NDr.지열히트펌프용량 = ""
NDr.지열비고 = ""
NDr.지열난방COP = ""
NDr.지열냉방COP = ""
Else '//데이터가있다면 1번째 데이터를 이용한다.
Dim Max_Row_난방 As DS.tbl_newRow = Nothing
Dim MAx_Row_냉방 As DS.tbl_newRow = Nothing
NDr.지열비고 = JDROW(0).지열비고
For Each jdrowrow As DS.tbl_newRow In JDROW
Dim 난방연결수 As Integer = (DSET1.tbl_nanbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & jdrowrow.code.ToString & "'").GetUpperBound(0) + 1)
Dim 냉방연결수 As Integer = (DSET1.tbl_nangbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & jdrowrow.code.ToString & "'").GetUpperBound(0) + 1)
Dim 난방값 As String = jdrowrow.열성능비난방
Dim 냉방값 As String = jdrowrow.열성능비냉방
If 난방연결수 > 0 AndAlso 난방값 <> "" AndAlso IsNumeric(난방값) AndAlso 난방값 <> "0" Then
Sum_지열히트펌프용량_난방 += jdrowrow.지열히트펌프용량
If TOSG(jdrowrow.지열히트펌프용량) > Max_난방 Then
Max_난방 = TOSG(jdrowrow.지열히트펌프용량)
Max_Row_난방 = jdrowrow
End If
End If
If 냉방연결수 > 0 AndAlso 냉방값 <> "" AndAlso IsNumeric(냉방값) AndAlso 냉방값 <> "0" Then
Sum_지열히트펌프용량_냉방 += jdrowrow.지열히트펌프용량
If TOSG(jdrowrow.지열히트펌프용량) > Max_냉방 Then
Max_냉방 = TOSG(jdrowrow.지열히트펌프용량)
MAx_Row_냉방 = jdrowrow
End If
End If
Next
NDr.지열히트펌프용량냉방 = Sum_지열히트펌프용량_냉방.ToString() + "(" + Max_냉방.ToString() + ")"
If Sum_지열히트펌프용량_난방 > 0 Then
NDr.지열히트펌프용량 = "난방: " + Sum_지열히트펌프용량_난방.ToString() + "(" + Max_난방.ToString() + ")"
Else
NDr.지열히트펌프용량 = ""
End If
If Sum_지열히트펌프용량_냉방 > 0 Then
NDr.지열히트펌프용량 += " / 냉방: " + NDr.지열히트펌프용량냉방
End If
If Max_난방 <> 0 Then
NDr.지열난방COP = Max_Row_난방.열성능비난방
Else
NDr.지열난방COP = ""
End If
If Max_냉방 <> 0 Then
NDr.지열냉방COP = MAx_Row_냉방.열성능비냉방
Else
NDr.지열냉방COP = ""
End If
End If
'//######################
'//13-12-08
'//######################
'//태양열시스템
Dim JDROW2() As DS.tbl_newRow = DSET1.tbl_new.Select("code <> '0' and 기기종류='태양열'", "설명")
Dim Max_태양열면적 As Single = -999
Dim Max_집열기유형 As String = ""
Dim Max_집열판방위 As String = ""
Dim Sum_태양열면적 As Single = 0
For Each rowsun As DS.tbl_newRow In JDROW2
Dim 난방연결수 As Integer = (DSET1.tbl_nanbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & rowsun.code.ToString & "'").GetUpperBound(0) + 1)
Dim 냉방연결수 As Integer = (DSET1.tbl_nangbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & rowsun.code.ToString & "'").GetUpperBound(0) + 1)
If 난방연결수 > 0 OrElse 냉방연결수 > 0 Then
Dim 태양면적 As String = rowsun.집열판면적
If 태양면적 <> "" AndAlso IsNumeric(태양면적) AndAlso 태양면적 <> "0" Then
Sum_태양열면적 += TOSG(태양면적)
If TOSG(태양면적) > Max_태양열면적 Then
Max_태양열면적 = TOSG(태양면적)
Max_집열기유형 = rowsun.집열기유형
Max_집열판방위 = rowsun.집열판방위
End If
End If
End If
Next
If Sum_태양열면적 > 0 Then
NDr.태양열집열판면적 = Sum_태양열면적.ToString() + "(" + Max_태양열면적.ToString + ")"
NDr.태양열집열기유형 = Max_집열기유형
NDr.태양열집열판방위 = Max_집열판방위
Else
NDr.태양열집열판면적 = ""
NDr.태양열집열기유형 = ""
NDr.태양열집열판방위 = ""
End If
'//태양광시스템
Dim JDROW3() As DS.tbl_newRow = DSET1.tbl_new.Select("code <> '0' and 기기종류='태양광'", "설명")
Dim Max_태양광면적 As Single = -999
Dim Max_태양광종류 As String = ""
Dim Max_태양광방위 As String = ""
Dim Max_태양광기울기 As String = ""
Dim Max_태양광적용타입 As String = ""
Dim Sum_태양광면적 As Single = 0
For Each rowsun As DS.tbl_newRow In JDROW3
Dim 태양면적 As String = rowsun.태양광모듈면적
If 태양면적 <> "" AndAlso IsNumeric(태양면적) AndAlso 태양면적 <> "0" Then
Sum_태양광면적 += TOSG(태양면적)
If TOSG(태양면적) > Max_태양광면적 Then
Max_태양광면적 = TOSG(태양면적)
Max_태양광종류 = rowsun.태양광모듈종류
Max_태양광방위 = rowsun.태양광모듈방위
Max_태양광기울기 = rowsun.태양광모듈기울기
Max_태양광적용타입 = rowsun.태양광모듈적용타입
End If
End If
Next
If Sum_태양광면적 > 0 Then
NDr.태양광모듈면적 = Sum_태양광면적.ToString() + "(" + Max_태양광면적.ToString + ")"
NDr.태양광모듈종류 = Max_태양광종류
NDr.태양광모듈방위 = Max_태양광방위
NDr.태양광모듈기울기 = Max_태양광기울기
NDr.태양광모듈적용타입 = Max_태양광적용타입
If NDr.태양광모듈방위 = "(없음)" Then
NDr.태양광모듈방위 = ""
End If
Else
NDr.태양광모듈면적 = ""
NDr.태양광모듈종류 = ""
NDr.태양광모듈방위 = ""
NDr.태양광모듈기울기 = ""
NDr.태양광모듈적용타입 = ""
End If
'//열병합시스템
Dim JDROW4() As DS.tbl_newRow = DSET1.tbl_new.Select("code <> '0' and 기기종류='열병합'", "설명")
Dim Max_열병합능력 As Single = -999
Dim Max_열병합생산효율 As String = ""
Dim Max_열병합발전효율 As String = ""
Dim Max_열병합가동연료 As String = ""
Dim Sum_열병합능력 As Single = 0
For Each rowsun As DS.tbl_newRow In JDROW4
Dim 난방연결수 As Integer = (DSET1.tbl_nanbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & rowsun.code.ToString & "'").GetUpperBound(0) + 1)
Dim 냉방연결수 As Integer = (DSET1.tbl_nangbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & rowsun.code.ToString & "'").GetUpperBound(0) + 1)
If 난방연결수 > 0 OrElse 냉방연결수 > 0 Then
Dim 값 As String = rowsun.열생산능력
If 값 <> "" AndAlso IsNumeric(값) AndAlso 값 <> "0" Then
Sum_열병합능력 += TOSG(값)
If TOSG(값) > Max_열병합능력 Then
Max_열병합능력 = TOSG(값)
Max_열병합생산효율 = rowsun.열생산효율.ToString
Max_열병합발전효율 = rowsun.발전효율.ToString
Max_열병합가동연료 = rowsun.가동연료
End If
End If
End If
Next
If Sum_열병합능력 > 0 Then
NDr.열병합열생산능력 = Sum_열병합능력.ToString() + "(" + Max_열병합능력.ToString + ")"
NDr.열병합열생산효율 = Max_열병합생산효율
NDr.열병합발전효율 = Max_열병합발전효율
NDr.열병합가동연료 = Max_열병합가동연료
Else
NDr.열병합열생산능력 = ""
NDr.열병합열생산효율 = ""
NDr.열병합발전효율 = ""
NDr.열병합가동연료 = ""
End If
'//창호종류 및 창호값확인
Dim 창호종류찾음 As Boolean = False
For Each cdr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code <> '0'")
Dim 면코드 As String = cdr.면형태
If 면코드 = "" Then Continue For
Dim 면이름 As String = Get_CName("1088", 면코드)
If 면이름 = "" Then Continue For
If 면이름.IndexOf("외부창") <> -1 Then '//이름에 외부창이잇는것을 찾음
NDr.창호종류 = cdr.창호세부설명
NDr.창호값 = cdr.열관류율
Exit For
End If
Next
'//조명설비값(모든존 ; sum(면적*조명에너지부하율) / sum(면적)
Dim 존면적합 As Decimal = 0
Dim 존면적부하율 As Decimal = 0
For Each drz As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0'")
If drz.조명부하산출방법 = "계산치" Then
존면적합 += TOSG(drz.면적)
존면적부하율 += TOSG(drz.면적) * TOSG(drz.조명에너지부하율계산치)
ElseIf drz.조명부하산출방법 = "입력치" Then
존면적합 += TOSG(drz.면적)
존면적부하율 += TOSG(drz.면적) * TOSG(drz.조명에너지부하율입력치)
End If
Next
If 존면적합 <> 0 Then
NDr.주거실조명전력 = Math.Round(존면적부하율 / 존면적합, 2)
End If
'//주조명광원값()
NDr.주조명광원 = DSET1.tbl_Desc.Rows(0)("주조명").ToString
'///#################################################################################
'///#################################################################################
'//설비방식및사용연료
'//난방(입력존에서 가장많이 사용한놈)
Dim fndr As DS.tbl_nanbangkikiRow = Nothing
Dim fndrcnt As Integer = 0
Dim sum_보일러 As Single = 0
Dim sum_히트펌프 As Single = 0
Dim sum_지역난방 As Single = 0
Dim sum_전기보일러 As Single = 0
For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0'")
Dim cnt As Integer = 0
Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산난방생산기기='" & dr.code & "' or 공조난방생산기기='" & dr.code & "'")
'//131207
If zDR.Length > 0 Then
Select Case dr.열생산기기방식
Case "보일러"
sum_보일러 += TOSG(dr.보일러정격출력)
Case "히트펌프"
sum_히트펌프 += TOSG(dr.히트난방용량)
Case "지역난방"
sum_지역난방 += TOSG(dr.열교환기정격출력)
Case "전기보일러"
sum_전기보일러 += TOSG(dr.보일러정격출력)
End Select
End If
Next
'//합이 가장 큰 그룹을 검색
Dim maxvalue As Single = 0
' Dim maxindex As Integer = 0
maxvalue = Math.Max(sum_보일러, sum_히트펌프)
maxvalue = Math.Max(maxvalue, sum_지역난방)
maxvalue = Math.Max(maxvalue, sum_전기보일러)
Dim searchfilter As String = ""
If maxvalue = 0 Then
searchfilter = ""
' maxindex = 0 '//없음
ElseIf maxvalue = sum_보일러 Then
' maxindex = 1
searchfilter = "열생산기기방식='보일러'"
ElseIf maxvalue = sum_히트펌프 Then
'maxindex = 2
searchfilter = "열생산기기방식='히트펌프'"
ElseIf maxvalue = sum_지역난방 Then
' maxindex = 3
searchfilter = "열생산기기방식='지역난방'"
ElseIf maxvalue = sum_전기보일러 Then
' maxindex = 4
searchfilter = "열생산기기방식='전기보일러'"
End If
'//가장큰 그룹내의 개별 대표값 찾기
If searchfilter <> "" Then
For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0' and " + searchfilter)
Dim cnt As Integer = 0
Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산난방생산기기='" & dr.code & "' or 공조난방생산기기='" & dr.code & "'")
'///
For Each drow As DS.tbl_zoneRow In zDR
Dim 입력존수문자 As Integer = drow.입력존의수
If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1"
cnt += CInt(입력존수문자)
Next
If cnt > fndrcnt Then '//최대값찾기
fndr = dr
fndrcnt = cnt
End If
If Not fndr Is Nothing Then
NDr.온열원설비방식 = fndr.열생산기기방식
Select Case fndr.열생산기기방식
Case "보일러"
NDr.온열원설비연료 = fndr.사용연료
If fndr.운전방식 = "동시가동" OrElse fndr.운전방식 = "순차가동" Then
NDr.온열원용량 = maxvalue * CInt(fndr.보일러대수) '+ "(" + fndr.보일러정격출력 + ")"
Else
NDr.온열원용량 = maxvalue.ToString() '+ "(" + fndr.보일러정격출력 + ")"
End If
NDr.온열원효율 = fndr.정격보일러효율 + "%"
Case "히트펌프"
NDr.온열원설비연료 = fndr.히트연료
If fndr.운전방식 = "동시가동" OrElse fndr.운전방식 = "순차가동" Then
NDr.온열원용량 = maxvalue * CInt(fndr.보일러대수) '+ "(" + fndr.보일러정격출력 + ")"
Else
NDr.온열원용량 = maxvalue.ToString() '+ "(" + fndr.보일러정격출력 + ")"
End If
NDr.온열원효율 = fndr.히트난방정격7
Case "지역난방"
NDr.온열원설비연료 = "지역난방" 'fndr.사용연료
If fndr.운전방식 = "동시가동" OrElse fndr.운전방식 = "순차가동" Then
NDr.온열원용량 = maxvalue * CInt(fndr.보일러대수) '+ "(" + fndr.보일러정격출력 + ")"
Else
NDr.온열원용량 = maxvalue.ToString() '+ "(" + fndr.보일러정격출력 + ")"
End If
NDr.온열원효율 = fndr.정격보일러효율 + "%"
Case "전기보일러"
NDr.온열원설비연료 = "전기" ' fndr.사용연료
If fndr.운전방식 = "동시가동" OrElse fndr.운전방식 = "순차가동" Then
NDr.온열원용량 = maxvalue * CInt(fndr.보일러대수) '+ "(" + fndr.보일러정격출력 + ")"
Else
NDr.온열원용량 = maxvalue.ToString() '+ "(" + fndr.보일러정격출력 + ")"
End If
NDr.온열원효율 = fndr.정격보일러효율 + "%"
End Select
End If
Next
Else
NDr.온열원설비연료 = ""
NDr.온열원용량 = ""
NDr.온열원효율 = ""
End If
'///#################################################################################
'///#################################################################################
'//급탕(입력존에서 가장많이 사용한놈)
fndr = Nothing
fndrcnt = 0
sum_보일러 = 0
sum_히트펌프 = 0
sum_지역난방 = 0
sum_전기보일러 = 0
For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0'")
Dim cnt As Integer = 0
Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산급탕생산기기='" & dr.code & "'")
'//131207
If zDR.Length > 0 Then
Select Case dr.열생산기기방식
Case "보일러"
sum_보일러 += TOSG(dr.보일러정격출력)
Case "히트펌프"
sum_히트펌프 += TOSG(dr.히트난방용량)
Case "지역난방"
sum_지역난방 += TOSG(dr.열교환기정격출력)
Case "전기보일러"
sum_전기보일러 += TOSG(dr.보일러정격출력)
End Select
End If
Next
'//합이 가장 큰 그룹을 검색
maxvalue = 0
maxvalue = Math.Max(sum_보일러, sum_히트펌프)
maxvalue = Math.Max(maxvalue, sum_지역난방)
maxvalue = Math.Max(maxvalue, sum_전기보일러)
searchfilter = ""
If maxvalue = 0 Then
searchfilter = ""
ElseIf maxvalue = sum_보일러 Then
searchfilter = "열생산기기방식='보일러'"
ElseIf maxvalue = sum_히트펌프 Then
searchfilter = "열생산기기방식='히트펌프'"
ElseIf maxvalue = sum_지역난방 Then
searchfilter = "열생산기기방식='지역난방'"
ElseIf maxvalue = sum_전기보일러 Then
searchfilter = "열생산기기방식='전기보일러'"
End If
'//가장큰 그룹내의 개별 대표값 찾기
NDr.급탕설비방식 = ""
NDr.급탕설비연료 = ""
NDr.급탕용량 = ""
NDr.급탕효율 = ""
If searchfilter <> "" Then
For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0' and " + searchfilter)
Dim cnt As Integer = 0
Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산급탕생산기기='" & dr.code + "'")
For Each drow As DS.tbl_zoneRow In zDR
Dim 입력존수문자 As Integer = drow.입력존의수
If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1"
cnt += CInt(입력존수문자)
Next
If cnt > fndrcnt Then '//최대값찾기
fndr = dr
fndrcnt = cnt
End If
If Not fndr Is Nothing Then
NDr.급탕설비방식 = fndr.열생산기기방식
Select Case fndr.열생산기기방식
Case "보일러"
NDr.급탕설비연료 = fndr.사용연료
NDr.급탕용량 = maxvalue.ToString() + "(" + fndr.보일러정격출력 + ")"
NDr.급탕효율 = fndr.정격보일러효율 + "%"
Case "히트펌프"
NDr.급탕설비연료 = fndr.히트연료
NDr.급탕용량 = maxvalue.ToString() + "(" + fndr.히트난방용량 + ")"
NDr.급탕효율 = fndr.히트난방정격7
Case "지역난방"
NDr.급탕설비연료 = "지역난방" ' fndr.사용연료
NDr.급탕용량 = maxvalue.ToString() + "(" + fndr.열교환기정격출력 + ")"
NDr.급탕효율 = fndr.정격보일러효율 + "%"
Case "전기보일러"
NDr.급탕설비연료 = "전기" ' fndr.사용연료
NDr.급탕용량 = maxvalue.ToString() + "(" + fndr.보일러정격출력 + ")"
NDr.급탕효율 = fndr.정격보일러효율 + "%"
End Select
End If
Next
End If
'///#################################################################################
'///#################################################################################
'//냉방(입력존에서 가장많이 사용한놈)
Dim fndr2 As DS.tbl_nangbangkikiRow = Nothing
Dim fndr2cnt As Integer = 0
Dim sum_압축식 As Single = 0
Dim sum_압축식_LNG As Single = 0
Dim sum_지역냉방 As Single = 0
Dim sum_흡수식 As Single = 0
For Each dr As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code <> '0'")
Dim cnt2 As Integer = 0
Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("열생산냉방생산기기='" & dr.code & "' or 공조냉방생산기기='" & dr.code & "'")
'//131207
If zDR.Length > 0 Then
Select Case dr.냉동기방식
Case "압축식"
sum_압축식 += TOSG(dr.냉동기용량)
Case "압축식(LNG)"
sum_압축식_LNG += TOSG(dr.냉동기용량)
Case "지역냉방"
sum_지역냉방 += TOSG(dr.냉동기용량)
Case "흡수식"
sum_흡수식 += TOSG(dr.냉동기용량)
End Select
End If
Next
'//합이 가장 큰 그룹을 검색
maxvalue = 0
maxvalue = Math.Max(sum_압축식, sum_압축식_LNG)
maxvalue = Math.Max(maxvalue, sum_지역냉방)
maxvalue = Math.Max(maxvalue, sum_흡수식)
searchfilter = ""
If maxvalue = 0 Then
searchfilter = ""
ElseIf maxvalue = sum_압축식 Then
searchfilter = "냉동기방식='압축식'"
ElseIf maxvalue = sum_압축식_LNG Then
searchfilter = "냉동기방식='압축식(LNG)'"
ElseIf maxvalue = sum_지역냉방 Then
searchfilter = "냉동기방식='지역냉방'"
ElseIf maxvalue = sum_흡수식 Then
searchfilter = "냉동기방식='흡수식'"
End If
'//가장큰 그룹내의 개별 대표값 찾기
If searchfilter <> "" Then
For Each dr As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code <> '0' and " + searchfilter)
Dim cnt2 As Integer = 0
Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("열생산냉방생산기기='" & dr.code & "' or 공조냉방생산기기='" & dr.code & "'")
For Each drow As DS.tbl_zoneRow In zDR
Dim 입력존수문자 As Integer = drow.입력존의수
If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1"
cnt2 += CInt(입력존수문자)
Next
If cnt2 > fndr2cnt Then '//최대값찾기
fndr2 = dr
fndr2cnt = cnt2
End If
If Not fndr2 Is Nothing Then
NDr.냉열원설비방식 = fndr2.냉동기방식
NDr.냉열원용량 = maxvalue.ToString() + "(" + fndr2.냉동기용량 + ")"
NDr.냉열원효율 = fndr2.열성능비
Select Case fndr2.냉동기방식
Case "압축식"
NDr.냉열원설비연료 = "전기"
Case "압축식(LNG)"
NDr.냉열원설비연료 = "천연가스"
Case "지역냉방"
NDr.냉열원설비연료 = "지역냉방"
Case "흡수식"
If fndr2.열생산연결방식 = "직화식" Then
NDr.냉열원설비연료 = fndr2.사용연료
ElseIf fndr2.열생산연결방식 = "외부연결" Then
Dim 온수열생산기기코드 As String = fndr2.온수열생산기기
If 온수열생산기기코드 <> "" Then
Dim 난방기기() As DS.tbl_nanbangkikiRow = DSET1.tbl_nanbangkiki.Select("code='" + 온수열생산기기코드 + "'")
If 난방기기.GetUpperBound(0) = 0 Then
NDr.냉열원설비연료 = fndr2.사용연료
End If
End If
End If
End Select
End If
Next
Else
NDr.냉열원설비방식 = ""
NDr.냉열원용량 = ""
NDr.냉열원효율 = ""
End If
DSR.Pyonga_YK.Rows.Add(NDr)
DSR.Pyonga_YK.AcceptChanges()
End Sub
Private 일차에너지소요량합계 As Decimal = 0
Private Sub MakeGraphTable()
If DSR.TReqUse.Rows.Count < 1 Then Return '//요구&사용량이 계산된경우에만 사용한다.
'//1차에너지소요량값 구분별로기록한다.
Dim DrE1 As DSR.Pyonga_1USERow
DrE1 = Me.DSR.Pyonga_1USE.NewPyonga_1USERow
DrE1.종류 = "난방" : DrE1.값 = Result1.일차E소요량(0).난방면적
DSR.Pyonga_1USE.AddPyonga_1USERow(DrE1)
DrE1 = Me.DSR.Pyonga_1USE.NewPyonga_1USERow
DrE1.종류 = "냉방" : DrE1.값 = Result1.일차E소요량(0).냉방면적
DSR.Pyonga_1USE.AddPyonga_1USERow(DrE1)
DrE1 = Me.DSR.Pyonga_1USE.NewPyonga_1USERow
DrE1.종류 = "급탕" : DrE1.값 = Result1.일차E소요량(0).급탕면적
DSR.Pyonga_1USE.AddPyonga_1USERow(DrE1)
DrE1 = Me.DSR.Pyonga_1USE.NewPyonga_1USERow
DrE1.종류 = "조명" : DrE1.값 = Result1.일차E소요량(0).조명면적
DSR.Pyonga_1USE.AddPyonga_1USERow(DrE1)
DrE1 = Me.DSR.Pyonga_1USE.NewPyonga_1USERow
DrE1.종류 = "환기" : DrE1.값 = Result1.일차E소요량(0).환기면적
DSR.Pyonga_1USE.AddPyonga_1USERow(DrE1)
'//등급용-131021
Dim 난방에너지, 냉방에너지, 급탕에너지, 조명에너지, 환기에너지 As Single
If (Result1.사용면적.H_WF = 0) Then
난방에너지 = 0
Else
난방에너지 = Result1.일차E소요량(0).난방면적2 * Result1.사용면적.H / Result1.사용면적.H_WF
End If
If (Result1.사용면적.C_WF = 0) Then
냉방에너지 = 0
Else
냉방에너지 = TOSG(Result1.일차E소요량(0).냉방면적 * Result1.사용면적.C / Result1.사용면적.C_WF)
End If
If (Result1.사용면적.W_WF = 0) Then
급탕에너지 = 0
Else
급탕에너지 = Result1.일차E소요량(0).급탕면적2 * Result1.사용면적.W / Result1.사용면적.W_WF
End If
If (Result1.사용면적.L_WF = 0) Then
조명에너지 = 0
Else
조명에너지 = Result1.일차E소요량(0).조명면적 * Result1.사용면적.L / Result1.사용면적.L_WF
End If
If (Result1.사용면적.V_WF = 0) Then
환기에너지 = 0
Else
환기에너지 = Result1.일차E소요량(0).환기면적 * Result1.사용면적.V / Result1.사용면적.V_WF
End If
일차에너지소요량합계 = 냉방에너지 + 난방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
'일차에너지소요량합계 = Result1.일차E소요량(0).난방면적 + Result1.일차E소요량(0).냉방면적 _
' + Result1.일차E소요량(0).급탕면적 + Result1.일차E소요량(0).조명면적 _
' + Result1.일차E소요량(0).환기면적
'//연간에너지소요량값 구분별로기록한다.
Dim DrU1 As DSR.Pyonga_USERow
DrU1 = Me.DSR.Pyonga_USE.NewPyonga_USERow
DrU1.종류 = "난방" : DrU1.값 = Result1.E소요량(0).난방면적
DSR.Pyonga_USE.AddPyonga_USERow(DrU1)
DrU1 = Me.DSR.Pyonga_USE.NewPyonga_USERow
DrU1.종류 = "냉방" : DrU1.값 = Result1.E소요량(0).냉방면적
DSR.Pyonga_USE.AddPyonga_USERow(DrU1)
DrU1 = Me.DSR.Pyonga_USE.NewPyonga_USERow
DrU1.종류 = "급탕" : DrU1.값 = Result1.E소요량(0).급탕면적
DSR.Pyonga_USE.AddPyonga_USERow(DrU1)
DrU1 = Me.DSR.Pyonga_USE.NewPyonga_USERow
DrU1.종류 = "조명" : DrU1.값 = Result1.E소요량(0).조명면적
DSR.Pyonga_USE.AddPyonga_USERow(DrU1)
DrU1 = Me.DSR.Pyonga_USE.NewPyonga_USERow
DrU1.종류 = "환기" : DrU1.값 = Result1.E소요량(0).환기면적
DSR.Pyonga_USE.AddPyonga_USERow(DrU1)
DrU1 = Me.DSR.Pyonga_USE.NewPyonga_USERow
DrU1.종류 = "신재생" : DrU1.값 = Me.신재생에너지
DSR.Pyonga_USE.AddPyonga_USERow(DrU1)
'//소요량 총합에는 신재생은 제거한다.
'//연간에너지요구량값 구분별로기록한다.
Dim DrR1 As DSR.Pyonga_REQRow
DrR1 = Me.DSR.Pyonga_REQ.NewPyonga_REQRow
DrR1.종류 = "난방" : DrR1.값 = Result1.E요구량(0).난방면적
DSR.Pyonga_REQ.AddPyonga_REQRow(DrR1)
DrR1 = Me.DSR.Pyonga_REQ.NewPyonga_REQRow
DrR1.종류 = "냉방" : DrR1.값 = Result1.E요구량(0).냉방면적
DSR.Pyonga_REQ.AddPyonga_REQRow(DrR1)
DrR1 = Me.DSR.Pyonga_REQ.NewPyonga_REQRow
DrR1.종류 = "급탕" : DrR1.값 = Result1.E요구량(0).급탕면적
DSR.Pyonga_REQ.AddPyonga_REQRow(DrR1)
DrR1 = Me.DSR.Pyonga_REQ.NewPyonga_REQRow
DrR1.종류 = "조명" : DrR1.값 = Result1.E요구량(0).조명면적
DSR.Pyonga_REQ.AddPyonga_REQRow(DrR1)
'//변경사항을저장
DSR.AcceptChanges()
End Sub
Function 단위면적당CO2배출량합계() As Decimal
Dim DR() As DSR.TReqUseRow = DSR.TReqUse.Select("GRP='400' and DESC='단위면적당 CO2 배출량'")
If DR.GetUpperBound(0) = -1 Then Return 0
Return DR(0).M00
End Function
Function 신재생에너지() As Decimal
Dim Sum As Decimal = (Result1.생산E(0).태양광전력생산량 + Result1.생산E(0).신재생열병합전력생산량) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력)
Dim 난방 As Decimal = Sum * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
Dim 냉방 As Decimal = Sum * Result1.일차E소요량(0).냉방전력
Dim 조명 As Decimal = Sum * Result1.일차E소요량(0).조명전력
Dim 급탕 As Decimal = Sum * Result1.일차E소요량(0).급탕전력
Dim 환기 As Decimal = Sum * Result1.일차E소요량(0).환기전력
Dim 난방면적 As Decimal = 0
Dim 냉방면적 As Decimal = 0
Dim 조명면적 As Decimal = 0
Dim 급탕면적 As Decimal = 0
Dim 환기면적 As Decimal = 0
If Result1.사용면적.H <> 0 Then 난방면적 = TOSG(IIf(난방 = 0, 0, 난방 / Result1.사용면적.H))
If Result1.사용면적.C <> 0 Then 냉방면적 = TOSG(IIf(냉방 = 0, 0, 냉방 / Result1.사용면적.C))
If Result1.사용면적.L <> 0 Then 조명면적 = TOSG(IIf(조명 = 0, 0, 조명 / Result1.사용면적.L))
If Result1.사용면적.W <> 0 Then 급탕면적 = TOSG(IIf(급탕 = 0, 0, 급탕 / Result1.사용면적.W))
If Result1.사용면적.V <> 0 Then 환기면적 = TOSG(IIf(환기 = 0, 0, 환기 / Result1.사용면적.V))
Dim 면적 As Decimal = 난방면적 + 냉방면적 + 조명면적 + 급탕면적 + 환기면적
'=-SUM(계산결과!G108:G109)-계산결과!F42-계산결과!F48-계산결과!F51-계산결과!F56-계산결과!F59
'F42=IF($G$15=0,0,F38/$G$15)
'f38=(G104)/(SUM(H76:S76)+SUM(H85:S85)+SUM(H93:S93)+SUM(H97:S97)+SUM(H101:S101))*SUM(H76:S76)
'g15=난방면적
'f48=IF($G$20=0,0,F44/$G$20)
'f44=(G104)/(SUM(H76:S76)+SUM(H85:S85)+SUM(H93:S93)+SUM(H97:S97)+SUM(H101:S101))*SUM(H85:S85)
'g20=냉방면적
신재생에너지 = -1 * (Result1.생산E(0).면적당생산량태양열 + Result1.생산E(0).면적당생산량지열 + Result1.생산E(0).신재생면적당열생산량) - 면적
Return 신재생에너지
End Function
End Class

5880
ArinWarev1/Forms_Report/Report_total - 백업.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

8738
ArinWarev1/Forms_Report/Report_total.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

112
ArinWarev1/Forms_Report/Report_그래프.Designer.vb generated Normal file
View File

@@ -0,0 +1,112 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Report_그래프
Inherits CForm
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim ReportDataSource1 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource()
Dim ReportDataSource2 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Report_그래프))
Me.bs_req = New System.Windows.Forms.BindingSource(Me.components)
Me.DSR = New Eco2Ar.DSR()
Me.bs_requse = New System.Windows.Forms.BindingSource(Me.components)
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel()
Me.ReportViewer1 = New Microsoft.Reporting.WinForms.ReportViewer()
CType(Me.bs_req, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DSR, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bs_requse, System.ComponentModel.ISupportInitialize).BeginInit()
Me.StatusStrip1.SuspendLayout()
Me.SuspendLayout()
'
'bs_req
'
Me.bs_req.DataMember = "Graph_Req"
Me.bs_req.DataSource = Me.DSR
'
'DSR
'
Me.DSR.DataSetName = "DSR"
Me.DSR.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'bs_requse
'
Me.bs_requse.DataMember = "Graph_ReqUse"
Me.bs_requse.DataSource = Me.DSR
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_msg})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 970)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(724, 22)
Me.StatusStrip1.TabIndex = 15
Me.StatusStrip1.Text = "StatusStrip1"
'
'lb_msg
'
Me.lb_msg.Name = "lb_msg"
Me.lb_msg.Size = New System.Drawing.Size(59, 17)
Me.lb_msg.Text = "<메세지>"
'
'ReportViewer1
'
Me.ReportViewer1.Dock = System.Windows.Forms.DockStyle.Fill
ReportDataSource1.Name = "DSR_Graph_Req"
ReportDataSource1.Value = Me.bs_req
ReportDataSource2.Name = "DSR_Graph_ReqUse"
ReportDataSource2.Value = Me.bs_requse
Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource1)
Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource2)
Me.ReportViewer1.LocalReport.ReportEmbeddedResource = "Eco2Ar.그래프.rdlc"
Me.ReportViewer1.Location = New System.Drawing.Point(0, 0)
Me.ReportViewer1.Name = "ReportViewer1"
Me.ReportViewer1.Size = New System.Drawing.Size(724, 970)
Me.ReportViewer1.TabIndex = 16
'
'Report_그래프
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(724, 992)
Me.Controls.Add(Me.ReportViewer1)
Me.Controls.Add(Me.StatusStrip1)
Me.Font = New System.Drawing.Font("돋움", 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 = "Report_그래프"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "결과그래프"
CType(Me.bs_req, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DSR, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bs_requse, System.ComponentModel.ISupportInitialize).EndInit()
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents ReportViewer1 As Microsoft.Reporting.WinForms.ReportViewer
Friend WithEvents bs_req As System.Windows.Forms.BindingSource
Friend WithEvents DSR As Eco2Ar.DSR
Friend WithEvents bs_requse As System.Windows.Forms.BindingSource
End Class

1577
ArinWarev1/Forms_Report/Report_그래프.resx Normal file
View File

File diff suppressed because it is too large Load Diff

504
ArinWarev1/Forms_Report/Report_그래프.vb Normal file
View File

@@ -0,0 +1,504 @@
Public Class Report_그래프
#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
Dim 단위면적당신재생1차에너지합 As Decimal = 0
Dim 단위면적당1차에너소비량합 As Decimal = 0
Dim 에너지자립률 As Double = 0
Private Sub Frm_v20091231_Result_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.DSR.TReqUse.Merge(DSETR1.TReqUse)
MakeGraphTable()
Dim 건물용도 As Integer = CInt(DSET1.tbl_Desc.Rows(0)("isjugo"))
Dim 주거형태 As String = ""
If 건물용도 < 10 Then
주거형태 = "주거"
Else
주거형태 = "비주거"
End If
Dim params As New Microsoft.Reporting.WinForms.ReportParameterCollection()
Dim param As New Microsoft.Reporting.WinForms.ReportParameter("ISJUGO", 주거형태)
params.Add(param)
Dim param1 As New Microsoft.Reporting.WinForms.ReportParameter("자립률", 에너지자립률.ToString("N2"))
params.Add(param1)
Dim param2 As New Microsoft.Reporting.WinForms.ReportParameter("생산량", 단위면적당신재생1차에너지합.ToString("N1"))
params.Add(param2)
Dim param3 As New Microsoft.Reporting.WinForms.ReportParameter("소비량", 단위면적당1차에너소비량합.ToString("N1"))
params.Add(param3)
Me.ReportViewer1.LocalReport.SetParameters(params)
Me.ReportViewer1.ZoomMode = Microsoft.Reporting.WinForms.ZoomMode.Percent
Me.ReportViewer1.PageCountMode = Microsoft.Reporting.WinForms.PageCountMode.Actual
Me.ReportViewer1.ZoomPercent = 100
Me.ReportViewer1.RefreshReport()
End Sub
Private Sub MakeGraphTable()
If DSR.TReqUse.Rows.Count < 1 Then Return
Dim Dr As DSR.Graph_ReqRow
For Gubun As Short = 0 To 1
For mon As Short = 1 To 12
If Gubun = 0 Then '//6번
Dr = Me.DSR.Graph_Req.NewGraph_ReqRow
Dr.Gubun = "난방에너지요구량"
Dr.Mon = Format(mon, "0") & "월"
Dr.Req = Math.Round(Result1.E요구량(mon).난방면적, 1)
Me.DSR.Graph_Req.Rows.Add(Dr)
Else '//11번
Dr = Me.DSR.Graph_Req.NewGraph_ReqRow
Dr.Gubun = "냉방에너지요구량"
Dr.Mon = Format(mon, "0") & "월"
Dr.Req = Math.Round(Result1.E요구량(mon).냉방면적, 1)
Me.DSR.Graph_Req.Rows.Add(Dr)
End If
Next
Next
'//연간에너지요구량및소요량
'//Graph_requse gubun,type,
'1차에너지소요량 에너지소요량 에너지요구량
'신재생에너지(-57)
'난방에너지 106 91.87445415 56.14013248
'냉방에너지 155.3678094 119.8832527 40.83005443
'급탕에너지 42.6421498 14.21404993 14.6
'조명에너지 144.2220948 48.07403159 73.08380082
'환기에너지 61.68818331 20.56272777
Dim 신재생에너지 As Decimal
Dim 난방에너지 As Decimal
Dim 냉방에너지 As Decimal
Dim 급탕에너지 As Decimal
Dim 조명에너지 As Decimal
Dim 환기에너지 As Decimal
'Dim 합계 As Decimal
Dim Dr2 As DSR.Graph_ReqUseRow
For Gubun As Short = 0 To 4
Select Case Gubun
Case 0 '//1차에너지소요량
Dim Sum As Decimal = (Result1.생산E(0).태양광전력생산량 + Result1.생산E(0).신재생열병합전력생산량) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력)
Dim 난방 As Decimal = Sum * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
Dim 냉방 As Decimal = Sum * Result1.일차E소요량(0).냉방전력
Dim 조명 As Decimal = Sum * Result1.일차E소요량(0).조명전력
Dim 급탕 As Decimal = Sum * Result1.일차E소요량(0).급탕전력
Dim 환기 As Decimal = Sum * Result1.일차E소요량(0).환기전력
Dim 난방면적 As Decimal = 0
Dim 냉방면적 As Decimal = 0
Dim 조명면적 As Decimal = 0
Dim 급탕면적 As Decimal = 0
Dim 환기면적 As Decimal = 0
If Result1.사용면적.H <> 0 Then
난방면적 = TOSG(IIf(난방 = 0, 0, 난방 / Result1.사용면적.H))
End If
If Result1.사용면적.C <> 0 Then
냉방면적 = TOSG(IIf(냉방 = 0, 0, 냉방 / Result1.사용면적.C))
End If
If Result1.사용면적.L <> 0 Then
조명면적 = TOSG(IIf(조명 = 0, 0, 조명 / Result1.사용면적.L))
End If
If Result1.사용면적.W <> 0 Then
급탕면적 = TOSG(IIf(급탕 = 0, 0, 급탕 / Result1.사용면적.W))
End If
If Result1.사용면적.V <> 0 Then
환기면적 = TOSG(IIf(환기 = 0, 0, 환기 / Result1.사용면적.V))
End If
Dim 전기 As Decimal = 난방면적 + 냉방면적 + 조명면적 + 급탕면적 + 환기면적
'//열병합신재생에너지추가 130831 arin
신재생에너지 = Math.Round(-1 * (Result1.생산E(0).면적당생산량태양열 + Result1.생산E(0).신재생면적당열생산량 + Result1.생산E(0).면적당생산량지열 + 전기 * 2.75), 1)
단위면적당신재생1차에너지합 = -1 * 신재생에너지
' 신재생에너지 = -1 * (합_열 + 합_전기 * 2.75) ' ' Result1.생산E(0).태양광전력생산량 * 2.75)
' Dim Sum As Decimal = (Result1.생산E(0).태양광전력생산량 * 2.75 + Result1.생산E(0).신재생열병합전력생산량 * 2.75) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "1차소요량"
Dr2.type = "신재생에너지"
Dr2.Req = 신재생에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
난방에너지 = Math.Round(Result1.일차E소요량(0).난방면적, 1)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "1차소요량"
Dr2.type = "난방에너지"
Dr2.Req = 난방에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
냉방에너지 = Math.Round(Result1.일차E소요량(0).냉방면적, 1)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "1차소요량"
Dr2.type = "냉방에너지"
Dr2.Req = 냉방에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
급탕에너지 = Math.Round(Result1.일차E소요량(0).급탕면적, 1)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "1차소요량"
Dr2.type = "급탕에너지"
Dr2.Req = 급탕에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
조명에너지 = Math.Round(Result1.일차E소요량(0).조명면적, 1)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "1차소요량"
Dr2.type = "조명에너지"
Dr2.Req = 조명에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
'계산결과!H92*3/계산결과!H27
환기에너지 = Math.Round(Result1.일차E소요량(0).환기면적, 1)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "1차소요량"
Dr2.type = "환기에너지"
Dr2.Req = 환기에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "1차소요량"
Dr2.type = "합계"
Dr2.Req = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
단위면적당1차에너소비량합 = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지 + Math.Round(단위면적당신재생1차에너지합, 1)
If 단위면적당1차에너소비량합 <> 0 Then
에너지자립률 = (Math.Round(단위면적당신재생1차에너지합, 1) / 단위면적당1차에너소비량합) * 100
Else
에너지자립률 = 0
End If
Case 1 '//에너지소요량
Dim Sum As Decimal = (Result1.생산E(0).태양광전력생산량 + Result1.생산E(0).신재생열병합전력생산량) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력)
Dim 난방 As Decimal = Sum * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
Dim 냉방 As Decimal = Sum * Result1.일차E소요량(0).냉방전력
Dim 조명 As Decimal = Sum * Result1.일차E소요량(0).조명전력
Dim 급탕 As Decimal = Sum * Result1.일차E소요량(0).급탕전력
Dim 환기 As Decimal = Sum * Result1.일차E소요량(0).환기전력
Dim 난방면적 As Decimal = 0
Dim 냉방면적 As Decimal = 0
Dim 조명면적 As Decimal = 0
Dim 급탕면적 As Decimal = 0
Dim 환기면적 As Decimal = 0
If Result1.사용면적.H <> 0 Then
난방면적 = TOSG(IIf(난방 = 0, 0, 난방 / Result1.사용면적.H))
End If
If Result1.사용면적.C <> 0 Then
냉방면적 = TOSG(IIf(냉방 = 0, 0, 냉방 / Result1.사용면적.C))
End If
If Result1.사용면적.L <> 0 Then
조명면적 = TOSG(IIf(조명 = 0, 0, 조명 / Result1.사용면적.L))
End If
If Result1.사용면적.W <> 0 Then
급탕면적 = TOSG(IIf(급탕 = 0, 0, 급탕 / Result1.사용면적.W))
End If
If Result1.사용면적.V <> 0 Then
환기면적 = TOSG(IIf(환기 = 0, 0, 환기 / Result1.사용면적.V))
End If
Dim 면적 As Decimal = 난방면적 + 냉방면적 + 조명면적 + 급탕면적 + 환기면적
'=-SUM(계산결과!G108:G109)-계산결과!F42-계산결과!F48-계산결과!F51-계산결과!F56-계산결과!F59
'F42=IF($G$15=0,0,F38/$G$15)
'f38=(G104)/(SUM(H76:S76)+SUM(H85:S85)+SUM(H93:S93)+SUM(H97:S97)+SUM(H101:S101))*SUM(H76:S76)
'g15=난방면적
'f48=IF($G$20=0,0,F44/$G$20)
'f44=(G104)/(SUM(H76:S76)+SUM(H85:S85)+SUM(H93:S93)+SUM(H97:S97)+SUM(H101:S101))*SUM(H85:S85)
'g20=냉방면적
'//열병합신재생에너지추가 130831 arin
신재생에너지 = Math.Round(-1 * (Result1.생산E(0).면적당생산량태양열 + Result1.생산E(0).신재생면적당열생산량 + Result1.생산E(0).면적당생산량지열) - 면적, 1)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "소요량"
Dr2.type = "신재생에너지"
Dr2.Req = 신재생에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
난방에너지 = Math.Round(Result1.E소요량(0).난방면적, 1)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "소요량"
Dr2.type = "난방에너지"
Dr2.Req = 난방에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
냉방에너지 = Math.Round(Result1.E소요량(0).냉방면적, 1)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "소요량"
Dr2.type = "냉방에너지"
Dr2.Req = 냉방에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
급탕에너지 = Math.Round(Result1.E소요량(0).급탕면적, 1)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "소요량"
Dr2.type = "급탕에너지"
Dr2.Req = 급탕에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
조명에너지 = Math.Round(Result1.E소요량(0).조명면적, 1)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "소요량"
Dr2.type = "조명에너지"
Dr2.Req = 조명에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
환기에너지 = Math.Round(Result1.E소요량(0).환기면적, 1)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "소요량"
Dr2.type = "환기에너지"
Dr2.Req = 환기에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "소요량"
Dr2.type = "합계"
Dr2.Req = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
Case 2 '//에너지요구량
신재생에너지 = 0
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "요구량"
Dr2.type = "신재생에너지"
Dr2.Req = 신재생에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
'계산결과!H14
난방에너지 = Math.Round(Result1.E요구량(0).난방면적, 1)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "요구량"
Dr2.type = "난방에너지"
Dr2.Req = 난방에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
냉방에너지 = Math.Round(Result1.E요구량(0).냉방면적, 1)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "요구량"
Dr2.type = "냉방에너지"
Dr2.Req = 냉방에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
'계산결과!H25
급탕에너지 = Math.Round(Result1.E요구량(0).급탕면적, 1)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "요구량"
Dr2.type = "급탕에너지"
Dr2.Req = 급탕에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
'계산결과!H22
조명에너지 = Math.Round(Result1.E요구량(0).조명면적, 1)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "요구량"
Dr2.type = "조명에너지"
Dr2.Req = 조명에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
환기에너지 = 0
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "요구량"
Dr2.type = "환기에너지"
Dr2.Req = 환기에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "요구량"
Dr2.type = "합계"
Dr2.Req = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
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(Result1.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(Result1.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(Result1.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(Result1.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(Result1.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)
Case 4 '//1차에너지소요량(+계수) + 131020
신재생에너지 = 0
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "등급용1차소요량"
Dr2.type = "신재생에너지"
Dr2.Req = 신재생에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
If (Result1.사용면적.H_WF = 0) Then
난방에너지 = 0
Else
난방에너지 = Math.Round(Result1.일차E소요량(0).난방면적2 * Result1.사용면적.H / Result1.사용면적.H_WF, 1)
End If
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "등급용1차소요량"
Dr2.type = "난방에너지"
Dr2.Req = 난방에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
If (Result1.사용면적.C_WF = 0) Then
냉방에너지 = 0
Else
냉방에너지 = Math.Round(TOSG(Result1.일차E소요량(0).냉방면적 * Result1.사용면적.C / Result1.사용면적.C_WF), 1)
End If
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "등급용1차소요량"
Dr2.type = "냉방에너지"
Dr2.Req = 냉방에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
If (Result1.사용면적.W_WF = 0) Then
급탕에너지 = 0
Else
급탕에너지 = Math.Round(Result1.일차E소요량(0).급탕면적2 * Result1.사용면적.W / Result1.사용면적.W_WF, 1)
End If
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "등급용1차소요량"
Dr2.type = "급탕에너지"
Dr2.Req = 급탕에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
If (Result1.사용면적.L_WF = 0) Then
조명에너지 = 0
Else
조명에너지 = Math.Round(Result1.일차E소요량(0).조명면적 * Result1.사용면적.L / Result1.사용면적.L_WF, 1)
End If
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "등급용1차소요량"
Dr2.type = "조명에너지"
Dr2.Req = 조명에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
'계산결과!H92*3/계산결과!H27
If (Result1.사용면적.V_WF = 0) Then
환기에너지 = 0
Else
환기에너지 = Math.Round(Result1.일차E소요량(0).환기면적 * Result1.사용면적.V / Result1.사용면적.V_WF, 1)
End If
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "등급용1차소요량"
Dr2.type = "환기에너지"
Dr2.Req = 환기에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "등급용1차소요량"
Dr2.type = "합계"
Dr2.Req = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
End Select
Next
End Sub
Private Sub Report_그래프_SizeChanged(sender As Object, e As System.EventArgs) Handles Me.SizeChanged
' Me.Text = Me.Size.ToString
End Sub
End Class

99
ArinWarev1/Forms_Report/Report_설계개선.Designer.vb generated Normal file
View File

@@ -0,0 +1,99 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Report_설계개선
Inherits CForm
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim ReportDataSource1 As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Report_설계개선))
Me.GraphReqUseBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.DSR = New Eco2Ar.DSR()
Me.ReportViewer1 = New Microsoft.Reporting.WinForms.ReportViewer()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel()
CType(Me.GraphReqUseBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DSR, System.ComponentModel.ISupportInitialize).BeginInit()
Me.StatusStrip1.SuspendLayout()
Me.SuspendLayout()
'
'GraphReqUseBindingSource
'
Me.GraphReqUseBindingSource.DataMember = "Graph_ReqUse"
Me.GraphReqUseBindingSource.DataSource = Me.DSR
'
'DSR
'
Me.DSR.DataSetName = "DSR"
Me.DSR.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'ReportViewer1
'
Me.ReportViewer1.Dock = System.Windows.Forms.DockStyle.Fill
ReportDataSource1.Name = "Graph_ReqUse"
ReportDataSource1.Value = Me.GraphReqUseBindingSource
Me.ReportViewer1.LocalReport.DataSources.Add(ReportDataSource1)
Me.ReportViewer1.LocalReport.ReportEmbeddedResource = "Eco2Ar.Report_설계개선.rdlc"
Me.ReportViewer1.Location = New System.Drawing.Point(0, 0)
Me.ReportViewer1.Name = "ReportViewer1"
Me.ReportViewer1.Size = New System.Drawing.Size(977, 646)
Me.ReportViewer1.TabIndex = 16
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_msg})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 646)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(977, 22)
Me.StatusStrip1.TabIndex = 15
Me.StatusStrip1.Text = "StatusStrip1"
'
'lb_msg
'
Me.lb_msg.Name = "lb_msg"
Me.lb_msg.Size = New System.Drawing.Size(59, 17)
Me.lb_msg.Text = "<메세지>"
'
'Report_설계개선
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(977, 668)
Me.Controls.Add(Me.ReportViewer1)
Me.Controls.Add(Me.StatusStrip1)
Me.Font = New System.Drawing.Font("돋움", 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 = "Report_설계개선"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "설계개선"
CType(Me.GraphReqUseBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DSR, System.ComponentModel.ISupportInitialize).EndInit()
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents ReportViewer1 As Microsoft.Reporting.WinForms.ReportViewer
Friend WithEvents DSR As Eco2Ar.DSR
Friend WithEvents GraphReqUseBindingSource As System.Windows.Forms.BindingSource
End Class

644
ArinWarev1/Forms_Report/Report_설계개선.rdlc Normal file
View File

@@ -0,0 +1,644 @@
<?xml version="1.0" encoding="utf-8"?>
<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition">
<DataSources>
<DataSource Name="DummyDataSource">
<ConnectionProperties>
<DataProvider>SQL</DataProvider>
<ConnectString>Data Source=ms0501.gabiadb.com;Initial Catalog=eco2;Persist Security Info=True;User ID=raytrace;Password=arin</ConnectString>
</ConnectionProperties>
<rd:DataSourceID>2cf61f60-7667-4987-b5a6-ca66bdab8fbb</rd:DataSourceID>
</DataSource>
</DataSources>
<DataSets>
<DataSet Name="Graph_ReqUse">
<Fields>
<Field Name="Gubun">
<DataField>Gubun</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="type">
<DataField>type</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Req">
<DataField>Req</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
</Fields>
<Query>
<DataSourceName>DummyDataSource</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<rd:DataSetInfo>
<rd:DataSetName>DSR</rd:DataSetName>
<rd:SchemaPath>D:\에너지테스트용\New_EnergyTest\ArinWarev1\DataSet\DSR.xsd</rd:SchemaPath>
<rd:TableName>Graph_ReqUse</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
</DataSets>
<Body>
<ReportItems>
<Chart Name="Chart1">
<ChartCategoryHierarchy>
<ChartMembers>
<ChartMember>
<Group Name="Chart1_CategoryGroup1">
<GroupExpressions>
<GroupExpression>=Fields!Gubun.Value</GroupExpression>
</GroupExpressions>
</Group>
<Label>=Fields!Gubun.Value</Label>
</ChartMember>
</ChartMembers>
</ChartCategoryHierarchy>
<ChartSeriesHierarchy>
<ChartMembers>
<ChartMember>
<Group Name="Chart1_SeriesGroup1">
<GroupExpressions>
<GroupExpression>=Fields!type.Value</GroupExpression>
</GroupExpressions>
</Group>
<Label>=Fields!type.Value</Label>
</ChartMember>
</ChartMembers>
</ChartSeriesHierarchy>
<ChartData>
<ChartSeriesCollection>
<ChartSeries Name="Req">
<ChartDataPoints>
<ChartDataPoint>
<ChartDataPointValues>
<Y>=Sum(Fields!Req.Value)</Y>
</ChartDataPointValues>
<ChartDataLabel>
<Style />
<UseValueAsLabel>true</UseValueAsLabel>
<Visible>true</Visible>
</ChartDataLabel>
<Style />
<ChartMarker>
<Style />
</ChartMarker>
<DataElementOutput>Output</DataElementOutput>
</ChartDataPoint>
</ChartDataPoints>
<Style />
<ChartEmptyPoints>
<Style />
<ChartMarker>
<Style />
</ChartMarker>
<ChartDataLabel>
<Style />
</ChartDataLabel>
</ChartEmptyPoints>
<ValueAxisName>Primary</ValueAxisName>
<CategoryAxisName>Primary</CategoryAxisName>
<ChartSmartLabel>
<CalloutLineColor>Black</CalloutLineColor>
<MinMovingDistance>0pt</MinMovingDistance>
</ChartSmartLabel>
</ChartSeries>
</ChartSeriesCollection>
</ChartData>
<ChartAreas>
<ChartArea Name="Default">
<ChartCategoryAxes>
<ChartAxis Name="Primary">
<Style>
<FontSize>8pt</FontSize>
</Style>
<ChartAxisTitle>
<Caption>월</Caption>
<Style>
<FontSize>8pt</FontSize>
</Style>
</ChartAxisTitle>
<IntervalType>Number</IntervalType>
<ChartMajorGridLines>
<Enabled>True</Enabled>
<Style>
<Border>
<Color>Gainsboro</Color>
</Border>
</Style>
</ChartMajorGridLines>
<ChartMinorGridLines>
<Enabled>True</Enabled>
<Style>
<Border>
<Color>Gainsboro</Color>
<Style>Dotted</Style>
</Border>
</Style>
</ChartMinorGridLines>
<ChartMajorTickMarks>
<Interval>1</Interval>
<IntervalType>Number</IntervalType>
</ChartMajorTickMarks>
<ChartMinorTickMarks>
<Length>0.5</Length>
</ChartMinorTickMarks>
<CrossAt>NaN</CrossAt>
<Minimum>NaN</Minimum>
<Maximum>NaN</Maximum>
</ChartAxis>
<ChartAxis Name="Secondary">
<Style>
<FontSize>8pt</FontSize>
</Style>
<ChartAxisTitle>
<Caption>축 제목</Caption>
<Style>
<FontSize>8pt</FontSize>
</Style>
</ChartAxisTitle>
<ChartMajorGridLines>
<Enabled>False</Enabled>
<Style>
<Border>
<Color>Gainsboro</Color>
</Border>
</Style>
</ChartMajorGridLines>
<ChartMinorGridLines>
<Style>
<Border>
<Color>Gainsboro</Color>
<Style>Dotted</Style>
</Border>
</Style>
</ChartMinorGridLines>
<ChartMinorTickMarks>
<Length>0.5</Length>
</ChartMinorTickMarks>
<CrossAt>NaN</CrossAt>
<Location>Opposite</Location>
<Minimum>NaN</Minimum>
<Maximum>NaN</Maximum>
</ChartAxis>
</ChartCategoryAxes>
<ChartValueAxes>
<ChartAxis Name="Primary">
<Style>
<FontSize>8pt</FontSize>
</Style>
<ChartAxisTitle>
<Caption>1차 에너지 소요량</Caption>
<Style>
<FontSize>8pt</FontSize>
</Style>
</ChartAxisTitle>
<ChartMajorGridLines>
<Style>
<Border>
<Color>Gainsboro</Color>
</Border>
</Style>
</ChartMajorGridLines>
<ChartMinorGridLines>
<Style>
<Border>
<Color>Gainsboro</Color>
<Style>Dotted</Style>
</Border>
</Style>
</ChartMinorGridLines>
<ChartMinorTickMarks>
<Length>0.5</Length>
</ChartMinorTickMarks>
<CrossAt>NaN</CrossAt>
<Minimum>NaN</Minimum>
<Maximum>NaN</Maximum>
</ChartAxis>
<ChartAxis Name="Secondary">
<Style>
<FontSize>8pt</FontSize>
</Style>
<ChartAxisTitle>
<Caption>축 제목</Caption>
<Style>
<FontSize>8pt</FontSize>
</Style>
</ChartAxisTitle>
<ChartMajorGridLines>
<Style>
<Border>
<Color>Gainsboro</Color>
</Border>
</Style>
</ChartMajorGridLines>
<ChartMinorGridLines>
<Style>
<Border>
<Color>Gainsboro</Color>
<Style>Dotted</Style>
</Border>
</Style>
</ChartMinorGridLines>
<ChartMinorTickMarks>
<Length>0.5</Length>
</ChartMinorTickMarks>
<CrossAt>NaN</CrossAt>
<Location>Opposite</Location>
<Minimum>NaN</Minimum>
<Maximum>NaN</Maximum>
</ChartAxis>
</ChartValueAxes>
<Style>
<BackgroundGradientType>None</BackgroundGradientType>
</Style>
</ChartArea>
</ChartAreas>
<ChartLegends>
<ChartLegend Name="Default">
<Style>
<BackgroundGradientType>None</BackgroundGradientType>
<FontSize>8pt</FontSize>
</Style>
<ChartLegendTitle>
<Caption />
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
<TextAlign>Center</TextAlign>
</Style>
</ChartLegendTitle>
<HeaderSeparatorColor>Black</HeaderSeparatorColor>
<ColumnSeparatorColor>Black</ColumnSeparatorColor>
</ChartLegend>
</ChartLegends>
<ChartTitles>
<ChartTitle Name="Default">
<Caption>설계 개선 결과</Caption>
<Style>
<BackgroundGradientType>None</BackgroundGradientType>
<FontWeight>Bold</FontWeight>
<TextAlign>General</TextAlign>
<VerticalAlign>Top</VerticalAlign>
</Style>
</ChartTitle>
</ChartTitles>
<Palette>BrightPastel</Palette>
<ChartBorderSkin>
<Style>
<BackgroundColor>Gray</BackgroundColor>
<BackgroundGradientType>None</BackgroundGradientType>
<Color>White</Color>
</Style>
</ChartBorderSkin>
<ChartNoDataMessage Name="NoDataMessage">
<Caption>사용 가능한 데이터 없음</Caption>
<Style>
<BackgroundGradientType>None</BackgroundGradientType>
<TextAlign>General</TextAlign>
<VerticalAlign>Top</VerticalAlign>
</Style>
</ChartNoDataMessage>
<DataSetName>Graph_ReqUse</DataSetName>
<Filters>
<Filter>
<FilterExpression>=Fields!type.Value</FilterExpression>
<Operator>NotEqual</Operator>
<FilterValues>
<FilterValue>개선결과(%)</FilterValue>
</FilterValues>
</Filter>
</Filters>
<Top>0.7187cm</Top>
<Left>0.65299cm</Left>
<Height>12.03854cm</Height>
<Width>23.99771cm</Width>
<Style>
<Border>
<Color>LightGrey</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>White</BackgroundColor>
<BackgroundGradientType>None</BackgroundGradientType>
</Style>
</Chart>
<Tablix Name="Tablix2">
<TablixCorner>
<TablixCornerRows>
<TablixCornerRow>
<TablixCornerCell>
<CellContents>
<Textbox Name="Textbox10">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>월</Value>
<Style />
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox10</rd:DefaultName>
<Style>
<Border>
<Color>LightGrey</Color>
<Style>Solid</Style>
</Border>
<BottomBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>0.5pt</Width>
</BottomBorder>
<VerticalAlign>Bottom</VerticalAlign>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCornerCell>
</TablixCornerRow>
</TablixCornerRows>
</TablixCorner>
<TablixBody>
<TablixColumns>
<TablixColumn>
<Width>0.69271in</Width>
</TablixColumn>
</TablixColumns>
<TablixRows>
<TablixRow>
<Height>0.32292in</Height>
<TablixCells>
<TablixCell>
<CellContents>
<Textbox Name="Req">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Sum(Fields!Req.Value)</Value>
<Style />
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Req</rd:DefaultName>
<Style>
<Border>
<Color>LightGrey</Color>
<Style>Solid</Style>
</Border>
<VerticalAlign>Middle</VerticalAlign>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
</TablixCells>
</TablixRow>
<TablixRow>
<Height>0.23622in</Height>
<TablixCells>
<TablixCell>
<CellContents>
<Textbox Name="Textbox6">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style />
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox6</rd:DefaultName>
<Style>
<Border>
<Color>LightGrey</Color>
<Style>Solid</Style>
</Border>
<VerticalAlign>Middle</VerticalAlign>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
</TablixCells>
</TablixRow>
</TablixRows>
</TablixBody>
<TablixColumnHierarchy>
<TablixMembers>
<TablixMember>
<Group Name="Gubun">
<GroupExpressions>
<GroupExpression>=Fields!Gubun.Value</GroupExpression>
</GroupExpressions>
</Group>
<SortExpressions>
<SortExpression>
<Value>=Fields!Gubun.Value</Value>
</SortExpression>
</SortExpressions>
<TablixHeader>
<Size>0.33333in</Size>
<CellContents>
<Textbox Name="Gubun">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!Gubun.Value</Value>
<Style />
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Gubun</rd:DefaultName>
<Style>
<Border>
<Color>LightGrey</Color>
<Style>Solid</Style>
</Border>
<BottomBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>0.5pt</Width>
</BottomBorder>
<VerticalAlign>Bottom</VerticalAlign>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixHeader>
</TablixMember>
</TablixMembers>
</TablixColumnHierarchy>
<TablixRowHierarchy>
<TablixMembers>
<TablixMember>
<Group Name="type">
<GroupExpressions>
<GroupExpression>=Fields!type.Value</GroupExpression>
</GroupExpressions>
</Group>
<SortExpressions>
<SortExpression>
<Value>=Fields!type.Value</Value>
</SortExpression>
</SortExpressions>
<TablixHeader>
<Size>1.06771in</Size>
<CellContents>
<Textbox Name="type">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!type.Value</Value>
<Style />
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>type</rd:DefaultName>
<Style>
<Border>
<Color>LightGrey</Color>
<Style>Solid</Style>
</Border>
<VerticalAlign>Middle</VerticalAlign>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixHeader>
</TablixMember>
<TablixMember>
<TablixHeader>
<Size>1.06771in</Size>
<CellContents>
<Textbox Name="Textbox5">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!PSUM.Value</Value>
<Style />
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName>
<Style>
<Border>
<Color>LightGrey</Color>
<Style>Solid</Style>
</Border>
<VerticalAlign>Middle</VerticalAlign>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixHeader>
<KeepWithGroup>Before</KeepWithGroup>
</TablixMember>
</TablixMembers>
</TablixRowHierarchy>
<DataSetName>Graph_ReqUse</DataSetName>
<Filters>
<Filter>
<FilterExpression>=Fields!type.Value</FilterExpression>
<Operator>Equal</Operator>
<FilterValues>
<FilterValue>개선결과(%)</FilterValue>
</FilterValues>
</Filter>
</Filters>
<Top>12.95612cm</Top>
<Left>0.62653cm</Left>
<Height>2.26687cm</Height>
<Width>4.47147cm</Width>
<ZIndex>1</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
</Style>
</Tablix>
</ReportItems>
<Height>17.51629cm</Height>
<Style />
</Body>
<ReportParameters>
<ReportParameter Name="PSUM">
<DataType>String</DataType>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<Width>25.199cm</Width>
<Page>
<PageHeight>21cm</PageHeight>
<PageWidth>29.7cm</PageWidth>
<LeftMargin>1cm</LeftMargin>
<RightMargin>1cm</RightMargin>
<TopMargin>2cm</TopMargin>
<BottomMargin>2cm</BottomMargin>
<ColumnSpacing>1cm</ColumnSpacing>
<Style />
</Page>
<Language>ko-KR</Language>
<ConsumeContainerWhitespace>true</ConsumeContainerWhitespace>
<rd:ReportID>de861d81-a116-467e-9d9a-a15050ac4b88</rd:ReportID>
<rd:ReportUnitType>Cm</rd:ReportUnitType>
</Report>

1574
ArinWarev1/Forms_Report/Report_설계개선.resx Normal file
View File

File diff suppressed because it is too large Load Diff

147
ArinWarev1/Forms_Report/Report_설계개선.vb Normal file
View File

@@ -0,0 +1,147 @@
Public Class Report_설계개선
#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
Dim 변경전합 As Decimal = 0
Dim 변경후합 As Decimal = 0
Private Sub Frm_v20091231_Result_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Me.DSR.월별1차에너지사용량.Merge(DSETR.월별1차에너지사용량)
'Me.DSR.Graph_ReqUse.Merge(DSETR.Graph_ReqUse)
Me.ReportViewer1.ZoomMode = Microsoft.Reporting.WinForms.ZoomMode.Percent
Me.ReportViewer1.ZoomPercent = 100
If MakeGraphTable() Then
Dim 합율 As Decimal = Math.Round((1 - (변경후합 / 변경전합)) * 100, 2)
Dim param As New Microsoft.Reporting.WinForms.ReportParameter("PSUM", 합율.ToString())
Dim params As New Microsoft.Reporting.WinForms.ReportParameterCollection()
params.Add(param)
Me.ReportViewer1.LocalReport.SetParameters(params)
Me.ReportViewer1.RefreshReport()
Else
Me.Close()
End If
End Sub
Private Function MakeGraphTable() As Boolean
'//월별 계산별,추측별 데이터를 기록한다.
Me.DSR.Graph_ReqUse.Clear()
Me.DSR.Graph_ReqUse.AcceptChanges()
If DSETR1.월별1차에너지사용량.Rows.Count = 0 Then
MsgBox("월별1차에너지사용량이 계산되어있지 않습니다." + vbCrLf + "계산을 먼저하세요", MsgBoxStyle.Information, "확인")
Return False
End If
'//년면적값확인
Dim 년면적 As Decimal = TOSG(DSET1.tbl_Desc.Rows(0)("buildm23"))
If 년면적 = 0 Then
MsgBox("년면적값이 없습니다" + vbCrLf + "건물개요를 확인하세요", MsgBoxStyle.Information, "확인")
Return False
End If
If DSETR1.설계계산결과.Rows.Count < 1 Then
MsgBox("설계개선결과가 없습니다" + vbCrLf + "계산을 먼저하세요", MsgBoxStyle.Information, "확인")
Return False
End If
'//설계게산파라미터확인
Dim 기저비율 As Decimal = 0
If DSETR1.설계계산파라미터.Rows.Count > 0 Then
Dim dr3 As DSR.설계계산파라미터Row = DSETR1.설계계산파라미터.Rows(0)
기저비율 = CDec(dr3.기저비율)
End If
'//
Dim 사용자입력값에너지사용량(12) As Decimal
'//현재 1차에너지사용량
Dim 년면적당1(12) As Decimal
Dim 년면적당2(12) As Decimal
For i As Integer = 1 To 12
사용자입력값에너지사용량(i) = 0
For Each dr1 As DSR.월별1차에너지사용량Row In DSETR1.월별1차에너지사용량.Select("월='" + i.ToString("00") + "'")
사용자입력값에너지사용량(i) += TOSG(dr1.도시가스) + TOSG(dr1.전력) + TOSG(dr1.지역난방)
Next
'//변경전의데이터
Dim 보정결과 As DSR.설계계산결과Row = DSETR1.설계계산결과.Rows(i - 1)
년면적당1(i) = TOSG(보정결과.난방전) + TOSG(보정결과.냉방전) + TOSG(보정결과.급탕전) + TOSG(보정결과.조명전) + TOSG(보정결과.환기전)
'//변경후(보정)데이터 (설계계산결과 테이블에 데이터가 있다)
년면적당2(i) = TOSG(보정결과.난방) + TOSG(보정결과.냉방) + TOSG(보정결과.급탕) + TOSG(보정결과.조명) + TOSG(보정결과.환기)
년면적당1(i) += 기저비율
년면적당2(i) += 기저비율
변경전합 += 년면적당1(i)
변경후합 += 년면적당2(i)
Dim dr2 As DSR.Graph_ReqUseRow
dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
dr2.Gubun = i.ToString("00")
dr2.type = "에너지사용량"
dr2.Req = Math.Round(사용자입력값에너지사용량(i), 2)
Me.DSR.Graph_ReqUse.Rows.Add(dr2)
dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
dr2.Gubun = i.ToString("00")
dr2.type = "1차소요량(전)"
dr2.Req = Math.Round(년면적당1(i), 2)
Me.DSR.Graph_ReqUse.Rows.Add(dr2)
dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
dr2.Gubun = i.ToString("00")
dr2.type = "1차소요량(후)"
dr2.Req = Math.Round(년면적당2(i), 2)
Me.DSR.Graph_ReqUse.Rows.Add(dr2)
'//결과% : (1-(결과후/결과전))*100
dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
dr2.Gubun = i.ToString("00")
dr2.type = "개선결과(%)"
dr2.Req = Math.Round((1 - (년면적당2(i) / 년면적당1(i))) * 100, 2)
Me.DSR.Graph_ReqUse.Rows.Add(dr2)
Next
'//전체합
DSR.Graph_ReqUse.AcceptChanges()
Return True
End Function
Private Sub Report_그래프_SizeChanged(sender As Object, e As System.EventArgs) Handles Me.SizeChanged
Me.Text = Me.Size.ToString
End Sub
End Class

1476
ArinWarev1/Forms_Report/그래프.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

9573
ArinWarev1/Forms_Report/평가서.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff