..
This commit is contained in:
ykh
5
.gitignore
vendored
5
.gitignore
vendored
@@ -3,4 +3,7 @@ obj
|
||||
*.suo
|
||||
*.user
|
||||
*.v12
|
||||
*.v11
|
||||
*.v11
|
||||
/Setup1/Release
|
||||
/Setup1/Debug
|
||||
/Dotfuscated
|
||||
|
||||
@@ -11,12 +11,12 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "CEnergy", "CEnergy\ArinClas
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ArinLogin", "ArinLogin\ArinLogin.vbproj", "{8B6E4D7F-B484-471A-A419-2FE3451D26A3}"
|
||||
EndProject
|
||||
Project("{6141683F-8A12-4E36-9623-2EB02B2C2303}") = "SetupIS", "SetupIS\SetupIS.isproj", "{29519861-1577-4862-9732-B55894AE62E2}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ArinLog", "ArinLog\ArinLog.vbproj", "{E9E16A98-8F8D-4848-A27E-4571C184FB1A}"
|
||||
EndProject
|
||||
Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "Utility", "Utility\Utility.csproj", "{B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}"
|
||||
EndProject
|
||||
Project("{54435603-DBB4-11D2-8724-00A0C9A8B90C}") = "Setup1", "Setup1\Setup1.vdproj", "{0E52FBAC-1A86-4722-93D0-CA7B8570B617}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
CD_ROM|Any CPU = CD_ROM|Any CPU
|
||||
@@ -136,32 +136,6 @@ Global
|
||||
{8B6E4D7F-B484-471A-A419-2FE3451D26A3}.SingleImage|Mixed Platforms.ActiveCfg = Release|Any CPU
|
||||
{8B6E4D7F-B484-471A-A419-2FE3451D26A3}.SingleImage|Mixed Platforms.Build.0 = Release|Any CPU
|
||||
{8B6E4D7F-B484-471A-A419-2FE3451D26A3}.SingleImage|x86.ActiveCfg = Release|Any CPU
|
||||
{29519861-1577-4862-9732-B55894AE62E2}.CD_ROM|Any CPU.ActiveCfg = CD_ROM
|
||||
{29519861-1577-4862-9732-B55894AE62E2}.CD_ROM|Any CPU.Build.0 = CD_ROM
|
||||
{29519861-1577-4862-9732-B55894AE62E2}.CD_ROM|Mixed Platforms.ActiveCfg = CD_ROM
|
||||
{29519861-1577-4862-9732-B55894AE62E2}.CD_ROM|Mixed Platforms.Build.0 = CD_ROM
|
||||
{29519861-1577-4862-9732-B55894AE62E2}.CD_ROM|x86.ActiveCfg = CD_ROM
|
||||
{29519861-1577-4862-9732-B55894AE62E2}.CD_ROM|x86.Build.0 = CD_ROM
|
||||
{29519861-1577-4862-9732-B55894AE62E2}.Debug|Any CPU.ActiveCfg = DVD-5
|
||||
{29519861-1577-4862-9732-B55894AE62E2}.Debug|Mixed Platforms.ActiveCfg = DVD-5
|
||||
{29519861-1577-4862-9732-B55894AE62E2}.Debug|x86.ActiveCfg = DVD-5
|
||||
{29519861-1577-4862-9732-B55894AE62E2}.Debug|x86.Build.0 = DVD-5
|
||||
{29519861-1577-4862-9732-B55894AE62E2}.DVD-5|Any CPU.ActiveCfg = DVD-5
|
||||
{29519861-1577-4862-9732-B55894AE62E2}.DVD-5|Any CPU.Build.0 = DVD-5
|
||||
{29519861-1577-4862-9732-B55894AE62E2}.DVD-5|Mixed Platforms.ActiveCfg = DVD-5
|
||||
{29519861-1577-4862-9732-B55894AE62E2}.DVD-5|Mixed Platforms.Build.0 = DVD-5
|
||||
{29519861-1577-4862-9732-B55894AE62E2}.DVD-5|x86.ActiveCfg = DVD-5
|
||||
{29519861-1577-4862-9732-B55894AE62E2}.DVD-5|x86.Build.0 = DVD-5
|
||||
{29519861-1577-4862-9732-B55894AE62E2}.Release|Any CPU.ActiveCfg = SingleImage
|
||||
{29519861-1577-4862-9732-B55894AE62E2}.Release|Mixed Platforms.ActiveCfg = SingleImage
|
||||
{29519861-1577-4862-9732-B55894AE62E2}.Release|x86.ActiveCfg = SingleImage
|
||||
{29519861-1577-4862-9732-B55894AE62E2}.Release|x86.Build.0 = SingleImage
|
||||
{29519861-1577-4862-9732-B55894AE62E2}.SingleImage|Any CPU.ActiveCfg = SingleImage
|
||||
{29519861-1577-4862-9732-B55894AE62E2}.SingleImage|Any CPU.Build.0 = SingleImage
|
||||
{29519861-1577-4862-9732-B55894AE62E2}.SingleImage|Mixed Platforms.ActiveCfg = SingleImage
|
||||
{29519861-1577-4862-9732-B55894AE62E2}.SingleImage|Mixed Platforms.Build.0 = SingleImage
|
||||
{29519861-1577-4862-9732-B55894AE62E2}.SingleImage|x86.ActiveCfg = SingleImage
|
||||
{29519861-1577-4862-9732-B55894AE62E2}.SingleImage|x86.Build.0 = SingleImage
|
||||
{E9E16A98-8F8D-4848-A27E-4571C184FB1A}.CD_ROM|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{E9E16A98-8F8D-4848-A27E-4571C184FB1A}.CD_ROM|Any CPU.Build.0 = Release|Any CPU
|
||||
{E9E16A98-8F8D-4848-A27E-4571C184FB1A}.CD_ROM|Mixed Platforms.ActiveCfg = Release|Any CPU
|
||||
@@ -212,6 +186,21 @@ Global
|
||||
{B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}.SingleImage|Mixed Platforms.ActiveCfg = Release|Any CPU
|
||||
{B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}.SingleImage|Mixed Platforms.Build.0 = Release|Any CPU
|
||||
{B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}.SingleImage|x86.ActiveCfg = Release|Any CPU
|
||||
{0E52FBAC-1A86-4722-93D0-CA7B8570B617}.CD_ROM|Any CPU.ActiveCfg = Release
|
||||
{0E52FBAC-1A86-4722-93D0-CA7B8570B617}.CD_ROM|Mixed Platforms.ActiveCfg = Release
|
||||
{0E52FBAC-1A86-4722-93D0-CA7B8570B617}.CD_ROM|x86.ActiveCfg = Release
|
||||
{0E52FBAC-1A86-4722-93D0-CA7B8570B617}.Debug|Any CPU.ActiveCfg = Debug
|
||||
{0E52FBAC-1A86-4722-93D0-CA7B8570B617}.Debug|Mixed Platforms.ActiveCfg = Debug
|
||||
{0E52FBAC-1A86-4722-93D0-CA7B8570B617}.Debug|x86.ActiveCfg = Debug
|
||||
{0E52FBAC-1A86-4722-93D0-CA7B8570B617}.DVD-5|Any CPU.ActiveCfg = Debug
|
||||
{0E52FBAC-1A86-4722-93D0-CA7B8570B617}.DVD-5|Mixed Platforms.ActiveCfg = Debug
|
||||
{0E52FBAC-1A86-4722-93D0-CA7B8570B617}.DVD-5|x86.ActiveCfg = Debug
|
||||
{0E52FBAC-1A86-4722-93D0-CA7B8570B617}.Release|Any CPU.ActiveCfg = Release
|
||||
{0E52FBAC-1A86-4722-93D0-CA7B8570B617}.Release|Mixed Platforms.ActiveCfg = Release
|
||||
{0E52FBAC-1A86-4722-93D0-CA7B8570B617}.Release|x86.ActiveCfg = Release
|
||||
{0E52FBAC-1A86-4722-93D0-CA7B8570B617}.SingleImage|Any CPU.ActiveCfg = Release
|
||||
{0E52FBAC-1A86-4722-93D0-CA7B8570B617}.SingleImage|Mixed Platforms.ActiveCfg = Release
|
||||
{0E52FBAC-1A86-4722-93D0-CA7B8570B617}.SingleImage|x86.ActiveCfg = Release
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
|
||||
@@ -361,16 +361,20 @@
|
||||
Case 1 '//난방?급탕 혼합형태?
|
||||
If Q_W_sol_out_m <> 0 Then
|
||||
Result.생산E(i_ts_month).면적당생산량태양열 += (Q_W_sol_out_net / Result.사용면적.W) '// 20170120 추가
|
||||
Result.생산E(i_ts_month).면적당생산량태양열_급탕 += (Q_W_sol_out_net / Result.사용면적.W) '// 20170120 추가
|
||||
'Result.생산E(i_ts_month).면적당생산량태양열 += (Q_W_sol_out_m / Result.사용면적.W) 삭제
|
||||
Else
|
||||
Result.생산E(i_ts_month).면적당생산량태양열 += (Q_H_sol_out_net / Result.사용면적.H) '// 20170120 추가
|
||||
Result.생산E(i_ts_month).면적당생산량태양열_난방 += (Q_H_sol_out_net / Result.사용면적.H) '// 20170120 추가
|
||||
'Result.생산E(i_ts_month).면적당생산량태양열 += (Q_H_sol_out_m / Result.사용면적.H)
|
||||
End If
|
||||
Case 2 '//냉방?
|
||||
Result.생산E(i_ts_month).면적당생산량태양열 += (Q_H_sol_out_net / Result.사용면적.C) '// 20170120 추가
|
||||
Result.생산E(i_ts_month).면적당생산량태양열_냉방 += (Q_H_sol_out_net / Result.사용면적.C) '// 20170120 추가
|
||||
'Result.생산E(i_ts_month).면적당생산량태양열 += (Q_H_sol_out_m / Result.사용면적.C)
|
||||
Case 3 '//급탕
|
||||
Result.생산E(i_ts_month).면적당생산량태양열 += (Q_W_sol_out_net / Result.사용면적.W) '// 20170120 추가
|
||||
Result.생산E(i_ts_month).면적당생산량태양열_급탕 += (Q_W_sol_out_net / Result.사용면적.W) '// 20170120 추가
|
||||
'Result.생산E(i_ts_month).면적당생산량태양열 += (Q_W_sol_out_m / Result.사용면적.W)
|
||||
Case Else
|
||||
MsgBox("단위면적당생산량 누적시 i_syste_ts 가 알수없음", MsgBoxStyle.Critical, "확인")
|
||||
@@ -496,7 +500,7 @@
|
||||
If Dr신재생.대지외설치여부 Then
|
||||
E_el_pv_out_offsite = E_el_pv_out_offsite + E_sol * P_pk * f_perf
|
||||
Else
|
||||
E_el_pv_out = E_el_pv_out + E_sol * P_pk * f_perf
|
||||
E_el_pv_out += E_sol * P_pk * f_perf
|
||||
End If
|
||||
|
||||
'End If
|
||||
@@ -649,14 +653,17 @@
|
||||
Select Case i_system_hp
|
||||
Case 1
|
||||
Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_outg_net / Result.사용면적.H) '//20170120 추가
|
||||
Result.생산E(i_hp_month).면적당생산량지열_난방 += (Q_h_outg_net / Result.사용면적.H) '//20170120 추가
|
||||
'//Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_f_hp / Result.사용면적.H) '20170120 지열생산량을 수정
|
||||
'DSETR.TReqUse.Rows(100)("M00") = CSng(DSETR.TReqUse.Rows(100)("M00")) + Q_h_f_hp / CSng(DSETR.TReqUse.Rows(10)("M00")) ' DrT요구량.난방사용면적 ' Sheets("계산결과").Cells(15, 7)
|
||||
Case 2
|
||||
Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_outg_net / Result.사용면적.C) '//20170120 추가
|
||||
Result.생산E(i_hp_month).면적당생산량지열_냉방 += (Q_h_outg_net / Result.사용면적.C) '//20170120 추가
|
||||
'//Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_f_hp / Result.사용면적.C) '20170120 지열생산량을 수정
|
||||
'DSETR.TReqUse.Rows(100)("M00") = CSng(DSETR.TReqUse.Rows(100)("M00")) + Q_h_f_hp / CSng(DSETR.TReqUse.Rows(15)("M00")) 'DrT요구량.냉방사용면적 '("계산결과").Cells(20, 7)
|
||||
Case 3
|
||||
Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_outg_net / Result.사용면적.W) '//20170120 추가
|
||||
Result.생산E(i_hp_month).면적당생산량지열_급탕 += (Q_h_outg_net / Result.사용면적.W) '//20170120 추가
|
||||
'//Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_f_hp / Result.사용면적.W) '20170120 지열생산량을 수정
|
||||
End Select
|
||||
|
||||
@@ -811,14 +818,17 @@
|
||||
Select Case i_system_hp
|
||||
Case 1
|
||||
Result.생산E(i_hp_month).면적당생산량수열 += (Q_h_outg_net / Result.사용면적.H) '//20170120 추가
|
||||
Result.생산E(i_hp_month).면적당생산량수열_난방 += (Q_h_outg_net / Result.사용면적.H) '//20170120 추가
|
||||
'//Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_f_hp / Result.사용면적.H) '20170120 지열생산량을 수정
|
||||
'DSETR.TReqUse.Rows(100)("M00") = CSng(DSETR.TReqUse.Rows(100)("M00")) + Q_h_f_hp / CSng(DSETR.TReqUse.Rows(10)("M00")) ' DrT요구량.난방사용면적 ' Sheets("계산결과").Cells(15, 7)
|
||||
Case 2
|
||||
Result.생산E(i_hp_month).면적당생산량수열 += (Q_h_outg_net / Result.사용면적.C) '//20170120 추가
|
||||
Result.생산E(i_hp_month).면적당생산량수열_냉방 += (Q_h_outg_net / Result.사용면적.C) '//20170120 추가
|
||||
'//Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_f_hp / Result.사용면적.C) '20170120 지열생산량을 수정
|
||||
'DSETR.TReqUse.Rows(100)("M00") = CSng(DSETR.TReqUse.Rows(100)("M00")) + Q_h_f_hp / CSng(DSETR.TReqUse.Rows(15)("M00")) 'DrT요구량.냉방사용면적 '("계산결과").Cells(20, 7)
|
||||
Case 3
|
||||
Result.생산E(i_hp_month).면적당생산량수열 += (Q_h_outg_net / Result.사용면적.W) '//20170120 추가
|
||||
Result.생산E(i_hp_month).면적당생산량수열_급탕 += (Q_h_outg_net / Result.사용면적.W) '//20170120 추가
|
||||
'//Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_f_hp / Result.사용면적.W) '20170120 지열생산량을 수정
|
||||
End Select
|
||||
|
||||
@@ -892,6 +902,7 @@
|
||||
|
||||
'//전력
|
||||
Result.생산E(i_chp_month).신재생열병합전력생산량 += (E_el_chp_out_net) '//20170120 추가
|
||||
Result.생산E(i_chp_month).신재생열병합열생산량 += (Q_chp_gen_out_net) '//20170120 추가
|
||||
'Result.생산E(i_chp_month).신재생열병합전력생산량 += (E_el_chp_out)
|
||||
|
||||
pLog.Add(String.Format("Calc_CogenerationSystemEN 결과2 신재생열병합전력생산량={0}", Result.생산E(i_chp_month).신재생열병합전력생산량))
|
||||
@@ -900,12 +911,15 @@
|
||||
Select Case i_system_chp
|
||||
Case 1
|
||||
Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out_net / Result.사용면적.H) '// 20170120 추가
|
||||
Result.생산E(i_chp_month).신재생면적당열생산량_난방 += (Q_chp_gen_out_net / Result.사용면적.H) '// 20170120 추가
|
||||
'Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out / Result.사용면적.H)
|
||||
Case 2
|
||||
Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out_net / Result.사용면적.C) '// 20170120 추가
|
||||
Result.생산E(i_chp_month).신재생면적당열생산량_냉방 += (Q_chp_gen_out_net / Result.사용면적.C) '// 20170120 추가
|
||||
'Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out / Result.사용면적.C)
|
||||
Case 3
|
||||
Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out_net / Result.사용면적.W) '// 20170120 추가
|
||||
Result.생산E(i_chp_month).신재생면적당열생산량_급탕 += (Q_chp_gen_out_net / Result.사용면적.W) '// 20170120 추가
|
||||
'Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out / Result.사용면적.W)
|
||||
|
||||
End Select
|
||||
|
||||
@@ -230,6 +230,8 @@
|
||||
#End Region
|
||||
|
||||
Public Sub Make_ResultSheet()
|
||||
Dim idx As Integer
|
||||
|
||||
'//에너지요구량
|
||||
DSETR.TReqUse.Clear()
|
||||
DSETR.TReqUse.AcceptChanges()
|
||||
@@ -640,26 +642,40 @@
|
||||
Array.Add(Result.생산E(i).수열생산량)
|
||||
Next
|
||||
Set_ReqUseRow("310", "열에너지 생산량(수열)", "[kWh]", "", "=", Array)
|
||||
Array.Clear()
|
||||
|
||||
'//열병합추가 230804
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result.생산E(i).신재생열병합열생산량)
|
||||
Next
|
||||
Set_ReqUseRow("310", "열에너지 생산량(열병합)", "[kWh]", "", "=", Array)
|
||||
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result.생산E(i).면적당생산량태양열)
|
||||
Next
|
||||
|
||||
Set_ReqUseRow("310", "단위면적당 생산량(태양열)", "[kWh]", "", "=", Array, "N1") '//71
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result.생산E(i).면적당생산량지열)
|
||||
Next
|
||||
|
||||
Set_ReqUseRow("310", "단위면적당 생산량(지열)", "[kWh]", "", "=", Array, "N1") '//72
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result.생산E(i).면적당생산량수열)
|
||||
Next
|
||||
|
||||
Set_ReqUseRow("310", "단위면적당 생산량(수열)", "[kWh]", "", "=", Array, "N1") '//72
|
||||
|
||||
'//열병합추가 230804
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result.생산E(i).신재생면적당열생산량)
|
||||
Next
|
||||
Set_ReqUseRow("310", "단위면적당 생산량(열병합)", "[kWh]", "", "=", Array, "N1") '//72
|
||||
|
||||
|
||||
'//CO2배출량
|
||||
Array.Clear()
|
||||
@@ -672,17 +688,17 @@
|
||||
Array.Add(Result.Co2발생량(i).단위면적)
|
||||
Next
|
||||
|
||||
Set_ReqUseRow("400", "단위면적당 CO2 배출량", "[kg CO2/m²]", "", "", Array, "N1") '//74
|
||||
idx = Set_ReqUseRow("400", "단위면적당 CO2 배출량", "[kg CO2/m²]", "", "", Array, "N1") '//74
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result.Co2발생량(i).난방발생량)
|
||||
Next
|
||||
Set_ReqUseRow("410", "난방 CO2 발생량", "", "", "", Array) '//75
|
||||
idx = Set_ReqUseRow("410", "난방 CO2 발생량", "", "", "", Array) '//75
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result.Co2발생량(i).난방등유)
|
||||
Next
|
||||
Set_ReqUseRow("410", "난방유(등유) CO2 발생량", "[kg CO2]", CStr(Result.Co2배출계수.등유), "=", Array)
|
||||
idx = Set_ReqUseRow("410", "난방유(등유) CO2 발생량", "[kg CO2]", CStr(Result.Co2배출계수.등유), "=", Array)
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
Array.Add(Result.Co2발생량(i).난방LNG)
|
||||
@@ -715,7 +731,7 @@
|
||||
Array.Add(Result.Co2발생량(i).난방면적)
|
||||
Next
|
||||
|
||||
Set_ReqUseRow("410", "단위면적당 CO2 발생량", "[kg CO2]", "", "=", Array, "N1")
|
||||
idx = Set_ReqUseRow("410", "단위면적당 CO2 발생량", "[kg CO2]", "", "=", Array, "N1")
|
||||
|
||||
Array.Clear()
|
||||
For i As Integer = 0 To 12
|
||||
@@ -860,10 +876,11 @@
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Set_ReqUseRow(ByVal GRP As String, ByVal desc As String, ByVal unit As String, ByVal sign As String, ByVal eq As String, ByVal Value As ArrayList, Optional ByVal F As String = "N0")
|
||||
Private Function Set_ReqUseRow(ByVal GRP As String, ByVal desc As String, ByVal unit As String, ByVal sign As String, ByVal eq As String, ByVal Value As ArrayList, Optional ByVal F As String = "N0") As Integer
|
||||
Dim DR As DSR.TReqUseRow : DR = DSETR.TReqUse.NewTReqUseRow
|
||||
|
||||
DR.Code = Format(DSETR.TReqUse.Rows.Count + 1, "000")
|
||||
Dim idx As Integer = DSETR.TReqUse.Rows.Count + 1
|
||||
DR.Code = Format(idx, "000")
|
||||
DR.GRP = GRP '//그룹 출력할떄 그룹으로 뽑는다.
|
||||
DR.Desc = desc '//설명
|
||||
DR.UNIT = unit '//단위
|
||||
@@ -884,7 +901,8 @@
|
||||
DR.M12 = TOSG(Value.Item(12))
|
||||
DR.F = F
|
||||
DSETR.TReqUse.AddTReqUseRow(DR)
|
||||
End Sub
|
||||
Return idx
|
||||
End Function
|
||||
Private Sub Set_ReqUseRow(ByVal GRP As String, ByVal desc As String, ByVal unit As String, ByVal sign As String, ByVal eq As String, ByVal Value As Decimal, Optional ByVal F As String = "N0")
|
||||
Dim DR As DSR.TReqUseRow : DR = DSETR.TReqUse.NewTReqUseRow
|
||||
|
||||
|
||||
@@ -95,7 +95,41 @@
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
#Region "신재생"
|
||||
|
||||
'ReadOnly Property 신재생_난방_소요량() As Decimal
|
||||
' Get
|
||||
' If MIdx = 0 Then
|
||||
|
||||
|
||||
|
||||
' Try
|
||||
' Dim a As Decimal = Result.생산E(0).태양광전력생산량
|
||||
' Dim b As Decimal = Result.생산E(0).풍력전력생산량
|
||||
' Dim c As Decimal = Result.생산E(0).열병합전력생산량
|
||||
' Dim sumdata As Decimal = a + b + c
|
||||
|
||||
' Dim 난방비율 As Decimal = Me.난방전력 / (Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력)
|
||||
|
||||
' Return 난방비율 * sumdata
|
||||
' Catch ex As Exception
|
||||
|
||||
' End Try
|
||||
|
||||
' Else
|
||||
' Return 조명전력 * Result.E변환계수.전력
|
||||
' End If
|
||||
' End Get
|
||||
'End Property
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "난방"
|
||||
|
||||
|
||||
|
||||
ReadOnly Property 난방소요량() As Decimal
|
||||
Get
|
||||
If MIdx = 0 Then
|
||||
@@ -147,7 +181,7 @@
|
||||
End Try
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Else
|
||||
|
||||
|
||||
@@ -694,6 +728,9 @@
|
||||
#End Region
|
||||
|
||||
#Region "조명부분(읽기전용)"
|
||||
|
||||
|
||||
|
||||
ReadOnly Property 조명소요량() As Decimal
|
||||
Get
|
||||
If MIdx = 0 Then
|
||||
|
||||
@@ -212,6 +212,35 @@ Public Class C생산에너지
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property 신재생열병합열생산량() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
'MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다.
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result.생산E(i).신재생열병합열생산량
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return TOSG(DR(0)("신재생열병합열생산량"))
|
||||
End If
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("신재생열병합열생산량") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Property 신재생면적당열생산량() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
@@ -239,7 +268,87 @@ Public Class C생산에너지
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property 신재생면적당열생산량_난방() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
'MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다.
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result.생산E(i).신재생면적당열생산량_난방
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return TOSG(DR(0)("신재생면적당열생산량_난방"))
|
||||
End If
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("신재생면적당열생산량_난방") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 신재생면적당열생산량_냉방() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
'MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다.
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result.생산E(i).신재생면적당열생산량_냉방
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return TOSG(DR(0)("신재생면적당열생산량_냉방"))
|
||||
End If
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("신재생면적당열생산량_냉방") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 신재생면적당열생산량_급탕() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
'MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다.
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result.생산E(i).신재생면적당열생산량_급탕
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return TOSG(DR(0)("신재생면적당열생산량_급탕"))
|
||||
End If
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("신재생면적당열생산량_급탕") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property 태양열생산량() As Decimal
|
||||
Get
|
||||
@@ -355,6 +464,92 @@ Public Class C생산에너지
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 면적당생산량태양열_난방() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
'MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다.
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result.생산E(i).면적당생산량태양열_난방
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return TOSG(DR(0)("면적당생산량태양열_난방"))
|
||||
|
||||
End If
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("면적당생산량태양열_난방") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 면적당생산량태양열_냉방() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
'MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다.
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result.생산E(i).면적당생산량태양열_냉방
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return TOSG(DR(0)("면적당생산량태양열_냉방"))
|
||||
|
||||
End If
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("면적당생산량태양열_냉방") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 면적당생산량태양열_급탕() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
'MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다.
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result.생산E(i).면적당생산량태양열_급탕
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return TOSG(DR(0)("면적당생산량태양열_급탕"))
|
||||
|
||||
End If
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("면적당생산량태양열_급탕") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Property 면적당생산량수열() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
@@ -382,6 +577,87 @@ Public Class C생산에너지
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 면적당생산량수열_난방() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
'MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다.
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result.생산E(i).면적당생산량수열_난방
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return TOSG(DR(0)("면적당생산량수열_난방"))
|
||||
End If
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("면적당생산량수열_난방") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 면적당생산량수열_냉방() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
'MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다.
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result.생산E(i).면적당생산량수열_냉방
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return TOSG(DR(0)("면적당생산량수열_냉방"))
|
||||
End If
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("면적당생산량수열_냉방") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 면적당생산량수열_급탕() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
'MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다.
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result.생산E(i).면적당생산량수열_급탕
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return TOSG(DR(0)("면적당생산량수열_급탕"))
|
||||
End If
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("면적당생산량수열_급탕") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property 면적당생산량지열() As Decimal
|
||||
Get
|
||||
@@ -410,6 +686,86 @@ Public Class C생산에너지
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property 면적당생산량지열_난방() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
'MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다.
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result.생산E(i).면적당생산량지열_난방
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return TOSG(DR(0)("면적당생산량지열_난방"))
|
||||
End If
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("면적당생산량지열_난방") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 면적당생산량지열_냉방() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
'MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다.
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result.생산E(i).면적당생산량지열_냉방
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return TOSG(DR(0)("면적당생산량지열_냉방"))
|
||||
End If
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("면적당생산량지열_냉방") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property 면적당생산량지열_급탕() As Decimal
|
||||
Get
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
'MsgBox(ErrMsg)
|
||||
Return 0
|
||||
Else
|
||||
If MIdx = 0 Then '//0월이면 모든월의 합계를 반환한다.
|
||||
Dim Res As Decimal = 0
|
||||
For i As Short = 1 To 12
|
||||
Res += Result.생산E(i).면적당생산량지열_급탕
|
||||
Next
|
||||
Return Res
|
||||
Else
|
||||
Return TOSG(DR(0)("면적당생산량지열_급탕"))
|
||||
End If
|
||||
End If
|
||||
End Get
|
||||
Set(ByVal value As Decimal)
|
||||
Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
|
||||
If DR.GetUpperBound(0) = -1 Then
|
||||
MsgBox(ErrMsg)
|
||||
Else
|
||||
DR(0)("면적당생산량지열_급탕") = value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
|
||||
|
||||
336
ArinWarev1/DataSet/DS.Designer.vb
generated
336
ArinWarev1/DataSet/DS.Designer.vb
generated
@@ -5970,6 +5970,8 @@ Partial Public Class DS
|
||||
|
||||
Private column헤더적용 As Global.System.Data.DataColumn
|
||||
|
||||
Private columnsortkey As Global.System.Data.DataColumn
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub New()
|
||||
@@ -6325,6 +6327,14 @@ Partial Public Class DS
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property sortkeyColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnsortkey
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false)> _
|
||||
@@ -6402,9 +6412,10 @@ Partial Public Class DS
|
||||
ByVal 단열등급 As String, _
|
||||
ByVal 히트펌프시스템종류 As String, _
|
||||
ByVal 개별기기적용 As Boolean, _
|
||||
ByVal 헤더적용 As Boolean) As tbl_nanbangkikiRow
|
||||
ByVal 헤더적용 As Boolean, _
|
||||
ByVal sortkey As Short) As tbl_nanbangkikiRow
|
||||
Dim rowtbl_nanbangkikiRow As tbl_nanbangkikiRow = CType(Me.NewRow,tbl_nanbangkikiRow)
|
||||
Dim columnValuesArray() As Object = New Object() {code, 설명, 축열탱크방식, 축열제척, 펌프정격전력, 배관망유형, 펌프교정계수, 펌프제어유형, 펌프동력, 분배시스템방식, 순환유무, 펌프동력급탕, 건물길이, 건물넓이, 열공급층수, 층고, 배관길이, 신재생연결여부, 연결된시스템, 펌프제어, 열생산기기방식, 사용연료, 급수온도, 환수온도, 보일러정격출력, 열교환기정격출력, 운전방식, 보일러대수, 정격보일러효율, 보일러방식, 지역난방방식, 히트연료, 히트난방용량, 히트난방정격7, 히트난방정격10, 히트배관길이, 단열등급, 히트펌프시스템종류, 개별기기적용, 헤더적용}
|
||||
Dim columnValuesArray() As Object = New Object() {code, 설명, 축열탱크방식, 축열제척, 펌프정격전력, 배관망유형, 펌프교정계수, 펌프제어유형, 펌프동력, 분배시스템방식, 순환유무, 펌프동력급탕, 건물길이, 건물넓이, 열공급층수, 층고, 배관길이, 신재생연결여부, 연결된시스템, 펌프제어, 열생산기기방식, 사용연료, 급수온도, 환수온도, 보일러정격출력, 열교환기정격출력, 운전방식, 보일러대수, 정격보일러효율, 보일러방식, 지역난방방식, 히트연료, 히트난방용량, 히트난방정격7, 히트난방정격10, 히트배관길이, 단열등급, 히트펌프시스템종류, 개별기기적용, 헤더적용, sortkey}
|
||||
rowtbl_nanbangkikiRow.ItemArray = columnValuesArray
|
||||
Me.Rows.Add(rowtbl_nanbangkikiRow)
|
||||
Return rowtbl_nanbangkikiRow
|
||||
@@ -6473,6 +6484,7 @@ Partial Public Class DS
|
||||
Me.column히트펌프시스템종류 = MyBase.Columns("히트펌프시스템종류")
|
||||
Me.column개별기기적용 = MyBase.Columns("개별기기적용")
|
||||
Me.column헤더적용 = MyBase.Columns("헤더적용")
|
||||
Me.columnsortkey = MyBase.Columns("sortkey")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -6558,6 +6570,8 @@ Partial Public Class DS
|
||||
MyBase.Columns.Add(Me.column개별기기적용)
|
||||
Me.column헤더적용 = New Global.System.Data.DataColumn("헤더적용", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.column헤더적용)
|
||||
Me.columnsortkey = New Global.System.Data.DataColumn("sortkey", GetType(Short), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnsortkey)
|
||||
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode}, true))
|
||||
Me.columncode.AllowDBNull = false
|
||||
Me.columncode.Unique = true
|
||||
@@ -6607,6 +6621,7 @@ Partial Public Class DS
|
||||
Me.column히트펌프시스템종류.DefaultValue = CType("",String)
|
||||
Me.column개별기기적용.DefaultValue = CType(false,Boolean)
|
||||
Me.column헤더적용.DefaultValue = CType(false,Boolean)
|
||||
Me.columnsortkey.DefaultValue = CType(1,Short)
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -6786,6 +6801,8 @@ Partial Public Class DS
|
||||
|
||||
Private column사용연료 As Global.System.Data.DataColumn
|
||||
|
||||
Private columnsortkey As Global.System.Data.DataColumn
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub New()
|
||||
@@ -6989,6 +7006,14 @@ Partial Public Class DS
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property sortkeyColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnsortkey
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false)> _
|
||||
@@ -7047,9 +7072,10 @@ Partial Public Class DS
|
||||
ByVal 열생산연결방식 As String, _
|
||||
ByVal 개별기기적용 As Boolean, _
|
||||
ByVal 헤더적용 As Boolean, _
|
||||
ByVal 사용연료 As String) As tbl_nangbangkikiRow
|
||||
ByVal 사용연료 As String, _
|
||||
ByVal sortkey As Short) As tbl_nangbangkikiRow
|
||||
Dim rowtbl_nangbangkikiRow As tbl_nangbangkikiRow = CType(Me.NewRow,tbl_nangbangkikiRow)
|
||||
Dim columnValuesArray() As Object = New Object() {code, 설명, 냉동기방식, 냉동기용량, 열성능비, 냉동기종류, 냉동기압축방식, 압축기제어방식, 냉동기설비시스템, 제어방식, 온수열생산기기, 증발식건식냉각기, 증발식냉각기, 보조방음기유무, 냉각탑입구온도, 신재생연결여부, 연결된시스템, 열생산연결방식, 개별기기적용, 헤더적용, 사용연료}
|
||||
Dim columnValuesArray() As Object = New Object() {code, 설명, 냉동기방식, 냉동기용량, 열성능비, 냉동기종류, 냉동기압축방식, 압축기제어방식, 냉동기설비시스템, 제어방식, 온수열생산기기, 증발식건식냉각기, 증발식냉각기, 보조방음기유무, 냉각탑입구온도, 신재생연결여부, 연결된시스템, 열생산연결방식, 개별기기적용, 헤더적용, 사용연료, sortkey}
|
||||
rowtbl_nangbangkikiRow.ItemArray = columnValuesArray
|
||||
Me.Rows.Add(rowtbl_nangbangkikiRow)
|
||||
Return rowtbl_nangbangkikiRow
|
||||
@@ -7099,6 +7125,7 @@ Partial Public Class DS
|
||||
Me.column개별기기적용 = MyBase.Columns("개별기기적용")
|
||||
Me.column헤더적용 = MyBase.Columns("헤더적용")
|
||||
Me.column사용연료 = MyBase.Columns("사용연료")
|
||||
Me.columnsortkey = MyBase.Columns("sortkey")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -7146,6 +7173,8 @@ Partial Public Class DS
|
||||
MyBase.Columns.Add(Me.column헤더적용)
|
||||
Me.column사용연료 = New Global.System.Data.DataColumn("사용연료", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.column사용연료)
|
||||
Me.columnsortkey = New Global.System.Data.DataColumn("sortkey", GetType(Short), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnsortkey)
|
||||
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode}, true))
|
||||
Me.columncode.AllowDBNull = false
|
||||
Me.columncode.Unique = true
|
||||
@@ -7175,6 +7204,7 @@ Partial Public Class DS
|
||||
Me.column개별기기적용.DefaultValue = CType(false,Boolean)
|
||||
Me.column헤더적용.DefaultValue = CType(false,Boolean)
|
||||
Me.column사용연료.DefaultValue = CType("",String)
|
||||
Me.columnsortkey.DefaultValue = CType(1,Short)
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -7354,6 +7384,8 @@ Partial Public Class DS
|
||||
|
||||
Private column제어밸브압력손실 As Global.System.Data.DataColumn
|
||||
|
||||
Private columnsortkey As Global.System.Data.DataColumn
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub New()
|
||||
@@ -7557,6 +7589,14 @@ Partial Public Class DS
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property sortkeyColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnsortkey
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false)> _
|
||||
@@ -7615,9 +7655,10 @@ Partial Public Class DS
|
||||
ByVal 층고 As String, _
|
||||
ByVal 생산기기압력손실 As String, _
|
||||
ByVal 사용기기압력손실 As String, _
|
||||
ByVal 제어밸브압력손실 As String) As tbl_bunbaeRow
|
||||
ByVal 제어밸브압력손실 As String, _
|
||||
ByVal sortkey As Short) As tbl_bunbaeRow
|
||||
Dim rowtbl_bunbaeRow As tbl_bunbaeRow = CType(Me.NewRow,tbl_bunbaeRow)
|
||||
Dim columnValuesArray() As Object = New Object() {code, 설명, 냉동기, 냉매방식, 펌프운전제어유무, 급수온도, 환수온도, 설정점에서의온도차, 냉매의비열, 냉매의밀도, 냉매의점도, 배관의압력손실, 개별저항비율, 펌프동력, 공급범위의길이, 공급범위의넓이, 열층의수, 층고, 생산기기압력손실, 사용기기압력손실, 제어밸브압력손실}
|
||||
Dim columnValuesArray() As Object = New Object() {code, 설명, 냉동기, 냉매방식, 펌프운전제어유무, 급수온도, 환수온도, 설정점에서의온도차, 냉매의비열, 냉매의밀도, 냉매의점도, 배관의압력손실, 개별저항비율, 펌프동력, 공급범위의길이, 공급범위의넓이, 열층의수, 층고, 생산기기압력손실, 사용기기압력손실, 제어밸브압력손실, sortkey}
|
||||
rowtbl_bunbaeRow.ItemArray = columnValuesArray
|
||||
Me.Rows.Add(rowtbl_bunbaeRow)
|
||||
Return rowtbl_bunbaeRow
|
||||
@@ -7667,6 +7708,7 @@ Partial Public Class DS
|
||||
Me.column생산기기압력손실 = MyBase.Columns("생산기기압력손실")
|
||||
Me.column사용기기압력손실 = MyBase.Columns("사용기기압력손실")
|
||||
Me.column제어밸브압력손실 = MyBase.Columns("제어밸브압력손실")
|
||||
Me.columnsortkey = MyBase.Columns("sortkey")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -7714,6 +7756,8 @@ Partial Public Class DS
|
||||
MyBase.Columns.Add(Me.column사용기기압력손실)
|
||||
Me.column제어밸브압력손실 = New Global.System.Data.DataColumn("제어밸브압력손실", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.column제어밸브압력손실)
|
||||
Me.columnsortkey = New Global.System.Data.DataColumn("sortkey", GetType(Short), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnsortkey)
|
||||
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode}, true))
|
||||
Me.columncode.AllowDBNull = false
|
||||
Me.columncode.Unique = true
|
||||
@@ -7740,6 +7784,7 @@ Partial Public Class DS
|
||||
Me.column생산기기압력손실.DefaultValue = CType("",String)
|
||||
Me.column사용기기압력손실.DefaultValue = CType("",String)
|
||||
Me.column제어밸브압력손실.DefaultValue = CType("",String)
|
||||
Me.columnsortkey.DefaultValue = CType(1,Short)
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -7979,6 +8024,8 @@ Partial Public Class DS
|
||||
|
||||
Private column대지외설치여부_풍력 As Global.System.Data.DataColumn
|
||||
|
||||
Private columnsortkey As Global.System.Data.DataColumn
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub New()
|
||||
@@ -8422,6 +8469,14 @@ Partial Public Class DS
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property sortkeyColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnsortkey
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false)> _
|
||||
@@ -8510,9 +8565,10 @@ Partial Public Class DS
|
||||
ByVal 수열_수열팽창탱크체적 As String, _
|
||||
ByVal 수열_열성능비_냉방25도 As String, _
|
||||
ByVal 수열_열성능비_냉방35도 As String, _
|
||||
ByVal 대지외설치여부_풍력 As Boolean) As tbl_newRow
|
||||
ByVal 대지외설치여부_풍력 As Boolean, _
|
||||
ByVal sortkey As Short) As tbl_newRow
|
||||
Dim rowtbl_newRow As tbl_newRow = CType(Me.NewRow,tbl_newRow)
|
||||
Dim columnValuesArray() As Object = New Object() {code, 설명, 기기종류, 가동연료, 태양열종류, 집열기유형, 집열판면적, 집열판방위, 솔라펌프의정격출력, 태양열시스템의성능, 무손실효율계수, 열손실계수1차, 열손실계수2차, 축열탱크체적급탕, 축열탱크체적난방, 축열탱크설치장소, 태양광모듈면적, 태양광모듈기울기, 태양광모듈방위, 태양광모듈종류, 태양광모듈적용타입, 지열히트펌프용량, 열성능비난방, 열성능비냉방, 펌프용량1차, 펌프용량2차, 열교환기설치여부, 팽창탱크설치여부, 팽창탱크체적, 열생산능력, 열생산효율, 발전효율, 태양광모듈효율, 지열비고, 열병합신재생여부, 태양광용량, 대지외설치여부, 풍력로우터회전면적, 풍력허브높이, 수열_수열원, 수열_수열히트펌프용량, 수열_열성능비_난방5도, 수열_열성능비_난방15도, 수열_1차펌프동력, 수열_2차펌프동력, 수열_열교환기설치여부, 수열_수열팽창탱크설치여부, 수열_수열팽창탱크체적, 수열_열성능비_냉방25도, 수열_열성능비_냉방35도, 대지외설치여부_풍력}
|
||||
Dim columnValuesArray() As Object = New Object() {code, 설명, 기기종류, 가동연료, 태양열종류, 집열기유형, 집열판면적, 집열판방위, 솔라펌프의정격출력, 태양열시스템의성능, 무손실효율계수, 열손실계수1차, 열손실계수2차, 축열탱크체적급탕, 축열탱크체적난방, 축열탱크설치장소, 태양광모듈면적, 태양광모듈기울기, 태양광모듈방위, 태양광모듈종류, 태양광모듈적용타입, 지열히트펌프용량, 열성능비난방, 열성능비냉방, 펌프용량1차, 펌프용량2차, 열교환기설치여부, 팽창탱크설치여부, 팽창탱크체적, 열생산능력, 열생산효율, 발전효율, 태양광모듈효율, 지열비고, 열병합신재생여부, 태양광용량, 대지외설치여부, 풍력로우터회전면적, 풍력허브높이, 수열_수열원, 수열_수열히트펌프용량, 수열_열성능비_난방5도, 수열_열성능비_난방15도, 수열_1차펌프동력, 수열_2차펌프동력, 수열_열교환기설치여부, 수열_수열팽창탱크설치여부, 수열_수열팽창탱크체적, 수열_열성능비_냉방25도, 수열_열성능비_냉방35도, 대지외설치여부_풍력, sortkey}
|
||||
rowtbl_newRow.ItemArray = columnValuesArray
|
||||
Me.Rows.Add(rowtbl_newRow)
|
||||
Return rowtbl_newRow
|
||||
@@ -8592,6 +8648,7 @@ Partial Public Class DS
|
||||
Me.column수열_열성능비_냉방25도 = MyBase.Columns("수열_열성능비_냉방25도")
|
||||
Me.column수열_열성능비_냉방35도 = MyBase.Columns("수열_열성능비_냉방35도")
|
||||
Me.column대지외설치여부_풍력 = MyBase.Columns("대지외설치여부_풍력")
|
||||
Me.columnsortkey = MyBase.Columns("sortkey")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -8699,6 +8756,8 @@ Partial Public Class DS
|
||||
MyBase.Columns.Add(Me.column수열_열성능비_냉방35도)
|
||||
Me.column대지외설치여부_풍력 = New Global.System.Data.DataColumn("대지외설치여부_풍력", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.column대지외설치여부_풍력)
|
||||
Me.columnsortkey = New Global.System.Data.DataColumn("sortkey", GetType(Short), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnsortkey)
|
||||
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode}, true))
|
||||
Me.columncode.AllowDBNull = false
|
||||
Me.columncode.Unique = true
|
||||
@@ -8741,6 +8800,7 @@ Partial Public Class DS
|
||||
Me.column수열_수열원.DefaultValue = CType("하천수",String)
|
||||
Me.column수열_열교환기설치여부.DefaultValue = CType("예",String)
|
||||
Me.column수열_수열팽창탱크설치여부.DefaultValue = CType("예",String)
|
||||
Me.columnsortkey.DefaultValue = CType(1,Short)
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -9944,6 +10004,8 @@ Partial Public Class DS
|
||||
|
||||
Private column지관장소 As Global.System.Data.DataColumn
|
||||
|
||||
Private columnsortkey As Global.System.Data.DataColumn
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub New()
|
||||
@@ -10091,6 +10153,14 @@ Partial Public Class DS
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property sortkeyColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnsortkey
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false)> _
|
||||
@@ -10128,9 +10198,9 @@ Partial Public Class DS
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Overloads Function Addtbl_nbunbaeRow(ByVal code As String, ByVal 설명 As String, ByVal 생산기기구분 As String, ByVal 표준치적용 As String, ByVal 배관망유형 As String, ByVal 배관구간방식 As String, ByVal 배관구간길이 As String, ByVal 열관류율 As String, ByVal 배관설치장소 As String, ByVal 건물길이x As String, ByVal 건물길이y As String, ByVal 층수 As String, ByVal 층고 As String, ByVal 지관장소 As String) As tbl_nbunbaeRow
|
||||
Public Overloads Function Addtbl_nbunbaeRow(ByVal code As String, ByVal 설명 As String, ByVal 생산기기구분 As String, ByVal 표준치적용 As String, ByVal 배관망유형 As String, ByVal 배관구간방식 As String, ByVal 배관구간길이 As String, ByVal 열관류율 As String, ByVal 배관설치장소 As String, ByVal 건물길이x As String, ByVal 건물길이y As String, ByVal 층수 As String, ByVal 층고 As String, ByVal 지관장소 As String, ByVal sortkey As Short) As tbl_nbunbaeRow
|
||||
Dim rowtbl_nbunbaeRow As tbl_nbunbaeRow = CType(Me.NewRow,tbl_nbunbaeRow)
|
||||
Dim columnValuesArray() As Object = New Object() {code, 설명, 생산기기구분, 표준치적용, 배관망유형, 배관구간방식, 배관구간길이, 열관류율, 배관설치장소, 건물길이x, 건물길이y, 층수, 층고, 지관장소}
|
||||
Dim columnValuesArray() As Object = New Object() {code, 설명, 생산기기구분, 표준치적용, 배관망유형, 배관구간방식, 배관구간길이, 열관류율, 배관설치장소, 건물길이x, 건물길이y, 층수, 층고, 지관장소, sortkey}
|
||||
rowtbl_nbunbaeRow.ItemArray = columnValuesArray
|
||||
Me.Rows.Add(rowtbl_nbunbaeRow)
|
||||
Return rowtbl_nbunbaeRow
|
||||
@@ -10173,6 +10243,7 @@ Partial Public Class DS
|
||||
Me.column층수 = MyBase.Columns("층수")
|
||||
Me.column층고 = MyBase.Columns("층고")
|
||||
Me.column지관장소 = MyBase.Columns("지관장소")
|
||||
Me.columnsortkey = MyBase.Columns("sortkey")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -10206,6 +10277,8 @@ Partial Public Class DS
|
||||
MyBase.Columns.Add(Me.column층고)
|
||||
Me.column지관장소 = New Global.System.Data.DataColumn("지관장소", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.column지관장소)
|
||||
Me.columnsortkey = New Global.System.Data.DataColumn("sortkey", GetType(Short), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnsortkey)
|
||||
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode}, true))
|
||||
Me.columncode.AllowDBNull = false
|
||||
Me.columncode.Unique = true
|
||||
@@ -10223,6 +10296,7 @@ Partial Public Class DS
|
||||
Me.column층수.DefaultValue = CType("",String)
|
||||
Me.column층고.DefaultValue = CType("",String)
|
||||
Me.column지관장소.DefaultValue = CType("0",String)
|
||||
Me.columnsortkey.DefaultValue = CType(1,Short)
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -10410,6 +10484,8 @@ Partial Public Class DS
|
||||
|
||||
Private column집열기방사율 As Global.System.Data.DataColumn
|
||||
|
||||
Private columnsortkey As Global.System.Data.DataColumn
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub New()
|
||||
@@ -10645,6 +10721,14 @@ Partial Public Class DS
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property sortkeyColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnsortkey
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false)> _
|
||||
@@ -10707,9 +10791,10 @@ Partial Public Class DS
|
||||
ByVal 공기식태양열적용 As String, _
|
||||
ByVal 집열기방위 As String, _
|
||||
ByVal 집열기면적 As String, _
|
||||
ByVal 집열기방사율 As String) As tbl_kongjoRow
|
||||
ByVal 집열기방사율 As String, _
|
||||
ByVal sortkey As Short) As tbl_kongjoRow
|
||||
Dim rowtbl_kongjoRow As tbl_kongjoRow = CType(Me.NewRow,tbl_kongjoRow)
|
||||
Dim columnValuesArray() As Object = New Object() {code, 설명, 공조방식, 설정치난방, 설정치냉방, 최대풍량, 리턴공기혼합여부, 가습기유형, 외기냉방제어유무, 열교환기유형, 열회수율, 총압력손실급기팬, 총압력손실배기팬, 총효율급기팬, 총효율배기팬, 열회수율냉, 팬효율산출방식, 급기풍량, 배기풍량, 급기팬동력, 배기팬동력, 공기식태양열적용, 집열기방위, 집열기면적, 집열기방사율}
|
||||
Dim columnValuesArray() As Object = New Object() {code, 설명, 공조방식, 설정치난방, 설정치냉방, 최대풍량, 리턴공기혼합여부, 가습기유형, 외기냉방제어유무, 열교환기유형, 열회수율, 총압력손실급기팬, 총압력손실배기팬, 총효율급기팬, 총효율배기팬, 열회수율냉, 팬효율산출방식, 급기풍량, 배기풍량, 급기팬동력, 배기팬동력, 공기식태양열적용, 집열기방위, 집열기면적, 집열기방사율, sortkey}
|
||||
rowtbl_kongjoRow.ItemArray = columnValuesArray
|
||||
Me.Rows.Add(rowtbl_kongjoRow)
|
||||
Return rowtbl_kongjoRow
|
||||
@@ -10763,6 +10848,7 @@ Partial Public Class DS
|
||||
Me.column집열기방위 = MyBase.Columns("집열기방위")
|
||||
Me.column집열기면적 = MyBase.Columns("집열기면적")
|
||||
Me.column집열기방사율 = MyBase.Columns("집열기방사율")
|
||||
Me.columnsortkey = MyBase.Columns("sortkey")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -10818,6 +10904,8 @@ Partial Public Class DS
|
||||
MyBase.Columns.Add(Me.column집열기면적)
|
||||
Me.column집열기방사율 = New Global.System.Data.DataColumn("집열기방사율", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.column집열기방사율)
|
||||
Me.columnsortkey = New Global.System.Data.DataColumn("sortkey", GetType(Short), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnsortkey)
|
||||
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode}, true))
|
||||
Me.columncode.AllowDBNull = false
|
||||
Me.columncode.Unique = true
|
||||
@@ -10849,6 +10937,7 @@ Partial Public Class DS
|
||||
Me.column배기팬동력.DefaultValue = CType("",String)
|
||||
Me.column공기식태양열적용.DefaultValue = CType("아니오",String)
|
||||
Me.column집열기방위.DefaultValue = CType("없음",String)
|
||||
Me.columnsortkey.DefaultValue = CType(1,Short)
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -11016,6 +11105,8 @@ Partial Public Class DS
|
||||
|
||||
Private column추가펌프수 As Global.System.Data.DataColumn
|
||||
|
||||
Private columnsortkey As Global.System.Data.DataColumn
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub New()
|
||||
@@ -11171,6 +11262,14 @@ Partial Public Class DS
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property sortkeyColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnsortkey
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false)> _
|
||||
@@ -11208,9 +11307,25 @@ Partial Public Class DS
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Overloads Function Addtbl_kongkubRow(ByVal code As String, ByVal 설명 As String, ByVal 열공급시스템 As String, ByVal 열공급생산기기 As String, ByVal 노출형제어 As String, ByVal 바닥난방열제어 As String, ByVal 바닥난방열건축부위 As String, ByVal 바닥난방전기제어 As String, ByVal 바닥난방전기건축부위 As String, ByVal 전기난방제어 As String, ByVal 제어기의정격전력 As String, ByVal 팬송풍기정격전력 As String, ByVal 펌프정격전력 As String, ByVal 팬송풍기수 As String, ByVal 추가펌프수 As String) As tbl_kongkubRow
|
||||
Public Overloads Function Addtbl_kongkubRow( _
|
||||
ByVal code As String, _
|
||||
ByVal 설명 As String, _
|
||||
ByVal 열공급시스템 As String, _
|
||||
ByVal 열공급생산기기 As String, _
|
||||
ByVal 노출형제어 As String, _
|
||||
ByVal 바닥난방열제어 As String, _
|
||||
ByVal 바닥난방열건축부위 As String, _
|
||||
ByVal 바닥난방전기제어 As String, _
|
||||
ByVal 바닥난방전기건축부위 As String, _
|
||||
ByVal 전기난방제어 As String, _
|
||||
ByVal 제어기의정격전력 As String, _
|
||||
ByVal 팬송풍기정격전력 As String, _
|
||||
ByVal 펌프정격전력 As String, _
|
||||
ByVal 팬송풍기수 As String, _
|
||||
ByVal 추가펌프수 As String, _
|
||||
ByVal sortkey As Short) As tbl_kongkubRow
|
||||
Dim rowtbl_kongkubRow As tbl_kongkubRow = CType(Me.NewRow,tbl_kongkubRow)
|
||||
Dim columnValuesArray() As Object = New Object() {code, 설명, 열공급시스템, 열공급생산기기, 노출형제어, 바닥난방열제어, 바닥난방열건축부위, 바닥난방전기제어, 바닥난방전기건축부위, 전기난방제어, 제어기의정격전력, 팬송풍기정격전력, 펌프정격전력, 팬송풍기수, 추가펌프수}
|
||||
Dim columnValuesArray() As Object = New Object() {code, 설명, 열공급시스템, 열공급생산기기, 노출형제어, 바닥난방열제어, 바닥난방열건축부위, 바닥난방전기제어, 바닥난방전기건축부위, 전기난방제어, 제어기의정격전력, 팬송풍기정격전력, 펌프정격전력, 팬송풍기수, 추가펌프수, sortkey}
|
||||
rowtbl_kongkubRow.ItemArray = columnValuesArray
|
||||
Me.Rows.Add(rowtbl_kongkubRow)
|
||||
Return rowtbl_kongkubRow
|
||||
@@ -11254,6 +11369,7 @@ Partial Public Class DS
|
||||
Me.column펌프정격전력 = MyBase.Columns("펌프정격전력")
|
||||
Me.column팬송풍기수 = MyBase.Columns("팬송풍기수")
|
||||
Me.column추가펌프수 = MyBase.Columns("추가펌프수")
|
||||
Me.columnsortkey = MyBase.Columns("sortkey")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -11289,6 +11405,8 @@ Partial Public Class DS
|
||||
MyBase.Columns.Add(Me.column팬송풍기수)
|
||||
Me.column추가펌프수 = New Global.System.Data.DataColumn("추가펌프수", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.column추가펌프수)
|
||||
Me.columnsortkey = New Global.System.Data.DataColumn("sortkey", GetType(Short), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnsortkey)
|
||||
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columncode}, true))
|
||||
Me.columncode.AllowDBNull = false
|
||||
Me.columncode.Unique = true
|
||||
@@ -11312,6 +11430,7 @@ Partial Public Class DS
|
||||
Me.column펌프정격전력.DefaultValue = CType("",String)
|
||||
Me.column팬송풍기수.DefaultValue = CType("",String)
|
||||
Me.column추가펌프수.DefaultValue = CType("",String)
|
||||
Me.columnsortkey.DefaultValue = CType(1,Short)
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -20579,6 +20698,21 @@ Partial Public Class DS
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property sortkey() As Short
|
||||
Get
|
||||
If Me.IssortkeyNull Then
|
||||
Return 1
|
||||
Else
|
||||
Return CType(Me(Me.tabletbl_nanbangkiki.sortkeyColumn),Short)
|
||||
End If
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tabletbl_nanbangkiki.sortkeyColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function Is설명Null() As Boolean
|
||||
@@ -21046,6 +21180,18 @@ Partial Public Class DS
|
||||
Public Sub Set헤더적용Null()
|
||||
Me(Me.tabletbl_nanbangkiki.헤더적용Column) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function IssortkeyNull() As Boolean
|
||||
Return Me.IsNull(Me.tabletbl_nanbangkiki.sortkeyColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub SetsortkeyNull()
|
||||
Me(Me.tabletbl_nanbangkiki.sortkeyColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
@@ -21374,6 +21520,21 @@ Partial Public Class DS
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property sortkey() As Short
|
||||
Get
|
||||
If Me.IssortkeyNull Then
|
||||
Return 1
|
||||
Else
|
||||
Return CType(Me(Me.tabletbl_nangbangkiki.sortkeyColumn),Short)
|
||||
End If
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tabletbl_nangbangkiki.sortkeyColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function Is설명Null() As Boolean
|
||||
@@ -21613,6 +21774,18 @@ Partial Public Class DS
|
||||
Public Sub Set사용연료Null()
|
||||
Me(Me.tabletbl_nangbangkiki.사용연료Column) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function IssortkeyNull() As Boolean
|
||||
Return Me.IsNull(Me.tabletbl_nangbangkiki.sortkeyColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub SetsortkeyNull()
|
||||
Me(Me.tabletbl_nangbangkiki.sortkeyColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
@@ -21941,6 +22114,21 @@ Partial Public Class DS
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property sortkey() As Short
|
||||
Get
|
||||
If Me.IssortkeyNull Then
|
||||
Return 1
|
||||
Else
|
||||
Return CType(Me(Me.tabletbl_bunbae.sortkeyColumn),Short)
|
||||
End If
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tabletbl_bunbae.sortkeyColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function Is설명Null() As Boolean
|
||||
@@ -22180,6 +22368,18 @@ Partial Public Class DS
|
||||
Public Sub Set제어밸브압력손실Null()
|
||||
Me(Me.tabletbl_bunbae.제어밸브압력손실Column) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function IssortkeyNull() As Boolean
|
||||
Return Me.IsNull(Me.tabletbl_bunbae.sortkeyColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub SetsortkeyNull()
|
||||
Me(Me.tabletbl_bunbae.sortkeyColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
@@ -22958,6 +23158,21 @@ Partial Public Class DS
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property sortkey() As Short
|
||||
Get
|
||||
If Me.IssortkeyNull Then
|
||||
Return 1
|
||||
Else
|
||||
Return CType(Me(Me.tabletbl_new.sortkeyColumn),Short)
|
||||
End If
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tabletbl_new.sortkeyColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function Is설명Null() As Boolean
|
||||
@@ -23557,6 +23772,18 @@ Partial Public Class DS
|
||||
Public Sub Set대지외설치여부_풍력Null()
|
||||
Me(Me.tabletbl_new.대지외설치여부_풍력Column) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function IssortkeyNull() As Boolean
|
||||
Return Me.IsNull(Me.tabletbl_new.sortkeyColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub SetsortkeyNull()
|
||||
Me(Me.tabletbl_new.sortkeyColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
@@ -24779,6 +25006,21 @@ Partial Public Class DS
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property sortkey() As Short
|
||||
Get
|
||||
If Me.IssortkeyNull Then
|
||||
Return 1
|
||||
Else
|
||||
Return CType(Me(Me.tabletbl_nbunbae.sortkeyColumn),Short)
|
||||
End If
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tabletbl_nbunbae.sortkeyColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function Is설명Null() As Boolean
|
||||
@@ -24934,6 +25176,18 @@ Partial Public Class DS
|
||||
Public Sub Set지관장소Null()
|
||||
Me(Me.tabletbl_nbunbae.지관장소Column) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function IssortkeyNull() As Boolean
|
||||
Return Me.IsNull(Me.tabletbl_nbunbae.sortkeyColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub SetsortkeyNull()
|
||||
Me(Me.tabletbl_nbunbae.sortkeyColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
@@ -25322,6 +25576,21 @@ Partial Public Class DS
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property sortkey() As Short
|
||||
Get
|
||||
If Me.IssortkeyNull Then
|
||||
Return 1
|
||||
Else
|
||||
Return CType(Me(Me.tabletbl_kongjo.sortkeyColumn),Short)
|
||||
End If
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tabletbl_kongjo.sortkeyColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function Is설명Null() As Boolean
|
||||
@@ -25609,6 +25878,18 @@ Partial Public Class DS
|
||||
Public Sub Set집열기방사율Null()
|
||||
Me(Me.tabletbl_kongjo.집열기방사율Column) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function IssortkeyNull() As Boolean
|
||||
Return Me.IsNull(Me.tabletbl_kongjo.sortkeyColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub SetsortkeyNull()
|
||||
Me(Me.tabletbl_kongjo.sortkeyColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
@@ -25847,6 +26128,21 @@ Partial Public Class DS
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property sortkey() As Short
|
||||
Get
|
||||
If Me.IssortkeyNull Then
|
||||
Return 1
|
||||
Else
|
||||
Return CType(Me(Me.tabletbl_kongkub.sortkeyColumn),Short)
|
||||
End If
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tabletbl_kongkub.sortkeyColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function Is설명Null() As Boolean
|
||||
@@ -26014,6 +26310,18 @@ Partial Public Class DS
|
||||
Public Sub Set추가펌프수Null()
|
||||
Me(Me.tabletbl_kongkub.추가펌프수Column) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function IssortkeyNull() As Boolean
|
||||
Return Me.IsNull(Me.tabletbl_kongkub.sortkeyColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub SetsortkeyNull()
|
||||
Me(Me.tabletbl_kongkub.sortkeyColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
|
||||
@@ -1473,6 +1473,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code</Command
|
||||
<xs:element name="히트펌프시스템종류" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="히트펌프시스템종류" msprop:Generator_ColumnVarNameInTable="column히트펌프시스템종류" msprop:Generator_ColumnPropNameInTable="히트펌프시스템종류Column" msprop:Generator_UserColumnName="히트펌프시스템종류" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="개별기기적용" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="개별기기적용" msprop:Generator_ColumnVarNameInTable="column개별기기적용" msprop:Generator_ColumnPropNameInTable="개별기기적용Column" msprop:Generator_UserColumnName="개별기기적용" type="xs:boolean" default="false" minOccurs="0" />
|
||||
<xs:element name="헤더적용" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="헤더적용" msprop:Generator_ColumnVarNameInTable="column헤더적용" msprop:Generator_ColumnPropNameInTable="헤더적용Column" msprop:Generator_UserColumnName="헤더적용" type="xs:boolean" default="false" minOccurs="0" />
|
||||
<xs:element name="sortkey" msprop:nullValue="1" msprop:Generator_ColumnPropNameInRow="sortkey" msprop:Generator_ColumnVarNameInTable="columnsortkey" msprop:Generator_ColumnPropNameInTable="sortkeyColumn" msprop:Generator_UserColumnName="sortkey" type="xs:short" default="1" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
@@ -1536,6 +1537,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code</Command
|
||||
<xs:element name="개별기기적용" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="개별기기적용" msprop:Generator_ColumnVarNameInTable="column개별기기적용" msprop:Generator_ColumnPropNameInTable="개별기기적용Column" msprop:Generator_UserColumnName="개별기기적용" type="xs:boolean" default="false" minOccurs="0" />
|
||||
<xs:element name="헤더적용" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="헤더적용" msprop:Generator_ColumnVarNameInTable="column헤더적용" msprop:Generator_ColumnPropNameInTable="헤더적용Column" msprop:Generator_UserColumnName="헤더적용" type="xs:boolean" default="false" minOccurs="0" />
|
||||
<xs:element name="사용연료" msprop:nullValue="_null" msprop:Generator_ColumnPropNameInRow="사용연료" msprop:Generator_ColumnVarNameInTable="column사용연료" msprop:Generator_ColumnPropNameInTable="사용연료Column" msprop:Generator_UserColumnName="사용연료" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="sortkey" msprop:nullValue="1" msprop:Generator_ColumnPropNameInRow="sortkey" msprop:Generator_ColumnVarNameInTable="columnsortkey" msprop:Generator_ColumnPropNameInTable="sortkeyColumn" msprop:Generator_UserColumnName="sortkey" type="xs:short" default="1" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
@@ -1581,6 +1583,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code</Command
|
||||
<xs:element name="생산기기압력손실" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="생산기기압력손실" msprop:Generator_ColumnVarNameInTable="column생산기기압력손실" msprop:Generator_ColumnPropNameInTable="생산기기압력손실Column" msprop:Generator_UserColumnName="생산기기압력손실" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="사용기기압력손실" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="사용기기압력손실" msprop:Generator_ColumnVarNameInTable="column사용기기압력손실" msprop:Generator_ColumnPropNameInTable="사용기기압력손실Column" msprop:Generator_UserColumnName="사용기기압력손실" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="제어밸브압력손실" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="제어밸브압력손실" msprop:Generator_ColumnVarNameInTable="column제어밸브압력손실" msprop:Generator_ColumnPropNameInTable="제어밸브압력손실Column" msprop:Generator_UserColumnName="제어밸브압력손실" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="sortkey" msprop:nullValue="1" msprop:Generator_ColumnPropNameInRow="sortkey" msprop:Generator_ColumnVarNameInTable="columnsortkey" msprop:Generator_ColumnPropNameInTable="sortkeyColumn" msprop:Generator_UserColumnName="sortkey" type="xs:short" default="1" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
@@ -1650,6 +1653,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code</Command
|
||||
<xs:element name="수열_열성능비_냉방25도" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="수열_열성능비_냉방25도" msprop:Generator_ColumnVarNameInTable="column수열_열성능비_냉방25도" msprop:Generator_ColumnPropNameInTable="수열_열성능비_냉방25도Column" msprop:Generator_UserColumnName="수열_열성능비_냉방25도" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="수열_열성능비_냉방35도" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="수열_열성능비_냉방35도" msprop:Generator_ColumnVarNameInTable="column수열_열성능비_냉방35도" msprop:Generator_ColumnPropNameInTable="수열_열성능비_냉방35도Column" msprop:Generator_UserColumnName="수열_열성능비_냉방35도" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="대지외설치여부_풍력" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="대지외설치여부_풍력" msprop:Generator_ColumnVarNameInTable="column대지외설치여부_풍력" msprop:Generator_ColumnPropNameInTable="대지외설치여부_풍력Column" msprop:Generator_UserColumnName="대지외설치여부_풍력" type="xs:boolean" minOccurs="0" />
|
||||
<xs:element name="sortkey" msprop:nullValue="1" msprop:Generator_ColumnPropNameInRow="sortkey" msprop:Generator_ColumnVarNameInTable="columnsortkey" msprop:Generator_ColumnPropNameInTable="sortkeyColumn" msprop:Generator_UserColumnName="sortkey" type="xs:short" default="1" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
@@ -1731,6 +1735,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code</Command
|
||||
<xs:element name="층수" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="층수" msprop:Generator_ColumnVarNameInTable="column층수" msprop:Generator_ColumnPropNameInTable="층수Column" msprop:Generator_UserColumnName="층수" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="층고" msprop:nullValue="" msprop:Generator_ColumnPropNameInRow="층고" msprop:Generator_ColumnVarNameInTable="column층고" msprop:Generator_ColumnPropNameInTable="층고Column" msprop:Generator_UserColumnName="층고" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="지관장소" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="지관장소" msprop:Generator_ColumnVarNameInTable="column지관장소" msprop:Generator_ColumnPropNameInTable="지관장소Column" msprop:Generator_UserColumnName="지관장소" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="sortkey" msprop:nullValue="1" msprop:Generator_ColumnPropNameInRow="sortkey" msprop:Generator_ColumnVarNameInTable="columnsortkey" msprop:Generator_ColumnPropNameInTable="sortkeyColumn" msprop:Generator_UserColumnName="sortkey" type="xs:short" default="1" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
@@ -2104,6 +2109,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code</Command
|
||||
<xs:element name="집열기방위" msprop:nullValue="없음" msprop:Generator_ColumnPropNameInRow="집열기방위" msprop:Generator_ColumnVarNameInTable="column집열기방위" msprop:Generator_ColumnPropNameInTable="집열기방위Column" msprop:Generator_UserColumnName="집열기방위" type="xs:string" default="없음" minOccurs="0" />
|
||||
<xs:element name="집열기면적" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="집열기면적" msprop:Generator_ColumnVarNameInTable="column집열기면적" msprop:Generator_ColumnPropNameInTable="집열기면적Column" msprop:Generator_UserColumnName="집열기면적" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="집열기방사율" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="집열기방사율" msprop:Generator_ColumnVarNameInTable="column집열기방사율" msprop:Generator_ColumnPropNameInTable="집열기방사율Column" msprop:Generator_UserColumnName="집열기방사율" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="sortkey" msprop:nullValue="1" msprop:Generator_ColumnPropNameInRow="sortkey" msprop:Generator_ColumnVarNameInTable="columnsortkey" msprop:Generator_ColumnPropNameInTable="sortkeyColumn" msprop:Generator_UserColumnName="sortkey" type="xs:short" default="1" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
@@ -2161,6 +2167,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code</Command
|
||||
<xs:element name="펌프정격전력" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="펌프정격전력" msprop:Generator_ColumnVarNameInTable="column펌프정격전력" msprop:Generator_ColumnPropNameInTable="펌프정격전력Column" msprop:Generator_UserColumnName="펌프정격전력" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="팬송풍기수" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="팬송풍기수" msprop:Generator_ColumnVarNameInTable="column팬송풍기수" msprop:Generator_ColumnPropNameInTable="팬송풍기수Column" msprop:Generator_UserColumnName="팬송풍기수" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="추가펌프수" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="추가펌프수" msprop:Generator_ColumnVarNameInTable="column추가펌프수" msprop:Generator_ColumnPropNameInTable="추가펌프수Column" msprop:Generator_UserColumnName="추가펌프수" type="xs:string" default="" minOccurs="0" />
|
||||
<xs:element name="sortkey" msprop:nullValue="1" msprop:Generator_ColumnPropNameInRow="sortkey" msprop:Generator_ColumnVarNameInTable="columnsortkey" msprop:Generator_ColumnPropNameInTable="sortkeyColumn" msprop:Generator_UserColumnName="sortkey" type="xs:short" default="1" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
|
||||
@@ -4,34 +4,34 @@
|
||||
Changes to this file may cause incorrect behavior and will be lost if
|
||||
the code is regenerated.
|
||||
</autogenerated>-->
|
||||
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="True" ViewPortX="-10" ViewPortY="-15" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
|
||||
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="True" ViewPortX="479" ViewPortY="-15" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
|
||||
<Shapes>
|
||||
<Shape ID="DesignTable:weather_cha" ZOrder="7" X="944" Y="359" Height="305" Width="217" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
|
||||
<Shape ID="DesignTable:weather_temp" ZOrder="18" X="162" Y="330" Height="305" Width="228" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
|
||||
<Shape ID="DesignTable:tbl_weather" ZOrder="3" X="562" Y="474" Height="376" Width="211" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="308" />
|
||||
<Shape ID="DesignTable:weather_ilsa" ZOrder="23" X="192" Y="676" Height="153" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="102" />
|
||||
<Shape ID="DesignTable:weather_supdo" ZOrder="21" X="25" Y="665" Height="149" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="59" />
|
||||
<Shape ID="DesignTable:tbl_profile" ZOrder="8" X="784" Y="474" Height="187" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="97" />
|
||||
<Shape ID="DesignTable:tbl_common" ZOrder="12" X="1188" Y="569" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
|
||||
<Shape ID="DesignTable:weather_group" ZOrder="6" X="1167" Y="383" Height="172" Width="233" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
|
||||
<Shape ID="DesignTable:tbl_pic" ZOrder="11" X="588" Y="45" Height="67" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
|
||||
<Shape ID="DesignTable:tbl_nanbangkiki" ZOrder="26" X="14" Y="81" Height="257" Width="159" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
|
||||
<Shape ID="DesignTable:tbl_nangbangkiki" ZOrder="25" X="182" Y="81" Height="257" Width="166" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
|
||||
<Shape ID="DesignTable:tbl_bunbae" ZOrder="19" X="252" Y="98" Height="257" Width="153" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
|
||||
<Shape ID="DesignTable:tbl_new" ZOrder="15" X="524" Y="124" Height="257" Width="194" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
|
||||
<Shape ID="DesignTable:tbl_myoun" ZOrder="10" X="1590" Y="60" Height="828" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="824" />
|
||||
<Shape ID="DesignTable:tbl_buha" ZOrder="24" X="854" Y="81" Height="257" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
|
||||
<Shape ID="DesignTable:tbl_nbunbae" ZOrder="13" X="1022" Y="81" Height="257" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
|
||||
<Shape ID="DesignTable:tbl_kongjo" ZOrder="4" X="1190" Y="86" Height="257" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
|
||||
<Shape ID="DesignTable:tbl_kongkub" ZOrder="14" X="735" Y="114" Height="257" Width="165" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
|
||||
<Shape ID="DesignTable:tbl_yk" ZOrder="16" X="1021" Y="609" Height="238" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="234" />
|
||||
<Shape ID="DesignTable:tbl_ykdetail" ZOrder="20" X="573" Y="385" Height="219" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="215" />
|
||||
<Shape ID="DesignTable:tbl_zone" ZOrder="9" X="1414" Y="58" Height="847" Width="177" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="843" />
|
||||
<Shape ID="DesignTable:tbl_monuse" ZOrder="22" X="481" Y="21" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
|
||||
<Shape ID="DesignTable:tbl_Desc" ZOrder="17" X="392" Y="357" Height="466" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="462" />
|
||||
<Shape ID="DesignTable:weather_wind" ZOrder="1" X="-7" Y="-5" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
|
||||
<Shape ID="DesignTable:weather_river" ZOrder="5" X="347" Y="-3" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
|
||||
<Shape ID="DesignTable:weather_water" ZOrder="2" X="177" Y="-5" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="86" />
|
||||
<Shape ID="DesignTable:weather_cha" ZOrder="1" X="944" Y="359" Height="305" Width="217" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
|
||||
<Shape ID="DesignTable:weather_temp" ZOrder="11" X="162" Y="330" Height="305" Width="228" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
|
||||
<Shape ID="DesignTable:tbl_weather" ZOrder="3" X="745" Y="410" Height="376" Width="211" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="308" />
|
||||
<Shape ID="DesignTable:weather_ilsa" ZOrder="10" X="192" Y="676" Height="153" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="102" />
|
||||
<Shape ID="DesignTable:weather_supdo" ZOrder="26" X="25" Y="665" Height="149" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="59" />
|
||||
<Shape ID="DesignTable:tbl_profile" ZOrder="21" X="778" Y="326" Height="477" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="387" />
|
||||
<Shape ID="DesignTable:tbl_common" ZOrder="25" X="1188" Y="569" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
|
||||
<Shape ID="DesignTable:weather_group" ZOrder="20" X="1167" Y="383" Height="172" Width="233" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
|
||||
<Shape ID="DesignTable:tbl_pic" ZOrder="24" X="588" Y="45" Height="67" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
|
||||
<Shape ID="DesignTable:tbl_nanbangkiki" ZOrder="15" X="14" Y="81" Height="543" Width="159" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="539" />
|
||||
<Shape ID="DesignTable:tbl_nangbangkiki" ZOrder="13" X="182" Y="81" Height="638" Width="166" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="634" />
|
||||
<Shape ID="DesignTable:tbl_bunbae" ZOrder="14" X="397" Y="71" Height="562" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="558" />
|
||||
<Shape ID="DesignTable:tbl_new" ZOrder="9" X="393" Y="125" Height="562" Width="194" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="558" />
|
||||
<Shape ID="DesignTable:tbl_myoun" ZOrder="23" X="1590" Y="60" Height="828" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="824" />
|
||||
<Shape ID="DesignTable:tbl_buha" ZOrder="4" X="1216" Y="58" Height="257" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
|
||||
<Shape ID="DesignTable:tbl_nbunbae" ZOrder="5" X="877" Y="70" Height="257" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
|
||||
<Shape ID="DesignTable:tbl_kongjo" ZOrder="18" X="1014" Y="11" Height="600" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="596" />
|
||||
<Shape ID="DesignTable:tbl_kongkub" ZOrder="7" X="599" Y="121" Height="695" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="691" />
|
||||
<Shape ID="DesignTable:tbl_yk" ZOrder="6" X="1021" Y="609" Height="238" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="234" />
|
||||
<Shape ID="DesignTable:tbl_ykdetail" ZOrder="2" X="573" Y="385" Height="219" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="215" />
|
||||
<Shape ID="DesignTable:tbl_zone" ZOrder="22" X="1414" Y="58" Height="847" Width="177" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="843" />
|
||||
<Shape ID="DesignTable:tbl_monuse" ZOrder="8" X="823" Y="-1" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
|
||||
<Shape ID="DesignTable:tbl_Desc" ZOrder="12" X="392" Y="357" Height="466" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="462" />
|
||||
<Shape ID="DesignTable:weather_wind" ZOrder="16" X="-7" Y="-5" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
|
||||
<Shape ID="DesignTable:weather_river" ZOrder="19" X="347" Y="-3" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
|
||||
<Shape ID="DesignTable:weather_water" ZOrder="17" X="177" Y="-5" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="86" />
|
||||
</Shapes>
|
||||
<Connectors />
|
||||
</DiagramLayout>
|
||||
551
ArinWarev1/DataSet/DSR.Designer.vb
generated
551
ArinWarev1/DataSet/DSR.Designer.vb
generated
@@ -4565,6 +4565,32 @@ Partial Public Class DSR
|
||||
|
||||
Private column전력풍력offsite As Global.System.Data.DataColumn
|
||||
|
||||
Private column면적당생산량태양열_난방 As Global.System.Data.DataColumn
|
||||
|
||||
Private column면적당생산량태양열_냉방 As Global.System.Data.DataColumn
|
||||
|
||||
Private column면적당생산량태양열_급탕 As Global.System.Data.DataColumn
|
||||
|
||||
Private column면적당생산량지열_난방 As Global.System.Data.DataColumn
|
||||
|
||||
Private column면적당생산량지열_냉방 As Global.System.Data.DataColumn
|
||||
|
||||
Private column면적당생산량지열_급탕 As Global.System.Data.DataColumn
|
||||
|
||||
Private column신재생면적당열생산량_난방 As Global.System.Data.DataColumn
|
||||
|
||||
Private column신재생면적당열생산량_급탕 As Global.System.Data.DataColumn
|
||||
|
||||
Private column신재생면적당열생산량_냉방 As Global.System.Data.DataColumn
|
||||
|
||||
Private column면적당생산량수열_난방 As Global.System.Data.DataColumn
|
||||
|
||||
Private column면적당생산량수열_냉방 As Global.System.Data.DataColumn
|
||||
|
||||
Private column면적당생산량수열_급탕 As Global.System.Data.DataColumn
|
||||
|
||||
Private column신재생열병합열생산량 As Global.System.Data.DataColumn
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub New()
|
||||
@@ -4712,6 +4738,110 @@ Partial Public Class DSR
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property 면적당생산량태양열_난방Column() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.column면적당생산량태양열_난방
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property 면적당생산량태양열_냉방Column() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.column면적당생산량태양열_냉방
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property 면적당생산량태양열_급탕Column() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.column면적당생산량태양열_급탕
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property 면적당생산량지열_난방Column() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.column면적당생산량지열_난방
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property 면적당생산량지열_냉방Column() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.column면적당생산량지열_냉방
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property 면적당생산량지열_급탕Column() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.column면적당생산량지열_급탕
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property 신재생면적당열생산량_난방Column() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.column신재생면적당열생산량_난방
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property 신재생면적당열생산량_급탕Column() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.column신재생면적당열생산량_급탕
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property 신재생면적당열생산량_냉방Column() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.column신재생면적당열생산량_냉방
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property 면적당생산량수열_난방Column() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.column면적당생산량수열_난방
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property 면적당생산량수열_냉방Column() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.column면적당생산량수열_냉방
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property 면적당생산량수열_급탕Column() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.column면적당생산량수열_급탕
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property 신재생열병합열생산량Column() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.column신재생열병합열생산량
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false)> _
|
||||
@@ -4749,9 +4879,36 @@ Partial Public Class DSR
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Overloads Function Add생산에너지Row(ByVal mon As String, ByVal 전력태양광 As String, ByVal 전력태양광offsite As String, ByVal 전력열병합 As String, ByVal 생산량태양열 As String, ByVal 생산량지열 As String, ByVal 면적당생산량태양열 As Decimal, ByVal 면적당생산량지열 As Decimal, ByVal 신재생열병합전력생산량 As String, ByVal 신재생면적당열생산량 As String, ByVal 전력풍력 As String, ByVal 생산량수열 As String, ByVal 면적당생산량수열 As String, ByVal 전력풍력offsite As String) As 생산에너지Row
|
||||
Public Overloads Function Add생산에너지Row( _
|
||||
ByVal mon As String, _
|
||||
ByVal 전력태양광 As String, _
|
||||
ByVal 전력태양광offsite As String, _
|
||||
ByVal 전력열병합 As String, _
|
||||
ByVal 생산량태양열 As String, _
|
||||
ByVal 생산량지열 As String, _
|
||||
ByVal 면적당생산량태양열 As Decimal, _
|
||||
ByVal 면적당생산량지열 As Decimal, _
|
||||
ByVal 신재생열병합전력생산량 As String, _
|
||||
ByVal 신재생면적당열생산량 As String, _
|
||||
ByVal 전력풍력 As String, _
|
||||
ByVal 생산량수열 As String, _
|
||||
ByVal 면적당생산량수열 As String, _
|
||||
ByVal 전력풍력offsite As String, _
|
||||
ByVal 면적당생산량태양열_난방 As String, _
|
||||
ByVal 면적당생산량태양열_냉방 As String, _
|
||||
ByVal 면적당생산량태양열_급탕 As String, _
|
||||
ByVal 면적당생산량지열_난방 As String, _
|
||||
ByVal 면적당생산량지열_냉방 As String, _
|
||||
ByVal 면적당생산량지열_급탕 As String, _
|
||||
ByVal 신재생면적당열생산량_난방 As String, _
|
||||
ByVal 신재생면적당열생산량_급탕 As String, _
|
||||
ByVal 신재생면적당열생산량_냉방 As String, _
|
||||
ByVal 면적당생산량수열_난방 As String, _
|
||||
ByVal 면적당생산량수열_냉방 As String, _
|
||||
ByVal 면적당생산량수열_급탕 As String, _
|
||||
ByVal 신재생열병합열생산량 As String) As 생산에너지Row
|
||||
Dim row생산에너지Row As 생산에너지Row = CType(Me.NewRow,생산에너지Row)
|
||||
Dim columnValuesArray() As Object = New Object() {mon, 전력태양광, 전력태양광offsite, 전력열병합, 생산량태양열, 생산량지열, 면적당생산량태양열, 면적당생산량지열, 신재생열병합전력생산량, 신재생면적당열생산량, 전력풍력, 생산량수열, 면적당생산량수열, 전력풍력offsite}
|
||||
Dim columnValuesArray() As Object = New Object() {mon, 전력태양광, 전력태양광offsite, 전력열병합, 생산량태양열, 생산량지열, 면적당생산량태양열, 면적당생산량지열, 신재생열병합전력생산량, 신재생면적당열생산량, 전력풍력, 생산량수열, 면적당생산량수열, 전력풍력offsite, 면적당생산량태양열_난방, 면적당생산량태양열_냉방, 면적당생산량태양열_급탕, 면적당생산량지열_난방, 면적당생산량지열_냉방, 면적당생산량지열_급탕, 신재생면적당열생산량_난방, 신재생면적당열생산량_급탕, 신재생면적당열생산량_냉방, 면적당생산량수열_난방, 면적당생산량수열_냉방, 면적당생산량수열_급탕, 신재생열병합열생산량}
|
||||
row생산에너지Row.ItemArray = columnValuesArray
|
||||
Me.Rows.Add(row생산에너지Row)
|
||||
Return row생산에너지Row
|
||||
@@ -4788,6 +4945,19 @@ Partial Public Class DSR
|
||||
Me.column생산량수열 = MyBase.Columns("생산량수열")
|
||||
Me.column면적당생산량수열 = MyBase.Columns("면적당생산량수열")
|
||||
Me.column전력풍력offsite = MyBase.Columns("전력풍력offsite")
|
||||
Me.column면적당생산량태양열_난방 = MyBase.Columns("면적당생산량태양열_난방")
|
||||
Me.column면적당생산량태양열_냉방 = MyBase.Columns("면적당생산량태양열_냉방")
|
||||
Me.column면적당생산량태양열_급탕 = MyBase.Columns("면적당생산량태양열_급탕")
|
||||
Me.column면적당생산량지열_난방 = MyBase.Columns("면적당생산량지열_난방")
|
||||
Me.column면적당생산량지열_냉방 = MyBase.Columns("면적당생산량지열_냉방")
|
||||
Me.column면적당생산량지열_급탕 = MyBase.Columns("면적당생산량지열_급탕")
|
||||
Me.column신재생면적당열생산량_난방 = MyBase.Columns("신재생면적당열생산량_난방")
|
||||
Me.column신재생면적당열생산량_급탕 = MyBase.Columns("신재생면적당열생산량_급탕")
|
||||
Me.column신재생면적당열생산량_냉방 = MyBase.Columns("신재생면적당열생산량_냉방")
|
||||
Me.column면적당생산량수열_난방 = MyBase.Columns("면적당생산량수열_난방")
|
||||
Me.column면적당생산량수열_냉방 = MyBase.Columns("면적당생산량수열_냉방")
|
||||
Me.column면적당생산량수열_급탕 = MyBase.Columns("면적당생산량수열_급탕")
|
||||
Me.column신재생열병합열생산량 = MyBase.Columns("신재생열병합열생산량")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -4821,6 +4991,32 @@ Partial Public Class DSR
|
||||
MyBase.Columns.Add(Me.column면적당생산량수열)
|
||||
Me.column전력풍력offsite = New Global.System.Data.DataColumn("전력풍력offsite", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.column전력풍력offsite)
|
||||
Me.column면적당생산량태양열_난방 = New Global.System.Data.DataColumn("면적당생산량태양열_난방", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.column면적당생산량태양열_난방)
|
||||
Me.column면적당생산량태양열_냉방 = New Global.System.Data.DataColumn("면적당생산량태양열_냉방", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.column면적당생산량태양열_냉방)
|
||||
Me.column면적당생산량태양열_급탕 = New Global.System.Data.DataColumn("면적당생산량태양열_급탕", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.column면적당생산량태양열_급탕)
|
||||
Me.column면적당생산량지열_난방 = New Global.System.Data.DataColumn("면적당생산량지열_난방", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.column면적당생산량지열_난방)
|
||||
Me.column면적당생산량지열_냉방 = New Global.System.Data.DataColumn("면적당생산량지열_냉방", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.column면적당생산량지열_냉방)
|
||||
Me.column면적당생산량지열_급탕 = New Global.System.Data.DataColumn("면적당생산량지열_급탕", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.column면적당생산량지열_급탕)
|
||||
Me.column신재생면적당열생산량_난방 = New Global.System.Data.DataColumn("신재생면적당열생산량_난방", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.column신재생면적당열생산량_난방)
|
||||
Me.column신재생면적당열생산량_급탕 = New Global.System.Data.DataColumn("신재생면적당열생산량_급탕", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.column신재생면적당열생산량_급탕)
|
||||
Me.column신재생면적당열생산량_냉방 = New Global.System.Data.DataColumn("신재생면적당열생산량_냉방", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.column신재생면적당열생산량_냉방)
|
||||
Me.column면적당생산량수열_난방 = New Global.System.Data.DataColumn("면적당생산량수열_난방", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.column면적당생산량수열_난방)
|
||||
Me.column면적당생산량수열_냉방 = New Global.System.Data.DataColumn("면적당생산량수열_냉방", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.column면적당생산량수열_냉방)
|
||||
Me.column면적당생산량수열_급탕 = New Global.System.Data.DataColumn("면적당생산량수열_급탕", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.column면적당생산량수열_급탕)
|
||||
Me.column신재생열병합열생산량 = New Global.System.Data.DataColumn("신재생열병합열생산량", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.column신재생열병합열생산량)
|
||||
Me.column전력태양광.Caption = "에너지요구량"
|
||||
Me.column전력태양광.DefaultValue = CType("0",String)
|
||||
Me.column전력태양광offsite.DefaultValue = CType("0",String)
|
||||
@@ -11160,6 +11356,201 @@ Partial Public Class DSR
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property 면적당생산량태양열_난방() As String
|
||||
Get
|
||||
If Me.Is면적당생산량태양열_난방Null Then
|
||||
Return "0"
|
||||
Else
|
||||
Return CType(Me(Me.table생산에너지.면적당생산량태양열_난방Column),String)
|
||||
End If
|
||||
End Get
|
||||
Set
|
||||
Me(Me.table생산에너지.면적당생산량태양열_난방Column) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property 면적당생산량태양열_냉방() As String
|
||||
Get
|
||||
If Me.Is면적당생산량태양열_냉방Null Then
|
||||
Return "0"
|
||||
Else
|
||||
Return CType(Me(Me.table생산에너지.면적당생산량태양열_냉방Column),String)
|
||||
End If
|
||||
End Get
|
||||
Set
|
||||
Me(Me.table생산에너지.면적당생산량태양열_냉방Column) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property 면적당생산량태양열_급탕() As String
|
||||
Get
|
||||
If Me.Is면적당생산량태양열_급탕Null Then
|
||||
Return "0"
|
||||
Else
|
||||
Return CType(Me(Me.table생산에너지.면적당생산량태양열_급탕Column),String)
|
||||
End If
|
||||
End Get
|
||||
Set
|
||||
Me(Me.table생산에너지.면적당생산량태양열_급탕Column) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property 면적당생산량지열_난방() As String
|
||||
Get
|
||||
If Me.Is면적당생산량지열_난방Null Then
|
||||
Return "0"
|
||||
Else
|
||||
Return CType(Me(Me.table생산에너지.면적당생산량지열_난방Column),String)
|
||||
End If
|
||||
End Get
|
||||
Set
|
||||
Me(Me.table생산에너지.면적당생산량지열_난방Column) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property 면적당생산량지열_냉방() As String
|
||||
Get
|
||||
If Me.Is면적당생산량지열_냉방Null Then
|
||||
Return "0"
|
||||
Else
|
||||
Return CType(Me(Me.table생산에너지.면적당생산량지열_냉방Column),String)
|
||||
End If
|
||||
End Get
|
||||
Set
|
||||
Me(Me.table생산에너지.면적당생산량지열_냉방Column) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property 면적당생산량지열_급탕() As String
|
||||
Get
|
||||
If Me.Is면적당생산량지열_급탕Null Then
|
||||
Return "0"
|
||||
Else
|
||||
Return CType(Me(Me.table생산에너지.면적당생산량지열_급탕Column),String)
|
||||
End If
|
||||
End Get
|
||||
Set
|
||||
Me(Me.table생산에너지.면적당생산량지열_급탕Column) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property 신재생면적당열생산량_난방() As String
|
||||
Get
|
||||
If Me.Is신재생면적당열생산량_난방Null Then
|
||||
Return "0"
|
||||
Else
|
||||
Return CType(Me(Me.table생산에너지.신재생면적당열생산량_난방Column),String)
|
||||
End If
|
||||
End Get
|
||||
Set
|
||||
Me(Me.table생산에너지.신재생면적당열생산량_난방Column) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property 신재생면적당열생산량_급탕() As String
|
||||
Get
|
||||
If Me.Is신재생면적당열생산량_급탕Null Then
|
||||
Return "0"
|
||||
Else
|
||||
Return CType(Me(Me.table생산에너지.신재생면적당열생산량_급탕Column),String)
|
||||
End If
|
||||
End Get
|
||||
Set
|
||||
Me(Me.table생산에너지.신재생면적당열생산량_급탕Column) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property 신재생면적당열생산량_냉방() As String
|
||||
Get
|
||||
If Me.Is신재생면적당열생산량_냉방Null Then
|
||||
Return "0"
|
||||
Else
|
||||
Return CType(Me(Me.table생산에너지.신재생면적당열생산량_냉방Column),String)
|
||||
End If
|
||||
End Get
|
||||
Set
|
||||
Me(Me.table생산에너지.신재생면적당열생산량_냉방Column) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property 면적당생산량수열_난방() As String
|
||||
Get
|
||||
If Me.Is면적당생산량수열_난방Null Then
|
||||
Return "0"
|
||||
Else
|
||||
Return CType(Me(Me.table생산에너지.면적당생산량수열_난방Column),String)
|
||||
End If
|
||||
End Get
|
||||
Set
|
||||
Me(Me.table생산에너지.면적당생산량수열_난방Column) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property 면적당생산량수열_냉방() As String
|
||||
Get
|
||||
If Me.Is면적당생산량수열_냉방Null Then
|
||||
Return "0"
|
||||
Else
|
||||
Return CType(Me(Me.table생산에너지.면적당생산량수열_냉방Column),String)
|
||||
End If
|
||||
End Get
|
||||
Set
|
||||
Me(Me.table생산에너지.면적당생산량수열_냉방Column) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property 면적당생산량수열_급탕() As String
|
||||
Get
|
||||
If Me.Is면적당생산량수열_급탕Null Then
|
||||
Return "0"
|
||||
Else
|
||||
Return CType(Me(Me.table생산에너지.면적당생산량수열_급탕Column),String)
|
||||
End If
|
||||
End Get
|
||||
Set
|
||||
Me(Me.table생산에너지.면적당생산량수열_급탕Column) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property 신재생열병합열생산량() As String
|
||||
Get
|
||||
If Me.Is신재생열병합열생산량Null Then
|
||||
Return "0"
|
||||
Else
|
||||
Return CType(Me(Me.table생산에너지.신재생열병합열생산량Column),String)
|
||||
End If
|
||||
End Get
|
||||
Set
|
||||
Me(Me.table생산에너지.신재생열병합열생산량Column) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function IsmonNull() As Boolean
|
||||
@@ -11327,6 +11718,162 @@ Partial Public Class DSR
|
||||
Public Sub Set전력풍력offsiteNull()
|
||||
Me(Me.table생산에너지.전력풍력offsiteColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function Is면적당생산량태양열_난방Null() As Boolean
|
||||
Return Me.IsNull(Me.table생산에너지.면적당생산량태양열_난방Column)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub Set면적당생산량태양열_난방Null()
|
||||
Me(Me.table생산에너지.면적당생산량태양열_난방Column) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function Is면적당생산량태양열_냉방Null() As Boolean
|
||||
Return Me.IsNull(Me.table생산에너지.면적당생산량태양열_냉방Column)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub Set면적당생산량태양열_냉방Null()
|
||||
Me(Me.table생산에너지.면적당생산량태양열_냉방Column) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function Is면적당생산량태양열_급탕Null() As Boolean
|
||||
Return Me.IsNull(Me.table생산에너지.면적당생산량태양열_급탕Column)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub Set면적당생산량태양열_급탕Null()
|
||||
Me(Me.table생산에너지.면적당생산량태양열_급탕Column) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function Is면적당생산량지열_난방Null() As Boolean
|
||||
Return Me.IsNull(Me.table생산에너지.면적당생산량지열_난방Column)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub Set면적당생산량지열_난방Null()
|
||||
Me(Me.table생산에너지.면적당생산량지열_난방Column) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function Is면적당생산량지열_냉방Null() As Boolean
|
||||
Return Me.IsNull(Me.table생산에너지.면적당생산량지열_냉방Column)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub Set면적당생산량지열_냉방Null()
|
||||
Me(Me.table생산에너지.면적당생산량지열_냉방Column) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function Is면적당생산량지열_급탕Null() As Boolean
|
||||
Return Me.IsNull(Me.table생산에너지.면적당생산량지열_급탕Column)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub Set면적당생산량지열_급탕Null()
|
||||
Me(Me.table생산에너지.면적당생산량지열_급탕Column) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function Is신재생면적당열생산량_난방Null() As Boolean
|
||||
Return Me.IsNull(Me.table생산에너지.신재생면적당열생산량_난방Column)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub Set신재생면적당열생산량_난방Null()
|
||||
Me(Me.table생산에너지.신재생면적당열생산량_난방Column) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function Is신재생면적당열생산량_급탕Null() As Boolean
|
||||
Return Me.IsNull(Me.table생산에너지.신재생면적당열생산량_급탕Column)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub Set신재생면적당열생산량_급탕Null()
|
||||
Me(Me.table생산에너지.신재생면적당열생산량_급탕Column) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function Is신재생면적당열생산량_냉방Null() As Boolean
|
||||
Return Me.IsNull(Me.table생산에너지.신재생면적당열생산량_냉방Column)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub Set신재생면적당열생산량_냉방Null()
|
||||
Me(Me.table생산에너지.신재생면적당열생산량_냉방Column) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function Is면적당생산량수열_난방Null() As Boolean
|
||||
Return Me.IsNull(Me.table생산에너지.면적당생산량수열_난방Column)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub Set면적당생산량수열_난방Null()
|
||||
Me(Me.table생산에너지.면적당생산량수열_난방Column) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function Is면적당생산량수열_냉방Null() As Boolean
|
||||
Return Me.IsNull(Me.table생산에너지.면적당생산량수열_냉방Column)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub Set면적당생산량수열_냉방Null()
|
||||
Me(Me.table생산에너지.면적당생산량수열_냉방Column) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function Is면적당생산량수열_급탕Null() As Boolean
|
||||
Return Me.IsNull(Me.table생산에너지.면적당생산량수열_급탕Column)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub Set면적당생산량수열_급탕Null()
|
||||
Me(Me.table생산에너지.면적당생산량수열_급탕Column) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function Is신재생열병합열생산량Null() As Boolean
|
||||
Return Me.IsNull(Me.table생산에너지.신재생열병합열생산량Column)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub Set신재생열병합열생산량Null()
|
||||
Me(Me.table생산에너지.신재생열병합열생산량Column) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
|
||||
@@ -2,9 +2,17 @@
|
||||
|
||||
Partial Public Class DSR
|
||||
|
||||
Partial Class 생산에너지DataTable
|
||||
|
||||
Private Sub 생산에너지DataTable_생산에너지RowChanging(sender As System.Object, e As 생산에너지RowChangeEvent) Handles Me.생산에너지RowChanging
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
Partial Class 사용면적DataTable
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
@@ -185,7 +185,20 @@
|
||||
<xs:element name="전력풍력" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="전력풍력" msprop:Generator_ColumnVarNameInTable="column전력풍력" msprop:Generator_ColumnPropNameInTable="전력풍력Column" msprop:Generator_UserColumnName="전력풍력" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="생산량수열" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="생산량수열" msprop:Generator_ColumnVarNameInTable="column생산량수열" msprop:Generator_ColumnPropNameInTable="생산량수열Column" msprop:Generator_UserColumnName="생산량수열" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="면적당생산량수열" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="면적당생산량수열" msprop:Generator_ColumnVarNameInTable="column면적당생산량수열" msprop:Generator_ColumnPropNameInTable="면적당생산량수열Column" msprop:Generator_UserColumnName="면적당생산량수열" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="전력풍력offsite" msprop:Generator_ColumnVarNameInTable="column전력풍력offsite" msprop:Generator_ColumnPropNameInRow="전력풍력offsite" msprop:nullValue="0" msprop:Generator_ColumnPropNameInTable="전력풍력offsiteColumn" msprop:Generator_UserColumnName="전력풍력offsite" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="전력풍력offsite" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="전력풍력offsite" msprop:Generator_ColumnVarNameInTable="column전력풍력offsite" msprop:Generator_ColumnPropNameInTable="전력풍력offsiteColumn" msprop:Generator_UserColumnName="전력풍력offsite" type="xs:string" default="0" minOccurs="0" />
|
||||
<xs:element name="면적당생산량태양열_난방" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="면적당생산량태양열_난방" msprop:Generator_ColumnVarNameInTable="column면적당생산량태양열_난방" msprop:Generator_ColumnPropNameInTable="면적당생산량태양열_난방Column" msprop:Generator_UserColumnName="면적당생산량태양열_난방" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="면적당생산량태양열_냉방" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="면적당생산량태양열_냉방" msprop:Generator_ColumnVarNameInTable="column면적당생산량태양열_냉방" msprop:Generator_ColumnPropNameInTable="면적당생산량태양열_냉방Column" msprop:Generator_UserColumnName="면적당생산량태양열_냉방" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="면적당생산량태양열_급탕" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="면적당생산량태양열_급탕" msprop:Generator_ColumnVarNameInTable="column면적당생산량태양열_급탕" msprop:Generator_ColumnPropNameInTable="면적당생산량태양열_급탕Column" msprop:Generator_UserColumnName="면적당생산량태양열_급탕" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="면적당생산량지열_난방" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="면적당생산량지열_난방" msprop:Generator_ColumnVarNameInTable="column면적당생산량지열_난방" msprop:Generator_ColumnPropNameInTable="면적당생산량지열_난방Column" msprop:Generator_UserColumnName="면적당생산량지열_난방" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="면적당생산량지열_냉방" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="면적당생산량지열_냉방" msprop:Generator_ColumnVarNameInTable="column면적당생산량지열_냉방" msprop:Generator_ColumnPropNameInTable="면적당생산량지열_냉방Column" msprop:Generator_UserColumnName="면적당생산량지열_냉방" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="면적당생산량지열_급탕" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="면적당생산량지열_급탕" msprop:Generator_ColumnVarNameInTable="column면적당생산량지열_급탕" msprop:Generator_ColumnPropNameInTable="면적당생산량지열_급탕Column" msprop:Generator_UserColumnName="면적당생산량지열_급탕" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="신재생면적당열생산량_난방" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="신재생면적당열생산량_난방" msprop:Generator_ColumnVarNameInTable="column신재생면적당열생산량_난방" msprop:Generator_ColumnPropNameInTable="신재생면적당열생산량_난방Column" msprop:Generator_UserColumnName="신재생면적당열생산량_난방" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="신재생면적당열생산량_급탕" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="신재생면적당열생산량_급탕" msprop:Generator_ColumnVarNameInTable="column신재생면적당열생산량_급탕" msprop:Generator_ColumnPropNameInTable="신재생면적당열생산량_급탕Column" msprop:Generator_UserColumnName="신재생면적당열생산량_급탕" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="신재생면적당열생산량_냉방" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="신재생면적당열생산량_냉방" msprop:Generator_ColumnVarNameInTable="column신재생면적당열생산량_냉방" msprop:Generator_ColumnPropNameInTable="신재생면적당열생산량_냉방Column" msprop:Generator_UserColumnName="신재생면적당열생산량_냉방" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="면적당생산량수열_난방" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="면적당생산량수열_난방" msprop:Generator_ColumnVarNameInTable="column면적당생산량수열_난방" msprop:Generator_ColumnPropNameInTable="면적당생산량수열_난방Column" msprop:Generator_UserColumnName="면적당생산량수열_난방" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="면적당생산량수열_냉방" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="면적당생산량수열_냉방" msprop:Generator_ColumnVarNameInTable="column면적당생산량수열_냉방" msprop:Generator_ColumnPropNameInTable="면적당생산량수열_냉방Column" msprop:Generator_UserColumnName="면적당생산량수열_냉방" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="면적당생산량수열_급탕" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="면적당생산량수열_급탕" msprop:Generator_ColumnVarNameInTable="column면적당생산량수열_급탕" msprop:Generator_ColumnPropNameInTable="면적당생산량수열_급탕Column" msprop:Generator_UserColumnName="면적당생산량수열_급탕" type="xs:string" minOccurs="0" />
|
||||
<xs:element name="신재생열병합열생산량" msprop:nullValue="0" msprop:Generator_ColumnPropNameInRow="신재생열병합열생산량" msprop:Generator_ColumnVarNameInTable="column신재생열병합열생산량" msprop:Generator_ColumnPropNameInTable="신재생열병합열생산량Column" msprop:Generator_UserColumnName="신재생열병합열생산량" type="xs:string" minOccurs="0" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
|
||||
@@ -4,7 +4,7 @@
|
||||
Changes to this file may cause incorrect behavior and will be lost if
|
||||
the code is regenerated.
|
||||
</autogenerated>-->
|
||||
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="9" ViewPortY="4" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
|
||||
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="58" ViewPortY="4" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
|
||||
<Shapes>
|
||||
<Shape ID="DesignTable:최대냉난방부하" ZOrder="14" X="1088" Y="435" Height="257" Width="152" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
|
||||
<Shape ID="DesignTable:월별에너지분석" ZOrder="18" X="891" Y="316" Height="562" Width="156" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="558" />
|
||||
@@ -15,7 +15,7 @@
|
||||
<Shape ID="DesignTable:사용면적" ZOrder="13" X="872" Y="174" Height="124" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="120" />
|
||||
<Shape ID="DesignTable:에너지소요량" ZOrder="11" X="187" Y="58" Height="410" Width="187" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="406" />
|
||||
<Shape ID="DesignTable:에너지소요량1" ZOrder="12" X="376" Y="56" Height="695" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="691" />
|
||||
<Shape ID="DesignTable:생산에너지" ZOrder="1" X="536" Y="58" Height="257" Width="177" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
|
||||
<Shape ID="DesignTable:생산에너지" ZOrder="1" X="536" Y="58" Height="619" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="615" />
|
||||
<Shape ID="DesignTable:Graph_Info_data" ZOrder="10" X="20" Y="52" Height="410" Width="161" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="406" />
|
||||
<Shape ID="DesignTable:Pyonga_REQ" ZOrder="8" X="551" Y="230" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
|
||||
<Shape ID="DesignTable:Pyonga_USE" ZOrder="6" X="547" Y="419" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
|
||||
|
||||
@@ -166,10 +166,10 @@
|
||||
<Compile Include="Forms_Basic\Frm_import.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Forms_Basic\frm_Macro.Designer.vb">
|
||||
<DependentUpon>frm_Macro.vb</DependentUpon>
|
||||
<Compile Include="Forms_Basic\frm_batch.Designer.vb">
|
||||
<DependentUpon>frm_batch.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Forms_Basic\frm_Macro.vb">
|
||||
<Compile Include="Forms_Basic\frm_batch.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Forms_Basic\fSelectWeatherGroup.Designer.vb">
|
||||
@@ -196,6 +196,12 @@
|
||||
<Compile Include="Forms_Report\Frm_Export.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Forms_Report\Frm_Macro.Designer.vb">
|
||||
<DependentUpon>Frm_Macro.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Forms_Report\Frm_Macro.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Forms_Report\Frm_Upload.Designer.vb">
|
||||
<DependentUpon>Frm_Upload.vb</DependentUpon>
|
||||
</Compile>
|
||||
@@ -475,8 +481,8 @@
|
||||
<EmbeddedResource Include="Forms_Basic\Frm_import.resx">
|
||||
<DependentUpon>Frm_import.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Forms_Basic\frm_Macro.resx">
|
||||
<DependentUpon>frm_Macro.vb</DependentUpon>
|
||||
<EmbeddedResource Include="Forms_Basic\frm_batch.resx">
|
||||
<DependentUpon>frm_batch.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Forms_Basic\Frm_Work.resx">
|
||||
<DependentUpon>Frm_Work.vb</DependentUpon>
|
||||
@@ -495,6 +501,9 @@
|
||||
<EmbeddedResource Include="Forms_Report\Frm_Export.resx">
|
||||
<DependentUpon>Frm_Export.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Forms_Report\Frm_Macro.resx">
|
||||
<DependentUpon>Frm_Macro.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Forms_Report\Frm_Upload.resx">
|
||||
<DependentUpon>Frm_Upload.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
|
||||
@@ -1,5 +1,5 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frm_Macro
|
||||
Partial Class frm_batch
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
|
||||
@@ -26,6 +26,7 @@ Partial Class frm_Macro
|
||||
Me.btPath = New System.Windows.Forms.Button()
|
||||
Me.btcalc = New System.Windows.Forms.Button()
|
||||
Me.prb1 = New System.Windows.Forms.ProgressBar()
|
||||
Me.chkMyoun = New System.Windows.Forms.CheckBox()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'tbPath
|
||||
@@ -62,17 +63,28 @@ Partial Class frm_Macro
|
||||
Me.prb1.Size = New System.Drawing.Size(750, 25)
|
||||
Me.prb1.TabIndex = 4
|
||||
'
|
||||
'frm_Macro
|
||||
'chkMyoun
|
||||
'
|
||||
Me.chkMyoun.AutoSize = True
|
||||
Me.chkMyoun.Location = New System.Drawing.Point(449, 12)
|
||||
Me.chkMyoun.Name = "chkMyoun"
|
||||
Me.chkMyoun.Size = New System.Drawing.Size(88, 16)
|
||||
Me.chkMyoun.TabIndex = 5
|
||||
Me.chkMyoun.Text = "입력면 추출"
|
||||
Me.chkMyoun.UseVisualStyleBackColor = True
|
||||
'
|
||||
'frm_batch
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(750, 171)
|
||||
Me.Controls.Add(Me.chkMyoun)
|
||||
Me.Controls.Add(Me.prb1)
|
||||
Me.Controls.Add(Me.btcalc)
|
||||
Me.Controls.Add(Me.btPath)
|
||||
Me.Controls.Add(Me.tbPath)
|
||||
Me.Name = "frm_Macro"
|
||||
Me.Text = "frm_Macro"
|
||||
Me.Name = "frm_batch"
|
||||
Me.Text = "frm_batch"
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
@@ -81,4 +93,5 @@ Partial Class frm_Macro
|
||||
Friend WithEvents btcalc As System.Windows.Forms.Button
|
||||
Friend WithEvents prb1 As System.Windows.Forms.ProgressBar
|
||||
Public WithEvents tbPath As System.Windows.Forms.TextBox
|
||||
Public WithEvents chkMyoun As System.Windows.Forms.CheckBox
|
||||
End Class
|
||||
@@ -1,4 +1,4 @@
|
||||
Public Class frm_Macro
|
||||
Public Class frm_batch
|
||||
|
||||
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btPath.Click
|
||||
Dim fd As New FolderBrowserDialog()
|
||||
@@ -17,10 +17,10 @@
|
||||
|
||||
Dim files1() As System.IO.FileInfo
|
||||
Dim files2() As System.IO.FileInfo
|
||||
|
||||
files1 = di.GetFiles("*.tpl", IO.SearchOption.TopDirectoryOnly)
|
||||
files2 = di.GetFiles("*.tplx", IO.SearchOption.TopDirectoryOnly)
|
||||
|
||||
|
||||
files1 = di.GetFiles("*.tpl", IO.SearchOption.TopDirectoryOnly)
|
||||
files2 = di.GetFiles("*.tplx", IO.SearchOption.TopDirectoryOnly)
|
||||
|
||||
If files1.Length < 1 AndAlso files2.Length < 1 Then
|
||||
MsgBox("no file")
|
||||
Return
|
||||
17
ArinWarev1/Forms_Input/Frm_Bunbae.Designer.vb
generated
17
ArinWarev1/Forms_Input/Frm_Bunbae.Designer.vb
generated
@@ -42,6 +42,7 @@ Partial Class Frm_Bunbae
|
||||
Dim Label33 As System.Windows.Forms.Label
|
||||
Dim Label34 As System.Windows.Forms.Label
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Bunbae))
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.bs = New System.Windows.Forms.BindingSource(Me.components)
|
||||
Me.DS = New Eco2Ar.DS()
|
||||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||
@@ -88,6 +89,7 @@ Partial Class Frm_Bunbae
|
||||
Me.Label21 = New System.Windows.Forms.Label()
|
||||
Me.냉동기ComboBox = New Eco2Ar.MyCmb()
|
||||
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Me.sortkey = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Label1 = New System.Windows.Forms.Label()
|
||||
Label2 = New System.Windows.Forms.Label()
|
||||
@@ -330,6 +332,7 @@ Partial Class Frm_Bunbae
|
||||
Me.bs.DataMember = "tbl_bunbae"
|
||||
Me.bs.DataSource = Me.DS
|
||||
Me.bs.Filter = "code <> '0'"
|
||||
Me.bs.Sort = "sortkey,설명"
|
||||
'
|
||||
'DS
|
||||
'
|
||||
@@ -672,8 +675,7 @@ Partial Class Frm_Bunbae
|
||||
Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.dv.ColumnHeadersHeight = 30
|
||||
Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
|
||||
Me.dv.ColumnHeadersVisible = False
|
||||
Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1})
|
||||
Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.sortkey, Me.DataGridViewTextBoxColumn1})
|
||||
Me.dv.DataSource = Me.bs
|
||||
Me.dv.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dv.Location = New System.Drawing.Point(0, 0)
|
||||
@@ -863,6 +865,16 @@ Partial Class Frm_Bunbae
|
||||
Me.PictureBox1.TabIndex = 124
|
||||
Me.PictureBox1.TabStop = False
|
||||
'
|
||||
'sortkey
|
||||
'
|
||||
Me.sortkey.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
|
||||
Me.sortkey.DataPropertyName = "sortkey"
|
||||
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
|
||||
Me.sortkey.DefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.sortkey.HeaderText = "▼"
|
||||
Me.sortkey.Name = "sortkey"
|
||||
Me.sortkey.Width = 30
|
||||
'
|
||||
'DataGridViewTextBoxColumn1
|
||||
'
|
||||
Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||
@@ -955,5 +967,6 @@ Partial Class Frm_Bunbae
|
||||
Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
|
||||
Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel
|
||||
Friend WithEvents sortkey As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
End Class
|
||||
|
||||
@@ -177,6 +177,9 @@
|
||||
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>286, 17</value>
|
||||
</metadata>
|
||||
<metadata name="sortkey.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>353, 17</value>
|
||||
</metadata>
|
||||
|
||||
@@ -259,8 +259,20 @@
|
||||
Private Sub AddNewDataRow_bunbae(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
|
||||
e.Row.Item("code") = GetMaxCode(DSET1.tbl_bunbae)
|
||||
e.Row.Item("설명") = "신규데이터"
|
||||
e.Row.Item("sortkey") = GetNewSortKey()
|
||||
End Sub
|
||||
|
||||
Private Function GetNewSortKey() As String
|
||||
AddDebug("GetNewSortKey")
|
||||
|
||||
Dim drows() As DS.tbl_bunbaeRow = DSET1.tbl_bunbae.Select("code <> '0'", "sortkey desc")
|
||||
If drows.Length < 1 Then Return 1
|
||||
Dim Dr As DS.tbl_bunbaeRow = drows(0)
|
||||
Dim maxsortkey As Integer = Dr.sortkey
|
||||
Return maxsortkey + 1
|
||||
|
||||
End Function
|
||||
|
||||
#Region "제어버튼"
|
||||
Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click
|
||||
If Not EndEdit(Me.bs) Then Return
|
||||
|
||||
17
ArinWarev1/Forms_Input/Frm_NaengBang.Designer.vb
generated
17
ArinWarev1/Forms_Input/Frm_NaengBang.Designer.vb
generated
@@ -41,6 +41,7 @@ Partial Class Frm_NaengBang
|
||||
Dim Label14 As System.Windows.Forms.Label
|
||||
Dim Label15 As System.Windows.Forms.Label
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_NaengBang))
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.GroupBox18 = New System.Windows.Forms.GroupBox()
|
||||
Me.Label17 = New System.Windows.Forms.Label()
|
||||
Me.cmb_신재생 = New Eco2Ar.MyCmb()
|
||||
@@ -92,6 +93,7 @@ Partial Class Frm_NaengBang
|
||||
Me.chk_개별기기적용 = New System.Windows.Forms.CheckBox()
|
||||
Me.Label16 = New System.Windows.Forms.Label()
|
||||
Me.PictureBox4 = New System.Windows.Forms.PictureBox()
|
||||
Me.sortkey = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Label215 = New System.Windows.Forms.Label()
|
||||
Label216 = New System.Windows.Forms.Label()
|
||||
@@ -439,6 +441,7 @@ Partial Class Frm_NaengBang
|
||||
Me.bs.DataMember = "tbl_nangbangkiki"
|
||||
Me.bs.DataSource = Me.DS
|
||||
Me.bs.Filter = "code <> '0'"
|
||||
Me.bs.Sort = "sortkey,설명"
|
||||
'
|
||||
'DS
|
||||
'
|
||||
@@ -762,8 +765,7 @@ Partial Class Frm_NaengBang
|
||||
Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.dv.ColumnHeadersHeight = 30
|
||||
Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
|
||||
Me.dv.ColumnHeadersVisible = False
|
||||
Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1})
|
||||
Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.sortkey, Me.DataGridViewTextBoxColumn1})
|
||||
Me.dv.DataSource = Me.bs
|
||||
Me.dv.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dv.Location = New System.Drawing.Point(0, 0)
|
||||
@@ -902,6 +904,16 @@ Partial Class Frm_NaengBang
|
||||
Me.PictureBox4.TabIndex = 167
|
||||
Me.PictureBox4.TabStop = False
|
||||
'
|
||||
'sortkey
|
||||
'
|
||||
Me.sortkey.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
|
||||
Me.sortkey.DataPropertyName = "sortkey"
|
||||
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
|
||||
Me.sortkey.DefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.sortkey.HeaderText = "▼"
|
||||
Me.sortkey.Name = "sortkey"
|
||||
Me.sortkey.Width = 30
|
||||
'
|
||||
'DataGridViewTextBoxColumn1
|
||||
'
|
||||
Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||
@@ -1000,5 +1012,6 @@ Partial Class Frm_NaengBang
|
||||
Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
|
||||
Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel
|
||||
Friend WithEvents sortkey As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
End Class
|
||||
|
||||
@@ -174,6 +174,9 @@
|
||||
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>81, 17</value>
|
||||
</metadata>
|
||||
<metadata name="sortkey.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>148, 17</value>
|
||||
</metadata>
|
||||
|
||||
@@ -336,8 +336,20 @@ Public Class Frm_NaengBang
|
||||
Private Sub AddNewDataRow_nangbangkiki(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
|
||||
e.Row.Item("code") = GetMaxCode(DSET1.tbl_nangbangkiki)
|
||||
e.Row.Item("설명") = "신규데이터"
|
||||
e.Row.Item("sortkey") = GetNewSortKey()
|
||||
End Sub
|
||||
|
||||
Private Function GetNewSortKey() As String
|
||||
AddDebug("GetNewSortKey")
|
||||
|
||||
Dim drows() As DS.tbl_nangbangkikiRow = DSET1.tbl_nangbangkiki.Select("code <> '0'", "sortkey desc")
|
||||
If drows.Length < 1 Then Return 1
|
||||
Dim Dr As DS.tbl_nangbangkikiRow = drows(0)
|
||||
Dim maxsortkey As Integer = Dr.sortkey
|
||||
Return maxsortkey + 1
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub Frm_V20091231_Zone_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
|
||||
If e.Delta < 0 Then
|
||||
If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1
|
||||
|
||||
17
ArinWarev1/Forms_Input/Frm_Nanbang.Designer.vb
generated
17
ArinWarev1/Forms_Input/Frm_Nanbang.Designer.vb
generated
@@ -58,6 +58,7 @@ Partial Class Frm_Nanbang
|
||||
Dim Label27 As System.Windows.Forms.Label
|
||||
Dim Label28 As System.Windows.Forms.Label
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Nanbang))
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.Label182 = New System.Windows.Forms.Label()
|
||||
Me.Label180 = New System.Windows.Forms.Label()
|
||||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||
@@ -157,6 +158,7 @@ Partial Class Frm_Nanbang
|
||||
Me.PictureBox14 = New System.Windows.Forms.PictureBox()
|
||||
Me.Label24 = New System.Windows.Forms.Label()
|
||||
Me.PictureBox13 = New System.Windows.Forms.PictureBox()
|
||||
Me.sortkey = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.설명DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Label165 = New System.Windows.Forms.Label()
|
||||
Label166 = New System.Windows.Forms.Label()
|
||||
@@ -671,6 +673,7 @@ Partial Class Frm_Nanbang
|
||||
Me.bs.DataMember = "tbl_nanbangkiki"
|
||||
Me.bs.DataSource = Me.DS
|
||||
Me.bs.Filter = "code <> '0'"
|
||||
Me.bs.Sort = "sortkey,설명"
|
||||
'
|
||||
'DS
|
||||
'
|
||||
@@ -1332,8 +1335,7 @@ Partial Class Frm_Nanbang
|
||||
Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.dv.ColumnHeadersHeight = 30
|
||||
Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
|
||||
Me.dv.ColumnHeadersVisible = False
|
||||
Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.설명DataGridViewTextBoxColumn})
|
||||
Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.sortkey, Me.설명DataGridViewTextBoxColumn})
|
||||
Me.dv.DataSource = Me.bs
|
||||
Me.dv.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dv.Location = New System.Drawing.Point(0, 0)
|
||||
@@ -1717,6 +1719,16 @@ Partial Class Frm_Nanbang
|
||||
Me.PictureBox13.TabIndex = 169
|
||||
Me.PictureBox13.TabStop = False
|
||||
'
|
||||
'sortkey
|
||||
'
|
||||
Me.sortkey.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
|
||||
Me.sortkey.DataPropertyName = "sortkey"
|
||||
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
|
||||
Me.sortkey.DefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.sortkey.HeaderText = "▼"
|
||||
Me.sortkey.Name = "sortkey"
|
||||
Me.sortkey.Width = 30
|
||||
'
|
||||
'설명DataGridViewTextBoxColumn
|
||||
'
|
||||
Me.설명DataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||
@@ -1892,5 +1904,6 @@ Partial Class Frm_Nanbang
|
||||
Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
|
||||
Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel
|
||||
Friend WithEvents sortkey As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents 설명DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
End Class
|
||||
|
||||
@@ -225,6 +225,9 @@
|
||||
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>256, 17</value>
|
||||
</metadata>
|
||||
<metadata name="sortkey.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>81, 17</value>
|
||||
</metadata>
|
||||
|
||||
@@ -397,7 +397,19 @@
|
||||
Private Sub AddNewDataRow_nanbangkiki(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
|
||||
e.Row.Item("code") = GetMaxCode(DSET1.tbl_nanbangkiki)
|
||||
e.Row.Item("설명") = "신규데이터"
|
||||
e.Row.Item("sortkey") = GetNewSortKey()
|
||||
End Sub
|
||||
|
||||
Private Function GetNewSortKey() As String
|
||||
AddDebug("GetNewSortKey")
|
||||
|
||||
Dim drows() As DS.tbl_nanbangkikiRow = DSET1.tbl_nanbangkiki.Select("code <> '0'", "sortkey desc")
|
||||
If drows.Length < 1 Then Return 1
|
||||
Dim Dr As DS.tbl_nanbangkikiRow = drows(0)
|
||||
Dim maxsortkey As Integer = Dr.sortkey
|
||||
Return maxsortkey + 1
|
||||
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
Private Sub 신재생연결여부ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 신재생연결여부ComboBox.SelectedIndexChanged
|
||||
|
||||
37
ArinWarev1/Forms_Input/Frm_New.Designer.vb
generated
37
ArinWarev1/Forms_Input/Frm_New.Designer.vb
generated
@@ -75,13 +75,13 @@ Partial Class Frm_New
|
||||
Dim Label2 As System.Windows.Forms.Label
|
||||
Dim Label46 As System.Windows.Forms.Label
|
||||
Dim Label47 As System.Windows.Forms.Label
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
|
||||
Me.NTb1 = New Eco2Ar.MyTb()
|
||||
Me.NTb2 = New Eco2Ar.MyTb()
|
||||
Me.Panel6 = New System.Windows.Forms.Panel()
|
||||
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
|
||||
Me.dv = New CEnergy.arindv()
|
||||
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.bs = New System.Windows.Forms.BindingSource(Me.components)
|
||||
Me.DS = New Eco2Ar.DS()
|
||||
Me.bn = New System.Windows.Forms.BindingNavigator(Me.components)
|
||||
@@ -158,6 +158,8 @@ Partial Class Frm_New
|
||||
Me.Label164 = New System.Windows.Forms.Label()
|
||||
Me.cmb_가동연료 = New Eco2Ar.MyCmb()
|
||||
Me.NTb3 = New Eco2Ar.MyTb()
|
||||
Me.sortkey = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Label33 = New System.Windows.Forms.Label()
|
||||
Label25 = New System.Windows.Forms.Label()
|
||||
Label26 = New System.Windows.Forms.Label()
|
||||
@@ -858,8 +860,7 @@ Partial Class Frm_New
|
||||
Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.dv.ColumnHeadersHeight = 30
|
||||
Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
|
||||
Me.dv.ColumnHeadersVisible = False
|
||||
Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1})
|
||||
Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.sortkey, Me.DataGridViewTextBoxColumn1})
|
||||
Me.dv.DataSource = Me.bs
|
||||
Me.dv.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dv.Location = New System.Drawing.Point(0, 0)
|
||||
@@ -872,19 +873,12 @@ Partial Class Frm_New
|
||||
Me.dv.Size = New System.Drawing.Size(210, 535)
|
||||
Me.dv.TabIndex = 0
|
||||
'
|
||||
'DataGridViewTextBoxColumn1
|
||||
'
|
||||
Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||
Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명"
|
||||
Me.DataGridViewTextBoxColumn1.HeaderText = "설명"
|
||||
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
|
||||
Me.DataGridViewTextBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
|
||||
'
|
||||
'bs
|
||||
'
|
||||
Me.bs.DataMember = "tbl_new"
|
||||
Me.bs.DataSource = Me.DS
|
||||
Me.bs.Filter = "code <> '0'"
|
||||
Me.bs.Sort = "sortkey,설명"
|
||||
'
|
||||
'DS
|
||||
'
|
||||
@@ -1769,6 +1763,24 @@ Partial Class Frm_New
|
||||
Me.NTb3.TabIndex = 59
|
||||
Me.NTb3.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
|
||||
'
|
||||
'sortkey
|
||||
'
|
||||
Me.sortkey.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
|
||||
Me.sortkey.DataPropertyName = "sortkey"
|
||||
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
|
||||
Me.sortkey.DefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.sortkey.HeaderText = "▼"
|
||||
Me.sortkey.Name = "sortkey"
|
||||
Me.sortkey.Width = 30
|
||||
'
|
||||
'DataGridViewTextBoxColumn1
|
||||
'
|
||||
Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||
Me.DataGridViewTextBoxColumn1.DataPropertyName = "설명"
|
||||
Me.DataGridViewTextBoxColumn1.HeaderText = "설명"
|
||||
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
|
||||
Me.DataGridViewTextBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
|
||||
'
|
||||
'Frm_New
|
||||
'
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
|
||||
@@ -1879,7 +1891,6 @@ Partial Class Frm_New
|
||||
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
|
||||
Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel
|
||||
Friend WithEvents MyTb2 As Eco2Ar.MyTb
|
||||
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents panWind As System.Windows.Forms.Panel
|
||||
Friend WithEvents MyTb3 As Eco2Ar.MyTb
|
||||
@@ -1899,4 +1910,6 @@ Partial Class Frm_New
|
||||
Friend WithEvents MyTb6 As Eco2Ar.MyTb
|
||||
Friend WithEvents MyTb12 As Eco2Ar.MyTb
|
||||
Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents sortkey As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
End Class
|
||||
|
||||
@@ -276,6 +276,9 @@
|
||||
<metadata name="Label47.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="sortkey.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
|
||||
@@ -351,7 +351,19 @@
|
||||
' MsgBox("new")
|
||||
e.Row.Item("code") = GetMaxCode(DSET1.tbl_new)
|
||||
e.Row.Item("설명") = "신규데이터"
|
||||
e.Row.Item("sortkey") = GetNewSortKey()
|
||||
End Sub
|
||||
|
||||
Private Function GetNewSortKey() As String
|
||||
AddDebug("GetNewSortKey")
|
||||
|
||||
Dim drows() As DS.tbl_newRow = DSET1.tbl_new.Select("code <> '0'", "sortkey desc")
|
||||
If drows.Length < 1 Then Return 1
|
||||
Dim Dr As DS.tbl_newRow = drows(0)
|
||||
Dim maxsortkey As Integer = Dr.sortkey
|
||||
Return maxsortkey + 1
|
||||
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
Private Sub 태양열종류ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_태양열시스템종류.KeyDown
|
||||
|
||||
205
ArinWarev1/Forms_Input/Frm_kongjo.Designer.vb
generated
205
ArinWarev1/Forms_Input/Frm_kongjo.Designer.vb
generated
@@ -46,9 +46,11 @@ Partial Class Frm_kongjo
|
||||
Dim Label172 As System.Windows.Forms.Label
|
||||
Dim Label167 As System.Windows.Forms.Label
|
||||
Dim Label171 As System.Windows.Forms.Label
|
||||
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_kongjo))
|
||||
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
|
||||
Me.dv = New CEnergy.arindv()
|
||||
Me.sortkey = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.bs = New System.Windows.Forms.BindingSource(Me.components)
|
||||
Me.DS = New Eco2Ar.DS()
|
||||
@@ -61,6 +63,13 @@ Partial Class Frm_kongjo
|
||||
Me.lbl_pos = New System.Windows.Forms.ToolStripLabel()
|
||||
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.lb_code = New System.Windows.Forms.ToolStripLabel()
|
||||
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
|
||||
Me.공기식태양열적용ComboBox = New Eco2Ar.MyCmb()
|
||||
Me.Tb_집열기면적 = New Eco2Ar.MyTb()
|
||||
Me.집열기방위ComboBox = New Eco2Ar.MyCmb()
|
||||
Me.Tb_집열기방사율 = New Eco2Ar.MyTb()
|
||||
Me.Label12 = New System.Windows.Forms.Label()
|
||||
Me.PictureBox3 = New System.Windows.Forms.PictureBox()
|
||||
Me.Label15 = New System.Windows.Forms.Label()
|
||||
Me.PictureBox4 = New System.Windows.Forms.PictureBox()
|
||||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||
@@ -79,14 +88,10 @@ Partial Class Frm_kongjo
|
||||
Me.tb_01 = New Eco2Ar.MyTb()
|
||||
Me.tb_02 = New Eco2Ar.MyTb()
|
||||
Me.tb_03 = New Eco2Ar.MyTb()
|
||||
Me.Tb_집열기방사율 = New Eco2Ar.MyTb()
|
||||
Me.tb_13 = New Eco2Ar.MyTb()
|
||||
Me.열교환기유형ComboBox = New Eco2Ar.MyCmb()
|
||||
Me.리턴공기혼합여부ComboBox = New Eco2Ar.MyCmb()
|
||||
Me.집열기방위ComboBox = New Eco2Ar.MyCmb()
|
||||
Me.가습기유형ComboBox = New Eco2Ar.MyCmb()
|
||||
Me.Tb_집열기면적 = New Eco2Ar.MyTb()
|
||||
Me.공기식태양열적용ComboBox = New Eco2Ar.MyCmb()
|
||||
Me.tb_08 = New Eco2Ar.MyTb()
|
||||
Me.외기냉방제어유무ComboBox = New Eco2Ar.MyCmb()
|
||||
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
@@ -95,6 +100,7 @@ Partial Class Frm_kongjo
|
||||
Me.tb_zone_cnt = New System.Windows.Forms.TextBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label48 = New System.Windows.Forms.Label()
|
||||
Me.PictureBox5 = New System.Windows.Forms.PictureBox()
|
||||
Label7 = New System.Windows.Forms.Label()
|
||||
Label176 = New System.Windows.Forms.Label()
|
||||
Label6 = New System.Windows.Forms.Label()
|
||||
@@ -127,12 +133,15 @@ Partial Class Frm_kongjo
|
||||
CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.bn.SuspendLayout()
|
||||
Me.GroupBox3.SuspendLayout()
|
||||
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.GroupBox2.SuspendLayout()
|
||||
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel1.SuspendLayout()
|
||||
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Label7
|
||||
@@ -248,7 +257,7 @@ Partial Class Frm_kongjo
|
||||
Label11.AutoSize = True
|
||||
Label11.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
|
||||
Label11.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Label11.Location = New System.Drawing.Point(6, 392)
|
||||
Label11.Location = New System.Drawing.Point(8, 90)
|
||||
Label11.Name = "Label11"
|
||||
Label11.Size = New System.Drawing.Size(114, 12)
|
||||
Label11.TabIndex = 14
|
||||
@@ -293,7 +302,7 @@ Partial Class Frm_kongjo
|
||||
Label9.AutoSize = True
|
||||
Label9.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
|
||||
Label9.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Label9.Location = New System.Drawing.Point(6, 344)
|
||||
Label9.Location = New System.Drawing.Point(8, 42)
|
||||
Label9.Name = "Label9"
|
||||
Label9.Size = New System.Drawing.Size(80, 12)
|
||||
Label9.TabIndex = 10
|
||||
@@ -304,7 +313,7 @@ Partial Class Frm_kongjo
|
||||
Label8.AutoSize = True
|
||||
Label8.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
|
||||
Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Label8.Location = New System.Drawing.Point(6, 320)
|
||||
Label8.Location = New System.Drawing.Point(8, 18)
|
||||
Label8.Name = "Label8"
|
||||
Label8.Size = New System.Drawing.Size(119, 12)
|
||||
Label8.TabIndex = 10
|
||||
@@ -360,7 +369,7 @@ Partial Class Frm_kongjo
|
||||
Label10.AutoSize = True
|
||||
Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
|
||||
Label10.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Label10.Location = New System.Drawing.Point(6, 367)
|
||||
Label10.Location = New System.Drawing.Point(8, 65)
|
||||
Label10.Name = "Label10"
|
||||
Label10.Size = New System.Drawing.Size(107, 12)
|
||||
Label10.TabIndex = 10
|
||||
@@ -416,6 +425,9 @@ Partial Class Frm_kongjo
|
||||
'SplitContainer1.Panel2
|
||||
'
|
||||
Me.SplitContainer1.Panel2.BackColor = System.Drawing.Color.White
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox3)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.Label12)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox3)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.Label15)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.PictureBox4)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox2)
|
||||
@@ -437,8 +449,7 @@ Partial Class Frm_kongjo
|
||||
Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.dv.ColumnHeadersHeight = 30
|
||||
Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
|
||||
Me.dv.ColumnHeadersVisible = False
|
||||
Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1})
|
||||
Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.sortkey, Me.DataGridViewTextBoxColumn1})
|
||||
Me.dv.DataSource = Me.bs
|
||||
Me.dv.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dv.Location = New System.Drawing.Point(0, 0)
|
||||
@@ -451,6 +462,16 @@ Partial Class Frm_kongjo
|
||||
Me.dv.Size = New System.Drawing.Size(207, 532)
|
||||
Me.dv.TabIndex = 0
|
||||
'
|
||||
'sortkey
|
||||
'
|
||||
Me.sortkey.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
|
||||
Me.sortkey.DataPropertyName = "sortkey"
|
||||
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
|
||||
Me.sortkey.DefaultCellStyle = DataGridViewCellStyle2
|
||||
Me.sortkey.HeaderText = "▼"
|
||||
Me.sortkey.Name = "sortkey"
|
||||
Me.sortkey.Width = 30
|
||||
'
|
||||
'DataGridViewTextBoxColumn1
|
||||
'
|
||||
Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||
@@ -464,6 +485,7 @@ Partial Class Frm_kongjo
|
||||
Me.bs.DataMember = "tbl_kongjo"
|
||||
Me.bs.DataSource = Me.DS
|
||||
Me.bs.Filter = "code <> '0'"
|
||||
Me.bs.Sort = "sortkey,설명"
|
||||
'
|
||||
'DS
|
||||
'
|
||||
@@ -551,6 +573,87 @@ Partial Class Frm_kongjo
|
||||
Me.lb_code.Size = New System.Drawing.Size(47, 37)
|
||||
Me.lb_code.Text = "[0000]"
|
||||
'
|
||||
'GroupBox3
|
||||
'
|
||||
Me.GroupBox3.BackColor = System.Drawing.Color.White
|
||||
Me.GroupBox3.Controls.Add(Me.공기식태양열적용ComboBox)
|
||||
Me.GroupBox3.Controls.Add(Me.Tb_집열기면적)
|
||||
Me.GroupBox3.Controls.Add(Me.집열기방위ComboBox)
|
||||
Me.GroupBox3.Controls.Add(Label10)
|
||||
Me.GroupBox3.Controls.Add(Label11)
|
||||
Me.GroupBox3.Controls.Add(Label8)
|
||||
Me.GroupBox3.Controls.Add(Me.Tb_집열기방사율)
|
||||
Me.GroupBox3.Controls.Add(Label9)
|
||||
Me.GroupBox3.Controls.Add(Me.PictureBox5)
|
||||
Me.GroupBox3.Location = New System.Drawing.Point(20, 442)
|
||||
Me.GroupBox3.Name = "GroupBox3"
|
||||
Me.GroupBox3.Size = New System.Drawing.Size(277, 115)
|
||||
Me.GroupBox3.TabIndex = 157
|
||||
Me.GroupBox3.TabStop = False
|
||||
'
|
||||
'공기식태양열적용ComboBox
|
||||
'
|
||||
Me.공기식태양열적용ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.공기식태양열적용ComboBox.FormattingEnabled = True
|
||||
Me.공기식태양열적용ComboBox.Items.AddRange(New Object() {"예", "아니오"})
|
||||
Me.공기식태양열적용ComboBox.Location = New System.Drawing.Point(152, 14)
|
||||
Me.공기식태양열적용ComboBox.Name = "공기식태양열적용ComboBox"
|
||||
Me.공기식태양열적용ComboBox.NectControl = Nothing
|
||||
Me.공기식태양열적용ComboBox.Size = New System.Drawing.Size(119, 20)
|
||||
Me.공기식태양열적용ComboBox.TabIndex = 10
|
||||
'
|
||||
'Tb_집열기면적
|
||||
'
|
||||
Me.Tb_집열기면적.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "집열기면적", True))
|
||||
Me.Tb_집열기면적.Location = New System.Drawing.Point(152, 62)
|
||||
Me.Tb_집열기면적.Name = "Tb_집열기면적"
|
||||
Me.Tb_집열기면적.NectControl = Nothing
|
||||
Me.Tb_집열기면적.Size = New System.Drawing.Size(119, 21)
|
||||
Me.Tb_집열기면적.TabIndex = 12
|
||||
Me.Tb_집열기면적.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
|
||||
'
|
||||
'집열기방위ComboBox
|
||||
'
|
||||
Me.집열기방위ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.집열기방위ComboBox.FormattingEnabled = True
|
||||
Me.집열기방위ComboBox.Items.AddRange(New Object() {"없음", "남", "남동", "남서", "동", "서", "북동", "북서", "북"})
|
||||
Me.집열기방위ComboBox.Location = New System.Drawing.Point(152, 38)
|
||||
Me.집열기방위ComboBox.Name = "집열기방위ComboBox"
|
||||
Me.집열기방위ComboBox.NectControl = Nothing
|
||||
Me.집열기방위ComboBox.Size = New System.Drawing.Size(119, 20)
|
||||
Me.집열기방위ComboBox.TabIndex = 11
|
||||
'
|
||||
'Tb_집열기방사율
|
||||
'
|
||||
Me.Tb_집열기방사율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "집열기방사율", True))
|
||||
Me.Tb_집열기방사율.Location = New System.Drawing.Point(152, 87)
|
||||
Me.Tb_집열기방사율.Name = "Tb_집열기방사율"
|
||||
Me.Tb_집열기방사율.NectControl = Nothing
|
||||
Me.Tb_집열기방사율.Size = New System.Drawing.Size(119, 21)
|
||||
Me.Tb_집열기방사율.TabIndex = 13
|
||||
Me.Tb_집열기방사율.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
|
||||
'
|
||||
'Label12
|
||||
'
|
||||
Me.Label12.AutoSize = True
|
||||
Me.Label12.BackColor = System.Drawing.Color.FromArgb(CType(CType(116, Byte), Integer), CType(CType(158, Byte), Integer), CType(CType(209, Byte), Integer))
|
||||
Me.Label12.ForeColor = System.Drawing.Color.White
|
||||
Me.Label12.Location = New System.Drawing.Point(27, 421)
|
||||
Me.Label12.Name = "Label12"
|
||||
Me.Label12.Size = New System.Drawing.Size(132, 12)
|
||||
Me.Label12.TabIndex = 156
|
||||
Me.Label12.Text = "신재생: 공기식태양열"
|
||||
'
|
||||
'PictureBox3
|
||||
'
|
||||
Me.PictureBox3.BackgroundImage = CType(resources.GetObject("PictureBox3.BackgroundImage"), System.Drawing.Image)
|
||||
Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
|
||||
Me.PictureBox3.Location = New System.Drawing.Point(20, 410)
|
||||
Me.PictureBox3.Name = "PictureBox3"
|
||||
Me.PictureBox3.Size = New System.Drawing.Size(175, 30)
|
||||
Me.PictureBox3.TabIndex = 155
|
||||
Me.PictureBox3.TabStop = False
|
||||
'
|
||||
'Label15
|
||||
'
|
||||
Me.Label15.AutoSize = True
|
||||
@@ -705,34 +808,26 @@ Partial Class Frm_kongjo
|
||||
Me.GroupBox1.Controls.Add(Me.tb_01)
|
||||
Me.GroupBox1.Controls.Add(Me.tb_02)
|
||||
Me.GroupBox1.Controls.Add(Me.tb_03)
|
||||
Me.GroupBox1.Controls.Add(Label11)
|
||||
Me.GroupBox1.Controls.Add(Me.Tb_집열기방사율)
|
||||
Me.GroupBox1.Controls.Add(Label1)
|
||||
Me.GroupBox1.Controls.Add(Me.tb_13)
|
||||
Me.GroupBox1.Controls.Add(Label174)
|
||||
Me.GroupBox1.Controls.Add(Label169)
|
||||
Me.GroupBox1.Controls.Add(Me.열교환기유형ComboBox)
|
||||
Me.GroupBox1.Controls.Add(Label9)
|
||||
Me.GroupBox1.Controls.Add(Label8)
|
||||
Me.GroupBox1.Controls.Add(Label175)
|
||||
Me.GroupBox1.Controls.Add(Label170)
|
||||
Me.GroupBox1.Controls.Add(Label168)
|
||||
Me.GroupBox1.Controls.Add(Label173)
|
||||
Me.GroupBox1.Controls.Add(Label10)
|
||||
Me.GroupBox1.Controls.Add(Label172)
|
||||
Me.GroupBox1.Controls.Add(Label167)
|
||||
Me.GroupBox1.Controls.Add(Label171)
|
||||
Me.GroupBox1.Controls.Add(Me.리턴공기혼합여부ComboBox)
|
||||
Me.GroupBox1.Controls.Add(Me.집열기방위ComboBox)
|
||||
Me.GroupBox1.Controls.Add(Me.가습기유형ComboBox)
|
||||
Me.GroupBox1.Controls.Add(Me.Tb_집열기면적)
|
||||
Me.GroupBox1.Controls.Add(Me.공기식태양열적용ComboBox)
|
||||
Me.GroupBox1.Controls.Add(Me.tb_08)
|
||||
Me.GroupBox1.Controls.Add(Me.외기냉방제어유무ComboBox)
|
||||
Me.GroupBox1.Controls.Add(Me.PictureBox1)
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(20, 83)
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(277, 434)
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(277, 322)
|
||||
Me.GroupBox1.TabIndex = 5
|
||||
Me.GroupBox1.TabStop = False
|
||||
'
|
||||
@@ -776,16 +871,6 @@ Partial Class Frm_kongjo
|
||||
Me.tb_03.TabIndex = 3
|
||||
Me.tb_03.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
|
||||
'
|
||||
'Tb_집열기방사율
|
||||
'
|
||||
Me.Tb_집열기방사율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "집열기방사율", True))
|
||||
Me.Tb_집열기방사율.Location = New System.Drawing.Point(150, 389)
|
||||
Me.Tb_집열기방사율.Name = "Tb_집열기방사율"
|
||||
Me.Tb_집열기방사율.NectControl = Nothing
|
||||
Me.Tb_집열기방사율.Size = New System.Drawing.Size(119, 21)
|
||||
Me.Tb_집열기방사율.TabIndex = 13
|
||||
Me.Tb_집열기방사율.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
|
||||
'
|
||||
'tb_13
|
||||
'
|
||||
Me.tb_13.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열회수율냉", True))
|
||||
@@ -816,17 +901,6 @@ Partial Class Frm_kongjo
|
||||
Me.리턴공기혼합여부ComboBox.Size = New System.Drawing.Size(119, 20)
|
||||
Me.리턴공기혼합여부ComboBox.TabIndex = 4
|
||||
'
|
||||
'집열기방위ComboBox
|
||||
'
|
||||
Me.집열기방위ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.집열기방위ComboBox.FormattingEnabled = True
|
||||
Me.집열기방위ComboBox.Items.AddRange(New Object() {"없음", "남", "남동", "남서", "동", "서", "북동", "북서", "북"})
|
||||
Me.집열기방위ComboBox.Location = New System.Drawing.Point(150, 340)
|
||||
Me.집열기방위ComboBox.Name = "집열기방위ComboBox"
|
||||
Me.집열기방위ComboBox.NectControl = Nothing
|
||||
Me.집열기방위ComboBox.Size = New System.Drawing.Size(119, 20)
|
||||
Me.집열기방위ComboBox.TabIndex = 11
|
||||
'
|
||||
'가습기유형ComboBox
|
||||
'
|
||||
Me.가습기유형ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
@@ -837,27 +911,6 @@ Partial Class Frm_kongjo
|
||||
Me.가습기유형ComboBox.Size = New System.Drawing.Size(119, 20)
|
||||
Me.가습기유형ComboBox.TabIndex = 5
|
||||
'
|
||||
'Tb_집열기면적
|
||||
'
|
||||
Me.Tb_집열기면적.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "집열기면적", True))
|
||||
Me.Tb_집열기면적.Location = New System.Drawing.Point(150, 364)
|
||||
Me.Tb_집열기면적.Name = "Tb_집열기면적"
|
||||
Me.Tb_집열기면적.NectControl = Nothing
|
||||
Me.Tb_집열기면적.Size = New System.Drawing.Size(119, 21)
|
||||
Me.Tb_집열기면적.TabIndex = 12
|
||||
Me.Tb_집열기면적.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
|
||||
'
|
||||
'공기식태양열적용ComboBox
|
||||
'
|
||||
Me.공기식태양열적용ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.공기식태양열적용ComboBox.FormattingEnabled = True
|
||||
Me.공기식태양열적용ComboBox.Items.AddRange(New Object() {"예", "아니오"})
|
||||
Me.공기식태양열적용ComboBox.Location = New System.Drawing.Point(150, 316)
|
||||
Me.공기식태양열적용ComboBox.Name = "공기식태양열적용ComboBox"
|
||||
Me.공기식태양열적용ComboBox.NectControl = Nothing
|
||||
Me.공기식태양열적용ComboBox.Size = New System.Drawing.Size(119, 20)
|
||||
Me.공기식태양열적용ComboBox.TabIndex = 10
|
||||
'
|
||||
'tb_08
|
||||
'
|
||||
Me.tb_08.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열회수율", True))
|
||||
@@ -883,7 +936,7 @@ Partial Class Frm_kongjo
|
||||
Me.PictureBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
|
||||
Me.PictureBox1.Location = New System.Drawing.Point(1, 9)
|
||||
Me.PictureBox1.Name = "PictureBox1"
|
||||
Me.PictureBox1.Size = New System.Drawing.Size(273, 419)
|
||||
Me.PictureBox1.Size = New System.Drawing.Size(273, 309)
|
||||
Me.PictureBox1.TabIndex = 11
|
||||
Me.PictureBox1.TabStop = False
|
||||
'
|
||||
@@ -905,7 +958,7 @@ Partial Class Frm_kongjo
|
||||
Me.TextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.TextBox1.BackColor = System.Drawing.SystemColors.GrayText
|
||||
Me.TextBox1.ForeColor = System.Drawing.Color.White
|
||||
Me.TextBox1.Location = New System.Drawing.Point(481, 5)
|
||||
Me.TextBox1.Location = New System.Drawing.Point(453, 5)
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
Me.TextBox1.Size = New System.Drawing.Size(99, 21)
|
||||
Me.TextBox1.TabIndex = 1
|
||||
@@ -917,7 +970,7 @@ Partial Class Frm_kongjo
|
||||
Me.tb_zone_cnt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.tb_zone_cnt.BackColor = System.Drawing.SystemColors.GrayText
|
||||
Me.tb_zone_cnt.ForeColor = System.Drawing.Color.White
|
||||
Me.tb_zone_cnt.Location = New System.Drawing.Point(290, 5)
|
||||
Me.tb_zone_cnt.Location = New System.Drawing.Point(262, 5)
|
||||
Me.tb_zone_cnt.Name = "tb_zone_cnt"
|
||||
Me.tb_zone_cnt.Size = New System.Drawing.Size(58, 21)
|
||||
Me.tb_zone_cnt.TabIndex = 1
|
||||
@@ -929,7 +982,7 @@ Partial Class Frm_kongjo
|
||||
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.ForeColor = System.Drawing.Color.DarkCyan
|
||||
Me.Label2.Location = New System.Drawing.Point(354, 9)
|
||||
Me.Label2.Location = New System.Drawing.Point(326, 9)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(118, 12)
|
||||
Me.Label2.TabIndex = 0
|
||||
@@ -941,13 +994,22 @@ Partial Class Frm_kongjo
|
||||
Me.Label48.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label48.AutoSize = True
|
||||
Me.Label48.ForeColor = System.Drawing.Color.DarkCyan
|
||||
Me.Label48.Location = New System.Drawing.Point(172, 9)
|
||||
Me.Label48.Location = New System.Drawing.Point(144, 9)
|
||||
Me.Label48.Name = "Label48"
|
||||
Me.Label48.Size = New System.Drawing.Size(111, 12)
|
||||
Me.Label48.TabIndex = 0
|
||||
Me.Label48.Text = "적용된 입력존 수:"
|
||||
Me.Label48.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'PictureBox5
|
||||
'
|
||||
Me.PictureBox5.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
|
||||
Me.PictureBox5.Location = New System.Drawing.Point(1, 9)
|
||||
Me.PictureBox5.Name = "PictureBox5"
|
||||
Me.PictureBox5.Size = New System.Drawing.Size(273, 102)
|
||||
Me.PictureBox5.TabIndex = 158
|
||||
Me.PictureBox5.TabStop = False
|
||||
'
|
||||
'Frm_kongjo
|
||||
'
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
|
||||
@@ -971,6 +1033,9 @@ Partial Class Frm_kongjo
|
||||
CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.bn.ResumeLayout(False)
|
||||
Me.bn.PerformLayout()
|
||||
Me.GroupBox3.ResumeLayout(False)
|
||||
Me.GroupBox3.PerformLayout()
|
||||
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.GroupBox2.ResumeLayout(False)
|
||||
Me.GroupBox2.PerformLayout()
|
||||
@@ -980,6 +1045,7 @@ Partial Class Frm_kongjo
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel1.PerformLayout()
|
||||
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
@@ -1026,9 +1092,14 @@ Partial Class Frm_kongjo
|
||||
Friend WithEvents Cmb_팬효율산출방식 As Eco2Ar.MyCmb
|
||||
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
|
||||
Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel
|
||||
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents Tb_집열기방사율 As Eco2Ar.MyTb
|
||||
Friend WithEvents 집열기방위ComboBox As Eco2Ar.MyCmb
|
||||
Friend WithEvents Tb_집열기면적 As Eco2Ar.MyTb
|
||||
Friend WithEvents 공기식태양열적용ComboBox As Eco2Ar.MyCmb
|
||||
Friend WithEvents sortkey As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents Label12 As System.Windows.Forms.Label
|
||||
Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox
|
||||
End Class
|
||||
|
||||
@@ -186,16 +186,116 @@
|
||||
<metadata name="Label171.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="sortkey.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>222, 17</value>
|
||||
</metadata>
|
||||
<metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>353, 17</value>
|
||||
</metadata>
|
||||
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>222, 17</value>
|
||||
</metadata>
|
||||
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>286, 17</value>
|
||||
</metadata>
|
||||
<metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>353, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="PictureBox3.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
|
||||
AAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBKAADAAAAAQACAAABMQACAAAAHAAAAHIBMgAC
|
||||
AAAAFAAAAI6HaQAEAAAAAQAAAKIAAADCAEgAAAABAAAASAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUzMg
|
||||
V2luZG93cwAyMDEwOjA0OjE1IDIwOjMyOjA0AAACoAIABAAAAAEAAAA8oAMABAAAAAEAAAAMAAAAAAAA
|
||||
AAYBAwADAAAAAQAGAAABGgAFAAAAAQAAARABGwAFAAAAAQAAARgBKAADAAAAAQACAAACAQAEAAAAAQAA
|
||||
ASACAgAEAAAAAQAAAr4AAAAAAAAASAAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIAAEgASAAA/+0ADEFk
|
||||
b2JlX0NNAAH/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwM
|
||||
DAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwM
|
||||
DBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAMADwDASIAAhEBAxEB/90A
|
||||
BAAE/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUG
|
||||
BwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwcl
|
||||
klPw4fFjczUWorKDJkSTVGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG
|
||||
1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR
|
||||
8DMkYuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV
|
||||
5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwDd/amR/pH/AOcf70v2pkf6R/8AnH+9
|
||||
UUlofq/Bpevxb37UyP8ASP8A84/3pftTI/0j/wDOP96opJfq/BXr8W9+1Mj/AEj/APOP96X7UyP9I/8A
|
||||
zj/eqKSX6vwV6/F3ujdbuGS2i5xfU8HVxktIG76XyW99vo27p0XGdO2/ba930dZj+q5dX+qfZPL8VAeD
|
||||
341VVr/eZhx+0bu708n/2f/iDFhJQ0NfUFJPRklMRQABAQAADEhMaW5vAhAAAG1udHJSR0IgWFlaIAfO
|
||||
AAIACQAGADEAAGFjc3BNU0ZUAAAAAElFQyBzUkdCAAAAAAAAAAAAAAAAAAD21gABAAAAANMtSFAgIAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEWNwcnQAAAFQAAAAM2Rl
|
||||
c2MAAAGEAAAAbHd0cHQAAAHwAAAAFGJrcHQAAAIEAAAAFHJYWVoAAAIYAAAAFGdYWVoAAAIsAAAAFGJY
|
||||
WVoAAAJAAAAAFGRtbmQAAAJUAAAAcGRtZGQAAALEAAAAiHZ1ZWQAAANMAAAAhnZpZXcAAAPUAAAAJGx1
|
||||
bWkAAAP4AAAAFG1lYXMAAAQMAAAAJHRlY2gAAAQwAAAADHJUUkMAAAQ8AAAIDGdUUkMAAAQ8AAAIDGJU
|
||||
UkMAAAQ8AAAIDHRleHQAAAAAQ29weXJpZ2h0IChjKSAxOTk4IEhld2xldHQtUGFja2FyZCBDb21wYW55
|
||||
AABkZXNjAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAEnNSR0IgSUVDNjE5NjYtMi4x
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYWVogAAAAAAAA
|
||||
81EAAQAAAAEWzFhZWiAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAG+iAAA49QAAA5BYWVogAAAAAAAA
|
||||
YpkAALeFAAAY2lhZWiAAAAAAAAAkoAAAD4QAALbPZGVzYwAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVj
|
||||
LmNoAAAAAAAAAAAAAAAWSUVDIGh0dHA6Ly93d3cuaWVjLmNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRlc2MAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0Ig
|
||||
Y29sb3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAALklFQyA2MTk2Ni0yLjEgRGVmYXVsdCBSR0IgY29s
|
||||
b3VyIHNwYWNlIC0gc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAACxSZWZlcmVuY2Ug
|
||||
Vmlld2luZyBDb25kaXRpb24gaW4gSUVDNjE5NjYtMi4xAAAAAAAAAAAAAAAsUmVmZXJlbmNlIFZpZXdp
|
||||
bmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdmlldwAA
|
||||
AAAAE6T+ABRfLgAQzxQAA+3MAAQTCwADXJ4AAAABWFlaIAAAAAAATAlWAFAAAABXH+dtZWFzAAAAAAAA
|
||||
AAEAAAAAAAAAAAAAAAAAAAAAAAACjwAAAAJzaWcgAAAAAENSVCBjdXJ2AAAAAAAABAAAAAAFAAoADwAU
|
||||
ABkAHgAjACgALQAyADcAOwBAAEUASgBPAFQAWQBeAGMAaABtAHIAdwB8AIEAhgCLAJAAlQCaAJ8ApACp
|
||||
AK4AsgC3ALwAwQDGAMsA0ADVANsA4ADlAOsA8AD2APsBAQEHAQ0BEwEZAR8BJQErATIBOAE+AUUBTAFS
|
||||
AVkBYAFnAW4BdQF8AYMBiwGSAZoBoQGpAbEBuQHBAckB0QHZAeEB6QHyAfoCAwIMAhQCHQImAi8COAJB
|
||||
AksCVAJdAmcCcQJ6AoQCjgKYAqICrAK2AsECywLVAuAC6wL1AwADCwMWAyEDLQM4A0MDTwNaA2YDcgN+
|
||||
A4oDlgOiA64DugPHA9MD4APsA/kEBgQTBCAELQQ7BEgEVQRjBHEEfgSMBJoEqAS2BMQE0wThBPAE/gUN
|
||||
BRwFKwU6BUkFWAVnBXcFhgWWBaYFtQXFBdUF5QX2BgYGFgYnBjcGSAZZBmoGewaMBp0GrwbABtEG4wb1
|
||||
BwcHGQcrBz0HTwdhB3QHhgeZB6wHvwfSB+UH+AgLCB8IMghGCFoIbgiCCJYIqgi+CNII5wj7CRAJJQk6
|
||||
CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvh
|
||||
C/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7u
|
||||
DwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJk
|
||||
EoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJ
|
||||
FmwWjxayFtYW+hcdF0EXZReJF64X0hf3GBsYQBhlGIoYrxjVGPoZIBlFGWsZkRm3Gd0aBBoqGlEadxqe
|
||||
GsUa7BsUGzsbYxuKG7Ib2hwCHCocUhx7HKMczBz1HR4dRx1wHZkdwx3sHhYeQB5qHpQevh7pHxMfPh9p
|
||||
H5Qfvx/qIBUgQSBsIJggxCDwIRwhSCF1IaEhziH7IiciVSKCIq8i3SMKIzgjZiOUI8Ij8CQfJE0kfCSr
|
||||
JNolCSU4JWgllyXHJfcmJyZXJocmtyboJxgnSSd6J6sn3CgNKD8ocSiiKNQpBik4KWspnSnQKgIqNSpo
|
||||
KpsqzysCKzYraSudK9EsBSw5LG4soizXLQwtQS12Last4S4WLkwugi63Lu4vJC9aL5Evxy/+MDUwbDCk
|
||||
MNsxEjFKMYIxujHyMioyYzKbMtQzDTNGM38zuDPxNCs0ZTSeNNg1EzVNNYc1wjX9Njc2cjauNuk3JDdg
|
||||
N5w31zgUOFA4jDjIOQU5Qjl/Obw5+To2OnQ6sjrvOy07azuqO+g8JzxlPKQ84z0iPWE9oT3gPiA+YD6g
|
||||
PuA/IT9hP6I/4kAjQGRApkDnQSlBakGsQe5CMEJyQrVC90M6Q31DwEQDREdEikTORRJFVUWaRd5GIkZn
|
||||
RqtG8Ec1R3tHwEgFSEtIkUjXSR1JY0mpSfBKN0p9SsRLDEtTS5pL4kwqTHJMuk0CTUpNk03cTiVObk63
|
||||
TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeS
|
||||
V+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8
|
||||
YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3
|
||||
a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHRwdMx1KHWF
|
||||
deF2Pnabdvh3VnezeBF4bnjMeSp5iXnnekZ6pXsEe2N7wnwhfIF84X1BfaF+AX5ifsJ/I3+Ef+WAR4Co
|
||||
gQqBa4HNgjCCkoL0g1eDuoQdhICE44VHhauGDoZyhteHO4efiASIaYjOiTOJmYn+imSKyoswi5aL/Ixj
|
||||
jMqNMY2Yjf+OZo7OjzaPnpAGkG6Q1pE/kaiSEZJ6kuOTTZO2lCCUipT0lV+VyZY0lp+XCpd1l+CYTJi4
|
||||
mSSZkJn8mmia1ZtCm6+cHJyJnPedZJ3SnkCerp8dn4uf+qBpoNihR6G2oiailqMGo3aj5qRWpMelOKWp
|
||||
phqmi6b9p26n4KhSqMSpN6mpqhyqj6sCq3Wr6axcrNCtRK24ri2uoa8Wr4uwALB1sOqxYLHWskuywrM4
|
||||
s660JbSctRO1irYBtnm28Ldot+C4WbjRuUq5wro7urW7LrunvCG8m70VvY++Cr6Evv+/er/1wHDA7MFn
|
||||
wePCX8Lbw1jD1MRRxM7FS8XIxkbGw8dBx7/IPci8yTrJuco4yrfLNsu2zDXMtc01zbXONs62zzfPuNA5
|
||||
0LrRPNG+0j/SwdNE08bUSdTL1U7V0dZV1tjXXNfg2GTY6Nls2fHadtr724DcBdyK3RDdlt4c3qLfKd+v
|
||||
4DbgveFE4cziU+Lb42Pj6+Rz5PzlhOYN5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M
|
||||
8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23////b
|
||||
AEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMD
|
||||
AwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
|
||||
AwMDAwMDAwMDAwMDAwMDA//AABEIAAwAPAMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQID
|
||||
BAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR
|
||||
8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOE
|
||||
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp
|
||||
6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUE
|
||||
BAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3
|
||||
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeo
|
||||
qaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/
|
||||
AP1ZH7UPxEAA/wCEw8bnj/ob9f8A/k+v7U/1Nyj/AKF+G/8ABUP/AJE/llcSZlZf7dX/APBk/wDMX/hq
|
||||
H4if9Df43/8ACv1//wCT6P8AU3Kf+hfhv/BUP/kQ/wBZcy/6Dq//AIMn/mH/AA1D8RP+hv8AG/8A4V+v
|
||||
/wDyfR/qblP/AEL8N/4Kh/8AIh/rLmX/AEHV/wDwZP8AzD/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/
|
||||
AMFQ/wDkQ/1lzL/oOr/+DJ/5h/w1D8RP+hv8b/8AhX6//wDJ9H+puU/9C/Df+Cof/Ih/rLmX/QdX/wDB
|
||||
k/8AMT/hqH4if9Df43/8K/X/AP5Po/1Nyn/oX4b/AMFQ/wDkQ/1kzL/oOr/+DJ/5n2R+xz+234zt/iRp
|
||||
nw+8a6vqXiDwZ4gs9baObXr+bUr/AMPajpmkX2tQ3FlqV2Zb57K7XT2t3tXkaJWkV4whVxJ+beJfAuU4
|
||||
Th/FZ/hKEKOMw8qd+SKjGcZzjTs4q0bpyUlJK7s073VvuuBOLMxxGcYfJ8TWlVw1ZTtzu7hKMJTupPWz
|
||||
UWnFu2qatrf9aP8AhfXgv+zv7U89/sfm+V5207N+M43fSv50P2w/kwr/AEFP42CgAoAKACgAoA9s/Z0/
|
||||
s7/hcng3+1vP/s7Ov/avs2PP2f8ACL63t2buP9ZjP+zmvz7xU/5IPPf+4H/qRRPsvD//AJK7KP8AuL/6
|
||||
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
/9j/4AAQSkZJRgABAgEASABIAAD/7gAOQWRvYmUAZAAAAAAB/+ED5kV4aWYAAE1NACoAAAAIAAcBEgAD
|
||||
@@ -290,6 +390,12 @@
|
||||
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="sortkey.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>286, 17</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>45</value>
|
||||
</metadata>
|
||||
|
||||
@@ -88,6 +88,7 @@ Public Class Frm_kongjo
|
||||
'Work_msg_timer("잠시만 기다려주세요")
|
||||
|
||||
|
||||
|
||||
Me.bs.DataSource = DSET1
|
||||
'//공조처리
|
||||
AddHandler DSET1.tbl_kongjo.TableNewRow, AddressOf AddNewDataRow_kongjo
|
||||
@@ -191,7 +192,20 @@ Public Class Frm_kongjo
|
||||
e.Row.Item("팬효율산출방식") = "계산치"
|
||||
e.Row.Item("설명") = "신규데이터"
|
||||
e.Row.Item("공조방식") = Me.Parameter '//현재선택된데이터로 공조방식을 처리해준다.
|
||||
e.Row.Item("sortkey") = GetNewSortKey()
|
||||
End Sub
|
||||
|
||||
Private Function GetNewSortKey() As String
|
||||
AddDebug("GetNewSortKey")
|
||||
|
||||
Dim drows() As DS.tbl_kongjoRow = DSET1.tbl_kongjo.Select("code <> '0'", "sortkey desc")
|
||||
If drows.Length < 1 Then Return 1
|
||||
Dim Dr As DS.tbl_kongjoRow = drows(0)
|
||||
Dim maxsortkey As Integer = Dr.sortkey
|
||||
Return maxsortkey + 1
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub AddNewDataRow_Zone_Changed(ByVal sender As Object, ByVal e As System.Data.DataColumnChangeEventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
17
ArinWarev1/Forms_Input/Frm_kongkub.Designer.vb
generated
17
ArinWarev1/Forms_Input/Frm_kongkub.Designer.vb
generated
@@ -37,6 +37,7 @@ Partial Class Frm_kongkub
|
||||
Dim Label17 As System.Windows.Forms.Label
|
||||
Dim Label18 As System.Windows.Forms.Label
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_kongkub))
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.bs = New System.Windows.Forms.BindingSource(Me.components)
|
||||
Me.DS = New Eco2Ar.DS()
|
||||
Me.전기난방GroupBox = New System.Windows.Forms.GroupBox()
|
||||
@@ -86,6 +87,7 @@ Partial Class Frm_kongkub
|
||||
Me.Label11 = New System.Windows.Forms.Label()
|
||||
Me.PictureBox4 = New System.Windows.Forms.PictureBox()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.sortkey = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Label1 = New System.Windows.Forms.Label()
|
||||
Label2 = New System.Windows.Forms.Label()
|
||||
@@ -275,6 +277,7 @@ Partial Class Frm_kongkub
|
||||
Me.bs.DataMember = "tbl_kongkub"
|
||||
Me.bs.DataSource = Me.DS
|
||||
Me.bs.Filter = "code <> '0'"
|
||||
Me.bs.Sort = "sortkey, 설명"
|
||||
'
|
||||
'DS
|
||||
'
|
||||
@@ -664,8 +667,7 @@ Partial Class Frm_kongkub
|
||||
Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.dv.ColumnHeadersHeight = 30
|
||||
Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
|
||||
Me.dv.ColumnHeadersVisible = False
|
||||
Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1})
|
||||
Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.sortkey, Me.DataGridViewTextBoxColumn1})
|
||||
Me.dv.DataSource = Me.bs
|
||||
Me.dv.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dv.Location = New System.Drawing.Point(0, 0)
|
||||
@@ -812,6 +814,16 @@ Partial Class Frm_kongkub
|
||||
Me.Panel1.Size = New System.Drawing.Size(588, 30)
|
||||
Me.Panel1.TabIndex = 5
|
||||
'
|
||||
'sortkey
|
||||
'
|
||||
Me.sortkey.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
|
||||
Me.sortkey.DataPropertyName = "sortkey"
|
||||
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
|
||||
Me.sortkey.DefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.sortkey.HeaderText = "▼"
|
||||
Me.sortkey.Name = "sortkey"
|
||||
Me.sortkey.Width = 30
|
||||
'
|
||||
'DataGridViewTextBoxColumn1
|
||||
'
|
||||
Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||
@@ -917,5 +929,6 @@ Partial Class Frm_kongkub
|
||||
Friend WithEvents PictureBox8 As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
|
||||
Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel
|
||||
Friend WithEvents sortkey As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
End Class
|
||||
|
||||
@@ -162,6 +162,9 @@
|
||||
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>286, 17</value>
|
||||
</metadata>
|
||||
<metadata name="sortkey.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>353, 17</value>
|
||||
</metadata>
|
||||
|
||||
@@ -290,8 +290,20 @@
|
||||
Private Sub AddNewDataRow_kongkub(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
|
||||
e.Row.Item("code") = GetMaxCode(DSET1.tbl_kongkub)
|
||||
e.Row.Item("설명") = "신규데이터"
|
||||
e.Row.Item("sortkey") = GetNewSortKey()
|
||||
End Sub
|
||||
|
||||
Private Function GetNewSortKey() As String
|
||||
AddDebug("GetNewSortKey")
|
||||
|
||||
Dim drows() As DS.tbl_kongkubRow = DSET1.tbl_kongkub.Select("code <> '0'", "sortkey desc")
|
||||
If drows.Length < 1 Then Return 1
|
||||
Dim Dr As DS.tbl_kongkubRow = drows(0)
|
||||
Dim maxsortkey As Integer = Dr.sortkey
|
||||
Return maxsortkey + 1
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged
|
||||
|
||||
261
ArinWarev1/Forms_Input/Frm_nBunbae.Designer.vb
generated
261
ArinWarev1/Forms_Input/Frm_nBunbae.Designer.vb
generated
@@ -23,21 +23,19 @@ Partial Class Frm_nBunbae
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim Label11 As System.Windows.Forms.Label
|
||||
Dim Label10 As System.Windows.Forms.Label
|
||||
Dim Label9 As System.Windows.Forms.Label
|
||||
Dim Label8 As System.Windows.Forms.Label
|
||||
Dim Label6 As System.Windows.Forms.Label
|
||||
Dim Label18 As System.Windows.Forms.Label
|
||||
Dim Label17 As System.Windows.Forms.Label
|
||||
Dim Label16 As System.Windows.Forms.Label
|
||||
Dim Label8 As System.Windows.Forms.Label
|
||||
Dim Label9 As System.Windows.Forms.Label
|
||||
Dim Label10 As System.Windows.Forms.Label
|
||||
Dim Label11 As System.Windows.Forms.Label
|
||||
Dim Label15 As System.Windows.Forms.Label
|
||||
Dim Label16 As System.Windows.Forms.Label
|
||||
Dim Label17 As System.Windows.Forms.Label
|
||||
Dim Label18 As System.Windows.Forms.Label
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_nBunbae))
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.bs = New System.Windows.Forms.BindingSource(Me.components)
|
||||
Me.DS = New Eco2Ar.DS()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Label19 = New System.Windows.Forms.Label()
|
||||
Me.Label225 = New System.Windows.Forms.Label()
|
||||
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
|
||||
Me.dv = New CEnergy.arindv()
|
||||
Me.bn = New System.Windows.Forms.BindingNavigator(Me.components)
|
||||
@@ -68,19 +66,23 @@ Partial Class Frm_nBunbae
|
||||
Me.열분배PictureBox = New System.Windows.Forms.PictureBox()
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.cmb_배관망유형 = New Eco2Ar.MyCmb()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.cmb_표준치적용 = New Eco2Ar.MyCmb()
|
||||
Me.Label19 = New System.Windows.Forms.Label()
|
||||
Me.Label225 = New System.Windows.Forms.Label()
|
||||
Me.cmb_생산기기구분 = New Eco2Ar.MyCmb()
|
||||
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Me.sortkey = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Label11 = New System.Windows.Forms.Label()
|
||||
Label10 = New System.Windows.Forms.Label()
|
||||
Label9 = New System.Windows.Forms.Label()
|
||||
Label8 = New System.Windows.Forms.Label()
|
||||
Label6 = New System.Windows.Forms.Label()
|
||||
Label18 = New System.Windows.Forms.Label()
|
||||
Label17 = New System.Windows.Forms.Label()
|
||||
Label16 = New System.Windows.Forms.Label()
|
||||
Label8 = New System.Windows.Forms.Label()
|
||||
Label9 = New System.Windows.Forms.Label()
|
||||
Label10 = New System.Windows.Forms.Label()
|
||||
Label11 = New System.Windows.Forms.Label()
|
||||
Label15 = New System.Windows.Forms.Label()
|
||||
Label16 = New System.Windows.Forms.Label()
|
||||
Label17 = New System.Windows.Forms.Label()
|
||||
Label18 = New System.Windows.Forms.Label()
|
||||
CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -99,38 +101,16 @@ Partial Class Frm_nBunbae
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Label11
|
||||
'Label6
|
||||
'
|
||||
Label11.AutoSize = True
|
||||
Label11.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
|
||||
Label11.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Label11.Location = New System.Drawing.Point(9, 42)
|
||||
Label11.Name = "Label11"
|
||||
Label11.Size = New System.Drawing.Size(118, 12)
|
||||
Label11.TabIndex = 125
|
||||
Label11.Text = "건물길이(x축)[m]:"
|
||||
'
|
||||
'Label10
|
||||
'
|
||||
Label10.AutoSize = True
|
||||
Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
|
||||
Label10.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Label10.Location = New System.Drawing.Point(9, 66)
|
||||
Label10.Name = "Label10"
|
||||
Label10.Size = New System.Drawing.Size(118, 12)
|
||||
Label10.TabIndex = 126
|
||||
Label10.Text = "건물너비(y축)[m]:"
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Label9.AutoSize = True
|
||||
Label9.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
|
||||
Label9.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Label9.Location = New System.Drawing.Point(9, 90)
|
||||
Label9.Name = "Label9"
|
||||
Label9.Size = New System.Drawing.Size(124, 12)
|
||||
Label9.TabIndex = 127
|
||||
Label9.Text = "난방을하는 층의 수:"
|
||||
Label6.AutoSize = True
|
||||
Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
|
||||
Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Label6.Location = New System.Drawing.Point(9, 138)
|
||||
Label6.Name = "Label6"
|
||||
Label6.Size = New System.Drawing.Size(108, 12)
|
||||
Label6.TabIndex = 129
|
||||
Label6.Text = "지관/연결관장소:"
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
@@ -143,49 +123,38 @@ Partial Class Frm_nBunbae
|
||||
Label8.TabIndex = 128
|
||||
Label8.Text = "층 고[m]:"
|
||||
'
|
||||
'Label6
|
||||
'Label9
|
||||
'
|
||||
Label6.AutoSize = True
|
||||
Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
|
||||
Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Label6.Location = New System.Drawing.Point(9, 138)
|
||||
Label6.Name = "Label6"
|
||||
Label6.Size = New System.Drawing.Size(108, 12)
|
||||
Label6.TabIndex = 129
|
||||
Label6.Text = "지관/연결관장소:"
|
||||
Label9.AutoSize = True
|
||||
Label9.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
|
||||
Label9.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Label9.Location = New System.Drawing.Point(9, 90)
|
||||
Label9.Name = "Label9"
|
||||
Label9.Size = New System.Drawing.Size(124, 12)
|
||||
Label9.TabIndex = 127
|
||||
Label9.Text = "난방을하는 층의 수:"
|
||||
'
|
||||
'Label18
|
||||
'Label10
|
||||
'
|
||||
Label18.AutoSize = True
|
||||
Label18.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
|
||||
Label18.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Label18.Location = New System.Drawing.Point(9, 129)
|
||||
Label18.Name = "Label18"
|
||||
Label18.Size = New System.Drawing.Size(88, 12)
|
||||
Label18.TabIndex = 24
|
||||
Label18.Text = "배관설치장소:"
|
||||
Label10.AutoSize = True
|
||||
Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
|
||||
Label10.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Label10.Location = New System.Drawing.Point(9, 66)
|
||||
Label10.Name = "Label10"
|
||||
Label10.Size = New System.Drawing.Size(118, 12)
|
||||
Label10.TabIndex = 126
|
||||
Label10.Text = "건물너비(y축)[m]:"
|
||||
'
|
||||
'Label17
|
||||
'Label11
|
||||
'
|
||||
Label17.AutoSize = True
|
||||
Label17.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
|
||||
Label17.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Label17.Location = New System.Drawing.Point(9, 102)
|
||||
Label17.Name = "Label17"
|
||||
Label17.Size = New System.Drawing.Size(213, 12)
|
||||
Label17.TabIndex = 23
|
||||
Label17.Text = "단위길이 배관의 열관류율[W/mK]:"
|
||||
'
|
||||
'Label16
|
||||
'
|
||||
Label16.AutoSize = True
|
||||
Label16.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
|
||||
Label16.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Label16.Location = New System.Drawing.Point(9, 73)
|
||||
Label16.Name = "Label16"
|
||||
Label16.Size = New System.Drawing.Size(112, 12)
|
||||
Label16.TabIndex = 22
|
||||
Label16.Text = "배관구간길이[m]:"
|
||||
Label11.AutoSize = True
|
||||
Label11.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
|
||||
Label11.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Label11.Location = New System.Drawing.Point(9, 42)
|
||||
Label11.Name = "Label11"
|
||||
Label11.Size = New System.Drawing.Size(118, 12)
|
||||
Label11.TabIndex = 125
|
||||
Label11.Text = "건물길이(x축)[m]:"
|
||||
'
|
||||
'Label15
|
||||
'
|
||||
@@ -198,53 +167,51 @@ Partial Class Frm_nBunbae
|
||||
Label15.TabIndex = 17
|
||||
Label15.Text = "배관구간방식:"
|
||||
'
|
||||
'Label16
|
||||
'
|
||||
Label16.AutoSize = True
|
||||
Label16.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
|
||||
Label16.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Label16.Location = New System.Drawing.Point(9, 73)
|
||||
Label16.Name = "Label16"
|
||||
Label16.Size = New System.Drawing.Size(112, 12)
|
||||
Label16.TabIndex = 22
|
||||
Label16.Text = "배관구간길이[m]:"
|
||||
'
|
||||
'Label17
|
||||
'
|
||||
Label17.AutoSize = True
|
||||
Label17.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
|
||||
Label17.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Label17.Location = New System.Drawing.Point(9, 102)
|
||||
Label17.Name = "Label17"
|
||||
Label17.Size = New System.Drawing.Size(213, 12)
|
||||
Label17.TabIndex = 23
|
||||
Label17.Text = "단위길이 배관의 열관류율[W/mK]:"
|
||||
'
|
||||
'Label18
|
||||
'
|
||||
Label18.AutoSize = True
|
||||
Label18.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer))
|
||||
Label18.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Label18.Location = New System.Drawing.Point(9, 129)
|
||||
Label18.Name = "Label18"
|
||||
Label18.Size = New System.Drawing.Size(88, 12)
|
||||
Label18.TabIndex = 24
|
||||
Label18.Text = "배관설치장소:"
|
||||
'
|
||||
'bs
|
||||
'
|
||||
Me.bs.DataMember = "tbl_nbunbae"
|
||||
Me.bs.DataSource = Me.DS
|
||||
Me.bs.Filter = "code <> '0'"
|
||||
Me.bs.Sort = "sortkey,설명"
|
||||
'
|
||||
'DS
|
||||
'
|
||||
Me.DS.DataSetName = "DS"
|
||||
Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
|
||||
Me.Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Me.Label1.Location = New System.Drawing.Point(414, 20)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(97, 12)
|
||||
Me.Label1.TabIndex = 121
|
||||
Me.Label1.Text = "2. 배관망 유형:"
|
||||
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'Label19
|
||||
'
|
||||
Me.Label19.AutoSize = True
|
||||
Me.Label19.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
|
||||
Me.Label19.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Me.Label19.Location = New System.Drawing.Point(8, 18)
|
||||
Me.Label19.Name = "Label19"
|
||||
Me.Label19.Size = New System.Drawing.Size(110, 12)
|
||||
Me.Label19.TabIndex = 119
|
||||
Me.Label19.Text = "0. 생산기기 구분:"
|
||||
Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'Label225
|
||||
'
|
||||
Me.Label225.AutoSize = True
|
||||
Me.Label225.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
|
||||
Me.Label225.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Me.Label225.Location = New System.Drawing.Point(8, 43)
|
||||
Me.Label225.Name = "Label225"
|
||||
Me.Label225.Size = New System.Drawing.Size(231, 12)
|
||||
Me.Label225.TabIndex = 119
|
||||
Me.Label225.Text = "1.각 배관손실산출 또는 표준치 적용+:"
|
||||
Me.Label225.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'SplitContainer1
|
||||
'
|
||||
Me.SplitContainer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
@@ -282,8 +249,7 @@ Partial Class Frm_nBunbae
|
||||
Me.dv.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.dv.ColumnHeadersHeight = 30
|
||||
Me.dv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
|
||||
Me.dv.ColumnHeadersVisible = False
|
||||
Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1})
|
||||
Me.dv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.sortkey, Me.DataGridViewTextBoxColumn1})
|
||||
Me.dv.DataSource = Me.bs
|
||||
Me.dv.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dv.Location = New System.Drawing.Point(0, 0)
|
||||
@@ -595,6 +561,18 @@ Partial Class Frm_nBunbae
|
||||
Me.cmb_배관망유형.Size = New System.Drawing.Size(133, 20)
|
||||
Me.cmb_배관망유형.TabIndex = 120
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
|
||||
Me.Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Me.Label1.Location = New System.Drawing.Point(414, 20)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(97, 12)
|
||||
Me.Label1.TabIndex = 121
|
||||
Me.Label1.Text = "2. 배관망 유형:"
|
||||
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'cmb_표준치적용
|
||||
'
|
||||
Me.cmb_표준치적용.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
@@ -605,6 +583,30 @@ Partial Class Frm_nBunbae
|
||||
Me.cmb_표준치적용.Size = New System.Drawing.Size(124, 20)
|
||||
Me.cmb_표준치적용.TabIndex = 1
|
||||
'
|
||||
'Label19
|
||||
'
|
||||
Me.Label19.AutoSize = True
|
||||
Me.Label19.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
|
||||
Me.Label19.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Me.Label19.Location = New System.Drawing.Point(8, 18)
|
||||
Me.Label19.Name = "Label19"
|
||||
Me.Label19.Size = New System.Drawing.Size(110, 12)
|
||||
Me.Label19.TabIndex = 119
|
||||
Me.Label19.Text = "0. 생산기기 구분:"
|
||||
Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'Label225
|
||||
'
|
||||
Me.Label225.AutoSize = True
|
||||
Me.Label225.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
|
||||
Me.Label225.ForeColor = System.Drawing.SystemColors.ControlDarkDark
|
||||
Me.Label225.Location = New System.Drawing.Point(8, 43)
|
||||
Me.Label225.Name = "Label225"
|
||||
Me.Label225.Size = New System.Drawing.Size(231, 12)
|
||||
Me.Label225.TabIndex = 119
|
||||
Me.Label225.Text = "1.각 배관손실산출 또는 표준치 적용+:"
|
||||
Me.Label225.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'cmb_생산기기구분
|
||||
'
|
||||
Me.cmb_생산기기구분.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
@@ -625,6 +627,16 @@ Partial Class Frm_nBunbae
|
||||
Me.PictureBox1.TabIndex = 122
|
||||
Me.PictureBox1.TabStop = False
|
||||
'
|
||||
'sortkey
|
||||
'
|
||||
Me.sortkey.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
|
||||
Me.sortkey.DataPropertyName = "sortkey"
|
||||
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
|
||||
Me.sortkey.DefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.sortkey.HeaderText = "▼"
|
||||
Me.sortkey.Name = "sortkey"
|
||||
Me.sortkey.Width = 30
|
||||
'
|
||||
'DataGridViewTextBoxColumn1
|
||||
'
|
||||
Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||
@@ -708,5 +720,6 @@ Partial Class Frm_nBunbae
|
||||
Friend WithEvents 열분배PictureBox As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
|
||||
Friend WithEvents lb_code As System.Windows.Forms.ToolStripLabel
|
||||
Friend WithEvents sortkey As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
End Class
|
||||
|
||||
@@ -117,31 +117,31 @@
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="Label11.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label10.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label9.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<metadata name="Label6.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label8.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label6.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<metadata name="Label9.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label18.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<metadata name="Label10.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label17.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<metadata name="Label11.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label15.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label16.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label15.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<metadata name="Label17.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="Label18.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
@@ -150,6 +150,9 @@
|
||||
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>286, 17</value>
|
||||
</metadata>
|
||||
<metadata name="sortkey.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>353, 17</value>
|
||||
</metadata>
|
||||
|
||||
@@ -278,7 +278,19 @@
|
||||
Private Sub AddNewDataRow_bunbae(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
|
||||
e.Row.Item("code") = GetMaxCode(DSET1.tbl_nbunbae)
|
||||
e.Row.Item("설명") = "신규데이터"
|
||||
e.Row.Item("sortkey") = GetNewSortKey()
|
||||
End Sub
|
||||
|
||||
Private Function GetNewSortKey() As String
|
||||
AddDebug("GetNewSortKey")
|
||||
|
||||
Dim drows() As DS.tbl_nbunbaeRow = DSET1.tbl_nbunbae.Select("code <> '0'", "sortkey desc")
|
||||
If drows.Length < 1 Then Return 1
|
||||
Dim Dr As DS.tbl_nbunbaeRow = drows(0)
|
||||
Dim maxsortkey As Integer = Dr.sortkey
|
||||
Return maxsortkey + 1
|
||||
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
Private Sub 냉동기ComboBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_생산기기구분.KeyDown
|
||||
|
||||
@@ -488,7 +488,7 @@ Partial Class Frm_V20091231_Myoun
|
||||
'lbl_pos
|
||||
'
|
||||
Me.lbl_pos.Name = "lbl_pos"
|
||||
Me.lbl_pos.Size = New System.Drawing.Size(12, 32)
|
||||
Me.lbl_pos.Size = New System.Drawing.Size(12, 12)
|
||||
Me.lbl_pos.Text = "0"
|
||||
'
|
||||
'Arindv1
|
||||
|
||||
220
ArinWarev1/Forms_Report/Frm_Macro.Designer.vb
generated
Normal file
220
ArinWarev1/Forms_Report/Frm_Macro.Designer.vb
generated
Normal file
@@ -0,0 +1,220 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Frm_Macro
|
||||
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()
|
||||
Dim DefaultFocusIndicatorRenderer1 As FarPoint.Win.Spread.DefaultFocusIndicatorRenderer = New FarPoint.Win.Spread.DefaultFocusIndicatorRenderer()
|
||||
Dim DefaultScrollBarRenderer1 As FarPoint.Win.Spread.DefaultScrollBarRenderer = New FarPoint.Win.Spread.DefaultScrollBarRenderer()
|
||||
Dim DefaultScrollBarRenderer2 As FarPoint.Win.Spread.DefaultScrollBarRenderer = New FarPoint.Win.Spread.DefaultScrollBarRenderer()
|
||||
Me.FpSpread1 = New FarPoint.Win.Spread.FpSpread()
|
||||
Me.FpSpread1_Sheet1 = New FarPoint.Win.Spread.SheetView()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.tbStart = New System.Windows.Forms.TextBox()
|
||||
Me.Button3 = New System.Windows.Forms.Button()
|
||||
Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.tbEnd = New System.Windows.Forms.TextBox()
|
||||
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
CType(Me.FpSpread1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.FpSpread1_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.TableLayoutPanel1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'FpSpread1
|
||||
'
|
||||
Me.FpSpread1.AccessibleDescription = ""
|
||||
Me.FpSpread1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.FpSpread1.FocusRenderer = DefaultFocusIndicatorRenderer1
|
||||
Me.FpSpread1.HorizontalScrollBar.Buttons = New FarPoint.Win.Spread.FpScrollBarButtonCollection("BackwardLineButton,ThumbTrack,ForwardLineButton")
|
||||
Me.FpSpread1.HorizontalScrollBar.Name = ""
|
||||
Me.FpSpread1.HorizontalScrollBar.Renderer = DefaultScrollBarRenderer1
|
||||
Me.FpSpread1.HorizontalScrollBar.TabIndex = 2
|
||||
Me.FpSpread1.Location = New System.Drawing.Point(0, 38)
|
||||
Me.FpSpread1.Name = "FpSpread1"
|
||||
Me.FpSpread1.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.FpSpread1_Sheet1})
|
||||
Me.FpSpread1.Size = New System.Drawing.Size(1019, 453)
|
||||
Me.FpSpread1.Skin = FarPoint.Win.Spread.DefaultSpreadSkins.Classic
|
||||
Me.FpSpread1.TabIndex = 0
|
||||
Me.FpSpread1.VerticalScrollBar.Buttons = New FarPoint.Win.Spread.FpScrollBarButtonCollection("BackwardLineButton,ThumbTrack,ForwardLineButton")
|
||||
Me.FpSpread1.VerticalScrollBar.Name = ""
|
||||
Me.FpSpread1.VerticalScrollBar.Renderer = DefaultScrollBarRenderer2
|
||||
Me.FpSpread1.VerticalScrollBar.TabIndex = 3
|
||||
Me.FpSpread1.VisualStyles = FarPoint.Win.VisualStyles.Off
|
||||
'
|
||||
'FpSpread1_Sheet1
|
||||
'
|
||||
Me.FpSpread1_Sheet1.Reset()
|
||||
Me.FpSpread1_Sheet1.SheetName = "Sheet1"
|
||||
'Formulas and custom names must be loaded with R1C1 reference style
|
||||
Me.FpSpread1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1
|
||||
FpSpread1_Sheet1.ColumnCount = 5
|
||||
FpSpread1_Sheet1.RowCount = 1
|
||||
Me.FpSpread1_Sheet1.ColumnFooter.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red
|
||||
Me.FpSpread1_Sheet1.ColumnFooter.DefaultStyle.Parent = "HeaderDefault"
|
||||
Me.FpSpread1_Sheet1.ColumnFooterSheetCornerStyle.NoteIndicatorColor = System.Drawing.Color.Red
|
||||
Me.FpSpread1_Sheet1.ColumnFooterSheetCornerStyle.Parent = "CornerDefault"
|
||||
Me.FpSpread1_Sheet1.ColumnHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red
|
||||
Me.FpSpread1_Sheet1.ColumnHeader.DefaultStyle.Parent = "HeaderDefault"
|
||||
Me.FpSpread1_Sheet1.RowHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red
|
||||
Me.FpSpread1_Sheet1.RowHeader.DefaultStyle.Parent = "RowHeaderDefault"
|
||||
Me.FpSpread1_Sheet1.SheetCornerStyle.NoteIndicatorColor = System.Drawing.Color.Red
|
||||
Me.FpSpread1_Sheet1.SheetCornerStyle.Parent = "CornerDefault"
|
||||
Me.FpSpread1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Button2.Location = New System.Drawing.Point(673, 3)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(194, 32)
|
||||
Me.Button2.TabIndex = 1
|
||||
Me.Button2.Text = "결과저장하기"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Button1.Location = New System.Drawing.Point(3, 3)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(194, 32)
|
||||
Me.Button1.TabIndex = 0
|
||||
Me.Button1.Text = "목록불러오기"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'tbStart
|
||||
'
|
||||
Me.tbStart.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.tbStart.Font = New System.Drawing.Font("맑은 고딕", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.tbStart.Location = New System.Drawing.Point(283, 3)
|
||||
Me.tbStart.Name = "tbStart"
|
||||
Me.tbStart.Size = New System.Drawing.Size(74, 33)
|
||||
Me.tbStart.TabIndex = 2
|
||||
Me.tbStart.Text = "6"
|
||||
Me.tbStart.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
'
|
||||
'Button3
|
||||
'
|
||||
Me.Button3.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Button3.Location = New System.Drawing.Point(523, 3)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(144, 32)
|
||||
Me.Button3.TabIndex = 3
|
||||
Me.Button3.Text = "실행"
|
||||
Me.Button3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'ProgressBar1
|
||||
'
|
||||
Me.ProgressBar1.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.ProgressBar1.Location = New System.Drawing.Point(0, 491)
|
||||
Me.ProgressBar1.Name = "ProgressBar1"
|
||||
Me.ProgressBar1.Size = New System.Drawing.Size(1019, 23)
|
||||
Me.ProgressBar1.TabIndex = 2
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Label1.Location = New System.Drawing.Point(363, 0)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(74, 38)
|
||||
Me.Label1.TabIndex = 3
|
||||
Me.Label1.Text = "~"
|
||||
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'tbEnd
|
||||
'
|
||||
Me.tbEnd.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.tbEnd.Font = New System.Drawing.Font("맑은 고딕", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.tbEnd.Location = New System.Drawing.Point(443, 3)
|
||||
Me.tbEnd.Name = "tbEnd"
|
||||
Me.tbEnd.Size = New System.Drawing.Size(74, 33)
|
||||
Me.tbEnd.TabIndex = 4
|
||||
Me.tbEnd.Text = "0"
|
||||
Me.tbEnd.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
'
|
||||
'TableLayoutPanel1
|
||||
'
|
||||
Me.TableLayoutPanel1.ColumnCount = 8
|
||||
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 200.0!))
|
||||
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 80.0!))
|
||||
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 80.0!))
|
||||
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 80.0!))
|
||||
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 80.0!))
|
||||
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 150.0!))
|
||||
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 200.0!))
|
||||
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
|
||||
Me.TableLayoutPanel1.Controls.Add(Me.Button1, 0, 0)
|
||||
Me.TableLayoutPanel1.Controls.Add(Me.Button3, 5, 0)
|
||||
Me.TableLayoutPanel1.Controls.Add(Me.Button2, 6, 0)
|
||||
Me.TableLayoutPanel1.Controls.Add(Me.tbEnd, 4, 0)
|
||||
Me.TableLayoutPanel1.Controls.Add(Me.Label2, 1, 0)
|
||||
Me.TableLayoutPanel1.Controls.Add(Me.tbStart, 2, 0)
|
||||
Me.TableLayoutPanel1.Controls.Add(Me.Label1, 3, 0)
|
||||
Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
|
||||
Me.TableLayoutPanel1.RowCount = 1
|
||||
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
|
||||
Me.TableLayoutPanel1.Size = New System.Drawing.Size(1019, 38)
|
||||
Me.TableLayoutPanel1.TabIndex = 5
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Label2.Location = New System.Drawing.Point(203, 0)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(74, 38)
|
||||
Me.Label2.TabIndex = 3
|
||||
Me.Label2.Text = "실행범위"
|
||||
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'Frm_Macro
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(1019, 514)
|
||||
Me.Controls.Add(Me.FpSpread1)
|
||||
Me.Controls.Add(Me.TableLayoutPanel1)
|
||||
Me.Controls.Add(Me.ProgressBar1)
|
||||
Me.Name = "Frm_Macro"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "일괄처리"
|
||||
CType(Me.FpSpread1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.FpSpread1_Sheet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.TableLayoutPanel1.ResumeLayout(False)
|
||||
Me.TableLayoutPanel1.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents FpSpread1 As FarPoint.Win.Spread.FpSpread
|
||||
Friend WithEvents FpSpread1_Sheet1 As FarPoint.Win.Spread.SheetView
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
||||
Friend WithEvents tbStart As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Button3 As System.Windows.Forms.Button
|
||||
Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
|
||||
Friend WithEvents tbEnd As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
End Class
|
||||
123
ArinWarev1/Forms_Report/Frm_Macro.resx
Normal file
123
ArinWarev1/Forms_Report/Frm_Macro.resx
Normal 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>
|
||||
909
ArinWarev1/Forms_Report/Frm_Macro.vb
Normal file
909
ArinWarev1/Forms_Report/Frm_Macro.vb
Normal file
@@ -0,0 +1,909 @@
|
||||
Public Class Frm_Macro
|
||||
|
||||
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
|
||||
|
||||
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
|
||||
LoadFile()
|
||||
End Sub
|
||||
|
||||
Private Sub LoadFile()
|
||||
|
||||
Dim od As New OpenFileDialog
|
||||
od.Filter = "excel|*.xls|*.*|*.*"
|
||||
od.FilterIndex = 1
|
||||
If (od.ShowDialog() <> Windows.Forms.DialogResult.OK) Then Return
|
||||
fn = od.FileName
|
||||
|
||||
|
||||
If Not System.IO.File.Exists(fn) Then
|
||||
MsgBox("업로드샘플파일(" + fn + ")가 존재하지 않습니다", MsgBoxStyle.Critical, "확인")
|
||||
Return
|
||||
End If
|
||||
|
||||
Try
|
||||
If Me.FpSpread1.OpenExcel(fn) Then
|
||||
'// MakeData()
|
||||
'//첫줄에 열 번호를 넣는다.
|
||||
For col As Integer = 1 To 100
|
||||
Dim oldvalue As Object = FpSpread1_Sheet1.Cells(0, col - 1).Value
|
||||
If oldvalue Is Nothing Then
|
||||
FpSpread1_Sheet1.Cells(0, col - 1).Value = "(" + col.ToString() + ")"
|
||||
Else
|
||||
FpSpread1_Sheet1.Cells(0, col - 1).Value = oldvalue.ToString() + "(" + col.ToString() + ")"
|
||||
End If
|
||||
Next
|
||||
|
||||
'//0번째열에서 1의 값을 찾고 그 이후의 값을 찾아서 번호를 설정한다.
|
||||
Dim StartIndex As Integer = 0
|
||||
Dim EndIndex As Integer = 0
|
||||
ProgressBar1.Minimum = 0
|
||||
ProgressBar1.Maximum = 10000
|
||||
ProgressBar1.Value = 0
|
||||
For i As Integer = 0 To 65535
|
||||
If i >= ProgressBar1.Maximum - 1 Then
|
||||
ProgressBar1.Value = ProgressBar1.Maximum
|
||||
Else
|
||||
ProgressBar1.Value += 1
|
||||
End If
|
||||
|
||||
Dim curval As Object = FpSpread1_Sheet1.Cells(i, 0).Value
|
||||
If curval Is Nothing Then
|
||||
If StartIndex <> 0 Then
|
||||
EndIndex = i - 1
|
||||
Exit For
|
||||
Else
|
||||
Continue For
|
||||
End If
|
||||
End If
|
||||
|
||||
If curval.ToString() = "1" Then
|
||||
StartIndex = i
|
||||
ElseIf StartIndex <> 0 Then
|
||||
If curval.ToString() = "" Then
|
||||
EndIndex = i - 1
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
tbStart.Text = (StartIndex + 1).ToString()
|
||||
tbEnd.Text = (EndIndex + 1).ToString()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "파일 불러오기 오류")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Function RData(grp As String, code As Integer) As Decimal
|
||||
Dim filter As String = String.Format("GRP='{0}' and code={1}", grp, code.ToString("000"))
|
||||
Dim DR() As DSR.TReqUseRow = DSETR1.TReqUse.Select(filter)
|
||||
If DR.GetUpperBound(0) = -1 Then Return 0
|
||||
Return DR(0).M00
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
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 sd As New SaveFileDialog()
|
||||
sd.Filter = "Excel(*.xls)|*.xls"
|
||||
sd.FilterIndex = 0
|
||||
If sd.ShowDialog = Windows.Forms.DialogResult.OK Then
|
||||
Try
|
||||
If FpSpread1.SaveExcel(sd.FileName, FarPoint.Excel.ExcelSaveFlags.NoFlagsSet) Then
|
||||
MsgBox("저장완료", MsgBoxStyle.Information, "확인")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "error")
|
||||
End Try
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Function 방위변환(기존값 As String, 옵셋 As String) As String
|
||||
Dim 최종값 As String = 기존값
|
||||
Select Case 옵셋
|
||||
Case "0도"
|
||||
Select Case 기존값
|
||||
Case "동"
|
||||
Case "서"
|
||||
Case "남"
|
||||
Case "북"
|
||||
End Select
|
||||
Case "90도"
|
||||
Select Case 기존값
|
||||
Case "동"
|
||||
최종값 = "남"
|
||||
Case "서"
|
||||
최종값 = "북"
|
||||
Case "남"
|
||||
최종값 = "서"
|
||||
Case "북"
|
||||
최종값 = "동"
|
||||
Case "남동"
|
||||
최종값 = "남서"
|
||||
Case "남서"
|
||||
최종값 = "북서"
|
||||
Case "북동"
|
||||
최종값 = "남동"
|
||||
Case "북서"
|
||||
최종값 = "북동"
|
||||
End Select
|
||||
Case "180도"
|
||||
Select Case 기존값
|
||||
Case "동"
|
||||
최종값 = "서"
|
||||
Case "서"
|
||||
최종값 = "동"
|
||||
Case "남"
|
||||
최종값 = "북"
|
||||
Case "북"
|
||||
최종값 = "남"
|
||||
Case "남동"
|
||||
최종값 = "북서"
|
||||
Case "남서"
|
||||
최종값 = "북동"
|
||||
Case "북동"
|
||||
최종값 = "남서"
|
||||
Case "북서"
|
||||
최종값 = "남동"
|
||||
End Select
|
||||
Case "270도"
|
||||
Select Case 기존값
|
||||
Case "동"
|
||||
최종값 = "북"
|
||||
Case "서"
|
||||
최종값 = "남"
|
||||
Case "남"
|
||||
최종값 = "동"
|
||||
Case "북"
|
||||
최종값 = "서"
|
||||
Case "남동"
|
||||
최종값 = "북동"
|
||||
Case "남서"
|
||||
최종값 = "남동"
|
||||
Case "북동"
|
||||
최종값 = "북서"
|
||||
Case "북서"
|
||||
최종값 = "남서"
|
||||
End Select
|
||||
End Select
|
||||
Return 최종값
|
||||
End Function
|
||||
|
||||
Function 공용코드값(구분 As String, 코드 As String) As String
|
||||
|
||||
Dim 결과 As String = 코드
|
||||
Dim datas As DS.tbl_commonRow() = DSET1.tbl_common.Select("gubun='" + 구분 + "' and code='" + 코드 + "'")
|
||||
If datas.Length = 1 Then
|
||||
결과 = datas(0).name
|
||||
End If
|
||||
Return 결과
|
||||
End Function
|
||||
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
|
||||
'//기본홤녀은 건물개요로
|
||||
MdiMain.Menu_건물개요()
|
||||
|
||||
|
||||
|
||||
Dim StartNo As Integer = CInt(tbStart.Text)
|
||||
Dim EndNo As Integer = CInt(tbEnd.Text)
|
||||
Me.ProgressBar1.Value = 0
|
||||
Me.ProgressBar1.Minimum = 0
|
||||
Me.ProgressBar1.Maximum = EndNo - StartNo + 1
|
||||
|
||||
If MsgBox("전체 실행전에 1건에대해서 테스트실행을 하시겠습니까?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, "확인") = MsgBoxResult.Yes Then
|
||||
EndNo = StartNo
|
||||
ElseIf MsgBox("전체 " + Me.ProgressBar1.Maximum.ToString() + "건의 자료를 실행하시겠습니까?" + vbCrLf + "이 작업은 중단할 수 없습니다", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, "확인") <> MsgBoxResult.Yes Then
|
||||
Return
|
||||
End If
|
||||
|
||||
For RowNum As Integer = StartNo To EndNo
|
||||
|
||||
Me.ProgressBar1.Value += 1
|
||||
|
||||
Dim Row = RowNum - 1
|
||||
Dim ColIDX As Integer = 1
|
||||
|
||||
'//건물개요
|
||||
'//DSET1.tbl_Desc.Clear()
|
||||
Dim NewDesc As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0)
|
||||
Dim 회전방향 As String = FpSpread1_Sheet1.Cells(Row, 2).Value.ToString()
|
||||
For i As Integer = 0 To DSET1.tbl_myoun.Rows.Count - 1
|
||||
Dim dr As DS.tbl_myounRow = DSET1.tbl_myoun.Rows(i)
|
||||
dr.방위 = 방위변환(dr.방위, 회전방향)
|
||||
dr.EndEdit()
|
||||
Next
|
||||
|
||||
Dim 열관외벽직접 As String = FpSpread1_Sheet1.Cells(Row, 3).Value.ToString()
|
||||
For i As Integer = 0 To DSET1.tbl_yk.Rows.Count - 1
|
||||
Dim dr As DS.tbl_ykRow = DSET1.tbl_yk.Rows(i)
|
||||
If 공용코드값("1088", dr.면형태) <> "외벽(벽체)" Then Continue For
|
||||
dr.열관류율 = 열관외벽직접
|
||||
dr.EndEdit()
|
||||
Next
|
||||
Dim 열관외벽간접 As String = FpSpread1_Sheet1.Cells(Row, 4).Value.ToString()
|
||||
For i As Integer = 0 To DSET1.tbl_yk.Rows.Count - 1
|
||||
Dim dr As DS.tbl_ykRow = DSET1.tbl_yk.Rows(i)
|
||||
If 공용코드값("1088", dr.면형태) <> "내벽(벽체)" Then Continue For
|
||||
dr.열관류율 = 열관외벽간접
|
||||
dr.EndEdit()
|
||||
Next
|
||||
Dim 열관지붕직접 As String = FpSpread1_Sheet1.Cells(Row, 5).Value.ToString()
|
||||
For i As Integer = 0 To DSET1.tbl_yk.Rows.Count - 1
|
||||
Dim dr As DS.tbl_ykRow = DSET1.tbl_yk.Rows(i)
|
||||
If 공용코드값("1088", dr.면형태) <> "외벽(지붕)" Then Continue For
|
||||
dr.열관류율 = 열관지붕직접
|
||||
dr.EndEdit()
|
||||
Next
|
||||
Dim 열관지붕간접 As String = FpSpread1_Sheet1.Cells(Row, 6).Value.ToString()
|
||||
For i As Integer = 0 To DSET1.tbl_yk.Rows.Count - 1
|
||||
Dim dr As DS.tbl_ykRow = DSET1.tbl_yk.Rows(i)
|
||||
If 공용코드값("1088", dr.면형태) <> "내벽(지붕)" Then Continue For
|
||||
dr.열관류율 = 열관지붕간접
|
||||
dr.EndEdit()
|
||||
Next
|
||||
|
||||
Dim 열관바닥직접 As String = FpSpread1_Sheet1.Cells(Row, 7).Value.ToString()
|
||||
For i As Integer = 0 To DSET1.tbl_yk.Rows.Count - 1
|
||||
Dim dr As DS.tbl_ykRow = DSET1.tbl_yk.Rows(i)
|
||||
If 공용코드값("1088", dr.면형태) <> "외벽(바닥)" Then Continue For
|
||||
dr.열관류율 = 열관바닥직접
|
||||
dr.EndEdit()
|
||||
Next
|
||||
Dim 열관바닥간접 As String = FpSpread1_Sheet1.Cells(Row, 8).Value.ToString()
|
||||
For i As Integer = 0 To DSET1.tbl_yk.Rows.Count - 1
|
||||
Dim dr As DS.tbl_ykRow = DSET1.tbl_yk.Rows(i)
|
||||
If 공용코드값("1088", dr.면형태) <> "내벽(바닥)" Then Continue For
|
||||
dr.열관류율 = 열관바닥간접
|
||||
dr.EndEdit()
|
||||
Next
|
||||
Dim 열관외부창 As String = FpSpread1_Sheet1.Cells(Row, 9).Value.ToString()
|
||||
Dim 일사에너지투과율외부창 As String = FpSpread1_Sheet1.Cells(Row, 11).Value.ToString()
|
||||
|
||||
For i As Integer = 0 To DSET1.tbl_yk.Rows.Count - 1
|
||||
Dim dr As DS.tbl_ykRow = DSET1.tbl_yk.Rows(i)
|
||||
If 공용코드값("1088", dr.면형태) <> "외부창" Then Continue For
|
||||
dr.열관류율 = 열관외부창
|
||||
dr.일사에너지투과율 = 일사에너지투과율외부창
|
||||
dr.EndEdit()
|
||||
Next
|
||||
Dim 열관내부창 As String = FpSpread1_Sheet1.Cells(Row, 10).Value.ToString()
|
||||
For i As Integer = 0 To DSET1.tbl_yk.Rows.Count - 1
|
||||
Dim dr As DS.tbl_ykRow = DSET1.tbl_yk.Rows(i)
|
||||
If 공용코드값("1088", dr.면형태) <> "내부창" Then Continue For
|
||||
dr.열관류율 = 열관내부창
|
||||
dr.EndEdit()
|
||||
Next
|
||||
|
||||
Dim 난방히트펌프난방cop7 As String = FpSpread1_Sheet1.Cells(Row, 12).Value.ToString()
|
||||
For i As Integer = 0 To DSET1.tbl_nanbangkiki.Rows.Count - 1
|
||||
Dim dr As DS.tbl_nanbangkikiRow = DSET1.tbl_nanbangkiki.Rows(i)
|
||||
dr.히트난방정격7 = 난방히트펌프난방cop7
|
||||
dr.EndEdit()
|
||||
Next
|
||||
Dim 난방히트펌프난방cop15 As String = FpSpread1_Sheet1.Cells(Row, 13).Value.ToString()
|
||||
For i As Integer = 0 To DSET1.tbl_nanbangkiki.Rows.Count - 1
|
||||
Dim dr As DS.tbl_nanbangkikiRow = DSET1.tbl_nanbangkiki.Rows(i)
|
||||
dr.히트난방정격10 = 난방히트펌프난방cop15
|
||||
dr.EndEdit()
|
||||
Next
|
||||
Dim 냉방열성능비cop As String = FpSpread1_Sheet1.Cells(Row, 14).Value.ToString()
|
||||
For i As Integer = 0 To DSET1.tbl_nangbangkiki.Rows.Count - 1
|
||||
Dim dr As DS.tbl_nangbangkikiRow = DSET1.tbl_nangbangkiki.Rows(i)
|
||||
dr.열성능비 = 냉방열성능비cop
|
||||
dr.EndEdit()
|
||||
Next
|
||||
|
||||
Dim 조명에너지부하율 As String = FpSpread1_Sheet1.Cells(Row, 15).Value.ToString()
|
||||
For i As Integer = 0 To DSET1.tbl_zone.Rows.Count - 1
|
||||
Dim dr As DS.tbl_zoneRow = DSET1.tbl_zone.Rows(i)
|
||||
Dim 프로필코드 As String = dr.프로필
|
||||
Dim 프로필목록 As DS.tbl_profileRow() = DSET1.tbl_profile.Select("code='" + dr.프로필 + "'")
|
||||
If 프로필목록.Length = 1 AndAlso 프로필목록(0).설명.StartsWith("07") Then
|
||||
dr.조명에너지부하율입력치 = 조명에너지부하율
|
||||
dr.EndEdit()
|
||||
End If
|
||||
Next
|
||||
|
||||
Dim 신재생모듈면적 As String = FpSpread1_Sheet1.Cells(Row, 16).Value.ToString()
|
||||
Dim 신재생모듈효율 As String = FpSpread1_Sheet1.Cells(Row, 17).Value.ToString()
|
||||
|
||||
For i As Integer = 0 To DSET1.tbl_new.Rows.Count - 1
|
||||
Dim dr As DS.tbl_newRow = DSET1.tbl_new.Rows(i)
|
||||
dr.태양광모듈면적 = 신재생모듈면적
|
||||
dr.태양광모듈효율 = 신재생모듈효율
|
||||
dr.EndEdit()
|
||||
Next
|
||||
|
||||
|
||||
DSET1.AcceptChanges()
|
||||
|
||||
'//계산실행
|
||||
Run_Calc(Row)
|
||||
Next
|
||||
|
||||
If Not msgf Is Nothing Then
|
||||
msgf.Close()
|
||||
msgf.Dispose()
|
||||
msgf = Nothing
|
||||
End If
|
||||
|
||||
If StartNo = EndNo Then
|
||||
Report_그래프.Visible = False
|
||||
Report_그래프.Show()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Sub Run_Calc(Row As Integer)
|
||||
|
||||
'//현재데이터상태를 저장
|
||||
DSET1.AcceptChanges()
|
||||
DSETR1.AcceptChanges()
|
||||
|
||||
Dim Type As Calculator.ECalc = Calculator.ECalc.All '//요구량+소요량
|
||||
Dim showmsg As String = "" '//추가표시메세지
|
||||
Dim St As Date = Now '//계산시작
|
||||
|
||||
pLog.Add(">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>")
|
||||
pLog.Add(String.Format("계산실행({0})", Type.ToString()))
|
||||
pLog.Add(String.Format("시작시간 : {0}", St.ToString()))
|
||||
pLog.Add("----------------------------------")
|
||||
|
||||
Dim Result As Boolean = Calc.Start(showmsg, Type, LogSB, 0)
|
||||
Dim Ts As TimeSpan = Now - St '//계산경과시간을 표시해준다.
|
||||
Dim calc_ok As Integer = 1
|
||||
If Result Then '//파라미터 True 라면 소요량이 추가로 게산된다.
|
||||
Calc.Summary.All()
|
||||
If LogSB.ToString <> "" Then
|
||||
FpSpread1_Sheet1.Cells(Row, 18).Value = LogSB.ToString
|
||||
Else
|
||||
FpSpread1_Sheet1.Cells(Row, 18).Value = "시간:" + Ts.ToString()
|
||||
calc_ok = 1 '================================2014.04.17 계산이 완료되면 그래프를 보여줌
|
||||
End If
|
||||
Else
|
||||
FpSpread1_Sheet1.Cells(Row, 18).Value = LogSB.ToString
|
||||
End If
|
||||
|
||||
'//상태메세지창이 열려있다면 제거해준다.
|
||||
|
||||
If calc_ok = 1 Then
|
||||
'//해당값을 기록한다.
|
||||
Extract_Data(Row - 1)
|
||||
Else
|
||||
'//빈값으로 기록을 한다.
|
||||
Dim StartIDX As Integer = 100
|
||||
For idx As Integer = StartIDX To StartIDX + 13
|
||||
FpSpread1_Sheet1.Cells(Row, idx).Value = "--"
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub Extract_Data(Row As Integer)
|
||||
|
||||
'//2번째 시트에 데이터 기록
|
||||
Dim sheet As FarPoint.Win.Spread.SheetView = Me.FpSpread1.Sheets(1)
|
||||
|
||||
Dim 신재생에너지 As Decimal = 0
|
||||
Dim 난방에너지 As Decimal = 0
|
||||
Dim 냉방에너지 As Decimal = 0
|
||||
Dim 급탕에너지 As Decimal = 0
|
||||
Dim 조명에너지 As Decimal = 0
|
||||
Dim 환기에너지 As Decimal = 0
|
||||
|
||||
Dim 난방 As Decimal = 0 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
|
||||
Dim 냉방 As Decimal = 0
|
||||
Dim 조명 As Decimal = 0
|
||||
Dim 급탕 As Decimal = 0
|
||||
Dim 환기 As Decimal = 0
|
||||
|
||||
Dim 난방면적 As Decimal = 0
|
||||
Dim 냉방면적 As Decimal = 0
|
||||
Dim 조명면적 As Decimal = 0
|
||||
Dim 급탕면적 As Decimal = 0
|
||||
Dim 환기면적 As Decimal = 0
|
||||
|
||||
Dim Sum As Decimal = 0
|
||||
Dim 전기 As Decimal = 0
|
||||
Dim BaseIndex As Integer = 0
|
||||
Dim Dr2 As DSR.Graph_ReqUseRow
|
||||
For Gubun As Short = 0 To 4
|
||||
Select Case Gubun
|
||||
Case 0 '//1차에너지소요량
|
||||
|
||||
Sum = (Result1.생산E(0).태양광전력생산량 + Result1.생산E(0).신재생열병합전력생산량) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력)
|
||||
|
||||
난방 = Sum * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
|
||||
냉방 = Sum * Result1.일차E소요량(0).냉방전력
|
||||
조명 = Sum * Result1.일차E소요량(0).조명전력
|
||||
급탕 = Sum * Result1.일차E소요량(0).급탕전력
|
||||
환기 = Sum * Result1.일차E소요량(0).환기전력
|
||||
|
||||
난방면적 = 0
|
||||
냉방면적 = 0
|
||||
조명면적 = 0
|
||||
급탕면적 = 0
|
||||
환기면적 = 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
|
||||
|
||||
전기 = 난방면적 + 냉방면적 + 조명면적 + 급탕면적 + 환기면적
|
||||
|
||||
'//열병합신재생에너지추가 130831 arin
|
||||
신재생에너지 = -1 * (Result1.생산E(0).면적당생산량태양열 + Result1.생산E(0).신재생면적당열생산량 + Result1.생산E(0).면적당생산량지열 + 전기 * 2.75)
|
||||
|
||||
'//1차에너지소요량
|
||||
난방에너지 = Result1.일차E소요량(0).난방면적
|
||||
냉방에너지 = Result1.일차E소요량(0).냉방면적
|
||||
급탕에너지 = Result1.일차E소요량(0).급탕면적
|
||||
조명에너지 = Result1.일차E소요량(0).조명면적
|
||||
환기에너지 = Result1.일차E소요량(0).환기면적
|
||||
|
||||
sheet.Cells(Row, BaseIndex + 14).Value = 난방에너지
|
||||
sheet.Cells(Row, BaseIndex + 15).Value = 냉방에너지
|
||||
sheet.Cells(Row, BaseIndex + 16).Value = 급탕에너지
|
||||
sheet.Cells(Row, BaseIndex + 17).Value = 조명에너지
|
||||
sheet.Cells(Row, BaseIndex + 18).Value = 환기에너지
|
||||
sheet.Cells(Row, BaseIndex + 19).Value = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
|
||||
|
||||
Case 1 '//에너지소요량
|
||||
|
||||
Sum = (Result1.생산E(0).태양광전력생산량 + Result1.생산E(0).신재생열병합전력생산량) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력)
|
||||
|
||||
난방 = Sum * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
|
||||
냉방 = Sum * Result1.일차E소요량(0).냉방전력
|
||||
조명 = Sum * Result1.일차E소요량(0).조명전력
|
||||
급탕 = Sum * Result1.일차E소요량(0).급탕전력
|
||||
환기 = Sum * Result1.일차E소요량(0).환기전력
|
||||
|
||||
난방면적 = 0
|
||||
냉방면적 = 0
|
||||
조명면적 = 0
|
||||
급탕면적 = 0
|
||||
환기면적 = 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
|
||||
신재생에너지 = -1 * (Result1.생산E(0).면적당생산량태양열 + Result1.생산E(0).신재생면적당열생산량 + Result1.생산E(0).면적당생산량지열) - 면적
|
||||
난방에너지 = Result1.E소요량(0).난방면적
|
||||
냉방에너지 = Result1.E소요량(0).냉방면적
|
||||
급탕에너지 = Result1.E소요량(0).급탕면적
|
||||
조명에너지 = Result1.E소요량(0).조명면적
|
||||
환기에너지 = Result1.E소요량(0).환기면적
|
||||
'FpSpread1_Sheet1.Cells(Row, BaseIndex - 1).Value = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
|
||||
|
||||
sheet.Cells(Row, BaseIndex + 8).Value = 난방에너지
|
||||
sheet.Cells(Row, BaseIndex + 9).Value = 냉방에너지
|
||||
sheet.Cells(Row, BaseIndex + 10).Value = 급탕에너지
|
||||
sheet.Cells(Row, BaseIndex + 11).Value = 조명에너지
|
||||
sheet.Cells(Row, BaseIndex + 12).Value = 환기에너지
|
||||
sheet.Cells(Row, BaseIndex + 13).Value = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
|
||||
|
||||
|
||||
Case 2 '//에너지요구량
|
||||
|
||||
신재생에너지 = 0
|
||||
난방에너지 = Result1.E요구량(0).난방면적
|
||||
냉방에너지 = Result1.E요구량(0).냉방면적
|
||||
급탕에너지 = Result1.E요구량(0).급탕면적
|
||||
조명에너지 = Result1.E요구량(0).조명면적
|
||||
환기에너지 = 0
|
||||
|
||||
sheet.Cells(Row, BaseIndex + 2).Value = 난방에너지
|
||||
sheet.Cells(Row, BaseIndex + 3).Value = 냉방에너지
|
||||
sheet.Cells(Row, BaseIndex + 4).Value = 급탕에너지
|
||||
sheet.Cells(Row, BaseIndex + 5).Value = 조명에너지
|
||||
sheet.Cells(Row, BaseIndex + 6).Value = 환기에너지
|
||||
sheet.Cells(Row, BaseIndex + 7).Value = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
|
||||
|
||||
Case 3 '//co2발생량
|
||||
|
||||
신재생에너지 = 0
|
||||
난방에너지 = Result1.Co2발생량(0).난방면적
|
||||
냉방에너지 = Result1.Co2발생량(0).냉방면적
|
||||
급탕에너지 = Result1.Co2발생량(0).급탕면적
|
||||
조명에너지 = Result1.Co2발생량(0).조명면적
|
||||
환기에너지 = Result1.Co2발생량(0).환기면적
|
||||
'sheet.Cells(Row, BaseIndex + 1).Value = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
|
||||
|
||||
Case 4 '//1차에너지소요량(+계수) + 131020
|
||||
|
||||
신재생에너지 = 0
|
||||
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
|
||||
|
||||
sheet.Cells(Row, BaseIndex + 20).Value = 난방에너지
|
||||
sheet.Cells(Row, BaseIndex + 21).Value = 냉방에너지
|
||||
sheet.Cells(Row, BaseIndex + 22).Value = 급탕에너지
|
||||
sheet.Cells(Row, BaseIndex + 23).Value = 조명에너지
|
||||
sheet.Cells(Row, BaseIndex + 24).Value = 환기에너지
|
||||
sheet.Cells(Row, BaseIndex + 25).Value = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
|
||||
|
||||
|
||||
End Select
|
||||
Next
|
||||
|
||||
'//에너지생산량
|
||||
Sum = (Result1.생산E(0).태양광전력생산량 + Result1.생산E(0).풍력전력생산량 + Result1.생산E(0).신재생열병합전력생산량) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력)
|
||||
Dim Sum_offsite As Decimal = (Result1.생산E(0).태양광전력생산량_offsite + Result1.생산E(0).풍력전력생산량_offsite) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력)
|
||||
난방 = Sum * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
|
||||
냉방 = Sum * Result1.일차E소요량(0).냉방전력
|
||||
조명 = Sum * Result1.일차E소요량(0).조명전력
|
||||
급탕 = Sum * Result1.일차E소요량(0).급탕전력
|
||||
환기 = Sum * Result1.일차E소요량(0).환기전력
|
||||
|
||||
Dim 난방_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
|
||||
Dim 냉방_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).냉방전력
|
||||
Dim 조명_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).조명전력
|
||||
Dim 급탕_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).급탕전력
|
||||
Dim 환기_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).환기전력
|
||||
|
||||
|
||||
난방면적 = 0
|
||||
냉방면적 = 0
|
||||
조명면적 = 0
|
||||
급탕면적 = 0
|
||||
환기면적 = 0
|
||||
|
||||
Dim 난방면적_offsite As Decimal = 0
|
||||
Dim 냉방면적_offsite As Decimal = 0
|
||||
Dim 조명면적_offsite As Decimal = 0
|
||||
Dim 급탕면적_offsite As Decimal = 0
|
||||
Dim 환기면적_offsite 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
|
||||
|
||||
If Result1.사용면적.H <> 0 Then
|
||||
난방면적_offsite = TOSG(IIf(난방_offsite = 0, 0, 난방_offsite / Result1.사용면적.H))
|
||||
End If
|
||||
If Result1.사용면적.C <> 0 Then
|
||||
냉방면적_offsite = TOSG(IIf(냉방_offsite = 0, 0, 냉방_offsite / Result1.사용면적.C))
|
||||
End If
|
||||
If Result1.사용면적.L <> 0 Then
|
||||
조명면적_offsite = TOSG(IIf(조명_offsite = 0, 0, 조명_offsite / Result1.사용면적.L))
|
||||
End If
|
||||
If Result1.사용면적.W <> 0 Then
|
||||
급탕면적_offsite = TOSG(IIf(급탕_offsite = 0, 0, 급탕_offsite / Result1.사용면적.W))
|
||||
End If
|
||||
If Result1.사용면적.V <> 0 Then
|
||||
환기면적_offsite = TOSG(IIf(환기_offsite = 0, 0, 환기_offsite / Result1.사용면적.V))
|
||||
End If
|
||||
|
||||
Dim 에너지생산량_난방 As Decimal = 난방면적 + 난방면적_offsite + _
|
||||
Result1.생산E(0).면적당생산량태양열_난방 + _
|
||||
Result1.생산E(0).면적당생산량수열_난방 + _
|
||||
Result1.생산E(0).면적당생산량지열_난방 + _
|
||||
Result1.생산E(0).신재생면적당열생산량_난방
|
||||
|
||||
Dim 에너지생산량_냉방 As Decimal = 냉방면적 + 냉방면적_offsite + _
|
||||
Result1.생산E(0).면적당생산량태양열_냉방 + _
|
||||
Result1.생산E(0).면적당생산량수열_냉방 + _
|
||||
Result1.생산E(0).면적당생산량지열_냉방 + _
|
||||
Result1.생산E(0).신재생면적당열생산량_냉방
|
||||
|
||||
Dim 에너지생산량_급탕 As Decimal = 급탕면적 + 급탕면적_offsite + _
|
||||
Result1.생산E(0).면적당생산량태양열_급탕 + _
|
||||
Result1.생산E(0).면적당생산량수열_급탕 + _
|
||||
Result1.생산E(0).면적당생산량지열_급탕 + _
|
||||
Result1.생산E(0).신재생면적당열생산량_급탕
|
||||
|
||||
sheet.Cells(Row, BaseIndex + 26).Value = 에너지생산량_난방
|
||||
sheet.Cells(Row, BaseIndex + 27).Value = 에너지생산량_냉방
|
||||
sheet.Cells(Row, BaseIndex + 28).Value = 에너지생산량_급탕
|
||||
sheet.Cells(Row, BaseIndex + 29).Value = 조명면적 + 조명면적_offsite
|
||||
sheet.Cells(Row, BaseIndex + 30).Value = 환기면적 + 환기면적_offsite
|
||||
sheet.Cells(Row, BaseIndex + 31).Value = 에너지생산량_난방 + 에너지생산량_냉방 + 에너지생산량_급탕 + (조명면적 + 조명면적_offsite) + (환기면적 + 환기면적_offsite)
|
||||
|
||||
|
||||
Dim multi As Decimal = 2.75
|
||||
Dim 에너지생산량_난방_1차 As Decimal = (난방면적 + 난방면적_offsite) * multi + _
|
||||
Result1.생산E(0).면적당생산량태양열_난방 + _
|
||||
Result1.생산E(0).면적당생산량수열_난방 + _
|
||||
Result1.생산E(0).면적당생산량지열_난방 + _
|
||||
Result1.생산E(0).신재생면적당열생산량_난방
|
||||
|
||||
Dim 에너지생산량_냉방_1차 As Decimal = (냉방면적 + 냉방면적_offsite) * multi + _
|
||||
Result1.생산E(0).면적당생산량태양열_냉방 + _
|
||||
Result1.생산E(0).면적당생산량수열_냉방 + _
|
||||
Result1.생산E(0).면적당생산량지열_냉방 + _
|
||||
Result1.생산E(0).신재생면적당열생산량_냉방
|
||||
|
||||
Dim 에너지생산량_급탕_1차 As Decimal = (급탕면적 + 급탕면적_offsite) * multi + _
|
||||
Result1.생산E(0).면적당생산량태양열_급탕 + _
|
||||
Result1.생산E(0).면적당생산량수열_급탕 + _
|
||||
Result1.생산E(0).면적당생산량지열_급탕 + _
|
||||
Result1.생산E(0).신재생면적당열생산량_급탕
|
||||
|
||||
sheet.Cells(Row, BaseIndex + 32).Value = 에너지생산량_난방_1차
|
||||
sheet.Cells(Row, BaseIndex + 33).Value = 에너지생산량_냉방_1차
|
||||
sheet.Cells(Row, BaseIndex + 34).Value = 에너지생산량_급탕_1차
|
||||
sheet.Cells(Row, BaseIndex + 35).Value = (조명면적 + 조명면적_offsite) * multi
|
||||
sheet.Cells(Row, BaseIndex + 36).Value = (환기면적 + 환기면적_offsite) * multi
|
||||
sheet.Cells(Row, BaseIndex + 37).Value = 에너지생산량_난방_1차 + 에너지생산량_냉방_1차 + 에너지생산량_급탕_1차 + ((조명면적 + 조명면적_offsite) * multi) + ((환기면적 + 환기면적_offsite) * multi)
|
||||
|
||||
|
||||
'//평균조명에너지부하율
|
||||
'//조명에너지-평균조명에너지부하율
|
||||
Dim 조명에너지_부하율합 As Decimal = 0
|
||||
Dim 조명에너지_면적합 As Decimal = 0
|
||||
For Each drZone As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0' and code <>'0000' and 면적 <> '0' and 면적 <> ''")
|
||||
|
||||
'//입력오류 체크
|
||||
If Not IsNumeric(drZone.면적) Then drZone.면적 = "0"
|
||||
If Not IsNumeric(drZone.입력존의수) Then drZone.입력존의수 = "1"
|
||||
If Not IsNumeric(drZone.조명에너지부하율입력치) Then drZone.조명에너지부하율입력치 = "0"
|
||||
If Not IsNumeric(drZone.조명에너지부하율계산치) Then drZone.조명에너지부하율계산치 = "0"
|
||||
|
||||
If drZone.면적 <> "0" Then
|
||||
조명에너지_면적합 += CInt(drZone.입력존의수) * TOSG(drZone.면적) '//모든면적의총합
|
||||
|
||||
If drZone.조명부하산출방법 = "입력치" Then
|
||||
조명에너지_부하율합 += TOSG(drZone.조명에너지부하율입력치) * (CInt(drZone.입력존의수) * TOSG(drZone.면적))
|
||||
ElseIf drZone.조명부하산출방법 = "계산치" Then
|
||||
조명에너지_부하율합 += TOSG(drZone.조명에너지부하율계산치) * (CInt(drZone.입력존의수) * TOSG(drZone.면적))
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
Dim 평균조명에너지부하율 As Decimal = 0
|
||||
If 조명에너지_면적합 <> 0 Then 평균조명에너지부하율 = (조명에너지_부하율합 / 조명에너지_면적합)
|
||||
sheet.Cells(Row, BaseIndex + 38).Value = 평균조명에너지부하율
|
||||
|
||||
'//자립률
|
||||
'//자립률관련추가 170725
|
||||
'//170725
|
||||
Dim 단위면적당신재생1차에너지합 As Decimal = 0
|
||||
Dim 단위면적당신재생1차에너지합_offsite As Decimal = 0
|
||||
Dim 단위면적당1차에너소비량합 As Decimal = 0
|
||||
Dim 에너지자립률 As Double = 0
|
||||
Dim 에너지자립률_offsite As Double = 0
|
||||
|
||||
Sum = (Result1.생산E(0).태양광전력생산량 + Result1.생산E(0).풍력전력생산량 + Result1.생산E(0).신재생열병합전력생산량) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력)
|
||||
Sum_offsite = (Result1.생산E(0).태양광전력생산량_offsite + Result1.생산E(0).풍력전력생산량_offsite) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력)
|
||||
난방 = Sum * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
|
||||
냉방 = Sum * Result1.일차E소요량(0).냉방전력
|
||||
조명 = Sum * Result1.일차E소요량(0).조명전력
|
||||
급탕 = Sum * Result1.일차E소요량(0).급탕전력
|
||||
환기 = Sum * Result1.일차E소요량(0).환기전력
|
||||
|
||||
난방_offsite = Sum_offsite * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
|
||||
냉방_offsite = Sum_offsite * Result1.일차E소요량(0).냉방전력
|
||||
조명_offsite = Sum_offsite * Result1.일차E소요량(0).조명전력
|
||||
급탕_offsite = Sum_offsite * Result1.일차E소요량(0).급탕전력
|
||||
환기_offsite = Sum_offsite * Result1.일차E소요량(0).환기전력
|
||||
|
||||
난방면적 = 0
|
||||
냉방면적 = 0
|
||||
조명면적 = 0
|
||||
급탕면적 = 0
|
||||
환기면적 = 0
|
||||
|
||||
난방면적_offsite = 0
|
||||
냉방면적_offsite = 0
|
||||
조명면적_offsite = 0
|
||||
급탕면적_offsite = 0
|
||||
환기면적_offsite = 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
|
||||
|
||||
If Result1.사용면적.H <> 0 Then
|
||||
난방면적_offsite = TOSG(IIf(난방_offsite = 0, 0, 난방_offsite / Result1.사용면적.H))
|
||||
End If
|
||||
If Result1.사용면적.C <> 0 Then
|
||||
냉방면적_offsite = TOSG(IIf(냉방_offsite = 0, 0, 냉방_offsite / Result1.사용면적.C))
|
||||
End If
|
||||
If Result1.사용면적.L <> 0 Then
|
||||
조명면적_offsite = TOSG(IIf(조명_offsite = 0, 0, 조명_offsite / Result1.사용면적.L))
|
||||
End If
|
||||
If Result1.사용면적.W <> 0 Then
|
||||
급탕면적_offsite = TOSG(IIf(급탕_offsite = 0, 0, 급탕_offsite / Result1.사용면적.W))
|
||||
End If
|
||||
If Result1.사용면적.V <> 0 Then
|
||||
환기면적_offsite = TOSG(IIf(환기_offsite = 0, 0, 환기_offsite / Result1.사용면적.V))
|
||||
End If
|
||||
|
||||
전기 = 난방면적 + 냉방면적 + 조명면적 + 급탕면적 + 환기면적
|
||||
Dim 전기_offsite As Decimal = 난방면적_offsite + 냉방면적_offsite + 조명면적_offsite + 급탕면적_offsite + 환기면적_offsite
|
||||
|
||||
'//열병합신재생에너지추가 130831 arin
|
||||
Dim _자립_신재생에너지 As Single = -1 * (Result1.생산E(0).면적당생산량태양열 + Result1.생산E(0).신재생면적당열생산량 + Result1.생산E(0).면적당생산량지열 + 전기 * 2.75)
|
||||
Dim _자립_신재생에너지_offsite As Single = -1 * (전기_offsite * 2.75)
|
||||
난방에너지 = Math.Round(Result1.일차E소요량(0).난방면적, 1)
|
||||
냉방에너지 = Math.Round(Result1.일차E소요량(0).냉방면적, 1)
|
||||
급탕에너지 = Math.Round(Result1.일차E소요량(0).급탕면적, 1)
|
||||
조명에너지 = Math.Round(Result1.일차E소요량(0).조명면적, 1)
|
||||
환기에너지 = Math.Round(Result1.일차E소요량(0).환기면적, 1)
|
||||
단위면적당신재생1차에너지합 = Math.Round(-1 * _자립_신재생에너지, 1)
|
||||
단위면적당신재생1차에너지합_offsite = Math.Round(-1 * _자립_신재생에너지_offsite, 1)
|
||||
|
||||
|
||||
단위면적당1차에너소비량합 = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지 + 단위면적당신재생1차에너지합
|
||||
If 단위면적당1차에너소비량합 <> 0 Then
|
||||
'에너지자립률 = (단위면적당신재생1차에너지합 / 단위면적당1차에너소비량합) * 100
|
||||
|
||||
에너지자립률 = (Math.Round(단위면적당신재생1차에너지합, 1) / 단위면적당1차에너소비량합) * 100
|
||||
|
||||
Dim scale As Decimal = 0
|
||||
If 에너지자립률 >= 20 Then
|
||||
scale = 1.0
|
||||
ElseIf 에너지자립률 >= 15 Then
|
||||
scale = 0.9
|
||||
ElseIf 에너지자립률 >= 10 Then
|
||||
scale = 0.8
|
||||
Else
|
||||
scale = 0.7
|
||||
End If
|
||||
|
||||
에너지자립률_offsite = (Math.Round(단위면적당신재생1차에너지합_offsite * scale, 1) / 단위면적당1차에너소비량합) * 100
|
||||
에너지자립률 += 에너지자립률_offsite
|
||||
|
||||
Else
|
||||
에너지자립률 = 0
|
||||
에너지자립률_offsite = 0
|
||||
End If
|
||||
sheet.Cells(Row, BaseIndex + 39).Value = 에너지자립률
|
||||
sheet.Cells(Row, BaseIndex + 40).Value = 단위면적당신재생1차에너지합
|
||||
sheet.Cells(Row, BaseIndex + 41).Value = 단위면적당1차에너소비량합
|
||||
|
||||
|
||||
|
||||
|
||||
'//방위별, 부위별 평균열관류율 계산 20230901
|
||||
Dim 창및문면적비, 외벽열관류율_평균 As Decimal
|
||||
Dim 외벽열관류율_남 As Decimal
|
||||
Dim 외벽열관류율_동 As Decimal
|
||||
Dim 외벽열관류율_북 As Decimal
|
||||
Dim 외벽열관류율_서 As Decimal
|
||||
|
||||
Dim 창열관류율_평균 As Decimal
|
||||
Dim 창열관류율_남 As Decimal
|
||||
Dim 창열관류율_동 As Decimal
|
||||
Dim 창열관류율_북 As Decimal
|
||||
Dim 창열관류율_서 As Decimal
|
||||
|
||||
Dim 일사에너지투과율_평균 As Decimal
|
||||
Dim 일사에너지투과율_남 As Decimal
|
||||
Dim 일사에너지투과율_동 As Decimal
|
||||
Dim 일사에너지투과율_북 As Decimal
|
||||
Dim 일사에너지투과율_서 As Decimal
|
||||
|
||||
|
||||
calc_창및문면적비(창및문면적비, 외벽열관류율_평균, 창열관류율_평균, 일사에너지투과율_평균)
|
||||
calc_창및문면적비(창및문면적비, 외벽열관류율_남, 창열관류율_남, 일사에너지투과율_남, "남")
|
||||
calc_창및문면적비(창및문면적비, 외벽열관류율_동, 창열관류율_동, 일사에너지투과율_동, "동")
|
||||
calc_창및문면적비(창및문면적비, 외벽열관류율_북, 창열관류율_북, 일사에너지투과율_북, "북")
|
||||
calc_창및문면적비(창및문면적비, 외벽열관류율_서, 창열관류율_서, 일사에너지투과율_서, "서")
|
||||
|
||||
'//평균열관류율 11개(?)
|
||||
sheet.Cells(Row, BaseIndex + 42).Value = 외벽열관류율_평균
|
||||
sheet.Cells(Row, BaseIndex + 43).Value = 외벽열관류율_남
|
||||
sheet.Cells(Row, BaseIndex + 44).Value = 외벽열관류율_동
|
||||
sheet.Cells(Row, BaseIndex + 45).Value = 외벽열관류율_북
|
||||
sheet.Cells(Row, BaseIndex + 46).Value = 외벽열관류율_서
|
||||
|
||||
'//외벽지붕(평균열관류율)
|
||||
sheet.Cells(Row, BaseIndex + 47).Value = calc_평균열관류율(New String() {"외벽(지붕)", "내벽(지붕)"})
|
||||
'//외벽바닥(평균열관류율)
|
||||
sheet.Cells(Row, BaseIndex + 48).Value = calc_평균열관류율(New String() {"외벽(바닥)", "내벽(바닥)"})
|
||||
|
||||
sheet.Cells(Row, BaseIndex + 49).Value = 창열관류율_평균
|
||||
sheet.Cells(Row, BaseIndex + 50).Value = 창열관류율_남
|
||||
sheet.Cells(Row, BaseIndex + 51).Value = 창열관류율_동
|
||||
sheet.Cells(Row, BaseIndex + 52).Value = 창열관류율_북
|
||||
sheet.Cells(Row, BaseIndex + 53).Value = 창열관류율_서
|
||||
|
||||
sheet.Cells(Row, BaseIndex + 54).Value = 일사에너지투과율_평균
|
||||
sheet.Cells(Row, BaseIndex + 55).Value = 일사에너지투과율_남
|
||||
sheet.Cells(Row, BaseIndex + 56).Value = 일사에너지투과율_동
|
||||
sheet.Cells(Row, BaseIndex + 57).Value = 일사에너지투과율_북
|
||||
sheet.Cells(Row, BaseIndex + 58).Value = 일사에너지투과율_서
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@@ -2,6 +2,8 @@
|
||||
|
||||
Dim fn As String = ""
|
||||
Dim silentmode As Boolean = False
|
||||
Dim column As Integer = 10
|
||||
Dim processfile As String
|
||||
Public Sub New()
|
||||
|
||||
' 이 호출은 디자이너에 필요합니다.
|
||||
@@ -10,12 +12,14 @@
|
||||
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
|
||||
|
||||
End Sub
|
||||
Public Sub New(_file As String, Optional silent As Boolean = False)
|
||||
Public Sub New(_file As String, writecolumn As Integer, processfilename As String, Optional silent As Boolean = False)
|
||||
|
||||
' 이 호출은 디자이너에 필요합니다.
|
||||
InitializeComponent()
|
||||
fn = _file
|
||||
silentmode = silent
|
||||
column = writecolumn
|
||||
processfile = processfilename
|
||||
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
|
||||
|
||||
End Sub
|
||||
@@ -23,14 +27,15 @@
|
||||
Private Sub Frm_Upload_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
|
||||
|
||||
' Me.Hide()
|
||||
Application.DoEvents()
|
||||
'Application.DoEvents()
|
||||
|
||||
LoadFile()
|
||||
'MakeGraphTable()
|
||||
MakeData()
|
||||
|
||||
If fn <> "" Then
|
||||
Try
|
||||
If FpSpread1.SaveExcel(fn) Then
|
||||
If FpSpread1.SaveExcel(fn, FarPoint.Excel.ExcelSaveFlags.NoFlagsSet) Then
|
||||
If silentmode = False Then
|
||||
MsgBox("다음파일이 생성되었습니다" + vbCrLf + fn, MsgBoxStyle.Information, "확인")
|
||||
End If
|
||||
@@ -56,6 +61,7 @@
|
||||
|
||||
Private Sub LoadFile()
|
||||
Dim fn As String = AppDomain.CurrentDomain.BaseDirectory + "\upload.xlsx"
|
||||
If column > 10 Then fn = Me.fn
|
||||
If Not System.IO.File.Exists(fn) Then
|
||||
MsgBox("업로드샘플파일(" + fn + ")가 존재하지 않습니다", MsgBoxStyle.Critical, "확인")
|
||||
Return
|
||||
@@ -72,7 +78,7 @@
|
||||
|
||||
Private Sub MakeData()
|
||||
'//결과데이터에서 자료를 추출하고 그 값을 넣는다
|
||||
Dim DataColumnIndex As Integer = 10
|
||||
Dim DataColumnIndex As Integer = Me.column
|
||||
Dim Row As Integer = 1
|
||||
Dim DsReport As New DSR
|
||||
|
||||
@@ -178,7 +184,7 @@
|
||||
|
||||
|
||||
'//연간 CO2발생량
|
||||
Dim StartCode As Integer = 79 '//76
|
||||
Dim StartCode As Integer = 81 '//76
|
||||
Dim CO2_1, CO2_2, CO2_3, CO2_4, CO2_5 As Decimal
|
||||
CO2_1 = Math.Round(RData("410", StartCode + 0), 1)
|
||||
CO2_2 = Math.Round(RData("410", StartCode + 7), 1)
|
||||
@@ -195,11 +201,12 @@
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 합계.ToString() : Row += 1 '//환기
|
||||
|
||||
'//단위면적당 CO2발생량
|
||||
CO2_1 = Math.Round(RData("410", StartCode + 6), 1)
|
||||
CO2_2 = Math.Round(RData("410", StartCode + 14), 1)
|
||||
CO2_3 = Math.Round(RData("410", StartCode + 21), 1)
|
||||
CO2_4 = Math.Round(RData("410", StartCode + 24), 1)
|
||||
CO2_5 = Math.Round(RData("410", StartCode + 27), 1)
|
||||
StartCode = 79 '//76
|
||||
CO2_1 = Math.Round(RData("410", StartCode + 8), 1)
|
||||
CO2_2 = Math.Round(RData("410", StartCode + 16), 1)
|
||||
CO2_3 = Math.Round(RData("410", StartCode + 23), 1)
|
||||
CO2_4 = Math.Round(RData("410", StartCode + 26), 1)
|
||||
CO2_5 = Math.Round(RData("410", StartCode + 29), 1)
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = CO2_1.ToString : Row += 1 '//난방
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = CO2_2.ToString : Row += 1 '//냉방
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = CO2_3.ToString : Row += 1 '//급탕
|
||||
@@ -301,16 +308,16 @@
|
||||
'//입력존수값이 없는것은 기본값 1로 처리를 한다
|
||||
If String.IsNullOrWhiteSpace(drZOne.입력존의수) Then drZOne.입력존의수 = "1"
|
||||
If Not IsNumeric(drZOne.입력존의수) Then drZOne.입력존의수 = "1"
|
||||
Dim 존수 As Integer = TOSG(drZOne.입력존의수)
|
||||
If 존수 < 1 Then Continue For
|
||||
Dim 존수2 As Integer = TOSG(drZOne.입력존의수)
|
||||
If 존수2 < 1 Then Continue For
|
||||
If Not IsNumeric(drZOne.면적) Then drZOne.면적 = "0"
|
||||
If CInt(drZOne.면적) = 0 Then
|
||||
MsgBox("입력존(" + drZOne.설명 + ") 의 면적이 입력되지 않았습니다", MsgBoxStyle.Critical, "확인")
|
||||
Continue For
|
||||
End If
|
||||
|
||||
기밀성능_면적합 += (존수 * drZOne.면적)
|
||||
기밀성능_침기율면적합 += (drZOne.침기율 * (존수 * drZOne.면적))
|
||||
기밀성능_면적합 += (존수2 * drZOne.면적)
|
||||
기밀성능_침기율면적합 += (drZOne.침기율 * (존수2 * drZOne.면적))
|
||||
Next
|
||||
Dim 기밀성능 As Decimal = 0
|
||||
If 기밀성능_면적합 <> 0 Then 기밀성능 = 기밀성능_침기율면적합 / 기밀성능_면적합
|
||||
@@ -363,14 +370,14 @@
|
||||
If Not IsNumeric(drzone.면적) Then drzone.면적 = "0"
|
||||
|
||||
|
||||
Dim 존수 As Integer = 0
|
||||
Dim 존수2 As Integer = 0
|
||||
If IsNumeric(drzone.입력존의수) Then
|
||||
존수 = CInt(drzone.입력존의수)
|
||||
존수2 = CInt(drzone.입력존의수)
|
||||
Else
|
||||
존수 = 1
|
||||
존수2 = 1
|
||||
End If
|
||||
If IsNumeric(drzone.면적) Then
|
||||
면적 = drzone.면적 * 존수
|
||||
면적 = drzone.면적 * 존수2
|
||||
Else
|
||||
면적 = 0
|
||||
End If
|
||||
@@ -470,10 +477,10 @@
|
||||
Dim 냉난방방식_난방 As String = ""
|
||||
For Each dr난방 As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0'")
|
||||
Dim filter As String = String.Format("code <> '0' and 열생산난방생산기기='{0}' or 공조난방생산기기='{0}'", dr난방.code)
|
||||
Dim 존수 As Integer = 0
|
||||
Dim 존수3 As Integer = 0
|
||||
For Each dr존 As DS.tbl_zoneRow In DSET1.tbl_zone.Select(filter)
|
||||
If Not IsNumeric(dr존.입력존의수) Then dr존.입력존의수 = "1"
|
||||
존수 += CInt(dr존.입력존의수)
|
||||
존수3 += CInt(dr존.입력존의수)
|
||||
Next
|
||||
|
||||
If Not IsNumeric(dr난방.보일러정격출력) Then dr난방.보일러정격출력 = "0"
|
||||
@@ -482,7 +489,7 @@
|
||||
|
||||
|
||||
Dim 개별식형태 As Boolean = dr난방.개별기기적용
|
||||
If Not 개별식형태 AndAlso 존수 = 1 Then 개별식형태 = True '//입력존이 1이면 개별식형태로 한다
|
||||
If Not 개별식형태 AndAlso 존수3 = 1 Then 개별식형태 = True '//입력존이 1이면 개별식형태로 한다
|
||||
|
||||
|
||||
If 냉난방방식_난방 = "" Then
|
||||
@@ -501,18 +508,18 @@
|
||||
|
||||
최대값 = Math.Max(TOSG(dr난방.보일러정격출력), TOSG(dr난방.열교환기정격출력))
|
||||
최대값 = Math.Max(최대값, TOSG(dr난방.히트난방용량))
|
||||
최대값 *= 존수
|
||||
최대값 *= 존수3
|
||||
|
||||
펌프동력합 += TOSG(dr난방.펌프동력) * 존수
|
||||
펌프동력합 += TOSG(dr난방.펌프동력) * 존수3
|
||||
|
||||
If dr난방.열생산기기방식 = "히트펌프" Then
|
||||
난방용량합 += TOSG(dr난방.히트난방용량) * 존수
|
||||
If dr난방.히트연료 = "전기" Then 난방용량합_전기 += TOSG(dr난방.히트난방용량) * 존수
|
||||
난방용량합 += TOSG(dr난방.히트난방용량) * 존수3
|
||||
If dr난방.히트연료 = "전기" Then 난방용량합_전기 += TOSG(dr난방.히트난방용량) * 존수3
|
||||
ElseIf dr난방.열생산기기방식 = "전기보일러" Then
|
||||
난방용량합 += TOSG(dr난방.보일러정격출력) * 존수
|
||||
난방용량합_전기 += TOSG(dr난방.보일러정격출력) * 존수
|
||||
난방용량합 += TOSG(dr난방.보일러정격출력) * 존수3
|
||||
난방용량합_전기 += TOSG(dr난방.보일러정격출력) * 존수3
|
||||
ElseIf dr난방.열생산기기방식 = "지역난방" Then
|
||||
난방용량합 += TOSG(dr난방.열교환기정격출력) * 존수
|
||||
난방용량합 += TOSG(dr난방.열교환기정격출력) * 존수3
|
||||
Else
|
||||
난방용량합 += 최대값 '//모를경우에는 해당값중 최대값을 사용함(임의처리함 arin)
|
||||
End If
|
||||
@@ -561,16 +568,16 @@
|
||||
Dim 냉난방방식_냉방 As String = ""
|
||||
For Each dr냉방 As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code <> '0'")
|
||||
Dim filter As String = String.Format("열생산냉방생산기기='{0}' or 공조냉방생산기기='{0}'", dr냉방.code)
|
||||
Dim 존수 As Integer = 0
|
||||
Dim 존수4 As Integer = 0
|
||||
For Each dr존 As DS.tbl_zoneRow In DSET1.tbl_zone.Select(filter)
|
||||
If Not IsNumeric(dr존.입력존의수) Then dr존.입력존의수 = "1"
|
||||
존수 += CInt(dr존.입력존의수)
|
||||
존수4 += CInt(dr존.입력존의수)
|
||||
Next
|
||||
|
||||
If Not IsNumeric(dr냉방.냉동기용량) Then dr냉방.냉동기용량 = "0"
|
||||
|
||||
Dim 개별식형태 As Boolean = dr냉방.개별기기적용
|
||||
If Not 개별식형태 AndAlso 존수 = 1 Then 개별식형태 = True '//입력존이 1이면 개별식형태로 한다
|
||||
If Not 개별식형태 AndAlso 존수4 = 1 Then 개별식형태 = True '//입력존이 1이면 개별식형태로 한다
|
||||
|
||||
If 냉난방방식_냉방 = "" Then
|
||||
냉난방방식_냉방 = IIf(개별식형태, "개별식", "중앙식")
|
||||
@@ -583,9 +590,9 @@
|
||||
|
||||
Dim 최대값 As Decimal = 0
|
||||
If dr냉방.개별기기적용 Then
|
||||
최대값 = TOSG(dr냉방.냉동기용량) * 존수
|
||||
냉방용량합 += TOSG(dr냉방.냉동기용량) * 존수
|
||||
If dr냉방.냉동기방식 = "압축식" Then 냉방용량합_전기 += TOSG(dr냉방.냉동기용량) * 존수
|
||||
최대값 = TOSG(dr냉방.냉동기용량) * 존수4
|
||||
냉방용량합 += TOSG(dr냉방.냉동기용량) * 존수4
|
||||
If dr냉방.냉동기방식 = "압축식" Then 냉방용량합_전기 += TOSG(dr냉방.냉동기용량) * 존수4
|
||||
Else
|
||||
최대값 = TOSG(dr냉방.냉동기용량)
|
||||
냉방용량합 += TOSG(dr냉방.냉동기용량)
|
||||
@@ -1106,6 +1113,315 @@
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 단위면적당신재생1차에너지합_offsite.ToString("N1") : Row += 1
|
||||
|
||||
|
||||
'//추가작업 230724
|
||||
If column < 11 Then Return
|
||||
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = processfile : Row += 1
|
||||
|
||||
'//벽체면적
|
||||
Dim WallArea As Decimal = 0
|
||||
Dim WindowArea As Decimal = 0
|
||||
Dim 열관류율합 As Double
|
||||
Dim 존수 As Integer = 0
|
||||
Dim 비연결 As Integer = 0
|
||||
Dim 비연결존 As String = ""
|
||||
Dim 방위목록() As String = New String() {"수평", "남", "남동", "동", "북동", "북", "북서", "서", "남서"}
|
||||
For Each 방위 As String In 방위목록
|
||||
Dim filter As String = "code <> '0' and (건축부위방식='외벽' or 건축부위방식 ='외부창' or 건축부위방식='내벽' or 건축부위방식 ='내부창')"
|
||||
If 방위 <> "" Then filter += " and 방위='" + 방위 + "'"
|
||||
Dim 면데이터() As DS.tbl_myounRow = DSET1.tbl_myoun.Select(filter)
|
||||
Dim 열관없는갯수 As Integer = 0
|
||||
Try
|
||||
For Each Dr입력면 As DS.tbl_myounRow In 면데이터
|
||||
Dim 열관 As Single = 0
|
||||
|
||||
If Dr입력면.열관류율2 = "0" OrElse Dr입력면.열관류율2 = "" Then
|
||||
열관없는갯수 += 1
|
||||
End If
|
||||
|
||||
Dim Dryk1 As DS.tbl_ykRow = Nothing
|
||||
If Dr입력면.열관류율2 <> "0" Then '
|
||||
Dryk1 = DSET1.tbl_yk.Select("code='" & Dr입력면.열관류율2 & "'")(0)
|
||||
열관 = TOSG(Dryk1("열관류율").ToString)
|
||||
Else '//선택안된경우
|
||||
열관 = TOSG(Dr입력면.열관류율)
|
||||
End If
|
||||
|
||||
Dim 존코드 As String = Dr입력면.존분류
|
||||
Dim dr존() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code='" + 존코드 + "'")
|
||||
If dr존.GetUpperBound(0) = -1 Then
|
||||
존수 = 1
|
||||
Else
|
||||
If IsNumeric(dr존(0).입력존의수) Then
|
||||
존수 = CInt(dr존(0).입력존의수)
|
||||
Else
|
||||
존수 = 1
|
||||
End If
|
||||
End If
|
||||
|
||||
Select Case Dr입력면.건축부위방식
|
||||
Case "외벽"
|
||||
열관류율합 += 열관 * 1 * TOSG(Dr입력면.건축부위면적) * 존수
|
||||
Case "내벽"
|
||||
열관류율합 += 열관 * 0.7 * TOSG(Dr입력면.건축부위면적) * 존수
|
||||
Case "외부창"
|
||||
열관류율합 += 열관 * 1 * TOSG(Dr입력면.건축부위면적) * 존수
|
||||
Case "내부창"
|
||||
열관류율합 += 열관 * 0.8 * TOSG(Dr입력면.건축부위면적) * 존수
|
||||
End Select
|
||||
|
||||
'// Debug.WriteLine(Dr입력면.열관류율2 + "/" + Dr입력면.code + "/" + 열관.ToString() + "/" + Dr입력면.설명 + "/" + Dr입력면.건축부위면적.ToCharArray() + "/" + 존수.ToString() + "/" + 열관류율합.ToString(), True)
|
||||
|
||||
If Dryk1 Is Nothing Then
|
||||
비연결 += 1
|
||||
|
||||
'//사용한 존
|
||||
If dr존 Is Nothing Then
|
||||
Else
|
||||
비연결존 = dr존(0).설명 + "의 " + Dr입력면.설명
|
||||
End If
|
||||
|
||||
|
||||
'//열관류 선택안된경우
|
||||
Select Case Dr입력면.건축부위방식
|
||||
Case "외벽"
|
||||
If Dr입력면.방위 <> "수평" AndAlso Dr입력면.방위 <> "일사없음" AndAlso Dr입력면.방위 <> "(없음)" Then
|
||||
WallArea = WallArea + TOSG(Dr입력면.건축부위면적) * 존수
|
||||
End If
|
||||
Case "내벽" '
|
||||
WallArea = WallArea + TOSG(Dr입력면.건축부위면적) * 존수
|
||||
Case "외부창"
|
||||
If Dr입력면.방위 <> "수평" AndAlso Dr입력면.방위 <> "일사없음" AndAlso Dr입력면.방위 <> "(없음)" Then
|
||||
WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) * 존수
|
||||
End If
|
||||
Case "내부창"
|
||||
WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) * 존수
|
||||
End Select
|
||||
|
||||
Else
|
||||
|
||||
Dim 면형태이름 As String = Get_CName("1088", Dryk1.면형태)
|
||||
Select Case 면형태이름
|
||||
Case "외벽(벽체)"
|
||||
WallArea = WallArea + TOSG(Dr입력면.건축부위면적) * 존수
|
||||
Case "내벽(벽체)"
|
||||
WallArea = WallArea + TOSG(Dr입력면.건축부위면적) * 존수
|
||||
Case "외부창"
|
||||
If Dr입력면.방위 <> "수평" AndAlso Dr입력면.방위 <> "일사없음" AndAlso Dr입력면.방위 <> "(없음)" Then
|
||||
WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) * 존수
|
||||
End If
|
||||
Case "내부창"
|
||||
WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) * 존수
|
||||
End Select
|
||||
End If
|
||||
|
||||
'Debug.WriteLine(Dr입력면.code + ":wall=" + WallArea.ToString() + ",win=" + WindowArea.ToString())
|
||||
Next
|
||||
'For Each Dr입력면 As DS.tbl_myounRow In DSET1.tbl_myoun.Select("건축부위방식='외부창'")
|
||||
' WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) * 존수
|
||||
'Next
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
Next
|
||||
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = WallArea.ToString("N1") : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = WindowArea.ToString("N1") : Row += 1
|
||||
|
||||
|
||||
Try
|
||||
창및문면적비 = WindowArea / (WallArea + WindowArea) * 100
|
||||
Catch ex As Exception
|
||||
창및문면적비 = 0 '//게삭과정에 오류가낫다면 0처리합니다.
|
||||
End Try
|
||||
If WallArea + WindowArea = 0 Then
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "0 %" : Row += 1
|
||||
Else
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N1") : Row += 1
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창열관류율_평균.ToString("N3") : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창열관류율_남.ToString("N3") : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창열관류율_남동.ToString("N3") : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창열관류율_동.ToString("N3") : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창열관류율_북동.ToString("N3") : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창열관류율_북.ToString("N3") : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창열관류율_북서.ToString("N3") : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창열관류율_서.ToString("N3") : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창열관류율_남서.ToString("N3") : Row += 1
|
||||
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 일사에너지투과율_평균.ToString("N3") : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 일사에너지투과율_남.ToString("N3") : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 일사에너지투과율_남동.ToString("N3") : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 일사에너지투과율_동.ToString("N3") : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 일사에너지투과율_북동.ToString("N3") : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 일사에너지투과율_북.ToString("N3") : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 일사에너지투과율_북서.ToString("N3") : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 일사에너지투과율_서.ToString("N3") : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 일사에너지투과율_남서.ToString("N3") : Row += 1
|
||||
|
||||
|
||||
'//난방기기 - 보일러중에 용량이 가장 큰
|
||||
Dim 보일러목록() As DS.tbl_nanbangkikiRow = DSET1.tbl_nanbangkiki.Select("열생산기기방식='보일러'", "보일러정격출력 desc")
|
||||
If 보일러목록 Is Nothing OrElse 보일러목록.Length < 1 Then
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
||||
Else
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 보일러목록(0).보일러방식 : Row += 1
|
||||
End If
|
||||
|
||||
보일러목록 = DSET1.tbl_nanbangkiki.Select("열생산기기방식='지역난방'", "열교환기정격출력 desc")
|
||||
If 보일러목록 Is Nothing OrElse 보일러목록.Length < 1 Then
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
||||
Else
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 보일러목록(0).지역난방방식 : Row += 1
|
||||
End If
|
||||
|
||||
보일러목록 = DSET1.tbl_nanbangkiki.Select("열생산기기방식='히트펌프'", "히트난방용량 desc")
|
||||
If 보일러목록 Is Nothing OrElse 보일러목록.Length < 1 Then
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
||||
Else
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 보일러목록(0).히트난방용량 : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 보일러목록(0).히트난방정격7 : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 보일러목록(0).히트난방정격10 : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 보일러목록(0).히트배관길이 : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 보일러목록(0).히트펌프시스템종류 : Row += 1
|
||||
End If
|
||||
|
||||
|
||||
Dim 냉방기목록 = DSET1.tbl_nangbangkiki.Select("냉동기방식='압축식'", "냉동기용량 desc")
|
||||
If 냉방기목록 Is Nothing OrElse 냉방기목록.Length < 1 Then
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
||||
Else
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 냉방기목록(0).냉동기종류 : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 냉방기목록(0).냉동기압축방식 : Row += 1
|
||||
End If
|
||||
|
||||
냉방기목록 = DSET1.tbl_nangbangkiki.Select("냉동기방식='흡수식'", "냉동기용량 desc")
|
||||
If 냉방기목록 Is Nothing OrElse 냉방기목록.Length < 1 Then
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
||||
Else
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 냉방기목록(0).압축기제어방식 : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 냉방기목록(0).열생산연결방식 : Row += 1
|
||||
End If
|
||||
|
||||
냉방기목록 = DSET1.tbl_nangbangkiki.Select("냉동기방식='압축식' and 냉동기종류='실내공조시스템'", "냉동기용량 desc")
|
||||
If 냉방기목록 Is Nothing OrElse 냉방기목록.Length < 1 Then
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
||||
Else
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 냉방기목록(0).냉동기설비시스템 : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 냉방기목록(0).제어방식 : Row += 1
|
||||
End If
|
||||
|
||||
'//급탕기기로 연결된 자료
|
||||
Dim 급탕기기대상 As DS.tbl_nanbangkikiRow = Nothing
|
||||
Dim 급탕기기대상용량 As Decimal = 0
|
||||
For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Rows
|
||||
Dim cnt = 0
|
||||
Dim 존목록() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산급탕생산기기='" & dr.code & "'")
|
||||
For Each drow As DS.tbl_zoneRow In 존목록
|
||||
Dim 입력존수문자 As Integer = drow.입력존의수
|
||||
If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1"
|
||||
cnt += CInt(입력존수문자)
|
||||
Next
|
||||
If cnt > 0 Then
|
||||
If dr.보일러정격출력 > 급탕기기대상용량 Then
|
||||
급탕기기대상 = dr
|
||||
급탕기기대상용량 = dr.보일러정격출력
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
If 급탕기기대상 Is Nothing Then
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
||||
Else
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 급탕기기대상.축열탱크방식 : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 급탕기기대상.축열제척 : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 급탕기기대상.펌프정격전력 : Row += 1
|
||||
End If
|
||||
|
||||
|
||||
Dim 태양광목록() As DS.tbl_newRow = DSET1.tbl_new.Select("기기종류='태양광'", "태양광모듈면적 desc")
|
||||
If 태양광목록 Is Nothing OrElse 태양광목록.Length < 1 Then
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
||||
Else
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광목록(0).태양광용량 : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광목록(0).태양광모듈효율 : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광목록(0).태양광모듈면적 : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광목록(0).태양광모듈기울기 : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광목록(0).태양광모듈방위 : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광목록(0).태양광모듈종류 : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광목록(0).태양광모듈적용타입 : Row += 1
|
||||
End If
|
||||
|
||||
|
||||
'//230804 에너지생산량 ` 1차 추가
|
||||
Dim 에너지생산량_난방 As Decimal = 난방면적 + 난방면적_offsite + _
|
||||
Result1.생산E(0).면적당생산량태양열_난방 + _
|
||||
Result1.생산E(0).면적당생산량수열_난방 + _
|
||||
Result1.생산E(0).면적당생산량지열_난방 + _
|
||||
Result1.생산E(0).신재생면적당열생산량_난방
|
||||
|
||||
Dim 에너지생산량_냉방 As Decimal = 냉방면적 + 냉방면적_offsite + _
|
||||
Result1.생산E(0).면적당생산량태양열_냉방 + _
|
||||
Result1.생산E(0).면적당생산량수열_냉방 + _
|
||||
Result1.생산E(0).면적당생산량지열_냉방 + _
|
||||
Result1.생산E(0).신재생면적당열생산량_냉방
|
||||
|
||||
Dim 에너지생산량_급탕 As Decimal = 급탕면적 + 급탕면적_offsite + _
|
||||
Result1.생산E(0).면적당생산량태양열_급탕 + _
|
||||
Result1.생산E(0).면적당생산량수열_급탕 + _
|
||||
Result1.생산E(0).면적당생산량지열_급탕 + _
|
||||
Result1.생산E(0).신재생면적당열생산량_급탕
|
||||
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 에너지생산량_난방 : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 에너지생산량_냉방 : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 에너지생산량_급탕 : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 조명면적 + 조명면적_offsite : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 환기면적 + 환기면적_offsite : Row += 1
|
||||
|
||||
Dim multi As Decimal = 2.75
|
||||
Dim 에너지생산량_난방_1차 As Decimal = (난방면적 + 난방면적_offsite) * multi + _
|
||||
Result1.생산E(0).면적당생산량태양열_난방 + _
|
||||
Result1.생산E(0).면적당생산량수열_난방 + _
|
||||
Result1.생산E(0).면적당생산량지열_난방 + _
|
||||
Result1.생산E(0).신재생면적당열생산량_난방
|
||||
|
||||
Dim 에너지생산량_냉방_1차 As Decimal = (냉방면적 + 냉방면적_offsite) * multi + _
|
||||
Result1.생산E(0).면적당생산량태양열_냉방 + _
|
||||
Result1.생산E(0).면적당생산량수열_냉방 + _
|
||||
Result1.생산E(0).면적당생산량지열_냉방 + _
|
||||
Result1.생산E(0).신재생면적당열생산량_냉방
|
||||
|
||||
Dim 에너지생산량_급탕_1차 As Decimal = (급탕면적 + 급탕면적_offsite) * multi + _
|
||||
Result1.생산E(0).면적당생산량태양열_급탕 + _
|
||||
Result1.생산E(0).면적당생산량수열_급탕 + _
|
||||
Result1.생산E(0).면적당생산량지열_급탕 + _
|
||||
Result1.생산E(0).신재생면적당열생산량_급탕
|
||||
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 에너지생산량_난방_1차 : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 에너지생산량_냉방_1차 : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 에너지생산량_급탕_1차 : Row += 1
|
||||
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = (조명면적 + 조명면적_offsite) * multi : Row += 1
|
||||
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = (환기면적 + 환기면적_offsite) * multi : Row += 1
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -1116,6 +1432,382 @@
|
||||
Return DR(0).M00
|
||||
End Function
|
||||
|
||||
Dim DSR As New DSR
|
||||
Private Sub MakeGraphTable()
|
||||
DSR.TReqUse.Clear()
|
||||
DSR.TReqUse.Merge(DSETR1.TReqUse)
|
||||
|
||||
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 소요량1차_신재생 As Decimal = 0
|
||||
Dim 소요량_신재생 As Decimal = 0
|
||||
|
||||
Dim 단위면적당신재생1차에너지합 As Decimal = 0
|
||||
Dim 단위면적당신재생1차에너지합offsite As Decimal = 0
|
||||
Dim 단위면적당1차에너소비량합 As Decimal = 0
|
||||
Dim 에너지자립률offsite As Decimal = 0
|
||||
Dim 에너지자립률 As Decimal = 0
|
||||
|
||||
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).조명전력 + Result1.일차E소요량(0).환기전력)
|
||||
|
||||
Dim Sum_offsite As Decimal = (Result1.생산E(0).태양광전력생산량_offsite + Result1.생산E(0).풍력전력생산량_offsite) / (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 난방_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
|
||||
Dim 냉방_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).냉방전력
|
||||
Dim 조명_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).조명전력
|
||||
Dim 급탕_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).급탕전력
|
||||
Dim 환기_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).환기전력
|
||||
|
||||
|
||||
Dim 난방면적 As Decimal = 0
|
||||
Dim 냉방면적 As Decimal = 0
|
||||
Dim 조명면적 As Decimal = 0
|
||||
Dim 급탕면적 As Decimal = 0
|
||||
Dim 환기면적 As Decimal = 0
|
||||
|
||||
Dim 난방면적_offsite As Decimal = 0
|
||||
Dim 냉방면적_offsite As Decimal = 0
|
||||
Dim 조명면적_offsite As Decimal = 0
|
||||
Dim 급탕면적_offsite As Decimal = 0
|
||||
Dim 환기면적_offsite 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
|
||||
|
||||
If Result1.사용면적.H <> 0 Then
|
||||
난방면적_offsite = TOSG(IIf(난방_offsite = 0, 0, 난방_offsite / Result1.사용면적.H))
|
||||
End If
|
||||
If Result1.사용면적.C <> 0 Then
|
||||
냉방면적_offsite = TOSG(IIf(냉방_offsite = 0, 0, 냉방_offsite / Result1.사용면적.C))
|
||||
End If
|
||||
If Result1.사용면적.L <> 0 Then
|
||||
조명면적_offsite = TOSG(IIf(조명_offsite = 0, 0, 조명_offsite / Result1.사용면적.L))
|
||||
End If
|
||||
If Result1.사용면적.W <> 0 Then
|
||||
급탕면적_offsite = TOSG(IIf(급탕_offsite = 0, 0, 급탕_offsite / Result1.사용면적.W))
|
||||
End If
|
||||
If Result1.사용면적.V <> 0 Then
|
||||
환기면적_offsite = TOSG(IIf(환기_offsite = 0, 0, 환기_offsite / Result1.사용면적.V))
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Dim 전기 As Decimal = 난방면적 + 냉방면적 + 조명면적 + 급탕면적 + 환기면적
|
||||
Dim 전기_offsite As Decimal = 난방면적_offsite + 냉방면적_offsite + 조명면적_offsite + 급탕면적_offsite + 환기면적_offsite
|
||||
|
||||
|
||||
'//열병합신재생에너지추가 130831 arin
|
||||
신재생에너지 = Math.Round(-1 * (Result1.생산E(0).면적당생산량태양열 + Result1.생산E(0).신재생면적당열생산량 + Result1.생산E(0).면적당생산량지열 + Result1.생산E(0).면적당생산량수열 + 전기 * 2.75), 1)
|
||||
Dim 신재생에너지_offsite As Decimal = Math.Round(-1 * (전기_offsite * 2.75), 1)
|
||||
|
||||
단위면적당신재생1차에너지합 = -1 * 신재생에너지
|
||||
단위면적당신재생1차에너지합offsite = -1 * 신재생에너지_offsite
|
||||
|
||||
|
||||
' 신재생에너지 = -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
|
||||
|
||||
Dim scale As Decimal = 0
|
||||
If 에너지자립률 >= 20 Then
|
||||
scale = 1.0
|
||||
ElseIf 에너지자립률 >= 15 Then
|
||||
scale = 0.9
|
||||
ElseIf 에너지자립률 >= 10 Then
|
||||
scale = 0.8
|
||||
Else
|
||||
scale = 0.7
|
||||
End If
|
||||
|
||||
에너지자립률offsite = (Math.Round(단위면적당신재생1차에너지합offsite * scale, 1) / 단위면적당1차에너소비량합) * 100
|
||||
에너지자립률 += 에너지자립률offsite
|
||||
|
||||
Else
|
||||
에너지자립률 = 0
|
||||
에너지자립률offsite = 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).조명전력 + 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).면적당생산량지열 + 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 '//에너지요구량
|
||||
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
|
||||
|
||||
End Select
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
450
ArinWarev1/MdiMain.Designer.vb
generated
450
ArinWarev1/MdiMain.Designer.vb
generated
@@ -32,34 +32,9 @@ Partial Class MdiMain
|
||||
Me.lbl_lastedit = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Me.lbl_mac = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Me.lbl_prjname = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Me.prb1 = New System.Windows.Forms.ToolStripProgressBar()
|
||||
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
|
||||
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||
Me.WindowsMenu = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.NewWindowToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.CascadeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TileVerticalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TileHorizontalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.CloseAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ArrangeIconsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TreeView1 = New System.Windows.Forms.TreeView()
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.그룹추가ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.그룹삭제ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.그룹복사ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.그룹변경ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
Me.prb1 = New System.Windows.Forms.ToolStripProgressBar()
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.bt_test = New System.Windows.Forms.ToolStripDropDownButton()
|
||||
Me.비교데이터백업ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.데이터비교ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.순실체적ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ReportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.btNew = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.신규코드업로드ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
@@ -82,6 +57,7 @@ Partial Class MdiMain
|
||||
Me.실행ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.환경설정ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.실행ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.btMacro = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.bt_계산결과 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.계산결과ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.bt_인증평가서 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
@@ -106,6 +82,31 @@ Partial Class MdiMain
|
||||
Me.FielCheckerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.일괄계산ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.WindowsMenu = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.NewWindowToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.CascadeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TileVerticalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TileHorizontalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.CloseAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ArrangeIconsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TreeView1 = New System.Windows.Forms.TreeView()
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.그룹추가ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.그룹삭제ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.그룹복사ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.그룹변경ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.bt_test = New System.Windows.Forms.ToolStripDropDownButton()
|
||||
Me.비교데이터백업ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.데이터비교ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.순실체적ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.StatusStrip1.SuspendLayout()
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
Me.ContextMenuStrip1.SuspendLayout()
|
||||
@@ -167,6 +168,11 @@ Partial Class MdiMain
|
||||
Me.lbl_prjname.Text = "[템플릿이름]"
|
||||
Me.lbl_prjname.Visible = False
|
||||
'
|
||||
'prb1
|
||||
'
|
||||
Me.prb1.Name = "prb1"
|
||||
Me.prb1.Size = New System.Drawing.Size(100, 16)
|
||||
'
|
||||
'MenuStrip1
|
||||
'
|
||||
Me.MenuStrip1.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
@@ -178,198 +184,6 @@ Partial Class MdiMain
|
||||
Me.MenuStrip1.TabIndex = 22
|
||||
Me.MenuStrip1.Text = "MenuStrip1"
|
||||
'
|
||||
'WindowsMenu
|
||||
'
|
||||
Me.WindowsMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewWindowToolStripMenuItem, Me.CascadeToolStripMenuItem, Me.TileVerticalToolStripMenuItem, Me.TileHorizontalToolStripMenuItem, Me.CloseAllToolStripMenuItem, Me.ArrangeIconsToolStripMenuItem})
|
||||
Me.WindowsMenu.ForeColor = System.Drawing.Color.Red
|
||||
Me.WindowsMenu.Name = "WindowsMenu"
|
||||
Me.WindowsMenu.Size = New System.Drawing.Size(49, 20)
|
||||
Me.WindowsMenu.Text = "창(&W)"
|
||||
Me.WindowsMenu.Visible = False
|
||||
'
|
||||
'NewWindowToolStripMenuItem
|
||||
'
|
||||
Me.NewWindowToolStripMenuItem.Name = "NewWindowToolStripMenuItem"
|
||||
Me.NewWindowToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
|
||||
Me.NewWindowToolStripMenuItem.Text = "새 창(&N)"
|
||||
'
|
||||
'CascadeToolStripMenuItem
|
||||
'
|
||||
Me.CascadeToolStripMenuItem.Name = "CascadeToolStripMenuItem"
|
||||
Me.CascadeToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
|
||||
Me.CascadeToolStripMenuItem.Text = "계단식 배열(&C)"
|
||||
'
|
||||
'TileVerticalToolStripMenuItem
|
||||
'
|
||||
Me.TileVerticalToolStripMenuItem.Name = "TileVerticalToolStripMenuItem"
|
||||
Me.TileVerticalToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
|
||||
Me.TileVerticalToolStripMenuItem.Text = "세로 바둑판식 배열(&V)"
|
||||
'
|
||||
'TileHorizontalToolStripMenuItem
|
||||
'
|
||||
Me.TileHorizontalToolStripMenuItem.Name = "TileHorizontalToolStripMenuItem"
|
||||
Me.TileHorizontalToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
|
||||
Me.TileHorizontalToolStripMenuItem.Text = "가로 바둑판식 배열(&H)"
|
||||
'
|
||||
'CloseAllToolStripMenuItem
|
||||
'
|
||||
Me.CloseAllToolStripMenuItem.Name = "CloseAllToolStripMenuItem"
|
||||
Me.CloseAllToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
|
||||
Me.CloseAllToolStripMenuItem.Text = "모두 닫기(&L)"
|
||||
'
|
||||
'ArrangeIconsToolStripMenuItem
|
||||
'
|
||||
Me.ArrangeIconsToolStripMenuItem.Name = "ArrangeIconsToolStripMenuItem"
|
||||
Me.ArrangeIconsToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
|
||||
Me.ArrangeIconsToolStripMenuItem.Text = "아이콘 정렬(&A)"
|
||||
'
|
||||
'TreeView1
|
||||
'
|
||||
Me.TreeView1.ContextMenuStrip = Me.ContextMenuStrip1
|
||||
Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.TreeView1.Font = New System.Drawing.Font("돋움", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.TreeView1.Location = New System.Drawing.Point(0, 49)
|
||||
Me.TreeView1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
|
||||
Me.TreeView1.Name = "TreeView1"
|
||||
Me.TreeView1.Size = New System.Drawing.Size(185, 581)
|
||||
Me.TreeView1.TabIndex = 23
|
||||
'
|
||||
'ContextMenuStrip1
|
||||
'
|
||||
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.그룹추가ToolStripMenuItem, Me.그룹삭제ToolStripMenuItem, Me.그룹복사ToolStripMenuItem, Me.그룹변경ToolStripMenuItem})
|
||||
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(123, 92)
|
||||
'
|
||||
'그룹추가ToolStripMenuItem
|
||||
'
|
||||
Me.그룹추가ToolStripMenuItem.Name = "그룹추가ToolStripMenuItem"
|
||||
Me.그룹추가ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
|
||||
Me.그룹추가ToolStripMenuItem.Text = "그룹추가"
|
||||
'
|
||||
'그룹삭제ToolStripMenuItem
|
||||
'
|
||||
Me.그룹삭제ToolStripMenuItem.Name = "그룹삭제ToolStripMenuItem"
|
||||
Me.그룹삭제ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
|
||||
Me.그룹삭제ToolStripMenuItem.Text = "그룹삭제"
|
||||
'
|
||||
'그룹복사ToolStripMenuItem
|
||||
'
|
||||
Me.그룹복사ToolStripMenuItem.Name = "그룹복사ToolStripMenuItem"
|
||||
Me.그룹복사ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
|
||||
Me.그룹복사ToolStripMenuItem.Text = "그룹복사"
|
||||
'
|
||||
'그룹변경ToolStripMenuItem
|
||||
'
|
||||
Me.그룹변경ToolStripMenuItem.Name = "그룹변경ToolStripMenuItem"
|
||||
Me.그룹변경ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
|
||||
Me.그룹변경ToolStripMenuItem.Text = "그룹변경"
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripButton5, Me.ToolStripButton6, Me.ToolStripButton7, Me.bt_test})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(1008, 25)
|
||||
Me.ToolStrip1.TabIndex = 25
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'prb1
|
||||
'
|
||||
Me.prb1.Name = "prb1"
|
||||
Me.prb1.Size = New System.Drawing.Size(100, 16)
|
||||
'
|
||||
'ToolStripButton1
|
||||
'
|
||||
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton1.Name = "ToolStripButton1"
|
||||
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton1.Text = "파일생성"
|
||||
'
|
||||
'ToolStripButton2
|
||||
'
|
||||
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton2.Name = "ToolStripButton2"
|
||||
Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton2.Text = "파일열기"
|
||||
'
|
||||
'ToolStripButton3
|
||||
'
|
||||
Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton3.Name = "ToolStripButton3"
|
||||
Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton3.Text = "파일저장"
|
||||
'
|
||||
'ToolStripButton4
|
||||
'
|
||||
Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton4.Name = "ToolStripButton4"
|
||||
Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton4.Text = "다른이름으로 저장"
|
||||
'
|
||||
'ToolStripButton5
|
||||
'
|
||||
Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton5.Name = "ToolStripButton5"
|
||||
Me.ToolStripButton5.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton5.Text = "건물개요"
|
||||
'
|
||||
'ToolStripButton6
|
||||
'
|
||||
Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton6.Name = "ToolStripButton6"
|
||||
Me.ToolStripButton6.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton6.Text = "계산"
|
||||
'
|
||||
'ToolStripButton7
|
||||
'
|
||||
Me.ToolStripButton7.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton7.Image = CType(resources.GetObject("ToolStripButton7.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton7.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton7.Name = "ToolStripButton7"
|
||||
Me.ToolStripButton7.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton7.Text = "계산결과그래프보기"
|
||||
'
|
||||
'bt_test
|
||||
'
|
||||
Me.bt_test.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.비교데이터백업ToolStripMenuItem, Me.데이터비교ToolStripMenuItem, Me.순실체적ToolStripMenuItem})
|
||||
Me.bt_test.Image = CType(resources.GetObject("bt_test.Image"), System.Drawing.Image)
|
||||
Me.bt_test.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.bt_test.Name = "bt_test"
|
||||
Me.bt_test.Size = New System.Drawing.Size(90, 22)
|
||||
Me.bt_test.Text = "TestMenu"
|
||||
Me.bt_test.Visible = False
|
||||
'
|
||||
'비교데이터백업ToolStripMenuItem
|
||||
'
|
||||
Me.비교데이터백업ToolStripMenuItem.Name = "비교데이터백업ToolStripMenuItem"
|
||||
Me.비교데이터백업ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
|
||||
Me.비교데이터백업ToolStripMenuItem.Text = "1.비교데이터백업"
|
||||
'
|
||||
'데이터비교ToolStripMenuItem
|
||||
'
|
||||
Me.데이터비교ToolStripMenuItem.Name = "데이터비교ToolStripMenuItem"
|
||||
Me.데이터비교ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
|
||||
Me.데이터비교ToolStripMenuItem.Text = "2.데이터비교"
|
||||
'
|
||||
'순실체적ToolStripMenuItem
|
||||
'
|
||||
Me.순실체적ToolStripMenuItem.Name = "순실체적ToolStripMenuItem"
|
||||
Me.순실체적ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
|
||||
Me.순실체적ToolStripMenuItem.Text = "3.순실체적"
|
||||
'
|
||||
'ReportToolStripMenuItem
|
||||
'
|
||||
Me.ReportToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btNew, Me.신규코드업로드ToolStripMenuItem, Me.ToolStripMenuItem7, Me.btOpen, Me.bt_filesave, Me.btSaveNew, Me.정보ToolStripMenuItem, Me.bt_데이터관리, Me.btImport, Me.ToolStripMenuItem5, Me.lbl_p1, Me.lbl_p2, Me.lbl_p3, Me.lbl_p4, Me.lbl_p5, Me.ToolStripMenuItem6, Me.종료ToolStripMenuItem})
|
||||
@@ -510,7 +324,7 @@ Partial Class MdiMain
|
||||
'
|
||||
'환경설정ToolStripMenuItem
|
||||
'
|
||||
Me.환경설정ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.실행ToolStripMenuItem})
|
||||
Me.환경설정ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.실행ToolStripMenuItem, Me.btMacro})
|
||||
Me.환경설정ToolStripMenuItem.Image = CType(resources.GetObject("환경설정ToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
Me.환경설정ToolStripMenuItem.Name = "환경설정ToolStripMenuItem"
|
||||
Me.환경설정ToolStripMenuItem.Size = New System.Drawing.Size(57, 20)
|
||||
@@ -519,9 +333,17 @@ Partial Class MdiMain
|
||||
'실행ToolStripMenuItem
|
||||
'
|
||||
Me.실행ToolStripMenuItem.Name = "실행ToolStripMenuItem"
|
||||
Me.실행ToolStripMenuItem.Size = New System.Drawing.Size(100, 22)
|
||||
Me.실행ToolStripMenuItem.Size = New System.Drawing.Size(124, 22)
|
||||
Me.실행ToolStripMenuItem.Text = "실행"
|
||||
'
|
||||
'btMacro
|
||||
'
|
||||
Me.btMacro.ForeColor = System.Drawing.Color.Blue
|
||||
Me.btMacro.Name = "btMacro"
|
||||
Me.btMacro.Size = New System.Drawing.Size(124, 22)
|
||||
Me.btMacro.Text = "일괄실행"
|
||||
Me.btMacro.Visible = False
|
||||
'
|
||||
'bt_계산결과
|
||||
'
|
||||
Me.bt_계산결과.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.계산결과ToolStripMenuItem, Me.bt_인증평가서, Me.업로드양식ToolStripMenuItem})
|
||||
@@ -672,6 +494,193 @@ Partial Class MdiMain
|
||||
Me.일괄계산ToolStripMenuItem.Size = New System.Drawing.Size(262, 22)
|
||||
Me.일괄계산ToolStripMenuItem.Text = "일괄 계산"
|
||||
'
|
||||
'WindowsMenu
|
||||
'
|
||||
Me.WindowsMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewWindowToolStripMenuItem, Me.CascadeToolStripMenuItem, Me.TileVerticalToolStripMenuItem, Me.TileHorizontalToolStripMenuItem, Me.CloseAllToolStripMenuItem, Me.ArrangeIconsToolStripMenuItem})
|
||||
Me.WindowsMenu.ForeColor = System.Drawing.Color.Red
|
||||
Me.WindowsMenu.Name = "WindowsMenu"
|
||||
Me.WindowsMenu.Size = New System.Drawing.Size(49, 20)
|
||||
Me.WindowsMenu.Text = "창(&W)"
|
||||
Me.WindowsMenu.Visible = False
|
||||
'
|
||||
'NewWindowToolStripMenuItem
|
||||
'
|
||||
Me.NewWindowToolStripMenuItem.Name = "NewWindowToolStripMenuItem"
|
||||
Me.NewWindowToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
|
||||
Me.NewWindowToolStripMenuItem.Text = "새 창(&N)"
|
||||
'
|
||||
'CascadeToolStripMenuItem
|
||||
'
|
||||
Me.CascadeToolStripMenuItem.Name = "CascadeToolStripMenuItem"
|
||||
Me.CascadeToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
|
||||
Me.CascadeToolStripMenuItem.Text = "계단식 배열(&C)"
|
||||
'
|
||||
'TileVerticalToolStripMenuItem
|
||||
'
|
||||
Me.TileVerticalToolStripMenuItem.Name = "TileVerticalToolStripMenuItem"
|
||||
Me.TileVerticalToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
|
||||
Me.TileVerticalToolStripMenuItem.Text = "세로 바둑판식 배열(&V)"
|
||||
'
|
||||
'TileHorizontalToolStripMenuItem
|
||||
'
|
||||
Me.TileHorizontalToolStripMenuItem.Name = "TileHorizontalToolStripMenuItem"
|
||||
Me.TileHorizontalToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
|
||||
Me.TileHorizontalToolStripMenuItem.Text = "가로 바둑판식 배열(&H)"
|
||||
'
|
||||
'CloseAllToolStripMenuItem
|
||||
'
|
||||
Me.CloseAllToolStripMenuItem.Name = "CloseAllToolStripMenuItem"
|
||||
Me.CloseAllToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
|
||||
Me.CloseAllToolStripMenuItem.Text = "모두 닫기(&L)"
|
||||
'
|
||||
'ArrangeIconsToolStripMenuItem
|
||||
'
|
||||
Me.ArrangeIconsToolStripMenuItem.Name = "ArrangeIconsToolStripMenuItem"
|
||||
Me.ArrangeIconsToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
|
||||
Me.ArrangeIconsToolStripMenuItem.Text = "아이콘 정렬(&A)"
|
||||
'
|
||||
'TreeView1
|
||||
'
|
||||
Me.TreeView1.ContextMenuStrip = Me.ContextMenuStrip1
|
||||
Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.TreeView1.Font = New System.Drawing.Font("돋움", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.TreeView1.Location = New System.Drawing.Point(0, 49)
|
||||
Me.TreeView1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
|
||||
Me.TreeView1.Name = "TreeView1"
|
||||
Me.TreeView1.Size = New System.Drawing.Size(185, 581)
|
||||
Me.TreeView1.TabIndex = 23
|
||||
'
|
||||
'ContextMenuStrip1
|
||||
'
|
||||
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.그룹추가ToolStripMenuItem, Me.그룹삭제ToolStripMenuItem, Me.그룹복사ToolStripMenuItem, Me.그룹변경ToolStripMenuItem})
|
||||
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(123, 92)
|
||||
'
|
||||
'그룹추가ToolStripMenuItem
|
||||
'
|
||||
Me.그룹추가ToolStripMenuItem.Name = "그룹추가ToolStripMenuItem"
|
||||
Me.그룹추가ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
|
||||
Me.그룹추가ToolStripMenuItem.Text = "그룹추가"
|
||||
'
|
||||
'그룹삭제ToolStripMenuItem
|
||||
'
|
||||
Me.그룹삭제ToolStripMenuItem.Name = "그룹삭제ToolStripMenuItem"
|
||||
Me.그룹삭제ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
|
||||
Me.그룹삭제ToolStripMenuItem.Text = "그룹삭제"
|
||||
'
|
||||
'그룹복사ToolStripMenuItem
|
||||
'
|
||||
Me.그룹복사ToolStripMenuItem.Name = "그룹복사ToolStripMenuItem"
|
||||
Me.그룹복사ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
|
||||
Me.그룹복사ToolStripMenuItem.Text = "그룹복사"
|
||||
'
|
||||
'그룹변경ToolStripMenuItem
|
||||
'
|
||||
Me.그룹변경ToolStripMenuItem.Name = "그룹변경ToolStripMenuItem"
|
||||
Me.그룹변경ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
|
||||
Me.그룹변경ToolStripMenuItem.Text = "그룹변경"
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripButton5, Me.ToolStripButton6, Me.ToolStripButton7, Me.bt_test})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(1008, 25)
|
||||
Me.ToolStrip1.TabIndex = 25
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'ToolStripButton1
|
||||
'
|
||||
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton1.Name = "ToolStripButton1"
|
||||
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton1.Text = "파일생성"
|
||||
'
|
||||
'ToolStripButton2
|
||||
'
|
||||
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton2.Name = "ToolStripButton2"
|
||||
Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton2.Text = "파일열기"
|
||||
'
|
||||
'ToolStripButton3
|
||||
'
|
||||
Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton3.Name = "ToolStripButton3"
|
||||
Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton3.Text = "파일저장"
|
||||
'
|
||||
'ToolStripButton4
|
||||
'
|
||||
Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton4.Name = "ToolStripButton4"
|
||||
Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton4.Text = "다른이름으로 저장"
|
||||
'
|
||||
'ToolStripButton5
|
||||
'
|
||||
Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton5.Name = "ToolStripButton5"
|
||||
Me.ToolStripButton5.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton5.Text = "건물개요"
|
||||
'
|
||||
'ToolStripButton6
|
||||
'
|
||||
Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton6.Name = "ToolStripButton6"
|
||||
Me.ToolStripButton6.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton6.Text = "계산"
|
||||
'
|
||||
'ToolStripButton7
|
||||
'
|
||||
Me.ToolStripButton7.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton7.Image = CType(resources.GetObject("ToolStripButton7.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton7.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton7.Name = "ToolStripButton7"
|
||||
Me.ToolStripButton7.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton7.Text = "계산결과그래프보기"
|
||||
'
|
||||
'bt_test
|
||||
'
|
||||
Me.bt_test.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.비교데이터백업ToolStripMenuItem, Me.데이터비교ToolStripMenuItem, Me.순실체적ToolStripMenuItem})
|
||||
Me.bt_test.Image = CType(resources.GetObject("bt_test.Image"), System.Drawing.Image)
|
||||
Me.bt_test.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.bt_test.Name = "bt_test"
|
||||
Me.bt_test.Size = New System.Drawing.Size(90, 22)
|
||||
Me.bt_test.Text = "TestMenu"
|
||||
Me.bt_test.Visible = False
|
||||
'
|
||||
'비교데이터백업ToolStripMenuItem
|
||||
'
|
||||
Me.비교데이터백업ToolStripMenuItem.Name = "비교데이터백업ToolStripMenuItem"
|
||||
Me.비교데이터백업ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
|
||||
Me.비교데이터백업ToolStripMenuItem.Text = "1.비교데이터백업"
|
||||
'
|
||||
'데이터비교ToolStripMenuItem
|
||||
'
|
||||
Me.데이터비교ToolStripMenuItem.Name = "데이터비교ToolStripMenuItem"
|
||||
Me.데이터비교ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
|
||||
Me.데이터비교ToolStripMenuItem.Text = "2.데이터비교"
|
||||
'
|
||||
'순실체적ToolStripMenuItem
|
||||
'
|
||||
Me.순실체적ToolStripMenuItem.Name = "순실체적ToolStripMenuItem"
|
||||
Me.순실체적ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
|
||||
Me.순실체적ToolStripMenuItem.Text = "3.순실체적"
|
||||
'
|
||||
'MdiMain
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
|
||||
@@ -794,5 +803,6 @@ Partial Class MdiMain
|
||||
Friend WithEvents btImport As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents 일괄계산ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents prb1 As System.Windows.Forms.ToolStripProgressBar
|
||||
Friend WithEvents btMacro As System.Windows.Forms.ToolStripMenuItem
|
||||
|
||||
End Class
|
||||
|
||||
@@ -127,6 +127,31 @@
|
||||
<value>235, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="bt_filesave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
R0lGODlhEAAQAIQAAJXD9Iasxm6MqnSn2lZtjVaRyEpXbYu767TX/2KZztvr/4Gy5KrT/3ut32+gzlFh
|
||||
e+r0/0RNX9/u/9Ln+8Xg//n8/4e36CkxQz9GVkSCvKjL35/N/Je91K7T5bDS4////yH/C05FVFNDQVBF
|
||||
Mi4wAwEBAAAh+QQAAAAAACwAAAAAEAAQAAAIuQA/CBxIsKDACRwScggQwIGAhwIICBDYQcEEgwg+bNjw
|
||||
QKCHCQgkQBgpQcKBCg0AEBCoAaRIkhIsVBigUiAHCgwkKNjJU8GAAx0/3NwIAMABCwsaDHCwIGgAChuK
|
||||
HjiQdMDSAQYEPpWKtKqDBA6yfgiAwGhXpUsTJIgg0AGCo0nRfi1QgO0HAQyQNpCrtkAGDAIFbKi69GsC
|
||||
un8FEohqdEFavxkyXAhMoPKDBwYMRIiAAcOFoAZDCwwIADs=
|
||||
</value>
|
||||
</data>
|
||||
<data name="bt_데이터관리.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIVSURBVDhPjVLJihpRFK1VFvmAXiSfkFV+Irt8Rpb5
|
||||
jGSXlfOMioIjiLgSxRERJ1QcUJxQcMSUitBJad/c8+gq2m4XeXCqXt2659zz7n0SEb1BLpf7GY/HFx6P
|
||||
5wnAHrF7uW8CkUjkIRAI/OX9zULM7/d/4O1Nvng8V5xwtSuDYrEYdbtdul6vdLlcqN1uixj+IQe5qiMh
|
||||
wOqP/NbWdDqlcDhMzWZTIBQKidjL9cyRpGg06mJQp9MRFYFSqUSJRIK8Xq8A9ojBjaIo1Gq1CByHw+GX
|
||||
uJLS7/epVqtRvV4XFVH99VIdVatVymazlE6nyWazKRLbk0+nE63XaxqNRjQej4nPR4PBQHOEfT6fp16v
|
||||
R8lkUqDRaJDVapWlYDAoBA6HA+33e5rNZsJupVLReoCqaCKImUxGAG4tFouMBgoBWZZpt9vRZrOhxWIh
|
||||
quJohUJBEGEZzuAEAihgNptliWf753w+0/F4pOVyKciTyYSGw6EYJZJBVJFKpYRYuVwmg8HwKPl8viQC
|
||||
8/lcHAMi6AUcQAD/0DQATlAZolyY9Hp9VuIxvePL8c3tdg+RtFqtaLvdimZCQG0aiOgN7gQTp4zvOp3u
|
||||
vXYlXS7Xg9Pp/MGz/V0sFoUIxNBAjJhvHyyfmPiLiR9Vniagwm63f+L5+nhETyDizOwO5DCTP7/Ov/l4
|
||||
Ce7wF5PJlDYajQUmf72XA9wN/j9I+gdcby0cbkUDWAAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="ReportToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
R0lGODlhEAAQAIQfAOvGUf7ztuvPMf/78/fkl/Pbg+u8Rvjqteu2Pf3zxPz36Pz0z+vTmPzurPvuw/np
|
||||
@@ -307,71 +332,71 @@
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA89SURBVHhe7ZpZbFXXFYap2kRN2kptU6kP6VPV17z0sVJV
|
||||
9aVS1aqDFNI0bTM0TSCAsQGbyeCLDdgYz9jExmDIwGiDDQQChOEyesImTCFhBgds49nGYb5e/f+19z7n
|
||||
3IsDJoOUSHdLv9Y+wz33ru/+a519rj0qPuIjPuIjPuIjPuKDI7T56pO5mwd+llnd/xSVt73vp1lb+n5C
|
||||
FdT0/vhhytnR9gN7qW/XSChqXpxcduJGzrpP5Msqo+Ts7aRFRw6Mrqz8rr38N3+MXXRo8GTnPbl9T+RY
|
||||
2z3Z+NGdL6RNp+7Ijgv3JHtDOJJY1JxqL//NH9Mr6m9tPTUoh87cksJt/ZK79VE0oDGP8/eNVjZ+JokF
|
||||
R24mLKj/hX2Lb/ZILPjw5tK6PpOASwxzTUplkow6Hty25/rn90uoom5o8uLmg/YtvtnDAdAkNCkk/D7l
|
||||
ErIAqJj9edjW1ygEzHVfv5SGr0v6ik/uTixsXDq+uOGpcSXhH36den1J02M2nUcf05aevFFea5JyEJiI
|
||||
SZgySZlk3dzsd69RADzGOV+L7Z2nb8u85fuHhmuWX4cSCpsaxuTVPm3TGvlwAEzygQTtN2oguGM2aZes
|
||||
nufOj3798n3XpbU/Il03RQ62D32tqusQCZXXDo0vaKyzaY18pBDAIZeUSVITYrI69/cxGhhGDowPyO3z
|
||||
o/96cz3nKOOg4HbwWua496XYzxV8va8BKd45IO+fvSvji5oGQqHw92xqDx+jR1d+lz1gycE+ydmKPhB1
|
||||
YXPx6Dc1H8TJ7B/umNt214k5zruNtx2cm+3oGHNsW+zn4b5+KfzguiQubLg+Ka/2CZvew8fvQIsAygAg
|
||||
s7ozYGOjfEZcnG+q+xh1HtjnNNw5eiz6mtHnUA+41kjEz2evMX5R88AjAXj99abHUsrrb5Ue6JO5Ve0y
|
||||
v7rDJK0XNjE/+GHcPjeHoo578j+UnhM8384Z9bVU4Fx9vY3eOTjunevOcedZ8dwvBCAZAN7c3yfp61ol
|
||||
o7ItAIFJmDcyb3498IED+73jRpwbxZzPfTaabXM8VrHX1bkq5nx3DXc+9MgAXgqFv08ApQAQWnNF0tde
|
||||
lTkAMW/9NcnZgsURS4LCG7nmxDdjDeayZ+gHsQ1Mewg/OM/3P6j58L7cPnc8SoFk/P0O5HVV8LjZ55/7
|
||||
yACenVT7BBYStxfv65NZK1skbRUEEHMURBtAmLKYX9MhWRs7JbOmS7I2dcmCTd0Q4kYzz9rYLdmbeow2
|
||||
G+W81ycLt/RKLuUguW+NH347QRnpth7HfLs9HoDhJezOCe4jBLuPAJDWd0x2Ixh/Sdn4IwIoCffI9Lcv
|
||||
yMy3LwLEZdVswKArQmsNkPR10NpWSa9qkwyAmYs4FyWjQv8gLNWGazIfmkt4cBLndJTu5/Z6AN0AAWwm
|
||||
9mViTnn7qrGP0HGeHkPMWt8pWRs6ZQH2qzDP1jkivpxsfDHZ2DcRd4FRo8QBQNT55wNxAIr3dEvK0jMy
|
||||
dfk5mfnWeZn5zkXoEkBcUhCzV30qaauNFIpzCbXGRoBysAwwwCI09hbOsS8DADMqrQgQ4AgqqHmVV2Ue
|
||||
zp+P4/OrWgGgTZWFczNxPGtDOwBgG/CM2gED+wBubNGhQZvaKJEROOHPoc1PJodO3KEDUirOyvQV52TG
|
||||
WxdkBpwwAxBS3yUEuGE1xfKwAJigTXSOArnqgRlOLCszp6taFFY6Es2oghjXU60ydwOSr0biNSi/GjiI
|
||||
UkdYsRRrTMysgSs0wgnYxxINZZ68NxsLuwcpaempnglFjadiAPQCAB1gILAcZrAk3kVJAMLsVaYk0gCB
|
||||
tVt74Y50fDYkJzsicuya0dF2ow+hI21Qa0SaoMNQI3U1IvVQ3ZWI1EKHPo3IQehAS0T2X47IPmgvtOdS
|
||||
RHZfjMguaCd1ISI7rLafN9r2BfX+uYhUHb8L5+2PKIDRocrHk0PH75Ts7ZXk8tOmDJadlWkK4rwFASeg
|
||||
FOgGWnfjh7ckMiTycetdKdgxKPkQY8EHg1K48zMpgBiLGHfdkKJdmGs0WrT7hhRDi/bclOKASsKI4Vsa
|
||||
F2u8ZeJebO/F/CtUxoqLdxUAV4IvlR2/yxKYvORjmVL+iSQDQvIygEBJTENPmP4WygIgUgGivLZHVtbf
|
||||
QMK2+7JjE8J2C2EHAECFgKEgPjAwCglhJwBgTgCLCEJh3DRA9hCKBWFhOEVBIJSYZL6IxhTX9SoAdkkH
|
||||
ILH0I5lUdioA4jTc4JdFGmq3oqFXipB8jj7EmPtyrgMBCCrrCI0E4WB4Mq4gAHWEdYXKOcLB8EAYZ5Tg
|
||||
wyuUL+GK7E2dklDUHNb0+TA0JXT8XsneHpm4+IQkvnlSkkpPGRAWgoKAG0r2dkrpvn5ZsJkPToRwXXK4
|
||||
IIoBkedAWBgOiLqBZeJcARBaKsOUCJ3hIKg7CINzQthjysO5QxNjHKE7kpac7Hkjr/73CoBjSugYAHTL
|
||||
hOJjklByXEEkAcQkOsK6gQ2yoqEHq79eLIS4wCGAflmoIJwjIAfCSZ1h3aEwWCIOhg+CpeEBcLIgopwR
|
||||
kCkVH4ZxxvBJO+WjgScUNFyyqZuhAMJdMq7oKFZSxwDiOEDADYvpBoCAG3K2tkoZVovzqnsUQPZ7/dCA
|
||||
LKS2BEDADXQFozrDuuN+EMYVBYCgPWOn74ygG4pcaXiuiIbBpIvhCDf3ZRJmyQQBJK84e31cXsNrNnUz
|
||||
/l4WjhDA2IIj8kbhhzIeICYARAJATCQIuGFpXTfW+j0AgGXvJpYBhKVuNqKBAQgEAWcYd1AGQlAGBgBs
|
||||
g4Jlwj5Bd3iusDAsENcvdA4IWh5aIraBOhhMXufWFZq46RlFuz+ThPzGnvueFRyAMXlNMjavWUGMC4BI
|
||||
W31Byg704hbYiYVJj2Ru7FMXUAoCPYFyILItBAfCuSPXAQEEUyaD0f3CwlBX2ObpuUJlARCEc4UFQlc4
|
||||
Z2ivCMydK9JLWm5PKDxcYNP2x98IYG+XvJbTKK/nHjYg8pvlDQVxVEoPdOHDd2PlRgC9CkAhbEQ/UBim
|
||||
LxgQhICoIALOIATPGQaGa6DOGXzqc7dVdzv1SsQ5wwMCCA4IALjo5DdQSF1xQyYWNvclDPe3Cgfg1ex6
|
||||
+d/CBguiCSCaUf8fyZKD3Vj6tsucyi7tAfMpgnAiCHWEBeHBsCViy8SUiA/DOIMgnCNsJISgOwL9otD1
|
||||
C+sKcyfxneFB2IXEEWl7OiOUVzc0oeDwNpty9JgcqhlaDACvZNXJfxfUA0SDBXEYF25H7XdhFXgVDyrd
|
||||
WKt346mOvYDqBQwrhUFn0BUOCGH0I5qeoeXhomueHgjIusHdTbRfKBALwwMRAOKcYV2hK08FwmODColg
|
||||
kkobe97IbfyNTTl6EAAd8PL8Q/JyZq2CeBUgxsAF/PbT17bhQYiPwACg6gEIAAgKEOaxPwCEKRMDxJSI
|
||||
L69MPBAQS8WCUBgWAqPvCkAINE4FEJCuPANAOOfvBYSRs6UHd7jDZ2y694/JoWoA6JQX5x6Ul+YdVBCv
|
||||
AERmTYsUbO/EYzGe+FD/6VWAAWVQFkYGkqcrFIi6wsiViFcq2jPgEAcDIILOcDHKFQCg/cKtLwgm1hXa
|
||||
M2y/0J5BEIN47YAeowOmLz89gIXPizbd+4cCCHfKv9P3y38yDlgQh7T58dufQQDrMEcPSK9kM7TRwjCu
|
||||
sLIl4oD45WGhEALdwX6BufYLdQZvq+aOYlzBEgEEp2CJ4Jt1jTMahikT9hCCJBCeOyG3qWt06OTjNt37
|
||||
hwPwrzn7AGEfIOzHw88ZKd7VheeAFti/A02wS0LrOhWED8OHklGFSEdYea4gDK9fBIDYEjEw6A72DfYL
|
||||
wOD6ghA8EDG9grdT1zyDIFSDKK9evLYP7h2UcSUXeevLtKkOPyaXHtV1/gtpYXkhtFdBlIS79ZeeaSs+
|
||||
lbS1napQQAoCZcE7gwckWCKUg6E9wwdCCFoqAGHcARAWiruTZNER9k6it1RooQLxy8S5wsi4gpDmVXeZ
|
||||
bQBJwK1vYmHdz22qww8H4PnZe+Sfs8P6TLBoVw++/cvo/miAazrwJAgIViHGKBgOiAFhIkvFAFEoHgwD
|
||||
wi8RG2Ma6LDN07nCybrCg8Hka1CCAEAYoawDQwmFjTU2zc8fBkCH/CN1tzw/azdqiau+Vkmu4K9AHUYo
|
||||
AwWh0Yeh8mDQDT6MOR4EuqPrPmdkWGeYuwhl7iTGFQTBpulgxDiDAGzjVHcAAm2fXnlNz2WZJGHZOz6/
|
||||
9tc2zc8fBLAYAJ6buQvrgDrcSgbw7V+SaW9dkVlIfhaSnrXqmkYF4aTOgNZSARAEABDaM+iGgDs8VwQc
|
||||
odG5IgCDIJy0VygQ6wotD3P3cM6Yu57vf01h8FfohMKmkzbFBw8HYPSMnbh4l8yt6pApS/kzGJJG4qmE
|
||||
oOK2nceC0EhHEIoPw3OEk+cMA+M+VzgIHgy6woEwZWLuJBaEFe8kaWv4K3OnOiO5/Fj/uPyG52yKDx4E
|
||||
sOFIr94CuaCYvuIynv9bFIDTLEYknqoQjFgaGldj23NEpxed2DNciRh3xMJwZUIIKBV1BhxhF1x6F1EY
|
||||
pjzUES7afpGBxGetatVt9oAxOfUdI/4zOQHs/mQAF+UfJboksfTsfQA8MXmdO0dQ1hWQ7wqACEBxpWJA
|
||||
QCwRd2slCAvE3U2cK8z6gjBsmWh5QEjeOMO4gsmnrW5XAPxr97j8w7Nteg8fU8qOynsfDUpbf0SmVlzA
|
||||
8/9ZhTBpyXlJXnYpRpdVKWiQRi14TYuJWDNMXf6pTMWt04l9ZDr19lXoCtYXV43eacUKE8JdRrWyDVCh
|
||||
VW1IhktvuoqxHYldA0CIANddAyyWVYdG9pfUla2Sgp6VDhewiU4obOrj/yXZ9B4+kstP6A8G/ENoEhJP
|
||||
fPNMQNwOiMdjxNdEqewcIsRoNSlWgEtNDsTJ5U4X0IMgjRfN3Cp52cVoVVwE/EuAekWdkTonjKe+pjU2
|
||||
tYePJU3y2LRlH+sPBlnV3foN8gM/CoBYxSYfqyAADwQTj4GgIJwCEFQBCFyvsHRYIomho3fG59U+Y9N7
|
||||
+CgO334+qeQo7v39kloJgt9izUCfGZvv/21wRGPm8qaqOWvDkbE59ZJQfEIml52WKUvOfH0qPyPJiMmM
|
||||
TvxDjItLz6pSVOckZdnwmgpNq3A6Lyl4/YTQ4Xt/eGnBfKT1S2hk/y739K+eefa3f31tDKZ//Ar1p2H2
|
||||
fZ4e5dyRiMnHR3zER3zER3zER3zEx4PHqFH/B7/AW6VS4Su/AAAAAElFTkSuQmCC
|
||||
VWorVa3al5CmaRuSpgkEMDZgMxl8sQEb4xmb2JgpA6MNmCkMMXAhgCdswhQSZjBgG882DvP16v+vvfc5
|
||||
514cMBmkRLpb+rX2Ge65d333X+vsc+0R8REf8REf8REf8REfHKEt157O3dL/s8yNfc9QeTt7f5q1rfcn
|
||||
VEFVz48fpZxdrT+wl/p2jYSipkXJZSdu5qz7VL6sMkrO3klaeOTAyIqK79rLf/PHmIWHBk523Jc790WO
|
||||
td6XTR/f/ULafOqu7LpwX7I3hCOJRU2p9vLf/DFtWd3t908NyKEzt6VwR5/kvv846teYx/l2o5UNn0li
|
||||
wZFbCfPrfmHf4ps9Egs+urWkttck4BLDXJNSmSSjjge37bn++X0SKqoenLSo6aB9i2/2cAA0CU0KCW+n
|
||||
XEIWABWzPw/b+hqFgLnu65PS8A1JX/HpvQmFDUvGFdc/M7Yk/MOvU28sbnzCpvP4Y+qSkzfLa0xSDgIT
|
||||
MQlTJimTrJub/e41CoDHOOdrsV19+o6EFm4fHKpZfh1KKGysH51X86xNa/jDATDJBxK036iB4I7ZpF2y
|
||||
ep47P/r1y/ffkJa+iHTeEjnYNvi1qrZdJJT/weC4goZam9bwRwoBHHJJmSQ1ISarc38fo4Fh5MD4gNw+
|
||||
P/qvN9dzjjIOCm4Hr2WOe1+K/VzB1/vql+Lqftl+9p6MK2rsD4XC37OpPXqMHFnxXfaAxQd7Jed99IGo
|
||||
C5uLR7+p+SBOZv9Qx9y2u07Mcd5tvO3g3GxHx5hjO2I/D/f1SeEHNyRxQf2NiXk1T9n0Hj1+B1oEUAYA
|
||||
mRs7AjY2ymfExfmmuo9R54F9TkOdo8eirxl9DvWQaw1H/Hz2GuMWNvU/FoA33mh8IqW87nbpgV6ZU9km
|
||||
8za2m6T1wibmBz+M2+fmUNRxT/6H0nOC59s5o76WCpyrr7fROwfHvXPdOe48K577hQAkA8BbH/ZK+roW
|
||||
yahoDUBgEuaNzJvfCHzgwH7vuBHnRjHnc5+NZtscj1XsdXWuijnfXcOdDz02gFGh8PcJoBQAQmuuSvra
|
||||
azIbIOauvy4527A4YklQeCPXnPhmrMFc9gz9ILaBaQ/hB+f5/gc1H96X2+eORymQjL/fgbyhCh43+/xz
|
||||
HxvA8xNrnsJC4s6i/b0yc2WzpK2CAGK2gmgFCFMW86raJWtTh2RWdUrW5k6Zv7kLQtxk5lmbuiR7c7fR
|
||||
FqOcrb2yYFuP5FIOkvvW+OF3EpSRbutxzHfa4wEYXsLunOA+QrD7CABpfcdkN4zxt5RNPyKAknC3THvn
|
||||
gsx45yJAXFbNAgy6IrTWAElfB61tkfTKVskAmDmIc1AyKvQPwlJtuC7zoDmEBydxTkfpfm6vB9ANEMBm
|
||||
Yl8m5pS3byP2ETrO02OIWes7JGtDh8zHfhXm2TpHxJeTjS8mG/sm4C4wYoQ4AIg6/3wgDkDx3i5JWXJG
|
||||
piw/JzPePi8z3r0IXQKISwpi1qorkrbaSKE4l1BrbAQoB8sAAyxCY2/hHPsyADCjwooAAY6ggppbcU3m
|
||||
4vx5OD6vsgUAWlVZODcTx7M2tAEAtgHPqA0wsA/gxhQdGrCpjRAZhhP+GtrydHLoxF06IGXZWZm24pxM
|
||||
f/uCTIcTpgNC6nuEADesplgeFgATtInOViDXPDBDiWVl5nRVs8JKR6IZlRDjeqpF5mxA8huReBXKrwoO
|
||||
otQRVizFKhMzq+AKjXAC9rFEQ6GT92dhYfcwJS051T2+qOFUDIAeAKADDASWw3SWxHsoCUCYtcqURBog
|
||||
sHZrLtyV9s8G5WR7RI5dNzraZvQRdKQVaolII3QYaqCuRaQOqr0akRro0JWIHIQONEfkw8sR2Q/tg/Ze
|
||||
isieixHZDVVTFyKyy2rneaMdX1Dbz0Wk8vg9OC8cUQAjQxVPJoeO3y3Z1yPJ5adNGSw9K1MVxHkLAk5A
|
||||
KdANtO6mj25LZFDkk5Z7UrBrQPIhxoIPBqSw+jMpgBiLGHfflKLdmGs0WrjnphRDC/fekuKASsKI4dsa
|
||||
F2m8beI+bO/D/CtUxoqL9xQAV4Kjyo7fYwlMWvyJTC7/VJIBIXkpQKAkpqInTHsbZQEQqQBRXtMtK+tu
|
||||
ImHbfdmxCWGnhbALAKBCwFAQHxgYhYRQDQCYE8BCglAYtwyQvYRiQVgYTlEQCCUmmS+i0cW1PQqAXdIB
|
||||
SCz9WCaWnQqAOA03+GWRhtpdVt8jRUg+Rx9izH0514EABJV1hEaCcDA8GVcQgDrCukLlHOFgeCCMM0rw
|
||||
4RXKl3BF9uYOSShqCmv6fBiaHDp+v2Rft0xYdEIS3zopSaWnDAgLQUHADSX7OqR0f5/M38IHJ0K4ITlc
|
||||
EMWAyHMgLAwHRN3AMnGuAAgtlSFKhM5wENQdhME5Iew15eHcoYkxDtMdSYtPdr+ZV/d7BcAxOXQMALpk
|
||||
fPExSSg5riCSAGIiHWHdwAa5rL4bq78eLIS4wCGAPlmgIJwjIAfCSZ1h3aEwWCIOhg+CpeEBcLIgopwR
|
||||
kCkVH4ZxxtBJO+WjgScU1F+yqZuhAMKdMrboKFZSxwDiOEDADYvoBoCAG3Leb5EyrBbnbuxWANlb+6B+
|
||||
WUBtC4CAG+gKRnWGdceDIIwrCgBBe0a174ygG4pcaXiuiIbBpIvhCDf3ZRJmyQQBJK84e2NsXv3rNnUz
|
||||
/lgWjhDAmIIj8mbhRzIOIMYDRAJATCAIuGFJbRfW+t0AgGXvZpYBhKVuNqKBAQgEAWcYd1AGQlAGBgDs
|
||||
gIJlwj5Bd3iusDAsENcvdA4IWh5aIraBOhhMXufWFZq46RlFez6ThPyG7geeFRyA0XmNMiavSUGMDYBI
|
||||
W31Byg704BbYgYVJt2Ru6lUXUAoCPYFyILItBAfCuSPXAQEEUyYD0f3CwlBX2ObpuUJlARCEc4UFQlc4
|
||||
Z2ivCMydK9JLmu+MLzxcYNP2xx8IYF+nvJ7TIG/kHjYg8pvkTQVxVEoPdOLDd2HlRgA9CkAhbEI/UBim
|
||||
LxgQhICoIALOIATPGQaGa6DOGXzqc7dVdzv1SsQ5wwMCCA4IALjo5DdQSF1xUyYUNvUmDPW3Cgfgtew6
|
||||
+d+CeguiESCaUP8fy+KDXVj6tsnsik7tAfMognAiCHWEBeHBsCViy8SUiA/DOIMgnCNsJISgOwL9otD1
|
||||
C+sKcyfxneFB2I3EEWl7OiOUXj04vuDwDpty9JgUem9wEQC8mlUr/51fBxD1FsRhXLgNtd+JVeA1PKh0
|
||||
Ya3ehac69gKqBzCsFAadQVc4IITRh2h6hpaHi655eiAg6wZ3N9F+oUAsDA9EAIhzhnWFrjwVCI8NKCSC
|
||||
SSpt6H4zt+E3NuXoQQB0wCvzDskrmTUK4jWAGA0X8NtPX9uKByE+AgOAqhsgACAoQJjL/gAQpkwMEFMi
|
||||
vrwy8UBALBULQmFYCIy+KwAh0DgVQEC68gwA4Zy/FxBGzrZu3OEOn7HpPjgmhd4FgA55ec5BGTX3oIJ4
|
||||
FSAyq5qlYGcHHovxxIf6T68EDCiDsjAykDxdoUDUFUauRLxS0Z4BhzgYABF0hotRrgAA7RdufUEwsa7Q
|
||||
nmH7hfYMghjAa/v1GB0wbfnpfix8XrbpPjgUQLhD/p3+ofwn44AFcUibH7/96QSwDnP0gPQKNkMbLQzj
|
||||
CitbIg6IXx4WCiHQHewXmGu/UGfwtmruKMYVLBFAcAqWCL5Z1zijYZgyYQ8hSALhueNzGztHhk4+adN9
|
||||
cDgA/5q9HxD2A8KHePg5I8W7O/Ec0Az7t6MJdkpoXYeC8GH4UDIqEekIK88VhOH1iwAQWyIGBt3BvsF+
|
||||
ARhcXxCCByKmV/B26ppnEIRqAOXVg9f2wr0DMrbkIm99mTbVocek0qO6zn8pLSwvhfYpiJJwl/7SM3XF
|
||||
FUlb26EKBaQgUBa8M3hAgiVCORjaM3wghKClAhDGHQBhobg7SRYdYe8kekuFFigQv0ycK4yMKwhp7sZO
|
||||
sw0gCbj1TSis/blNdejhALw4a6/8c1ZYnwkW7u7Gt38Z3R8NcE07ngQBwSrEGAXDATEgTGSpGCAKxYNh
|
||||
QPglYmNMAx2yeTpXOFlXeDCYfBVKEAAIIxTaMZhQ2FBl0/z8YQC0yz9S98iLM/eglrjqa5HkZfwVqN0I
|
||||
ZaAgNPowVB4MusGHMduDQHd0PuCMDOsMcxehzJ3EuIIg2DQdjBhnEIBtnOoOQKDt0yuu67kskyQse8fl
|
||||
1/zapvn5gwAWAcALM3ZjHVCLW0k/vv1LMvXtqzITyc9E0jNXXdeoIJzUGdBaKgCCAABCewbdEHCH54qA
|
||||
IzQ6VwRgEIST9goFYl2h5WHuHs4Zc9bz/a8rDP4KnVDYeNKm+PDhAIycXo2Ld8qcynaZvIQ/gyFpJJ5K
|
||||
CCpu23ksCI10BKH4MDxHOHnOMDAecIWD4MGgKxwIUybmTmJBWPFOkraGvzJ3qDOSy4/1jc2vf8Gm+PBB
|
||||
ABuO9OgtkAuKaSsu4/m/WQE4zWRE4qkKwYiloXE1tj1HdHjRiT3DlYhxRywMVyaEgFJRZ8ARdsGldxGF
|
||||
YcpDHeGi7RcZSHzmqhbdZg8YnVPXPuw/kxPAnk/7cVH+UaJTEkvPPgDAE5PXuXMEZV0B+a4AiAAUVyoG
|
||||
BMQScbdWgrBA3N3EucKsLwjDlomWB4TkjTOMK5h82uo2BcC/do/NPzzLpvfoMbnsqGz9eEBa+yIyZdkF
|
||||
PP+fVQgTF5+X5KWXYnRZlYIGadSM1zSbiDXDlOVXZApunU7sI9Ood65BV7G+uGb0bgtWmBDuMqqVrYAK
|
||||
rWpFMlx601WMbUjsOgBCBLjuOmCxrNo1sr+krmyRFPSsdLiATXR8YWMv/y/JpvfokVx+Qn8w4B9Ck5B4
|
||||
4ltnAuJ2QDweI74mSmXnECFGq4mxAlxqUiBOKne6gB4Eabxo5lbJSy9Ga9lFwL8EqFfVGamhrXjqa1xj
|
||||
U3v0WNwoT0xd+on+YJC1sUu/QX7gxwEQq9jkYxUE4IFg4jEQFIRTAIIqAIHrFZYOSyQxdPTuuLya52x6
|
||||
jx7F4TsvJpUcxb2/T1IrQPBbrOnoM2Py/b8NDmvMWN5YOXttODImp04Sik/IpLLTMnnxma9P5WckGTGZ
|
||||
0Yl/iHFxyVlViuqcpCwdWlOgqcuczksKXj8+dPj+n0bNn4e0fgkN79/lnv3Vc8//9u+vj8b0z1+h/jLE
|
||||
vs/T45w7HDH5+IiP+IiP+IiP+IiP+Hj4GDHi//4gWqkHLJ1zAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
@@ -496,7 +521,7 @@
|
||||
pLy5jUQI3fHzF8C8aFg3p+Q3jKVvw1cY5FM2zxTiYWFhAvgxIVNYBO2e8E3YcsqbM8BOhOx3Xvv5CnB2
|
||||
7mDvdB/v7xyRr9wwhr4JXWaQP7x5thCOioqipMQkSkpKEh+xQ0vvM0T4evdSyp3d306ErNdfNATI/Mfr
|
||||
/nr5n3aY5vv1dEp+/Rj6etcSg3zSg3OFaHR0NB0/fpzy8/IpLz9P/Oj90XLs/WVTDRH+/V4I5c6yFyFz
|
||||
2xYRIGnQgO8/9PPqqbfx04ySwGE+zshXrBvNBIIN8okPWcmnpaVRUVERVVVVCeCnHU+TY1hzcEUANTyv
|
||||
2xYRIGnAgO8/9PPqqbfx04ySwGE+zshXrBvNBIIN8okPWcmnpaVRUVERVVVVCeCnHU+TY1hzcEUANTyv
|
||||
ifDVu4spZ2Y/OxFOPb1B7G6fTt8dH+bpo7fz447CoCG+TsmvvYcbX2SQj384yOab18hXV9dQff05Oneu
|
||||
nqprajQR0vhM0EXYv3K6IcK/3llIOTPutBNBASJ8MLKrr97WjzOKAgf3dkp+zT3c8AKDfNwj823IH6ei
|
||||
s2eZfDUTP0cNDQ10ngG/hmNn+ZhcDkqEVTMMEb58O4jOTL/DTgTlQ4QPh3fprbd3fYcpaFjf9AHe3zsi
|
||||
@@ -542,94 +567,93 @@
|
||||
uztYYA/sTPiemhXfirexlmN2AmzmvC2AyVUBKjeNbBFsBdgzvYvs7mDDbbBnOoth+LCYd5W1iNkKULmR
|
||||
87YALgtQsWFEi2ArQPgDXejVMTdTGFv4gK0PspiHPeBhs9bDTgBHNZoD1wVYz4laAFsBwgI86K0Jt9FL
|
||||
I9o2C1gbyp+xE2Ad520BXBbAsnZ4i2ArQOg0Dw1Mave0zgzMlUVMn8txRkDnJgI4qtEctFSASQx/FHcV
|
||||
ICGkp9pASHfmxx1bmduA57vEWgVwFeCic8KfKbszrjqwMMBdaN/2t7NbAke5XMCP80/SX0erG23a/A//
|
||||
AuW0nr/YzwAAAABJRU5ErkJggg==
|
||||
ICGkp9pASHfmxx1bmduA57vEWgVwFeCic8KfKbszrjqwMMBdaN/2t7NbAke5XMCP80/SX0erG23a/A+g
|
||||
DuWyFyEZrgAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAABKaSURBVHhe7VtnjJ3ZWTYhEAgtogZQhEJQQlsEIYrgD0Kh
|
||||
SyBSEBsiQAiUH1HEIlGEdkn226l32u1leu+99148M/Z47Fn3Xte7trfZG6/XbebwPO8557vfHV+P2xjt
|
||||
rjjSo9Pe87bT3vPdmR3/n/4PUriioiVUVXn1HlRWXM0rK7vmRbSmps8M+/AkGqaQzlx9a0swOZUVN82w
|
||||
D09yHOf23MqKmt8DSL7bxRzaCOlDHbR3gY+aoR/85JSWftxfVnpnfgXGCmiwcYBtoyNMn1Ndddvx+3/F
|
||||
DH9/JqzU7zPFB6bMYPBz8erqO9pAD1yjNWZNXtXasl5YUvJVM/yB6VF02ZaUHY1+Pqc4dDkrEviSadoy
|
||||
ZYRCf1Ld0b4+u7ILRu6CkQQM3q2hy8m+pt4eFa+tDZjhW6asSOTTvkT8bElz47dM09NN+dHoF5yMl+7y
|
||||
sIpUV60XJBLFD9qvWaHQv7QMDmgjXVgHeOu63D06omK1NQtm+H1TbjT0l4XB4HvUxfHlbpS3Nj1nup5O
|
||||
EuMzM+4eunhBze5aVq++965qGx5SRbHYuaxY4S8ZMjdxaWYFg39QUJw43DMxrmZcY4llne9KtrGfGJmd
|
||||
5UF4Ozce9TmBwC8bdm4i3/xEwu9kZ909duWSWtq/po6/flmcUNHa/G+GbHuT1/gZo/wMnHD51ntq6fAh
|
||||
OuFWTjT0ddI6sYJPFpWUBPyYnYyAf2Nh/8tqYd9e0OsxGjTWlG3uwe6jh9U42rnKYpWV57DUZbs5weAn
|
||||
8osTe3yx6MbFG9dBq/ks7N2jjl161Trh30m7bSkvEvkijT/86ispSk4vL6ndhw6qi+9+T5166w2VaKhf
|
||||
LywuPuiUObeHds6r02+/qS7fvilO4hU3vWsJwLgUHgboS/JeUnuPHdNjgT0nj6vMUHDDV1z8tq848fbI
|
||||
4oK0y3iBHju3uqKOveY64T+N+k+W8hKJ37PGizAYLZCyrvMOP/X6FXWJq+HIIcWZoYJn4JS10yfV/Ooe
|
||||
zxjmlseSmmLuwvYjR9/c6qpaO3VC+JDfkdcuqgMXzknZ5SO8SJ/UJbkSWp/MCUnjL2qBy4uSU2mteLLO
|
||||
8sunT6lLN2+ok9iPy1j2Lu0S+gmh845PzTW8PJGbceRHvnSyty8FbMN4Xq9H6YQ8ccJ/G3MeLVnj6fVJ
|
||||
MJ9cWhTmWpgtM9dCpQzwECM96SbRPimKJvuTtLY9ld+9clLH8+zRZaMTQDlCT3mmjVerrIQ830ZZ82Oc
|
||||
CbnR6GeDleXrQzPTanJRMxbmtuxpm1za6SkDKX26PrG4U3XgxihpqFeB8lKFQ0y95C9S3y3IV9nhkCos
|
||||
SahIVaWq7WhXg9NThgf4Ytw9/AAxnEjTZzGFreHk+zZi9TV/a8x6tFRQmvgaQ9jxhQWjyE4xxObesu2n
|
||||
0sn2RdU/NaliNdXKKSpUL/hy1f/k+YzBxSpaXaXi6AuUl6m8eEwc8nxujnoBNLnRiDhjfOeCmqBBwm8z
|
||||
/yRc+QZsy/QXbeC6rDDmPF7KT8T8xfV16xM4ecfJeKdmnixDQbeOMtuQD89Oq5L6OvUiZvjFwgKZXUZ4
|
||||
w7jjRWnQjQutppfxQM/YmKpoaVI+OOB5OCwz4FeN3V1C68q0Y5jLOK2D5TmOeutgv8LVfaa0tPQHjCmP
|
||||
lxh0FMRiu+q7OsF8HqBgDa3EvWgfGlRZoaDMery2RpZ0Cg1WVEpuYPnZvLmvV+VEwrJyAmWlCJBmDK3V
|
||||
w6tPsjwAeU48diNdcPZYyQmHfxxL9I1O7OExETSvxqC8BuoEhaNe29mhEPzIku4ZGzWKgZ65GaPH27op
|
||||
p2kj7ejCnKpubVHfyc9TOdg6veNjhh50hBlrZZAeW+pOTjj8N0b97Uk5kaJfxcF1h7NAoaMGWtE5yava
|
||||
WlVmMKDCFeVqeEbTjc3Padp5L70eM2r6WKfi0mYgPNEvQLl1YEDOCKJnfFTGjJGngHS6XtfZqXLjsTGj
|
||||
9vYlvuicrMy7onQacLkiWpMlPzI3m5bmScEV9RJWF1cCt1U6mr7JCZUXi15zqp0fMqpvTwpUVV7sGh2G
|
||||
kFkxcGQOAmko8s6REdmrPM2HMPO6HwAtacQhks+ZMpVlP+pUXGhtn6E1BukxpNNtbTjcvotDtai0RM4E
|
||||
d4yr16wqa2pajzfUPW9Uf/LkS4R/lwHFDMLMYSOE+bBRgAcU93w/vC/tKTTJ3CqY2j+j+yzdHOq2L6Ws
|
||||
6xxX094mNwvPG5c/ackL5f6pCRWqrHjTqP/kKVBePj9IIaLsjBoyOdHY0y0nfp0oY5VgnqTXmE0ZZ5Gu
|
||||
bXM7y27dGFpYnJBYgSe+l87mjGLxMPt1Y8LjJ94AuAZv8X5lVCjAHc+lPjgzpfDWl6CGZVHU0rigQqlt
|
||||
AwiOeGZkBf0bTmHBRjUOz47hwSSNS2/GClJ5t/T3qQwcuJW4IXSfhe6vw7XtLy1tcRznI8aU+yensPBn
|
||||
s4LBv8sKhV7Ij8dbC+LxtfxE/IoP73kaX1Ac3+ChMzg9LYYKUBYjMPsNCFQGIVT3Mzc0hm4IdYJ1KsaP
|
||||
HQhSlrJCgReywoF/yA6HAwxaEHWuM4bQY60sLz/ysjKmceaUYwLiMNj0Sa7LvRPjsgryoL8Tj17PS4TP
|
||||
FyQS86iXZgUC384IBv/MmL9jR7Cy8h+DFeXrzQP9qgv37CA8OolHx8LaPrV88ICa2r0sS80LKlXW1Kj3
|
||||
/sQE2ibv6Se8Zc62Lx48y4+kRnRKyo1EnnVi0RuMGLfiY+vVOAs4Ae2IT4R+SrdbjCOE5rk1za9MuDZ7
|
||||
sfJ6cD40YfXQMQjy9Ke8yvbW5zDjG6vHj6ulQwfU/L69Gmt71c79a7LE+skcDLQg5AAOGnnc0HjG/Lbd
|
||||
LUu7pueBlRcOn3/Q90N+DucK6RoZVv10KvmRj4GWoXl2jerbh9tA6Nhnx4CGK2FqZRecsFtN43VIm1ZP
|
||||
HFMHz5+T3x7Ob2z8sAjFjHyV8T4Z8ASVfJKYkHtVlydVn9s/obpxJ4cR3zfgELTjSEsad4zwmVC9k1iO
|
||||
MOp+M785+WKR/8IDSvTpEz6WH3MLXQ9jEhJ1tZDrabe0gB5v6+zTdNzeRlzSAWIAgSXdhz3k1lPadZlP
|
||||
2wQeO62DA6n9MFbDtAF0Ui7eE0bcAxMfMHQYH0apvO9FaWODitMBbhtke2ldnVLb0jqABwehjddlF5vq
|
||||
bTisyluaEQQNo45Z9vQRwsO0lzc34cQPfseIe6jE7cLwl3wsPy9/i5qONpmIdH3poPmkcUCivnadD40e
|
||||
oHcimfeOj0uZn7V7pM7ymDigBvu6a3RUGPeQjswNDwvWnYL8Dcj4ZyPuoZIvEV/lYWh5uDxTZIzL6irF
|
||||
YSx0to+5IJWeue4fS+OAutr1bnQSjLm7sfzcumBU8m7kRMfwsGrENciDSPpBTxo9BrTgodvGcEg1K1x1
|
||||
ZUbcQyUnFLraCien46flaB2pQ3VH+yY6wNRdG4x+tj83rQPQkQ5dBil1GM4fRZh7adOB50R2MPiaEffA
|
||||
lFVU9Ck5A6i8h889OgDNuNIasVKSdF597q9bigMYB8TratatYVvC0pARllfaMRDMrSFAeQhhMB5K6znR
|
||||
8L8akVumvGh0Tw1n9b76JNu5SoikPNt3v7FEOgfU1qzzQBPg1UdoYpZHdBtefZpG1wcQHzC4SOmTciot
|
||||
gxDy8MWit7L9/i8asfckfn1CMOTgcbU+itBbjydP6CH8tFwrh7FCJwwWoM+lMWMEpi60At2W4oCCkpJv
|
||||
cMnhTr3DA4sfNvjIaR8c1IOw1Jl3WGD/d44MqSE8kEYXtaK6byhJA+h2bBOsgpnVPaoNpzoDEIajDL+N
|
||||
eDE8MxD4jZx4+CBXCqNQXledkOPlJzw9bZztPgRmnFGRJXqZfkNHPVsG+iQEr2hulh9MnHLnthMJXzfi
|
||||
tQLZgcDP46r6Q+BbefFoU348dsRXUPA9zhqdwnCTd38SjNSm1OzeVTlpU/rpCG8dIO3igf1qDA4rrq/X
|
||||
P36Cf3Y8diE7HLpViNCUISpphvDu55h2GiF5OmAFItIbxuqiLmzzyuWbgs7Gi/EWwvUrefH4Ym40XJQZ
|
||||
8n8d59FvFxYW/ogxf+vEmaKybUMDYOpVQK+Onftfxrthtwi04BVJmjbQSJtRiI7iD6UrR4+o85cuwe86
|
||||
vXP9urQtHTwoM0reepyFHq/l6z5ugYldy2p4fl7ak7I0Hc+QXDy4wP7J/3gCd/I+PjzacJqLcQBzYgwP
|
||||
jt1HDiNQmnDb6Kw2bB9b5lZK1gdl23CmV44eVXuOHYXhB8QYcZrQUo6Wpeu6TeQaPlxJc4jtuQ0sXy8t
|
||||
fzrnbBsTnizhmvwynpYbvM74vV3nNBJKQemlQwfV/MtrUvf23w+azgs9RtpxTnj7NtOyznudMun8dP2M
|
||||
DfiqfOLfBGwio9yioneb+3uhIJQ1aGEOgcPYs6snjssT2u2HUdIPg5jzL0SkzcLQsWzpU8aRns7w0BHc
|
||||
34vYRlw13PPuGNBrOf3yYRZXaYFRf3tSTiSUxxO0uV8rKECZgQhznvL8dZiHkqVxaUmDk1jnpo39aNPw
|
||||
0pmcY+14AfsG1NzaPjkvevA28fKzejRh9nnw8Q8pjOrbk3hD4DS9w1VAYYI+kxtFlrEs9589o0Z3LiRp
|
||||
Hhnkb2R4+HNFzMP4vVhpvH5t+2ZU4IGGw++oUXt7Uk44/DPw6jXG3E1QitcVc34So8cpmDmVXD50SB26
|
||||
cF4OKK4AtgtglB5n6gbkYcentif5M6BZwUG7hhU2srCgadwxnrHGcbz+cmLh7fmrMTD7KD1a0dqihfUa
|
||||
YV4gFrdlzh5jgyOvXlT7Tp6QaLGpT/fzcLIgH8ltn1tP0nB78Fzhqlo7dRJR54SW76G1dW+ZL0R+8sLh
|
||||
/WvGjMdPvkikzsnJ2WBUpRXtSQUMuKcNYDBDxY9dek0OSDkbsE1S6NKMbYAMzjgNP3DurDr8ygW1iAOP
|
||||
t00KnYHwwBgpmzbKaYAjEMRd8fv9+rPX46TsSOSfuJzaEGlxyTX0QADAMJleFohQlpNKabpu1YjVwPv9
|
||||
8MVX1Ok331CngH2YSV6ZEzCQt8fAzIzc6ZN7VqSdTjvx+hVx3ApiBD64Gl3+4An+UpeyzrUuut/WGRfw
|
||||
O0FePNJjzHm0lBMK/RbDYHqTqAdTi4aeLhFS362FJdsBtOl6l9tOpRm2ciaPX76kLrxzTV29eVOHgUhX
|
||||
b76nzr39ljoDB3GpT67slivO8tS54detZVPOPbJT0CUrSc6DSOjvjVkPn3ISid/04e7nVx96tw5MabAY
|
||||
BiW0gSxrpdx2gzoPXZ13HECHdEA5vg8G5+ZklnmAagMNP4M6t5yU420T3m5dQ3QFHcNhhvEFZcVfMWY9
|
||||
WvKXlDzjRCPX+e2vvssIxquKYDkFpn8z6rtBa+lBI3WBpUnt132QIbA0ut010Ntmxkju4cPQnSvYFw//
|
||||
lTHn8RJPUr7a+GFTBAC1Hmihpr2zU77Rs+6lcek2lbWytu4pe9prXcNQBoS/22foDY2l5XNevj1Egn9h
|
||||
zHiyxD+OoBPKmpogpEMEC2CwRofiNcnllhPJu1ZUWrJeBodpGtCTBmWrdBLkleTn9psxUme5o0MVN+AJ
|
||||
HY/dzIEekeoqd4w71siobNXGZ4XDf27U356ElfA5bId3+HNYjcdwgrE3HZQVCHwJTvhIdij0FVyfr/AA
|
||||
ouI1ne3yBdnC6zjNS+e6T4Nlrjr++iSOjYbGM8NFv8NrDbyHybsKyzzJj5NgjQ/8qVF7exMeRJ+lE0qb
|
||||
GnDAdCgqwNnODYdXGS0aMjfx81d2ONzPz08lDRhDwzBO5x6n2DZBu/Clgb5g8Cz4fpu/UBuWbsLJ/h80
|
||||
lucTx8sKjEVvYhL+2JA8nWSdEK2pFm9DwRdxk2350SE7GHyOy5ahNEHjdZnGm7JxCttKGxvlY4YZft+U
|
||||
EQz+vtUF+c2MUOiPTNfTTfwBE3HC/uxA4POmacuUHQ78Nb/1WQdUt5tc0Lap3q5iNTUKe7jIDN8yQY+f
|
||||
yw2FVrj9TNP7L3Hvch9zafN6qqLBQBWM1W0s23Ys/8yMDf69ghn+wU9Yzj/F7UJjHwZ01sOurg9MyomE
|
||||
b1W1wUCivVUbK2WT2zL65INGLPajZuj7KvGw49/cfD/A720fA/ja4ifmHwP4FeYngZ8GftELJxJ+hx8r
|
||||
KhGkVMJIyQ1ovM15lTnh0A3P2F8APgnwdwTyJX/KoTzKpXzqQX2oF/Xb9n+j8xrOv/D4QYB/iOg1ngpS
|
||||
4U8Bnwa+4EVGQcEJbIM7XN6bkYftYSFt/qLTnrHPAPzDis8A5Ev+lEN5XidQH+pF/Z6KI8jM6wivMzgD
|
||||
1iEfB6jUT3jx5Wef/cw3vvnNZx4GpPWMpZEEtwT5kr81mHK9RnsN31bjP8Rpx47/BSi/7+UjGX0xAAAA
|
||||
AElFTkSuQmCC
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAABKDSURBVHhe7VtnjJ3ZWTYhEAhV1ACKUAhKaIsgRBH8QSh0
|
||||
CUQSEJtEgBAoP6KIRaII7ZLs3fGUO/Xe+902c6f33nvvnhl7PPase6/rXdvb7I3Xa4+ZOTzPe8757ndn
|
||||
rsdtjHZXHOnRaW8//bszu/4//R8kp7y8OVRZcWMLKspv5JaW3vQiUl3da9g+PImOKaTzN97aFky+ivI7
|
||||
hu3Dk3w+39rs8rKa2w9Ivs/FLNoI6UMdtP8DfNSwfvCTL5H4eFFp4t7cMpwV0GETANvGQJg+X1Xlmq+o
|
||||
6JcN+/szYaZ+jyk+MO0OBj8bq6q6px30wHVaY8bklS3N6wUlJV8x7A9Mj2LLjqSsSORz2cWha5nhwBdN
|
||||
07YpIxT646r2tvWZ5b1wci+cJODwPg1dTvY19nSrWE1NwLBvmzLD4U/547ELJU0N3zRNTzflRSKf5xrl
|
||||
ZhWuqlzPj8eLH7ReM0Ohf24e6NdOurAB8NZ1uWtkWEVrqucN+31TTiT0FwXB4Hu0BTZslLU0Pme6nk6y
|
||||
zh+9clnN7F1Sr773rmodGlSF0ejFzGjBLxoyN3FqZgaDv59fHD/WPT6mpl1niSWd7022sZ8YnpmhQ2s5
|
||||
sYjfFwj8khHnJsrNi8eLaMvJ61fV4qFVder1axKE8pamfzVkO5u8zk8b46cRhGt331OLx44yCHezI6Gv
|
||||
ktYXzf9EYUlJoAij49udsTF/6GU1f/AA6DWPBp01ZZt7sO/EMTWGds6yaEXFRUx1WW6+YPDH84rj+325
|
||||
/o0rt2+BVsuZP7Bfnbz6qg3Cv5F2x1JuOPwFOn/s1VdSjJxaWlT7jh5RV979rjr71hsqXl+3XlBcfMRX
|
||||
6lsb3DOnzr39prq2dkeCxCNuau8iAL4UGQboS8peVAdOntS8wP4zp5QvK3PDX1z8tr84/vbwwry0C79A
|
||||
886uLKuTr7lB+A9j/pOl3Hj8d63zogxOC6Ss6zzDz75+XV3lbDh+VHFkaOB5BGX13Bk1t7Lfw8PcylhU
|
||||
k8xd2H7k6JtdWVGrZ0+LHMo7/toVdfjyRSm7ckQW6ZO2JGdCy5MFIen8Fa1waUFyGq0NT9ZZfvncWXX1
|
||||
zm11ButxCdPepV1EPyF0Xv7UXMMrE7nhozzKZZC9fSlgG/h5vJ5IBuG/jDuPlqzzjPoEhE8sLohwrcyW
|
||||
mWulUga4iZGedBNonxBDk/1JWtueKm+rnlR+7j26bGwCqEfoqc+08Wi1M6G06TH2hJxI5DPBirL1wekp
|
||||
NbGgBYtwW/a0TSzu8ZSBlD5dH1/Yo9pxYpTU16lAWUL5oxH1UlGh+k5+nspyQqqgJK7ClRWqpr1NDUxN
|
||||
GhmQC74t8gBxnEjTZzGJpcEAROuq/9a49WgpPxH/a15hx+bnjSF7xBGbe8u2n0Yn2xdU3+SEilZXKV9h
|
||||
gXrBn6P+O9dvHC5WkapKFUNfoKxU5caiEpDnc7LVC6DJiYQlGGN75tU4HRJ5m+Un4eo3YJsv46UNHJfl
|
||||
xp3HS3nxaFFxXe36OHbeMQreo4UnyzDQraPMNuRDM1OqpK5WvYgRfrEgX0aXN7whnPFiNOjGhFbTCz/Q
|
||||
PTqqypsblR8BeB4B2x0oUg1dnULr6rQ8zIVP22BljqHeMtCncHSfTyQS32dcebzES0d+NLq3rrMDwucA
|
||||
KtbQRmxF2+CAygwFZdRjNdUypVNoMKNScgMrz+ZNvT0qO+zIzAmUJnBBmja01g6vPclyP/T5YtHb6S5n
|
||||
j5V8jvOjmKJvdGANj4qiOTUK4zVQJ6gc9ZqOdpWBUeOU7h4dMYaBnrnh0fy2bspp2kg7Mj+rqlqa1bfz
|
||||
clU2lk7P2KihBx1heK0O0mNJ3ct2nL8x5u9Myg4X/go2rnscBSodMdCGzkpe2dqidgcDyikvU0PTmm50
|
||||
blbTznnpNc+I6WOdhkubgchEvwDllv5+2SOI7rER4RmlTAHpdL22o0PlxKKjxuydS3zR8VgUo9OA03U3
|
||||
pj2n/PDsTFqaJwVn1EuYXZwJXFbpaHonxlVuNHLTV+X7AWP6zqRAZcWVzpEhKJkRB4dnoZCOIu8YHpa1
|
||||
yt18ECOv+wHQkkYCIvmsKdNY9qNOw4XW9hla45DmIZ1ua8Xm9h1sqoWJEtkTXB7XrhlV2ti4Hquvfd6Y
|
||||
/uTJH3d+h+fpNK6ZQ0YJ8yFjADcorvk+RF/aU2iSuTUwtX9a91m6WdRtX0pZ18lX3dYqJwv3G1c+aSkL
|
||||
5b7JcRWqKH/TmP/kKVBWNjdAJWLstBo0OdHQ3SU7fq0YY41gnqTXmEnhs0jXtrmdZbduHC0ojstdgTu+
|
||||
l87mXK54mP2aceHxE08AHIN3eb7yVijAGc+pPjA9qfDWl0sNy2KopXFBg1Lb+nE54p7hy8zY4MyqwubZ
|
||||
PjSQpHHpDa8gVXZzX6/KwIZbgRNC91no/loc20WJRDPkf8S4cv/kKyj4mcxg8GuZodALebFYS34stpoX
|
||||
j1334z1P530FeRvcdAampsRRAcp0gqNfj4vKAJTqfuaGxtANok6wTsNg1BouKYuZocALmU7g77McJ8BL
|
||||
C26d67xDaF6ryyuPsqyOKew5ZRiAGBw2fZLrcs/4mMyCXNofi9zKjTuX8uPxOdQTmYHAtzKCwT817u/a
|
||||
Fayo+Idgedl6U3+f6sQ5O4CITuDRMb96UC0dOawm9y3JVPOCRpU2Nui1Pz6Otokt/YS3zNH2x4IX+JHU
|
||||
qE5JOeHws75o5DZvjNvJsfUq7AUcgDbcT4R+UrdbjOEKzX1ril+ZcGz2YOZ1Y39oxOxhYHDJ05/yKtpa
|
||||
nvPl522snDqlFo8eVnMHD2isHlB7Dq3KFOujcAjQipAD2GjkcUPneee37W5Z2jU9N6xcx7mEIGz7/ZCf
|
||||
wzlDOoeHVB+DSnmUY6B1aJmdI/r04TIQOvZZHtBwJkwu70UQ9qkpvA7p08rpk+rIpYsyOy5tbPygKMWI
|
||||
fIX3fQrgDir5BDEu56ouT6het39cdeFMdnC/r8cmaPlISxqXR+SMq54JmY5r9xv5zckfDf8nHlBiT6/I
|
||||
sfKYW+i6g0GI19ZAr6fd0gKa39bZp+m4vI26ZADEAQJTuhdryK2ntOsyn7ZxPHZaBvpT++GshmkDGKQc
|
||||
vCeMugcmPmAYMD6MUmVvRaKhXsUYALcNur20rk2pbWkDwI2D0M7rsotN9VZsVmXNTbgEDaGOUfb0ESLD
|
||||
tJc1NSpsst826h4qcbnw+ks5Vp5XvkV1e6sMRLq+dNBy0gQgXlezzodGN9Aznsx7xsakzM/a3VJneVQC
|
||||
UI113TkyIoK7SUfhRoYF6xjNDej4J6PuoZI/HlvhZmhluDJTdIzJ7EpgMxY628dckErPXPePpglAbc16
|
||||
FzoJ3rm7MP3cumBE8i7kRPvQkGrAMciNSPpBTxrNA1rI0G2j2KSaFI66UqPuoZIvFLrRgiCnk6f1aBtp
|
||||
Q1V72yY6wNRdH4x9tj8nbQDQkQ6dBil1OM4fRZh7adOB+0RWMPiaUffAlFlY+EnZA2i8R84WG4AmHGkN
|
||||
mClJOq8997ctJQC8B8Rqq9etY9vC0lAQpldaHijm0hCgPIhrMB5K69kR51+Mym1TbiSyv5qjel97ku2c
|
||||
JURSn+27Hy+RLgA11evc0AR49RGamOVh3YZXn6bR9X7cD3i5SOmTciotLyGU4Y9G7mYVFX3BqN2S+PUJ
|
||||
lyEfHlfrI7h6a37KhB0iT+u1enhX6IDDAvS5NIZHYOpCK9BtKQHILyn5OqccztR73LD4YYOPnLaBAc2E
|
||||
qc683QLrv2N4UA3igTSyoA3VfYNJGkC3Y5lgFkyv7Fet2NUhn9fTBK/fRr04vjsQ+PXsmHOEM4W3UB5X
|
||||
HdDjlScyPW0c7V5czDiiokvsMv2GjnY29/fKFby8qUk2ZF+Zb80Xdm4Z9dqArEDg53BU/QHwzdxYpDEv
|
||||
Fj3uz8//LkeNTLxu8uxPgje1STVzYEV22pR+BsJbB0i7cPiQGkXAiuvq5GKUA/lZsejlLCd0twBXU15R
|
||||
STOIdz952uiE5OmAGYib3hBmF21hm1cv3xQMNl6Md3Fdv54biy3kRJzC3aGir2I/+q2CgoIfMu5vnzhS
|
||||
NLZ1sB9CvQbo2bHn0Mt4N+wThRY8IknTChppMwYxUPyhdPnEcXXp6lXEXad3bt2StsUjR2REKVvzWWh+
|
||||
rV/3cQmM711SQ3Nz0p7Upem4h+TgwQXxT/7HEziTD/Lh0YrdXJwDmBOjeHDsO34MF6Vxt43BasXysWUu
|
||||
pWR9QJYNR3r5xAm1/+QJOH5YnJGgCS31aF26rttEr5HDmTSLuz2XgZXrpeXoc7SNC0+WcEx+icuAxxm/
|
||||
t+ucTsIoGL149Iiae3lV6t7++0HTeaF5pB37hLdvMy3rPNepk8FP18+7AV+VT/ybgE0UlFNY+G5TXw8M
|
||||
hLEGzcyhcAhrduX0KXlCu/1wSvrhEHP+hYi0WRg6li19Ch/pGQwPHcH1vYBlxFnDNe/ygF7r6ZMPszhK
|
||||
8435O5Oyw6FczoKmPm2gAGVeRJhzl+evw9yULI1LSxrsxDo3bexHm4aXzuTktfwC9vWr2dWDsl90423i
|
||||
lWftaMToc+PjH1IY03cm8YTAbnqPs4DKBL0mN4YsYVoeunBejeyZT9I8Mijf6PDI54yYg/MHMNN4/Nr2
|
||||
zSjHAw2b3wlj9s6kbMf5aUT1Ju/cjTCKxxVzfhJjxKmYOY1cOnpUHb18STYozgC2C+CU5jN1A8qw/Knt
|
||||
Sfm80Cxjo13FDBuen9c0Lo+H1wSOG2B21NmZvxqDsI8youUtzVpZj1HmBe7itszR493g+KtX1MEzp+W2
|
||||
2Nir+7k5WVCO5LbPrSdpuDy4r3BWrZ49g1vnuNbvobV1b5kvRH7ywub9q8aNx0/+cLiWa5+3Km1odyrg
|
||||
wJY2gJcZGn7y6muyQcregGWSQpeGtx46OOJ0/PDFC+rYK5fVAjY8njYpdAYiAzxSNm3UU49A4BJ3vaio
|
||||
SH/2epyUFQ7/I6dTK25anHL13VAA8JrMKAtEKctJozRdl2rAbOD5fuzKK+rcm2+os8BBjCSPzHE4yNOj
|
||||
f3pazvSJ/cvSzqCdfv26BG4ZdwQ+uBpc+ZAJ+VKXss61Lbrf1nkv4HeC3Fi427jzaCk7FPpNXoMZTaIO
|
||||
Qi3quztFSV2XVpZsB9Cm651uO43mtZUjeeraVXX5nZvqxp07+hqIdOPOe+ri22+p8wgQp/rE8j454qxM
|
||||
nRt5XVo39WzRnYJOmUmyH4RDf2fceviUHY//hh9nP7/6MLq1EEqHxTEYoR1kWRvlthvUeuhqvXwAA9IO
|
||||
4/g+GJidlVHmBqodNPIMat1yUo+3TWS7dQ2xFXS8DiMAa/mlxV82bj1aKiopecYXCd/it7+6TqMYryqC
|
||||
5RSY/s2o6wKtpQeN1AWWJrVf90GHwNLodtdBb5vhkdwjh1d3zmB/zPlL487jJe6kfLXxw6YoAGo80EpN
|
||||
e0eHfKNn3Uvj0m0qa2Nt3VP2tNe4jqEMiHy3z9AbGkvL57x8ewgH/9y48WSJfxzBIJQ2NkJJuygWwGGN
|
||||
dsVjktMtO5x7szBRsl6KgGka0JMGZWt0EpSVlOf2Gx6ps9zerorr8YSORe9kw45wVaXL4/IaHRUt2vlM
|
||||
x/kzY/7OJMyEz2I5vMOfw6o9jhO8ezNAmYHAFxGEj2SFQl/G8fkKNyAaXt3RJl+QLbyB07J0rvs0WOas
|
||||
469PEthIaGy3U/jbPNYge4iyKzHNk/I4CNb5wJ8Ys3c24UH0GQYh0ViPDaZd0QCOdo7jrPC2aMjcxM9f
|
||||
WY7Tx89PJfXgoWPg07knKLZN0CZy6aA/GLwAud/iL9RGpJuws/87neX+RH6ZgdHIHQzCHxmSp5NsECLV
|
||||
VRJtGPgiTrJtPzpkBYPPcdryKk3QeV2m86ZsgsK2REODfMww7PdNGcHg71lbkN/JCIX+0HQ93cQfMHFP
|
||||
OJQVCHzONG2bspzAX/Fbnw1AVZvJBa2b6m0qWl2tsIYLDfu2CXb8bE4otMzlZ5ref4lrl+uYU5vHUyUd
|
||||
BirhrG5j2bbL9N/g3ysY9g9+wnT+SS4XOvswYLAednZ9YFJ22Llb2QoHibYW7ayUTW7L6JMPGtHoDxvW
|
||||
91XiZse/uflegN/bPgbwtcVPzD8C8CvMTwA/BfyCF76w8w4/VlTgklIBJyU3oPM251Hmc0K3Pbw/D3wC
|
||||
4O8IlEv51EN91Ev9tIP20C7at+P/Rud1nH/h8f0A/xDR6zwNpMGfBD4FfN6LjPz801gG/OFlbTNysTws
|
||||
pK2o8JyH9xmAf1jxaYByKZ96qM8bBNpDu2jfUwkEhXkD4Q0GR8AG5OMAjfoxL7707LOf/vo3vvHMw4C0
|
||||
Hl46SXBJUC7lW4ep1+u01/Eddf5DnHbt+l+y/O2g1OTvFwAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
@@ -717,31 +741,6 @@
|
||||
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
|
||||
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
|
||||
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="bt_filesave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
R0lGODlhEAAQAIQAAJXD9Iasxm6MqnSn2lZtjVaRyEpXbYu767TX/2KZztvr/4Gy5KrT/3ut32+gzlFh
|
||||
e+r0/0RNX9/u/9Ln+8Xg//n8/4e36CkxQz9GVkSCvKjL35/N/Je91K7T5bDS4////yH/C05FVFNDQVBF
|
||||
Mi4wAwEBAAAh+QQAAAAAACwAAAAAEAAQAAAIuQA/CBxIsKDACRwScggQwIGAhwIICBDYQcEEgwg+bNjw
|
||||
QKCHCQgkQBgpQcKBCg0AEBCoAaRIkhIsVBigUiAHCgwkKNjJU8GAAx0/3NwIAMABCwsaDHCwIGgAChuK
|
||||
HjiQdMDSAQYEPpWKtKqDBA6yfgiAwGhXpUsTJIgg0AGCo0nRfi1QgO0HAQyQNpCrtkAGDAIFbKi69GsC
|
||||
un8FEohqdEFavxkyXAhMoPKDBwYMRIiAAcOFoAZDCwwIADs=
|
||||
</value>
|
||||
</data>
|
||||
<data name="bt_데이터관리.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIVSURBVDhPjVLJihpRFK1VFvmAXiSfkFV+Irt8Rpb5
|
||||
jGSXlfOMioIjiLgSxRERJ1QcUJxQcMSUitBJad/c8+gq2m4XeXCqXt2659zz7n0SEb1BLpf7GY/HFx6P
|
||||
5wnAHrF7uW8CkUjkIRAI/OX9zULM7/d/4O1Nvng8V5xwtSuDYrEYdbtdul6vdLlcqN1uixj+IQe5qiMh
|
||||
wOqP/NbWdDqlcDhMzWZTIBQKidjL9cyRpGg06mJQp9MRFYFSqUSJRIK8Xq8A9ojBjaIo1Gq1CByHw+GX
|
||||
uJLS7/epVqtRvV4XFVH99VIdVatVymazlE6nyWazKRLbk0+nE63XaxqNRjQej4nPR4PBQHOEfT6fp16v
|
||||
R8lkUqDRaJDVapWlYDAoBA6HA+33e5rNZsJupVLReoCqaCKImUxGAG4tFouMBgoBWZZpt9vRZrOhxWIh
|
||||
quJohUJBEGEZzuAEAihgNptliWf753w+0/F4pOVyKciTyYSGw6EYJZJBVJFKpYRYuVwmg8HwKPl8viQC
|
||||
8/lcHAMi6AUcQAD/0DQATlAZolyY9Hp9VuIxvePL8c3tdg+RtFqtaLvdimZCQG0aiOgN7gQTp4zvOp3u
|
||||
vXYlXS7Xg9Pp/MGz/V0sFoUIxNBAjJhvHyyfmPiLiR9Vniagwm63f+L5+nhETyDizOwO5DCTP7/Ov/l4
|
||||
Ce7wF5PJlDYajQUmf72XA9wN/j9I+gdcby0cbkUDWAAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
|
||||
@@ -111,6 +111,7 @@ Public Class MdiMain
|
||||
'bt_계산결과그래프q.Visible = True
|
||||
bt_인증평가서.Visible = True
|
||||
btImport.Visible = True
|
||||
btMacro.Visible = True
|
||||
Case "BOTH0" '//일반사용자
|
||||
bt_데이터관리.Visible = False
|
||||
bt_계산결과그래프.Visible = True
|
||||
@@ -2102,7 +2103,7 @@ ENDSTAT: '//오류발생시 강제종료를 위한 분기문
|
||||
|
||||
#Region "Show_Menu"
|
||||
|
||||
Private Sub Menu_건물개요()
|
||||
Public Sub Menu_건물개요()
|
||||
If Not Prj.Opened Then
|
||||
Work_msg_timer(CLang.열린파일없음)
|
||||
Return
|
||||
@@ -3222,7 +3223,7 @@ ENDSTAT: '//오류발생시 강제종료를 위한 분기문
|
||||
sd.FilterIndex = 0
|
||||
If sd.ShowDialog = Windows.Forms.DialogResult.OK Then
|
||||
|
||||
Dim f As New Frm_Upload(sd.FileName)
|
||||
Dim f As New Frm_Upload(sd.FileName, 10, "")
|
||||
f.ShowDialog()
|
||||
|
||||
If lbl_user.Text.ToLower = "[arin]" Then '//160327
|
||||
@@ -3534,136 +3535,39 @@ ENDSTAT: '//오류발생시 강제종료를 위한 분기문
|
||||
End Function
|
||||
|
||||
Private Sub 일괄계산ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 일괄계산ToolStripMenuItem.Click
|
||||
Dim f As New frm_Macro()
|
||||
Dim f As New frm_batch()
|
||||
If f.ShowDialog() = Windows.Forms.DialogResult.OK Then
|
||||
If MsgBox("run?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") <> MsgBoxResult.Ok Then Return '//ok 안하면 빠져나가기
|
||||
|
||||
Dim path As String = f.tbPath.Text
|
||||
Dim di As New System.IO.DirectoryInfo(path)
|
||||
Dim files() As System.IO.FileInfo
|
||||
|
||||
files = di.GetFiles("*.tpl", IO.SearchOption.TopDirectoryOnly)
|
||||
|
||||
files = di.GetFiles("*.tpl", IO.SearchOption.TopDirectoryOnly)
|
||||
|
||||
Dim savefile As String = System.IO.Path.Combine(path, "report.tab")
|
||||
Dim files2 As New SortedDictionary(Of String, System.IO.FileInfo)
|
||||
For Each fi As System.IO.FileInfo In files
|
||||
files2.Add(fi.Name, fi)
|
||||
Next
|
||||
|
||||
|
||||
prb1.Value = 0
|
||||
prb1.Maximum = files.Length
|
||||
Dim ermsg As New System.Text.StringBuilder
|
||||
Dim first As Boolean = True
|
||||
Dim report As New List(Of String())
|
||||
|
||||
Dim title1item As New List(Of String)
|
||||
title1item.AddRange(New String() {"파일명", "계산"})
|
||||
For i As Integer = 1 To 21
|
||||
title1item.Add("건축부문 평가항목")
|
||||
Next
|
||||
'//리포트파일 생성
|
||||
Dim reportorg As String = System.IO.Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "batchreport.xls")
|
||||
Dim reportfile As String = System.IO.Path.Combine(path, "batchreport.xls")
|
||||
System.IO.File.Copy(reportorg, reportfile, True)
|
||||
|
||||
For i As Integer = 1 To 16
|
||||
title1item.Add("기계부문 평가항목")
|
||||
Next
|
||||
Dim 입력면추출 As Boolean = f.chkMyoun.Checked
|
||||
|
||||
Dim writecol As Integer = 10
|
||||
For Each fitem As KeyValuePair(Of String, System.IO.FileInfo) In files2
|
||||
|
||||
For i As Integer = 1 To 7
|
||||
title1item.Add("신재생 및 열병합 부문 평가항목")
|
||||
Next
|
||||
|
||||
For i As Integer = 1 To 10
|
||||
title1item.Add("평가결과")
|
||||
Next
|
||||
report.Add(title1item.ToArray())
|
||||
|
||||
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
||||
Dim title2item As New List(Of String)
|
||||
title2item.AddRange(New String() {"--", "--", "벽체면적", "창및문면적", "창및문면적비"})
|
||||
For i As Integer = 1 To 9
|
||||
title2item.Add("창 열관류율")
|
||||
Next
|
||||
|
||||
For i As Integer = 1 To 9
|
||||
title2item.Add("일사에너지투과율")
|
||||
Next
|
||||
|
||||
|
||||
For i As Integer = 1 To 7
|
||||
title2item.Add("온열원설비")
|
||||
Next
|
||||
|
||||
For i As Integer = 1 To 6
|
||||
title2item.Add("냉열원설비")
|
||||
Next
|
||||
|
||||
For i As Integer = 1 To 3
|
||||
title2item.Add("급탕설비")
|
||||
Next
|
||||
For i As Integer = 1 To 7
|
||||
title2item.Add("태양광")
|
||||
Next
|
||||
For i As Integer = 1 To 5
|
||||
title2item.Add("에너지생산량")
|
||||
Next
|
||||
For i As Integer = 1 To 5
|
||||
title2item.Add("1차에너지생산량")
|
||||
Next
|
||||
report.Add(title2item.ToArray())
|
||||
|
||||
Dim title3item As New List(Of String)
|
||||
title3item.AddRange(New String() {"--", "--", "--", "--", "--"})
|
||||
title3item.Add("평균")
|
||||
title3item.Add("남")
|
||||
title3item.Add("남동")
|
||||
title3item.Add("동")
|
||||
title3item.Add("북동")
|
||||
title3item.Add("북")
|
||||
title3item.Add("북서")
|
||||
title3item.Add("서")
|
||||
title3item.Add("남서")
|
||||
title3item.Add("평균")
|
||||
title3item.Add("남")
|
||||
title3item.Add("남동")
|
||||
title3item.Add("동")
|
||||
title3item.Add("북동")
|
||||
title3item.Add("북")
|
||||
title3item.Add("북서")
|
||||
title3item.Add("서")
|
||||
title3item.Add("남서")
|
||||
title3item.Add("보일러방식")
|
||||
title3item.Add("지역난방방식")
|
||||
title3item.Add("난방용량")
|
||||
title3item.Add("히트펌프난방COP(7도)")
|
||||
title3item.Add("히트펌프난방COP(-15도)")
|
||||
title3item.Add("실내외기의 최대배관길이")
|
||||
title3item.Add("시스템 종류")
|
||||
title3item.Add("압축식 냉동기 종류")
|
||||
title3item.Add("냉동기 압축방식")
|
||||
title3item.Add("왕복동/스크롤압축기 제어방식")
|
||||
title3item.Add("열생산연결방식")
|
||||
title3item.Add("냉동기 설비시스템")
|
||||
title3item.Add("제어방식")
|
||||
title3item.Add("축열탱크방식")
|
||||
title3item.Add("축열탱크 용량")
|
||||
title3item.Add("펌프 정격동력")
|
||||
title3item.Add("용량")
|
||||
title3item.Add("효율")
|
||||
title3item.Add("모듈면적")
|
||||
title3item.Add("모듈기울기")
|
||||
title3item.Add("모듈방위")
|
||||
title3item.Add("모듈종류")
|
||||
title3item.Add("모듈적용타입")
|
||||
title3item.Add("난방")
|
||||
title3item.Add("냉방")
|
||||
title3item.Add("급탕")
|
||||
title3item.Add("조명")
|
||||
title3item.Add("환기")
|
||||
title3item.Add("난방")
|
||||
title3item.Add("냉방")
|
||||
title3item.Add("급탕")
|
||||
title3item.Add("조명")
|
||||
title3item.Add("환기")
|
||||
report.Add(title3item.ToArray())
|
||||
|
||||
For Each fi As System.IO.FileInfo In files
|
||||
Dim fi As System.IO.FileInfo = fitem.Value
|
||||
writecol += 1
|
||||
If prb1.Value < prb1.Maximum Then prb1.Value += 1
|
||||
|
||||
Dim dataitem As New List(Of String)
|
||||
@@ -3676,14 +3580,14 @@ ENDSTAT: '//오류발생시 강제종료를 위한 분기문
|
||||
'//calc
|
||||
Dim ret As Boolean = False
|
||||
|
||||
Dim msg As String = String.Format("계산중({0}/{1})" + vbCrLf + "{2}" + vbCrLf, prb1.Value, prb1.Maximum, fi.Name)
|
||||
Dim msg As String = String.Format("계산중({0}/{1}) 열번호={3}" + vbCrLf + "{2}" + vbCrLf, prb1.Value, prb1.Maximum, fi.Name, writecol)
|
||||
If String.IsNullOrWhiteSpace(retopen) = False Then ret = func_calc(msg, True)
|
||||
|
||||
'//get message
|
||||
|
||||
|
||||
Dim xlsfile As String = fi.FullName.Replace(".tplx", ".xls").Replace(".tpl", ".xls")
|
||||
Dim fxls As New Frm_Upload(xlsfile, True)
|
||||
'//업로드 양식 데이터 생성
|
||||
Dim fxls As New Frm_Upload(reportfile, writecol, fi.Name, True)
|
||||
Dim drlt = fxls.ShowDialog()
|
||||
If drlt = DialogResult.OK Then
|
||||
ermsg.AppendLine("OK" + vbTab + fi.FullName)
|
||||
@@ -3693,254 +3597,77 @@ ENDSTAT: '//오류발생시 강제종료를 위한 분기문
|
||||
dataitem.Add("NG")
|
||||
End If
|
||||
|
||||
'If lbl_user.Text.ToLower = "[arin]" Then '//160327
|
||||
' Shell("explorer " + Chr(&H22) + sd.FileName + Chr(&H22), AppWinStyle.NormalFocus)
|
||||
'End If
|
||||
'//입력면 추출
|
||||
If 입력면추출 Then
|
||||
|
||||
'//벽체면적
|
||||
'//엑셀내보내기기능 추가
|
||||
Dim content As New System.Text.StringBuilder()
|
||||
Dim newfile As String = fi.Directory.FullName + "\" + System.IO.Path.GetFileNameWithoutExtension(fi.FullName) + "_입력면.tab"
|
||||
For Each drz As DS.tbl_zoneRow In DSET1.tbl_zone.Rows
|
||||
If drz.code = "0" Then Continue For
|
||||
content.Append(drz.설명)
|
||||
For Each drm As DS.tbl_myounRow In DSET1.tbl_myoun.Select("존분류='" + drz.code + "'")
|
||||
If drm.code = "0" Then Continue For
|
||||
'입력존1, 입력면1_1, 건축부위방식1_1, 면적1_1,
|
||||
'열관류율1_1, 방위1_1, 입력면1_2, 건축부위방식1_2, 면적1_2, 열관류율1_2, 방위1_2, 입력면1_3, 건축부위방식1_3, 면적1_3, 열관류율1_3, 방위1_3
|
||||
|
||||
Dim WallArea As Decimal = 0
|
||||
Dim WindowArea As Decimal = 0
|
||||
Dim 열관류율합 As Double
|
||||
Dim 존수 As Integer = 0
|
||||
Dim 비연결 As Integer = 0
|
||||
Dim 비연결존 As String = ""
|
||||
Dim 방위목록() As String = New String() {"수평", "남", "남동", "동", "북동", "북", "북서", "서", "남서"}
|
||||
For Each 방위 As String In 방위목록
|
||||
Dim filter As String = "code <> '0' and (건축부위방식='외벽' or 건축부위방식 ='외부창' or 건축부위방식='내벽' or 건축부위방식 ='내부창')"
|
||||
If 방위 <> "" Then filter += " and 방위='" + 방위 + "'"
|
||||
Dim 면데이터() As DS.tbl_myounRow = DSET1.tbl_myoun.Select(filter)
|
||||
Dim 열관없는갯수 As Integer = 0
|
||||
Try
|
||||
For Each Dr입력면 As DS.tbl_myounRow In 면데이터
|
||||
Dim 열관 As Single = 0
|
||||
|
||||
If Dr입력면.열관류율2 = "0" OrElse Dr입력면.열관류율2 = "" Then
|
||||
열관없는갯수 += 1
|
||||
End If
|
||||
|
||||
Dim Dryk1 As DS.tbl_ykRow = Nothing
|
||||
If Dr입력면.열관류율2 <> "0" Then '
|
||||
Dryk1 = DSET1.tbl_yk.Select("code='" & Dr입력면.열관류율2 & "'")(0)
|
||||
열관 = TOSG(Dryk1("열관류율").ToString)
|
||||
Else '//선택안된경우
|
||||
열관 = TOSG(Dr입력면.열관류율)
|
||||
End If
|
||||
|
||||
Dim 존코드 As String = Dr입력면.존분류
|
||||
Dim dr존() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code='" + 존코드 + "'")
|
||||
If dr존.GetUpperBound(0) = -1 Then
|
||||
존수 = 1
|
||||
Else
|
||||
If IsNumeric(dr존(0).입력존의수) Then
|
||||
존수 = CInt(dr존(0).입력존의수)
|
||||
Else
|
||||
존수 = 1
|
||||
Dim 열관류율 As String = drm.열관류율
|
||||
If drm.열관류율2 <> "" AndAlso drm.열관류율2 <> "0" Then
|
||||
Dim ykrows() As DS.tbl_ykRow = DSET1.tbl_yk.Select("code='" + drm.열관류율2 + "'")
|
||||
If ykrows.Length = 1 Then
|
||||
열관류율 = ykrows(0).열관류율
|
||||
End If
|
||||
End If
|
||||
|
||||
Select Case Dr입력면.건축부위방식
|
||||
Case "외벽"
|
||||
열관류율합 += 열관 * 1 * TOSG(Dr입력면.건축부위면적) * 존수
|
||||
Case "내벽"
|
||||
열관류율합 += 열관 * 0.7 * TOSG(Dr입력면.건축부위면적) * 존수
|
||||
Case "외부창"
|
||||
열관류율합 += 열관 * 1 * TOSG(Dr입력면.건축부위면적) * 존수
|
||||
Case "내부창"
|
||||
열관류율합 += 열관 * 0.8 * TOSG(Dr입력면.건축부위면적) * 존수
|
||||
End Select
|
||||
|
||||
'// Debug.WriteLine(Dr입력면.열관류율2 + "/" + Dr입력면.code + "/" + 열관.ToString() + "/" + Dr입력면.설명 + "/" + Dr입력면.건축부위면적.ToCharArray() + "/" + 존수.ToString() + "/" + 열관류율합.ToString(), True)
|
||||
|
||||
If Dryk1 Is Nothing Then
|
||||
비연결 += 1
|
||||
|
||||
'//사용한 존
|
||||
If dr존 Is Nothing Then
|
||||
Else
|
||||
비연결존 = dr존(0).설명 + "의 " + Dr입력면.설명
|
||||
End If
|
||||
|
||||
|
||||
'//열관류 선택안된경우
|
||||
Select Case Dr입력면.건축부위방식
|
||||
Case "외벽"
|
||||
If Dr입력면.방위 <> "수평" AndAlso Dr입력면.방위 <> "일사없음" AndAlso Dr입력면.방위 <> "(없음)" Then
|
||||
WallArea = WallArea + TOSG(Dr입력면.건축부위면적) * 존수
|
||||
End If
|
||||
Case "내벽" '
|
||||
WallArea = WallArea + TOSG(Dr입력면.건축부위면적) * 존수
|
||||
Case "외부창"
|
||||
If Dr입력면.방위 <> "수평" AndAlso Dr입력면.방위 <> "일사없음" AndAlso Dr입력면.방위 <> "(없음)" Then
|
||||
WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) * 존수
|
||||
End If
|
||||
Case "내부창"
|
||||
WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) * 존수
|
||||
End Select
|
||||
|
||||
Else
|
||||
|
||||
Dim 면형태이름 As String = Get_CName("1088", Dryk1.면형태)
|
||||
Select Case 면형태이름
|
||||
Case "외벽(벽체)"
|
||||
WallArea = WallArea + TOSG(Dr입력면.건축부위면적) * 존수
|
||||
Case "내벽(벽체)"
|
||||
WallArea = WallArea + TOSG(Dr입력면.건축부위면적) * 존수
|
||||
Case "외부창"
|
||||
If Dr입력면.방위 <> "수평" AndAlso Dr입력면.방위 <> "일사없음" AndAlso Dr입력면.방위 <> "(없음)" Then
|
||||
WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) * 존수
|
||||
End If
|
||||
Case "내부창"
|
||||
WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) * 존수
|
||||
End Select
|
||||
End If
|
||||
|
||||
'Debug.WriteLine(Dr입력면.code + ":wall=" + WallArea.ToString() + ",win=" + WindowArea.ToString())
|
||||
content.Append(vbTab + drm.설명 + vbTab + drm.건축부위방식 + vbTab + _
|
||||
drm.건축부위면적 + vbTab + _
|
||||
열관류율 + vbTab + drm.방위)
|
||||
Next
|
||||
'For Each Dr입력면 As DS.tbl_myounRow In DSET1.tbl_myoun.Select("건축부위방식='외부창'")
|
||||
' WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) * 존수
|
||||
'Next
|
||||
Catch ex As Exception
|
||||
content.AppendLine()
|
||||
Next
|
||||
|
||||
End Try
|
||||
Next
|
||||
System.IO.File.WriteAllText(newfile, content.ToString(), System.Text.Encoding.Default)
|
||||
|
||||
dataitem.Add(WallArea.ToString())
|
||||
dataitem.Add(WindowArea.ToString())
|
||||
|
||||
Dim 창및문면적비 As Decimal
|
||||
Try
|
||||
창및문면적비 = WindowArea / (WallArea + WindowArea) * 100
|
||||
Catch ex As Exception
|
||||
창및문면적비 = 0 '//게삭과정에 오류가낫다면 0처리합니다.
|
||||
End Try
|
||||
If WallArea + WindowArea = 0 Then
|
||||
dataitem.Add("0 %")
|
||||
Else
|
||||
dataitem.Add(창및문면적비.ToString("N1") & " %") '//N1은 소수점 1자리 N0ㄴ소수점 없음 N다음에 숫자가 소수점 자릿수에요
|
||||
End If
|
||||
|
||||
'//창 열관류율 평균 W/㎡•K 면적가중평균
|
||||
Dim 외벽열관류율_평균 As Decimal
|
||||
Dim 외벽열관류율_남 As Decimal
|
||||
Dim 외벽열관류율_남동 As Decimal
|
||||
Dim 외벽열관류율_동 As Decimal
|
||||
Dim 외벽열관류율_북동 As Decimal
|
||||
Dim 외벽열관류율_북 As Decimal
|
||||
Dim 외벽열관류율_북서 As Decimal
|
||||
Dim 외벽열관류율_서 As Decimal
|
||||
Dim 외벽열관류율_남서 As Decimal
|
||||
|
||||
Dim 창열관류율_평균 As Decimal
|
||||
Dim 창열관류율_남 As Decimal
|
||||
Dim 창열관류율_남동 As Decimal
|
||||
Dim 창열관류율_동 As Decimal
|
||||
Dim 창열관류율_북동 As Decimal
|
||||
Dim 창열관류율_북 As Decimal
|
||||
Dim 창열관류율_북서 As Decimal
|
||||
Dim 창열관류율_서 As Decimal
|
||||
Dim 창열관류율_남서 As Decimal
|
||||
|
||||
Dim 일사에너지투과율_평균 As Decimal
|
||||
Dim 일사에너지투과율_남 As Decimal
|
||||
Dim 일사에너지투과율_남동 As Decimal
|
||||
Dim 일사에너지투과율_동 As Decimal
|
||||
Dim 일사에너지투과율_북동 As Decimal
|
||||
Dim 일사에너지투과율_북 As Decimal
|
||||
Dim 일사에너지투과율_북서 As Decimal
|
||||
Dim 일사에너지투과율_서 As Decimal
|
||||
Dim 일사에너지투과율_남서 As Decimal
|
||||
|
||||
Dim DsReport As New DSR
|
||||
Pub.항목별평가결과(DsReport)
|
||||
Dim drYK As DSR.Pyonga_YKRow = DsReport.Pyonga_YK.Rows(0)
|
||||
|
||||
calc_창및문면적비(창및문면적비, 외벽열관류율_평균, 창열관류율_평균, 일사에너지투과율_평균)
|
||||
calc_창및문면적비(창및문면적비, 외벽열관류율_남, 창열관류율_남, 일사에너지투과율_남, "남")
|
||||
calc_창및문면적비(창및문면적비, 외벽열관류율_남동, 창열관류율_남동, 일사에너지투과율_남동, "남동")
|
||||
calc_창및문면적비(창및문면적비, 외벽열관류율_동, 창열관류율_동, 일사에너지투과율_동, "동")
|
||||
calc_창및문면적비(창및문면적비, 외벽열관류율_북동, 창열관류율_북동, 일사에너지투과율_북동, "북동")
|
||||
calc_창및문면적비(창및문면적비, 외벽열관류율_북, 창열관류율_북, 일사에너지투과율_북, "북")
|
||||
calc_창및문면적비(창및문면적비, 외벽열관류율_북서, 창열관류율_북서, 일사에너지투과율_북서, "북서")
|
||||
calc_창및문면적비(창및문면적비, 외벽열관류율_서, 창열관류율_서, 일사에너지투과율_서, "서")
|
||||
calc_창및문면적비(창및문면적비, 외벽열관류율_남서, 창열관류율_남서, 일사에너지투과율_남서, "남서")
|
||||
|
||||
|
||||
dataitem.Add(창열관류율_평균.ToString("N3"))
|
||||
dataitem.Add(창열관류율_남.ToString("N3"))
|
||||
dataitem.Add(창열관류율_남동.ToString("N3"))
|
||||
dataitem.Add(창열관류율_동.ToString("N3"))
|
||||
dataitem.Add(창열관류율_북동.ToString("N3"))
|
||||
dataitem.Add(창열관류율_북.ToString("N3"))
|
||||
dataitem.Add(창열관류율_북서.ToString("N3"))
|
||||
dataitem.Add(창열관류율_서.ToString("N3"))
|
||||
dataitem.Add(창열관류율_남서.ToString("N3"))
|
||||
|
||||
|
||||
dataitem.Add(일사에너지투과율_평균.ToString("N3"))
|
||||
dataitem.Add(일사에너지투과율_남.ToString("N3"))
|
||||
dataitem.Add(일사에너지투과율_남동.ToString("N3"))
|
||||
dataitem.Add(일사에너지투과율_동.ToString("N3"))
|
||||
dataitem.Add(일사에너지투과율_북동.ToString("N3"))
|
||||
dataitem.Add(일사에너지투과율_북.ToString("N3"))
|
||||
dataitem.Add(일사에너지투과율_북서.ToString("N3"))
|
||||
dataitem.Add(일사에너지투과율_서.ToString("N3"))
|
||||
dataitem.Add(일사에너지투과율_남서.ToString("N3"))
|
||||
|
||||
report.Add(dataitem.ToArray())
|
||||
'report.Add(dataitem.ToArray())
|
||||
|
||||
|
||||
'//save to csv
|
||||
'//엑셀내보내기기능 추가
|
||||
'Dim content As String = fi.Name
|
||||
'If String.IsNullOrWhiteSpace(retopen) = True Then
|
||||
' content += vbTab + "open fail"
|
||||
'ElseIf ret = False Then
|
||||
' content += vbTab + "fail"
|
||||
'Else
|
||||
' content += vbTab + Makemacrostring()
|
||||
'End If
|
||||
'content += vbCrLf
|
||||
|
||||
'If first = False Then
|
||||
' System.IO.File.AppendAllText(savefile, content, System.Text.Encoding.Default)
|
||||
'Else
|
||||
' System.IO.File.WriteAllText(savefile, "파일" + vbTab + "오류" + vbTab + "구분" + vbTab + "신재생" + vbTab + "난방" + vbTab + "냉방" + vbTab + "급탕" + vbTab + "조명" + vbTab + "환기" + vbTab + "합계" + vbCrLf, System.Text.Encoding.Default)
|
||||
' System.IO.File.AppendAllText(savefile, content, System.Text.Encoding.Default)
|
||||
' first = False
|
||||
'End If
|
||||
|
||||
Application.DoEvents()
|
||||
'Application.DoEvents()
|
||||
|
||||
Next
|
||||
|
||||
closemessagewindow()
|
||||
|
||||
Dim reportbuffer As New System.Text.StringBuilder
|
||||
'Dim reportbuffer As New System.Text.StringBuilder
|
||||
|
||||
Dim maxlin As Integer = 0
|
||||
For Each item() As String In report
|
||||
'reportbuffer.Append(vbTab)
|
||||
'reportbuffer.Append(item(0)) '//filename
|
||||
If item.Length > maxlin Then
|
||||
maxlin = item.Length
|
||||
End If
|
||||
Next
|
||||
'Dim maxlin As Integer = 0
|
||||
'For Each item() As String In report
|
||||
' 'reportbuffer.Append(vbTab)
|
||||
' 'reportbuffer.Append(item(0)) '//filename
|
||||
' If item.Length > maxlin Then
|
||||
' maxlin = item.Length
|
||||
' End If
|
||||
'Next
|
||||
|
||||
For r As Integer = 0 To maxlin - 1
|
||||
For Each item() As String In report
|
||||
reportbuffer.Append(vbTab)
|
||||
'For r As Integer = 0 To maxlin - 1
|
||||
' For Each item() As String In report
|
||||
' reportbuffer.Append(vbTab)
|
||||
|
||||
If r < item.Length Then
|
||||
reportbuffer.Append(item(r)) '//filename
|
||||
Else
|
||||
reportbuffer.Append("")
|
||||
' If r < item.Length Then
|
||||
' reportbuffer.Append(item(r)) '//filename
|
||||
' Else
|
||||
' reportbuffer.Append("")
|
||||
|
||||
End If
|
||||
' End If
|
||||
|
||||
Next
|
||||
reportbuffer.AppendLine()
|
||||
Next
|
||||
' Next
|
||||
' reportbuffer.AppendLine()
|
||||
'Next
|
||||
|
||||
'//save to csv
|
||||
'//엑셀내보내기기능 추가
|
||||
@@ -3964,8 +3691,8 @@ ENDSTAT: '//오류발생시 강제종료를 위한 분기문
|
||||
|
||||
|
||||
|
||||
Dim rptfile As String = System.IO.Path.Combine(path, "report.tab")
|
||||
System.IO.File.WriteAllText(rptfile, reportbuffer.ToString(), System.Text.Encoding.Default)
|
||||
'Dim rptfile As String = System.IO.Path.Combine(path, "report.tab")
|
||||
'System.IO.File.WriteAllText(rptfile, reportbuffer.ToString(), System.Text.Encoding.Default)
|
||||
|
||||
|
||||
Dim logfile As String = System.IO.Path.Combine(path, "log.txt")
|
||||
@@ -3975,4 +3702,10 @@ ENDSTAT: '//오류발생시 강제종료를 위한 분기문
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btMacro_Click(sender As System.Object, e As System.EventArgs) Handles btMacro.Click
|
||||
Menu_건물개요()
|
||||
Dim f As New Frm_Macro
|
||||
f.Show()
|
||||
End Sub
|
||||
End Class
|
||||
@@ -897,7 +897,8 @@
|
||||
Case "외부창"
|
||||
열관류율합 += 열관 * 1 * TOSG(Dr입력면.건축부위면적) * 존수
|
||||
창열관류율합 += 열관 * 1 * TOSG(Dr입력면.건축부위면적) * 존수
|
||||
투과율합 += Dr입력면.투과율 * TOSG(Dr입력면.건축부위면적) * 존수
|
||||
'투과율합 += Dr입력면.투과율 * TOSG(Dr입력면.건축부위면적) * 존수
|
||||
투과율합 += TOSG(Dryk(0).일사에너지투과율) * TOSG(Dr입력면.건축부위면적) * 존수
|
||||
Case "내부창"
|
||||
열관류율합 += 열관 * 0.8 * TOSG(Dr입력면.건축부위면적) * 존수
|
||||
창열관류율합 += 열관 * 0.8 * TOSG(Dr입력면.건축부위면적) * 존수
|
||||
|
||||
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
||||
' 지정되도록 할 수 있습니다.
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.2017.0122.1004")>
|
||||
<Assembly: AssemblyFileVersion("1.2017.0122.1004")>
|
||||
<Assembly: AssemblyVersion("1.2017.0122.1006")>
|
||||
<Assembly: AssemblyFileVersion("1.2017.0122.1006")>
|
||||
|
||||
1
ArinWarev1/My Project/licenses.licx.bak
Normal file
1
ArinWarev1/My Project/licenses.licx.bak
Normal file
@@ -0,0 +1 @@
|
||||
FarPoint.Win.Spread.FpSpread, FarPoint.Win.Spread, Version=3.0.2007.2005, Culture=neutral, PublicKeyToken=327c3516b1b18457
|
||||
Reference in New Issue
Block a user