From a07b0678de043242eaf34e2bc51a4cdb1bce5a2b Mon Sep 17 00:00:00 2001 From: chi Date: Wed, 5 Oct 2022 13:09:18 +0900 Subject: [PATCH] =?UTF-8?q?user=20=20id=20DB=EB=A1=9C=EA=B7=B8=EC=9D=B8=20?= =?UTF-8?q?=EC=95=88=EB=90=98=EA=B2=8C=20=EC=88=98=EC=A0=95=20=EB=94=94?= =?UTF-8?q?=EB=B2=84=EA=B9=85=EC=9D=B4=EC=95=88=EB=90=98=EB=8A=94=20?= =?UTF-8?q?=ED=98=84=EC=83=81=20=EC=9E=88=EC=9D=8C?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- ArinWareT4.sln | 28 + ArinWarev1/Calculator/CAirHandling.vb | 155 +- ArinWarev1/Calculator/CCooling.vb | 45 + ArinWarev1/Calculator/CHeating.vb | 109 +- ArinWarev1/Calculator/CRenewable.vb | 228 + ArinWarev1/Calculator/CSummary.vb | 22 + ArinWarev1/Calculator/CZone.vb | 126 +- ArinWarev1/Calculator/Calculator.vb | 15 +- ArinWarev1/Calculator/Result/C1차소요량.vb | 24 +- ArinWarev1/Calculator/Result/CCo2발생량.vb | 26 +- ArinWarev1/Calculator/Result/C생산에너지.vb | 115 + ArinWarev1/Calculator/Result/C에너지소요량.vb | 10 +- ArinWarev1/DataSet/DS.Designer.vb | 3686 ++++++++++- ArinWarev1/DataSet/DS.xsd | 412 +- ArinWarev1/DataSet/DS.xss | 51 +- ArinWarev1/DataSet/DSR.Designer.vb | 165 +- ArinWarev1/DataSet/DSR.xsd | 4 + ArinWarev1/DataSet/DSR.xss | 24 +- ArinWarev1/ECO2_2020.vbproj | 11 + ArinWarev1/Forms_Basic/Frm_Intro.vb | 2 +- .../Frm_RepResult_Admin.Designer.vb | 146 +- .../Forms_Basic/Frm_RepResult_Admin.resx | 66 +- ArinWarev1/Forms_Input/Frm_New.Designer.vb | 2389 +++++--- ArinWarev1/Forms_Input/Frm_New.resx | 156 +- ArinWarev1/Forms_Input/Frm_New.vb | 55 +- ArinWarev1/Forms_Input/Frm_kongjo.Designer.vb | 582 +- ArinWarev1/Forms_Input/Frm_kongjo.resx | 80 +- ArinWarev1/Forms_Input/Frm_kongjo.vb | 23 + .../Frm_v20091231_Weather.Designer.vb | 5389 ++++++++++------- .../Forms_Input/Frm_v20091231_Weather.resx | 1040 +++- .../Forms_Input/Frm_v20091231_Weather.vb | 350 +- .../Forms_Input/Frm_v20091231_profile.vb | 6 + ArinWarev1/Forms_Report/Frm_Upload.vb | 4 +- ArinWarev1/Forms_Report/Report_pyonga.vb | 4 +- ArinWarev1/Forms_Report/Report_그래프.vb | 10 +- ArinWarev1/MdiMain.Designer.vb | 72 +- ArinWarev1/MdiMain.resx | 548 +- ArinWarev1/MdiMain.vb | 549 +- ArinWarev1/Module/Pub.vb | 99 + ArinWarev1/My Project/AssemblyInfo.vb | 4 +- ArinWarev1/My Project/Settings.Designer.vb | 6 +- ArinWarev1/My Project/Settings.settings | 4 +- ArinWarev1/My Project/licenses.licx | 1 + ArinWarev1/app.config | 5 +- Dotfuscator1_v2010.xml | 10 +- SetupIS/SetupIS.isl | 14 +- 46 files changed, 12484 insertions(+), 4386 deletions(-) diff --git a/ArinWareT4.sln b/ArinWareT4.sln index 3d1b03b..3eebf10 100644 --- a/ArinWareT4.sln +++ b/ArinWareT4.sln @@ -15,6 +15,8 @@ Project("{6141683F-8A12-4E36-9623-2EB02B2C2303}") = "SetupIS", "SetupIS\SetupIS. 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 Global GlobalSection(SolutionConfigurationPlatforms) = preSolution CD_ROM|Any CPU = CD_ROM|Any CPU @@ -185,6 +187,31 @@ Global {E9E16A98-8F8D-4848-A27E-4571C184FB1A}.SingleImage|Mixed Platforms.ActiveCfg = Release|Any CPU {E9E16A98-8F8D-4848-A27E-4571C184FB1A}.SingleImage|Mixed Platforms.Build.0 = Release|Any CPU {E9E16A98-8F8D-4848-A27E-4571C184FB1A}.SingleImage|x86.ActiveCfg = Release|Any CPU + {B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}.CD_ROM|Any CPU.ActiveCfg = Release|Any CPU + {B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}.CD_ROM|Any CPU.Build.0 = Release|Any CPU + {B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}.CD_ROM|Mixed Platforms.ActiveCfg = Release|Any CPU + {B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}.CD_ROM|Mixed Platforms.Build.0 = Release|Any CPU + {B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}.CD_ROM|x86.ActiveCfg = Release|Any CPU + {B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}.Debug|Any CPU.Build.0 = Debug|Any CPU + {B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU + {B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU + {B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}.Debug|x86.ActiveCfg = Debug|Any CPU + {B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}.DVD-5|Any CPU.ActiveCfg = Debug|Any CPU + {B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}.DVD-5|Any CPU.Build.0 = Debug|Any CPU + {B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}.DVD-5|Mixed Platforms.ActiveCfg = Debug|Any CPU + {B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}.DVD-5|Mixed Platforms.Build.0 = Debug|Any CPU + {B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}.DVD-5|x86.ActiveCfg = Debug|Any CPU + {B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}.Release|Any CPU.ActiveCfg = Release|Any CPU + {B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}.Release|Any CPU.Build.0 = Release|Any CPU + {B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU + {B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}.Release|Mixed Platforms.Build.0 = Release|Any CPU + {B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}.Release|x86.ActiveCfg = Release|Any CPU + {B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}.SingleImage|Any CPU.ActiveCfg = Release|Any CPU + {B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}.SingleImage|Any CPU.Build.0 = Release|Any CPU + {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 EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE @@ -194,5 +221,6 @@ Global {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14} = {4D184935-DE50-4DBA-9EBF-8C66C579B7DC} {8B6E4D7F-B484-471A-A419-2FE3451D26A3} = {4D184935-DE50-4DBA-9EBF-8C66C579B7DC} {E9E16A98-8F8D-4848-A27E-4571C184FB1A} = {4D184935-DE50-4DBA-9EBF-8C66C579B7DC} + {B1FDE30A-B142-42D5-A6B8-5428D2F2E62A} = {4D184935-DE50-4DBA-9EBF-8C66C579B7DC} EndGlobalSection EndGlobal diff --git a/ArinWarev1/Calculator/CAirHandling.vb b/ArinWarev1/Calculator/CAirHandling.vb index 9fce4d2..cf36376 100644 --- a/ArinWarev1/Calculator/CAirHandling.vb +++ b/ArinWarev1/Calculator/CAirHandling.vb @@ -194,9 +194,9 @@ End Sub - Public Overridable Sub Calc_AirHandling(ByVal i_count_month As Integer, ByVal theta_e As Decimal, Optional p_난방온도 As Decimal = 20, Optional p_냉방온도 As Decimal = 26) ' ByVal d_mth As Integer, + Public Overridable Sub Calc_AirHandling(ByVal i_count_month As Integer, ByVal i_d_full_month As Decimal, ByVal theta_e As Decimal, Optional p_난방온도 As Decimal = 20, Optional p_냉방온도 As Decimal = 26) ' ByVal d_mth As Integer, - pLog.Add(String.Format(">>Calc_AirHandling 진입 : i_count_month={0},theta_e={1},p_난방온도={2},p_냉방온도={3}", i_count_month, theta_e, p_난방온도, p_냉방온도)) + pLog.Add(String.Format(">>Calc_AirHandling 진입 : i_count_month={0},i_d_full_month={1},p_난방온도={2},p_냉방온도={3}", i_count_month, i_d_full_month, p_난방온도, p_냉방온도)) Dim A_B As Decimal Dim x_ABL_wi As Decimal, h_ABL_wi As Decimal, x_ABL_so As Decimal, h_ABL_so As Decimal, x_AUL_wi As Decimal, h_AUL_wi As Decimal, x_AUL_so As Decimal, h_AUL_so As Decimal @@ -219,6 +219,8 @@ Dim c_p_Lrho_L As Decimal, theta_ZUL_so As Decimal, p_S_theta_ZUL_so As Decimal, p_95_theta_ZUL_so As Decimal, x_95_ZUL_so As Decimal Dim h_95_ZUL_so As Decimal, i_count_air As Integer, i_count_start_time As Integer, i_count_end_time As Integer ', i_profile As Integer Dim P_D_j_theta_AUL_j As Decimal + Dim Delta_theta_AUL, V_dot_A_AHU As Decimal + ' 공조처리 theta_i_h_soll = p_난방온도 @@ -277,6 +279,33 @@ 'If Dr존.냉난방공조처리시스템 <> "" Then ' Worksheets("입력존").Range("입력난방공급기기1").Offset(2, i_count_zone - 1) <> "" Then 'If Worksheets("입력존").Range("입력난방공급기기1").Offset(2, i_count_zone - 1) = Worksheets("공조처리시스템").Range("공조기기1").Offset(0, i_count_AHU - 1) Then 'If Dr존.냉난방공조처리시스템 = Dr공조.code Then ' Worksheets("공조처리시스템").Range("공조기기1").Offset(0, i_count_AHU - 1) Then + + '/// 공기식 태양열 적용여부 확인 + Delta_theta_AUL = 0 + V_dot_A_AHU = 0 + If Dr공조.공기식태양열적용.Trim = "예" Then + + 'Dim ZoneListKongjo() As DS.tbl_zoneRow = DSET.tbl_zone.Select("code<>'0' and 냉난방공조처리시스템 = '" + Dr공조.code + "'", "code") + V_dot_A_AHU = Get_V_dot_A_AHU(DSET.tbl_profile, DSET.tbl_zone, Dr공조.code) + 'For Each DrZonbyKongjo As DS.tbl_zoneRow In ZoneListKongjo + + ' 'Dim Dr프로필2 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & DrZonbyKongjo.프로필 & "'")(0), DS.tbl_profileRow) + ' V_dot_A_AHU += Get_V_dot_A_AHU(DSET.tbl_profile, DSET.tbl_zone, Dr공조.code) ' TOSG(DrZonbyKongjo.면적) * TOSG(DrZonbyKongjo.입력존의수) * TOSG(Dr프로필2.최소도입외기량) + 'Next + + '공조기에 연결된 입력존면적*입력존수*최소외기도입량 의 합계 산출(V_dot_A_AHU) + '///////////// + '///////////// + '///////////// + '///////////// + '///////////// + '///////////// + '///////////// + Delta_theta_AUL = SolarAirHeatingSystem(DSET, i_count_month, i_d_full_month, Dr공조, V_dot_A_AHU, theta_e, Delta_theta_AUL) + End If + + + Q_vh_b = 0 Q_vc_b = 0 Q_vm_b = 0 @@ -324,7 +353,7 @@ End If - theta_AUL = theta_AUL / t_V_mech_m + theta_AUL = (theta_AUL / t_V_mech_m) + Delta_theta_AUL x_AUL = x_AUL / t_V_mech_m h_AUL = c_p_L * theta_AUL + x_AUL * (r_0 + c_p_L * theta_AUL) @@ -501,6 +530,7 @@ '냉방공조처리에너지(냉각,리턴공기혼합유무(리턴공기혼합율 계산, 열회수유무(현열 또는 전열, 열회수율 입력) Q_c_b = TOSG(Drow분석(0).냉방요구량공조) 'Sheets("" & i_count_month & "").Cells(11, 7 + i_count_zone) + theta_AUL = theta_AUL - Delta_theta_AUL Select Case Dr공조.공조방식.Trim 'Worksheets("공조처리시스템").Range("공조방식1").Offset(0, i_count_AHU - 1) Case "정풍량" '정풍량" If Dr공조.외기냉방제어유무 = "유" Then ' Worksheets("공조처리시스템").Range("공조방식1").Offset(6, i_count_AHU - 1) = "유" Then @@ -747,6 +777,7 @@ '==========================================================================2010.02.04 추가부분 시작 If Dr존.냉난방공조 = "환기" OrElse (Dr존.냉난방공조 = "난방" AndAlso Dr존.외기부하처리여부 = "예") Then '//환기 + Dim DR프로필() As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & Dr존.프로필.ToString & "' and code <> '0'"), DS.tbl_profileRow()) If DR프로필.GetUpperBound(0) = 0 Then t_V_mech_m = TOSG(DR프로필(0).운전시간난방) ' Worksheets("설정조건").Range("사용시작시간1").Offset(5, i_count_profile) @@ -774,9 +805,38 @@ End If Dim DR공조() As DS.tbl_kongjoRow = CType(DSET.tbl_kongjo.Select("code='" & Dr존.냉난방공조처리시스템 & "' and code <> '0'"), DS.tbl_kongjoRow()) + + If DR공조.GetUpperBound(0) = 0 Then '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------2010.05.26 추가 + + + '/// 공기식 태양열 적용여부 확인 + Delta_theta_AUL = 0 + V_dot_A_AHU = 0 + If DR공조(0).공기식태양열적용.Trim = "예" Then + + 'Dim ZoneListKongjo() As DS.tbl_zoneRow = DSET.tbl_zone.Select("code<>'0' and 냉난방공조처리시스템 = '" + Dr공조.code + "'", "code") + V_dot_A_AHU = Get_V_dot_A_AHU(DSET.tbl_profile, DSET.tbl_zone, DR공조(0).code) + 'For Each DrZonbyKongjo As DS.tbl_zoneRow In ZoneListKongjo + + ' 'Dim Dr프로필2 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & DrZonbyKongjo.프로필 & "'")(0), DS.tbl_profileRow) + ' V_dot_A_AHU += Get_V_dot_A_AHU(DSET.tbl_profile, DSET.tbl_zone, Dr공조.code) ' TOSG(DrZonbyKongjo.면적) * TOSG(DrZonbyKongjo.입력존의수) * TOSG(Dr프로필2.최소도입외기량) + 'Next + + '공조기에 연결된 입력존면적*입력존수*최소외기도입량 의 합계 산출(V_dot_A_AHU) + '///////////// + '///////////// + '///////////// + '///////////// + '///////////// + '///////////// + '///////////// + Delta_theta_AUL = SolarAirHeatingSystem(DSET, i_count_month, i_d_full_month, DR공조(0), V_dot_A_AHU, theta_e, Delta_theta_AUL) + End If + + If DR공조(0).열교환기유형.Trim = "현열교환" OrElse DR공조(0).열교환기유형.Trim = "전열교환" Then Phi_h = TOSG(DR공조(0).열회수율) 'Worksheets("공조처리시스템").Range("열교환기1").Offset(1, i_count_AHU - 1) Phi_c = TOSG(DR공조(0).열회수율냉) 'Worksheets("공조처리시스템").Range("열교환기1").Offset(2, i_count_AHU - 1) @@ -787,8 +847,14 @@ '// 여기 i_count_month 에 0 이 오지는 않나요? 예.. 1 부터 시작해요 '// If CSng(Drow분석(0).난방요구량공조) > 0 Then 'Sheets("" & i_count_month & "").Cells(8, 7 + i_count_zone) > 0 Then - If TOSG(Drow분석(0).난방요구량공조) > 0 Then - Drow분석(0).난방요구량공조 = (1 - Phi_h) * TOSG(Drow분석(0).난방요구량공조) + If TOSG(Drow분석(0).난방요구량공조) > 0 And theta_e <> 20 Then + Drow분석(0).난방요구량공조 = TOSG(Drow분석(0).난방요구량공조) * (20 - theta_e + Delta_theta_AUL) / (20 - theta_e) + If TOSG(Drow분석(0).난방요구량공조) < 0 Then + Drow분석(0).난방요구량공조 = 0 + Else + Drow분석(0).난방요구량공조 = (1 - Phi_h) * TOSG(Drow분석(0).난방요구량공조) + End If + End If If TOSG(Drow분석(0).냉방요구량공조) > 0 Then @@ -839,6 +905,85 @@ End Sub + 'Public Overridable Sub SolarAirHeatingSystem(ByVal i_count_month As Integer, ByVal i_count_d_mth As Integer, ByVal Dr공조 As DS.tbl_kongjoRow, ByVal V_dot_A_AHU As Decimal, ByVal T_amb As Decimal, ByVal Delta_T_act As Decimal) ' ByVal d_mth As Integer, + + ' pLog.Add(String.Format(">>SolarAirHeatingSystem 진입 : i_count_month={0}, i_count_d_mth={1}, Dr공조={2}, 외기도입량={3}, theta_e={4}, Delta_T_act={5}", i_count_month, i_count_d_mth, Dr공조.code, V_dot_A_AHU, T_amb, Delta_T_act)) + + ' Dim G_coll, G_tilt, A_coll As Decimal + ' Dim e_HX, h_c, v_wind, t, alpha, h_dot_r, eta As Decimal + ' Dim Q_dot_coll, Delta_T_avl, T_del_avl, T_del_act, T_del_max As Decimal + ' Dim rho As Decimal = 1.225 + ' Dim C_p As Decimal = 1005 '// [J/kg'C] + ' Dim Delta_T_offset As Decimal = 3 + ' Dim h_sunlight As Decimal = 24 + ' Dim sigma_s As Decimal = 0.000000056703 '스테판볼츠만 상수 + + + ' '// 사용자 입력항목 : 집열기 면적(A_coll), 단면적, 집열기 표면방사율(e) + ' '// Q_dot_coll 은 외기도입풍량을 집열기 면적으로 나눈 값 + ' '// h_sunlight 는 주간 운전시간 적용 + + ' Dim Drow풍속 As DS.weather_windRow = CType(DSET.weather_wind.Select("pcode='" & Calc.Pub.기상데이터.code & "'")(0), DS.weather_windRow) + ' v_wind = TOSG(Drow풍속("M" + i_count_month.ToString("00"))) + + ' Dim Dr일사 As DS.weather_ilsaRow + + ' Select Case Dr공조.집열기방위.Trim + ' Case "남" '"남" + ' Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 1, "0000") & "'")(0), DS.weather_ilsaRow) + ' G_tilt = TOSG(Dr일사("M" & Format(i_count_month, "00"))) * i_count_d_mth * 24 / 1000 + ' Case "남동" '"남동" + ' Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 2, "0000") & "'")(0), DS.weather_ilsaRow) + ' G_tilt = TOSG(Dr일사("M" & Format(i_count_month, "00"))) * i_count_d_mth * 24 / 1000 + ' Case "남서" '"남서" + ' Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 3, "0000") & "'")(0), DS.weather_ilsaRow) + ' G_tilt = TOSG(Dr일사("M" & Format(i_count_month, "00"))) * i_count_d_mth * 24 / 1000 + ' Case "동" '"동" + ' Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 4, "0000") & "'")(0), DS.weather_ilsaRow) + ' G_tilt = TOSG(Dr일사("M" & Format(i_count_month, "00"))) * i_count_d_mth * 24 / 1000 + ' Case "서" '"서" + ' Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 5, "0000") & "'")(0), DS.weather_ilsaRow) + ' G_tilt = TOSG(Dr일사("M" & Format(i_count_month, "00"))) * i_count_d_mth * 24 / 1000 + ' Case "북동" '"북동" + ' Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 6, "0000") & "'")(0), DS.weather_ilsaRow) + ' G_tilt = TOSG(Dr일사("M" & Format(i_count_month, "00"))) * i_count_d_mth * 24 / 1000 + ' Case "북서" '"북서" + ' Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 7, "0000") & "'")(0), DS.weather_ilsaRow) + ' G_tilt = TOSG(Dr일사("M" & Format(i_count_month, "00"))) * i_count_d_mth * 24 / 1000 + ' Case "북" '"북" + ' Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 8, "0000") & "'")(0), DS.weather_ilsaRow) + ' G_tilt = TOSG(Dr일사("M" & Format(i_count_month, "00"))) * i_count_d_mth * 24 / 1000 + + ' End Select + + + ' A_coll = TOSG(Dr공조.집열기면적) + ' alpha = TOSG(Dr공조.집열기방사율) + ' Q_dot_coll = V_dot_A_AHU / A_coll + ' G_coll = G_tilt * A_coll '// * f_op 집열기 가동계수는 G_tilt 에 포함 + + ' e_HX = 1 - 5 * Q_dot_coll + ' h_c = 6.0 + 4.0 * v_wind - 76 * Q_dot_coll + ' t = alpha * G_tilt / (rho * C_p * Q_dot_coll * e_HX + 4 * alpha * sigma_s * T_amb ^ 3 + h_c) ' e는 alpha 로 공유 + ' h_dot_r = 4 * alpha * sigma_s * T_amb ^ 2 * (T_amb + 1.6 * t) ' e는 alpha 로 공유 + ' eta = alpha / (1 + (h_dot_r + h_c) / (rho * C_p * Q_dot_coll * e_HX)) + + + ' Delta_T_avl = (eta * G_tilt) / (Q_dot_coll * rho * C_p * h_sunlight) + ' T_del_avl = (T_amb + Delta_T_offset) + Delta_T_avl + ' T_del_act = Math.Min(T_del_max, T_del_avl) + ' Delta_T_act = Math.Max(T_del_act - (T_amb + Delta_T_offset), 0) + + ' 'f_util = Delta_T_act / Delta_T_avl + + ' 'Q_sol = Sigma(eta * G_coll * f_util) + + + + 'End Sub + + + Private DSET As DS Private DSETR As DSR Private Result As CResult diff --git a/ArinWarev1/Calculator/CCooling.vb b/ArinWarev1/Calculator/CCooling.vb index 1ff8079..0172162 100644 --- a/ArinWarev1/Calculator/CCooling.vb +++ b/ArinWarev1/Calculator/CCooling.vb @@ -421,6 +421,7 @@ Select Case Dr신재생.기기종류.Trim Case "태양열" '//태양열 Case "태양광" '//태양광 + Case "풍력" '//풍력 Case "지열" '//지열 Select Case Dr신재생.가동연료.Trim Case "전기" '전기" @@ -441,6 +442,27 @@ use_LPG = use_LPG + Q_c_f_hp use_Elec = use_Elec + Q_c_g_hp_aux End Select + Case "수열" '//수열 + Select Case Dr신재생.가동연료.Trim + Case "전기" '전기" + CRenew.Calc_HydroHeatpumpSystem(system_type, i_HeatCool, Dr신재생, Q_c_outg_total, i_count_month, d_op_max_mth, t_h_max, theta_VA, theta_i, Q_hp_outg, Q_c_f_hp, Q_c_g_hp_aux) + Q_c_outg_total = Q_c_outg_total - Q_hp_outg + Q_c_f = Q_c_f + Q_c_f_hp + Q_c_g_hp_aux + use_Elec = use_Elec + Q_c_f_hp + Q_c_g_hp_aux + Case "천연가스" '천연가스" + CRenew.Calc_HydroHeatpumpSystem(system_type, i_HeatCool, Dr신재생, Q_c_outg_total, i_count_month, d_op_max_mth, t_h_max, theta_VA, theta_i, Q_hp_outg, Q_c_f_hp, Q_c_g_hp_aux) + Q_c_outg_total = Q_c_outg_total - Q_hp_outg + Q_c_f = Q_c_f + Q_c_f_hp + Q_c_g_hp_aux + use_LNG = use_LNG + Q_c_f_hp + use_Elec = use_Elec + Q_c_g_hp_aux + Case "액화가스" '액화가스" + CRenew.Calc_HydroHeatpumpSystem(system_type, i_HeatCool, Dr신재생, Q_c_outg_total, i_count_month, d_op_max_mth, t_h_max, theta_VA, theta_i, Q_hp_outg, Q_c_f_hp, Q_c_g_hp_aux) + Q_c_outg_total = Q_c_outg_total - Q_hp_outg + Q_c_f = Q_c_f + Q_c_f_hp + Q_c_g_hp_aux + use_LPG = use_LPG + Q_c_f_hp + use_Elec = use_Elec + Q_c_g_hp_aux + End Select + Case "풍력" '//풍력 Case "열병합" '//열병합 End Select End If @@ -758,6 +780,7 @@ End If '========================================================================================2010.04.02 추가 Case "태양광" '//태양광 + Case "풍력" '//풍력 Case "지열" '//지열 Case "열병합" '//열병합 If Q_c_outg_therm > 0 Then '===========================2010.04.02 And Q_c_outg_therm > 0 추가 @@ -1205,6 +1228,7 @@ Select Case Dr신재생.기기종류.Trim Case "태양열" '//태양열 Case "태양광" '//태양광 + Case "풍력" '//풍력 Case "지열" '//지열 Select Case Dr신재생.가동연료.Trim Case "전기" '전기" @@ -1225,6 +1249,26 @@ use_LPG = use_LPG + Q_c_f_hp use_Elec = use_Elec + Q_c_g_hp_aux End Select + Case "수열" '//수열 + Select Case Dr신재생.가동연료.Trim + Case "전기" '전기" + CRenew.Calc_HydroHeatpumpSystem(system_type, i_HeatCool, Dr신재생, Q_c_outg_total, i_count_month, d_op_max_mth, t_h_max, theta_VA, theta_i, Q_hp_outg, Q_c_f_hp, Q_c_g_hp_aux) + Q_c_outg_total = Q_c_outg_total - Q_hp_outg + Q_c_f = Q_c_f + Q_c_f_hp + Q_c_g_hp_aux + use_Elec = use_Elec + Q_c_f_hp + Q_c_g_hp_aux + Case "천연가스" '천연가스" + CRenew.Calc_HydroHeatpumpSystem(system_type, i_HeatCool, Dr신재생, Q_c_outg_total, i_count_month, d_op_max_mth, t_h_max, theta_VA, theta_i, Q_hp_outg, Q_c_f_hp, Q_c_g_hp_aux) + Q_c_outg_total = Q_c_outg_total - Q_hp_outg + Q_c_f = Q_c_f + Q_c_f_hp + Q_c_g_hp_aux + use_LNG = use_LNG + Q_c_f_hp + use_Elec = use_Elec + Q_c_g_hp_aux + Case "액화가스" '액화가스" + CRenew.Calc_HydroHeatpumpSystem(system_type, i_HeatCool, Dr신재생, Q_c_outg_total, i_count_month, d_op_max_mth, t_h_max, theta_VA, theta_i, Q_hp_outg, Q_c_f_hp, Q_c_g_hp_aux) + Q_c_outg_total = Q_c_outg_total - Q_hp_outg + Q_c_f = Q_c_f + Q_c_f_hp + Q_c_g_hp_aux + use_LPG = use_LPG + Q_c_f_hp + use_Elec = use_Elec + Q_c_g_hp_aux + End Select Case "열병합" '//열병합 End Select End If @@ -1540,6 +1584,7 @@ End If '========================================================================================2010.04.02 추가 Case "태양광" '//태양광 + Case "풍력" '//풍력 Case "지열" '//지열 Case "열병합" '//열병합 If Q_c_outg_therm > 0 Then '===========================2010.04.02 And Q_c_outg_therm > 0 추가 diff --git a/ArinWarev1/Calculator/CHeating.vb b/ArinWarev1/Calculator/CHeating.vb index 56bf72c..1adbeee 100644 --- a/ArinWarev1/Calculator/CHeating.vb +++ b/ArinWarev1/Calculator/CHeating.vb @@ -102,7 +102,8 @@ '태양광 시스템 Dim Calc_태양 As New CRenewable(DSET, Result) : Calc_태양.Calc_PhotovoltaicSystem_EN(i_count_month, d_mth) - + '풍력 시스템 + Dim Calc_풍력 As New CRenewable(DSET, Result) : Calc_풍력.Calc_WindPowerGenerationSystem(i_count_month, d_mth) Dim 급탕용량합 As Decimal = 0 For Each Dr난방 As DS.tbl_nanbangkikiRow In DSET.tbl_nanbangkiki.Select("code<>'0' and 헤더적용=true", "code") @@ -460,6 +461,31 @@ use_Elec = use_Elec + Q_w_g_hp_aux * system_count '===========2013.08.18 수정 Q_w_f = Q_w_f + (Q_w_f_hp + Q_w_g_hp_aux) * system_count '============================2010.04.17 추가, 2013.08.18 수정 End Select + Case "수열" '//수열 + Select Case dr신재생.가동연료.Trim + Case "전기" '전기" + CRenew.Calc_HydroHeatpumpSystem(system_type, 3, dr신재생, Q_w_outg_i, i_count_month, d_op_max_mth, t_h, theta_g_m, theta_i, Q_wp_outg, Q_w_f_hp, Q_w_g_hp_aux) '=============2010.04.01 수정 Q_h_outg 를 Q_h_outg_i 로 수정 + Q_w_outg = Q_w_outg - Q_wp_outg + Q_w_outg_i = Q_w_outg_i - Q_wp_outg + use_Elec = use_Elec + (Q_w_f_hp + Q_w_g_hp_aux) * system_count '===========2013.08.18 수정 + Q_w_f = Q_w_f + (Q_w_f_hp + Q_w_g_hp_aux) * system_count '============================2010.04.17 추가, 2013.08.18 수정 + Case "천연가스" '천연가스" + CRenew.Calc_HydroHeatpumpSystem(system_type, 3, dr신재생, Q_w_outg_i, i_count_month, d_op_max_mth, t_h, theta_g_m, theta_i, Q_wp_outg, Q_w_f_hp, Q_w_g_hp_aux) '=============2010.04.01 수정 Q_h_outg 를 Q_h_outg_i 로 수정 + Q_w_outg = Q_w_outg - Q_wp_outg + Q_w_outg_i = Q_w_outg_i - Q_wp_outg + use_LNG = use_LNG + Q_w_f_hp * system_count '===========2013.08.18 수정 + use_Elec = use_Elec + Q_w_g_hp_aux * system_count '===========2013.08.18 수정 + Q_w_f = Q_w_f + (Q_w_f_hp + Q_w_g_hp_aux) * system_count '============================2010.04.17 추가, 2013.08.18 수정 + '//요기맞죠 ^^? + Case "액화가스" '액화가스" + CRenew.Calc_HydroHeatpumpSystem(system_type, 3, dr신재생, Q_w_outg_i, i_count_month, d_op_max_mth, t_h, theta_g_m, theta_i, Q_wp_outg, Q_w_f_hp, Q_w_g_hp_aux) '=============2010.04.01 수정 Q_h_outg 를 Q_h_outg_i 로 수정 + Q_w_outg = Q_w_outg - Q_wp_outg + Q_w_outg_i = Q_w_outg_i - Q_wp_outg + use_LPG = use_LPG + Q_w_f_hp * system_count '===========2013.08.18 수정 + use_Elec = use_Elec + Q_w_g_hp_aux * system_count '===========2013.08.18 수정 + Q_w_f = Q_w_f + (Q_w_f_hp + Q_w_g_hp_aux) * system_count '============================2010.04.17 추가, 2013.08.18 수정 + End Select + Case Else '//160428 If MsgBox("알수없는 기기종류" + vbCrLf + dr신재생.기기종류 + vbCrLf + _ @@ -1038,9 +1064,30 @@ use_Elec = use_Elec + Q_w_g_hp_aux * system_count '===========2013.08.18 수정 Q_w_f = Q_w_f + (Q_w_f_hp + Q_w_g_hp_aux) * system_count '============================2010.04.17 추가, 2013.08.18 수정 End Select - - - + Case "수열" '//수열 + Select Case dr신재생.가동연료.Trim + Case "전기" '전기" + CRenew.Calc_HydroHeatpumpSystem(system_type, 3, dr신재생, Q_w_outg_i, i_count_month, d_op_max_mth, t_h, theta_g_m, theta_i, Q_wp_outg, Q_w_f_hp, Q_w_g_hp_aux) '=============2010.04.01 수정 Q_h_outg 를 Q_h_outg_i 로 수정 + Q_w_outg = Q_w_outg - Q_wp_outg + Q_w_outg_i = Q_w_outg_i - Q_wp_outg + use_Elec = use_Elec + (Q_w_f_hp + Q_w_g_hp_aux) * system_count '===========2013.08.18 수정 + Q_w_f = Q_w_f + (Q_w_f_hp + Q_w_g_hp_aux) * system_count '============================2010.04.17 추가, 2013.08.18 수정 + Case "천연가스" '천연가스" + CRenew.Calc_HydroHeatpumpSystem(system_type, 3, dr신재생, Q_w_outg_i, i_count_month, d_op_max_mth, t_h, theta_g_m, theta_i, Q_wp_outg, Q_w_f_hp, Q_w_g_hp_aux) '=============2010.04.01 수정 Q_h_outg 를 Q_h_outg_i 로 수정 + Q_w_outg = Q_w_outg - Q_wp_outg + Q_w_outg_i = Q_w_outg_i - Q_wp_outg + use_LNG = use_LNG + Q_w_f_hp * system_count '===========2013.08.18 수정 + use_Elec = use_Elec + Q_w_g_hp_aux * system_count '===========2013.08.18 수정 + Q_w_f = Q_w_f + (Q_w_f_hp + Q_w_g_hp_aux) * system_count '============================2010.04.17 추가, 2013.08.18 수정 + '//요기맞죠 ^^? + Case "액화가스" '액화가스" + CRenew.Calc_HydroHeatpumpSystem(system_type, 3, dr신재생, Q_w_outg_i, i_count_month, d_op_max_mth, t_h, theta_g_m, theta_i, Q_wp_outg, Q_w_f_hp, Q_w_g_hp_aux) '=============2010.04.01 수정 Q_h_outg 를 Q_h_outg_i 로 수정 + Q_w_outg = Q_w_outg - Q_wp_outg + Q_w_outg_i = Q_w_outg_i - Q_wp_outg + use_LPG = use_LPG + Q_w_f_hp * system_count '===========2013.08.18 수정 + use_Elec = use_Elec + Q_w_g_hp_aux * system_count '===========2013.08.18 수정 + Q_w_f = Q_w_f + (Q_w_f_hp + Q_w_g_hp_aux) * system_count '============================2010.04.17 추가, 2013.08.18 수정 + End Select End Select 'End If End If @@ -1731,6 +1778,8 @@ If DR존.열생산난방생산기기 = dr난방.code Then 판단1 = True If DR존.공조난방생산기기 = dr난방.code Then 판단2 = True + Q_h_ce_i = 0 '//20220525 수정 + '//다시 생각을... 'If Worksheets("입력존").Range("입력난방생산기기1").Offset(0, i_count_zone - 1) <> "" And Worksheets("입력존").Range("입력난방생산기기1").Offset(0, i_count_zone - 1) = Worksheets("난방기기").Range("난방생산기기1").Offset(0, i_count_boiler - 1) Then @@ -2286,6 +2335,31 @@ use_Elec = use_Elec + Q_h_g_hp_aux * system_count '=============2013.08.18 수정 Q_h_f = Q_h_f + (Q_h_f_hp + Q_h_g_hp_aux) * system_count '=============2013.08.18 수정 '============================2010.04.17 추가 End Select + Case "수열" '//수열 + Select Case Dr신재생.가동연료.Trim + Case "전기" '전기" + CRenew.Calc_HydroHeatpumpSystem(system_type, i_HeatCool, Dr신재생, Q_h_outg_i, i_count_month, d_op_max_mth, t_h, theta_VA, theta_i, Q_hp_outg, Q_h_f_hp, Q_h_g_hp_aux) '=============2010.04.01 수정 Q_h_outg 를 Q_h_outg_i 로 수정 + Q_h_outg = Q_h_outg - Q_hp_outg + Q_h_outg_i = Q_h_outg_i - Q_hp_outg + use_Elec = use_Elec + (Q_h_f_hp + Q_h_g_hp_aux) * system_count '=============2013.08.18 수정 + Q_h_f = Q_h_f + (Q_h_f_hp + Q_h_g_hp_aux) * system_count '=============2013.08.18 수정 '============================2010.04.17 추가 + Case "천연가스" '천연가스" + CRenew.Calc_HydroHeatpumpSystem(system_type, i_HeatCool, Dr신재생, Q_h_outg_i, i_count_month, d_op_max_mth, t_h, theta_VA, theta_i, Q_hp_outg, Q_h_f_hp, Q_h_g_hp_aux) '=============2010.04.01 수정 Q_h_outg 를 Q_h_outg_i 로 수정 + Q_h_outg = Q_h_outg - Q_hp_outg + Q_h_outg_i = Q_h_outg_i - Q_hp_outg + use_LNG = use_LNG + Q_h_f_hp * system_count '=============2013.08.18 수정 + use_Elec = use_Elec + Q_h_g_hp_aux * system_count '=============2013.08.18 수정 + Q_h_f = Q_h_f + (Q_h_f_hp + Q_h_g_hp_aux) * system_count '=============2013.08.18 수정 '============================2010.04.17 추가 + '//요기맞죠 ^^? + Case "액화가스" '액화가스" + CRenew.Calc_HydroHeatpumpSystem(system_type, i_HeatCool, Dr신재생, Q_h_outg_i, i_count_month, d_op_max_mth, t_h, theta_VA, theta_i, Q_hp_outg, Q_h_f_hp, Q_h_g_hp_aux) '=============2010.04.01 수정 Q_h_outg 를 Q_h_outg_i 로 수정 + Q_h_outg = Q_h_outg - Q_hp_outg + Q_h_outg_i = Q_h_outg_i - Q_hp_outg + use_LPG = use_LPG + Q_h_f_hp * system_count '=============2013.08.18 수정 + use_Elec = use_Elec + Q_h_g_hp_aux * system_count '=============2013.08.18 수정 + Q_h_f = Q_h_f + (Q_h_f_hp + Q_h_g_hp_aux) * system_count '=============2013.08.18 수정 '============================2010.04.17 추가 + End Select + Case "열병합" '//열병합 Select Case Dr신재생.가동연료.Trim Case "난방유" '난방유" @@ -2854,6 +2928,8 @@ If DR존.열생산난방생산기기 = dr난방.code Then 판단1 = True If DR존.공조난방생산기기 = dr난방.code Then 판단2 = True + Q_h_ce_i = 0 '//20220525 수정 + '//다시 생각을... 'If Worksheets("입력존").Range("입력난방생산기기1").Offset(0, i_count_zone - 1) <> "" And Worksheets("입력존").Range("입력난방생산기기1").Offset(0, i_count_zone - 1) = Worksheets("난방기기").Range("난방생산기기1").Offset(0, i_count_boiler - 1) Then @@ -3391,6 +3467,31 @@ use_Elec = use_Elec + Q_h_g_hp_aux * system_count '=============2013.08.18 수정 Q_h_f = Q_h_f + (Q_h_f_hp + Q_h_g_hp_aux) * system_count '=============2013.08.18 수정 '============================2010.04.17 추가 End Select + Case "수열" '//수열 + Select Case Dr신재생.가동연료.Trim + Case "전기" '전기" + CRenew.Calc_HydroHeatpumpSystem(system_type, i_HeatCool, Dr신재생, Q_h_outg_i, i_count_month, d_op_max_mth, t_h, theta_VA, theta_i, Q_hp_outg, Q_h_f_hp, Q_h_g_hp_aux) '=============2010.04.01 수정 Q_h_outg 를 Q_h_outg_i 로 수정 + Q_h_outg = Q_h_outg - Q_hp_outg + Q_h_outg_i = Q_h_outg_i - Q_hp_outg + use_Elec = use_Elec + (Q_h_f_hp + Q_h_g_hp_aux) * system_count '=============2013.08.18 수정 + Q_h_f = Q_h_f + (Q_h_f_hp + Q_h_g_hp_aux) * system_count '=============2013.08.18 수정 '============================2010.04.17 추가 + Case "천연가스" '천연가스" + CRenew.Calc_HydroHeatpumpSystem(system_type, i_HeatCool, Dr신재생, Q_h_outg_i, i_count_month, d_op_max_mth, t_h, theta_VA, theta_i, Q_hp_outg, Q_h_f_hp, Q_h_g_hp_aux) '=============2010.04.01 수정 Q_h_outg 를 Q_h_outg_i 로 수정 + Q_h_outg = Q_h_outg - Q_hp_outg + Q_h_outg_i = Q_h_outg_i - Q_hp_outg + use_LNG = use_LNG + Q_h_f_hp * system_count '=============2013.08.18 수정 + use_Elec = use_Elec + Q_h_g_hp_aux * system_count '=============2013.08.18 수정 + Q_h_f = Q_h_f + (Q_h_f_hp + Q_h_g_hp_aux) * system_count '=============2013.08.18 수정 '============================2010.04.17 추가 + '//요기맞죠 ^^? + Case "액화가스" '액화가스" + CRenew.Calc_HydroHeatpumpSystem(system_type, i_HeatCool, Dr신재생, Q_h_outg_i, i_count_month, d_op_max_mth, t_h, theta_VA, theta_i, Q_hp_outg, Q_h_f_hp, Q_h_g_hp_aux) '=============2010.04.01 수정 Q_h_outg 를 Q_h_outg_i 로 수정 + Q_h_outg = Q_h_outg - Q_hp_outg + Q_h_outg_i = Q_h_outg_i - Q_hp_outg + use_LPG = use_LPG + Q_h_f_hp * system_count '=============2013.08.18 수정 + use_Elec = use_Elec + Q_h_g_hp_aux * system_count '=============2013.08.18 수정 + Q_h_f = Q_h_f + (Q_h_f_hp + Q_h_g_hp_aux) * system_count '=============2013.08.18 수정 '============================2010.04.17 추가 + End Select + Case "열병합" '//열병합 Select Case Dr신재생.가동연료.Trim Case "난방유" '난방유" diff --git a/ArinWarev1/Calculator/CRenewable.vb b/ArinWarev1/Calculator/CRenewable.vb index 9beb6b8..200d745 100644 --- a/ArinWarev1/Calculator/CRenewable.vb +++ b/ArinWarev1/Calculator/CRenewable.vb @@ -665,6 +665,168 @@ End Sub + + Public Overridable Sub Calc_HydroHeatpumpSystem(ByVal i_system_hp As Integer, ByVal i_HeatCool As Integer, ByVal Dr신재생 As DS.tbl_newRow, ByVal Q_hp_outg As Decimal, ByVal i_hp_month As Integer, _ + ByVal d_h_mth As Integer, ByVal t_hp As Integer, ByVal theta_VA As Decimal, ByVal theta_i As Decimal, ByRef Q_h_outg As Decimal, ByRef Q_h_f_hp As Decimal, ByRef Q_h_g_aux As Decimal) + + pLog.Add(String.Format(">>HydroCalc_HeatpumpSystem 진입 : i_system_hp={0}, i_HeatCool={1},dr신재생={2},Q_hp_outg={3},i_hp_month={4},d_h_mth={5},t_hp={6},theta_VA={7},theta_i={8},Q_h_outg={9},Q_h_f_hp={10},Q_h_g_aux={11}", _ + i_system_hp, i_HeatCool, Dr신재생.code, Q_hp_outg, i_hp_month, d_h_mth, t_hp, theta_VA, theta_i, Q_h_outg, Q_h_f_hp, Q_h_g_aux)) + + + + Dim f_Verwindung As Decimal, V As Decimal, q_B_S As Decimal, Phi_g As Decimal + Dim Q_h_g As Decimal, Q_h_g_s As Decimal, Q_h_g_WP As Decimal + Dim P_rd_mot As Decimal + 'Dim Q_h_f_hp as decimal 'DIN 에서는 Q_h_f로 표기 + 'Dim Delta_p_prim as decimal, Delta_p_sek as decimal + Dim Phi_prim_aux As Decimal, Phi_sek_aux As Decimal, t_ON_aux As Decimal + Dim theta_h_s As Decimal + Dim COP, COP_L, COP_H, COP_b As Decimal + Dim Q_h_outg_net As Decimal + + + Q_h_g_s = 0 + Q_h_g_WP = 0 '전기히트펌프인 경우 0 가스히트펌프는 ? + P_rd_mot = 0 + Q_h_f_hp = 0 + Q_h_outg_net = 0 + + + Dim water_temp As Single = 0.0F ' i_hp_month + If Dr신재생.수열_수열원 = "하천수" Then + + Dim Dr수온 As DS.weather_riverRow = CType(DSET.weather_river.Select("pcode='" & Calc.Pub.기상데이터.code + "'")(0), DS.weather_riverRow) + water_temp = TOSG(Dr수온("M" + i_hp_month.ToString("00"))) + Else + Dim Dr수온 As DS.weather_waterRow = CType(DSET.weather_water.Rows(0), DS.weather_waterRow) + water_temp = TOSG(Dr수온("M" + i_hp_month.ToString("00"))) + End If + + + 'eta_aux = 0.3 + 'Delta_p_prim = 40 'kPa 1차측 + 'Delta_p_sek = 10 'kPa 2차측 + + 'MsgBox(i_count_hp) + + 'i_count_hp = 0 '//신재생 줄번호는 무조건 0이된다. 20100127 '//연습용데이터 문제있음 + ' Dim Dr신재생 As DS.tbl_newRow = CType(DSET.tbl_new.Rows(0), DS.tbl_newRow) + + Phi_g = TOSG(Dr신재생.수열_수열히트펌프용량) ' Worksheets("신재생기기").Range("지열히트펌프용량1").Offset(0, i_count_hp - 1) + + If Dr신재생.가동연료 <> "전기" And i_HeatCool = 1 And Dr신재생.수열_열교환기설치여부 = "예" Then ' Worksheets("신재생기기").Range("지열히트펌프용량1").Offset(5, i_count_hp - 1) = "예" Then + P_rd_mot = 0.4 + End If + + If Q_hp_outg < (Phi_g * t_hp) * (1 + P_rd_mot) Then + Q_h_outg = Q_hp_outg + Else + Q_h_outg = Phi_g * t_hp * (1 + P_rd_mot) + End If + + If i_HeatCool = 1 Or i_HeatCool = 3 Then '난방 1 , 냉방 2, 급탕 3 + '난방, 급탕 + If Dr신재생.수열_수열팽창탱크설치여부 = "예" Then ' Worksheets("신재생기기").Range("지열히트펌프용량1").Offset(6, i_count_hp - 1) = "예" Then + f_Verwindung = 1.2 + V = TOSG(Dr신재생.수열_수열팽창탱크체적) ' Worksheets("신재생기기").Range("지열히트펌프용량1").Offset(7, i_count_hp - 1) + q_B_S = TOSG(0.4 + 0.14 * V ^ 0.45) '(51) + theta_h_s = theta_VA '급수온도로 적용 + Q_h_g_s = f_Verwindung * (theta_h_s - theta_i) / 45 * d_h_mth * q_B_S '(49) 외부완충(팽창탱크 유무) + + End If + + Q_h_g = Q_h_g_s + Q_h_g_WP + COP_L = TOSG(Dr신재생.수열_열성능비_난방5도) ' Worksheets("신재생기기").Range("지열히트펌프용량1").Offset(1, i_count_hp - 1) + COP_H = TOSG(Dr신재생.수열_열성능비_난방15도) ' Worksheets("신재생기기").Range("지열히트펌프용량1").Offset(1, i_count_hp - 1) + COP_b = COP_L - ((COP_H - COP_L) / 10 * 5) + COP = (COP_H - COP_L) / 10 * (water_temp - 5) + COP_b '// 최저 최고 수열온도는 평균온도 대비 +- 5도로 변동되며, 지열과 형평성을 맞추기 위하여 보수적으로 5도 낮춤 + + Else + '냉방 + + COP_L = TOSG(Dr신재생.수열_열성능비_냉방25도) ' Worksheets("신재생기기").Range("지열히트펌프용량1").Offset(1, i_count_hp - 1) + COP_H = TOSG(Dr신재생.수열_열성능비_냉방35도) ' Worksheets("신재생기기").Range("지열히트펌프용량1").Offset(1, i_count_hp - 1) + COP_b = COP_L - ((COP_H - COP_L) / 10 * 25) + COP = (COP_H - COP_L) / 10 * (water_temp + 5) + COP_b '// 최저 최고 수열온도는 평균온도 대비 +- 5도로 변동되며, 지열과 형평성을 맞추기 위하여 보수적으로 5도 높임 + + End If + + + If Dr신재생.가동연료 = "전기" Then ' Worksheets("신재생기기").Range("신재생및열병합기기종류1").Offset(1, i_count_hp - 1) = "전기" Then + Q_h_f_hp = (Q_h_outg + Q_h_g) / COP + ' Q_h_in = Q_h_outg + Q_h_g - Q_h_f_hp '월간 전기히트펌프(재생에너지유입량) + Else + Q_h_f_hp = Q_h_outg / COP + ' If i_HeatCool = 1 And Worksheets("신재생기기").Range("지열히트펌프용량1").Offset(5, i_count_hp - 1) = "예" Then + ' P_rd_mot = 0.4 + ' End If + ' Q_h_in = Q_h_outg + Q_h_g - Q_h_f_hp * (1 + P_rd_mot) '월간 가스히트펌프(재생에너지유입량) + End If + + 'Q_h_f = Q_h_outg + Q_h_g - k_rd_g * Q_h_g_aux - Q_h_in '월간(A.1) 전기히트펌프(난방요구량 충당) + 'Q_h_f = (Q_h_outg + Q_h_g - k_rd_g * Q_h_g_aux - Q_h_in) / (1 + P_rd_mot) '월간(A.2) 가스히트펌프(난방요구량 충당) + + + '보조에너지 + + + 'Phi_prim_aux = Delta_p_prim * V_dot / (eta_aux * 3600) '(89) 사용자 입력항목이므로 확인 요망 + 'Phi_sek_aux = Delta_p_sek * V_dot / (eta_aux * 3600) '(89) 사용자 입력항목이므로 확인 요망 + + t_ON_aux = Q_h_outg / (Phi_g) '(81) + Phi_prim_aux = TOSG(Dr신재생.수열_1차펌프동력) ' Worksheets("신재생기기").Range("지열히트펌프용량1").Offset(3, i_count_hp - 1) + Phi_sek_aux = TOSG(Dr신재생.수열_2차펌프동력) ' Worksheets("신재생기기").Range("지열히트펌프용량1").Offset(4, i_count_hp - 1) + + Q_h_g_aux = TOSG((Phi_prim_aux + Phi_sek_aux) * 0.001 * t_ON_aux) '(88) + + + '// 신재생에너지 자립률 추가(2017.01.20) + + If Dr신재생.가동연료 = "전기" Then + Q_h_outg_net = Q_h_outg - ((Q_h_f_hp + Q_h_g_aux) * 2.75) '전기 1차에너지계수 적용 + If Q_h_outg_net < 0 Then Q_h_outg_net = 0 + + Else + Q_h_outg_net = Q_h_outg - (Q_h_f_hp * 1.1 + Q_h_g_aux * 2.75) '가스 1차에너지계수 적용 + If Q_h_outg_net < 0 Then Q_h_outg_net = 0 + End If + + + + '// 신재생에너지 자립률 추가 + + + '//열에너지생산량 (수열) + Result.생산E(i_hp_month).수열생산량 += Q_h_outg_net '//20170120 추가 + '// Result.생산E(i_hp_month).지열생산량 += Q_h_f_hp '20170120 지열생산량을 수정 + 'DSETR.TReqUse.Rows(79)("M" & Format(i_hp_month, "00")) = CSng(DSETR.TReqUse.Rows(79)("M" & Format(i_hp_month, "00"))) + Q_h_f_hp 'DrT생산.열생산량지열 += Q_h_f_hp + + pLog.Add(String.Format(">>Calc_HydroHeatpumpSystem 결과0 Q_h_f_hp={0},t_ON_aux={1},Q_h_g_aux={2}", _ + Q_h_f_hp, t_ON_aux, Q_h_g_aux)) + + pLog.Add(String.Format(">>Calc_HydroHeatpumpSystem 결과1 수열생산량={0}", _ + Result.생산E(i_hp_month).수열생산량)) + + '100 : Total >> DrT생산.단위면적당생산량지열 + 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_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_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_f_hp / Result.사용면적.W) '20170120 지열생산량을 수정 + End Select + + pLog.Add(String.Format(">>Calc_HydroHeatpumpSystem 결과2 면적당생산량수열={0}", _ + Result.생산E(i_hp_month).면적당생산량수열)) + + End Sub + Public Overridable Sub Calc_CogenerationSystemEN(ByVal Dr신재생 As DS.tbl_newRow, i_system_chp As Integer, ByVal i_chp_month As Integer, ByVal Q_h_outg As Decimal, ByVal t_chp As Integer, _ ByRef Q_chp_gen_out As Decimal, ByRef E_chp_gen_in As Decimal) @@ -753,4 +915,70 @@ End If 'DSETR.TReqUse.Rows(77)("M" & Format(i_chp_month, "00")) = CSng(DSETR.TReqUse.Rows(77)("M" & Format(i_chp_month, "00"))) + E_el_chp_out ' Sheets("계산결과").Cells(96, 7 + i_chp_month) = E_el_chp_out End Sub + + Public Overridable Sub Calc_WindPowerGenerationSystem(ByVal i_count_wp_month As Integer, ByVal i_wp_d_mth As Integer) + + pLog.Add(String.Format(">>Calc_WindPowerGenerationSystem 진입 : i_count_wp_month={0}, i_wp_d_mth={1}", _ + i_count_wp_month, i_wp_d_mth)) + + Dim f_v_WK, P_WEA_WK, P_Wind_WK, t_WK, A, A_Rotor, v_1, v_2, h_1, h_2 As Decimal + Dim alpha, Q_f_prod_WEA, rho As Decimal + Dim k As Integer + Dim Q_f_prod_out, Q_f_prod_out_offsite As Decimal + + k = 2 + alpha = 0.14 '표준조건 + Q_f_prod_WEA = 0 + Q_f_prod_out = 0 + Q_f_prod_out_offsite = 0 + rho = 1.225 + h_1 = 10 + + + + + For Each Dr신재생 As DS.tbl_newRow In DSET.tbl_new.Select("code <> '0'", "code") + + If Dr신재생.기기종류 = "풍력" Then + + Dim Drow풍속 As DS.weather_windRow = CType(DSET.weather_wind.Select("pcode='" & Calc.Pub.기상데이터.code & "'")(0), DS.weather_windRow) + A_Rotor = TOSG(Dr신재생.풍력로우터회전면적) + h_2 = TOSG(Dr신재생.풍력허브높이) + + v_1 = TOSG(Drow풍속("M" + i_count_wp_month.ToString("00"))) ' 값을 정의하기 위해서 해당 지역 월 평균 풍속 데이터 필요 + v_2 = v_1 * Math.Pow((h_2 / h_1), alpha) + + A = 2 * v_2 / Math.Sqrt(Math.PI) + + For v_WK As Integer = 4 To 16 + + f_v_WK = k / A * Math.Pow((v_WK - 0.5) / A, k - 1) * Math.Exp(-Math.Pow(((v_WK - 0.5) / A), k)) + t_WK = 24 * i_wp_d_mth * f_v_WK + P_Wind_WK = 1 / 2 * rho * A_Rotor * Math.Pow(v_WK, 3) + P_WEA_WK = 0.2 * P_Wind_WK + Q_f_prod_WEA += (P_WEA_WK * t_WK) / 1000 + + Next + If Dr신재생.대지외설치여부_풍력 Then + Q_f_prod_out_offsite += Q_f_prod_WEA + Else + Q_f_prod_out += Q_f_prod_WEA + End If + + End If + Next + + + + Result.생산E(i_count_wp_month).풍력전력생산량 += Q_f_prod_out + Result.생산E(i_count_wp_month).풍력전력생산량_offsite += Q_f_prod_out_offsite + + + pLog.Add(String.Format(">>Calc_WindPowerGenerationSystem 진입 : Q_f+prod_out={0}, 풍력전력생산량={1}", _ + Q_f_prod_out, Result.생산E(i_count_wp_month).풍력전력생산량)) + + End Sub + + + End Class diff --git a/ArinWarev1/Calculator/CSummary.vb b/ArinWarev1/Calculator/CSummary.vb index 7bcf5ca..f7d9c4b 100644 --- a/ArinWarev1/Calculator/CSummary.vb +++ b/ArinWarev1/Calculator/CSummary.vb @@ -616,6 +616,11 @@ Next Set_ReqUseRow("310", "전기에너지 생산량(태양광)", "[kWh]", CStr(Result.E변환계수.전력), "=", Array) '//67 Array.Clear() + For i As Integer = 0 To 12 + Array.Add(Result.생산E(i).풍력전력생산량) + Next + Set_ReqUseRow("310", "전기에너지 생산량(풍력)", "[kWh]", CStr(Result.E변환계수.전력), "=", Array) '//67 + Array.Clear() For i As Integer = 0 To 12 Array.Add(Result.생산E(i).열병합전력생산량) Next @@ -631,6 +636,12 @@ 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) + Array.Clear() + For i As Integer = 0 To 12 Array.Add(Result.생산E(i).면적당생산량태양열) Next @@ -643,6 +654,12 @@ Set_ReqUseRow("310", "단위면적당 생산량(지열)", "[kWh]", "", "=", Array, "N1") '//72 + For i As Integer = 0 To 12 + Array.Add(Result.생산E(i).면적당생산량수열) + Next + + Set_ReqUseRow("310", "단위면적당 생산량(수열)", "[kWh]", "", "=", Array, "N1") '//72 + '//CO2배출량 Array.Clear() @@ -830,6 +847,11 @@ Next Set_ReqUseRow("410", "전력 CO2 저감량(태양광)", "[kg CO2]", CStr(Result.Co2배출계수.전력), "=", Array) '//102 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) '//102 + Array.Clear() For i As Integer = 0 To 12 Array.Add(Result.Co2발생량(i).저감량열병합) Next diff --git a/ArinWarev1/Calculator/CZone.vb b/ArinWarev1/Calculator/CZone.vb index 9a6696f..5839026 100644 --- a/ArinWarev1/Calculator/CZone.vb +++ b/ArinWarev1/Calculator/CZone.vb @@ -50,6 +50,8 @@ Dim Q_V_win_sink As Decimal, Q_V_win_source As Decimal, H_V_win As Decimal, n_win As Decimal Dim zone_count As Decimal '//2012.07.08 추가 입력존의 수 + Dim Delta_theta_AUL, V_dot_A_AHU As Decimal + 'Dim priod_value As Single = 0 Dim age As Decimal = 1 '//준공연도에 의한 경년변화값 'For Each DRpriod As DS.tbl_DescRow In DSET.tbl_Desc.Select("cname<>'0'", "cname") @@ -190,15 +192,90 @@ 'Q_I_L = 0 'mu_L*Q_I_L_elektr (2-123)추후 추가 End If + ''/// 공기식 태양열 적용여부 확인 + 'Delta_theta_AUL = 0 + 'V_dot_A_AHU = 0 + + 'If DR존.냉난방공조처리시스템 <> "0" Then + ' Dim Dr공조() As DS.tbl_kongjoRow = DSET.tbl_kongjo.Select("code='" & DR존.냉난방공조처리시스템 & "' and code <> '0'", "code") + ' If Dr공조.Length = 1 AndAlso i_count_month > 0 Then + ' If Dr공조(0).공기식태양열적용 = "예" Then + + ' V_dot_A_AHU = Get_V_dot_A_AHU(DSET.tbl_profile, DSET.tbl_zone, Dr공조(0).code) + + ' '해당 존에 연결된 공조기에 연결된 입력존*입력존수*최소외기도입량 의 합계 산출(V_dot_A_AHU) + ' '///////////// + ' '///////////// + ' '///////////// + ' '///////////// + ' '///////////// + ' '///////////// + ' '///////////// + ' Delta_theta_AUL = SolarAirHeatingSystem(DSET, i_count_month, d_op_mth, Dr공조(0), V_dot_A_AHU, Calc.Pub.theta_e(i_count_month), Delta_theta_AUL) + + + ' End If + ' End If + 'End If + + + + + V_mech_outdoor = 1 '외기처리 관련 (ZZ=사용안함 Y=예) If DR존.냉난방방식 <> "기능없음" And DR존.냉난방공조 <> "기능없음" And DR존.외기부하처리여부 = "예" Then If i_count_HeatCool = 1 Then '//난방이라면 If DR존.냉난방공조 <> "난방" AndAlso DR존.냉난방공조 <> "냉난방" Then '난방/냉난방 이 아니면! - If theta_i_h_soll > Calc.Pub.theta_e(i_count_month) Then '//난방설정온도 > 외기온도(난방기) - Q_vh_b_op = V_mech * (theta_i_h_soll - Calc.Pub.theta_e(i_count_month)) * t_h_op_d * c_p_arhoa * d_op_mth * zone_count '===============d_op(i_count_month) 2010.2.21 수정 - V_mech_outdoor = 0 ' 외기처리된 상태인 경우 - 'Log.AppendLine(" >> 외기처리됨") - End If + 'If theta_i_h_soll > (Calc.Pub.theta_e(i_count_month) + Delta_theta_AUL) Then '//난방설정온도 > 외기온도(난방기) + ' Q_vh_b_op = V_mech * (theta_i_h_soll - (Calc.Pub.theta_e(i_count_month) + Delta_theta_AUL)) * t_h_op_d * c_p_arhoa * d_op_mth * zone_count '===============d_op(i_count_month) 2010.2.21 수정 + ' V_mech_outdoor = 0 ' 외기처리된 상태인 경우 + ' 'Log.AppendLine(" >> 외기처리됨") + 'End If + + 'If theta_i_h_soll > Calc.Pub.theta_e(i_count_month) Then '//난방설정온도 > 외기온도(난방기) + ' Q_vh_b_op = V_mech * (theta_i_h_soll - Calc.Pub.theta_e(i_count_month)) * t_h_op_d * c_p_arhoa * d_op_mth * zone_count '===============d_op(i_count_month) 2010.2.21 수정 + ' V_mech_outdoor = 0 ' 외기처리된 상태인 경우 + ' 'Log.AppendLine(" >> 외기처리됨") + + 'End If + + + + 'If DR존.냉난방공조처리시스템 <> "0" Then + + ' Dim Dr공조 As DS.tbl_kongjoRow = DSET.tbl_kongjo.Select("code='" & DR존.냉난방공조처리시스템 & "' and code <> '0'", "code")(0) + ' If DR공조.공기식태양열적용 = "예" Then + + ' V_dot_A_AHU = Get_V_dot_A_AHU(DSET.tbl_profile, DSET.tbl_zone, Dr공조.code) + + + ' '해당 존에 연결된 공조기에 연결된 입력존*입력존수*최소외기도입량 의 합계 산출(V_dot_A_AHU) + ' '///////////// + ' '///////////// + ' '///////////// + ' '///////////// + ' '///////////// + ' '///////////// + ' '///////////// + ' Delta_theta_AUL = SolarAirHeatingSystem(DSET, i_count_month, d_op_mth, Dr공조, V_dot_A_AHU, Calc.Pub.theta_e(i_count_month), Delta_theta_AUL) + + ' If theta_i_h_soll > (Calc.Pub.theta_e(i_count_month) + Delta_theta_AUL) Then '//난방설정온도 > 외기온도(난방기) + ' Q_vh_b_op = V_mech * (theta_i_h_soll - (Calc.Pub.theta_e(i_count_month) + Delta_theta_AUL)) * t_h_op_d * c_p_arhoa * d_op_mth * zone_count '===============d_op(i_count_month) 2010.2.21 수정 + ' V_mech_outdoor = 0 ' 외기처리된 상태인 경우 + ' 'Log.AppendLine(" >> 외기처리됨") + ' End If + ' Else + + + ' End If + 'Else + ' '//ㄱ + 'End If + ''For Each Dr공조 As DS.tbl_kongjoRow In DSET.tbl_kongjo.Select("code='" & DR존.냉난방공조처리시스템 & "' and code <> '0'", "code") + + ''Next + + End If Else If DR존.냉난방공조 <> "냉방" AndAlso DR존.냉난방공조 <> "냉난방" Then '냉방/냉난방이 아닐경우 @@ -391,23 +468,58 @@ 'theta_V_mech = theta_e(i_count_month) + eta_V_mech * (theta_i - theta_e(i_count_month)) '(2-91) 비제어적 열교환 eta_V_mech은 사용자입력 theta_V_mech_RLT = TOSG(IIf(i_count_HeatCool = 1, 27, 16)) + + + + theta_V_mech = Calc.Pub.theta_e(i_count_month) 'theta_V_mech_RLT '(2-92) 공조처리된 급기온도(도표 3-3, 3-4, 7-5) 난방 27, 냉방 16으로 설정 pLog.Add(String.Format("theta_i:{0},theta_z:{1},theta_u:{2},theta_V_mech_RLT:{3},theta_V_mech:{4}", theta_i, theta_z, theta_u, theta_V_mech_RLT, theta_V_mech)) + + '=======================================================================2010.02.04 추가부분 시작 If DR존.냉난방공조처리시스템 <> "0" And DR존.냉난방공조 = "환기" Then '//냉난방공조처리시스템이 선택되어있고 공조가 환기라면 '//공조처리스템과 일치하는 공조기기(tbl_kongjo) 를 찾아서 계산한다. Dim DR() As DS.tbl_kongjoRow = CType(DSET.tbl_kongjo.Select("code='" & DR존.냉난방공조처리시스템 & "' and code <> '0'"), DS.tbl_kongjoRow()) + + '/// 공기식 태양열 적용여부 확인 + Delta_theta_AUL = 0 + V_dot_A_AHU = 0 + + + If i_count_month > 0 Then + If DR(0).공기식태양열적용 = "예" Then + + V_dot_A_AHU = Get_V_dot_A_AHU(DSET.tbl_profile, DSET.tbl_zone, DR(0).code) + + '해당 존에 연결된 공조기에 연결된 입력존*입력존수*최소외기도입량 의 합계 산출(V_dot_A_AHU) + '///////////// + '///////////// + '///////////// + '///////////// + '///////////// + '///////////// + '///////////// + Delta_theta_AUL = SolarAirHeatingSystem(DSET, i_count_month, d_op_mth, DR(0), V_dot_A_AHU, Calc.Pub.theta_e(i_count_month), Delta_theta_AUL) + + + End If + End If + + + If DR.GetUpperBound(0) = 0 Then Select Case DR(0).열교환기유형.Trim Case "현열교환", "전열교환" '//현열교환,전열교환 Phi = TOSG(DR(0).열회수율) ' Worksheets("공조처리시스템").Range("열교환기1").Offset(1, i_count_AHU - 1) + theta_V_mech = Calc.Pub.theta_e(i_count_month) + Phi * (theta_i - Calc.Pub.theta_e(i_count_month) + Delta_theta_AUL) Case Else Phi = 0 + theta_V_mech = Calc.Pub.theta_e(i_count_month) + Delta_theta_AUL End Select - theta_V_mech = Calc.Pub.theta_e(i_count_month) + Phi * (theta_i - Calc.Pub.theta_e(i_count_month)) + Else MsgBox(DR존.설명 & "존의 냉난방공조처리스템(" & DR존.냉난방공조처리시스템 & ") 의값이 일치하지않습니다", MsgBoxStyle.Critical, "확인") End If @@ -874,7 +986,7 @@ pLog.Add("환기소요량 시작") - Calc.AirHandling.Calc_AirHandling(i_count_month, d_full_mth) '//환기? '========2010.2.21 수정 + Calc.AirHandling.Calc_AirHandling(i_count_month, d_full_mth, theta_e_month) '//환기? '========2010.2.21 수정 '// If Result.E분석(i_count_month).난방에너지요구량 <> 0 Then diff --git a/ArinWarev1/Calculator/Calculator.vb b/ArinWarev1/Calculator/Calculator.vb index 0e70b55..43426c3 100644 --- a/ArinWarev1/Calculator/Calculator.vb +++ b/ArinWarev1/Calculator/Calculator.vb @@ -205,7 +205,7 @@ Exit While End If - + '//변경될 온도정보를 가지고 다시 계산합니다. If Me.Start("설계개선작업(" + (오차계산횟수 + 1).ToString() + "/" + 오차재계산횟수.ToString + ")" + vbCrLf + vbCrLf + _ @@ -346,6 +346,8 @@ 'log.AppendLine(">>주계산시작") End If + + '//사용자가입력한 1차에너지사용량(=월별에너지사용량)을 변환계수를 이용해 값을 생성한다. DSETR1.월별1차에너지사용량.Rows.Clear() : DSETR2.월별1차에너지사용량.Rows.Clear() DSETR1.월별1차에너지사용량.AcceptChanges() : DSETR2.월별1차에너지사용량.AcceptChanges() @@ -356,6 +358,8 @@ DSETR2.월별1차에너지사용량.Merge(DSETR1.월별1차에너지사용량) DSETR2.월별1차에너지사용량.AcceptChanges() + + Dim Retval As Boolean Select Case CalcType Case ECalc.All @@ -527,6 +531,15 @@ 'DSET.tbl_kongjo.AcceptChanges() DSET.AcceptChanges() + ' + Dim waterok As Boolean = True + For Each dr As DS.tbl_newRow In DSET1.tbl_new.Rows + If dr.기기종류 = "수열" AndAlso dr.가동연료.Contains("없음") Then '// + MsgBox("수열시스템의 가동연료가 정의되어 있지 않습니다.") + Return False + End If + Next + '//그값이 존에잇어요?cnrkehlsrp?추가된게?공조기기요 For Each Dr As DS.tbl_zoneRow In DSET.tbl_zone.Select("code <> '0'") '//모든존을 검사 없음(0)은 빼고 diff --git a/ArinWarev1/Calculator/Result/C1차소요량.vb b/ArinWarev1/Calculator/Result/C1차소요량.vb index f297147..8a882b7 100644 --- a/ArinWarev1/Calculator/Result/C1차소요량.vb +++ b/ArinWarev1/Calculator/Result/C1차소요량.vb @@ -79,7 +79,7 @@ Next Return R Else - Return Me.난방소요량 + Me.냉방소요량 + Me.급탕소요량 + Me.조명소요량 + Me.환기소요량 - (Result.생산E(MIdx).태양광전력생산량 * Result.E변환계수.전력) - (Result.생산E(MIdx).열병합전력생산량 * Result.E변환계수.전력) + Return Me.난방소요량 + Me.냉방소요량 + Me.급탕소요량 + Me.조명소요량 + Me.환기소요량 - ((Result.생산E(MIdx).태양광전력생산량 + Result.생산E(MIdx).풍력전력생산량) * Result.E변환계수.전력) - (Result.생산E(MIdx).열병합전력생산량 * Result.E변환계수.전력) End If End Get End Property @@ -103,7 +103,7 @@ Me.난방LPG * Result.E변환계수.LPG + Me.난방지역 * Result.E변환계수.지역난방 + _ Me.난방전력 * Result.E변환계수.전력 Try - Return R - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).열병합전력생산량) / _ + Return R - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).풍력전력생산량 + Result.생산E(0).열병합전력생산량) / _ (Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.난방전력 * Result.E변환계수.전력 Catch ex As Exception @@ -129,7 +129,7 @@ Me.난방LPG * Result.E변환계수.지역난방 + Me.난방지역 * Result.E변환계수.지역난방 + _ Me.난방전력 * Result.E변환계수.전력 Try - Return R - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).열병합전력생산량) / _ + Return R - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).풍력전력생산량 + Result.생산E(0).열병합전력생산량) / _ (Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.난방전력 * Result.E변환계수.전력 Catch ex As Exception @@ -140,7 +140,7 @@ Me.난방LPG * Result.E변환계수.LPG + Me.난방지역 * Result.E변환계수.지역난방 + _ Me.난방전력 * Result.E변환계수.전력 Try - Return R - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).열병합전력생산량) / _ + Return R - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).풍력전력생산량 + Result.생산E(0).열병합전력생산량) / _ (Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.난방전력 * Result.E변환계수.전력 Catch ex As Exception @@ -312,7 +312,7 @@ Me.냉방LPG * Result.E변환계수.LPG + Me.냉방지역난방열 * Result.E변환계수.지역난방 + _ Me.냉방지역냉방열 * Result.E변환계수.지역냉방 + Me.냉방전력 * Result.E변환계수.전력 Try - Return R - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).열병합전력생산량) / _ + Return R - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).풍력전력생산량 + Result.생산E(0).열병합전력생산량) / _ (Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.냉방전력 * Result.E변환계수.전력 Catch ex As Exception @@ -488,7 +488,7 @@ ' My.Computer.FileSystem.WriteAllText(f, b.ToString, True) '#End If Try - Return R - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).열병합전력생산량) / _ + Return R - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).풍력전력생산량 + Result.생산E(0).열병합전력생산량) / _ (Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.급탕전력 * Result.E변환계수.전력 Catch ex As Exception @@ -522,7 +522,7 @@ Me.급탕LPG * Result.E변환계수.지역난방 + Me.급탕지역 * Result.E변환계수.지역난방 + _ Me.급탕전력 * Result.E변환계수.전력 Try - Return R - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).열병합전력생산량) / _ + Return R - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).풍력전력생산량 + Result.생산E(0).열병합전력생산량) / _ (Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.급탕전력 * Result.E변환계수.전력 Catch ex As Exception @@ -532,7 +532,7 @@ Me.급탕LPG * Result.E변환계수.LPG + Me.급탕지역 * Result.E변환계수.지역난방 + _ Me.급탕전력 * Result.E변환계수.전력 Try - Return R - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).열병합전력생산량) / _ + Return R - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).풍력전력생산량 + Result.생산E(0).열병합전력생산량) / _ (Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.급탕전력 * Result.E변환계수.전력 Catch ex As Exception @@ -700,7 +700,11 @@ Dim R As Decimal = 조명전력 * Result.E변환계수.전력 Try - Return R - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).열병합전력생산량) / _ + 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 + Return R - (sumdata) / _ (Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.조명전력 * Result.E변환계수.전력 Catch ex As Exception @@ -742,7 +746,7 @@ If MIdx = 0 Then Dim R As Decimal = 환기전력 * Result.E변환계수.전력 Try - Return R - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).열병합전력생산량) / _ + Return R - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).풍력전력생산량 + Result.생산E(0).열병합전력생산량) / _ (Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력) * Me.환기전력 * Result.E변환계수.전력 Catch ex As Exception diff --git a/ArinWarev1/Calculator/Result/CCo2발생량.vb b/ArinWarev1/Calculator/Result/CCo2발생량.vb index b5f10d8..bd84239 100644 --- a/ArinWarev1/Calculator/Result/CCo2발생량.vb +++ b/ArinWarev1/Calculator/Result/CCo2발생량.vb @@ -13,7 +13,7 @@ If MIdx = 0 Then '//최종합계는 저람량을 제하지않는다? Return Me.난방발생량 + Me.냉방발생량 + Me.급탕발생량 + Me.조명발생량 + Me.환기발생량 Else - Return Me.난방발생량 + Me.냉방발생량 + Me.급탕발생량 + Me.조명발생량 + Me.환기발생량 - Me.저감량태양광 - Me.저감량열병합 + Return Me.난방발생량 + Me.냉방발생량 + Me.급탕발생량 + Me.조명발생량 + Me.환기발생량 - Me.저감량태양광 - Me.저감량풍력 - Me.저감량열병합 End If End Get End Property @@ -29,7 +29,7 @@ If MIdx = 0 Then Dim R As Decimal = Me.난방등유 + Me.난방LNG + Me.난방LPG + Me.난방지역 + Me.난방전력 Try - Return R - (Me.저감량열병합 + Me.저감량태양광) / (Me.난방전력 + Me.냉방전력 + Me.조명전력 + Me.환기전력 + Me.급탕전력) * Me.난방전력 + Return R - (Me.저감량열병합 + Me.저감량태양광 + Me.저감량풍력) / (Me.난방전력 + Me.냉방전력 + Me.조명전력 + Me.환기전력 + Me.급탕전력) * Me.난방전력 Catch ex As Exception End Try @@ -133,7 +133,7 @@ Dim R As Decimal = Me.냉방등유 + Me.냉방LNG + Me.냉방LPG + Me.냉방지역난방열 + Me.냉방지역냉방열 + Me.냉방전력 If MIdx = 0 Then Try - Return R - (Me.저감량열병합 + Me.저감량태양광) / (Me.난방전력 + Me.냉방전력 + Me.조명전력 + Me.환기전력 + Me.급탕전력) * Me.냉방전력 + Return R - (Me.저감량열병합 + Me.저감량태양광 + Me.저감량풍력) / (Me.난방전력 + Me.냉방전력 + Me.조명전력 + Me.환기전력 + Me.급탕전력) * Me.냉방전력 Catch ex As Exception End Try @@ -249,7 +249,7 @@ If MIdx = 0 Then Dim R As Decimal = Me.급탕등유 + Me.급탕LNG + Me.급탕LPG + Me.급탕지역 + Me.급탕전력 Try - Return R - (Me.저감량열병합 + Me.저감량태양광) / (Me.난방전력 + Me.냉방전력 + Me.조명전력 + Me.환기전력 + Me.급탕전력) * Me.급탕전력 + Return R - (Me.저감량열병합 + Me.저감량태양광 + Me.저감량풍력) / (Me.난방전력 + Me.냉방전력 + Me.조명전력 + Me.환기전력 + Me.급탕전력) * Me.급탕전력 Catch ex As Exception End Try @@ -352,7 +352,7 @@ If MIdx = 0 Then Dim R As Decimal = Me.조명전력 Try - Return R - (Me.저감량열병합 + Me.저감량태양광) / (Me.난방전력 + Me.냉방전력 + Me.조명전력 + Me.환기전력 + Me.급탕전력) * Me.조명전력 + Return R - (Me.저감량열병합 + Me.저감량태양광 + Me.저감량풍력) / (Me.난방전력 + Me.냉방전력 + Me.조명전력 + Me.환기전력 + Me.급탕전력) * Me.조명전력 Catch ex As Exception End Try @@ -390,7 +390,7 @@ If MIdx = 0 Then Dim R As Decimal = Me.환기전력 Try - Return R - (Me.저감량열병합 + Me.저감량태양광) / (Me.난방전력 + Me.냉방전력 + Me.조명전력 + Me.환기전력 + Me.급탕전력) * Me.환기전력 + Return R - (Me.저감량열병합 + Me.저감량태양광 + Me.저감량풍력) / (Me.난방전력 + Me.냉방전력 + Me.조명전력 + Me.환기전력 + Me.급탕전력) * Me.환기전력 Catch ex As Exception End Try @@ -436,6 +436,20 @@ End If End Get End Property + ReadOnly Property 저감량풍력() As Decimal + Get + If Me.MIdx = 0 Then + Dim Res As Decimal = 0 + For i As Short = 1 To 12 + Res += Result.Co2발생량(i).저감량풍력 + Next + Return Res + Else + Return Result.생산E(MIdx).풍력전력생산량 * Result.Co2배출계수.전력 + End If + End Get + End Property + ReadOnly Property 저감량열병합() As Decimal Get If Me.MIdx = 0 Then diff --git a/ArinWarev1/Calculator/Result/C생산에너지.vb b/ArinWarev1/Calculator/Result/C생산에너지.vb index a10bf0d..f93c51b 100644 --- a/ArinWarev1/Calculator/Result/C생산에너지.vb +++ b/ArinWarev1/Calculator/Result/C생산에너지.vb @@ -100,6 +100,63 @@ 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 + ' MsgBox("풍력기록(" & Mon & ")") + DR(0)("전력풍력") = value + End If + End Set + End Property + Property 풍력전력생산량_offsite() 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).풍력전력생산량_offsite + Next + Return Res + Else + Return TOSG(DR(0)("전력풍력offsite")) + 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 + ' MsgBox("풍력기록(" & Mon & ")") + DR(0)("전력풍력offsite") = value + End If + End Set + End Property + Property 열병합전력생산량() As Decimal Get Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row()) @@ -241,6 +298,35 @@ 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()) @@ -269,6 +355,34 @@ 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()) @@ -296,5 +410,6 @@ Public Class C생산에너지 End If End Set End Property + End Class diff --git a/ArinWarev1/Calculator/Result/C에너지소요량.vb b/ArinWarev1/Calculator/Result/C에너지소요량.vb index 5aaaa11..aab5323 100644 --- a/ArinWarev1/Calculator/Result/C에너지소요량.vb +++ b/ArinWarev1/Calculator/Result/C에너지소요량.vb @@ -67,11 +67,11 @@ Me.급탕보조 = I60 If (I4 + I5 + I6 + I7 + I8 <> 0) Then - Me.난방S = IH - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I4 - Me.냉방S = IC - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I5 - Me.조명S = IL - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I6 - Me.급탕S = IW - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I7 - Me.환기S = IV - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I8 + Me.난방S = IH - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).풍력전력생산량 + Result.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I4 + Me.냉방S = IC - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).풍력전력생산량 + Result.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I5 + Me.조명S = IL - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).풍력전력생산량 + Result.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I6 + Me.급탕S = IW - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).풍력전력생산량 + Result.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I7 + Me.환기S = IV - (Result.생산E(0).태양광전력생산량 + Result.생산E(0).풍력전력생산량 + Result.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I8 End If End Sub diff --git a/ArinWarev1/DataSet/DS.Designer.vb b/ArinWarev1/DataSet/DS.Designer.vb index 88dd8c3..affcdd5 100644 --- a/ArinWarev1/DataSet/DS.Designer.vb +++ b/ArinWarev1/DataSet/DS.Designer.vb @@ -71,6 +71,12 @@ Partial Public Class DS Private tabletbl_Desc As tbl_DescDataTable + Private tableweather_wind As weather_windDataTable + + Private tableweather_river As weather_riverDataTable + + Private tableweather_water As weather_waterDataTable + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ + Public ReadOnly Property weather_wind() As weather_windDataTable + Get + Return Me.tableweather_wind + End Get + End Property + + _ + Public ReadOnly Property weather_river() As weather_riverDataTable + Get + Return Me.tableweather_river + End Get + End Property + + _ + Public ReadOnly Property weather_water() As weather_waterDataTable + Get + Return Me.tableweather_water + End Get + End Property + _ + Private Function ShouldSerializeweather_wind() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeweather_river() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeweather_water() As Boolean + Return false + End Function + _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) @@ -1058,6 +1154,15 @@ Partial Public Class DS _ Public Delegate Sub tbl_DescRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_DescRowChangeEvent) + _ + Public Delegate Sub weather_windRowChangeEventHandler(ByVal sender As Object, ByVal e As weather_windRowChangeEvent) + + _ + Public Delegate Sub weather_riverRowChangeEventHandler(ByVal sender As Object, ByVal e As weather_riverRowChangeEvent) + + _ + Public Delegate Sub weather_waterRowChangeEventHandler(ByVal sender As Object, ByVal e As weather_waterRowChangeEvent) + ''' '''Represents the strongly named DataTable class. ''' @@ -7846,6 +7951,34 @@ Partial Public Class DS 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수열_열성능비_난방5도 As Global.System.Data.DataColumn + + Private column수열_열성능비_난방15도 As Global.System.Data.DataColumn + + Private column수열_1차펌프동력 As Global.System.Data.DataColumn + + Private column수열_2차펌프동력 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수열_열성능비_냉방25도 As Global.System.Data.DataColumn + + Private column수열_열성능비_냉방35도 As Global.System.Data.DataColumn + + Private column대지외설치여부_풍력 As Global.System.Data.DataColumn + _ Public Sub New() @@ -8177,6 +8310,118 @@ Partial Public Class DS End Get End Property + _ + Public ReadOnly Property 풍력로우터회전면적Column() As Global.System.Data.DataColumn + Get + Return Me.column풍력로우터회전면적 + End Get + End Property + + _ + Public ReadOnly Property 풍력허브높이Column() As Global.System.Data.DataColumn + Get + Return Me.column풍력허브높이 + End Get + End Property + + _ + Public ReadOnly Property 수열_수열원Column() As Global.System.Data.DataColumn + Get + Return Me.column수열_수열원 + End Get + End Property + + _ + Public ReadOnly Property 수열_수열히트펌프용량Column() As Global.System.Data.DataColumn + Get + Return Me.column수열_수열히트펌프용량 + End Get + End Property + + _ + Public ReadOnly Property 수열_열성능비_난방5도Column() As Global.System.Data.DataColumn + Get + Return Me.column수열_열성능비_난방5도 + End Get + End Property + + _ + Public ReadOnly Property 수열_열성능비_난방15도Column() As Global.System.Data.DataColumn + Get + Return Me.column수열_열성능비_난방15도 + End Get + End Property + + _ + Public ReadOnly Property 수열_1차펌프동력Column() As Global.System.Data.DataColumn + Get + Return Me.column수열_1차펌프동력 + End Get + End Property + + _ + Public ReadOnly Property 수열_2차펌프동력Column() As Global.System.Data.DataColumn + Get + Return Me.column수열_2차펌프동력 + End Get + End Property + + _ + Public ReadOnly Property 수열_열교환기설치여부Column() As Global.System.Data.DataColumn + Get + Return Me.column수열_열교환기설치여부 + End Get + End Property + + _ + Public ReadOnly Property 수열_수열팽창탱크설치여부Column() As Global.System.Data.DataColumn + Get + Return Me.column수열_수열팽창탱크설치여부 + End Get + End Property + + _ + Public ReadOnly Property 수열_수열팽창탱크체적Column() As Global.System.Data.DataColumn + Get + Return Me.column수열_수열팽창탱크체적 + End Get + End Property + + _ + Public ReadOnly Property 수열_열성능비_냉방25도Column() As Global.System.Data.DataColumn + Get + Return Me.column수열_열성능비_냉방25도 + End Get + End Property + + _ + Public ReadOnly Property 수열_열성능비_냉방35도Column() As Global.System.Data.DataColumn + Get + Return Me.column수열_열성능비_냉방35도 + End Get + End Property + + _ + Public ReadOnly Property 대지외설치여부_풍력Column() As Global.System.Data.DataColumn + Get + Return Me.column대지외설치여부_풍력 + End Get + End Property + _ @@ -8251,9 +8496,23 @@ Partial Public Class DS ByVal 지열비고 As String, _ ByVal 열병합신재생여부 As Boolean, _ ByVal 태양광용량 As String, _ - ByVal 대지외설치여부 As Boolean) As tbl_newRow + ByVal 대지외설치여부 As Boolean, _ + ByVal 풍력로우터회전면적 As String, _ + ByVal 풍력허브높이 As String, _ + ByVal 수열_수열원 As String, _ + ByVal 수열_수열히트펌프용량 As String, _ + ByVal 수열_열성능비_난방5도 As String, _ + ByVal 수열_열성능비_난방15도 As String, _ + ByVal 수열_1차펌프동력 As String, _ + ByVal 수열_2차펌프동력 As String, _ + ByVal 수열_열교환기설치여부 As String, _ + ByVal 수열_수열팽창탱크설치여부 As String, _ + ByVal 수열_수열팽창탱크체적 As String, _ + ByVal 수열_열성능비_냉방25도 As String, _ + ByVal 수열_열성능비_냉방35도 As String, _ + ByVal 대지외설치여부_풍력 As Boolean) 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차, 열교환기설치여부, 팽창탱크설치여부, 팽창탱크체적, 열생산능력, 열생산효율, 발전효율, 태양광모듈효율, 지열비고, 열병합신재생여부, 태양광용량, 대지외설치여부} + Dim columnValuesArray() As Object = New Object() {code, 설명, 기기종류, 가동연료, 태양열종류, 집열기유형, 집열판면적, 집열판방위, 솔라펌프의정격출력, 태양열시스템의성능, 무손실효율계수, 열손실계수1차, 열손실계수2차, 축열탱크체적급탕, 축열탱크체적난방, 축열탱크설치장소, 태양광모듈면적, 태양광모듈기울기, 태양광모듈방위, 태양광모듈종류, 태양광모듈적용타입, 지열히트펌프용량, 열성능비난방, 열성능비냉방, 펌프용량1차, 펌프용량2차, 열교환기설치여부, 팽창탱크설치여부, 팽창탱크체적, 열생산능력, 열생산효율, 발전효율, 태양광모듈효율, 지열비고, 열병합신재생여부, 태양광용량, 대지외설치여부, 풍력로우터회전면적, 풍력허브높이, 수열_수열원, 수열_수열히트펌프용량, 수열_열성능비_난방5도, 수열_열성능비_난방15도, 수열_1차펌프동력, 수열_2차펌프동력, 수열_열교환기설치여부, 수열_수열팽창탱크설치여부, 수열_수열팽창탱크체적, 수열_열성능비_냉방25도, 수열_열성능비_냉방35도, 대지외설치여부_풍력} rowtbl_newRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_newRow) Return rowtbl_newRow @@ -8319,6 +8578,20 @@ Partial Public Class DS 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수열_열성능비_난방5도 = MyBase.Columns("수열_열성능비_난방5도") + Me.column수열_열성능비_난방15도 = MyBase.Columns("수열_열성능비_난방15도") + Me.column수열_1차펌프동력 = MyBase.Columns("수열_1차펌프동력") + Me.column수열_2차펌프동력 = MyBase.Columns("수열_2차펌프동력") + Me.column수열_열교환기설치여부 = MyBase.Columns("수열_열교환기설치여부") + Me.column수열_수열팽창탱크설치여부 = MyBase.Columns("수열_수열팽창탱크설치여부") + Me.column수열_수열팽창탱크체적 = MyBase.Columns("수열_수열팽창탱크체적") + Me.column수열_열성능비_냉방25도 = MyBase.Columns("수열_열성능비_냉방25도") + Me.column수열_열성능비_냉방35도 = MyBase.Columns("수열_열성능비_냉방35도") + Me.column대지외설치여부_풍력 = MyBase.Columns("대지외설치여부_풍력") End Sub _ Public Sub New() @@ -10301,6 +10613,38 @@ Partial Public Class DS End Get End Property + _ + Public ReadOnly Property 공기식태양열적용Column() As Global.System.Data.DataColumn + Get + Return Me.column공기식태양열적용 + End Get + End Property + + _ + Public ReadOnly Property 집열기방위Column() As Global.System.Data.DataColumn + Get + Return Me.column집열기방위 + End Get + End Property + + _ + Public ReadOnly Property 집열기면적Column() As Global.System.Data.DataColumn + Get + Return Me.column집열기면적 + End Get + End Property + + _ + Public ReadOnly Property 집열기방사율Column() As Global.System.Data.DataColumn + Get + Return Me.column집열기방사율 + End Get + End Property + _ @@ -10359,9 +10703,13 @@ Partial Public Class DS ByVal 급기풍량 As String, _ ByVal 배기풍량 As String, _ ByVal 급기팬동력 As String, _ - ByVal 배기팬동력 As String) As tbl_kongjoRow + ByVal 배기팬동력 As String, _ + ByVal 공기식태양열적용 As String, _ + ByVal 집열기방위 As String, _ + ByVal 집열기면적 As String, _ + ByVal 집열기방사율 As String) 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, 설명, 공조방식, 설정치난방, 설정치냉방, 최대풍량, 리턴공기혼합여부, 가습기유형, 외기냉방제어유무, 열교환기유형, 열회수율, 총압력손실급기팬, 총압력손실배기팬, 총효율급기팬, 총효율배기팬, 열회수율냉, 팬효율산출방식, 급기풍량, 배기풍량, 급기팬동력, 배기팬동력, 공기식태양열적용, 집열기방위, 집열기면적, 집열기방사율} rowtbl_kongjoRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_kongjoRow) Return rowtbl_kongjoRow @@ -10411,6 +10759,10 @@ Partial Public Class DS 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 + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class weather_windDataTable + Inherits Global.System.Data.TypedTableBase(Of weather_windRow) + + Private columnpcode As Global.System.Data.DataColumn + + Private columncode As Global.System.Data.DataColumn + + Private column설명 As Global.System.Data.DataColumn + + Private columnm01 As Global.System.Data.DataColumn + + Private columnm02 As Global.System.Data.DataColumn + + Private columnm03 As Global.System.Data.DataColumn + + Private columnm04 As Global.System.Data.DataColumn + + Private columnm05 As Global.System.Data.DataColumn + + Private columnm06 As Global.System.Data.DataColumn + + Private columnm07 As Global.System.Data.DataColumn + + Private columnm08 As Global.System.Data.DataColumn + + Private columnm09 As Global.System.Data.DataColumn + + Private columnm10 As Global.System.Data.DataColumn + + Private columnm11 As Global.System.Data.DataColumn + + Private columnm12 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "weather_wind" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property pcodeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnpcode + End Get + End Property + + _ + Public ReadOnly Property codeColumn() As Global.System.Data.DataColumn + Get + Return Me.columncode + End Get + End Property + + _ + Public ReadOnly Property 설명Column() As Global.System.Data.DataColumn + Get + Return Me.column설명 + End Get + End Property + + _ + Public ReadOnly Property m01Column() As Global.System.Data.DataColumn + Get + Return Me.columnm01 + End Get + End Property + + _ + Public ReadOnly Property m02Column() As Global.System.Data.DataColumn + Get + Return Me.columnm02 + End Get + End Property + + _ + Public ReadOnly Property m03Column() As Global.System.Data.DataColumn + Get + Return Me.columnm03 + End Get + End Property + + _ + Public ReadOnly Property m04Column() As Global.System.Data.DataColumn + Get + Return Me.columnm04 + End Get + End Property + + _ + Public ReadOnly Property m05Column() As Global.System.Data.DataColumn + Get + Return Me.columnm05 + End Get + End Property + + _ + Public ReadOnly Property m06Column() As Global.System.Data.DataColumn + Get + Return Me.columnm06 + End Get + End Property + + _ + Public ReadOnly Property m07Column() As Global.System.Data.DataColumn + Get + Return Me.columnm07 + End Get + End Property + + _ + Public ReadOnly Property m08Column() As Global.System.Data.DataColumn + Get + Return Me.columnm08 + End Get + End Property + + _ + Public ReadOnly Property m09Column() As Global.System.Data.DataColumn + Get + Return Me.columnm09 + End Get + End Property + + _ + Public ReadOnly Property m10Column() As Global.System.Data.DataColumn + Get + Return Me.columnm10 + End Get + End Property + + _ + Public ReadOnly Property m11Column() As Global.System.Data.DataColumn + Get + Return Me.columnm11 + End Get + End Property + + _ + Public ReadOnly Property m12Column() As Global.System.Data.DataColumn + Get + Return Me.columnm12 + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As weather_windRow + Get + Return CType(Me.Rows(index),weather_windRow) + End Get + End Property + + _ + Public Event weather_windRowChanging As weather_windRowChangeEventHandler + + _ + Public Event weather_windRowChanged As weather_windRowChangeEventHandler + + _ + Public Event weather_windRowDeleting As weather_windRowChangeEventHandler + + _ + Public Event weather_windRowDeleted As weather_windRowChangeEventHandler + + _ + Public Overloads Sub Addweather_windRow(ByVal row As weather_windRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addweather_windRow(ByVal pcode As String, ByVal code As String, ByVal 설명 As String, ByVal m01 As String, ByVal m02 As String, ByVal m03 As String, ByVal m04 As String, ByVal m05 As String, ByVal m06 As String, ByVal m07 As String, ByVal m08 As String, ByVal m09 As String, ByVal m10 As String, ByVal m11 As String, ByVal m12 As String) As weather_windRow + Dim rowweather_windRow As weather_windRow = CType(Me.NewRow,weather_windRow) + Dim columnValuesArray() As Object = New Object() {pcode, code, 설명, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12} + rowweather_windRow.ItemArray = columnValuesArray + Me.Rows.Add(rowweather_windRow) + Return rowweather_windRow + End Function + + _ + Public Function FindBypcodecode(ByVal pcode As String, ByVal code As String) As weather_windRow + Return CType(Me.Rows.Find(New Object() {pcode, code}),weather_windRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As weather_windDataTable = CType(MyBase.Clone,weather_windDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New weather_windDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnpcode = MyBase.Columns("pcode") + Me.columncode = MyBase.Columns("code") + Me.column설명 = MyBase.Columns("설명") + Me.columnm01 = MyBase.Columns("m01") + Me.columnm02 = MyBase.Columns("m02") + Me.columnm03 = MyBase.Columns("m03") + Me.columnm04 = MyBase.Columns("m04") + Me.columnm05 = MyBase.Columns("m05") + Me.columnm06 = MyBase.Columns("m06") + Me.columnm07 = MyBase.Columns("m07") + Me.columnm08 = MyBase.Columns("m08") + Me.columnm09 = MyBase.Columns("m09") + Me.columnm10 = MyBase.Columns("m10") + Me.columnm11 = MyBase.Columns("m11") + Me.columnm12 = MyBase.Columns("m12") + End Sub + + _ + Private Sub InitClass() + Me.columnpcode = New Global.System.Data.DataColumn("pcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnpcode) + Me.columncode = New Global.System.Data.DataColumn("code", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncode) + Me.column설명 = New Global.System.Data.DataColumn("설명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column설명) + Me.columnm01 = New Global.System.Data.DataColumn("m01", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm01) + Me.columnm02 = New Global.System.Data.DataColumn("m02", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm02) + Me.columnm03 = New Global.System.Data.DataColumn("m03", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm03) + Me.columnm04 = New Global.System.Data.DataColumn("m04", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm04) + Me.columnm05 = New Global.System.Data.DataColumn("m05", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm05) + Me.columnm06 = New Global.System.Data.DataColumn("m06", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm06) + Me.columnm07 = New Global.System.Data.DataColumn("m07", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm07) + Me.columnm08 = New Global.System.Data.DataColumn("m08", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm08) + Me.columnm09 = New Global.System.Data.DataColumn("m09", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm09) + Me.columnm10 = New Global.System.Data.DataColumn("m10", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm10) + Me.columnm11 = New Global.System.Data.DataColumn("m11", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm11) + Me.columnm12 = New Global.System.Data.DataColumn("m12", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm12) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnpcode, Me.columncode}, true)) + Me.columnpcode.AllowDBNull = false + Me.columnpcode.DefaultValue = CType("",String) + Me.columnpcode.MaxLength = 10 + Me.columncode.AllowDBNull = false + Me.columncode.DefaultValue = CType("",String) + Me.columncode.MaxLength = 10 + Me.column설명.DefaultValue = CType("",String) + Me.column설명.MaxLength = 255 + Me.columnm01.DefaultValue = CType("0",String) + Me.columnm01.MaxLength = 50 + Me.columnm02.DefaultValue = CType("0",String) + Me.columnm02.MaxLength = 50 + Me.columnm03.DefaultValue = CType("0",String) + Me.columnm03.MaxLength = 50 + Me.columnm04.DefaultValue = CType("0",String) + Me.columnm04.MaxLength = 50 + Me.columnm05.DefaultValue = CType("0",String) + Me.columnm05.MaxLength = 50 + Me.columnm06.DefaultValue = CType("0",String) + Me.columnm06.MaxLength = 50 + Me.columnm07.DefaultValue = CType("0",String) + Me.columnm07.MaxLength = 50 + Me.columnm08.DefaultValue = CType("0",String) + Me.columnm08.MaxLength = 50 + Me.columnm09.DefaultValue = CType("0",String) + Me.columnm09.MaxLength = 50 + Me.columnm10.DefaultValue = CType("0",String) + Me.columnm10.MaxLength = 50 + Me.columnm11.DefaultValue = CType("0",String) + Me.columnm11.MaxLength = 50 + Me.columnm12.DefaultValue = CType("0",String) + Me.columnm12.MaxLength = 50 + End Sub + + _ + Public Function Newweather_windRow() As weather_windRow + Return CType(Me.NewRow,weather_windRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New weather_windRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(weather_windRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.weather_windRowChangedEvent) Is Nothing) Then + RaiseEvent weather_windRowChanged(Me, New weather_windRowChangeEvent(CType(e.Row,weather_windRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.weather_windRowChangingEvent) Is Nothing) Then + RaiseEvent weather_windRowChanging(Me, New weather_windRowChangeEvent(CType(e.Row,weather_windRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.weather_windRowDeletedEvent) Is Nothing) Then + RaiseEvent weather_windRowDeleted(Me, New weather_windRowChangeEvent(CType(e.Row,weather_windRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.weather_windRowDeletingEvent) Is Nothing) Then + RaiseEvent weather_windRowDeleting(Me, New weather_windRowChangeEvent(CType(e.Row,weather_windRow), e.Action)) + End If + End Sub + + _ + Public Sub Removeweather_windRow(ByVal row As weather_windRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS = New DS() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "weather_windDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class weather_riverDataTable + Inherits Global.System.Data.TypedTableBase(Of weather_riverRow) + + Private columnpcode As Global.System.Data.DataColumn + + Private columncode As Global.System.Data.DataColumn + + Private column설명 As Global.System.Data.DataColumn + + Private columnm01 As Global.System.Data.DataColumn + + Private columnm02 As Global.System.Data.DataColumn + + Private columnm03 As Global.System.Data.DataColumn + + Private columnm04 As Global.System.Data.DataColumn + + Private columnm05 As Global.System.Data.DataColumn + + Private columnm06 As Global.System.Data.DataColumn + + Private columnm07 As Global.System.Data.DataColumn + + Private columnm08 As Global.System.Data.DataColumn + + Private columnm09 As Global.System.Data.DataColumn + + Private columnm10 As Global.System.Data.DataColumn + + Private columnm11 As Global.System.Data.DataColumn + + Private columnm12 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "weather_river" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property pcodeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnpcode + End Get + End Property + + _ + Public ReadOnly Property codeColumn() As Global.System.Data.DataColumn + Get + Return Me.columncode + End Get + End Property + + _ + Public ReadOnly Property 설명Column() As Global.System.Data.DataColumn + Get + Return Me.column설명 + End Get + End Property + + _ + Public ReadOnly Property m01Column() As Global.System.Data.DataColumn + Get + Return Me.columnm01 + End Get + End Property + + _ + Public ReadOnly Property m02Column() As Global.System.Data.DataColumn + Get + Return Me.columnm02 + End Get + End Property + + _ + Public ReadOnly Property m03Column() As Global.System.Data.DataColumn + Get + Return Me.columnm03 + End Get + End Property + + _ + Public ReadOnly Property m04Column() As Global.System.Data.DataColumn + Get + Return Me.columnm04 + End Get + End Property + + _ + Public ReadOnly Property m05Column() As Global.System.Data.DataColumn + Get + Return Me.columnm05 + End Get + End Property + + _ + Public ReadOnly Property m06Column() As Global.System.Data.DataColumn + Get + Return Me.columnm06 + End Get + End Property + + _ + Public ReadOnly Property m07Column() As Global.System.Data.DataColumn + Get + Return Me.columnm07 + End Get + End Property + + _ + Public ReadOnly Property m08Column() As Global.System.Data.DataColumn + Get + Return Me.columnm08 + End Get + End Property + + _ + Public ReadOnly Property m09Column() As Global.System.Data.DataColumn + Get + Return Me.columnm09 + End Get + End Property + + _ + Public ReadOnly Property m10Column() As Global.System.Data.DataColumn + Get + Return Me.columnm10 + End Get + End Property + + _ + Public ReadOnly Property m11Column() As Global.System.Data.DataColumn + Get + Return Me.columnm11 + End Get + End Property + + _ + Public ReadOnly Property m12Column() As Global.System.Data.DataColumn + Get + Return Me.columnm12 + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As weather_riverRow + Get + Return CType(Me.Rows(index),weather_riverRow) + End Get + End Property + + _ + Public Event weather_riverRowChanging As weather_riverRowChangeEventHandler + + _ + Public Event weather_riverRowChanged As weather_riverRowChangeEventHandler + + _ + Public Event weather_riverRowDeleting As weather_riverRowChangeEventHandler + + _ + Public Event weather_riverRowDeleted As weather_riverRowChangeEventHandler + + _ + Public Overloads Sub Addweather_riverRow(ByVal row As weather_riverRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addweather_riverRow(ByVal pcode As String, ByVal code As String, ByVal 설명 As String, ByVal m01 As String, ByVal m02 As String, ByVal m03 As String, ByVal m04 As String, ByVal m05 As String, ByVal m06 As String, ByVal m07 As String, ByVal m08 As String, ByVal m09 As String, ByVal m10 As String, ByVal m11 As String, ByVal m12 As String) As weather_riverRow + Dim rowweather_riverRow As weather_riverRow = CType(Me.NewRow,weather_riverRow) + Dim columnValuesArray() As Object = New Object() {pcode, code, 설명, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12} + rowweather_riverRow.ItemArray = columnValuesArray + Me.Rows.Add(rowweather_riverRow) + Return rowweather_riverRow + End Function + + _ + Public Function FindBypcodecode(ByVal pcode As String, ByVal code As String) As weather_riverRow + Return CType(Me.Rows.Find(New Object() {pcode, code}),weather_riverRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As weather_riverDataTable = CType(MyBase.Clone,weather_riverDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New weather_riverDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnpcode = MyBase.Columns("pcode") + Me.columncode = MyBase.Columns("code") + Me.column설명 = MyBase.Columns("설명") + Me.columnm01 = MyBase.Columns("m01") + Me.columnm02 = MyBase.Columns("m02") + Me.columnm03 = MyBase.Columns("m03") + Me.columnm04 = MyBase.Columns("m04") + Me.columnm05 = MyBase.Columns("m05") + Me.columnm06 = MyBase.Columns("m06") + Me.columnm07 = MyBase.Columns("m07") + Me.columnm08 = MyBase.Columns("m08") + Me.columnm09 = MyBase.Columns("m09") + Me.columnm10 = MyBase.Columns("m10") + Me.columnm11 = MyBase.Columns("m11") + Me.columnm12 = MyBase.Columns("m12") + End Sub + + _ + Private Sub InitClass() + Me.columnpcode = New Global.System.Data.DataColumn("pcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnpcode) + Me.columncode = New Global.System.Data.DataColumn("code", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncode) + Me.column설명 = New Global.System.Data.DataColumn("설명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column설명) + Me.columnm01 = New Global.System.Data.DataColumn("m01", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm01) + Me.columnm02 = New Global.System.Data.DataColumn("m02", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm02) + Me.columnm03 = New Global.System.Data.DataColumn("m03", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm03) + Me.columnm04 = New Global.System.Data.DataColumn("m04", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm04) + Me.columnm05 = New Global.System.Data.DataColumn("m05", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm05) + Me.columnm06 = New Global.System.Data.DataColumn("m06", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm06) + Me.columnm07 = New Global.System.Data.DataColumn("m07", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm07) + Me.columnm08 = New Global.System.Data.DataColumn("m08", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm08) + Me.columnm09 = New Global.System.Data.DataColumn("m09", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm09) + Me.columnm10 = New Global.System.Data.DataColumn("m10", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm10) + Me.columnm11 = New Global.System.Data.DataColumn("m11", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm11) + Me.columnm12 = New Global.System.Data.DataColumn("m12", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm12) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnpcode, Me.columncode}, true)) + Me.columnpcode.AllowDBNull = false + Me.columnpcode.DefaultValue = CType("",String) + Me.columnpcode.MaxLength = 10 + Me.columncode.AllowDBNull = false + Me.columncode.DefaultValue = CType("",String) + Me.columncode.MaxLength = 10 + Me.column설명.DefaultValue = CType("",String) + Me.column설명.MaxLength = 255 + Me.columnm01.DefaultValue = CType("0",String) + Me.columnm01.MaxLength = 50 + Me.columnm02.DefaultValue = CType("0",String) + Me.columnm02.MaxLength = 50 + Me.columnm03.DefaultValue = CType("0",String) + Me.columnm03.MaxLength = 50 + Me.columnm04.DefaultValue = CType("0",String) + Me.columnm04.MaxLength = 50 + Me.columnm05.DefaultValue = CType("0",String) + Me.columnm05.MaxLength = 50 + Me.columnm06.DefaultValue = CType("0",String) + Me.columnm06.MaxLength = 50 + Me.columnm07.DefaultValue = CType("0",String) + Me.columnm07.MaxLength = 50 + Me.columnm08.DefaultValue = CType("0",String) + Me.columnm08.MaxLength = 50 + Me.columnm09.DefaultValue = CType("0",String) + Me.columnm09.MaxLength = 50 + Me.columnm10.DefaultValue = CType("0",String) + Me.columnm10.MaxLength = 50 + Me.columnm11.DefaultValue = CType("0",String) + Me.columnm11.MaxLength = 50 + Me.columnm12.DefaultValue = CType("0",String) + Me.columnm12.MaxLength = 50 + End Sub + + _ + Public Function Newweather_riverRow() As weather_riverRow + Return CType(Me.NewRow,weather_riverRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New weather_riverRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(weather_riverRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.weather_riverRowChangedEvent) Is Nothing) Then + RaiseEvent weather_riverRowChanged(Me, New weather_riverRowChangeEvent(CType(e.Row,weather_riverRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.weather_riverRowChangingEvent) Is Nothing) Then + RaiseEvent weather_riverRowChanging(Me, New weather_riverRowChangeEvent(CType(e.Row,weather_riverRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.weather_riverRowDeletedEvent) Is Nothing) Then + RaiseEvent weather_riverRowDeleted(Me, New weather_riverRowChangeEvent(CType(e.Row,weather_riverRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.weather_riverRowDeletingEvent) Is Nothing) Then + RaiseEvent weather_riverRowDeleting(Me, New weather_riverRowChangeEvent(CType(e.Row,weather_riverRow), e.Action)) + End If + End Sub + + _ + Public Sub Removeweather_riverRow(ByVal row As weather_riverRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS = New DS() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "weather_riverDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class weather_waterDataTable + Inherits Global.System.Data.TypedTableBase(Of weather_waterRow) + + Private columnpcode As Global.System.Data.DataColumn + + Private columncode As Global.System.Data.DataColumn + + Private column설명 As Global.System.Data.DataColumn + + Private columnm01 As Global.System.Data.DataColumn + + Private columnm02 As Global.System.Data.DataColumn + + Private columnm03 As Global.System.Data.DataColumn + + Private columnm04 As Global.System.Data.DataColumn + + Private columnm05 As Global.System.Data.DataColumn + + Private columnm06 As Global.System.Data.DataColumn + + Private columnm07 As Global.System.Data.DataColumn + + Private columnm08 As Global.System.Data.DataColumn + + Private columnm09 As Global.System.Data.DataColumn + + Private columnm10 As Global.System.Data.DataColumn + + Private columnm11 As Global.System.Data.DataColumn + + Private columnm12 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "weather_water" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property pcodeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnpcode + End Get + End Property + + _ + Public ReadOnly Property codeColumn() As Global.System.Data.DataColumn + Get + Return Me.columncode + End Get + End Property + + _ + Public ReadOnly Property 설명Column() As Global.System.Data.DataColumn + Get + Return Me.column설명 + End Get + End Property + + _ + Public ReadOnly Property m01Column() As Global.System.Data.DataColumn + Get + Return Me.columnm01 + End Get + End Property + + _ + Public ReadOnly Property m02Column() As Global.System.Data.DataColumn + Get + Return Me.columnm02 + End Get + End Property + + _ + Public ReadOnly Property m03Column() As Global.System.Data.DataColumn + Get + Return Me.columnm03 + End Get + End Property + + _ + Public ReadOnly Property m04Column() As Global.System.Data.DataColumn + Get + Return Me.columnm04 + End Get + End Property + + _ + Public ReadOnly Property m05Column() As Global.System.Data.DataColumn + Get + Return Me.columnm05 + End Get + End Property + + _ + Public ReadOnly Property m06Column() As Global.System.Data.DataColumn + Get + Return Me.columnm06 + End Get + End Property + + _ + Public ReadOnly Property m07Column() As Global.System.Data.DataColumn + Get + Return Me.columnm07 + End Get + End Property + + _ + Public ReadOnly Property m08Column() As Global.System.Data.DataColumn + Get + Return Me.columnm08 + End Get + End Property + + _ + Public ReadOnly Property m09Column() As Global.System.Data.DataColumn + Get + Return Me.columnm09 + End Get + End Property + + _ + Public ReadOnly Property m10Column() As Global.System.Data.DataColumn + Get + Return Me.columnm10 + End Get + End Property + + _ + Public ReadOnly Property m11Column() As Global.System.Data.DataColumn + Get + Return Me.columnm11 + End Get + End Property + + _ + Public ReadOnly Property m12Column() As Global.System.Data.DataColumn + Get + Return Me.columnm12 + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As weather_waterRow + Get + Return CType(Me.Rows(index),weather_waterRow) + End Get + End Property + + _ + Public Event weather_waterRowChanging As weather_waterRowChangeEventHandler + + _ + Public Event weather_waterRowChanged As weather_waterRowChangeEventHandler + + _ + Public Event weather_waterRowDeleting As weather_waterRowChangeEventHandler + + _ + Public Event weather_waterRowDeleted As weather_waterRowChangeEventHandler + + _ + Public Overloads Sub Addweather_waterRow(ByVal row As weather_waterRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addweather_waterRow(ByVal pcode As String, ByVal code As String, ByVal 설명 As String, ByVal m01 As String, ByVal m02 As String, ByVal m03 As String, ByVal m04 As String, ByVal m05 As String, ByVal m06 As String, ByVal m07 As String, ByVal m08 As String, ByVal m09 As String, ByVal m10 As String, ByVal m11 As String, ByVal m12 As String) As weather_waterRow + Dim rowweather_waterRow As weather_waterRow = CType(Me.NewRow,weather_waterRow) + Dim columnValuesArray() As Object = New Object() {pcode, code, 설명, m01, m02, m03, m04, m05, m06, m07, m08, m09, m10, m11, m12} + rowweather_waterRow.ItemArray = columnValuesArray + Me.Rows.Add(rowweather_waterRow) + Return rowweather_waterRow + End Function + + _ + Public Function FindBypcodecode(ByVal pcode As String, ByVal code As String) As weather_waterRow + Return CType(Me.Rows.Find(New Object() {pcode, code}),weather_waterRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As weather_waterDataTable = CType(MyBase.Clone,weather_waterDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New weather_waterDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnpcode = MyBase.Columns("pcode") + Me.columncode = MyBase.Columns("code") + Me.column설명 = MyBase.Columns("설명") + Me.columnm01 = MyBase.Columns("m01") + Me.columnm02 = MyBase.Columns("m02") + Me.columnm03 = MyBase.Columns("m03") + Me.columnm04 = MyBase.Columns("m04") + Me.columnm05 = MyBase.Columns("m05") + Me.columnm06 = MyBase.Columns("m06") + Me.columnm07 = MyBase.Columns("m07") + Me.columnm08 = MyBase.Columns("m08") + Me.columnm09 = MyBase.Columns("m09") + Me.columnm10 = MyBase.Columns("m10") + Me.columnm11 = MyBase.Columns("m11") + Me.columnm12 = MyBase.Columns("m12") + End Sub + + _ + Private Sub InitClass() + Me.columnpcode = New Global.System.Data.DataColumn("pcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnpcode) + Me.columncode = New Global.System.Data.DataColumn("code", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncode) + Me.column설명 = New Global.System.Data.DataColumn("설명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column설명) + Me.columnm01 = New Global.System.Data.DataColumn("m01", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm01) + Me.columnm02 = New Global.System.Data.DataColumn("m02", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm02) + Me.columnm03 = New Global.System.Data.DataColumn("m03", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm03) + Me.columnm04 = New Global.System.Data.DataColumn("m04", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm04) + Me.columnm05 = New Global.System.Data.DataColumn("m05", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm05) + Me.columnm06 = New Global.System.Data.DataColumn("m06", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm06) + Me.columnm07 = New Global.System.Data.DataColumn("m07", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm07) + Me.columnm08 = New Global.System.Data.DataColumn("m08", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm08) + Me.columnm09 = New Global.System.Data.DataColumn("m09", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm09) + Me.columnm10 = New Global.System.Data.DataColumn("m10", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm10) + Me.columnm11 = New Global.System.Data.DataColumn("m11", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm11) + Me.columnm12 = New Global.System.Data.DataColumn("m12", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnm12) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnpcode, Me.columncode}, true)) + Me.columnpcode.AllowDBNull = false + Me.columnpcode.DefaultValue = CType("",String) + Me.columnpcode.MaxLength = 10 + Me.columncode.AllowDBNull = false + Me.columncode.DefaultValue = CType("",String) + Me.columncode.MaxLength = 10 + Me.column설명.DefaultValue = CType("",String) + Me.column설명.MaxLength = 255 + Me.columnm01.DefaultValue = CType("0",String) + Me.columnm01.MaxLength = 50 + Me.columnm02.DefaultValue = CType("0",String) + Me.columnm02.MaxLength = 50 + Me.columnm03.DefaultValue = CType("0",String) + Me.columnm03.MaxLength = 50 + Me.columnm04.DefaultValue = CType("0",String) + Me.columnm04.MaxLength = 50 + Me.columnm05.DefaultValue = CType("0",String) + Me.columnm05.MaxLength = 50 + Me.columnm06.DefaultValue = CType("0",String) + Me.columnm06.MaxLength = 50 + Me.columnm07.DefaultValue = CType("0",String) + Me.columnm07.MaxLength = 50 + Me.columnm08.DefaultValue = CType("0",String) + Me.columnm08.MaxLength = 50 + Me.columnm09.DefaultValue = CType("0",String) + Me.columnm09.MaxLength = 50 + Me.columnm10.DefaultValue = CType("0",String) + Me.columnm10.MaxLength = 50 + Me.columnm11.DefaultValue = CType("0",String) + Me.columnm11.MaxLength = 50 + Me.columnm12.DefaultValue = CType("0",String) + Me.columnm12.MaxLength = 50 + End Sub + + _ + Public Function Newweather_waterRow() As weather_waterRow + Return CType(Me.NewRow,weather_waterRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New weather_waterRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(weather_waterRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.weather_waterRowChangedEvent) Is Nothing) Then + RaiseEvent weather_waterRowChanged(Me, New weather_waterRowChangeEvent(CType(e.Row,weather_waterRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.weather_waterRowChangingEvent) Is Nothing) Then + RaiseEvent weather_waterRowChanging(Me, New weather_waterRowChangeEvent(CType(e.Row,weather_waterRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.weather_waterRowDeletedEvent) Is Nothing) Then + RaiseEvent weather_waterRowDeleted(Me, New weather_waterRowChangeEvent(CType(e.Row,weather_waterRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.weather_waterRowDeletingEvent) Is Nothing) Then + RaiseEvent weather_waterRowDeleting(Me, New weather_waterRowChangeEvent(CType(e.Row,weather_waterRow), e.Action)) + End If + End Sub + + _ + Public Sub Removeweather_waterRow(ByVal row As weather_waterRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS = New DS() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "weather_waterDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + ''' '''Represents strongly named DataRow class. ''' @@ -20967,6 +22748,216 @@ Partial Public Class DS End Set End Property + _ + Public Property 풍력로우터회전면적() As String + Get + If Me.Is풍력로우터회전면적Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_new.풍력로우터회전면적Column),String) + End If + End Get + Set + Me(Me.tabletbl_new.풍력로우터회전면적Column) = value + End Set + End Property + + _ + Public Property 풍력허브높이() As String + Get + If Me.Is풍력허브높이Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_new.풍력허브높이Column),String) + End If + End Get + Set + Me(Me.tabletbl_new.풍력허브높이Column) = value + End Set + End Property + + _ + Public Property 수열_수열원() As String + Get + If Me.Is수열_수열원Null Then + Return "하천수" + Else + Return CType(Me(Me.tabletbl_new.수열_수열원Column),String) + End If + End Get + Set + Me(Me.tabletbl_new.수열_수열원Column) = value + End Set + End Property + + _ + Public Property 수열_수열히트펌프용량() As String + Get + If Me.Is수열_수열히트펌프용량Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_new.수열_수열히트펌프용량Column),String) + End If + End Get + Set + Me(Me.tabletbl_new.수열_수열히트펌프용량Column) = value + End Set + End Property + + _ + Public Property 수열_열성능비_난방5도() As String + Get + If Me.Is수열_열성능비_난방5도Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_new.수열_열성능비_난방5도Column),String) + End If + End Get + Set + Me(Me.tabletbl_new.수열_열성능비_난방5도Column) = value + End Set + End Property + + _ + Public Property 수열_열성능비_난방15도() As String + Get + If Me.Is수열_열성능비_난방15도Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_new.수열_열성능비_난방15도Column),String) + End If + End Get + Set + Me(Me.tabletbl_new.수열_열성능비_난방15도Column) = value + End Set + End Property + + _ + Public Property 수열_1차펌프동력() As String + Get + If Me.Is수열_1차펌프동력Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_new.수열_1차펌프동력Column),String) + End If + End Get + Set + Me(Me.tabletbl_new.수열_1차펌프동력Column) = value + End Set + End Property + + _ + Public Property 수열_2차펌프동력() As String + Get + If Me.Is수열_2차펌프동력Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_new.수열_2차펌프동력Column),String) + End If + End Get + Set + Me(Me.tabletbl_new.수열_2차펌프동력Column) = value + End Set + End Property + + _ + Public Property 수열_열교환기설치여부() As String + Get + If Me.Is수열_열교환기설치여부Null Then + Return "예" + Else + Return CType(Me(Me.tabletbl_new.수열_열교환기설치여부Column),String) + End If + End Get + Set + Me(Me.tabletbl_new.수열_열교환기설치여부Column) = value + End Set + End Property + + _ + Public Property 수열_수열팽창탱크설치여부() As String + Get + If Me.Is수열_수열팽창탱크설치여부Null Then + Return "예" + Else + Return CType(Me(Me.tabletbl_new.수열_수열팽창탱크설치여부Column),String) + End If + End Get + Set + Me(Me.tabletbl_new.수열_수열팽창탱크설치여부Column) = value + End Set + End Property + + _ + Public Property 수열_수열팽창탱크체적() As String + Get + If Me.Is수열_수열팽창탱크체적Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_new.수열_수열팽창탱크체적Column),String) + End If + End Get + Set + Me(Me.tabletbl_new.수열_수열팽창탱크체적Column) = value + End Set + End Property + + _ + Public Property 수열_열성능비_냉방25도() As String + Get + If Me.Is수열_열성능비_냉방25도Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_new.수열_열성능비_냉방25도Column),String) + End If + End Get + Set + Me(Me.tabletbl_new.수열_열성능비_냉방25도Column) = value + End Set + End Property + + _ + Public Property 수열_열성능비_냉방35도() As String + Get + If Me.Is수열_열성능비_냉방35도Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_new.수열_열성능비_냉방35도Column),String) + End If + End Get + Set + Me(Me.tabletbl_new.수열_열성능비_냉방35도Column) = value + End Set + End Property + + _ + Public Property 대지외설치여부_풍력() As Boolean + Get + If Me.Is대지외설치여부_풍력Null Then + Return false + Else + Return CType(Me(Me.tabletbl_new.대지외설치여부_풍력Column),Boolean) + End If + End Get + Set + Me(Me.tabletbl_new.대지외설치여부_풍력Column) = value + End Set + End Property + _ Public Function Is설명Null() As Boolean @@ -21398,6 +23389,174 @@ Partial Public Class DS Public Sub Set대지외설치여부Null() Me(Me.tabletbl_new.대지외설치여부Column) = Global.System.Convert.DBNull End Sub + + _ + Public Function Is풍력로우터회전면적Null() As Boolean + Return Me.IsNull(Me.tabletbl_new.풍력로우터회전면적Column) + End Function + + _ + Public Sub Set풍력로우터회전면적Null() + Me(Me.tabletbl_new.풍력로우터회전면적Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is풍력허브높이Null() As Boolean + Return Me.IsNull(Me.tabletbl_new.풍력허브높이Column) + End Function + + _ + Public Sub Set풍력허브높이Null() + Me(Me.tabletbl_new.풍력허브높이Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is수열_수열원Null() As Boolean + Return Me.IsNull(Me.tabletbl_new.수열_수열원Column) + End Function + + _ + Public Sub Set수열_수열원Null() + Me(Me.tabletbl_new.수열_수열원Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is수열_수열히트펌프용량Null() As Boolean + Return Me.IsNull(Me.tabletbl_new.수열_수열히트펌프용량Column) + End Function + + _ + Public Sub Set수열_수열히트펌프용량Null() + Me(Me.tabletbl_new.수열_수열히트펌프용량Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is수열_열성능비_난방5도Null() As Boolean + Return Me.IsNull(Me.tabletbl_new.수열_열성능비_난방5도Column) + End Function + + _ + Public Sub Set수열_열성능비_난방5도Null() + Me(Me.tabletbl_new.수열_열성능비_난방5도Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is수열_열성능비_난방15도Null() As Boolean + Return Me.IsNull(Me.tabletbl_new.수열_열성능비_난방15도Column) + End Function + + _ + Public Sub Set수열_열성능비_난방15도Null() + Me(Me.tabletbl_new.수열_열성능비_난방15도Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is수열_1차펌프동력Null() As Boolean + Return Me.IsNull(Me.tabletbl_new.수열_1차펌프동력Column) + End Function + + _ + Public Sub Set수열_1차펌프동력Null() + Me(Me.tabletbl_new.수열_1차펌프동력Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is수열_2차펌프동력Null() As Boolean + Return Me.IsNull(Me.tabletbl_new.수열_2차펌프동력Column) + End Function + + _ + Public Sub Set수열_2차펌프동력Null() + Me(Me.tabletbl_new.수열_2차펌프동력Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is수열_열교환기설치여부Null() As Boolean + Return Me.IsNull(Me.tabletbl_new.수열_열교환기설치여부Column) + End Function + + _ + Public Sub Set수열_열교환기설치여부Null() + Me(Me.tabletbl_new.수열_열교환기설치여부Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is수열_수열팽창탱크설치여부Null() As Boolean + Return Me.IsNull(Me.tabletbl_new.수열_수열팽창탱크설치여부Column) + End Function + + _ + Public Sub Set수열_수열팽창탱크설치여부Null() + Me(Me.tabletbl_new.수열_수열팽창탱크설치여부Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is수열_수열팽창탱크체적Null() As Boolean + Return Me.IsNull(Me.tabletbl_new.수열_수열팽창탱크체적Column) + End Function + + _ + Public Sub Set수열_수열팽창탱크체적Null() + Me(Me.tabletbl_new.수열_수열팽창탱크체적Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is수열_열성능비_냉방25도Null() As Boolean + Return Me.IsNull(Me.tabletbl_new.수열_열성능비_냉방25도Column) + End Function + + _ + Public Sub Set수열_열성능비_냉방25도Null() + Me(Me.tabletbl_new.수열_열성능비_냉방25도Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is수열_열성능비_냉방35도Null() As Boolean + Return Me.IsNull(Me.tabletbl_new.수열_열성능비_냉방35도Column) + End Function + + _ + Public Sub Set수열_열성능비_냉방35도Null() + Me(Me.tabletbl_new.수열_열성능비_냉방35도Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is대지외설치여부_풍력Null() As Boolean + Return Me.IsNull(Me.tabletbl_new.대지외설치여부_풍력Column) + End Function + + _ + Public Sub Set대지외설치여부_풍력Null() + Me(Me.tabletbl_new.대지외설치여부_풍력Column) = Global.System.Convert.DBNull + End Sub End Class ''' @@ -23103,6 +25262,66 @@ Partial Public Class DS End Set End Property + _ + Public Property 공기식태양열적용() As String + Get + If Me.Is공기식태양열적용Null Then + Return "아니오" + Else + Return CType(Me(Me.tabletbl_kongjo.공기식태양열적용Column),String) + End If + End Get + Set + Me(Me.tabletbl_kongjo.공기식태양열적용Column) = value + End Set + End Property + + _ + Public Property 집열기방위() As String + Get + If Me.Is집열기방위Null Then + Return "없음" + Else + Return CType(Me(Me.tabletbl_kongjo.집열기방위Column),String) + End If + End Get + Set + Me(Me.tabletbl_kongjo.집열기방위Column) = value + End Set + End Property + + _ + Public Property 집열기면적() As String + Get + If Me.Is집열기면적Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_kongjo.집열기면적Column),String) + End If + End Get + Set + Me(Me.tabletbl_kongjo.집열기면적Column) = value + End Set + End Property + + _ + Public Property 집열기방사율() As String + Get + If Me.Is집열기방사율Null Then + Return "0" + Else + Return CType(Me(Me.tabletbl_kongjo.집열기방사율Column),String) + End If + End Get + Set + Me(Me.tabletbl_kongjo.집열기방사율Column) = value + End Set + End Property + _ Public Function Is설명Null() As Boolean @@ -23342,6 +25561,54 @@ Partial Public Class DS Public Sub Set배기팬동력Null() Me(Me.tabletbl_kongjo.배기팬동력Column) = Global.System.Convert.DBNull End Sub + + _ + Public Function Is공기식태양열적용Null() As Boolean + Return Me.IsNull(Me.tabletbl_kongjo.공기식태양열적용Column) + End Function + + _ + Public Sub Set공기식태양열적용Null() + Me(Me.tabletbl_kongjo.공기식태양열적용Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is집열기방위Null() As Boolean + Return Me.IsNull(Me.tabletbl_kongjo.집열기방위Column) + End Function + + _ + Public Sub Set집열기방위Null() + Me(Me.tabletbl_kongjo.집열기방위Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is집열기면적Null() As Boolean + Return Me.IsNull(Me.tabletbl_kongjo.집열기면적Column) + End Function + + _ + Public Sub Set집열기면적Null() + Me(Me.tabletbl_kongjo.집열기면적Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is집열기방사율Null() As Boolean + Return Me.IsNull(Me.tabletbl_kongjo.집열기방사율Column) + End Function + + _ + Public Sub Set집열기방사율Null() + Me(Me.tabletbl_kongjo.집열기방사율Column) = Global.System.Convert.DBNull + End Sub End Class ''' @@ -26525,6 +28792,1173 @@ Partial Public Class DS End Sub End Class + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class weather_windRow + Inherits Global.System.Data.DataRow + + Private tableweather_wind As weather_windDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableweather_wind = CType(Me.Table,weather_windDataTable) + End Sub + + _ + Public Property pcode() As String + Get + Return CType(Me(Me.tableweather_wind.pcodeColumn),String) + End Get + Set + Me(Me.tableweather_wind.pcodeColumn) = value + End Set + End Property + + _ + Public Property code() As String + Get + Return CType(Me(Me.tableweather_wind.codeColumn),String) + End Get + Set + Me(Me.tableweather_wind.codeColumn) = value + End Set + End Property + + _ + Public Property 설명() As String + Get + If Me.Is설명Null Then + Return "" + Else + Return CType(Me(Me.tableweather_wind.설명Column),String) + End If + End Get + Set + Me(Me.tableweather_wind.설명Column) = value + End Set + End Property + + _ + Public Property m01() As String + Get + If Me.Ism01Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_wind.m01Column),String) + End If + End Get + Set + Me(Me.tableweather_wind.m01Column) = value + End Set + End Property + + _ + Public Property m02() As String + Get + If Me.Ism02Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_wind.m02Column),String) + End If + End Get + Set + Me(Me.tableweather_wind.m02Column) = value + End Set + End Property + + _ + Public Property m03() As String + Get + If Me.Ism03Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_wind.m03Column),String) + End If + End Get + Set + Me(Me.tableweather_wind.m03Column) = value + End Set + End Property + + _ + Public Property m04() As String + Get + If Me.Ism04Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_wind.m04Column),String) + End If + End Get + Set + Me(Me.tableweather_wind.m04Column) = value + End Set + End Property + + _ + Public Property m05() As String + Get + If Me.Ism05Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_wind.m05Column),String) + End If + End Get + Set + Me(Me.tableweather_wind.m05Column) = value + End Set + End Property + + _ + Public Property m06() As String + Get + If Me.Ism06Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_wind.m06Column),String) + End If + End Get + Set + Me(Me.tableweather_wind.m06Column) = value + End Set + End Property + + _ + Public Property m07() As String + Get + If Me.Ism07Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_wind.m07Column),String) + End If + End Get + Set + Me(Me.tableweather_wind.m07Column) = value + End Set + End Property + + _ + Public Property m08() As String + Get + If Me.Ism08Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_wind.m08Column),String) + End If + End Get + Set + Me(Me.tableweather_wind.m08Column) = value + End Set + End Property + + _ + Public Property m09() As String + Get + If Me.Ism09Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_wind.m09Column),String) + End If + End Get + Set + Me(Me.tableweather_wind.m09Column) = value + End Set + End Property + + _ + Public Property m10() As String + Get + If Me.Ism10Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_wind.m10Column),String) + End If + End Get + Set + Me(Me.tableweather_wind.m10Column) = value + End Set + End Property + + _ + Public Property m11() As String + Get + If Me.Ism11Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_wind.m11Column),String) + End If + End Get + Set + Me(Me.tableweather_wind.m11Column) = value + End Set + End Property + + _ + Public Property m12() As String + Get + If Me.Ism12Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_wind.m12Column),String) + End If + End Get + Set + Me(Me.tableweather_wind.m12Column) = value + End Set + End Property + + _ + Public Function Is설명Null() As Boolean + Return Me.IsNull(Me.tableweather_wind.설명Column) + End Function + + _ + Public Sub Set설명Null() + Me(Me.tableweather_wind.설명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism01Null() As Boolean + Return Me.IsNull(Me.tableweather_wind.m01Column) + End Function + + _ + Public Sub Setm01Null() + Me(Me.tableweather_wind.m01Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism02Null() As Boolean + Return Me.IsNull(Me.tableweather_wind.m02Column) + End Function + + _ + Public Sub Setm02Null() + Me(Me.tableweather_wind.m02Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism03Null() As Boolean + Return Me.IsNull(Me.tableweather_wind.m03Column) + End Function + + _ + Public Sub Setm03Null() + Me(Me.tableweather_wind.m03Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism04Null() As Boolean + Return Me.IsNull(Me.tableweather_wind.m04Column) + End Function + + _ + Public Sub Setm04Null() + Me(Me.tableweather_wind.m04Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism05Null() As Boolean + Return Me.IsNull(Me.tableweather_wind.m05Column) + End Function + + _ + Public Sub Setm05Null() + Me(Me.tableweather_wind.m05Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism06Null() As Boolean + Return Me.IsNull(Me.tableweather_wind.m06Column) + End Function + + _ + Public Sub Setm06Null() + Me(Me.tableweather_wind.m06Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism07Null() As Boolean + Return Me.IsNull(Me.tableweather_wind.m07Column) + End Function + + _ + Public Sub Setm07Null() + Me(Me.tableweather_wind.m07Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism08Null() As Boolean + Return Me.IsNull(Me.tableweather_wind.m08Column) + End Function + + _ + Public Sub Setm08Null() + Me(Me.tableweather_wind.m08Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism09Null() As Boolean + Return Me.IsNull(Me.tableweather_wind.m09Column) + End Function + + _ + Public Sub Setm09Null() + Me(Me.tableweather_wind.m09Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism10Null() As Boolean + Return Me.IsNull(Me.tableweather_wind.m10Column) + End Function + + _ + Public Sub Setm10Null() + Me(Me.tableweather_wind.m10Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism11Null() As Boolean + Return Me.IsNull(Me.tableweather_wind.m11Column) + End Function + + _ + Public Sub Setm11Null() + Me(Me.tableweather_wind.m11Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism12Null() As Boolean + Return Me.IsNull(Me.tableweather_wind.m12Column) + End Function + + _ + Public Sub Setm12Null() + Me(Me.tableweather_wind.m12Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class weather_riverRow + Inherits Global.System.Data.DataRow + + Private tableweather_river As weather_riverDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableweather_river = CType(Me.Table,weather_riverDataTable) + End Sub + + _ + Public Property pcode() As String + Get + Return CType(Me(Me.tableweather_river.pcodeColumn),String) + End Get + Set + Me(Me.tableweather_river.pcodeColumn) = value + End Set + End Property + + _ + Public Property code() As String + Get + Return CType(Me(Me.tableweather_river.codeColumn),String) + End Get + Set + Me(Me.tableweather_river.codeColumn) = value + End Set + End Property + + _ + Public Property 설명() As String + Get + If Me.Is설명Null Then + Return "" + Else + Return CType(Me(Me.tableweather_river.설명Column),String) + End If + End Get + Set + Me(Me.tableweather_river.설명Column) = value + End Set + End Property + + _ + Public Property m01() As String + Get + If Me.Ism01Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_river.m01Column),String) + End If + End Get + Set + Me(Me.tableweather_river.m01Column) = value + End Set + End Property + + _ + Public Property m02() As String + Get + If Me.Ism02Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_river.m02Column),String) + End If + End Get + Set + Me(Me.tableweather_river.m02Column) = value + End Set + End Property + + _ + Public Property m03() As String + Get + If Me.Ism03Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_river.m03Column),String) + End If + End Get + Set + Me(Me.tableweather_river.m03Column) = value + End Set + End Property + + _ + Public Property m04() As String + Get + If Me.Ism04Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_river.m04Column),String) + End If + End Get + Set + Me(Me.tableweather_river.m04Column) = value + End Set + End Property + + _ + Public Property m05() As String + Get + If Me.Ism05Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_river.m05Column),String) + End If + End Get + Set + Me(Me.tableweather_river.m05Column) = value + End Set + End Property + + _ + Public Property m06() As String + Get + If Me.Ism06Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_river.m06Column),String) + End If + End Get + Set + Me(Me.tableweather_river.m06Column) = value + End Set + End Property + + _ + Public Property m07() As String + Get + If Me.Ism07Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_river.m07Column),String) + End If + End Get + Set + Me(Me.tableweather_river.m07Column) = value + End Set + End Property + + _ + Public Property m08() As String + Get + If Me.Ism08Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_river.m08Column),String) + End If + End Get + Set + Me(Me.tableweather_river.m08Column) = value + End Set + End Property + + _ + Public Property m09() As String + Get + If Me.Ism09Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_river.m09Column),String) + End If + End Get + Set + Me(Me.tableweather_river.m09Column) = value + End Set + End Property + + _ + Public Property m10() As String + Get + If Me.Ism10Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_river.m10Column),String) + End If + End Get + Set + Me(Me.tableweather_river.m10Column) = value + End Set + End Property + + _ + Public Property m11() As String + Get + If Me.Ism11Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_river.m11Column),String) + End If + End Get + Set + Me(Me.tableweather_river.m11Column) = value + End Set + End Property + + _ + Public Property m12() As String + Get + If Me.Ism12Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_river.m12Column),String) + End If + End Get + Set + Me(Me.tableweather_river.m12Column) = value + End Set + End Property + + _ + Public Function Is설명Null() As Boolean + Return Me.IsNull(Me.tableweather_river.설명Column) + End Function + + _ + Public Sub Set설명Null() + Me(Me.tableweather_river.설명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism01Null() As Boolean + Return Me.IsNull(Me.tableweather_river.m01Column) + End Function + + _ + Public Sub Setm01Null() + Me(Me.tableweather_river.m01Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism02Null() As Boolean + Return Me.IsNull(Me.tableweather_river.m02Column) + End Function + + _ + Public Sub Setm02Null() + Me(Me.tableweather_river.m02Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism03Null() As Boolean + Return Me.IsNull(Me.tableweather_river.m03Column) + End Function + + _ + Public Sub Setm03Null() + Me(Me.tableweather_river.m03Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism04Null() As Boolean + Return Me.IsNull(Me.tableweather_river.m04Column) + End Function + + _ + Public Sub Setm04Null() + Me(Me.tableweather_river.m04Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism05Null() As Boolean + Return Me.IsNull(Me.tableweather_river.m05Column) + End Function + + _ + Public Sub Setm05Null() + Me(Me.tableweather_river.m05Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism06Null() As Boolean + Return Me.IsNull(Me.tableweather_river.m06Column) + End Function + + _ + Public Sub Setm06Null() + Me(Me.tableweather_river.m06Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism07Null() As Boolean + Return Me.IsNull(Me.tableweather_river.m07Column) + End Function + + _ + Public Sub Setm07Null() + Me(Me.tableweather_river.m07Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism08Null() As Boolean + Return Me.IsNull(Me.tableweather_river.m08Column) + End Function + + _ + Public Sub Setm08Null() + Me(Me.tableweather_river.m08Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism09Null() As Boolean + Return Me.IsNull(Me.tableweather_river.m09Column) + End Function + + _ + Public Sub Setm09Null() + Me(Me.tableweather_river.m09Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism10Null() As Boolean + Return Me.IsNull(Me.tableweather_river.m10Column) + End Function + + _ + Public Sub Setm10Null() + Me(Me.tableweather_river.m10Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism11Null() As Boolean + Return Me.IsNull(Me.tableweather_river.m11Column) + End Function + + _ + Public Sub Setm11Null() + Me(Me.tableweather_river.m11Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism12Null() As Boolean + Return Me.IsNull(Me.tableweather_river.m12Column) + End Function + + _ + Public Sub Setm12Null() + Me(Me.tableweather_river.m12Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class weather_waterRow + Inherits Global.System.Data.DataRow + + Private tableweather_water As weather_waterDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableweather_water = CType(Me.Table,weather_waterDataTable) + End Sub + + _ + Public Property pcode() As String + Get + Return CType(Me(Me.tableweather_water.pcodeColumn),String) + End Get + Set + Me(Me.tableweather_water.pcodeColumn) = value + End Set + End Property + + _ + Public Property code() As String + Get + Return CType(Me(Me.tableweather_water.codeColumn),String) + End Get + Set + Me(Me.tableweather_water.codeColumn) = value + End Set + End Property + + _ + Public Property 설명() As String + Get + If Me.Is설명Null Then + Return "" + Else + Return CType(Me(Me.tableweather_water.설명Column),String) + End If + End Get + Set + Me(Me.tableweather_water.설명Column) = value + End Set + End Property + + _ + Public Property m01() As String + Get + If Me.Ism01Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_water.m01Column),String) + End If + End Get + Set + Me(Me.tableweather_water.m01Column) = value + End Set + End Property + + _ + Public Property m02() As String + Get + If Me.Ism02Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_water.m02Column),String) + End If + End Get + Set + Me(Me.tableweather_water.m02Column) = value + End Set + End Property + + _ + Public Property m03() As String + Get + If Me.Ism03Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_water.m03Column),String) + End If + End Get + Set + Me(Me.tableweather_water.m03Column) = value + End Set + End Property + + _ + Public Property m04() As String + Get + If Me.Ism04Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_water.m04Column),String) + End If + End Get + Set + Me(Me.tableweather_water.m04Column) = value + End Set + End Property + + _ + Public Property m05() As String + Get + If Me.Ism05Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_water.m05Column),String) + End If + End Get + Set + Me(Me.tableweather_water.m05Column) = value + End Set + End Property + + _ + Public Property m06() As String + Get + If Me.Ism06Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_water.m06Column),String) + End If + End Get + Set + Me(Me.tableweather_water.m06Column) = value + End Set + End Property + + _ + Public Property m07() As String + Get + If Me.Ism07Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_water.m07Column),String) + End If + End Get + Set + Me(Me.tableweather_water.m07Column) = value + End Set + End Property + + _ + Public Property m08() As String + Get + If Me.Ism08Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_water.m08Column),String) + End If + End Get + Set + Me(Me.tableweather_water.m08Column) = value + End Set + End Property + + _ + Public Property m09() As String + Get + If Me.Ism09Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_water.m09Column),String) + End If + End Get + Set + Me(Me.tableweather_water.m09Column) = value + End Set + End Property + + _ + Public Property m10() As String + Get + If Me.Ism10Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_water.m10Column),String) + End If + End Get + Set + Me(Me.tableweather_water.m10Column) = value + End Set + End Property + + _ + Public Property m11() As String + Get + If Me.Ism11Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_water.m11Column),String) + End If + End Get + Set + Me(Me.tableweather_water.m11Column) = value + End Set + End Property + + _ + Public Property m12() As String + Get + If Me.Ism12Null Then + Return "0" + Else + Return CType(Me(Me.tableweather_water.m12Column),String) + End If + End Get + Set + Me(Me.tableweather_water.m12Column) = value + End Set + End Property + + _ + Public Function Is설명Null() As Boolean + Return Me.IsNull(Me.tableweather_water.설명Column) + End Function + + _ + Public Sub Set설명Null() + Me(Me.tableweather_water.설명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism01Null() As Boolean + Return Me.IsNull(Me.tableweather_water.m01Column) + End Function + + _ + Public Sub Setm01Null() + Me(Me.tableweather_water.m01Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism02Null() As Boolean + Return Me.IsNull(Me.tableweather_water.m02Column) + End Function + + _ + Public Sub Setm02Null() + Me(Me.tableweather_water.m02Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism03Null() As Boolean + Return Me.IsNull(Me.tableweather_water.m03Column) + End Function + + _ + Public Sub Setm03Null() + Me(Me.tableweather_water.m03Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism04Null() As Boolean + Return Me.IsNull(Me.tableweather_water.m04Column) + End Function + + _ + Public Sub Setm04Null() + Me(Me.tableweather_water.m04Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism05Null() As Boolean + Return Me.IsNull(Me.tableweather_water.m05Column) + End Function + + _ + Public Sub Setm05Null() + Me(Me.tableweather_water.m05Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism06Null() As Boolean + Return Me.IsNull(Me.tableweather_water.m06Column) + End Function + + _ + Public Sub Setm06Null() + Me(Me.tableweather_water.m06Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism07Null() As Boolean + Return Me.IsNull(Me.tableweather_water.m07Column) + End Function + + _ + Public Sub Setm07Null() + Me(Me.tableweather_water.m07Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism08Null() As Boolean + Return Me.IsNull(Me.tableweather_water.m08Column) + End Function + + _ + Public Sub Setm08Null() + Me(Me.tableweather_water.m08Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism09Null() As Boolean + Return Me.IsNull(Me.tableweather_water.m09Column) + End Function + + _ + Public Sub Setm09Null() + Me(Me.tableweather_water.m09Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism10Null() As Boolean + Return Me.IsNull(Me.tableweather_water.m10Column) + End Function + + _ + Public Sub Setm10Null() + Me(Me.tableweather_water.m10Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism11Null() As Boolean + Return Me.IsNull(Me.tableweather_water.m11Column) + End Function + + _ + Public Sub Setm11Null() + Me(Me.tableweather_water.m11Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ism12Null() As Boolean + Return Me.IsNull(Me.tableweather_water.m12Column) + End Function + + _ + Public Sub Setm12Null() + Me(Me.tableweather_water.m12Column) = Global.System.Convert.DBNull + End Sub + End Class + ''' '''Row event argument class ''' @@ -27352,6 +30786,114 @@ Partial Public Class DS End Get End Property End Class + + ''' + '''Row event argument class + ''' + _ + Public Class weather_windRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As weather_windRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As weather_windRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As weather_windRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class weather_riverRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As weather_riverRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As weather_riverRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As weather_riverRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class weather_waterRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As weather_waterRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As weather_waterRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As weather_waterRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class End Class Namespace DSTableAdapters @@ -35762,15 +39304,6 @@ Namespace DSTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Private Function UpdateUpdatedRows(ByVal dataSet As DS, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 - If (Not (Me._weather_ilsaTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.weather_ilsa.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._weather_ilsaTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If If (Not (Me._weather_supdoTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.weather_supdo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) @@ -35780,15 +39313,6 @@ Namespace DSTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tbl_weatherTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_weather.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tbl_weatherTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If If (Not (Me._tbl_profileTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_profile.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) @@ -35798,12 +39322,21 @@ Namespace DSTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._weather_groupTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.weather_group.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tbl_weatherTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbl_weather.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._weather_groupTableAdapter.Update(updatedRows)) + result = (result + Me._tbl_weatherTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._weather_ilsaTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.weather_ilsa.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._weather_ilsaTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -35816,12 +39349,12 @@ Namespace DSTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._weather_tempTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.weather_temp.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._weather_groupTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.weather_group.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._weather_tempTableAdapter.Update(updatedRows)) + result = (result + Me._weather_groupTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -35834,6 +39367,15 @@ Namespace DSTableAdapters allChangedRows.AddRange(updatedRows) End If End If + If (Not (Me._weather_tempTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.weather_temp.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._weather_tempTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If Return result End Function @@ -35844,14 +39386,6 @@ Namespace DSTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Private Function UpdateInsertedRows(ByVal dataSet As DS, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 - If (Not (Me._weather_ilsaTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.weather_ilsa.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._weather_ilsaTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If If (Not (Me._weather_supdoTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.weather_supdo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -35860,14 +39394,6 @@ Namespace DSTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tbl_weatherTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_weather.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tbl_weatherTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If If (Not (Me._tbl_profileTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_profile.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -35876,11 +39402,19 @@ Namespace DSTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._weather_groupTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.weather_group.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tbl_weatherTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.tbl_weather.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._weather_groupTableAdapter.Update(addedRows)) + result = (result + Me._tbl_weatherTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._weather_ilsaTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.weather_ilsa.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._weather_ilsaTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -35892,11 +39426,11 @@ Namespace DSTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._weather_tempTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.weather_temp.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._weather_groupTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.weather_group.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._weather_tempTableAdapter.Update(addedRows)) + result = (result + Me._weather_groupTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -35908,6 +39442,14 @@ Namespace DSTableAdapters allAddedRows.AddRange(addedRows) End If End If + If (Not (Me._weather_tempTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.weather_temp.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._weather_tempTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If Return result End Function @@ -35918,14 +39460,6 @@ Namespace DSTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As DS, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 - If (Not (Me._weather_chaTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.weather_cha.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._weather_chaTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If If (Not (Me._weather_tempTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.weather_temp.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -35934,11 +39468,11 @@ Namespace DSTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tbl_commonTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_common.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._weather_chaTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.weather_cha.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tbl_commonTableAdapter.Update(deletedRows)) + result = (result + Me._weather_chaTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -35950,11 +39484,19 @@ Namespace DSTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tbl_profileTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_profile.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tbl_commonTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_common.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tbl_profileTableAdapter.Update(deletedRows)) + result = (result + Me._tbl_commonTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._weather_ilsaTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.weather_ilsa.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._weather_ilsaTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -35966,6 +39508,14 @@ Namespace DSTableAdapters allChangedRows.AddRange(deletedRows) End If End If + If (Not (Me._tbl_profileTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbl_profile.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tbl_profileTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._weather_supdoTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.weather_supdo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -35974,14 +39524,6 @@ Namespace DSTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._weather_ilsaTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.weather_ilsa.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._weather_ilsaTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If Return result End Function diff --git a/ArinWarev1/DataSet/DS.xsd b/ArinWarev1/DataSet/DS.xsd index 9823ff4..48033d7 100644 --- a/ArinWarev1/DataSet/DS.xsd +++ b/ArinWarev1/DataSet/DS.xsd @@ -1386,7 +1386,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code - + @@ -1394,7 +1394,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code - + @@ -1476,7 +1476,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code - + @@ -1539,7 +1539,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code - + @@ -1584,7 +1584,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code - + @@ -1636,10 +1636,24 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code + + + + + + + + + + + + + + - + @@ -1682,7 +1696,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code - + @@ -1700,7 +1714,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code - + @@ -1720,7 +1734,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code - + @@ -1831,7 +1845,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code - + @@ -2026,7 +2040,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code - + @@ -2086,10 +2100,14 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code + + + + - + @@ -2146,7 +2164,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code - + @@ -2169,7 +2187,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code - + @@ -2203,7 +2221,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code - + @@ -2321,7 +2339,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code - + @@ -2439,7 +2457,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code - + @@ -2634,7 +2652,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code - + @@ -2969,7 +2987,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code - + @@ -3139,7 +3157,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code - + @@ -3151,7 +3169,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code - + @@ -3180,7 +3198,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code - + @@ -3219,7 +3237,7 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code - + @@ -3242,6 +3260,339 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -3335,5 +3686,20 @@ SELECT code, name FROM weather_group WHERE (code = @code) ORDER BY code + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/ArinWarev1/DataSet/DS.xss b/ArinWarev1/DataSet/DS.xss index 2241101..0dc00bd 100644 --- a/ArinWarev1/DataSet/DS.xss +++ b/ArinWarev1/DataSet/DS.xss @@ -4,31 +4,34 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/ArinWarev1/DataSet/DSR.Designer.vb b/ArinWarev1/DataSet/DSR.Designer.vb index d6eb52a..51f8722 100644 --- a/ArinWarev1/DataSet/DSR.Designer.vb +++ b/ArinWarev1/DataSet/DSR.Designer.vb @@ -4557,6 +4557,14 @@ Partial Public Class DSR 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전력풍력offsite As Global.System.Data.DataColumn + _ Public Sub New() @@ -4672,6 +4680,38 @@ Partial Public Class DSR End Get End Property + _ + Public ReadOnly Property 전력풍력Column() As Global.System.Data.DataColumn + Get + Return Me.column전력풍력 + End Get + End Property + + _ + Public ReadOnly Property 생산량수열Column() As Global.System.Data.DataColumn + Get + Return Me.column생산량수열 + End Get + End Property + + _ + Public ReadOnly Property 면적당생산량수열Column() As Global.System.Data.DataColumn + Get + Return Me.column면적당생산량수열 + End Get + End Property + + _ + Public ReadOnly Property 전력풍력offsiteColumn() As Global.System.Data.DataColumn + Get + Return Me.column전력풍력offsite + End Get + End Property + _ @@ -4709,9 +4749,9 @@ Partial Public Class DSR _ - 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) 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) As 생산에너지Row Dim row생산에너지Row As 생산에너지Row = CType(Me.NewRow,생산에너지Row) - Dim columnValuesArray() As Object = New Object() {mon, 전력태양광, 전력태양광offsite, 전력열병합, 생산량태양열, 생산량지열, 면적당생산량태양열, 면적당생산량지열, 신재생열병합전력생산량, 신재생면적당열생산량} + Dim columnValuesArray() As Object = New Object() {mon, 전력태양광, 전력태양광offsite, 전력열병합, 생산량태양열, 생산량지열, 면적당생산량태양열, 면적당생산량지열, 신재생열병합전력생산량, 신재생면적당열생산량, 전력풍력, 생산량수열, 면적당생산량수열, 전력풍력offsite} row생산에너지Row.ItemArray = columnValuesArray Me.Rows.Add(row생산에너지Row) Return row생산에너지Row @@ -4744,6 +4784,10 @@ Partial Public Class DSR 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전력풍력offsite = MyBase.Columns("전력풍력offsite") End Sub _ + 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 + + _ + 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 + + _ + 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 + + _ + Public Property 전력풍력offsite() As String + Get + If Me.Is전력풍력offsiteNull Then + Return "0" + Else + Return CType(Me(Me.table생산에너지.전력풍력offsiteColumn),String) + End If + End Get + Set + Me(Me.table생산에너지.전력풍력offsiteColumn) = value + End Set + End Property + _ Public Function IsmonNull() As Boolean @@ -11166,6 +11279,54 @@ Partial Public Class DSR Public Sub Set신재생면적당열생산량Null() Me(Me.table생산에너지.신재생면적당열생산량Column) = Global.System.Convert.DBNull End Sub + + _ + Public Function Is전력풍력Null() As Boolean + Return Me.IsNull(Me.table생산에너지.전력풍력Column) + End Function + + _ + Public Sub Set전력풍력Null() + Me(Me.table생산에너지.전력풍력Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is생산량수열Null() As Boolean + Return Me.IsNull(Me.table생산에너지.생산량수열Column) + End Function + + _ + Public Sub Set생산량수열Null() + Me(Me.table생산에너지.생산량수열Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is면적당생산량수열Null() As Boolean + Return Me.IsNull(Me.table생산에너지.면적당생산량수열Column) + End Function + + _ + Public Sub Set면적당생산량수열Null() + Me(Me.table생산에너지.면적당생산량수열Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is전력풍력offsiteNull() As Boolean + Return Me.IsNull(Me.table생산에너지.전력풍력offsiteColumn) + End Function + + _ + Public Sub Set전력풍력offsiteNull() + Me(Me.table생산에너지.전력풍력offsiteColumn) = Global.System.Convert.DBNull + End Sub End Class ''' diff --git a/ArinWarev1/DataSet/DSR.xsd b/ArinWarev1/DataSet/DSR.xsd index 8e4f11a..b96ccc2 100644 --- a/ArinWarev1/DataSet/DSR.xsd +++ b/ArinWarev1/DataSet/DSR.xsd @@ -182,6 +182,10 @@ + + + + diff --git a/ArinWarev1/DataSet/DSR.xss b/ArinWarev1/DataSet/DSR.xss index a910781..446cb9c 100644 --- a/ArinWarev1/DataSet/DSR.xss +++ b/ArinWarev1/DataSet/DSR.xss @@ -4,26 +4,26 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - + - + - - - - - - - - - + + + + + + + + + \ No newline at end of file diff --git a/ArinWarev1/ECO2_2020.vbproj b/ArinWarev1/ECO2_2020.vbproj index c03adc8..903991a 100644 --- a/ArinWarev1/ECO2_2020.vbproj +++ b/ArinWarev1/ECO2_2020.vbproj @@ -81,6 +81,13 @@ MDI=true + + + + + + + True @@ -813,6 +820,10 @@ {2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14} CEnergy + + {B1FDE30A-B142-42D5-A6B8-5428D2F2E62A} + Utility + diff --git a/ArinWarev1/Forms_Basic/Frm_Intro.vb b/ArinWarev1/Forms_Basic/Frm_Intro.vb index 5b191f0..76a4e87 100644 --- a/ArinWarev1/Forms_Basic/Frm_Intro.vb +++ b/ArinWarev1/Forms_Basic/Frm_Intro.vb @@ -112,7 +112,7 @@ Select Case UseriNfo.authtype Case "IP" If Me.tb_id.Text.ToLower() <> "guest" AndAlso Not Me.tb_id.Text.ToLower().StartsWith("user") Then - If Prj.CUrIP.ToUpper <> UseriNfo.authip.ToUpper Then + If Prj.CUrIP.ToUpper <> UseriNfo.authip.ToUpper AndAlso UseriNfo.authip <> "0.0.0.0" Then MsgBox("로그인사용자와 현재컴퓨터의 IP가 일치하지않습니다", MsgBoxStyle.Critical, "확인") Return End If diff --git a/ArinWarev1/Forms_Basic/Frm_RepResult_Admin.Designer.vb b/ArinWarev1/Forms_Basic/Frm_RepResult_Admin.Designer.vb index 383491b..edfde48 100644 --- a/ArinWarev1/Forms_Basic/Frm_RepResult_Admin.Designer.vb +++ b/ArinWarev1/Forms_Basic/Frm_RepResult_Admin.Designer.vb @@ -146,14 +146,18 @@ Partial Class Frm_RepResult_Admin Me.DataGridView19 = New Eco2Ar.ArinDv() Me.TabPage8 = New System.Windows.Forms.TabPage() Me.DataGridView8 = New Eco2Ar.ArinDv() + Me.bs_생산E = New System.Windows.Forms.BindingSource(Me.components) Me.MonDataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.전력풍력 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.생산량수열 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.면적당생산량수열 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.전력풍력offsite = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.전력태양광DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.전력열병합DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.생산량태양열DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.생산량지열DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.면적당생산량태양열DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.면적당생산량지열DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.bs_생산E = New System.Windows.Forms.BindingSource(Me.components) CType(Me.DSR, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.bn_all, System.ComponentModel.ISupportInitialize).BeginInit() Me.bn_all.SuspendLayout() @@ -296,14 +300,14 @@ Partial Class Frm_RepResult_Admin Me.bn_all.Dock = System.Windows.Forms.DockStyle.Bottom Me.bn_all.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) Me.bn_all.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton44, Me.ToolStripButton45, Me.ToolStripSeparator25, Me.ToolStripTextBox6, Me.ToolStripLabel6, Me.ToolStripSeparator26, Me.ToolStripButton46, Me.ToolStripButton47, Me.ToolStripSeparator27, Me.ToolStripButton48, Me.ToolStripButton49, Me.ToolStripSeparator28, Me.ToolStripButton50, Me.ToolStripButton51}) - Me.bn_all.Location = New System.Drawing.Point(0, 446) + Me.bn_all.Location = New System.Drawing.Point(0, 603) Me.bn_all.MoveFirstItem = Me.ToolStripButton44 Me.bn_all.MoveLastItem = Me.ToolStripButton47 Me.bn_all.MoveNextItem = Me.ToolStripButton46 Me.bn_all.MovePreviousItem = Me.ToolStripButton45 Me.bn_all.Name = "bn_all" Me.bn_all.PositionItem = Me.ToolStripTextBox6 - Me.bn_all.Size = New System.Drawing.Size(827, 25) + Me.bn_all.Size = New System.Drawing.Size(1149, 25) Me.bn_all.TabIndex = 13 Me.bn_all.Text = "BindingNavigator1" ' @@ -336,10 +340,10 @@ Partial Class Frm_RepResult_Admin ' Me.StatusStrip1.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_msg}) - Me.StatusStrip1.Location = New System.Drawing.Point(0, 471) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 628) Me.StatusStrip1.Name = "StatusStrip1" Me.StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 16, 0) - Me.StatusStrip1.Size = New System.Drawing.Size(827, 22) + Me.StatusStrip1.Size = New System.Drawing.Size(1149, 22) Me.StatusStrip1.TabIndex = 14 Me.StatusStrip1.Text = "StatusStrip1" ' @@ -404,7 +408,7 @@ Partial Class Frm_RepResult_Admin Me.UNITDataGridViewTextBoxColumn.HeaderText = "UNIT" Me.UNITDataGridViewTextBoxColumn.Name = "UNITDataGridViewTextBoxColumn" Me.UNITDataGridViewTextBoxColumn.ReadOnly = True - Me.UNITDataGridViewTextBoxColumn.Width = 62 + Me.UNITDataGridViewTextBoxColumn.Width = 60 ' 'SIGNDataGridViewTextBoxColumn ' @@ -412,7 +416,7 @@ Partial Class Frm_RepResult_Admin Me.SIGNDataGridViewTextBoxColumn.HeaderText = "SIGN" Me.SIGNDataGridViewTextBoxColumn.Name = "SIGNDataGridViewTextBoxColumn" Me.SIGNDataGridViewTextBoxColumn.ReadOnly = True - Me.SIGNDataGridViewTextBoxColumn.Width = 63 + Me.SIGNDataGridViewTextBoxColumn.Width = 62 ' 'EQDataGridViewTextBoxColumn ' @@ -436,7 +440,7 @@ Partial Class Frm_RepResult_Admin Me.M00.HeaderText = "TOTAL" Me.M00.Name = "M00" Me.M00.ReadOnly = True - Me.M00.Width = 75 + Me.M00.Width = 73 ' 'M01DataGridViewTextBoxColumn ' @@ -547,7 +551,7 @@ Partial Class Frm_RepResult_Admin Me.TabControl1.Location = New System.Drawing.Point(0, 0) Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 - Me.TabControl1.Size = New System.Drawing.Size(827, 446) + Me.TabControl1.Size = New System.Drawing.Size(1149, 603) Me.TabControl1.TabIndex = 16 ' 'TabPage1 @@ -796,7 +800,7 @@ Partial Class Frm_RepResult_Admin Me.MonDataGridViewTextBoxColumn1.HeaderText = "mon" Me.MonDataGridViewTextBoxColumn1.Name = "MonDataGridViewTextBoxColumn1" Me.MonDataGridViewTextBoxColumn1.ReadOnly = True - Me.MonDataGridViewTextBoxColumn1.Width = 58 + Me.MonDataGridViewTextBoxColumn1.Width = 56 ' '난방에너지소요량DataGridViewTextBoxColumn ' @@ -887,7 +891,7 @@ Partial Class Frm_RepResult_Admin Me.MonDataGridViewTextBoxColumn2.HeaderText = "mon" Me.MonDataGridViewTextBoxColumn2.Name = "MonDataGridViewTextBoxColumn2" Me.MonDataGridViewTextBoxColumn2.ReadOnly = True - Me.MonDataGridViewTextBoxColumn2.Width = 58 + Me.MonDataGridViewTextBoxColumn2.Width = 56 ' '난방등유DataGridViewTextBoxColumn1 ' @@ -903,7 +907,7 @@ Partial Class Frm_RepResult_Admin Me.난방LNGDataGridViewTextBoxColumn1.HeaderText = "난방LNG" Me.난방LNGDataGridViewTextBoxColumn1.Name = "난방LNGDataGridViewTextBoxColumn1" Me.난방LNGDataGridViewTextBoxColumn1.ReadOnly = True - Me.난방LNGDataGridViewTextBoxColumn1.Width = 84 + Me.난방LNGDataGridViewTextBoxColumn1.Width = 83 ' '난방LPGDataGridViewTextBoxColumn1 ' @@ -943,7 +947,7 @@ Partial Class Frm_RepResult_Admin Me.냉방LNGDataGridViewTextBoxColumn1.HeaderText = "냉방LNG" Me.냉방LNGDataGridViewTextBoxColumn1.Name = "냉방LNGDataGridViewTextBoxColumn1" Me.냉방LNGDataGridViewTextBoxColumn1.ReadOnly = True - Me.냉방LNGDataGridViewTextBoxColumn1.Width = 84 + Me.냉방LNGDataGridViewTextBoxColumn1.Width = 83 ' '냉방LPGDataGridViewTextBoxColumn1 ' @@ -991,7 +995,7 @@ Partial Class Frm_RepResult_Admin Me.급탕LNGDataGridViewTextBoxColumn1.HeaderText = "급탕LNG" Me.급탕LNGDataGridViewTextBoxColumn1.Name = "급탕LNGDataGridViewTextBoxColumn1" Me.급탕LNGDataGridViewTextBoxColumn1.ReadOnly = True - Me.급탕LNGDataGridViewTextBoxColumn1.Width = 84 + Me.급탕LNGDataGridViewTextBoxColumn1.Width = 83 ' '급탕LPGDataGridViewTextBoxColumn1 ' @@ -1081,7 +1085,7 @@ Partial Class Frm_RepResult_Admin Me.TabPage10.Location = New System.Drawing.Point(4, 25) Me.TabPage10.Name = "TabPage10" Me.TabPage10.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage10.Size = New System.Drawing.Size(1010, 336) + Me.TabPage10.Size = New System.Drawing.Size(811, 391) Me.TabPage10.TabIndex = 1 Me.TabPage10.Text = "02" Me.TabPage10.UseVisualStyleBackColor = True @@ -1093,7 +1097,7 @@ Partial Class Frm_RepResult_Admin Me.DataGridView9.Location = New System.Drawing.Point(3, 3) Me.DataGridView9.Name = "DataGridView9" Me.DataGridView9.RowTemplate.Height = 23 - Me.DataGridView9.Size = New System.Drawing.Size(1004, 330) + Me.DataGridView9.Size = New System.Drawing.Size(805, 385) Me.DataGridView9.TabIndex = 1 ' 'TabPage11 @@ -1101,7 +1105,7 @@ Partial Class Frm_RepResult_Admin Me.TabPage11.Controls.Add(Me.DataGridView10) Me.TabPage11.Location = New System.Drawing.Point(4, 25) Me.TabPage11.Name = "TabPage11" - Me.TabPage11.Size = New System.Drawing.Size(1010, 336) + Me.TabPage11.Size = New System.Drawing.Size(811, 391) Me.TabPage11.TabIndex = 2 Me.TabPage11.Text = "03" Me.TabPage11.UseVisualStyleBackColor = True @@ -1113,7 +1117,7 @@ Partial Class Frm_RepResult_Admin Me.DataGridView10.Location = New System.Drawing.Point(0, 0) Me.DataGridView10.Name = "DataGridView10" Me.DataGridView10.RowTemplate.Height = 23 - Me.DataGridView10.Size = New System.Drawing.Size(1010, 336) + Me.DataGridView10.Size = New System.Drawing.Size(811, 391) Me.DataGridView10.TabIndex = 1 ' 'TabPage12 @@ -1121,7 +1125,7 @@ Partial Class Frm_RepResult_Admin Me.TabPage12.Controls.Add(Me.DataGridView11) Me.TabPage12.Location = New System.Drawing.Point(4, 25) Me.TabPage12.Name = "TabPage12" - Me.TabPage12.Size = New System.Drawing.Size(1010, 336) + Me.TabPage12.Size = New System.Drawing.Size(811, 391) Me.TabPage12.TabIndex = 3 Me.TabPage12.Text = "04" Me.TabPage12.UseVisualStyleBackColor = True @@ -1133,7 +1137,7 @@ Partial Class Frm_RepResult_Admin Me.DataGridView11.Location = New System.Drawing.Point(0, 0) Me.DataGridView11.Name = "DataGridView11" Me.DataGridView11.RowTemplate.Height = 23 - Me.DataGridView11.Size = New System.Drawing.Size(1010, 336) + Me.DataGridView11.Size = New System.Drawing.Size(811, 391) Me.DataGridView11.TabIndex = 1 ' 'TabPage13 @@ -1141,7 +1145,7 @@ Partial Class Frm_RepResult_Admin Me.TabPage13.Controls.Add(Me.DataGridView12) Me.TabPage13.Location = New System.Drawing.Point(4, 25) Me.TabPage13.Name = "TabPage13" - Me.TabPage13.Size = New System.Drawing.Size(1010, 336) + Me.TabPage13.Size = New System.Drawing.Size(811, 391) Me.TabPage13.TabIndex = 4 Me.TabPage13.Text = "05" Me.TabPage13.UseVisualStyleBackColor = True @@ -1153,7 +1157,7 @@ Partial Class Frm_RepResult_Admin Me.DataGridView12.Location = New System.Drawing.Point(0, 0) Me.DataGridView12.Name = "DataGridView12" Me.DataGridView12.RowTemplate.Height = 23 - Me.DataGridView12.Size = New System.Drawing.Size(1010, 336) + Me.DataGridView12.Size = New System.Drawing.Size(811, 391) Me.DataGridView12.TabIndex = 1 ' 'TabPage14 @@ -1161,7 +1165,7 @@ Partial Class Frm_RepResult_Admin Me.TabPage14.Controls.Add(Me.DataGridView13) Me.TabPage14.Location = New System.Drawing.Point(4, 25) Me.TabPage14.Name = "TabPage14" - Me.TabPage14.Size = New System.Drawing.Size(1010, 336) + Me.TabPage14.Size = New System.Drawing.Size(811, 391) Me.TabPage14.TabIndex = 5 Me.TabPage14.Text = "06" Me.TabPage14.UseVisualStyleBackColor = True @@ -1173,7 +1177,7 @@ Partial Class Frm_RepResult_Admin Me.DataGridView13.Location = New System.Drawing.Point(0, 0) Me.DataGridView13.Name = "DataGridView13" Me.DataGridView13.RowTemplate.Height = 23 - Me.DataGridView13.Size = New System.Drawing.Size(1010, 336) + Me.DataGridView13.Size = New System.Drawing.Size(811, 391) Me.DataGridView13.TabIndex = 1 ' 'TabPage15 @@ -1181,7 +1185,7 @@ Partial Class Frm_RepResult_Admin Me.TabPage15.Controls.Add(Me.DataGridView14) Me.TabPage15.Location = New System.Drawing.Point(4, 25) Me.TabPage15.Name = "TabPage15" - Me.TabPage15.Size = New System.Drawing.Size(1010, 336) + Me.TabPage15.Size = New System.Drawing.Size(811, 391) Me.TabPage15.TabIndex = 6 Me.TabPage15.Text = "07" Me.TabPage15.UseVisualStyleBackColor = True @@ -1193,7 +1197,7 @@ Partial Class Frm_RepResult_Admin Me.DataGridView14.Location = New System.Drawing.Point(0, 0) Me.DataGridView14.Name = "DataGridView14" Me.DataGridView14.RowTemplate.Height = 23 - Me.DataGridView14.Size = New System.Drawing.Size(1010, 336) + Me.DataGridView14.Size = New System.Drawing.Size(811, 391) Me.DataGridView14.TabIndex = 1 ' 'TabPage16 @@ -1201,7 +1205,7 @@ Partial Class Frm_RepResult_Admin Me.TabPage16.Controls.Add(Me.DataGridView15) Me.TabPage16.Location = New System.Drawing.Point(4, 25) Me.TabPage16.Name = "TabPage16" - Me.TabPage16.Size = New System.Drawing.Size(1010, 336) + Me.TabPage16.Size = New System.Drawing.Size(811, 391) Me.TabPage16.TabIndex = 7 Me.TabPage16.Text = "08" Me.TabPage16.UseVisualStyleBackColor = True @@ -1213,7 +1217,7 @@ Partial Class Frm_RepResult_Admin Me.DataGridView15.Location = New System.Drawing.Point(0, 0) Me.DataGridView15.Name = "DataGridView15" Me.DataGridView15.RowTemplate.Height = 23 - Me.DataGridView15.Size = New System.Drawing.Size(1010, 336) + Me.DataGridView15.Size = New System.Drawing.Size(811, 391) Me.DataGridView15.TabIndex = 1 ' 'TabPage17 @@ -1221,7 +1225,7 @@ Partial Class Frm_RepResult_Admin Me.TabPage17.Controls.Add(Me.DataGridView16) Me.TabPage17.Location = New System.Drawing.Point(4, 25) Me.TabPage17.Name = "TabPage17" - Me.TabPage17.Size = New System.Drawing.Size(1010, 336) + Me.TabPage17.Size = New System.Drawing.Size(811, 391) Me.TabPage17.TabIndex = 8 Me.TabPage17.Text = "09" Me.TabPage17.UseVisualStyleBackColor = True @@ -1233,7 +1237,7 @@ Partial Class Frm_RepResult_Admin Me.DataGridView16.Location = New System.Drawing.Point(0, 0) Me.DataGridView16.Name = "DataGridView16" Me.DataGridView16.RowTemplate.Height = 23 - Me.DataGridView16.Size = New System.Drawing.Size(1010, 336) + Me.DataGridView16.Size = New System.Drawing.Size(811, 391) Me.DataGridView16.TabIndex = 1 ' 'TabPage18 @@ -1241,7 +1245,7 @@ Partial Class Frm_RepResult_Admin Me.TabPage18.Controls.Add(Me.DataGridView17) Me.TabPage18.Location = New System.Drawing.Point(4, 25) Me.TabPage18.Name = "TabPage18" - Me.TabPage18.Size = New System.Drawing.Size(1010, 336) + Me.TabPage18.Size = New System.Drawing.Size(811, 391) Me.TabPage18.TabIndex = 9 Me.TabPage18.Text = "10" Me.TabPage18.UseVisualStyleBackColor = True @@ -1253,7 +1257,7 @@ Partial Class Frm_RepResult_Admin Me.DataGridView17.Location = New System.Drawing.Point(0, 0) Me.DataGridView17.Name = "DataGridView17" Me.DataGridView17.RowTemplate.Height = 23 - Me.DataGridView17.Size = New System.Drawing.Size(1010, 336) + Me.DataGridView17.Size = New System.Drawing.Size(811, 391) Me.DataGridView17.TabIndex = 1 ' 'TabPage19 @@ -1261,7 +1265,7 @@ Partial Class Frm_RepResult_Admin Me.TabPage19.Controls.Add(Me.DataGridView18) Me.TabPage19.Location = New System.Drawing.Point(4, 25) Me.TabPage19.Name = "TabPage19" - Me.TabPage19.Size = New System.Drawing.Size(1010, 336) + Me.TabPage19.Size = New System.Drawing.Size(811, 391) Me.TabPage19.TabIndex = 10 Me.TabPage19.Text = "11" Me.TabPage19.UseVisualStyleBackColor = True @@ -1273,7 +1277,7 @@ Partial Class Frm_RepResult_Admin Me.DataGridView18.Location = New System.Drawing.Point(0, 0) Me.DataGridView18.Name = "DataGridView18" Me.DataGridView18.RowTemplate.Height = 23 - Me.DataGridView18.Size = New System.Drawing.Size(1010, 336) + Me.DataGridView18.Size = New System.Drawing.Size(811, 391) Me.DataGridView18.TabIndex = 1 ' 'TabPage20 @@ -1281,7 +1285,7 @@ Partial Class Frm_RepResult_Admin Me.TabPage20.Controls.Add(Me.DataGridView19) Me.TabPage20.Location = New System.Drawing.Point(4, 25) Me.TabPage20.Name = "TabPage20" - Me.TabPage20.Size = New System.Drawing.Size(1010, 336) + Me.TabPage20.Size = New System.Drawing.Size(811, 391) Me.TabPage20.TabIndex = 11 Me.TabPage20.Text = "12" Me.TabPage20.UseVisualStyleBackColor = True @@ -1293,7 +1297,7 @@ Partial Class Frm_RepResult_Admin Me.DataGridView19.Location = New System.Drawing.Point(0, 0) Me.DataGridView19.Name = "DataGridView19" Me.DataGridView19.RowTemplate.Height = 23 - Me.DataGridView19.Size = New System.Drawing.Size(1010, 336) + Me.DataGridView19.Size = New System.Drawing.Size(811, 391) Me.DataGridView19.TabIndex = 1 ' 'TabPage8 @@ -1301,7 +1305,7 @@ Partial Class Frm_RepResult_Admin Me.TabPage8.Controls.Add(Me.DataGridView8) Me.TabPage8.Location = New System.Drawing.Point(4, 22) Me.TabPage8.Name = "TabPage8" - Me.TabPage8.Size = New System.Drawing.Size(819, 420) + Me.TabPage8.Size = New System.Drawing.Size(1141, 577) Me.TabPage8.TabIndex = 7 Me.TabPage8.Text = "생산에너지" Me.TabPage8.UseVisualStyleBackColor = True @@ -1314,7 +1318,7 @@ Partial Class Frm_RepResult_Admin Me.DataGridView8.AutoGenerateColumns = False Me.DataGridView8.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells Me.DataGridView8.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.DataGridView8.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.MonDataGridViewTextBoxColumn3, Me.전력태양광DataGridViewTextBoxColumn, Me.전력열병합DataGridViewTextBoxColumn, Me.생산량태양열DataGridViewTextBoxColumn, Me.생산량지열DataGridViewTextBoxColumn, Me.면적당생산량태양열DataGridViewTextBoxColumn, Me.면적당생산량지열DataGridViewTextBoxColumn}) + Me.DataGridView8.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.MonDataGridViewTextBoxColumn3, Me.전력풍력, Me.생산량수열, Me.면적당생산량수열, Me.전력풍력offsite, Me.전력태양광DataGridViewTextBoxColumn, Me.전력열병합DataGridViewTextBoxColumn, Me.생산량태양열DataGridViewTextBoxColumn, Me.생산량지열DataGridViewTextBoxColumn, Me.면적당생산량태양열DataGridViewTextBoxColumn, Me.면적당생산량지열DataGridViewTextBoxColumn}) Me.DataGridView8.DataSource = Me.bs_생산E Me.DataGridView8.Dock = System.Windows.Forms.DockStyle.Fill Me.DataGridView8.Location = New System.Drawing.Point(0, 0) @@ -1323,16 +1327,53 @@ Partial Class Frm_RepResult_Admin Me.DataGridView8.RowHeadersVisible = False Me.DataGridView8.RowTemplate.Height = 23 Me.DataGridView8.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.DataGridView8.Size = New System.Drawing.Size(819, 420) + Me.DataGridView8.Size = New System.Drawing.Size(1141, 577) Me.DataGridView8.TabIndex = 16 ' + 'bs_생산E + ' + Me.bs_생산E.DataMember = "생산에너지" + Me.bs_생산E.DataSource = Me.DSR + ' 'MonDataGridViewTextBoxColumn3 ' Me.MonDataGridViewTextBoxColumn3.DataPropertyName = "mon" Me.MonDataGridViewTextBoxColumn3.HeaderText = "mon" Me.MonDataGridViewTextBoxColumn3.Name = "MonDataGridViewTextBoxColumn3" Me.MonDataGridViewTextBoxColumn3.ReadOnly = True - Me.MonDataGridViewTextBoxColumn3.Width = 58 + Me.MonDataGridViewTextBoxColumn3.Width = 56 + ' + '전력풍력 + ' + Me.전력풍력.DataPropertyName = "전력풍력" + Me.전력풍력.HeaderText = "전력풍력" + Me.전력풍력.Name = "전력풍력" + Me.전력풍력.ReadOnly = True + Me.전력풍력.Width = 82 + ' + '생산량수열 + ' + Me.생산량수열.DataPropertyName = "생산량수열" + Me.생산량수열.HeaderText = "생산량수열" + Me.생산량수열.Name = "생산량수열" + Me.생산량수열.ReadOnly = True + Me.생산량수열.Width = 95 + ' + '면적당생산량수열 + ' + Me.면적당생산량수열.DataPropertyName = "면적당생산량수열" + Me.면적당생산량수열.HeaderText = "면적당생산량수열" + Me.면적당생산량수열.Name = "면적당생산량수열" + Me.면적당생산량수열.ReadOnly = True + Me.면적당생산량수열.Width = 87 + ' + '전력풍력offsite + ' + Me.전력풍력offsite.DataPropertyName = "전력풍력offsite" + Me.전력풍력offsite.HeaderText = "전력풍력offsite" + Me.전력풍력offsite.Name = "전력풍력offsite" + Me.전력풍력offsite.ReadOnly = True + Me.전력풍력offsite.Width = 112 ' '전력태양광DataGridViewTextBoxColumn ' @@ -1382,16 +1423,11 @@ Partial Class Frm_RepResult_Admin Me.면적당생산량지열DataGridViewTextBoxColumn.ReadOnly = True Me.면적당생산량지열DataGridViewTextBoxColumn.Width = 87 ' - 'bs_생산E - ' - Me.bs_생산E.DataMember = "생산에너지" - Me.bs_생산E.DataSource = Me.DSR - ' 'Frm_RepResult_Admin ' Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 12.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(827, 493) + Me.ClientSize = New System.Drawing.Size(1149, 650) Me.Controls.Add(Me.TabControl1) Me.Controls.Add(Me.bn_all) Me.Controls.Add(Me.StatusStrip1) @@ -1549,13 +1585,6 @@ Partial Class Frm_RepResult_Admin Friend WithEvents 냉방보조에너지소요량DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents 급탕에너지소요량DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents 급탕보조에너지소요량DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents MonDataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents 전력태양광DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents 전력열병합DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents 생산량태양열DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents 생산량지열DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents 면적당생산량태양열DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents 면적당생산량지열DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents 에너지소요량DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents 단위면적당소요량DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents 난방면적DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn @@ -1604,4 +1633,15 @@ Partial Class Frm_RepResult_Admin Friend WithEvents M10DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents M11DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents M12DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents MonDataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 전력풍력 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 생산량수열 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 면적당생산량수열 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 전력풍력offsite As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 전력태양광DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 전력열병합DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 생산량태양열DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 생산량지열DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 면적당생산량태양열DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents 면적당생산량지열DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn End Class diff --git a/ArinWarev1/Forms_Basic/Frm_RepResult_Admin.resx b/ArinWarev1/Forms_Basic/Frm_RepResult_Admin.resx index fe0eb8d..08446c3 100644 --- a/ArinWarev1/Forms_Basic/Frm_RepResult_Admin.resx +++ b/ArinWarev1/Forms_Basic/Frm_RepResult_Admin.resx @@ -112,15 +112,15 @@ 2.0 - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + 647, 17 - + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 @@ -206,7 +206,7 @@ gg== - + 445, 17 @@ -226,31 +226,61 @@ RlfZIFMAAAAASUVORK5CYII= - + 529, 17 - + 722, 17 - + True - + True - - 17, 56 + + True - - 17, 17 + + True - - 111, 17 + + True - - 218, 17 + + True - + + True + + + True + + 344, 17 + + 17, 56 + + + 17, 56 + + + 17, 17 + + + 17, 17 + + + 111, 17 + + + 111, 17 + + + 218, 17 + + + 218, 17 + \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_New.Designer.vb b/ArinWarev1/Forms_Input/Frm_New.Designer.vb index 3202beb..137454b 100644 --- a/ArinWarev1/Forms_Input/Frm_New.Designer.vb +++ b/ArinWarev1/Forms_Input/Frm_New.Designer.vb @@ -22,92 +22,68 @@ Partial Class Frm_New _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim Label456 As System.Windows.Forms.Label - Dim Label455 As System.Windows.Forms.Label - Dim Label4 As System.Windows.Forms.Label - Dim Label6 As System.Windows.Forms.Label - Dim Label7 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 Label12 As System.Windows.Forms.Label - Dim Label13 As System.Windows.Forms.Label - Dim Label14 As System.Windows.Forms.Label - Dim Label15 As System.Windows.Forms.Label - Dim Label16 As System.Windows.Forms.Label + Dim Label33 As System.Windows.Forms.Label + Dim Label25 As System.Windows.Forms.Label + Dim Label26 As System.Windows.Forms.Label + Dim Label27 As System.Windows.Forms.Label + Dim Label24 As System.Windows.Forms.Label + Dim Label28 As System.Windows.Forms.Label + Dim Label29 As System.Windows.Forms.Label + Dim Label23 As System.Windows.Forms.Label + Dim Label22 As System.Windows.Forms.Label + Dim Label37 As System.Windows.Forms.Label + Dim Label45 As System.Windows.Forms.Label + Dim Label39 As System.Windows.Forms.Label + Dim Label40 As System.Windows.Forms.Label + Dim Label41 As System.Windows.Forms.Label + Dim Label44 As System.Windows.Forms.Label + Dim Label1 As System.Windows.Forms.Label + Dim Label42 As System.Windows.Forms.Label + Dim Label43 As System.Windows.Forms.Label + Dim Label34 As System.Windows.Forms.Label + Dim Label3 As System.Windows.Forms.Label Dim Label17 As System.Windows.Forms.Label Dim Label18 As System.Windows.Forms.Label Dim Label19 As System.Windows.Forms.Label - Dim Label20 As System.Windows.Forms.Label - Dim Label21 As System.Windows.Forms.Label - Dim Label465 As System.Windows.Forms.Label - Dim Label23 As System.Windows.Forms.Label - Dim Label24 As System.Windows.Forms.Label - Dim Label25 As System.Windows.Forms.Label - Dim Label457 As System.Windows.Forms.Label - Dim Label458 As System.Windows.Forms.Label - Dim Label459 As System.Windows.Forms.Label - Dim Label30 As System.Windows.Forms.Label - Dim Label31 As System.Windows.Forms.Label - Dim Label3 As System.Windows.Forms.Label - Dim Label2 As System.Windows.Forms.Label - Dim Label5 As System.Windows.Forms.Label - Dim Label22 As System.Windows.Forms.Label - Dim Label27 As System.Windows.Forms.Label - Dim Label29 As System.Windows.Forms.Label - Dim Label28 As System.Windows.Forms.Label - Dim Label26 As System.Windows.Forms.Label Dim Label32 As System.Windows.Forms.Label - Dim Label33 As System.Windows.Forms.Label - Dim Label34 As System.Windows.Forms.Label + Dim Label21 As System.Windows.Forms.Label + Dim Label20 As System.Windows.Forms.Label + Dim Label5 As System.Windows.Forms.Label + Dim Label459 As System.Windows.Forms.Label + Dim Label457 As System.Windows.Forms.Label + Dim Label31 As System.Windows.Forms.Label + Dim Label30 As System.Windows.Forms.Label + Dim Label458 As System.Windows.Forms.Label + Dim Label35 As System.Windows.Forms.Label + Dim Label36 As System.Windows.Forms.Label + Dim Label38 As System.Windows.Forms.Label + Dim Label4 As System.Windows.Forms.Label + Dim Label456 As System.Windows.Forms.Label + Dim Label7 As System.Windows.Forms.Label + Dim Label6 As System.Windows.Forms.Label + Dim Label455 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 Label15 As System.Windows.Forms.Label + Dim Label10 As System.Windows.Forms.Label + Dim Label14 As System.Windows.Forms.Label + Dim Label13 As System.Windows.Forms.Label + Dim Label11 As System.Windows.Forms.Label + Dim Label12 As System.Windows.Forms.Label + Dim Label465 As System.Windows.Forms.Label + Dim Label2 As System.Windows.Forms.Label + Dim Label46 As System.Windows.Forms.Label + Dim Label47 As System.Windows.Forms.Label Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() Me.NTb1 = New Eco2Ar.MyTb() Me.NTb2 = New Eco2Ar.MyTb() - Me.tb_태양열_cnt2 = New System.Windows.Forms.TextBox() - Me.tb_태양열_cnt1 = New System.Windows.Forms.TextBox() - Me.Label163 = New System.Windows.Forms.Label() - Me.Label164 = New System.Windows.Forms.Label() - Me.축열탱크Panel = New System.Windows.Forms.Panel() - Me.tb_축열탱크체적급 = New Eco2Ar.MyTb() - Me.bs = New System.Windows.Forms.BindingSource(Me.components) - Me.DS = New Eco2Ar.DS() - Me.cmb_축열탱크설치장소 = New Eco2Ar.MyCmb() - Me.tb_축열탱크체적난 = New Eco2Ar.MyTb() - Me.태양열Panel = New System.Windows.Forms.Panel() - Me.cmb_태양열시스템종류 = New Eco2Ar.MyCmb() - Me.cmb_집열기유형 = New Eco2Ar.MyCmb() - Me.tb_집열판면적 = New Eco2Ar.MyTb() - Me.cmb_집열판방위 = New Eco2Ar.MyCmb() - Me.tB_솔라펌프출력 = New Eco2Ar.MyTb() - Me.cmb_태양열시스템의성능 = New Eco2Ar.MyCmb() - Me.tb_무손실효율계수 = New Eco2Ar.MyTb() - Me.tb_2차손실계수 = New Eco2Ar.MyTb() - Me.tb_1차손실계수 = New Eco2Ar.MyTb() - Me.지열Panel = New System.Windows.Forms.Panel() - Me.MyTb1 = New Eco2Ar.MyTb() - Me.tb_지열팽창탱크체적 = New Eco2Ar.MyTb() - Me.cmb_지열팽창설치여부 = New Eco2Ar.MyCmb() - Me.cmb_열교환기설치여부 = New Eco2Ar.MyCmb() - Me.tb_2차펌프용량 = New Eco2Ar.MyTb() - Me.Label1 = New System.Windows.Forms.Label() - Me.tb_1차펌프용량 = New Eco2Ar.MyTb() - Me.tb_열성능비2 = New Eco2Ar.MyTb() - Me.tb_열성능비 = New Eco2Ar.MyTb() - Me.tb_지열펌프용량 = New Eco2Ar.MyTb() - Me.태양광Panel = New System.Windows.Forms.Panel() - Me.CheckBox1 = New System.Windows.Forms.CheckBox() - Me.MyTb2 = New Eco2Ar.MyTb() - Me.cmb_모듈종류 = New Eco2Ar.MyCmb() - Me.cmb_모듈방위 = New Eco2Ar.MyCmb() - Me.cmb_모듈적용타입 = New Eco2Ar.MyCmb() - Me.cmb_모듈기울기 = New Eco2Ar.MyCmb() - Me.tb_모듈효율 = New Eco2Ar.MyTb() - Me.tb_모듈면적 = 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) Me.lbl_count = New System.Windows.Forms.ToolStripLabel() Me.bt_add = New System.Windows.Forms.ToolStripButton() @@ -118,213 +94,347 @@ Partial Class Frm_New Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() Me.lb_code = New System.Windows.Forms.ToolStripLabel() Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.지열Panel = New System.Windows.Forms.Panel() + Me.tabcontrol1 = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.tb_지열펌프용량 = New Eco2Ar.MyTb() + Me.MyTb1 = New Eco2Ar.MyTb() + Me.tb_열성능비 = New Eco2Ar.MyTb() + Me.tb_열성능비2 = New Eco2Ar.MyTb() + Me.tb_지열팽창탱크체적 = New Eco2Ar.MyTb() + Me.tb_1차펌프용량 = New Eco2Ar.MyTb() + Me.cmb_지열팽창설치여부 = New Eco2Ar.MyCmb() + Me.cmb_열교환기설치여부 = New Eco2Ar.MyCmb() + Me.tb_2차펌프용량 = New Eco2Ar.MyTb() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.MyTb6 = New Eco2Ar.MyTb() + Me.MyTb12 = New Eco2Ar.MyTb() + Me.MyTb8 = New Eco2Ar.MyTb() + Me.MyTb5 = New Eco2Ar.MyTb() + Me.MyTb11 = New Eco2Ar.MyTb() + Me.MyCmb3 = New Eco2Ar.MyCmb() + Me.MyCmb2 = New Eco2Ar.MyCmb() + Me.cmb_수열팽창설치여부 = New Eco2Ar.MyCmb() + Me.MyTb7 = New Eco2Ar.MyTb() + Me.MyTb10 = New Eco2Ar.MyTb() + Me.tb_수열팽창탱크체적 = New Eco2Ar.MyTb() + Me.태양광Panel = New System.Windows.Forms.Panel() + Me.CheckBox1 = New System.Windows.Forms.CheckBox() + Me.MyTb2 = New Eco2Ar.MyTb() + Me.cmb_모듈종류 = New Eco2Ar.MyCmb() + Me.cmb_모듈방위 = New Eco2Ar.MyCmb() + Me.cmb_모듈적용타입 = New Eco2Ar.MyCmb() + Me.cmb_모듈기울기 = New Eco2Ar.MyCmb() + Me.tb_모듈효율 = New Eco2Ar.MyTb() + Me.tb_모듈면적 = New Eco2Ar.MyTb() Me.열병합Panel = New System.Windows.Forms.Panel() Me.chk_개별기기적용 = New System.Windows.Forms.CheckBox() Me.tb_열생산능력 = New Eco2Ar.MyTb() Me.tb_열생산효율 = New Eco2Ar.MyTb() Me.tb_발전효율 = New Eco2Ar.MyTb() Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.panWind = New System.Windows.Forms.Panel() + Me.CheckBox2 = New System.Windows.Forms.CheckBox() + Me.MyTb3 = New Eco2Ar.MyTb() + Me.MyTb4 = New Eco2Ar.MyTb() + Me.축열탱크Panel = New System.Windows.Forms.Panel() + Me.tb_축열탱크체적급 = New Eco2Ar.MyTb() + Me.tb_축열탱크체적난 = New Eco2Ar.MyTb() + Me.cmb_축열탱크설치장소 = New Eco2Ar.MyCmb() + Me.태양열Panel = New System.Windows.Forms.Panel() + Me.cmb_태양열시스템종류 = New Eco2Ar.MyCmb() + Me.cmb_집열기유형 = New Eco2Ar.MyCmb() + Me.tb_집열판면적 = New Eco2Ar.MyTb() + Me.cmb_집열판방위 = New Eco2Ar.MyCmb() + Me.tB_솔라펌프출력 = New Eco2Ar.MyTb() + Me.cmb_태양열시스템의성능 = New Eco2Ar.MyCmb() + Me.tb_무손실효율계수 = New Eco2Ar.MyTb() + Me.tb_2차손실계수 = New Eco2Ar.MyTb() + Me.tb_1차손실계수 = New Eco2Ar.MyTb() + Me.tb_태양열_cnt2 = New System.Windows.Forms.TextBox() Me.기기종류ComboBox = New Eco2Ar.MyCmb() + Me.tb_태양열_cnt1 = New System.Windows.Forms.TextBox() + Me.Label163 = New System.Windows.Forms.Label() + Me.Label164 = New System.Windows.Forms.Label() Me.cmb_가동연료 = New Eco2Ar.MyCmb() Me.NTb3 = New Eco2Ar.MyTb() - Label456 = New System.Windows.Forms.Label() - Label455 = New System.Windows.Forms.Label() - Label4 = New System.Windows.Forms.Label() - Label6 = New System.Windows.Forms.Label() - Label7 = 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() - Label12 = New System.Windows.Forms.Label() - Label13 = New System.Windows.Forms.Label() - Label14 = New System.Windows.Forms.Label() - Label15 = New System.Windows.Forms.Label() - Label16 = New System.Windows.Forms.Label() + Label33 = New System.Windows.Forms.Label() + Label25 = New System.Windows.Forms.Label() + Label26 = New System.Windows.Forms.Label() + Label27 = New System.Windows.Forms.Label() + Label24 = New System.Windows.Forms.Label() + Label28 = New System.Windows.Forms.Label() + Label29 = New System.Windows.Forms.Label() + Label23 = New System.Windows.Forms.Label() + Label22 = New System.Windows.Forms.Label() + Label37 = New System.Windows.Forms.Label() + Label45 = New System.Windows.Forms.Label() + Label39 = New System.Windows.Forms.Label() + Label40 = New System.Windows.Forms.Label() + Label41 = New System.Windows.Forms.Label() + Label44 = New System.Windows.Forms.Label() + Label1 = New System.Windows.Forms.Label() + Label42 = New System.Windows.Forms.Label() + Label43 = New System.Windows.Forms.Label() + Label34 = New System.Windows.Forms.Label() + Label3 = New System.Windows.Forms.Label() Label17 = New System.Windows.Forms.Label() Label18 = New System.Windows.Forms.Label() Label19 = New System.Windows.Forms.Label() - Label20 = New System.Windows.Forms.Label() - Label21 = New System.Windows.Forms.Label() - Label465 = New System.Windows.Forms.Label() - Label23 = New System.Windows.Forms.Label() - Label24 = New System.Windows.Forms.Label() - Label25 = New System.Windows.Forms.Label() - Label457 = New System.Windows.Forms.Label() - Label458 = New System.Windows.Forms.Label() - Label459 = New System.Windows.Forms.Label() - Label30 = New System.Windows.Forms.Label() - Label31 = New System.Windows.Forms.Label() - Label3 = New System.Windows.Forms.Label() - Label2 = New System.Windows.Forms.Label() - Label5 = New System.Windows.Forms.Label() - Label22 = New System.Windows.Forms.Label() - Label27 = New System.Windows.Forms.Label() - Label29 = New System.Windows.Forms.Label() - Label28 = New System.Windows.Forms.Label() - Label26 = New System.Windows.Forms.Label() Label32 = New System.Windows.Forms.Label() - Label33 = New System.Windows.Forms.Label() - Label34 = New System.Windows.Forms.Label() + Label21 = New System.Windows.Forms.Label() + Label20 = New System.Windows.Forms.Label() + Label5 = New System.Windows.Forms.Label() + Label459 = New System.Windows.Forms.Label() + Label457 = New System.Windows.Forms.Label() + Label31 = New System.Windows.Forms.Label() + Label30 = New System.Windows.Forms.Label() + Label458 = New System.Windows.Forms.Label() + Label35 = New System.Windows.Forms.Label() + Label36 = New System.Windows.Forms.Label() + Label38 = New System.Windows.Forms.Label() + Label4 = New System.Windows.Forms.Label() + Label456 = New System.Windows.Forms.Label() + Label7 = New System.Windows.Forms.Label() + Label6 = New System.Windows.Forms.Label() + Label455 = New System.Windows.Forms.Label() + Label16 = New System.Windows.Forms.Label() + Label8 = New System.Windows.Forms.Label() + Label9 = New System.Windows.Forms.Label() + Label15 = New System.Windows.Forms.Label() + Label10 = New System.Windows.Forms.Label() + Label14 = New System.Windows.Forms.Label() + Label13 = New System.Windows.Forms.Label() + Label11 = New System.Windows.Forms.Label() + Label12 = New System.Windows.Forms.Label() + Label465 = New System.Windows.Forms.Label() + Label2 = New System.Windows.Forms.Label() + Label46 = New System.Windows.Forms.Label() + Label47 = New System.Windows.Forms.Label() Me.TableLayoutPanel1.SuspendLayout() - Me.축열탱크Panel.SuspendLayout() - CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() - Me.태양열Panel.SuspendLayout() - Me.지열Panel.SuspendLayout() - Me.태양광Panel.SuspendLayout() Me.Panel6.SuspendLayout() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout() Me.SplitContainer1.SuspendLayout() CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() Me.bn.SuspendLayout() Me.GroupBox2.SuspendLayout() + Me.지열Panel.SuspendLayout() + Me.tabcontrol1.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.TabPage2.SuspendLayout() + Me.태양광Panel.SuspendLayout() Me.열병합Panel.SuspendLayout() Me.GroupBox1.SuspendLayout() + Me.panWind.SuspendLayout() + Me.축열탱크Panel.SuspendLayout() + Me.태양열Panel.SuspendLayout() Me.SuspendLayout() ' - 'Label456 + 'Label33 ' - Label456.AutoSize = True - Label456.ForeColor = System.Drawing.Color.Black - Label456.Location = New System.Drawing.Point(3, 9) - Label456.Name = "Label456" - Label456.Size = New System.Drawing.Size(159, 12) - Label456.TabIndex = 38 - Label456.Text = "[태양열 시스템:축열탱크]" + Label33.AutoSize = True + Label33.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label33.Location = New System.Drawing.Point(11, 200) + Label33.Name = "Label33" + Label33.Size = New System.Drawing.Size(36, 12) + Label33.TabIndex = 152 + Label33.Text = "비고:" + Label33.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' - 'Label455 + 'Label25 ' - Label455.AutoSize = True - Label455.ForeColor = System.Drawing.Color.Black - Label455.Location = New System.Drawing.Point(6, 4) - Label455.Name = "Label455" - Label455.Size = New System.Drawing.Size(102, 12) - Label455.TabIndex = 38 - Label455.Text = "[태양열 시스템]" + Label25.AutoSize = True + Label25.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label25.Location = New System.Drawing.Point(11, 84) + Label25.Name = "Label25" + Label25.Size = New System.Drawing.Size(107, 12) + Label25.TabIndex = 64 + Label25.Text = "1차펌프동력[W]:" ' - 'Label4 + 'Label26 ' - Label4.AutoSize = True - Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label4.Location = New System.Drawing.Point(3, 32) - Label4.Name = "Label4" - Label4.Size = New System.Drawing.Size(193, 12) - Label4.TabIndex = 32 - Label4.Text = "태양열 축열탱크 체적(급탕)[l]:" + Label26.AutoSize = True + Label26.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label26.Location = New System.Drawing.Point(11, 106) + Label26.Name = "Label26" + Label26.Size = New System.Drawing.Size(107, 12) + Label26.TabIndex = 147 + Label26.Text = "2차펌프동력[W]:" ' - 'Label6 + 'Label27 ' - Label6.AutoSize = True - Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label6.Location = New System.Drawing.Point(3, 58) - Label6.Name = "Label6" - Label6.Size = New System.Drawing.Size(193, 12) - Label6.TabIndex = 34 - Label6.Text = "태양열 축열탱크 체적(난방)[l]:" + Label27.AutoSize = True + Label27.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label27.Location = New System.Drawing.Point(11, 177) + Label27.Name = "Label27" + Label27.Size = New System.Drawing.Size(132, 12) + Label27.TabIndex = 150 + Label27.Text = "지열팽창탱크체적[l]:" ' - 'Label7 + 'Label24 ' - Label7.AutoSize = True - Label7.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label7.Location = New System.Drawing.Point(3, 85) - Label7.Name = "Label7" - Label7.Size = New System.Drawing.Size(114, 12) - Label7.TabIndex = 36 - Label7.Text = "축열탱크설치장소:" + Label24.AutoSize = True + Label24.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label24.Location = New System.Drawing.Point(11, 60) + Label24.Name = "Label24" + Label24.Size = New System.Drawing.Size(134, 12) + Label24.TabIndex = 62 + Label24.Text = "열성능비(COP,냉방):" ' - 'Label8 + 'Label28 ' - Label8.AutoSize = True - Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label8.Location = New System.Drawing.Point(5, 24) - Label8.Name = "Label8" - Label8.Size = New System.Drawing.Size(124, 12) - Label8.TabIndex = 8 - Label8.Text = "태양열 시스템 종류:" + Label28.AutoSize = True + Label28.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label28.Location = New System.Drawing.Point(11, 131) + Label28.Name = "Label28" + Label28.Size = New System.Drawing.Size(114, 12) + Label28.TabIndex = 148 + Label28.Text = "열교환기설치여부:" ' - 'Label9 + 'Label29 ' - Label9.AutoSize = True - Label9.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label9.Location = New System.Drawing.Point(6, 49) - Label9.Name = "Label9" - Label9.Size = New System.Drawing.Size(75, 12) - Label9.TabIndex = 10 - Label9.Text = "집열기유형:" + Label29.AutoSize = True + Label29.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label29.Location = New System.Drawing.Point(11, 154) + Label29.Name = "Label29" + Label29.Size = New System.Drawing.Size(140, 12) + Label29.TabIndex = 149 + Label29.Text = "지열팽창탱크설치여부:" ' - 'Label10 + 'Label23 ' - Label10.AutoSize = True - Label10.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label10.Location = New System.Drawing.Point(6, 73) - Label10.Name = "Label10" - Label10.Size = New System.Drawing.Size(102, 12) - Label10.TabIndex = 12 - Label10.Text = "집열판면적[㎡]:" + Label23.AutoSize = True + Label23.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label23.Location = New System.Drawing.Point(11, 38) + Label23.Name = "Label23" + Label23.Size = New System.Drawing.Size(134, 12) + Label23.TabIndex = 60 + Label23.Text = "열성능비(COP,난방):" ' - 'Label11 + 'Label22 ' - Label11.AutoSize = True - Label11.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label11.Location = New System.Drawing.Point(6, 96) - Label11.Name = "Label11" - Label11.Size = New System.Drawing.Size(75, 12) - Label11.TabIndex = 14 - Label11.Text = "집열판방위:" + Label22.AutoSize = True + Label22.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label22.Location = New System.Drawing.Point(11, 14) + Label22.Name = "Label22" + Label22.Size = New System.Drawing.Size(146, 12) + Label22.TabIndex = 58 + Label22.Text = "지열히트펌프용량[kW]:" ' - 'Label12 + 'Label37 ' - Label12.AutoSize = True - Label12.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label12.Location = New System.Drawing.Point(6, 120) - Label12.Name = "Label12" - Label12.Size = New System.Drawing.Size(152, 12) - Label12.TabIndex = 16 - Label12.Text = "솔라펌프의정격동력[W]:" + Label37.AutoSize = True + Label37.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label37.Location = New System.Drawing.Point(2, 107) + Label37.Name = "Label37" + Label37.Size = New System.Drawing.Size(107, 12) + Label37.TabIndex = 160 + Label37.Text = "1차펌프동력[W]:" ' - 'Label13 + 'Label45 ' - Label13.AutoSize = True - Label13.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label13.Location = New System.Drawing.Point(6, 143) - Label13.Name = "Label13" - Label13.Size = New System.Drawing.Size(127, 12) - Label13.TabIndex = 18 - Label13.Text = "태양열시스템의성능:" + Label45.AutoSize = True + Label45.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label45.Location = New System.Drawing.Point(2, 37) + Label45.Name = "Label45" + Label45.Size = New System.Drawing.Size(146, 12) + Label45.TabIndex = 157 + Label45.Text = "수열히트펌프용량[kW]:" ' - 'Label14 + 'Label39 ' - Label14.AutoSize = True - Label14.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label14.Location = New System.Drawing.Point(6, 168) - Label14.Name = "Label14" - Label14.Size = New System.Drawing.Size(101, 12) - Label14.TabIndex = 20 - Label14.Text = "무손실효율계수:" + Label39.AutoSize = True + Label39.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label39.Location = New System.Drawing.Point(2, 129) + Label39.Name = "Label39" + Label39.Size = New System.Drawing.Size(107, 12) + Label39.TabIndex = 165 + Label39.Text = "2차펌프동력[W]:" ' - 'Label15 + 'Label40 ' - Label15.AutoSize = True - Label15.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label15.Location = New System.Drawing.Point(3, 192) - Label15.Name = "Label15" - Label15.Size = New System.Drawing.Size(148, 12) - Label15.TabIndex = 22 - Label15.Text = "1차열손실계수[W/㎡K]:" + Label40.AutoSize = True + Label40.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label40.Location = New System.Drawing.Point(2, 200) + Label40.Name = "Label40" + Label40.Size = New System.Drawing.Size(132, 12) + Label40.TabIndex = 168 + Label40.Text = "수열팽창탱크체적[l]:" ' - 'Label16 + 'Label41 ' - Label16.AutoSize = True - Label16.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label16.Location = New System.Drawing.Point(3, 215) - Label16.Name = "Label16" - Label16.Size = New System.Drawing.Size(155, 12) - Label16.TabIndex = 24 - Label16.Text = "2차열손실계수[W/㎡K2]:" + Label41.AutoSize = True + Label41.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label41.Location = New System.Drawing.Point(2, 83) + Label41.Name = "Label41" + Label41.Size = New System.Drawing.Size(122, 12) + Label41.TabIndex = 159 + Label41.Text = "열성능비_냉방25도:" + ' + 'Label44 + ' + Label44.AutoSize = True + Label44.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label44.Location = New System.Drawing.Point(2, 61) + Label44.Name = "Label44" + Label44.Size = New System.Drawing.Size(120, 12) + Label44.TabIndex = 158 + Label44.Text = "열성능비_난방 5도:" + ' + 'Label1 + ' + Label1.AutoSize = True + Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label1.Location = New System.Drawing.Point(2, 13) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(49, 12) + Label1.TabIndex = 166 + Label1.Text = "수열원:" + ' + 'Label42 + ' + Label42.AutoSize = True + Label42.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label42.Location = New System.Drawing.Point(2, 154) + Label42.Name = "Label42" + Label42.Size = New System.Drawing.Size(114, 12) + Label42.TabIndex = 166 + Label42.Text = "열교환기설치여부:" + ' + 'Label43 + ' + Label43.AutoSize = True + Label43.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label43.Location = New System.Drawing.Point(2, 177) + Label43.Name = "Label43" + Label43.Size = New System.Drawing.Size(140, 12) + Label43.TabIndex = 167 + Label43.Text = "수열팽창탱크설치여부:" + ' + 'Label34 + ' + Label34.AutoSize = True + Label34.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label34.Location = New System.Drawing.Point(11, 29) + Label34.Name = "Label34" + Label34.Size = New System.Drawing.Size(133, 12) + Label34.TabIndex = 52 + Label34.Text = "태양광발전용량[kW]:" + ' + 'Label3 + ' + Label3.AutoSize = True + Label3.ForeColor = System.Drawing.Color.Black + Label3.Location = New System.Drawing.Point(11, 7) + Label3.Name = "Label3" + Label3.Size = New System.Drawing.Size(102, 12) + Label3.TabIndex = 38 + Label3.Text = "[태양광 시스템]" ' 'Label17 ' @@ -356,15 +466,15 @@ Partial Class Frm_New Label19.TabIndex = 46 Label19.Text = "태양광모듈방위:" ' - 'Label20 + 'Label32 ' - Label20.AutoSize = True - Label20.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label20.Location = New System.Drawing.Point(11, 123) - Label20.Name = "Label20" - Label20.Size = New System.Drawing.Size(101, 12) - Label20.TabIndex = 48 - Label20.Text = "태양광모듈종류:" + Label32.AutoSize = True + Label32.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label32.Location = New System.Drawing.Point(10, 171) + Label32.Name = "Label32" + Label32.Size = New System.Drawing.Size(122, 12) + Label32.TabIndex = 50 + Label32.Text = "태양광모듈효율[-]:" ' 'Label21 ' @@ -376,202 +486,281 @@ Partial Class Frm_New Label21.TabIndex = 50 Label21.Text = "태양광모듈적용타입:" ' - 'Label465 + 'Label20 ' - Label465.AutoSize = True - Label465.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label465.Location = New System.Drawing.Point(27, 48) - Label465.Name = "Label465" - Label465.Size = New System.Drawing.Size(113, 12) - Label465.TabIndex = 2 - Label465.Text = "-시스템 가동연료:" - ' - 'Label23 - ' - Label23.AutoSize = True - Label23.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label23.Location = New System.Drawing.Point(7, 55) - Label23.Name = "Label23" - Label23.Size = New System.Drawing.Size(134, 12) - Label23.TabIndex = 60 - Label23.Text = "열성능비(COP,난방):" - ' - 'Label24 - ' - Label24.AutoSize = True - Label24.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label24.Location = New System.Drawing.Point(7, 77) - Label24.Name = "Label24" - Label24.Size = New System.Drawing.Size(134, 12) - Label24.TabIndex = 62 - Label24.Text = "열성능비(COP,냉방):" - ' - 'Label25 - ' - Label25.AutoSize = True - Label25.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label25.Location = New System.Drawing.Point(7, 101) - Label25.Name = "Label25" - Label25.Size = New System.Drawing.Size(107, 12) - Label25.TabIndex = 64 - Label25.Text = "1차펌프동력[W]:" - ' - 'Label457 - ' - Label457.AutoSize = True - Label457.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label457.Location = New System.Drawing.Point(10, 76) - Label457.Name = "Label457" - Label457.Size = New System.Drawing.Size(93, 12) - Label457.TabIndex = 75 - Label457.Text = "발전 효율[%]:" - ' - 'Label458 - ' - Label458.AutoSize = True - Label458.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label458.Location = New System.Drawing.Point(10, 31) - Label458.Name = "Label458" - Label458.Size = New System.Drawing.Size(112, 12) - Label458.TabIndex = 73 - Label458.Text = "열생산 능력[kW]:" - ' - 'Label459 - ' - Label459.AutoSize = True - Label459.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label459.Location = New System.Drawing.Point(10, 53) - Label459.Name = "Label459" - Label459.Size = New System.Drawing.Size(106, 12) - Label459.TabIndex = 74 - Label459.Text = "열생산 효율[%]:" - ' - 'Label30 - ' - Label30.AutoSize = True - Label30.Location = New System.Drawing.Point(80, 33) - Label30.Name = "Label30" - Label30.Size = New System.Drawing.Size(0, 12) - Label30.TabIndex = 64 - ' - 'Label31 - ' - Label31.AutoSize = True - Label31.Location = New System.Drawing.Point(80, 44) - Label31.Name = "Label31" - Label31.Size = New System.Drawing.Size(0, 12) - Label31.TabIndex = 66 - ' - 'Label3 - ' - Label3.AutoSize = True - Label3.ForeColor = System.Drawing.Color.Black - Label3.Location = New System.Drawing.Point(11, 7) - Label3.Name = "Label3" - Label3.Size = New System.Drawing.Size(102, 12) - Label3.TabIndex = 38 - Label3.Text = "[태양광 시스템]" - ' - 'Label2 - ' - Label2.AutoSize = True - Label2.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label2.Location = New System.Drawing.Point(71, 26) - Label2.Name = "Label2" - Label2.Size = New System.Drawing.Size(69, 12) - Label2.TabIndex = 147 - Label2.Text = "-기기종류:" + Label20.AutoSize = True + Label20.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label20.Location = New System.Drawing.Point(11, 123) + Label20.Name = "Label20" + Label20.Size = New System.Drawing.Size(101, 12) + Label20.TabIndex = 48 + Label20.Text = "태양광모듈종류:" ' 'Label5 ' Label5.AutoSize = True Label5.ForeColor = System.Drawing.Color.Black - Label5.Location = New System.Drawing.Point(10, 5) + Label5.Location = New System.Drawing.Point(9, 5) Label5.Name = "Label5" - Label5.Size = New System.Drawing.Size(102, 12) + Label5.Size = New System.Drawing.Size(120, 12) Label5.TabIndex = 38 - Label5.Text = "[열병합 시스템]" + Label5.Text = "[열병합, 연료전지]" ' - 'Label22 + 'Label459 ' - Label22.AutoSize = True - Label22.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label22.Location = New System.Drawing.Point(7, 31) - Label22.Name = "Label22" - Label22.Size = New System.Drawing.Size(146, 12) - Label22.TabIndex = 58 - Label22.Text = "지열히트펌프용량[kW]:" + Label459.AutoSize = True + Label459.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label459.Location = New System.Drawing.Point(10, 50) + Label459.Name = "Label459" + Label459.Size = New System.Drawing.Size(106, 12) + Label459.TabIndex = 74 + Label459.Text = "열생산 효율[%]:" ' - 'Label27 + 'Label457 ' - Label27.AutoSize = True - Label27.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label27.Location = New System.Drawing.Point(7, 194) - Label27.Name = "Label27" - Label27.Size = New System.Drawing.Size(132, 12) - Label27.TabIndex = 150 - Label27.Text = "지열팽창탱크체적[l]:" + Label457.AutoSize = True + Label457.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label457.Location = New System.Drawing.Point(10, 73) + Label457.Name = "Label457" + Label457.Size = New System.Drawing.Size(93, 12) + Label457.TabIndex = 75 + Label457.Text = "발전 효율[%]:" ' - 'Label29 + 'Label31 ' - Label29.AutoSize = True - Label29.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label29.Location = New System.Drawing.Point(7, 171) - Label29.Name = "Label29" - Label29.Size = New System.Drawing.Size(140, 12) - Label29.TabIndex = 149 - Label29.Text = "지열팽창탱크설치여부:" + Label31.AutoSize = True + Label31.Location = New System.Drawing.Point(80, 41) + Label31.Name = "Label31" + Label31.Size = New System.Drawing.Size(0, 12) + Label31.TabIndex = 66 ' - 'Label28 + 'Label30 ' - Label28.AutoSize = True - Label28.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label28.Location = New System.Drawing.Point(7, 148) - Label28.Name = "Label28" - Label28.Size = New System.Drawing.Size(114, 12) - Label28.TabIndex = 148 - Label28.Text = "열교환기설치여부:" + Label30.AutoSize = True + Label30.Location = New System.Drawing.Point(80, 30) + Label30.Name = "Label30" + Label30.Size = New System.Drawing.Size(0, 12) + Label30.TabIndex = 64 ' - 'Label26 + 'Label458 ' - Label26.AutoSize = True - Label26.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label26.Location = New System.Drawing.Point(7, 123) - Label26.Name = "Label26" - Label26.Size = New System.Drawing.Size(107, 12) - Label26.TabIndex = 147 - Label26.Text = "2차펌프동력[W]:" + Label458.AutoSize = True + Label458.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label458.Location = New System.Drawing.Point(10, 28) + Label458.Name = "Label458" + Label458.Size = New System.Drawing.Size(112, 12) + Label458.TabIndex = 73 + Label458.Text = "열생산 능력[kW]:" ' - 'Label32 + 'Label35 ' - Label32.AutoSize = True - Label32.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label32.Location = New System.Drawing.Point(10, 171) - Label32.Name = "Label32" - Label32.Size = New System.Drawing.Size(122, 12) - Label32.TabIndex = 50 - Label32.Text = "태양광모듈효율[-]:" + Label35.AutoSize = True + Label35.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label35.Location = New System.Drawing.Point(3, 32) + Label35.Name = "Label35" + Label35.Size = New System.Drawing.Size(133, 12) + Label35.TabIndex = 32 + Label35.Text = "로우터 회전면적[㎡]:" ' - 'Label33 + 'Label36 ' - Label33.AutoSize = True - Label33.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label33.Location = New System.Drawing.Point(7, 217) - Label33.Name = "Label33" - Label33.Size = New System.Drawing.Size(36, 12) - Label33.TabIndex = 152 - Label33.Text = "비고:" - Label33.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Label36.AutoSize = True + Label36.ForeColor = System.Drawing.Color.Black + Label36.Location = New System.Drawing.Point(3, 9) + Label36.Name = "Label36" + Label36.Size = New System.Drawing.Size(84, 12) + Label36.TabIndex = 38 + Label36.Text = "[풍력시스템]" ' - 'Label34 + 'Label38 ' - Label34.AutoSize = True - Label34.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label34.Location = New System.Drawing.Point(11, 29) - Label34.Name = "Label34" - Label34.Size = New System.Drawing.Size(133, 12) - Label34.TabIndex = 52 - Label34.Text = "태양광발전용량[kW]:" + Label38.AutoSize = True + Label38.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label38.Location = New System.Drawing.Point(3, 56) + Label38.Name = "Label38" + Label38.Size = New System.Drawing.Size(86, 12) + Label38.TabIndex = 34 + Label38.Text = "허브높이[m]:" + ' + 'Label4 + ' + Label4.AutoSize = True + Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label4.Location = New System.Drawing.Point(3, 32) + Label4.Name = "Label4" + Label4.Size = New System.Drawing.Size(193, 12) + Label4.TabIndex = 32 + Label4.Text = "태양열 축열탱크 체적(급탕)[l]:" + ' + 'Label456 + ' + Label456.AutoSize = True + Label456.ForeColor = System.Drawing.Color.Black + Label456.Location = New System.Drawing.Point(3, 9) + Label456.Name = "Label456" + Label456.Size = New System.Drawing.Size(159, 12) + Label456.TabIndex = 38 + Label456.Text = "[태양열 시스템:축열탱크]" + ' + 'Label7 + ' + Label7.AutoSize = True + Label7.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label7.Location = New System.Drawing.Point(3, 85) + Label7.Name = "Label7" + Label7.Size = New System.Drawing.Size(114, 12) + Label7.TabIndex = 36 + Label7.Text = "축열탱크설치장소:" + ' + 'Label6 + ' + Label6.AutoSize = True + Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label6.Location = New System.Drawing.Point(3, 58) + Label6.Name = "Label6" + Label6.Size = New System.Drawing.Size(193, 12) + Label6.TabIndex = 34 + Label6.Text = "태양열 축열탱크 체적(난방)[l]:" + ' + 'Label455 + ' + Label455.AutoSize = True + Label455.ForeColor = System.Drawing.Color.Black + Label455.Location = New System.Drawing.Point(6, 4) + Label455.Name = "Label455" + Label455.Size = New System.Drawing.Size(102, 12) + Label455.TabIndex = 38 + Label455.Text = "[태양열 시스템]" + ' + 'Label16 + ' + Label16.AutoSize = True + Label16.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label16.Location = New System.Drawing.Point(3, 215) + Label16.Name = "Label16" + Label16.Size = New System.Drawing.Size(155, 12) + Label16.TabIndex = 24 + Label16.Text = "2차열손실계수[W/㎡K2]:" + ' + 'Label8 + ' + Label8.AutoSize = True + Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label8.Location = New System.Drawing.Point(5, 24) + Label8.Name = "Label8" + Label8.Size = New System.Drawing.Size(124, 12) + Label8.TabIndex = 8 + Label8.Text = "태양열 시스템 종류:" + ' + 'Label9 + ' + Label9.AutoSize = True + Label9.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label9.Location = New System.Drawing.Point(6, 49) + Label9.Name = "Label9" + Label9.Size = New System.Drawing.Size(75, 12) + Label9.TabIndex = 10 + Label9.Text = "집열기유형:" + ' + 'Label15 + ' + Label15.AutoSize = True + Label15.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label15.Location = New System.Drawing.Point(3, 192) + Label15.Name = "Label15" + Label15.Size = New System.Drawing.Size(148, 12) + Label15.TabIndex = 22 + Label15.Text = "1차열손실계수[W/㎡K]:" + ' + 'Label10 + ' + Label10.AutoSize = True + Label10.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label10.Location = New System.Drawing.Point(6, 73) + Label10.Name = "Label10" + Label10.Size = New System.Drawing.Size(102, 12) + Label10.TabIndex = 12 + Label10.Text = "집열판면적[㎡]:" + ' + 'Label14 + ' + Label14.AutoSize = True + Label14.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label14.Location = New System.Drawing.Point(6, 168) + Label14.Name = "Label14" + Label14.Size = New System.Drawing.Size(101, 12) + Label14.TabIndex = 20 + Label14.Text = "무손실효율계수:" + ' + 'Label13 + ' + Label13.AutoSize = True + Label13.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label13.Location = New System.Drawing.Point(6, 143) + Label13.Name = "Label13" + Label13.Size = New System.Drawing.Size(127, 12) + Label13.TabIndex = 18 + Label13.Text = "태양열시스템의성능:" + ' + 'Label11 + ' + Label11.AutoSize = True + Label11.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label11.Location = New System.Drawing.Point(6, 96) + Label11.Name = "Label11" + Label11.Size = New System.Drawing.Size(75, 12) + Label11.TabIndex = 14 + Label11.Text = "집열판방위:" + ' + 'Label12 + ' + Label12.AutoSize = True + Label12.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label12.Location = New System.Drawing.Point(6, 120) + Label12.Name = "Label12" + Label12.Size = New System.Drawing.Size(152, 12) + Label12.TabIndex = 16 + Label12.Text = "솔라펌프의정격동력[W]:" + ' + 'Label465 + ' + Label465.AutoSize = True + Label465.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label465.Location = New System.Drawing.Point(27, 36) + Label465.Name = "Label465" + Label465.Size = New System.Drawing.Size(113, 12) + Label465.TabIndex = 2 + Label465.Text = "-시스템 가동연료:" + ' + 'Label2 + ' + Label2.AutoSize = True + Label2.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label2.Location = New System.Drawing.Point(71, 14) + Label2.Name = "Label2" + Label2.Size = New System.Drawing.Size(69, 12) + Label2.TabIndex = 147 + Label2.Text = "-기기종류:" + ' + 'Label46 + ' + Label46.AutoSize = True + Label46.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label46.Location = New System.Drawing.Point(176, 61) + Label46.Name = "Label46" + Label46.Size = New System.Drawing.Size(37, 12) + Label46.TabIndex = 158 + Label46.Text = "15도:" + ' + 'Label47 + ' + Label47.AutoSize = True + Label47.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label47.Location = New System.Drawing.Point(176, 83) + Label47.Name = "Label47" + Label47.Size = New System.Drawing.Size(37, 12) + Label47.TabIndex = 158 + Label47.Text = "35도:" ' 'TableLayoutPanel1 ' @@ -618,78 +807,78 @@ Partial Class Frm_New Me.NTb2.TabIndex = 61 Me.NTb2.TextFormat = Eco2Ar.MyTb.ETFormat.Normal ' - 'tb_태양열_cnt2 + 'Panel6 ' - Me.tb_태양열_cnt2.BackColor = System.Drawing.SystemColors.GrayText - Me.tb_태양열_cnt2.ForeColor = System.Drawing.Color.White - Me.tb_태양열_cnt2.Location = New System.Drawing.Point(249, 95) - Me.tb_태양열_cnt2.Name = "tb_태양열_cnt2" - Me.tb_태양열_cnt2.ReadOnly = True - Me.tb_태양열_cnt2.Size = New System.Drawing.Size(39, 21) - Me.tb_태양열_cnt2.TabIndex = 117 - Me.tb_태양열_cnt2.Text = "0" - Me.tb_태양열_cnt2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.Panel6.BackColor = System.Drawing.Color.White + Me.Panel6.Controls.Add(Me.SplitContainer1) + Me.Panel6.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel6.Location = New System.Drawing.Point(0, 0) + Me.Panel6.Name = "Panel6" + Me.Panel6.Size = New System.Drawing.Size(818, 574) + Me.Panel6.TabIndex = 150 ' - 'tb_태양열_cnt1 + 'SplitContainer1 ' - Me.tb_태양열_cnt1.BackColor = System.Drawing.SystemColors.GrayText - Me.tb_태양열_cnt1.ForeColor = System.Drawing.Color.White - Me.tb_태양열_cnt1.Location = New System.Drawing.Point(249, 73) - Me.tb_태양열_cnt1.Name = "tb_태양열_cnt1" - Me.tb_태양열_cnt1.ReadOnly = True - Me.tb_태양열_cnt1.Size = New System.Drawing.Size(39, 21) - Me.tb_태양열_cnt1.TabIndex = 117 - Me.tb_태양열_cnt1.Text = "0" - Me.tb_태양열_cnt1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.SplitContainer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainer1.FixedPanel = System.Windows.Forms.FixedPanel.Panel1 + Me.SplitContainer1.Location = New System.Drawing.Point(0, 0) + Me.SplitContainer1.Name = "SplitContainer1" ' - 'Label163 + 'SplitContainer1.Panel1 ' - Me.Label163.AutoSize = True - Me.Label163.ForeColor = System.Drawing.Color.DarkCyan - Me.Label163.Location = New System.Drawing.Point(10, 77) - Me.Label163.Name = "Label163" - Me.Label163.Size = New System.Drawing.Size(224, 12) - Me.Label163.TabIndex = 118 - Me.Label163.Text = "-난방기기의 열원기기로 연결된 수 : " - Me.Label163.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.SplitContainer1.Panel1.Controls.Add(Me.dv) + Me.SplitContainer1.Panel1.Controls.Add(Me.bn) ' - 'Label164 + 'SplitContainer1.Panel2 ' - Me.Label164.AutoSize = True - Me.Label164.ForeColor = System.Drawing.Color.DarkCyan - Me.Label164.Location = New System.Drawing.Point(10, 97) - Me.Label164.Name = "Label164" - Me.Label164.Size = New System.Drawing.Size(224, 12) - Me.Label164.TabIndex = 118 - Me.Label164.Text = "-냉방기기의 열원기기로 연결된 수 : " - Me.Label164.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox2) + Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1) + Me.SplitContainer1.Panel2.Controls.Add(Me.tb_태양열_cnt2) + Me.SplitContainer1.Panel2.Controls.Add(Me.기기종류ComboBox) + Me.SplitContainer1.Panel2.Controls.Add(Me.tb_태양열_cnt1) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label163) + Me.SplitContainer1.Panel2.Controls.Add(Me.Label164) + Me.SplitContainer1.Panel2.Controls.Add(Label465) + Me.SplitContainer1.Panel2.Controls.Add(Label2) + Me.SplitContainer1.Panel2.Controls.Add(Me.cmb_가동연료) + Me.SplitContainer1.Size = New System.Drawing.Size(818, 574) + Me.SplitContainer1.SplitterDistance = 212 + Me.SplitContainer1.TabIndex = 150 ' - '축열탱크Panel + 'dv ' - Me.축열탱크Panel.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) - Me.축열탱크Panel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.축열탱크Panel.Controls.Add(Label4) - Me.축열탱크Panel.Controls.Add(Label456) - Me.축열탱크Panel.Controls.Add(Me.tb_축열탱크체적급) - Me.축열탱크Panel.Controls.Add(Me.cmb_축열탱크설치장소) - Me.축열탱크Panel.Controls.Add(Label7) - Me.축열탱크Panel.Controls.Add(Label6) - Me.축열탱크Panel.Controls.Add(Me.tb_축열탱크체적난) - Me.축열탱크Panel.Location = New System.Drawing.Point(9, 266) - Me.축열탱크Panel.Name = "축열탱크Panel" - Me.축열탱크Panel.Size = New System.Drawing.Size(264, 121) - Me.축열탱크Panel.TabIndex = 144 + Me.dv.A_DelCurrentCell = True + Me.dv.A_EnterToTab = False + Me.dv.AllowUserToAddRows = False + Me.dv.AllowUserToResizeRows = False + Me.dv.AutoGenerateColumns = False + Me.dv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells + Me.dv.BackgroundColor = System.Drawing.Color.White + 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.DataSource = Me.bs + Me.dv.Dock = System.Windows.Forms.DockStyle.Fill + Me.dv.Location = New System.Drawing.Point(0, 0) + Me.dv.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5) + Me.dv.MultiSelect = False + Me.dv.Name = "dv" + Me.dv.RowHeadersVisible = False + Me.dv.RowTemplate.Height = 23 + Me.dv.ScrollBars = System.Windows.Forms.ScrollBars.Vertical + Me.dv.Size = New System.Drawing.Size(210, 535) + Me.dv.TabIndex = 0 ' - 'tb_축열탱크체적급 + 'DataGridViewTextBoxColumn1 ' - Me.tb_축열탱크체적급.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "축열탱크체적급탕", True)) - Me.tb_축열탱크체적급.Location = New System.Drawing.Point(202, 28) - Me.tb_축열탱크체적급.Name = "tb_축열탱크체적급" - Me.tb_축열탱크체적급.NectControl = Nothing - Me.tb_축열탱크체적급.Size = New System.Drawing.Size(50, 21) - Me.tb_축열탱크체적급.TabIndex = 9 - Me.tb_축열탱크체적급.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_축열탱크체적급.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + 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 ' @@ -702,6 +891,673 @@ Partial Class Frm_New Me.DS.DataSetName = "DS" Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema ' + 'bn + ' + Me.bn.AddNewItem = Nothing + Me.bn.AutoSize = False + Me.bn.BindingSource = Me.bs + Me.bn.CountItem = Me.lbl_count + Me.bn.DeleteItem = Nothing + Me.bn.Dock = System.Windows.Forms.DockStyle.Bottom + Me.bn.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.bn.ImageScalingSize = New System.Drawing.Size(20, 20) + Me.bn.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_add, Me.bt_Del, Me.bt_cancel, Me.ToolStripSeparator1, Me.lbl_pos, Me.lbl_count, Me.ToolStripSeparator2, Me.lb_code}) + Me.bn.Location = New System.Drawing.Point(0, 535) + Me.bn.MoveFirstItem = Nothing + Me.bn.MoveLastItem = Nothing + Me.bn.MoveNextItem = Nothing + Me.bn.MovePreviousItem = Nothing + Me.bn.Name = "bn" + Me.bn.PositionItem = Me.lbl_pos + Me.bn.Size = New System.Drawing.Size(210, 37) + Me.bn.TabIndex = 1 + Me.bn.Text = "BindingNavigator1" + ' + 'lbl_count + ' + Me.lbl_count.Name = "lbl_count" + Me.lbl_count.Size = New System.Drawing.Size(33, 34) + Me.lbl_count.Text = "/{0}" + ' + 'bt_add + ' + Me.bt_add.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_add.Image = Global.Eco2Ar.My.Resources.Resources.new_32 + Me.bt_add.Name = "bt_add" + Me.bt_add.RightToLeftAutoMirrorImage = True + Me.bt_add.Size = New System.Drawing.Size(24, 34) + Me.bt_add.Text = "신규추가(&A)" + Me.bt_add.ToolTipText = "새로운 프로필을 추가합니다" + ' + 'bt_Del + ' + Me.bt_Del.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_Del.Image = Global.Eco2Ar.My.Resources.Resources.remov_32 + Me.bt_Del.Name = "bt_Del" + Me.bt_Del.RightToLeftAutoMirrorImage = True + Me.bt_Del.Size = New System.Drawing.Size(24, 34) + Me.bt_Del.Text = "선택삭제(&D)" + Me.bt_Del.ToolTipText = "선택된 프로필을 삭제합니다" + ' + 'bt_cancel + ' + Me.bt_cancel.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_cancel.Image = Global.Eco2Ar.My.Resources.Resources.cancl_32 + Me.bt_cancel.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_cancel.Name = "bt_cancel" + Me.bt_cancel.Size = New System.Drawing.Size(24, 34) + Me.bt_cancel.Text = "변경취소(&C)" + Me.bt_cancel.ToolTipText = "변경된 내용을 되돌립니다" + Me.bt_cancel.Visible = False + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 37) + ' + 'lbl_pos + ' + Me.lbl_pos.Name = "lbl_pos" + Me.lbl_pos.Size = New System.Drawing.Size(12, 34) + Me.lbl_pos.Text = "0" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 37) + ' + 'lb_code + ' + Me.lb_code.Name = "lb_code" + Me.lb_code.Size = New System.Drawing.Size(47, 34) + Me.lb_code.Text = "[0000]" + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.지열Panel) + Me.GroupBox2.Controls.Add(Me.태양광Panel) + Me.GroupBox2.Controls.Add(Me.열병합Panel) + Me.GroupBox2.Location = New System.Drawing.Point(295, 4) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(308, 569) + Me.GroupBox2.TabIndex = 150 + Me.GroupBox2.TabStop = False + ' + '지열Panel + ' + Me.지열Panel.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.지열Panel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.지열Panel.Controls.Add(Me.tabcontrol1) + Me.지열Panel.Location = New System.Drawing.Point(9, 312) + Me.지열Panel.Name = "지열Panel" + Me.지열Panel.Size = New System.Drawing.Size(279, 252) + Me.지열Panel.TabIndex = 145 + ' + 'tabcontrol1 + ' + Me.tabcontrol1.Controls.Add(Me.TabPage1) + Me.tabcontrol1.Controls.Add(Me.TabPage2) + Me.tabcontrol1.Dock = System.Windows.Forms.DockStyle.Fill + Me.tabcontrol1.Location = New System.Drawing.Point(0, 0) + Me.tabcontrol1.Name = "tabcontrol1" + Me.tabcontrol1.SelectedIndex = 0 + Me.tabcontrol1.Size = New System.Drawing.Size(277, 250) + Me.tabcontrol1.TabIndex = 151 + Me.tabcontrol1.Text = "LinkLabel1" + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Label33) + Me.TabPage1.Controls.Add(Me.tb_지열펌프용량) + Me.TabPage1.Controls.Add(Me.MyTb1) + Me.TabPage1.Controls.Add(Label25) + Me.TabPage1.Controls.Add(Label26) + Me.TabPage1.Controls.Add(Me.tb_열성능비) + Me.TabPage1.Controls.Add(Label27) + Me.TabPage1.Controls.Add(Label24) + Me.TabPage1.Controls.Add(Label28) + Me.TabPage1.Controls.Add(Me.tb_열성능비2) + Me.TabPage1.Controls.Add(Label29) + Me.TabPage1.Controls.Add(Label23) + Me.TabPage1.Controls.Add(Me.tb_지열팽창탱크체적) + Me.TabPage1.Controls.Add(Me.tb_1차펌프용량) + Me.TabPage1.Controls.Add(Me.cmb_지열팽창설치여부) + Me.TabPage1.Controls.Add(Label22) + Me.TabPage1.Controls.Add(Me.cmb_열교환기설치여부) + Me.TabPage1.Controls.Add(Me.tb_2차펌프용량) + Me.TabPage1.Location = New System.Drawing.Point(4, 22) + Me.TabPage1.Name = "TabPage1" + Me.TabPage1.Size = New System.Drawing.Size(269, 224) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "지열 시스템" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'tb_지열펌프용량 + ' + Me.tb_지열펌프용량.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "지열히트펌프용량", True)) + Me.tb_지열펌프용량.Location = New System.Drawing.Point(174, 11) + Me.tb_지열펌프용량.Name = "tb_지열펌프용량" + Me.tb_지열펌프용량.NectControl = Nothing + Me.tb_지열펌프용량.Size = New System.Drawing.Size(81, 21) + Me.tb_지열펌프용량.TabIndex = 0 + Me.tb_지열펌프용량.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_지열펌프용량.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'MyTb1 + ' + Me.MyTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "지열비고", True)) + Me.MyTb1.Location = New System.Drawing.Point(80, 197) + Me.MyTb1.Multiline = True + Me.MyTb1.Name = "MyTb1" + Me.MyTb1.NectControl = Nothing + Me.MyTb1.Size = New System.Drawing.Size(175, 21) + Me.MyTb1.TabIndex = 151 + Me.MyTb1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.MyTb1.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(174, 34) + Me.tb_열성능비.Name = "tb_열성능비" + Me.tb_열성능비.NectControl = Nothing + Me.tb_열성능비.Size = New System.Drawing.Size(81, 21) + Me.tb_열성능비.TabIndex = 1 + Me.tb_열성능비.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_열성능비.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_열성능비2 + ' + Me.tb_열성능비2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열성능비냉방", True)) + Me.tb_열성능비2.Location = New System.Drawing.Point(174, 57) + Me.tb_열성능비2.Name = "tb_열성능비2" + Me.tb_열성능비2.NectControl = Nothing + Me.tb_열성능비2.Size = New System.Drawing.Size(81, 21) + Me.tb_열성능비2.TabIndex = 2 + Me.tb_열성능비2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_열성능비2.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(174, 174) + Me.tb_지열팽창탱크체적.Name = "tb_지열팽창탱크체적" + Me.tb_지열팽창탱크체적.NectControl = Nothing + Me.tb_지열팽창탱크체적.Size = New System.Drawing.Size(81, 21) + Me.tb_지열팽창탱크체적.TabIndex = 146 + Me.tb_지열팽창탱크체적.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_지열팽창탱크체적.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_1차펌프용량 + ' + Me.tb_1차펌프용량.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "펌프용량1차", True)) + Me.tb_1차펌프용량.Location = New System.Drawing.Point(174, 80) + Me.tb_1차펌프용량.Name = "tb_1차펌프용량" + Me.tb_1차펌프용량.NectControl = Nothing + Me.tb_1차펌프용량.Size = New System.Drawing.Size(81, 21) + Me.tb_1차펌프용량.TabIndex = 3 + Me.tb_1차펌프용량.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_1차펌프용량.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'cmb_지열팽창설치여부 + ' + Me.cmb_지열팽창설치여부.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_지열팽창설치여부.FormattingEnabled = True + Me.cmb_지열팽창설치여부.Location = New System.Drawing.Point(174, 150) + Me.cmb_지열팽창설치여부.Name = "cmb_지열팽창설치여부" + Me.cmb_지열팽창설치여부.NectControl = Nothing + Me.cmb_지열팽창설치여부.Size = New System.Drawing.Size(81, 20) + Me.cmb_지열팽창설치여부.TabIndex = 145 + ' + 'cmb_열교환기설치여부 + ' + Me.cmb_열교환기설치여부.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_열교환기설치여부.FormattingEnabled = True + Me.cmb_열교환기설치여부.Location = New System.Drawing.Point(174, 126) + Me.cmb_열교환기설치여부.Name = "cmb_열교환기설치여부" + Me.cmb_열교환기설치여부.NectControl = Nothing + Me.cmb_열교환기설치여부.Size = New System.Drawing.Size(81, 20) + Me.cmb_열교환기설치여부.TabIndex = 144 + ' + 'tb_2차펌프용량 + ' + Me.tb_2차펌프용량.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "펌프용량2차", True)) + Me.tb_2차펌프용량.Location = New System.Drawing.Point(174, 103) + Me.tb_2차펌프용량.Name = "tb_2차펌프용량" + Me.tb_2차펌프용량.NectControl = Nothing + Me.tb_2차펌프용량.Size = New System.Drawing.Size(81, 21) + Me.tb_2차펌프용량.TabIndex = 143 + Me.tb_2차펌프용량.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_2차펌프용량.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.MyTb6) + Me.TabPage2.Controls.Add(Me.MyTb12) + Me.TabPage2.Controls.Add(Me.MyTb8) + Me.TabPage2.Controls.Add(Me.MyTb5) + Me.TabPage2.Controls.Add(Me.MyTb11) + Me.TabPage2.Controls.Add(Me.MyCmb3) + Me.TabPage2.Controls.Add(Me.MyCmb2) + Me.TabPage2.Controls.Add(Label37) + Me.TabPage2.Controls.Add(Label45) + Me.TabPage2.Controls.Add(Label39) + Me.TabPage2.Controls.Add(Label40) + Me.TabPage2.Controls.Add(Label41) + Me.TabPage2.Controls.Add(Label47) + Me.TabPage2.Controls.Add(Label46) + Me.TabPage2.Controls.Add(Label44) + Me.TabPage2.Controls.Add(Label1) + Me.TabPage2.Controls.Add(Label42) + Me.TabPage2.Controls.Add(Label43) + Me.TabPage2.Controls.Add(Me.cmb_수열팽창설치여부) + Me.TabPage2.Controls.Add(Me.MyTb7) + Me.TabPage2.Controls.Add(Me.MyTb10) + Me.TabPage2.Controls.Add(Me.tb_수열팽창탱크체적) + Me.TabPage2.Location = New System.Drawing.Point(4, 22) + Me.TabPage2.Name = "TabPage2" + Me.TabPage2.Size = New System.Drawing.Size(269, 224) + Me.TabPage2.TabIndex = 1 + Me.TabPage2.Text = "수열 시스템" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'MyTb6 + ' + Me.MyTb6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "수열_열성능비_냉방25도", True)) + Me.MyTb6.Location = New System.Drawing.Point(123, 80) + Me.MyTb6.Name = "MyTb6" + Me.MyTb6.NectControl = Nothing + Me.MyTb6.Size = New System.Drawing.Size(52, 21) + Me.MyTb6.TabIndex = 157 + Me.MyTb6.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.MyTb6.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'MyTb12 + ' + Me.MyTb12.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "수열_열성능비_냉방35도", True)) + Me.MyTb12.Location = New System.Drawing.Point(214, 80) + Me.MyTb12.Name = "MyTb12" + Me.MyTb12.NectControl = Nothing + Me.MyTb12.Size = New System.Drawing.Size(52, 21) + Me.MyTb12.TabIndex = 158 + Me.MyTb12.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.MyTb12.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'MyTb8 + ' + Me.MyTb8.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "수열_열성능비_난방15도", True)) + Me.MyTb8.Location = New System.Drawing.Point(214, 57) + Me.MyTb8.Name = "MyTb8" + Me.MyTb8.NectControl = Nothing + Me.MyTb8.Size = New System.Drawing.Size(52, 21) + Me.MyTb8.TabIndex = 156 + Me.MyTb8.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.MyTb8.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'MyTb5 + ' + Me.MyTb5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "수열_수열히트펌프용량", True)) + Me.MyTb5.Location = New System.Drawing.Point(187, 34) + Me.MyTb5.Name = "MyTb5" + Me.MyTb5.NectControl = Nothing + Me.MyTb5.Size = New System.Drawing.Size(79, 21) + Me.MyTb5.TabIndex = 154 + Me.MyTb5.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.MyTb5.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'MyTb11 + ' + Me.MyTb11.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "수열_2차펌프동력", True)) + Me.MyTb11.Location = New System.Drawing.Point(187, 126) + Me.MyTb11.Name = "MyTb11" + Me.MyTb11.NectControl = Nothing + Me.MyTb11.Size = New System.Drawing.Size(79, 21) + Me.MyTb11.TabIndex = 160 + Me.MyTb11.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.MyTb11.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'MyCmb3 + ' + Me.MyCmb3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "수열_수열원", True)) + Me.MyCmb3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.MyCmb3.FormattingEnabled = True + Me.MyCmb3.Items.AddRange(New Object() {"하천수", "광역원수"}) + Me.MyCmb3.Location = New System.Drawing.Point(186, 8) + Me.MyCmb3.Name = "MyCmb3" + Me.MyCmb3.NectControl = Nothing + Me.MyCmb3.Size = New System.Drawing.Size(80, 20) + Me.MyCmb3.TabIndex = 153 + ' + 'MyCmb2 + ' + Me.MyCmb2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "수열_열교환기설치여부", True)) + Me.MyCmb2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.MyCmb2.FormattingEnabled = True + Me.MyCmb2.Items.AddRange(New Object() {"예", "아니오"}) + Me.MyCmb2.Location = New System.Drawing.Point(187, 149) + Me.MyCmb2.Name = "MyCmb2" + Me.MyCmb2.NectControl = Nothing + Me.MyCmb2.Size = New System.Drawing.Size(79, 20) + Me.MyCmb2.TabIndex = 161 + ' + 'cmb_수열팽창설치여부 + ' + Me.cmb_수열팽창설치여부.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "수열_수열팽창탱크설치여부", True)) + Me.cmb_수열팽창설치여부.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_수열팽창설치여부.FormattingEnabled = True + Me.cmb_수열팽창설치여부.Items.AddRange(New Object() {"예", "아니오"}) + Me.cmb_수열팽창설치여부.Location = New System.Drawing.Point(187, 173) + Me.cmb_수열팽창설치여부.Name = "cmb_수열팽창설치여부" + Me.cmb_수열팽창설치여부.NectControl = Nothing + Me.cmb_수열팽창설치여부.Size = New System.Drawing.Size(79, 20) + Me.cmb_수열팽창설치여부.TabIndex = 162 + ' + 'MyTb7 + ' + Me.MyTb7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "수열_열성능비_난방5도", True)) + Me.MyTb7.Location = New System.Drawing.Point(123, 57) + Me.MyTb7.Name = "MyTb7" + Me.MyTb7.NectControl = Nothing + Me.MyTb7.Size = New System.Drawing.Size(52, 21) + Me.MyTb7.TabIndex = 155 + Me.MyTb7.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.MyTb7.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'MyTb10 + ' + Me.MyTb10.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "수열_1차펌프동력", True)) + Me.MyTb10.Location = New System.Drawing.Point(187, 103) + Me.MyTb10.Name = "MyTb10" + Me.MyTb10.NectControl = Nothing + Me.MyTb10.Size = New System.Drawing.Size(79, 21) + Me.MyTb10.TabIndex = 159 + Me.MyTb10.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.MyTb10.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(187, 197) + Me.tb_수열팽창탱크체적.Name = "tb_수열팽창탱크체적" + Me.tb_수열팽창탱크체적.NectControl = Nothing + Me.tb_수열팽창탱크체적.Size = New System.Drawing.Size(79, 21) + Me.tb_수열팽창탱크체적.TabIndex = 163 + Me.tb_수열팽창탱크체적.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_수열팽창탱크체적.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '태양광Panel + ' + Me.태양광Panel.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.태양광Panel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.태양광Panel.Controls.Add(Me.CheckBox1) + Me.태양광Panel.Controls.Add(Label34) + Me.태양광Panel.Controls.Add(Me.MyTb2) + Me.태양광Panel.Controls.Add(Label3) + Me.태양광Panel.Controls.Add(Label17) + Me.태양광Panel.Controls.Add(Me.cmb_모듈종류) + Me.태양광Panel.Controls.Add(Me.cmb_모듈방위) + Me.태양광Panel.Controls.Add(Label18) + Me.태양광Panel.Controls.Add(Me.cmb_모듈적용타입) + Me.태양광Panel.Controls.Add(Me.cmb_모듈기울기) + Me.태양광Panel.Controls.Add(Label19) + Me.태양광Panel.Controls.Add(Label32) + Me.태양광Panel.Controls.Add(Label21) + Me.태양광Panel.Controls.Add(Me.tb_모듈효율) + Me.태양광Panel.Controls.Add(Me.tb_모듈면적) + Me.태양광Panel.Controls.Add(Label20) + Me.태양광Panel.Location = New System.Drawing.Point(9, 111) + Me.태양광Panel.Name = "태양광Panel" + Me.태양광Panel.Size = New System.Drawing.Size(279, 198) + Me.태양광Panel.TabIndex = 0 + ' + 'CheckBox1 + ' + Me.CheckBox1.AutoSize = True + Me.CheckBox1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Me.bs, "대지외설치여부", True)) + Me.CheckBox1.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.CheckBox1.Location = New System.Drawing.Point(150, 4) + Me.CheckBox1.Name = "CheckBox1" + Me.CheckBox1.Size = New System.Drawing.Size(120, 16) + Me.CheckBox1.TabIndex = 53 + Me.CheckBox1.Text = "대지외 설치여부" + Me.CheckBox1.UseVisualStyleBackColor = True + ' + 'MyTb2 + ' + Me.MyTb2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "태양광용량", True)) + Me.MyTb2.Location = New System.Drawing.Point(165, 23) + Me.MyTb2.Name = "MyTb2" + Me.MyTb2.NectControl = Nothing + Me.MyTb2.Size = New System.Drawing.Size(94, 21) + Me.MyTb2.TabIndex = 0 + Me.MyTb2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.MyTb2.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'cmb_모듈종류 + ' + Me.cmb_모듈종류.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_모듈종류.FormattingEnabled = True + Me.cmb_모듈종류.Location = New System.Drawing.Point(165, 120) + Me.cmb_모듈종류.Name = "cmb_모듈종류" + Me.cmb_모듈종류.NectControl = Nothing + Me.cmb_모듈종류.Size = New System.Drawing.Size(94, 20) + Me.cmb_모듈종류.TabIndex = 4 + ' + 'cmb_모듈방위 + ' + Me.cmb_모듈방위.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_모듈방위.FormattingEnabled = True + Me.cmb_모듈방위.Location = New System.Drawing.Point(165, 96) + Me.cmb_모듈방위.Name = "cmb_모듈방위" + Me.cmb_모듈방위.NectControl = Nothing + Me.cmb_모듈방위.Size = New System.Drawing.Size(94, 20) + Me.cmb_모듈방위.TabIndex = 3 + ' + 'cmb_모듈적용타입 + ' + Me.cmb_모듈적용타입.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_모듈적용타입.FormattingEnabled = True + Me.cmb_모듈적용타입.Location = New System.Drawing.Point(165, 143) + Me.cmb_모듈적용타입.Name = "cmb_모듈적용타입" + Me.cmb_모듈적용타입.NectControl = Nothing + Me.cmb_모듈적용타입.Size = New System.Drawing.Size(94, 20) + Me.cmb_모듈적용타입.TabIndex = 5 + ' + 'cmb_모듈기울기 + ' + Me.cmb_모듈기울기.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_모듈기울기.FormattingEnabled = True + Me.cmb_모듈기울기.Location = New System.Drawing.Point(165, 72) + Me.cmb_모듈기울기.Name = "cmb_모듈기울기" + Me.cmb_모듈기울기.NectControl = Nothing + Me.cmb_모듈기울기.Size = New System.Drawing.Size(94, 20) + Me.cmb_모듈기울기.TabIndex = 2 + ' + 'tb_모듈효율 + ' + Me.tb_모듈효율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "태양광모듈효율", True)) + Me.tb_모듈효율.Location = New System.Drawing.Point(165, 168) + Me.tb_모듈효율.Name = "tb_모듈효율" + Me.tb_모듈효율.NectControl = Nothing + Me.tb_모듈효율.Size = New System.Drawing.Size(94, 21) + Me.tb_모듈효율.TabIndex = 6 + Me.tb_모듈효율.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_모듈효율.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(165, 49) + Me.tb_모듈면적.Name = "tb_모듈면적" + Me.tb_모듈면적.NectControl = Nothing + Me.tb_모듈면적.Size = New System.Drawing.Size(94, 21) + Me.tb_모듈면적.TabIndex = 1 + Me.tb_모듈면적.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_모듈면적.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '열병합Panel + ' + Me.열병합Panel.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.열병합Panel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.열병합Panel.Controls.Add(Me.chk_개별기기적용) + Me.열병합Panel.Controls.Add(Label5) + Me.열병합Panel.Controls.Add(Label459) + Me.열병합Panel.Controls.Add(Me.tb_열생산능력) + Me.열병합Panel.Controls.Add(Me.tb_열생산효율) + Me.열병합Panel.Controls.Add(Label457) + Me.열병합Panel.Controls.Add(Me.tb_발전효율) + Me.열병합Panel.Controls.Add(Label31) + Me.열병합Panel.Controls.Add(Label30) + Me.열병합Panel.Controls.Add(Label458) + Me.열병합Panel.Location = New System.Drawing.Point(9, 12) + Me.열병합Panel.Name = "열병합Panel" + Me.열병합Panel.Size = New System.Drawing.Size(279, 96) + Me.열병합Panel.TabIndex = 145 + ' + 'chk_개별기기적용 + ' + Me.chk_개별기기적용.AutoSize = True + Me.chk_개별기기적용.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Me.bs, "열병합신재생여부", True)) + Me.chk_개별기기적용.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.chk_개별기기적용.Location = New System.Drawing.Point(150, 4) + Me.chk_개별기기적용.Name = "chk_개별기기적용" + Me.chk_개별기기적용.Size = New System.Drawing.Size(120, 16) + Me.chk_개별기기적용.TabIndex = 172 + Me.chk_개별기기적용.Tag = "개별기기적용" + Me.chk_개별기기적용.Text = "신재생 적용여부" + Me.chk_개별기기적용.UseVisualStyleBackColor = True + ' + 'tb_열생산능력 + ' + Me.tb_열생산능력.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열생산능력", True)) + Me.tb_열생산능력.Location = New System.Drawing.Point(165, 25) + Me.tb_열생산능력.Name = "tb_열생산능력" + Me.tb_열생산능력.NectControl = Nothing + Me.tb_열생산능력.Size = New System.Drawing.Size(94, 21) + Me.tb_열생산능력.TabIndex = 13 + Me.tb_열생산능력.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_열생산능력.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(165, 47) + Me.tb_열생산효율.Name = "tb_열생산효율" + Me.tb_열생산효율.NectControl = Nothing + Me.tb_열생산효율.Size = New System.Drawing.Size(94, 21) + Me.tb_열생산효율.TabIndex = 14 + Me.tb_열생산효율.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_열생산효율.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(165, 70) + Me.tb_발전효율.Name = "tb_발전효율" + Me.tb_발전효율.NectControl = Nothing + Me.tb_발전효율.Size = New System.Drawing.Size(94, 21) + Me.tb_발전효율.TabIndex = 15 + Me.tb_발전효율.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_발전효율.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.panWind) + Me.GroupBox1.Controls.Add(Me.축열탱크Panel) + Me.GroupBox1.Controls.Add(Me.태양열Panel) + Me.GroupBox1.Location = New System.Drawing.Point(6, 102) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(283, 471) + Me.GroupBox1.TabIndex = 149 + Me.GroupBox1.TabStop = False + ' + 'panWind + ' + Me.panWind.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.panWind.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.panWind.Controls.Add(Me.CheckBox2) + Me.panWind.Controls.Add(Label35) + Me.panWind.Controls.Add(Label36) + Me.panWind.Controls.Add(Me.MyTb3) + Me.panWind.Controls.Add(Label38) + Me.panWind.Controls.Add(Me.MyTb4) + Me.panWind.Location = New System.Drawing.Point(6, 380) + Me.panWind.Name = "panWind" + Me.panWind.Size = New System.Drawing.Size(267, 86) + Me.panWind.TabIndex = 145 + ' + 'CheckBox2 + ' + Me.CheckBox2.AutoSize = True + Me.CheckBox2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Me.bs, "대지외설치여부_풍력", True)) + Me.CheckBox2.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.CheckBox2.Location = New System.Drawing.Point(142, 8) + Me.CheckBox2.Name = "CheckBox2" + Me.CheckBox2.Size = New System.Drawing.Size(120, 16) + Me.CheckBox2.TabIndex = 53 + Me.CheckBox2.Text = "대지외 설치여부" + Me.CheckBox2.UseVisualStyleBackColor = True + ' + 'MyTb3 + ' + Me.MyTb3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "풍력로우터회전면적", True)) + Me.MyTb3.Location = New System.Drawing.Point(170, 28) + Me.MyTb3.Name = "MyTb3" + Me.MyTb3.NectControl = Nothing + Me.MyTb3.Size = New System.Drawing.Size(88, 21) + Me.MyTb3.TabIndex = 9 + Me.MyTb3.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.MyTb3.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'MyTb4 + ' + Me.MyTb4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "풍력허브높이", True)) + Me.MyTb4.Location = New System.Drawing.Point(170, 52) + Me.MyTb4.Name = "MyTb4" + Me.MyTb4.NectControl = Nothing + Me.MyTb4.Size = New System.Drawing.Size(88, 21) + Me.MyTb4.TabIndex = 10 + Me.MyTb4.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.MyTb4.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + '축열탱크Panel + ' + Me.축열탱크Panel.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Me.축열탱크Panel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.축열탱크Panel.Controls.Add(Me.tb_축열탱크체적급) + Me.축열탱크Panel.Controls.Add(Me.tb_축열탱크체적난) + Me.축열탱크Panel.Controls.Add(Label4) + Me.축열탱크Panel.Controls.Add(Label456) + Me.축열탱크Panel.Controls.Add(Me.cmb_축열탱크설치장소) + Me.축열탱크Panel.Controls.Add(Label7) + Me.축열탱크Panel.Controls.Add(Label6) + Me.축열탱크Panel.Location = New System.Drawing.Point(6, 261) + Me.축열탱크Panel.Name = "축열탱크Panel" + Me.축열탱크Panel.Size = New System.Drawing.Size(267, 113) + Me.축열탱크Panel.TabIndex = 144 + ' + 'tb_축열탱크체적급 + ' + Me.tb_축열탱크체적급.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "축열탱크체적급탕", True)) + Me.tb_축열탱크체적급.Location = New System.Drawing.Point(195, 28) + Me.tb_축열탱크체적급.Name = "tb_축열탱크체적급" + Me.tb_축열탱크체적급.NectControl = Nothing + Me.tb_축열탱크체적급.Size = New System.Drawing.Size(63, 21) + Me.tb_축열탱크체적급.TabIndex = 9 + Me.tb_축열탱크체적급.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_축열탱크체적급.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(195, 54) + Me.tb_축열탱크체적난.Name = "tb_축열탱크체적난" + Me.tb_축열탱크체적난.NectControl = Nothing + Me.tb_축열탱크체적난.Size = New System.Drawing.Size(63, 21) + Me.tb_축열탱크체적난.TabIndex = 10 + Me.tb_축열탱크체적난.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_축열탱크체적난.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' 'cmb_축열탱크설치장소 ' Me.cmb_축열탱크설치장소.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList @@ -709,20 +1565,9 @@ Partial Class Frm_New Me.cmb_축열탱크설치장소.Location = New System.Drawing.Point(167, 81) Me.cmb_축열탱크설치장소.Name = "cmb_축열탱크설치장소" Me.cmb_축열탱크설치장소.NectControl = Nothing - Me.cmb_축열탱크설치장소.Size = New System.Drawing.Size(85, 20) + Me.cmb_축열탱크설치장소.Size = New System.Drawing.Size(91, 20) Me.cmb_축열탱크설치장소.TabIndex = 11 ' - 'tb_축열탱크체적난 - ' - Me.tb_축열탱크체적난.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "축열탱크체적난방", True)) - Me.tb_축열탱크체적난.Location = New System.Drawing.Point(202, 54) - Me.tb_축열탱크체적난.Name = "tb_축열탱크체적난" - Me.tb_축열탱크체적난.NectControl = Nothing - Me.tb_축열탱크체적난.Size = New System.Drawing.Size(50, 21) - Me.tb_축열탱크체적난.TabIndex = 10 - Me.tb_축열탱크체적난.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_축열탱크체적난.TextFormat = Eco2Ar.MyTb.ETFormat.Normal - ' '태양열Panel ' Me.태양열Panel.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) @@ -846,507 +1691,69 @@ Partial Class Frm_New Me.tb_1차손실계수.TextAlign = System.Windows.Forms.HorizontalAlignment.Right Me.tb_1차손실계수.TextFormat = Eco2Ar.MyTb.ETFormat.Normal ' - '지열Panel - ' - Me.지열Panel.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) - Me.지열Panel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.지열Panel.Controls.Add(Label33) - Me.지열Panel.Controls.Add(Me.MyTb1) - Me.지열Panel.Controls.Add(Label26) - Me.지열Panel.Controls.Add(Label27) - Me.지열Panel.Controls.Add(Label28) - Me.지열Panel.Controls.Add(Label29) - Me.지열Panel.Controls.Add(Me.tb_지열팽창탱크체적) - Me.지열Panel.Controls.Add(Me.cmb_지열팽창설치여부) - Me.지열Panel.Controls.Add(Me.cmb_열교환기설치여부) - Me.지열Panel.Controls.Add(Me.tb_2차펌프용량) - Me.지열Panel.Controls.Add(Me.Label1) - Me.지열Panel.Controls.Add(Label22) - Me.지열Panel.Controls.Add(Me.tb_1차펌프용량) - Me.지열Panel.Controls.Add(Label23) - Me.지열Panel.Controls.Add(Me.tb_열성능비2) - Me.지열Panel.Controls.Add(Label24) - Me.지열Panel.Controls.Add(Me.tb_열성능비) - Me.지열Panel.Controls.Add(Label25) - Me.지열Panel.Controls.Add(Me.tb_지열펌프용량) - Me.지열Panel.Location = New System.Drawing.Point(9, 312) - Me.지열Panel.Name = "지열Panel" - Me.지열Panel.Size = New System.Drawing.Size(279, 246) - Me.지열Panel.TabIndex = 145 - ' - 'MyTb1 - ' - Me.MyTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "지열비고", True)) - Me.MyTb1.Location = New System.Drawing.Point(76, 214) - Me.MyTb1.Multiline = True - Me.MyTb1.Name = "MyTb1" - Me.MyTb1.NectControl = Nothing - Me.MyTb1.Size = New System.Drawing.Size(183, 21) - Me.MyTb1.TabIndex = 151 - Me.MyTb1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.MyTb1.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(165, 191) - Me.tb_지열팽창탱크체적.Name = "tb_지열팽창탱크체적" - Me.tb_지열팽창탱크체적.NectControl = Nothing - Me.tb_지열팽창탱크체적.Size = New System.Drawing.Size(94, 21) - Me.tb_지열팽창탱크체적.TabIndex = 146 - Me.tb_지열팽창탱크체적.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_지열팽창탱크체적.TextFormat = Eco2Ar.MyTb.ETFormat.Normal - ' - 'cmb_지열팽창설치여부 - ' - Me.cmb_지열팽창설치여부.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cmb_지열팽창설치여부.FormattingEnabled = True - Me.cmb_지열팽창설치여부.Location = New System.Drawing.Point(165, 167) - Me.cmb_지열팽창설치여부.Name = "cmb_지열팽창설치여부" - Me.cmb_지열팽창설치여부.NectControl = Nothing - Me.cmb_지열팽창설치여부.Size = New System.Drawing.Size(94, 20) - Me.cmb_지열팽창설치여부.TabIndex = 145 - ' - 'cmb_열교환기설치여부 - ' - Me.cmb_열교환기설치여부.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cmb_열교환기설치여부.FormattingEnabled = True - Me.cmb_열교환기설치여부.Location = New System.Drawing.Point(165, 143) - Me.cmb_열교환기설치여부.Name = "cmb_열교환기설치여부" - Me.cmb_열교환기설치여부.NectControl = Nothing - Me.cmb_열교환기설치여부.Size = New System.Drawing.Size(94, 20) - Me.cmb_열교환기설치여부.TabIndex = 144 - ' - 'tb_2차펌프용량 - ' - Me.tb_2차펌프용량.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "펌프용량2차", True)) - Me.tb_2차펌프용량.Location = New System.Drawing.Point(165, 120) - Me.tb_2차펌프용량.Name = "tb_2차펌프용량" - Me.tb_2차펌프용량.NectControl = Nothing - Me.tb_2차펌프용량.Size = New System.Drawing.Size(94, 21) - Me.tb_2차펌프용량.TabIndex = 143 - Me.tb_2차펌프용량.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_2차펌프용량.TextFormat = Eco2Ar.MyTb.ETFormat.Normal - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.ForeColor = System.Drawing.Color.Black - Me.Label1.Location = New System.Drawing.Point(7, 9) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(89, 12) - Me.Label1.TabIndex = 142 - Me.Label1.Text = "[지열 시스템]" - ' - 'tb_1차펌프용량 - ' - Me.tb_1차펌프용량.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "펌프용량1차", True)) - Me.tb_1차펌프용량.Location = New System.Drawing.Point(165, 97) - Me.tb_1차펌프용량.Name = "tb_1차펌프용량" - Me.tb_1차펌프용량.NectControl = Nothing - Me.tb_1차펌프용량.Size = New System.Drawing.Size(94, 21) - Me.tb_1차펌프용량.TabIndex = 3 - Me.tb_1차펌프용량.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_1차펌프용량.TextFormat = Eco2Ar.MyTb.ETFormat.Normal - ' - 'tb_열성능비2 - ' - Me.tb_열성능비2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열성능비냉방", True)) - Me.tb_열성능비2.Location = New System.Drawing.Point(165, 74) - Me.tb_열성능비2.Name = "tb_열성능비2" - Me.tb_열성능비2.NectControl = Nothing - Me.tb_열성능비2.Size = New System.Drawing.Size(94, 21) - Me.tb_열성능비2.TabIndex = 2 - Me.tb_열성능비2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_열성능비2.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(165, 51) - Me.tb_열성능비.Name = "tb_열성능비" - Me.tb_열성능비.NectControl = Nothing - Me.tb_열성능비.Size = New System.Drawing.Size(94, 21) - Me.tb_열성능비.TabIndex = 1 - Me.tb_열성능비.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_열성능비.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(165, 28) - Me.tb_지열펌프용량.Name = "tb_지열펌프용량" - Me.tb_지열펌프용량.NectControl = Nothing - Me.tb_지열펌프용량.Size = New System.Drawing.Size(94, 21) - Me.tb_지열펌프용량.TabIndex = 0 - Me.tb_지열펌프용량.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_지열펌프용량.TextFormat = Eco2Ar.MyTb.ETFormat.Normal - ' - '태양광Panel - ' - Me.태양광Panel.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) - Me.태양광Panel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.태양광Panel.Controls.Add(Me.CheckBox1) - Me.태양광Panel.Controls.Add(Label34) - Me.태양광Panel.Controls.Add(Me.MyTb2) - Me.태양광Panel.Controls.Add(Label3) - Me.태양광Panel.Controls.Add(Label17) - Me.태양광Panel.Controls.Add(Me.cmb_모듈종류) - Me.태양광Panel.Controls.Add(Me.cmb_모듈방위) - Me.태양광Panel.Controls.Add(Label18) - Me.태양광Panel.Controls.Add(Me.cmb_모듈적용타입) - Me.태양광Panel.Controls.Add(Me.cmb_모듈기울기) - Me.태양광Panel.Controls.Add(Label19) - Me.태양광Panel.Controls.Add(Label32) - Me.태양광Panel.Controls.Add(Label21) - Me.태양광Panel.Controls.Add(Me.tb_모듈효율) - Me.태양광Panel.Controls.Add(Me.tb_모듈면적) - Me.태양광Panel.Controls.Add(Label20) - Me.태양광Panel.Location = New System.Drawing.Point(9, 113) - Me.태양광Panel.Name = "태양광Panel" - Me.태양광Panel.Size = New System.Drawing.Size(279, 198) - Me.태양광Panel.TabIndex = 0 - ' - 'CheckBox1 - ' - Me.CheckBox1.AutoSize = True - Me.CheckBox1.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Me.bs, "대지외설치여부", True)) - Me.CheckBox1.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Me.CheckBox1.Location = New System.Drawing.Point(145, 4) - Me.CheckBox1.Name = "CheckBox1" - Me.CheckBox1.Size = New System.Drawing.Size(120, 16) - Me.CheckBox1.TabIndex = 53 - Me.CheckBox1.Text = "대지외 설치여부" - Me.CheckBox1.UseVisualStyleBackColor = True - ' - 'MyTb2 - ' - Me.MyTb2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "태양광용량", True)) - Me.MyTb2.Location = New System.Drawing.Point(165, 23) - Me.MyTb2.Name = "MyTb2" - Me.MyTb2.NectControl = Nothing - Me.MyTb2.Size = New System.Drawing.Size(94, 21) - Me.MyTb2.TabIndex = 0 - Me.MyTb2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.MyTb2.TextFormat = Eco2Ar.MyTb.ETFormat.Normal - ' - 'cmb_모듈종류 - ' - Me.cmb_모듈종류.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cmb_모듈종류.FormattingEnabled = True - Me.cmb_모듈종류.Location = New System.Drawing.Point(165, 120) - Me.cmb_모듈종류.Name = "cmb_모듈종류" - Me.cmb_모듈종류.NectControl = Nothing - Me.cmb_모듈종류.Size = New System.Drawing.Size(94, 20) - Me.cmb_모듈종류.TabIndex = 4 - ' - 'cmb_모듈방위 - ' - Me.cmb_모듈방위.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cmb_모듈방위.FormattingEnabled = True - Me.cmb_모듈방위.Location = New System.Drawing.Point(165, 96) - Me.cmb_모듈방위.Name = "cmb_모듈방위" - Me.cmb_모듈방위.NectControl = Nothing - Me.cmb_모듈방위.Size = New System.Drawing.Size(94, 20) - Me.cmb_모듈방위.TabIndex = 3 - ' - 'cmb_모듈적용타입 - ' - Me.cmb_모듈적용타입.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cmb_모듈적용타입.FormattingEnabled = True - Me.cmb_모듈적용타입.Location = New System.Drawing.Point(165, 143) - Me.cmb_모듈적용타입.Name = "cmb_모듈적용타입" - Me.cmb_모듈적용타입.NectControl = Nothing - Me.cmb_모듈적용타입.Size = New System.Drawing.Size(94, 20) - Me.cmb_모듈적용타입.TabIndex = 5 - ' - 'cmb_모듈기울기 - ' - Me.cmb_모듈기울기.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cmb_모듈기울기.FormattingEnabled = True - Me.cmb_모듈기울기.Location = New System.Drawing.Point(165, 72) - Me.cmb_모듈기울기.Name = "cmb_모듈기울기" - Me.cmb_모듈기울기.NectControl = Nothing - Me.cmb_모듈기울기.Size = New System.Drawing.Size(94, 20) - Me.cmb_모듈기울기.TabIndex = 2 - ' - 'tb_모듈효율 - ' - Me.tb_모듈효율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "태양광모듈효율", True)) - Me.tb_모듈효율.Location = New System.Drawing.Point(165, 168) - Me.tb_모듈효율.Name = "tb_모듈효율" - Me.tb_모듈효율.NectControl = Nothing - Me.tb_모듈효율.Size = New System.Drawing.Size(94, 21) - Me.tb_모듈효율.TabIndex = 6 - Me.tb_모듈효율.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_모듈효율.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(165, 49) - Me.tb_모듈면적.Name = "tb_모듈면적" - Me.tb_모듈면적.NectControl = Nothing - Me.tb_모듈면적.Size = New System.Drawing.Size(94, 21) - Me.tb_모듈면적.TabIndex = 1 - Me.tb_모듈면적.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_모듈면적.TextFormat = Eco2Ar.MyTb.ETFormat.Normal - ' - 'Panel6 - ' - Me.Panel6.BackColor = System.Drawing.Color.White - Me.Panel6.Controls.Add(Me.SplitContainer1) - Me.Panel6.Dock = System.Windows.Forms.DockStyle.Fill - Me.Panel6.Location = New System.Drawing.Point(0, 0) - Me.Panel6.Name = "Panel6" - Me.Panel6.Size = New System.Drawing.Size(818, 574) - Me.Panel6.TabIndex = 150 - ' - 'SplitContainer1 - ' - Me.SplitContainer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill - Me.SplitContainer1.FixedPanel = System.Windows.Forms.FixedPanel.Panel1 - Me.SplitContainer1.Location = New System.Drawing.Point(0, 0) - Me.SplitContainer1.Name = "SplitContainer1" - ' - 'SplitContainer1.Panel1 - ' - Me.SplitContainer1.Panel1.Controls.Add(Me.dv) - Me.SplitContainer1.Panel1.Controls.Add(Me.bn) - ' - 'SplitContainer1.Panel2 - ' - Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox2) - Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1) - Me.SplitContainer1.Panel2.Controls.Add(Me.tb_태양열_cnt2) - Me.SplitContainer1.Panel2.Controls.Add(Me.기기종류ComboBox) - Me.SplitContainer1.Panel2.Controls.Add(Me.tb_태양열_cnt1) - Me.SplitContainer1.Panel2.Controls.Add(Me.Label163) - Me.SplitContainer1.Panel2.Controls.Add(Me.Label164) - Me.SplitContainer1.Panel2.Controls.Add(Label465) - Me.SplitContainer1.Panel2.Controls.Add(Label2) - Me.SplitContainer1.Panel2.Controls.Add(Me.cmb_가동연료) - Me.SplitContainer1.Size = New System.Drawing.Size(818, 574) - Me.SplitContainer1.SplitterDistance = 212 - Me.SplitContainer1.TabIndex = 150 - ' - 'dv - ' - Me.dv.A_DelCurrentCell = True - Me.dv.A_EnterToTab = False - Me.dv.AllowUserToAddRows = False - Me.dv.AllowUserToResizeRows = False - Me.dv.AutoGenerateColumns = False - Me.dv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells - Me.dv.BackgroundColor = System.Drawing.Color.White - 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.DataSource = Me.bs - Me.dv.Dock = System.Windows.Forms.DockStyle.Fill - Me.dv.Location = New System.Drawing.Point(0, 0) - Me.dv.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5) - Me.dv.MultiSelect = False - Me.dv.Name = "dv" - Me.dv.RowHeadersVisible = False - Me.dv.RowTemplate.Height = 23 - Me.dv.ScrollBars = System.Windows.Forms.ScrollBars.Vertical - 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 - ' - 'bn - ' - Me.bn.AddNewItem = Nothing - Me.bn.AutoSize = False - Me.bn.BindingSource = Me.bs - Me.bn.CountItem = Me.lbl_count - Me.bn.DeleteItem = Nothing - Me.bn.Dock = System.Windows.Forms.DockStyle.Bottom - Me.bn.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) - Me.bn.ImageScalingSize = New System.Drawing.Size(20, 20) - Me.bn.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_add, Me.bt_Del, Me.bt_cancel, Me.ToolStripSeparator1, Me.lbl_pos, Me.lbl_count, Me.ToolStripSeparator2, Me.lb_code}) - Me.bn.Location = New System.Drawing.Point(0, 535) - Me.bn.MoveFirstItem = Nothing - Me.bn.MoveLastItem = Nothing - Me.bn.MoveNextItem = Nothing - Me.bn.MovePreviousItem = Nothing - Me.bn.Name = "bn" - Me.bn.PositionItem = Me.lbl_pos - Me.bn.Size = New System.Drawing.Size(210, 37) - Me.bn.TabIndex = 1 - Me.bn.Text = "BindingNavigator1" - ' - 'lbl_count - ' - Me.lbl_count.Name = "lbl_count" - Me.lbl_count.Size = New System.Drawing.Size(33, 34) - Me.lbl_count.Text = "/{0}" - ' - 'bt_add - ' - Me.bt_add.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.bt_add.Image = Global.Eco2Ar.My.Resources.Resources.new_32 - Me.bt_add.Name = "bt_add" - Me.bt_add.RightToLeftAutoMirrorImage = True - Me.bt_add.Size = New System.Drawing.Size(24, 34) - Me.bt_add.Text = "신규추가(&A)" - Me.bt_add.ToolTipText = "새로운 프로필을 추가합니다" - ' - 'bt_Del - ' - Me.bt_Del.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.bt_Del.Image = Global.Eco2Ar.My.Resources.Resources.remov_32 - Me.bt_Del.Name = "bt_Del" - Me.bt_Del.RightToLeftAutoMirrorImage = True - Me.bt_Del.Size = New System.Drawing.Size(24, 34) - Me.bt_Del.Text = "선택삭제(&D)" - Me.bt_Del.ToolTipText = "선택된 프로필을 삭제합니다" - ' - 'bt_cancel - ' - Me.bt_cancel.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.bt_cancel.Image = Global.Eco2Ar.My.Resources.Resources.cancl_32 - Me.bt_cancel.ImageTransparentColor = System.Drawing.Color.Magenta - Me.bt_cancel.Name = "bt_cancel" - Me.bt_cancel.Size = New System.Drawing.Size(24, 34) - Me.bt_cancel.Text = "변경취소(&C)" - Me.bt_cancel.ToolTipText = "변경된 내용을 되돌립니다" - Me.bt_cancel.Visible = False - ' - 'ToolStripSeparator1 - ' - Me.ToolStripSeparator1.Name = "ToolStripSeparator1" - Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 37) - ' - 'lbl_pos - ' - Me.lbl_pos.Name = "lbl_pos" - Me.lbl_pos.Size = New System.Drawing.Size(12, 34) - Me.lbl_pos.Text = "0" - ' - 'ToolStripSeparator2 - ' - Me.ToolStripSeparator2.Name = "ToolStripSeparator2" - Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 37) - ' - 'lb_code - ' - Me.lb_code.Name = "lb_code" - Me.lb_code.Size = New System.Drawing.Size(47, 34) - Me.lb_code.Text = "[0000]" - ' - 'GroupBox2 - ' - Me.GroupBox2.Controls.Add(Me.지열Panel) - Me.GroupBox2.Controls.Add(Me.태양광Panel) - Me.GroupBox2.Controls.Add(Me.열병합Panel) - Me.GroupBox2.Location = New System.Drawing.Point(295, 4) - Me.GroupBox2.Name = "GroupBox2" - Me.GroupBox2.Size = New System.Drawing.Size(294, 564) - Me.GroupBox2.TabIndex = 150 - Me.GroupBox2.TabStop = False - ' - '열병합Panel - ' - Me.열병합Panel.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) - Me.열병합Panel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.열병합Panel.Controls.Add(Me.chk_개별기기적용) - Me.열병합Panel.Controls.Add(Label5) - Me.열병합Panel.Controls.Add(Label459) - Me.열병합Panel.Controls.Add(Me.tb_열생산능력) - Me.열병합Panel.Controls.Add(Me.tb_열생산효율) - Me.열병합Panel.Controls.Add(Label457) - Me.열병합Panel.Controls.Add(Me.tb_발전효율) - Me.열병합Panel.Controls.Add(Label31) - Me.열병합Panel.Controls.Add(Label30) - Me.열병합Panel.Controls.Add(Label458) - Me.열병합Panel.Location = New System.Drawing.Point(9, 16) - Me.열병합Panel.Name = "열병합Panel" - Me.열병합Panel.Size = New System.Drawing.Size(279, 96) - Me.열병합Panel.TabIndex = 145 - ' - 'chk_개별기기적용 - ' - Me.chk_개별기기적용.AutoSize = True - Me.chk_개별기기적용.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Me.bs, "열병합신재생여부", True)) - Me.chk_개별기기적용.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Me.chk_개별기기적용.Location = New System.Drawing.Point(145, 4) - Me.chk_개별기기적용.Name = "chk_개별기기적용" - Me.chk_개별기기적용.Size = New System.Drawing.Size(120, 16) - Me.chk_개별기기적용.TabIndex = 172 - Me.chk_개별기기적용.Tag = "개별기기적용" - Me.chk_개별기기적용.Text = "신재생 적용여부" - Me.chk_개별기기적용.UseVisualStyleBackColor = True - ' - 'tb_열생산능력 - ' - Me.tb_열생산능력.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열생산능력", True)) - Me.tb_열생산능력.Location = New System.Drawing.Point(165, 28) - Me.tb_열생산능력.Name = "tb_열생산능력" - Me.tb_열생산능력.NectControl = Nothing - Me.tb_열생산능력.Size = New System.Drawing.Size(94, 21) - Me.tb_열생산능력.TabIndex = 13 - Me.tb_열생산능력.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_열생산능력.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(165, 50) - Me.tb_열생산효율.Name = "tb_열생산효율" - Me.tb_열생산효율.NectControl = Nothing - Me.tb_열생산효율.Size = New System.Drawing.Size(94, 21) - Me.tb_열생산효율.TabIndex = 14 - Me.tb_열생산효율.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_열생산효율.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(165, 73) - Me.tb_발전효율.Name = "tb_발전효율" - Me.tb_발전효율.NectControl = Nothing - Me.tb_발전효율.Size = New System.Drawing.Size(94, 21) - Me.tb_발전효율.TabIndex = 15 - Me.tb_발전효율.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_발전효율.TextFormat = Eco2Ar.MyTb.ETFormat.Normal - ' - 'GroupBox1 - ' - Me.GroupBox1.Controls.Add(Me.축열탱크Panel) - Me.GroupBox1.Controls.Add(Me.태양열Panel) - Me.GroupBox1.Location = New System.Drawing.Point(6, 122) - Me.GroupBox1.Name = "GroupBox1" - Me.GroupBox1.Size = New System.Drawing.Size(283, 392) - Me.GroupBox1.TabIndex = 149 - Me.GroupBox1.TabStop = False + 'tb_태양열_cnt2 + ' + Me.tb_태양열_cnt2.BackColor = System.Drawing.SystemColors.GrayText + Me.tb_태양열_cnt2.ForeColor = System.Drawing.Color.White + Me.tb_태양열_cnt2.Location = New System.Drawing.Point(240, 83) + Me.tb_태양열_cnt2.Name = "tb_태양열_cnt2" + Me.tb_태양열_cnt2.ReadOnly = True + Me.tb_태양열_cnt2.Size = New System.Drawing.Size(48, 21) + Me.tb_태양열_cnt2.TabIndex = 117 + Me.tb_태양열_cnt2.Text = "0" + Me.tb_태양열_cnt2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' '기기종류ComboBox ' + Me.기기종류ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "기기종류", True)) Me.기기종류ComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.기기종류ComboBox.FormattingEnabled = True - Me.기기종류ComboBox.Location = New System.Drawing.Point(146, 22) + Me.기기종류ComboBox.Items.AddRange(New Object() {"(없음)", "태양열", "태양광", "지열", "열병합", "풍력", "수열"}) + Me.기기종류ComboBox.Location = New System.Drawing.Point(146, 10) Me.기기종류ComboBox.Name = "기기종류ComboBox" Me.기기종류ComboBox.NectControl = Nothing Me.기기종류ComboBox.Size = New System.Drawing.Size(142, 20) Me.기기종류ComboBox.TabIndex = 148 ' + 'tb_태양열_cnt1 + ' + Me.tb_태양열_cnt1.BackColor = System.Drawing.SystemColors.GrayText + Me.tb_태양열_cnt1.ForeColor = System.Drawing.Color.White + Me.tb_태양열_cnt1.Location = New System.Drawing.Point(240, 61) + Me.tb_태양열_cnt1.Name = "tb_태양열_cnt1" + Me.tb_태양열_cnt1.ReadOnly = True + Me.tb_태양열_cnt1.Size = New System.Drawing.Size(48, 21) + Me.tb_태양열_cnt1.TabIndex = 117 + Me.tb_태양열_cnt1.Text = "0" + Me.tb_태양열_cnt1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label163 + ' + Me.Label163.AutoSize = True + Me.Label163.ForeColor = System.Drawing.Color.DarkCyan + Me.Label163.Location = New System.Drawing.Point(10, 65) + Me.Label163.Name = "Label163" + Me.Label163.Size = New System.Drawing.Size(224, 12) + Me.Label163.TabIndex = 118 + Me.Label163.Text = "-난방기기의 열원기기로 연결된 수 : " + Me.Label163.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label164 + ' + Me.Label164.AutoSize = True + Me.Label164.ForeColor = System.Drawing.Color.DarkCyan + Me.Label164.Location = New System.Drawing.Point(10, 85) + Me.Label164.Name = "Label164" + Me.Label164.Size = New System.Drawing.Size(224, 12) + Me.Label164.TabIndex = 118 + Me.Label164.Text = "-냉방기기의 열원기기로 연결된 수 : " + Me.Label164.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' 'cmb_가동연료 ' Me.cmb_가동연료.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmb_가동연료.FormattingEnabled = True - Me.cmb_가동연료.Location = New System.Drawing.Point(146, 45) + Me.cmb_가동연료.Location = New System.Drawing.Point(146, 33) Me.cmb_가동연료.Name = "cmb_가동연료" Me.cmb_가동연료.NectControl = Nothing Me.cmb_가동연료.Size = New System.Drawing.Size(142, 20) @@ -1354,6 +1761,7 @@ Partial Class Frm_New ' 'NTb3 ' + Me.NTb3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "풍력로우터회전면적", True)) Me.NTb3.Location = New System.Drawing.Point(129, 263) Me.NTb3.Name = "NTb3" Me.NTb3.NectControl = Nothing @@ -1375,16 +1783,6 @@ Partial Class Frm_New Me.Text = "신재생 및 열병합 생산기기" Me.TableLayoutPanel1.ResumeLayout(False) Me.TableLayoutPanel1.PerformLayout() - Me.축열탱크Panel.ResumeLayout(False) - Me.축열탱크Panel.PerformLayout() - CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() - Me.태양열Panel.ResumeLayout(False) - Me.태양열Panel.PerformLayout() - Me.지열Panel.ResumeLayout(False) - Me.지열Panel.PerformLayout() - Me.태양광Panel.ResumeLayout(False) - Me.태양광Panel.PerformLayout() Me.Panel6.ResumeLayout(False) Me.SplitContainer1.Panel1.ResumeLayout(False) Me.SplitContainer1.Panel2.ResumeLayout(False) @@ -1392,13 +1790,29 @@ Partial Class Frm_New CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainer1.ResumeLayout(False) CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() Me.bn.ResumeLayout(False) Me.bn.PerformLayout() Me.GroupBox2.ResumeLayout(False) + Me.지열Panel.ResumeLayout(False) + Me.tabcontrol1.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.TabPage1.PerformLayout() + Me.TabPage2.ResumeLayout(False) + Me.TabPage2.PerformLayout() + Me.태양광Panel.ResumeLayout(False) + Me.태양광Panel.PerformLayout() Me.열병합Panel.ResumeLayout(False) Me.열병합Panel.PerformLayout() Me.GroupBox1.ResumeLayout(False) + Me.panWind.ResumeLayout(False) + Me.panWind.PerformLayout() + Me.축열탱크Panel.ResumeLayout(False) + Me.축열탱크Panel.PerformLayout() + Me.태양열Panel.ResumeLayout(False) + Me.태양열Panel.PerformLayout() Me.ResumeLayout(False) End Sub @@ -1455,7 +1869,6 @@ Partial Class Frm_New Friend WithEvents cmb_지열팽창설치여부 As Eco2Ar.MyCmb Friend WithEvents cmb_열교환기설치여부 As Eco2Ar.MyCmb Friend WithEvents tb_2차펌프용량 As Eco2Ar.MyTb - Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents lbl_count As System.Windows.Forms.ToolStripLabel Friend WithEvents lbl_pos As System.Windows.Forms.ToolStripLabel Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox @@ -1468,4 +1881,22 @@ Partial Class Frm_New 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 + Friend WithEvents MyTb4 As Eco2Ar.MyTb + Friend WithEvents tabcontrol1 As System.Windows.Forms.TabControl + Friend WithEvents TabPage1 As System.Windows.Forms.TabPage + Friend WithEvents TabPage2 As System.Windows.Forms.TabPage + Friend WithEvents MyTb5 As Eco2Ar.MyTb + Friend WithEvents MyTb11 As Eco2Ar.MyTb + Friend WithEvents MyCmb3 As Eco2Ar.MyCmb + Friend WithEvents MyCmb2 As Eco2Ar.MyCmb + Friend WithEvents cmb_수열팽창설치여부 As Eco2Ar.MyCmb + Friend WithEvents MyTb7 As Eco2Ar.MyTb + Friend WithEvents MyTb10 As Eco2Ar.MyTb + Friend WithEvents tb_수열팽창탱크체적 As Eco2Ar.MyTb + Friend WithEvents MyTb8 As Eco2Ar.MyTb + Friend WithEvents MyTb6 As Eco2Ar.MyTb + Friend WithEvents MyTb12 As Eco2Ar.MyTb + Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox End Class diff --git a/ArinWarev1/Forms_Input/Frm_New.resx b/ArinWarev1/Forms_Input/Frm_New.resx index a4051fd..3ff59b9 100644 --- a/ArinWarev1/Forms_Input/Frm_New.resx +++ b/ArinWarev1/Forms_Input/Frm_New.resx @@ -117,46 +117,64 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + False - + False - + False - + False - + False - + False - + False - + False - + False - + False - + False - + False - + False - + + False + + + False + + + False + + + False + + + False + + + False + + False @@ -168,80 +186,104 @@ False - + False False - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - + False False - + False - + False - + False - + False - + False - + False - + False - + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + False - 222, 17 + 17, 17 - 286, 17 + 81, 17 - 353, 17 + 148, 17 40 diff --git a/ArinWarev1/Forms_Input/Frm_New.vb b/ArinWarev1/Forms_Input/Frm_New.vb index 879c14f..647f949 100644 --- a/ArinWarev1/Forms_Input/Frm_New.vb +++ b/ArinWarev1/Forms_Input/Frm_New.vb @@ -184,15 +184,15 @@ Private Sub Binding_Zone() - '//신재생 - Dim bs_기기종류ComboBox As New BindingSource(DSET1, "tbl_common") - bs_기기종류ComboBox.Filter = "gubun='1028'" - bs_기기종류ComboBox.Sort = "code" - Me.기기종류ComboBox.DataSource = bs_기기종류ComboBox - 기기종류ComboBox.DisplayMember = "name" - 기기종류ComboBox.ValueMember = "name" - Me.기기종류ComboBox.DataBindings.Add("selectedvalue", Me.bs, "기기종류") - AddHandler 기기종류ComboBox.KeyDown, AddressOf Cmb_DeleteVal + ''//신재생 + 'Dim bs_기기종류ComboBox As New BindingSource(DSET1, "tbl_common") + 'bs_기기종류ComboBox.Filter = "gubun='1028'" + 'bs_기기종류ComboBox.Sort = "code" + 'Me.기기종류ComboBox.DataSource = bs_기기종류ComboBox + '기기종류ComboBox.DisplayMember = "name" + '기기종류ComboBox.ValueMember = "name" + 'Me.기기종류ComboBox.DataBindings.Add("selectedvalue", Me.bs, "기기종류") + 'AddHandler 기기종류ComboBox.KeyDown, AddressOf Cmb_DeleteVal Dim bs_가동연료ComboBox As New BindingSource(DSET1, "tbl_common") bs_가동연료ComboBox.Filter = "gubun='1066'" @@ -682,30 +682,52 @@ 열병합Panel.Enabled = False 태양광Panel.Enabled = False 지열Panel.Enabled = False + panWind.Enabled = False + ElseIf 기기종류ComboBox.Text = "열병합" Then 태양열Panel.Enabled = False 축열탱크Panel.Enabled = False 열병합Panel.Enabled = True 태양광Panel.Enabled = False 지열Panel.Enabled = False + panWind.Enabled = False ElseIf 기기종류ComboBox.Text = "태양광" Then 태양열Panel.Enabled = False 축열탱크Panel.Enabled = False 열병합Panel.Enabled = False 태양광Panel.Enabled = True 지열Panel.Enabled = False + panWind.Enabled = False ElseIf 기기종류ComboBox.Text = "지열" Then 태양열Panel.Enabled = False 축열탱크Panel.Enabled = False 열병합Panel.Enabled = False 태양광Panel.Enabled = False 지열Panel.Enabled = True + panWind.Enabled = False + Me.tabcontrol1.SelectedIndex = 0 + ElseIf 기기종류ComboBox.Text = "수열" Then + 태양열Panel.Enabled = False + 축열탱크Panel.Enabled = False + 열병합Panel.Enabled = False + 태양광Panel.Enabled = False + 지열Panel.Enabled = True + panWind.Enabled = False + Me.tabcontrol1.SelectedIndex = 1 + ElseIf 기기종류ComboBox.Text = "풍력" Then + 태양열Panel.Enabled = False + 축열탱크Panel.Enabled = False + 열병합Panel.Enabled = False + 태양광Panel.Enabled = False + 지열Panel.Enabled = False + panWind.Enabled = True Else 태양열Panel.Enabled = False 축열탱크Panel.Enabled = False 열병합Panel.Enabled = False 태양광Panel.Enabled = False 지열Panel.Enabled = False + panWind.Enabled = False End If Catch ex As Exception @@ -868,6 +890,21 @@ End Try + End Sub + Private Sub cmb_수열팽창설치여부_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_수열팽창설치여부.SelectedValueChanged + + Try + Select Case Me.cmb_수열팽창설치여부.Text + Case "예" + Me.tb_수열팽창탱크체적.Enabled = True + Case Else + Me.tb_수열팽창탱크체적.Enabled = False + End Select + Catch ex As Exception + + End Try + + End Sub Private Sub cmb_모듈기울기_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_모듈기울기.SelectedValueChanged diff --git a/ArinWarev1/Forms_Input/Frm_kongjo.Designer.vb b/ArinWarev1/Forms_Input/Frm_kongjo.Designer.vb index 5faecd2..48537e5 100644 --- a/ArinWarev1/Forms_Input/Frm_kongjo.Designer.vb +++ b/ArinWarev1/Forms_Input/Frm_kongjo.Designer.vb @@ -23,28 +23,30 @@ Partial Class Frm_kongjo _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim Label169 As System.Windows.Forms.Label - Dim Label170 As System.Windows.Forms.Label - Dim Label171 As System.Windows.Forms.Label - Dim Label172 As System.Windows.Forms.Label - Dim Label173 As System.Windows.Forms.Label - Dim Label174 As System.Windows.Forms.Label - Dim Label175 As System.Windows.Forms.Label - Dim Label179 As System.Windows.Forms.Label - Dim Label178 As System.Windows.Forms.Label - Dim Label177 As System.Windows.Forms.Label + Dim Label7 As System.Windows.Forms.Label Dim Label176 As System.Windows.Forms.Label - Dim Label167 As System.Windows.Forms.Label - Dim Label168 As System.Windows.Forms.Label - Dim Label1 As System.Windows.Forms.Label + Dim Label6 As System.Windows.Forms.Label + Dim Label177 As System.Windows.Forms.Label + Dim Label5 As System.Windows.Forms.Label Dim Label3 As System.Windows.Forms.Label Dim Label4 As System.Windows.Forms.Label - Dim Label5 As System.Windows.Forms.Label - Dim Label6 As System.Windows.Forms.Label - Dim Label7 As System.Windows.Forms.Label + Dim Label178 As System.Windows.Forms.Label + Dim Label179 As System.Windows.Forms.Label + Dim Label11 As System.Windows.Forms.Label + Dim Label1 As System.Windows.Forms.Label + Dim Label174 As System.Windows.Forms.Label + Dim Label169 As System.Windows.Forms.Label + Dim Label9 As System.Windows.Forms.Label + Dim Label8 As System.Windows.Forms.Label + Dim Label175 As System.Windows.Forms.Label + Dim Label170 As System.Windows.Forms.Label + Dim Label168 As System.Windows.Forms.Label + Dim Label173 As System.Windows.Forms.Label + Dim Label10 As System.Windows.Forms.Label + Dim Label172 As System.Windows.Forms.Label + Dim Label167 As System.Windows.Forms.Label + Dim Label171 As System.Windows.Forms.Label Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_kongjo)) - Me.tb_zone_cnt = New System.Windows.Forms.TextBox() - Me.Label48 = New System.Windows.Forms.Label() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.dv = New CEnergy.arindv() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() @@ -77,35 +79,45 @@ 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() Me.Panel1 = New System.Windows.Forms.Panel() Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.tb_zone_cnt = New System.Windows.Forms.TextBox() Me.Label2 = New System.Windows.Forms.Label() - Label169 = New System.Windows.Forms.Label() - Label170 = New System.Windows.Forms.Label() - Label171 = New System.Windows.Forms.Label() - Label172 = New System.Windows.Forms.Label() - Label173 = New System.Windows.Forms.Label() - Label174 = New System.Windows.Forms.Label() - Label175 = New System.Windows.Forms.Label() - Label179 = New System.Windows.Forms.Label() - Label178 = New System.Windows.Forms.Label() - Label177 = New System.Windows.Forms.Label() + Me.Label48 = New System.Windows.Forms.Label() + Label7 = New System.Windows.Forms.Label() Label176 = New System.Windows.Forms.Label() - Label167 = New System.Windows.Forms.Label() - Label168 = New System.Windows.Forms.Label() - Label1 = New System.Windows.Forms.Label() + Label6 = New System.Windows.Forms.Label() + Label177 = New System.Windows.Forms.Label() + Label5 = New System.Windows.Forms.Label() Label3 = New System.Windows.Forms.Label() Label4 = New System.Windows.Forms.Label() - Label5 = New System.Windows.Forms.Label() - Label6 = New System.Windows.Forms.Label() - Label7 = New System.Windows.Forms.Label() + Label178 = New System.Windows.Forms.Label() + Label179 = New System.Windows.Forms.Label() + Label11 = New System.Windows.Forms.Label() + Label1 = New System.Windows.Forms.Label() + Label174 = New System.Windows.Forms.Label() + Label169 = New System.Windows.Forms.Label() + Label9 = New System.Windows.Forms.Label() + Label8 = New System.Windows.Forms.Label() + Label175 = New System.Windows.Forms.Label() + Label170 = New System.Windows.Forms.Label() + Label168 = New System.Windows.Forms.Label() + Label173 = New System.Windows.Forms.Label() + Label10 = New System.Windows.Forms.Label() + Label172 = New System.Windows.Forms.Label() + Label167 = New System.Windows.Forms.Label() + Label171 = New System.Windows.Forms.Label() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout() @@ -123,121 +135,17 @@ Partial Class Frm_kongjo Me.Panel1.SuspendLayout() Me.SuspendLayout() ' - 'Label169 + 'Label7 ' - Label169.AutoSize = True - Label169.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) - Label169.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label169.Location = New System.Drawing.Point(6, 46) - Label169.Name = "Label169" - Label169.Size = New System.Drawing.Size(140, 24) - Label169.TabIndex = 10 - Label169.Text = "공조급기온도의 설정치" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (난방)[C]:" - Label169.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label170 - ' - Label170.AutoSize = True - Label170.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) - Label170.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label170.Location = New System.Drawing.Point(6, 24) - Label170.Name = "Label170" - Label170.Size = New System.Drawing.Size(62, 12) - Label170.TabIndex = 8 - Label170.Text = "공조방식:" - Label170.TextAlign = System.Drawing.ContentAlignment.MiddleRight - ' - 'Label171 - ' - Label171.AutoSize = True - Label171.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) - Label171.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label171.Location = New System.Drawing.Point(6, 75) - Label171.Name = "Label171" - Label171.Size = New System.Drawing.Size(140, 24) - Label171.TabIndex = 8 - Label171.Text = "공조급기온도의 설정치" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (냉방)[C]:" - Label171.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - ' - 'Label172 - ' - Label172.AutoSize = True - Label172.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) - Label172.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label172.Location = New System.Drawing.Point(6, 108) - Label172.Name = "Label172" - Label172.Size = New System.Drawing.Size(151, 12) - Label172.TabIndex = 10 - Label172.Text = "공조기 최대풍량[CMH]:" - ' - 'Label173 - ' - Label173.AutoSize = True - Label173.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) - Label173.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label173.Location = New System.Drawing.Point(6, 139) - Label173.Name = "Label173" - Label173.Size = New System.Drawing.Size(124, 12) - Label173.TabIndex = 10 - Label173.Text = "리턴공기 혼합 여부:" - ' - 'Label174 - ' - Label174.AutoSize = True - Label174.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) - Label174.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label174.Location = New System.Drawing.Point(6, 168) - Label174.Name = "Label174" - Label174.Size = New System.Drawing.Size(80, 12) - Label174.TabIndex = 10 - Label174.Text = "가습기 유형:" - ' - 'Label175 - ' - Label175.AutoSize = True - Label175.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) - Label175.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label175.Location = New System.Drawing.Point(6, 198) - Label175.Name = "Label175" - Label175.Size = New System.Drawing.Size(124, 12) - Label175.TabIndex = 10 - Label175.Text = "외기냉방 제어 유무:" - ' - 'Label179 - ' - Label179.AutoSize = True - Label179.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) - Label179.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label179.Location = New System.Drawing.Point(7, 267) - Label179.Name = "Label179" - Label179.Size = New System.Drawing.Size(101, 12) - Label179.TabIndex = 10 - Label179.Text = "배기팬 효율[-]:" - Label179.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label178 - ' - Label178.AutoSize = True - Label178.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) - Label178.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label178.Location = New System.Drawing.Point(7, 239) - Label178.Name = "Label178" - Label178.Size = New System.Drawing.Size(101, 12) - Label178.TabIndex = 10 - Label178.Text = "급기팬 효율[-]:" - Label178.TextAlign = System.Drawing.ContentAlignment.MiddleCenter - ' - 'Label177 - ' - Label177.AutoSize = True - Label177.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) - Label177.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label177.Location = New System.Drawing.Point(7, 210) - Label177.Name = "Label177" - Label177.Size = New System.Drawing.Size(137, 12) - Label177.TabIndex = 10 - Label177.Text = "배기팬 압력손실[Pa]:" - Label177.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Label7.AutoSize = True + Label7.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label7.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label7.Location = New System.Drawing.Point(7, 68) + Label7.Name = "Label7" + Label7.Size = New System.Drawing.Size(112, 12) + Label7.TabIndex = 10 + Label7.Text = "급기 풍량[CMH]:" + Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Label176 ' @@ -251,38 +159,41 @@ Partial Class Frm_kongjo Label176.Text = "급기팬 압력손실[Pa]:" Label176.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - 'Label167 + 'Label6 ' - Label167.AutoSize = True - Label167.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) - Label167.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label167.Location = New System.Drawing.Point(6, 253) - Label167.Name = "Label167" - Label167.Size = New System.Drawing.Size(116, 12) - Label167.TabIndex = 10 - Label167.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(7, 96) + Label6.Name = "Label6" + Label6.Size = New System.Drawing.Size(112, 12) + Label6.TabIndex = 10 + Label6.Text = "배기 풍량[CMH]:" + Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - 'Label168 + 'Label177 ' - Label168.AutoSize = True - Label168.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) - Label168.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label168.Location = New System.Drawing.Point(6, 226) - Label168.Name = "Label168" - Label168.Size = New System.Drawing.Size(93, 12) - Label168.TabIndex = 10 - Label168.Text = "열교환기 유형:" + Label177.AutoSize = True + Label177.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label177.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label177.Location = New System.Drawing.Point(7, 210) + Label177.Name = "Label177" + Label177.Size = New System.Drawing.Size(137, 12) + Label177.TabIndex = 10 + Label177.Text = "배기팬 압력손실[Pa]:" + Label177.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - 'Label1 + 'Label5 ' - Label1.AutoSize = True - Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) - Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label1.Location = New System.Drawing.Point(6, 279) - Label1.Name = "Label1" - Label1.Size = New System.Drawing.Size(116, 12) - Label1.TabIndex = 14 - Label1.Text = "열회수율(냉방)[-]" + Label5.AutoSize = True + Label5.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label5.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label5.Location = New System.Drawing.Point(7, 125) + Label5.Name = "Label5" + Label5.Size = New System.Drawing.Size(112, 12) + Label5.TabIndex = 10 + Label5.Text = "급기팬 동력[kW]:" + Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Label3 ' @@ -308,65 +219,186 @@ Partial Class Frm_kongjo Label4.Text = "배기팬 동력[kW]:" Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - 'Label5 + 'Label178 ' - Label5.AutoSize = True - Label5.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) - Label5.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label5.Location = New System.Drawing.Point(7, 125) - Label5.Name = "Label5" - Label5.Size = New System.Drawing.Size(112, 12) - Label5.TabIndex = 10 - Label5.Text = "급기팬 동력[kW]:" - Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Label178.AutoSize = True + Label178.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label178.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label178.Location = New System.Drawing.Point(7, 239) + Label178.Name = "Label178" + Label178.Size = New System.Drawing.Size(101, 12) + Label178.TabIndex = 10 + Label178.Text = "급기팬 효율[-]:" + Label178.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - 'Label6 + 'Label179 ' - 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(7, 96) - Label6.Name = "Label6" - Label6.Size = New System.Drawing.Size(112, 12) - Label6.TabIndex = 10 - Label6.Text = "배기 풍량[CMH]:" - Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Label179.AutoSize = True + Label179.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Label179.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label179.Location = New System.Drawing.Point(7, 267) + Label179.Name = "Label179" + Label179.Size = New System.Drawing.Size(101, 12) + Label179.TabIndex = 10 + Label179.Text = "배기팬 효율[-]:" + Label179.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' - 'Label7 + 'Label11 ' - Label7.AutoSize = True - Label7.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) - Label7.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label7.Location = New System.Drawing.Point(7, 68) - Label7.Name = "Label7" - Label7.Size = New System.Drawing.Size(112, 12) - Label7.TabIndex = 10 - Label7.Text = "급기 풍량[CMH]:" - Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + 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.Name = "Label11" + Label11.Size = New System.Drawing.Size(114, 12) + Label11.TabIndex = 14 + Label11.Text = "집열기 방사율[-]:" ' - 'tb_zone_cnt + 'Label1 ' - 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.Name = "tb_zone_cnt" - Me.tb_zone_cnt.Size = New System.Drawing.Size(58, 21) - Me.tb_zone_cnt.TabIndex = 1 - Me.tb_zone_cnt.Text = "0" - Me.tb_zone_cnt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Label1.AutoSize = True + Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label1.Location = New System.Drawing.Point(6, 279) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(116, 12) + Label1.TabIndex = 14 + Label1.Text = "열회수율(냉방)[-]" ' - 'Label48 + 'Label174 ' - 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.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 + Label174.AutoSize = True + Label174.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label174.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label174.Location = New System.Drawing.Point(6, 168) + Label174.Name = "Label174" + Label174.Size = New System.Drawing.Size(80, 12) + Label174.TabIndex = 10 + Label174.Text = "가습기 유형:" + ' + 'Label169 + ' + Label169.AutoSize = True + Label169.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label169.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label169.Location = New System.Drawing.Point(6, 46) + Label169.Name = "Label169" + Label169.Size = New System.Drawing.Size(140, 24) + Label169.TabIndex = 10 + Label169.Text = "공조급기온도의 설정치" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (난방)[C]:" + Label169.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label9 + ' + 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.Name = "Label9" + Label9.Size = New System.Drawing.Size(80, 12) + Label9.TabIndex = 10 + Label9.Text = "집열기 방위:" + ' + 'Label8 + ' + 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.Name = "Label8" + Label8.Size = New System.Drawing.Size(119, 12) + Label8.TabIndex = 10 + Label8.Text = "공기식태양열 적용:" + ' + 'Label175 + ' + Label175.AutoSize = True + Label175.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label175.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label175.Location = New System.Drawing.Point(6, 198) + Label175.Name = "Label175" + Label175.Size = New System.Drawing.Size(124, 12) + Label175.TabIndex = 10 + Label175.Text = "외기냉방 제어 유무:" + ' + 'Label170 + ' + Label170.AutoSize = True + Label170.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label170.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label170.Location = New System.Drawing.Point(6, 24) + Label170.Name = "Label170" + Label170.Size = New System.Drawing.Size(62, 12) + Label170.TabIndex = 8 + Label170.Text = "공조방식:" + Label170.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label168 + ' + Label168.AutoSize = True + Label168.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label168.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label168.Location = New System.Drawing.Point(6, 226) + Label168.Name = "Label168" + Label168.Size = New System.Drawing.Size(93, 12) + Label168.TabIndex = 10 + Label168.Text = "열교환기 유형:" + ' + 'Label173 + ' + Label173.AutoSize = True + Label173.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label173.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label173.Location = New System.Drawing.Point(6, 139) + Label173.Name = "Label173" + Label173.Size = New System.Drawing.Size(124, 12) + Label173.TabIndex = 10 + Label173.Text = "리턴공기 혼합 여부:" + ' + 'Label10 + ' + 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.Name = "Label10" + Label10.Size = New System.Drawing.Size(107, 12) + Label10.TabIndex = 10 + Label10.Text = "집열기 면적[㎡]:" + ' + 'Label172 + ' + Label172.AutoSize = True + Label172.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label172.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label172.Location = New System.Drawing.Point(6, 108) + Label172.Name = "Label172" + Label172.Size = New System.Drawing.Size(151, 12) + Label172.TabIndex = 10 + Label172.Text = "공조기 최대풍량[CMH]:" + ' + 'Label167 + ' + Label167.AutoSize = True + Label167.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label167.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label167.Location = New System.Drawing.Point(6, 253) + Label167.Name = "Label167" + Label167.Size = New System.Drawing.Size(116, 12) + Label167.TabIndex = 10 + Label167.Text = "열회수율(난방)[-]" + ' + 'Label171 + ' + Label171.AutoSize = True + Label171.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer)) + Label171.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label171.Location = New System.Drawing.Point(6, 75) + Label171.Name = "Label171" + Label171.Size = New System.Drawing.Size(140, 24) + Label171.TabIndex = 8 + Label171.Text = "공조급기온도의 설정치" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (냉방)[C]:" + Label171.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'SplitContainer1 ' @@ -574,7 +606,7 @@ Partial Class Frm_kongjo Me.Tb_배기팬동력.Name = "Tb_배기팬동력" Me.Tb_배기팬동력.NectControl = Nothing Me.Tb_배기팬동력.Size = New System.Drawing.Size(119, 21) - Me.Tb_배기팬동력.TabIndex = 14 + Me.Tb_배기팬동력.TabIndex = 18 Me.Tb_배기팬동력.TextFormat = Eco2Ar.MyTb.ETFormat.Normal ' 'Tb_급기팬동력 @@ -584,7 +616,7 @@ Partial Class Frm_kongjo Me.Tb_급기팬동력.Name = "Tb_급기팬동력" Me.Tb_급기팬동력.NectControl = Nothing Me.Tb_급기팬동력.Size = New System.Drawing.Size(119, 21) - Me.Tb_급기팬동력.TabIndex = 13 + Me.Tb_급기팬동력.TabIndex = 17 Me.Tb_급기팬동력.TextFormat = Eco2Ar.MyTb.ETFormat.Normal ' 'Tb_배기팬효율 @@ -594,7 +626,7 @@ Partial Class Frm_kongjo Me.Tb_배기팬효율.Name = "Tb_배기팬효율" Me.Tb_배기팬효율.NectControl = Nothing Me.Tb_배기팬효율.Size = New System.Drawing.Size(119, 21) - Me.Tb_배기팬효율.TabIndex = 18 + Me.Tb_배기팬효율.TabIndex = 22 Me.Tb_배기팬효율.TextFormat = Eco2Ar.MyTb.ETFormat.Normal ' 'Tb_배기풍량 @@ -604,7 +636,7 @@ Partial Class Frm_kongjo Me.Tb_배기풍량.Name = "Tb_배기풍량" Me.Tb_배기풍량.NectControl = Nothing Me.Tb_배기풍량.Size = New System.Drawing.Size(119, 21) - Me.Tb_배기풍량.TabIndex = 12 + Me.Tb_배기풍량.TabIndex = 16 Me.Tb_배기풍량.TextFormat = Eco2Ar.MyTb.ETFormat.Normal ' 'Tb_급기팬효율 @@ -614,7 +646,7 @@ Partial Class Frm_kongjo Me.Tb_급기팬효율.Name = "Tb_급기팬효율" Me.Tb_급기팬효율.NectControl = Nothing Me.Tb_급기팬효율.Size = New System.Drawing.Size(119, 21) - Me.Tb_급기팬효율.TabIndex = 17 + Me.Tb_급기팬효율.TabIndex = 21 Me.Tb_급기팬효율.TextFormat = Eco2Ar.MyTb.ETFormat.Normal ' 'Tb_배기팬압력손실 @@ -624,7 +656,7 @@ Partial Class Frm_kongjo Me.Tb_배기팬압력손실.Name = "Tb_배기팬압력손실" Me.Tb_배기팬압력손실.NectControl = Nothing Me.Tb_배기팬압력손실.Size = New System.Drawing.Size(119, 21) - Me.Tb_배기팬압력손실.TabIndex = 16 + Me.Tb_배기팬압력손실.TabIndex = 20 Me.Tb_배기팬압력손실.TextFormat = Eco2Ar.MyTb.ETFormat.Normal ' 'Tb_급기풍량 @@ -634,7 +666,7 @@ Partial Class Frm_kongjo Me.Tb_급기풍량.Name = "Tb_급기풍량" Me.Tb_급기풍량.NectControl = Nothing Me.Tb_급기풍량.Size = New System.Drawing.Size(119, 21) - Me.Tb_급기풍량.TabIndex = 11 + Me.Tb_급기풍량.TabIndex = 15 Me.Tb_급기풍량.TextFormat = Eco2Ar.MyTb.ETFormat.Normal ' 'Tb_급기팬압력손실 @@ -644,7 +676,7 @@ Partial Class Frm_kongjo Me.Tb_급기팬압력손실.Name = "Tb_급기팬압력손실" Me.Tb_급기팬압력손실.NectControl = Nothing Me.Tb_급기팬압력손실.Size = New System.Drawing.Size(119, 21) - Me.Tb_급기팬압력손실.TabIndex = 15 + Me.Tb_급기팬압력손실.TabIndex = 19 Me.Tb_급기팬압력손실.TextFormat = Eco2Ar.MyTb.ETFormat.Normal ' 'Cmb_팬효율산출방식 @@ -656,7 +688,7 @@ Partial Class Frm_kongjo Me.Cmb_팬효율산출방식.Name = "Cmb_팬효율산출방식" Me.Cmb_팬효율산출방식.NectControl = Nothing Me.Cmb_팬효율산출방식.Size = New System.Drawing.Size(119, 20) - Me.Cmb_팬효율산출방식.TabIndex = 10 + Me.Cmb_팬효율산출방식.TabIndex = 14 ' 'PictureBox2 ' @@ -673,26 +705,34 @@ 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, 322) + Me.GroupBox1.Size = New System.Drawing.Size(277, 434) Me.GroupBox1.TabIndex = 5 Me.GroupBox1.TabStop = False ' @@ -736,6 +776,16 @@ 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)) @@ -766,6 +816,17 @@ 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 @@ -776,6 +837,27 @@ 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)) @@ -801,7 +883,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, 309) + Me.PictureBox1.Size = New System.Drawing.Size(273, 419) Me.PictureBox1.TabIndex = 11 Me.PictureBox1.TabStop = False ' @@ -830,6 +912,18 @@ Partial Class Frm_kongjo Me.TextBox1.Text = "0" Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' + 'tb_zone_cnt + ' + 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.Name = "tb_zone_cnt" + Me.tb_zone_cnt.Size = New System.Drawing.Size(58, 21) + Me.tb_zone_cnt.TabIndex = 1 + Me.tb_zone_cnt.Text = "0" + Me.tb_zone_cnt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' 'Label2 ' Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -842,6 +936,18 @@ Partial Class Frm_kongjo Me.Label2.Text = "적용된 면적합(㎡):" Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight ' + 'Label48 + ' + 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.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 + ' 'Frm_kongjo ' Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None @@ -921,4 +1027,8 @@ Partial Class Frm_kongjo 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 End Class diff --git a/ArinWarev1/Forms_Input/Frm_kongjo.resx b/ArinWarev1/Forms_Input/Frm_kongjo.resx index de851f5..bb901ca 100644 --- a/ArinWarev1/Forms_Input/Frm_kongjo.resx +++ b/ArinWarev1/Forms_Input/Frm_kongjo.resx @@ -117,46 +117,19 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - + False False - + False - + False - + False @@ -165,13 +138,52 @@ False - + False - + False - + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + False diff --git a/ArinWarev1/Forms_Input/Frm_kongjo.vb b/ArinWarev1/Forms_Input/Frm_kongjo.vb index 4d0de07..ce715af 100644 --- a/ArinWarev1/Forms_Input/Frm_kongjo.vb +++ b/ArinWarev1/Forms_Input/Frm_kongjo.vb @@ -272,6 +272,9 @@ Cmb_팬효율산출방식.ValueMember = "name" Me.Cmb_팬효율산출방식.DataBindings.Add("selectedvalue", Me.bs, "팬효율산출방식") + Me.공기식태양열적용ComboBox.DataBindings.Add("Text", Me.bs, "공기식태양열적용") + Me.집열기방위ComboBox.DataBindings.Add("Text", Me.bs, "집열기방위") + End Sub 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 @@ -314,7 +317,19 @@ Me.Tb_배기팬동력.Enabled = False End If Catch ex As Exception + End Try + Try + If Me.공기식태양열적용ComboBox.SelectedIndex = 0 Then + Me.집열기방위ComboBox.Enabled = True + Me.Tb_집열기면적.Enabled = True + Me.Tb_집열기방사율.Enabled = True + Else + Me.집열기방위ComboBox.Enabled = False + Me.Tb_집열기면적.Enabled = False + Me.Tb_집열기방사율.Enabled = False + End If + Catch ex As Exception End Try End Sub @@ -325,8 +340,12 @@ Try Dim drv As DataRowView = Me.bs.Current If drv Is Nothing Then Return + Dim drKongjo As DS.tbl_kongjoRow = CType(drv.Row, DS.tbl_kongjoRow) Me.lb_code.Text = "[" + drv("code").ToString + "]" + 공기식태양열적용ComboBox.Text = drKongjo.공기식태양열적용 + 집열기방위ComboBox.Text = drKongjo.집열기방위 + Dim DR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("냉난방공조처리시스템='" & Drv("code").ToString & "'") If DR.GetUpperBound(0) = -1 Then '//해당되는 데이터가없을경우 Me.tb_zone_cnt.Text = "0" @@ -578,4 +597,8 @@ Private Sub 공조방식NCMB_SelectionChangeCommitted(sender As Object, e As System.EventArgs) Handles 공조방식NCMB.SelectionChangeCommitted End Sub + + Private Sub 공기식태양열적용ComboBox_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles 공기식태양열적용ComboBox.SelectedIndexChanged + Validate_Control() + End Sub End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_v20091231_Weather.Designer.vb b/ArinWarev1/Forms_Input/Frm_v20091231_Weather.Designer.vb index c42de3c..4c75db0 100644 --- a/ArinWarev1/Forms_Input/Frm_v20091231_Weather.Designer.vb +++ b/ArinWarev1/Forms_Input/Frm_v20091231_Weather.Designer.vb @@ -23,19 +23,6 @@ Partial Class Frm_V20091231_Weather Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim Label39 As System.Windows.Forms.Label - Dim Label247 As System.Windows.Forms.Label - Dim Label248 As System.Windows.Forms.Label - Dim Label249 As System.Windows.Forms.Label - Dim Label250 As System.Windows.Forms.Label - Dim Label251 As System.Windows.Forms.Label - Dim Label252 As System.Windows.Forms.Label - Dim Label253 As System.Windows.Forms.Label - Dim Label254 As System.Windows.Forms.Label - Dim Label255 As System.Windows.Forms.Label - Dim Label256 As System.Windows.Forms.Label - Dim Label257 As System.Windows.Forms.Label - Dim Label258 As System.Windows.Forms.Label Dim Label64 As System.Windows.Forms.Label Dim Label77 As System.Windows.Forms.Label Dim Label78 As System.Windows.Forms.Label @@ -50,6 +37,20 @@ Partial Class Frm_V20091231_Weather Dim Label87 As System.Windows.Forms.Label Dim Label90 As System.Windows.Forms.Label Dim Label91 As System.Windows.Forms.Label + Dim Label39 As System.Windows.Forms.Label + Dim Label251 As System.Windows.Forms.Label + Dim Label253 As System.Windows.Forms.Label + Dim Label255 As System.Windows.Forms.Label + Dim Label256 As System.Windows.Forms.Label + Dim Label257 As System.Windows.Forms.Label + Dim Label258 As System.Windows.Forms.Label + Dim Label254 As System.Windows.Forms.Label + Dim Label252 As System.Windows.Forms.Label + Dim Label250 As System.Windows.Forms.Label + Dim Label249 As System.Windows.Forms.Label + Dim Label248 As System.Windows.Forms.Label + Dim Label247 As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_V20091231_Weather)) Dim Label25 As System.Windows.Forms.Label Dim Label26 As System.Windows.Forms.Label Dim Label27 As System.Windows.Forms.Label @@ -110,14 +111,61 @@ Partial Class Frm_V20091231_Weather Dim Label10 As System.Windows.Forms.Label Dim Label11 As System.Windows.Forms.Label Dim Label12 As System.Windows.Forms.Label - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_V20091231_Weather)) - Me.bn_all = New System.Windows.Forms.BindingNavigator(Me.components) - Me.ToolStripButton48 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton49 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton51 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripSeparator28 = New System.Windows.Forms.ToolStripSeparator() - Me.ToolStripButton8 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton13 = New System.Windows.Forms.ToolStripButton() + Dim Label16 As System.Windows.Forms.Label + Dim Label17 As System.Windows.Forms.Label + Dim Label18 As System.Windows.Forms.Label + Dim Label19 As System.Windows.Forms.Label + Dim Label20 As System.Windows.Forms.Label + Dim Label21 As System.Windows.Forms.Label + Dim Label22 As System.Windows.Forms.Label + Dim Label23 As System.Windows.Forms.Label + Dim Label24 As System.Windows.Forms.Label + Dim Label65 As System.Windows.Forms.Label + Dim Label66 As System.Windows.Forms.Label + Dim Label67 As System.Windows.Forms.Label + Dim Label69 As System.Windows.Forms.Label + Dim Label70 As System.Windows.Forms.Label + Dim Label71 As System.Windows.Forms.Label + Dim Label72 As System.Windows.Forms.Label + Dim Label73 As System.Windows.Forms.Label + Dim Label74 As System.Windows.Forms.Label + Dim Label75 As System.Windows.Forms.Label + Dim Label76 As System.Windows.Forms.Label + Dim Label102 As System.Windows.Forms.Label + Dim Label103 As System.Windows.Forms.Label + Dim Label104 As System.Windows.Forms.Label + Dim Label105 As System.Windows.Forms.Label + Dim Label107 As System.Windows.Forms.Label + Dim Label108 As System.Windows.Forms.Label + Dim Label109 As System.Windows.Forms.Label + Dim Label110 As System.Windows.Forms.Label + Dim Label111 As System.Windows.Forms.Label + Dim Label112 As System.Windows.Forms.Label + Dim Label113 As System.Windows.Forms.Label + Dim Label114 As System.Windows.Forms.Label + Dim Label115 As System.Windows.Forms.Label + Dim Label116 As System.Windows.Forms.Label + Dim Label117 As System.Windows.Forms.Label + Dim Label118 As System.Windows.Forms.Label + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS1 = New Eco2Ar.DS() + Me.bsw_ilsa = New System.Windows.Forms.BindingSource(Me.components) + Me.bsw_temp = New System.Windows.Forms.BindingSource(Me.components) + Me.bsw_supdo = New System.Windows.Forms.BindingSource(Me.components) + Me.bsw_cha = New System.Windows.Forms.BindingSource(Me.components) + Me.bsWGDep3 = New System.Windows.Forms.BindingSource(Me.components) + Me.bsWGDep2 = New System.Windows.Forms.BindingSource(Me.components) + Me.bsWGDep1 = New System.Windows.Forms.BindingSource(Me.components) + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.bsw_wind = New System.Windows.Forms.BindingSource(Me.components) + Me.bsw_river = New System.Windows.Forms.BindingSource(Me.components) + Me.bsw_water = New System.Windows.Forms.BindingSource(Me.components) Me.TabControl3 = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() Me.Button3 = New System.Windows.Forms.Button() @@ -125,9 +173,120 @@ Partial Class Frm_V20091231_Weather Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.Panel3 = New System.Windows.Forms.Panel() Me.TableLayoutPanel7 = New System.Windows.Forms.TableLayoutPanel() + Me.Label88 = New System.Windows.Forms.Label() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.Label89 = New System.Windows.Forms.Label() + Me.TabPage8 = New System.Windows.Forms.TabPage() + Me.TableLayoutPanel4 = New System.Windows.Forms.TableLayoutPanel() + Me.Arindv2 = New CEnergy.arindv() + Me.설명DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.code = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Panel4 = New System.Windows.Forms.Panel() + Me.TableLayoutPanel34 = New System.Windows.Forms.TableLayoutPanel() + Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripButton9 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton10 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton11 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton12 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton14 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton15 = New System.Windows.Forms.ToolStripButton() + Me.TabPage9 = New System.Windows.Forms.TabPage() + Me.TableLayoutPanel5 = New System.Windows.Forms.TableLayoutPanel() + Me.Arindv3 = New CEnergy.arindv() + Me.설명DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Panel7 = New System.Windows.Forms.Panel() + Me.TableLayoutPanel8 = New System.Windows.Forms.TableLayoutPanel() + Me.BindingNavigator4 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripButton25 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton26 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton27 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton28 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator11 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton29 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton30 = New System.Windows.Forms.ToolStripButton() + Me.TabPage10 = New System.Windows.Forms.TabPage() + Me.TableLayoutPanel6 = New System.Windows.Forms.TableLayoutPanel() + Me.Arindv4 = New CEnergy.arindv() + Me.설명DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn10 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Panel8 = New System.Windows.Forms.Panel() + Me.TableLayoutPanel9 = New System.Windows.Forms.TableLayoutPanel() + Me.BindingNavigator5 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripButton33 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton34 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton35 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton36 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator12 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton37 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton38 = New System.Windows.Forms.ToolStripButton() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel() + Me.Arindv1 = New CEnergy.arindv() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn11 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.Button1 = New System.Windows.Forms.Button() + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.BindingNavigator2 = New System.Windows.Forms.BindingNavigator(Me.components) + 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.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton() + Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.Button6 = New System.Windows.Forms.Button() + Me.Button4 = New System.Windows.Forms.Button() + Me.Button5 = New System.Windows.Forms.Button() + Me.Button7 = New System.Windows.Forms.Button() + Me.Button8 = New System.Windows.Forms.Button() + Me.dvArea3 = New CEnergy.arindv() + Me.CodeDataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.NameDataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.AreaDataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewButtonColumn() + Me.dvArea2 = New CEnergy.arindv() + Me.CodeDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.area2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.NameDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.AreaDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewButtonColumn() + Me.dvc_area2 = New System.Windows.Forms.DataGridViewComboBoxColumn() + Me.area3 = New System.Windows.Forms.DataGridViewComboBoxColumn() + Me.dvArea1 = New CEnergy.arindv() + Me.CodeDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.NameDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.AreaDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewButtonColumn() + Me.Label15 = New System.Windows.Forms.Label() + Me.Label14 = New System.Windows.Forms.Label() + Me.Label13 = New System.Windows.Forms.Label() + Me.TabPage4 = New System.Windows.Forms.TabPage() + Me.Panel5 = New System.Windows.Forms.Panel() + Me.TableLayoutPanel3 = New System.Windows.Forms.TableLayoutPanel() + Me.Label68 = New System.Windows.Forms.Label() + Me.TabPage5 = New System.Windows.Forms.TabPage() + Me.Panel6 = New System.Windows.Forms.Panel() + Me.TableLayoutPanel10 = New System.Windows.Forms.TableLayoutPanel() + Me.Label106 = New System.Windows.Forms.Label() + Me.TabPage6 = New System.Windows.Forms.TabPage() + Me.Panel9 = New System.Windows.Forms.Panel() + Me.TableLayoutPanel11 = New System.Windows.Forms.TableLayoutPanel() + Me.Label119 = New System.Windows.Forms.Label() + Me.dv = New CEnergy.arindv() + Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.건물위치DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.bn_all = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripButton48 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton49 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton51 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator28 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton8 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton13 = New System.Windows.Forms.ToolStripButton() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() Me.tb_w12 = New Eco2Ar.MyTb() - Me.bs = New System.Windows.Forms.BindingSource(Me.components) - Me.DS1 = New Eco2Ar.DS() Me.tb_w11 = New Eco2Ar.MyTb() Me.tb_w10 = New Eco2Ar.MyTb() Me.tb_w06 = New Eco2Ar.MyTb() @@ -139,20 +298,8 @@ Partial Class Frm_V20091231_Weather Me.tb_w03 = New Eco2Ar.MyTb() Me.tb_w07 = New Eco2Ar.MyTb() Me.tb_w02 = New Eco2Ar.MyTb() - Me.Label88 = New System.Windows.Forms.Label() - Me.GroupBox1 = New System.Windows.Forms.GroupBox() - Me.Panel2 = New System.Windows.Forms.Panel() - Me.Label89 = New System.Windows.Forms.Label() Me.tb_wnan = New Eco2Ar.MyTb() Me.tb_wnaen = New Eco2Ar.MyTb() - Me.TabPage8 = New System.Windows.Forms.TabPage() - Me.TableLayoutPanel4 = New System.Windows.Forms.TableLayoutPanel() - Me.Arindv2 = New CEnergy.arindv() - Me.설명DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.code = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.bsw_ilsa = New System.Windows.Forms.BindingSource(Me.components) - Me.Panel4 = New System.Windows.Forms.Panel() - Me.TableLayoutPanel34 = New System.Windows.Forms.TableLayoutPanel() Me.tb_v1 = New Eco2Ar.MyTb() Me.tb_v6 = New Eco2Ar.MyTb() Me.tb_v5 = New Eco2Ar.MyTb() @@ -165,23 +312,7 @@ Partial Class Frm_V20091231_Weather Me.tb_v10 = New Eco2Ar.MyTb() Me.tb_v11 = New Eco2Ar.MyTb() Me.tb_v12 = New Eco2Ar.MyTb() - Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) - Me.ToolStripButton9 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton10 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton11 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton12 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator() - Me.ToolStripButton14 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton15 = New System.Windows.Forms.ToolStripButton() Me.tb_v0 = New Eco2Ar.MyTb() - Me.TabPage9 = New System.Windows.Forms.TabPage() - Me.TableLayoutPanel5 = New System.Windows.Forms.TableLayoutPanel() - Me.Arindv3 = New CEnergy.arindv() - Me.설명DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.bsw_temp = New System.Windows.Forms.BindingSource(Me.components) - Me.Panel7 = New System.Windows.Forms.Panel() - Me.TableLayoutPanel8 = New System.Windows.Forms.TableLayoutPanel() Me.tb_t18 = New Eco2Ar.MyTb() Me.tb_t1 = New Eco2Ar.MyTb() Me.tb_t17 = New Eco2Ar.MyTb() @@ -206,22 +337,6 @@ Partial Class Frm_V20091231_Weather Me.tb_t9 = New Eco2Ar.MyTb() Me.tb_t8 = New Eco2Ar.MyTb() Me.tb_t7 = New Eco2Ar.MyTb() - Me.BindingNavigator4 = New System.Windows.Forms.BindingNavigator(Me.components) - Me.ToolStripButton25 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton26 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton27 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton28 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripSeparator11 = New System.Windows.Forms.ToolStripSeparator() - Me.ToolStripButton29 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton30 = New System.Windows.Forms.ToolStripButton() - Me.TabPage10 = New System.Windows.Forms.TabPage() - Me.TableLayoutPanel6 = New System.Windows.Forms.TableLayoutPanel() - Me.Arindv4 = New CEnergy.arindv() - Me.설명DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn10 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.bsw_supdo = New System.Windows.Forms.BindingSource(Me.components) - Me.Panel8 = New System.Windows.Forms.Panel() - Me.TableLayoutPanel9 = New System.Windows.Forms.TableLayoutPanel() Me.tb_s24 = New Eco2Ar.MyTb() Me.tb_S12 = New Eco2Ar.MyTb() Me.tb_s23 = New Eco2Ar.MyTb() @@ -246,23 +361,6 @@ Partial Class Frm_V20091231_Weather Me.tb_s7 = New Eco2Ar.MyTb() Me.tb_s5 = New Eco2Ar.MyTb() Me.tb_s6 = New Eco2Ar.MyTb() - Me.BindingNavigator5 = New System.Windows.Forms.BindingNavigator(Me.components) - Me.ToolStripButton33 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton34 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton35 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton36 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripSeparator12 = New System.Windows.Forms.ToolStripSeparator() - Me.ToolStripButton37 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton38 = New System.Windows.Forms.ToolStripButton() - Me.TabPage2 = New System.Windows.Forms.TabPage() - Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel() - Me.Arindv1 = New CEnergy.arindv() - Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn11 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.bsw_cha = New System.Windows.Forms.BindingSource(Me.components) - Me.Panel1 = New System.Windows.Forms.Panel() - Me.Button1 = New System.Windows.Forms.Button() - Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() Me.tb_c12 = New Eco2Ar.MyTb() Me.tb_c11 = New Eco2Ar.MyTb() Me.tb_c01 = New Eco2Ar.MyTb() @@ -275,67 +373,44 @@ Partial Class Frm_V20091231_Weather Me.tb_c07 = New Eco2Ar.MyTb() Me.tb_c02 = New Eco2Ar.MyTb() Me.tb_c03 = New Eco2Ar.MyTb() - Me.BindingNavigator2 = New System.Windows.Forms.BindingNavigator(Me.components) - 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.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() - Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton() - Me.TabPage3 = New System.Windows.Forms.TabPage() - Me.Button6 = New System.Windows.Forms.Button() - Me.Button4 = New System.Windows.Forms.Button() - Me.Button5 = New System.Windows.Forms.Button() - Me.Button7 = New System.Windows.Forms.Button() - Me.Button8 = New System.Windows.Forms.Button() - Me.dvArea3 = New CEnergy.arindv() - Me.CodeDataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.NameDataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.AreaDataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewButtonColumn() - Me.bsWGDep3 = New System.Windows.Forms.BindingSource(Me.components) - Me.dvArea2 = New CEnergy.arindv() - Me.CodeDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.area2 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.NameDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.AreaDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewButtonColumn() - Me.dvc_area2 = New System.Windows.Forms.DataGridViewComboBoxColumn() - Me.area3 = New System.Windows.Forms.DataGridViewComboBoxColumn() - Me.bsWGDep2 = New System.Windows.Forms.BindingSource(Me.components) - Me.dvArea1 = New CEnergy.arindv() - Me.CodeDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.NameDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.AreaDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewButtonColumn() - Me.bsWGDep1 = New System.Windows.Forms.BindingSource(Me.components) - Me.Label15 = New System.Windows.Forms.Label() - Me.Label14 = New System.Windows.Forms.Label() - Me.Label13 = New System.Windows.Forms.Label() - Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() - Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() - Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.dv = New CEnergy.arindv() - Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.건물위치DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.TabPage4 = New System.Windows.Forms.TabPage() - Label39 = New System.Windows.Forms.Label() - Label247 = New System.Windows.Forms.Label() - Label248 = New System.Windows.Forms.Label() - Label249 = New System.Windows.Forms.Label() - Label250 = New System.Windows.Forms.Label() - Label251 = New System.Windows.Forms.Label() - Label252 = New System.Windows.Forms.Label() - Label253 = New System.Windows.Forms.Label() - Label254 = New System.Windows.Forms.Label() - Label255 = New System.Windows.Forms.Label() - Label256 = New System.Windows.Forms.Label() - Label257 = New System.Windows.Forms.Label() - Label258 = New System.Windows.Forms.Label() + Me.MyTb1 = New Eco2Ar.MyTb() + Me.MyTb2 = New Eco2Ar.MyTb() + Me.tbwi12 = New Eco2Ar.MyTb() + Me.tbwi11 = New Eco2Ar.MyTb() + Me.tbwi10 = New Eco2Ar.MyTb() + Me.tbwi06 = New Eco2Ar.MyTb() + Me.tbwi09 = New Eco2Ar.MyTb() + Me.tbwi05 = New Eco2Ar.MyTb() + Me.tbwi04 = New Eco2Ar.MyTb() + Me.tbwi08 = New Eco2Ar.MyTb() + Me.tbwi01 = New Eco2Ar.MyTb() + Me.tbwi03 = New Eco2Ar.MyTb() + Me.tbwi07 = New Eco2Ar.MyTb() + Me.tbwi02 = New Eco2Ar.MyTb() + Me.tbr12 = New Eco2Ar.MyTb() + Me.tbr11 = New Eco2Ar.MyTb() + Me.tbr10 = New Eco2Ar.MyTb() + Me.tbr06 = New Eco2Ar.MyTb() + Me.tbr09 = New Eco2Ar.MyTb() + Me.tbr05 = New Eco2Ar.MyTb() + Me.tbr04 = New Eco2Ar.MyTb() + Me.tbr08 = New Eco2Ar.MyTb() + Me.tbr01 = New Eco2Ar.MyTb() + Me.tbr03 = New Eco2Ar.MyTb() + Me.tbr07 = New Eco2Ar.MyTb() + Me.tbr02 = New Eco2Ar.MyTb() + Me.tbw12 = New Eco2Ar.MyTb() + Me.tbw11 = New Eco2Ar.MyTb() + Me.tbw10 = New Eco2Ar.MyTb() + Me.tbw06 = New Eco2Ar.MyTb() + Me.tbw09 = New Eco2Ar.MyTb() + Me.tbw05 = New Eco2Ar.MyTb() + Me.tbw04 = New Eco2Ar.MyTb() + Me.tbw08 = New Eco2Ar.MyTb() + Me.tbw01 = New Eco2Ar.MyTb() + Me.tbw03 = New Eco2Ar.MyTb() + Me.tbw07 = New Eco2Ar.MyTb() + Me.tbw02 = New Eco2Ar.MyTb() Label64 = New System.Windows.Forms.Label() Label77 = New System.Windows.Forms.Label() Label78 = New System.Windows.Forms.Label() @@ -350,6 +425,19 @@ Partial Class Frm_V20091231_Weather Label87 = New System.Windows.Forms.Label() Label90 = New System.Windows.Forms.Label() Label91 = New System.Windows.Forms.Label() + Label39 = New System.Windows.Forms.Label() + Label251 = New System.Windows.Forms.Label() + Label253 = New System.Windows.Forms.Label() + Label255 = New System.Windows.Forms.Label() + Label256 = New System.Windows.Forms.Label() + Label257 = New System.Windows.Forms.Label() + Label258 = New System.Windows.Forms.Label() + Label254 = New System.Windows.Forms.Label() + Label252 = New System.Windows.Forms.Label() + Label250 = New System.Windows.Forms.Label() + Label249 = New System.Windows.Forms.Label() + Label248 = New System.Windows.Forms.Label() + Label247 = New System.Windows.Forms.Label() Label25 = New System.Windows.Forms.Label() Label26 = New System.Windows.Forms.Label() Label27 = New System.Windows.Forms.Label() @@ -410,21 +498,64 @@ Partial Class Frm_V20091231_Weather Label10 = New System.Windows.Forms.Label() Label11 = New System.Windows.Forms.Label() Label12 = New System.Windows.Forms.Label() - CType(Me.bn_all, System.ComponentModel.ISupportInitialize).BeginInit() - Me.bn_all.SuspendLayout() + Label16 = New System.Windows.Forms.Label() + Label17 = New System.Windows.Forms.Label() + Label18 = New System.Windows.Forms.Label() + Label19 = New System.Windows.Forms.Label() + Label20 = New System.Windows.Forms.Label() + Label21 = New System.Windows.Forms.Label() + Label22 = New System.Windows.Forms.Label() + Label23 = New System.Windows.Forms.Label() + Label24 = New System.Windows.Forms.Label() + Label65 = New System.Windows.Forms.Label() + Label66 = New System.Windows.Forms.Label() + Label67 = New System.Windows.Forms.Label() + Label69 = New System.Windows.Forms.Label() + Label70 = New System.Windows.Forms.Label() + Label71 = New System.Windows.Forms.Label() + Label72 = New System.Windows.Forms.Label() + Label73 = New System.Windows.Forms.Label() + Label74 = New System.Windows.Forms.Label() + Label75 = New System.Windows.Forms.Label() + Label76 = New System.Windows.Forms.Label() + Label102 = New System.Windows.Forms.Label() + Label103 = New System.Windows.Forms.Label() + Label104 = New System.Windows.Forms.Label() + Label105 = New System.Windows.Forms.Label() + Label107 = New System.Windows.Forms.Label() + Label108 = New System.Windows.Forms.Label() + Label109 = New System.Windows.Forms.Label() + Label110 = New System.Windows.Forms.Label() + Label111 = New System.Windows.Forms.Label() + Label112 = New System.Windows.Forms.Label() + Label113 = New System.Windows.Forms.Label() + Label114 = New System.Windows.Forms.Label() + Label115 = New System.Windows.Forms.Label() + Label116 = New System.Windows.Forms.Label() + Label117 = New System.Windows.Forms.Label() + Label118 = New System.Windows.Forms.Label() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bsw_ilsa, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bsw_temp, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bsw_supdo, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bsw_cha, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bsWGDep3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bsWGDep2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bsWGDep1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bsw_wind, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bsw_river, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bsw_water, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabControl3.SuspendLayout() Me.TabPage1.SuspendLayout() Me.GroupBox2.SuspendLayout() Me.Panel3.SuspendLayout() Me.TableLayoutPanel7.SuspendLayout() - CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.DS1, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox1.SuspendLayout() Me.Panel2.SuspendLayout() Me.TabPage8.SuspendLayout() Me.TableLayoutPanel4.SuspendLayout() CType(Me.Arindv2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.bsw_ilsa, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel4.SuspendLayout() Me.TableLayoutPanel34.SuspendLayout() CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -432,7 +563,6 @@ Partial Class Frm_V20091231_Weather Me.TabPage9.SuspendLayout() Me.TableLayoutPanel5.SuspendLayout() CType(Me.Arindv3, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.bsw_temp, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel7.SuspendLayout() Me.TableLayoutPanel8.SuspendLayout() CType(Me.BindingNavigator4, System.ComponentModel.ISupportInitialize).BeginInit() @@ -440,7 +570,6 @@ Partial Class Frm_V20091231_Weather Me.TabPage10.SuspendLayout() Me.TableLayoutPanel6.SuspendLayout() CType(Me.Arindv4, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.bsw_supdo, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel8.SuspendLayout() Me.TableLayoutPanel9.SuspendLayout() CType(Me.BindingNavigator5, System.ComponentModel.ISupportInitialize).BeginInit() @@ -448,159 +577,268 @@ Partial Class Frm_V20091231_Weather Me.TabPage2.SuspendLayout() Me.TableLayoutPanel2.SuspendLayout() CType(Me.Arindv1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.bsw_cha, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.TableLayoutPanel1.SuspendLayout() CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).BeginInit() Me.BindingNavigator2.SuspendLayout() Me.TabPage3.SuspendLayout() CType(Me.dvArea3, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.bsWGDep3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dvArea2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.bsWGDep2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dvArea1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.bsWGDep1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.StatusStrip1.SuspendLayout() + Me.TabPage4.SuspendLayout() + Me.Panel5.SuspendLayout() + Me.TableLayoutPanel3.SuspendLayout() + Me.TabPage5.SuspendLayout() + Me.Panel6.SuspendLayout() + Me.TableLayoutPanel10.SuspendLayout() + Me.TabPage6.SuspendLayout() + Me.Panel9.SuspendLayout() + Me.TableLayoutPanel11.SuspendLayout() CType(Me.dv, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bn_all, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn_all.SuspendLayout() + Me.StatusStrip1.SuspendLayout() Me.SuspendLayout() ' - 'Label39 + 'bs ' - Label39.AutoSize = True - Label39.Location = New System.Drawing.Point(15, 22) - Label39.Name = "Label39" - Label39.Size = New System.Drawing.Size(126, 12) - Label39.TabIndex = 120 - Label39.Text = "평균일사(최대부하):" + Me.bs.DataMember = "tbl_weather" + Me.bs.DataSource = Me.DS1 + Me.bs.Filter = "code <> '0'" + Me.bs.Sort = "" ' - 'Label247 + 'DS1 ' - Label247.Anchor = System.Windows.Forms.AnchorStyles.None - Label247.AutoSize = True - Label247.Location = New System.Drawing.Point(4, 316) - Label247.Name = "Label247" - Label247.Size = New System.Drawing.Size(101, 12) - Label247.TabIndex = 30 - Label247.Text = "평균일사(12월):" + Me.DS1.DataSetName = "DS" + Me.DS1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema ' - 'Label248 + 'bsw_ilsa ' - Label248.Anchor = System.Windows.Forms.AnchorStyles.None - Label248.AutoSize = True - Label248.Location = New System.Drawing.Point(4, 288) - Label248.Name = "Label248" - Label248.Size = New System.Drawing.Size(101, 12) - Label248.TabIndex = 28 - Label248.Text = "평균일사(11월):" + Me.bsw_ilsa.DataMember = "weather_ilsa" + Me.bsw_ilsa.DataSource = Me.DS1 ' - 'Label249 + 'bsw_temp ' - Label249.Anchor = System.Windows.Forms.AnchorStyles.None - Label249.AutoSize = True - Label249.Location = New System.Drawing.Point(4, 260) - Label249.Name = "Label249" - Label249.Size = New System.Drawing.Size(101, 12) - Label249.TabIndex = 26 - Label249.Text = "평균일사(10월):" + Me.bsw_temp.DataMember = "weather_temp" + Me.bsw_temp.DataSource = Me.DS1 ' - 'Label250 + 'bsw_supdo ' - Label250.Anchor = System.Windows.Forms.AnchorStyles.None - Label250.AutoSize = True - Label250.Location = New System.Drawing.Point(7, 232) - Label250.Name = "Label250" - Label250.Size = New System.Drawing.Size(94, 12) - Label250.TabIndex = 24 - Label250.Text = "평균일사(9월):" + Me.bsw_supdo.DataMember = "weather_supdo" + Me.bsw_supdo.DataSource = Me.DS1 ' - 'Label251 + 'bsw_cha ' - Label251.Anchor = System.Windows.Forms.AnchorStyles.None - Label251.AutoSize = True - Label251.Location = New System.Drawing.Point(7, 148) - Label251.Name = "Label251" - Label251.Size = New System.Drawing.Size(94, 12) - Label251.TabIndex = 18 - Label251.Text = "평균일사(6월):" + Me.bsw_cha.DataMember = "weather_cha" + Me.bsw_cha.DataSource = Me.DS1 ' - 'Label252 + 'bsWGDep3 ' - Label252.Anchor = System.Windows.Forms.AnchorStyles.None - Label252.AutoSize = True - Label252.Location = New System.Drawing.Point(7, 204) - Label252.Name = "Label252" - Label252.Size = New System.Drawing.Size(94, 12) - Label252.TabIndex = 22 - Label252.Text = "평균일사(8월):" + Me.bsWGDep3.DataMember = "weather_group" + Me.bsWGDep3.DataSource = Me.DS1 + Me.bsWGDep3.Filter = "code ='test'" + Me.bsWGDep3.Sort = "" ' - 'Label253 + 'bsWGDep2 ' - Label253.Anchor = System.Windows.Forms.AnchorStyles.None - Label253.AutoSize = True - Label253.Location = New System.Drawing.Point(7, 120) - Label253.Name = "Label253" - Label253.Size = New System.Drawing.Size(94, 12) - Label253.TabIndex = 16 - Label253.Text = "평균일사(5월):" + Me.bsWGDep2.DataMember = "weather_group" + Me.bsWGDep2.DataSource = Me.DS1 + Me.bsWGDep2.Filter = "code ='test'" + Me.bsWGDep2.Sort = "" ' - 'Label254 + 'bsWGDep1 ' - Label254.Anchor = System.Windows.Forms.AnchorStyles.None - Label254.AutoSize = True - Label254.Location = New System.Drawing.Point(7, 176) - Label254.Name = "Label254" - Label254.Size = New System.Drawing.Size(94, 12) - Label254.TabIndex = 20 - Label254.Text = "평균일사(7월):" + Me.bsWGDep1.DataMember = "weather_group" + Me.bsWGDep1.DataSource = Me.DS1 + Me.bsWGDep1.Filter = "code <> '0' and code like '%0000'" + Me.bsWGDep1.Sort = "" ' - 'Label255 + 'DataGridViewTextBoxColumn2 ' - Label255.Anchor = System.Windows.Forms.AnchorStyles.None - Label255.AutoSize = True - Label255.Location = New System.Drawing.Point(7, 92) - Label255.Name = "Label255" - Label255.Size = New System.Drawing.Size(94, 12) - Label255.TabIndex = 14 - Label255.Text = "평균일사(4월):" + Me.DataGridViewTextBoxColumn2.DataPropertyName = "code" + Me.DataGridViewTextBoxColumn2.HeaderText = "code" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.Width = 58 ' - 'Label256 + 'DataGridViewTextBoxColumn3 ' - Label256.Anchor = System.Windows.Forms.AnchorStyles.None - Label256.AutoSize = True - Label256.Location = New System.Drawing.Point(7, 8) - Label256.Name = "Label256" - Label256.Size = New System.Drawing.Size(94, 12) - Label256.TabIndex = 8 - Label256.Text = "평균일사(1월):" + Me.DataGridViewTextBoxColumn3.DataPropertyName = "code" + Me.DataGridViewTextBoxColumn3.HeaderText = "code" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.Width = 58 ' - 'Label257 + 'DataGridViewTextBoxColumn4 ' - Label257.Anchor = System.Windows.Forms.AnchorStyles.None - Label257.AutoSize = True - Label257.Location = New System.Drawing.Point(7, 64) - Label257.Name = "Label257" - Label257.Size = New System.Drawing.Size(94, 12) - Label257.TabIndex = 12 - Label257.Text = "평균일사(3월):" + Me.DataGridViewTextBoxColumn4.DataPropertyName = "code" + Me.DataGridViewTextBoxColumn4.HeaderText = "code" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + Me.DataGridViewTextBoxColumn4.Width = 58 ' - 'Label258 + 'DataGridViewTextBoxColumn5 ' - Label258.Anchor = System.Windows.Forms.AnchorStyles.None - Label258.AutoSize = True - Label258.Location = New System.Drawing.Point(7, 36) - Label258.Name = "Label258" - Label258.Size = New System.Drawing.Size(94, 12) - Label258.TabIndex = 10 - Label258.Text = "평균일사(2월):" + Me.DataGridViewTextBoxColumn5.DataPropertyName = "code" + Me.DataGridViewTextBoxColumn5.HeaderText = "code" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + Me.DataGridViewTextBoxColumn5.Width = 58 + ' + 'DataGridViewTextBoxColumn6 + ' + Me.DataGridViewTextBoxColumn6.DataPropertyName = "code" + Me.DataGridViewTextBoxColumn6.HeaderText = "code" + Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" + Me.DataGridViewTextBoxColumn6.Width = 58 + ' + 'DataGridViewTextBoxColumn7 + ' + Me.DataGridViewTextBoxColumn7.DataPropertyName = "code" + Me.DataGridViewTextBoxColumn7.HeaderText = "code" + Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" + Me.DataGridViewTextBoxColumn7.Width = 58 + ' + 'DataGridViewTextBoxColumn8 + ' + Me.DataGridViewTextBoxColumn8.DataPropertyName = "code" + Me.DataGridViewTextBoxColumn8.HeaderText = "code" + Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" + Me.DataGridViewTextBoxColumn8.Width = 58 + ' + 'bsw_wind + ' + Me.bsw_wind.DataMember = "weather_wind" + Me.bsw_wind.DataSource = Me.DS1 + ' + 'bsw_river + ' + Me.bsw_river.DataMember = "weather_river" + Me.bsw_river.DataSource = Me.DS1 + ' + 'bsw_water + ' + Me.bsw_water.DataMember = "weather_water" + Me.bsw_water.DataSource = Me.DS1 + ' + 'TabControl3 + ' + Me.TabControl3.Controls.Add(Me.TabPage1) + Me.TabControl3.Controls.Add(Me.TabPage8) + Me.TabControl3.Controls.Add(Me.TabPage9) + Me.TabControl3.Controls.Add(Me.TabPage10) + Me.TabControl3.Controls.Add(Me.TabPage2) + Me.TabControl3.Controls.Add(Me.TabPage3) + Me.TabControl3.Controls.Add(Me.TabPage4) + Me.TabControl3.Controls.Add(Me.TabPage5) + Me.TabControl3.Controls.Add(Me.TabPage6) + Me.TabControl3.Dock = System.Windows.Forms.DockStyle.Fill + Me.TabControl3.Location = New System.Drawing.Point(193, 0) + Me.TabControl3.Name = "TabControl3" + Me.TabControl3.SelectedIndex = 0 + Me.TabControl3.Size = New System.Drawing.Size(943, 533) + Me.TabControl3.TabIndex = 81 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.Button3) + Me.TabPage1.Controls.Add(Me.Button2) + Me.TabPage1.Controls.Add(Me.GroupBox2) + Me.TabPage1.Controls.Add(Me.GroupBox1) + Me.TabPage1.Location = New System.Drawing.Point(4, 22) + Me.TabPage1.Name = "TabPage1" + Me.TabPage1.Size = New System.Drawing.Size(935, 507) + Me.TabPage1.TabIndex = 4 + Me.TabPage1.Text = "외기온도" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'Button3 + ' + Me.Button3.Location = New System.Drawing.Point(305, 414) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(135, 52) + Me.Button3.TabIndex = 128 + Me.Button3.Text = "IMPORT" + Me.Button3.UseVisualStyleBackColor = True + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(446, 414) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(135, 52) + Me.Button2.TabIndex = 127 + Me.Button2.Text = "SAVE" + Me.Button2.UseVisualStyleBackColor = True + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.Panel3) + Me.GroupBox2.Location = New System.Drawing.Point(89, 141) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(492, 207) + Me.GroupBox2.TabIndex = 126 + Me.GroupBox2.TabStop = False + ' + 'Panel3 + ' + Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Panel3.Controls.Add(Me.TableLayoutPanel7) + Me.Panel3.Controls.Add(Me.Label88) + Me.Panel3.Location = New System.Drawing.Point(2, 9) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(500, 195) + Me.Panel3.TabIndex = 123 + ' + 'TableLayoutPanel7 + ' + Me.TableLayoutPanel7.AutoSize = True + Me.TableLayoutPanel7.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(252, Byte), Integer)) + Me.TableLayoutPanel7.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single] + Me.TableLayoutPanel7.ColumnCount = 4 + Me.TableLayoutPanel7.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 102.0!)) + Me.TableLayoutPanel7.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 136.0!)) + Me.TableLayoutPanel7.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 120.0!)) + Me.TableLayoutPanel7.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 162.0!)) + Me.TableLayoutPanel7.Controls.Add(Me.tb_w12, 3, 5) + Me.TableLayoutPanel7.Controls.Add(Label64, 2, 5) + Me.TableLayoutPanel7.Controls.Add(Label77, 2, 4) + Me.TableLayoutPanel7.Controls.Add(Label78, 2, 3) + Me.TableLayoutPanel7.Controls.Add(Label79, 2, 2) + Me.TableLayoutPanel7.Controls.Add(Me.tb_w11, 3, 4) + Me.TableLayoutPanel7.Controls.Add(Label80, 0, 5) + Me.TableLayoutPanel7.Controls.Add(Label81, 2, 1) + Me.TableLayoutPanel7.Controls.Add(Label82, 0, 4) + Me.TableLayoutPanel7.Controls.Add(Me.tb_w10, 3, 3) + Me.TableLayoutPanel7.Controls.Add(Label83, 2, 0) + Me.TableLayoutPanel7.Controls.Add(Label84, 0, 3) + Me.TableLayoutPanel7.Controls.Add(Label85, 0, 0) + Me.TableLayoutPanel7.Controls.Add(Me.tb_w06, 1, 5) + Me.TableLayoutPanel7.Controls.Add(Me.tb_w09, 3, 2) + Me.TableLayoutPanel7.Controls.Add(Me.tb_w05, 1, 4) + Me.TableLayoutPanel7.Controls.Add(Label86, 0, 2) + Me.TableLayoutPanel7.Controls.Add(Me.tb_w04, 1, 3) + Me.TableLayoutPanel7.Controls.Add(Label87, 0, 1) + Me.TableLayoutPanel7.Controls.Add(Me.tb_w08, 3, 1) + Me.TableLayoutPanel7.Controls.Add(Me.tb_w01, 1, 0) + Me.TableLayoutPanel7.Controls.Add(Me.tb_w03, 1, 2) + Me.TableLayoutPanel7.Controls.Add(Me.tb_w07, 3, 0) + Me.TableLayoutPanel7.Controls.Add(Me.tb_w02, 1, 1) + Me.TableLayoutPanel7.Location = New System.Drawing.Point(11, 19) + Me.TableLayoutPanel7.Name = "TableLayoutPanel7" + Me.TableLayoutPanel7.RowCount = 5 + Me.TableLayoutPanel7.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel7.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel7.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel7.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel7.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel7.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel7.Size = New System.Drawing.Size(525, 169) + Me.TableLayoutPanel7.TabIndex = 122 ' 'Label64 ' Label64.Anchor = System.Windows.Forms.AnchorStyles.None Label64.AutoSize = True Label64.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label64.Location = New System.Drawing.Point(216, 142) + Label64.Location = New System.Drawing.Point(250, 148) Label64.Name = "Label64" - Label64.Size = New System.Drawing.Size(77, 24) + Label64.Size = New System.Drawing.Size(101, 12) Label64.TabIndex = 30 Label64.Text = "외기온도(12월):" ' @@ -609,9 +847,9 @@ Partial Class Frm_V20091231_Weather Label77.Anchor = System.Windows.Forms.AnchorStyles.None Label77.AutoSize = True Label77.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label77.Location = New System.Drawing.Point(216, 114) + Label77.Location = New System.Drawing.Point(250, 120) Label77.Name = "Label77" - Label77.Size = New System.Drawing.Size(77, 24) + Label77.Size = New System.Drawing.Size(101, 12) Label77.TabIndex = 28 Label77.Text = "외기온도(11월):" ' @@ -620,9 +858,9 @@ Partial Class Frm_V20091231_Weather Label78.Anchor = System.Windows.Forms.AnchorStyles.None Label78.AutoSize = True Label78.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label78.Location = New System.Drawing.Point(216, 86) + Label78.Location = New System.Drawing.Point(250, 92) Label78.Name = "Label78" - Label78.Size = New System.Drawing.Size(77, 24) + Label78.Size = New System.Drawing.Size(101, 12) Label78.TabIndex = 26 Label78.Text = "외기온도(10월):" ' @@ -631,9 +869,9 @@ Partial Class Frm_V20091231_Weather Label79.Anchor = System.Windows.Forms.AnchorStyles.None Label79.AutoSize = True Label79.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label79.Location = New System.Drawing.Point(210, 58) + Label79.Location = New System.Drawing.Point(254, 64) Label79.Name = "Label79" - Label79.Size = New System.Drawing.Size(89, 24) + Label79.Size = New System.Drawing.Size(94, 12) Label79.TabIndex = 24 Label79.Text = "외기온도(9월):" ' @@ -653,9 +891,9 @@ Partial Class Frm_V20091231_Weather Label81.Anchor = System.Windows.Forms.AnchorStyles.None Label81.AutoSize = True Label81.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label81.Location = New System.Drawing.Point(210, 30) + Label81.Location = New System.Drawing.Point(254, 36) Label81.Name = "Label81" - Label81.Size = New System.Drawing.Size(89, 24) + Label81.Size = New System.Drawing.Size(94, 12) Label81.TabIndex = 22 Label81.Text = "외기온도(8월):" ' @@ -675,9 +913,9 @@ Partial Class Frm_V20091231_Weather Label83.Anchor = System.Windows.Forms.AnchorStyles.None Label83.AutoSize = True Label83.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label83.Location = New System.Drawing.Point(210, 2) + Label83.Location = New System.Drawing.Point(254, 8) Label83.Name = "Label83" - Label83.Size = New System.Drawing.Size(89, 24) + Label83.Size = New System.Drawing.Size(94, 12) Label83.TabIndex = 20 Label83.Text = "외기온도(7월):" ' @@ -725,972 +963,6 @@ Partial Class Frm_V20091231_Weather Label87.TabIndex = 10 Label87.Text = "외기온도(2월):" ' - 'Label90 - ' - Label90.AutoSize = True - Label90.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label90.Location = New System.Drawing.Point(14, 23) - Label90.Name = "Label90" - Label90.Size = New System.Drawing.Size(113, 12) - Label90.TabIndex = 116 - Label90.Text = "외기온도(난방기):" - ' - 'Label91 - ' - Label91.AutoSize = True - Label91.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label91.Location = New System.Drawing.Point(14, 46) - Label91.Name = "Label91" - Label91.Size = New System.Drawing.Size(113, 12) - Label91.TabIndex = 117 - Label91.Text = "외기온도(냉방기):" - ' - 'Label25 - ' - Label25.AutoSize = True - Label25.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label25.Location = New System.Drawing.Point(4, 29) - Label25.Name = "Label25" - Label25.Size = New System.Drawing.Size(32, 12) - Label25.TabIndex = 30 - Label25.Text = "02시" - ' - 'Label26 - ' - Label26.AutoSize = True - Label26.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label26.Location = New System.Drawing.Point(4, 57) - Label26.Name = "Label26" - Label26.Size = New System.Drawing.Size(32, 12) - Label26.TabIndex = 31 - Label26.Text = "03시" - ' - 'Label27 - ' - Label27.AutoSize = True - Label27.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label27.Location = New System.Drawing.Point(4, 85) - Label27.Name = "Label27" - Label27.Size = New System.Drawing.Size(32, 12) - Label27.TabIndex = 32 - Label27.Text = "04시" - ' - 'Label28 - ' - Label28.AutoSize = True - Label28.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label28.Location = New System.Drawing.Point(4, 113) - Label28.Name = "Label28" - Label28.Size = New System.Drawing.Size(32, 12) - Label28.TabIndex = 33 - Label28.Text = "05시" - ' - 'Label29 - ' - Label29.AutoSize = True - Label29.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label29.Location = New System.Drawing.Point(4, 141) - Label29.Name = "Label29" - Label29.Size = New System.Drawing.Size(32, 12) - Label29.TabIndex = 34 - Label29.Text = "06시" - ' - 'Label30 - ' - Label30.AutoSize = True - Label30.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label30.Location = New System.Drawing.Point(4, 1) - Label30.Name = "Label30" - Label30.Size = New System.Drawing.Size(32, 12) - Label30.TabIndex = 29 - Label30.Text = "01시" - ' - 'Label31 - ' - Label31.AutoSize = True - Label31.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label31.Location = New System.Drawing.Point(129, 29) - Label31.Name = "Label31" - Label31.Size = New System.Drawing.Size(32, 12) - Label31.TabIndex = 42 - Label31.Text = "14시" - ' - 'Label32 - ' - Label32.AutoSize = True - Label32.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label32.Location = New System.Drawing.Point(129, 57) - Label32.Name = "Label32" - Label32.Size = New System.Drawing.Size(32, 12) - Label32.TabIndex = 43 - Label32.Text = "15시" - ' - 'Label33 - ' - Label33.AutoSize = True - Label33.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label33.Location = New System.Drawing.Point(129, 85) - Label33.Name = "Label33" - Label33.Size = New System.Drawing.Size(32, 12) - Label33.TabIndex = 44 - Label33.Text = "16시" - ' - 'Label34 - ' - Label34.AutoSize = True - Label34.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label34.Location = New System.Drawing.Point(129, 113) - Label34.Name = "Label34" - Label34.Size = New System.Drawing.Size(32, 12) - Label34.TabIndex = 45 - Label34.Text = "17시" - ' - 'Label35 - ' - Label35.AutoSize = True - Label35.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label35.Location = New System.Drawing.Point(129, 141) - Label35.Name = "Label35" - Label35.Size = New System.Drawing.Size(32, 12) - Label35.TabIndex = 46 - Label35.Text = "18시" - ' - 'Label36 - ' - Label36.AutoSize = True - Label36.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label36.Location = New System.Drawing.Point(129, 1) - Label36.Name = "Label36" - Label36.Size = New System.Drawing.Size(32, 12) - Label36.TabIndex = 41 - Label36.Text = "13시" - ' - 'Label37 - ' - Label37.AutoSize = True - Label37.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label37.Location = New System.Drawing.Point(4, 169) - Label37.Name = "Label37" - Label37.Size = New System.Drawing.Size(32, 12) - Label37.TabIndex = 35 - Label37.Text = "07시" - ' - 'Label38 - ' - Label38.AutoSize = True - Label38.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label38.Location = New System.Drawing.Point(4, 197) - Label38.Name = "Label38" - Label38.Size = New System.Drawing.Size(32, 12) - Label38.TabIndex = 36 - Label38.Text = "08시" - ' - 'Label92 - ' - Label92.AutoSize = True - Label92.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label92.Location = New System.Drawing.Point(4, 225) - Label92.Name = "Label92" - Label92.Size = New System.Drawing.Size(32, 12) - Label92.TabIndex = 37 - Label92.Text = "09시" - ' - 'Label93 - ' - Label93.AutoSize = True - Label93.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label93.Location = New System.Drawing.Point(4, 253) - Label93.Name = "Label93" - Label93.Size = New System.Drawing.Size(32, 12) - Label93.TabIndex = 38 - Label93.Text = "10시" - ' - 'Label94 - ' - Label94.AutoSize = True - Label94.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label94.Location = New System.Drawing.Point(4, 281) - Label94.Name = "Label94" - Label94.Size = New System.Drawing.Size(32, 12) - Label94.TabIndex = 39 - Label94.Text = "11시" - ' - 'Label95 - ' - Label95.AutoSize = True - Label95.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label95.Location = New System.Drawing.Point(4, 309) - Label95.Name = "Label95" - Label95.Size = New System.Drawing.Size(32, 12) - Label95.TabIndex = 40 - Label95.Text = "12시" - ' - 'Label96 - ' - Label96.AutoSize = True - Label96.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label96.Location = New System.Drawing.Point(129, 169) - Label96.Name = "Label96" - Label96.Size = New System.Drawing.Size(32, 12) - Label96.TabIndex = 47 - Label96.Text = "19시" - ' - 'Label97 - ' - Label97.AutoSize = True - Label97.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label97.Location = New System.Drawing.Point(129, 197) - Label97.Name = "Label97" - Label97.Size = New System.Drawing.Size(32, 12) - Label97.TabIndex = 48 - Label97.Text = "20시" - ' - 'Label98 - ' - Label98.AutoSize = True - Label98.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label98.Location = New System.Drawing.Point(129, 225) - Label98.Name = "Label98" - Label98.Size = New System.Drawing.Size(32, 12) - Label98.TabIndex = 49 - Label98.Text = "21시" - ' - 'Label99 - ' - Label99.AutoSize = True - Label99.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label99.Location = New System.Drawing.Point(129, 253) - Label99.Name = "Label99" - Label99.Size = New System.Drawing.Size(32, 12) - Label99.TabIndex = 50 - Label99.Text = "22시" - ' - 'Label100 - ' - Label100.AutoSize = True - Label100.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label100.Location = New System.Drawing.Point(129, 281) - Label100.Name = "Label100" - Label100.Size = New System.Drawing.Size(32, 12) - Label100.TabIndex = 51 - Label100.Text = "23시" - ' - 'Label101 - ' - Label101.AutoSize = True - Label101.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label101.Location = New System.Drawing.Point(129, 309) - Label101.Name = "Label101" - Label101.Size = New System.Drawing.Size(32, 12) - Label101.TabIndex = 52 - Label101.Text = "24시" - ' - 'Label40 - ' - Label40.AutoSize = True - Label40.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label40.Location = New System.Drawing.Point(4, 29) - Label40.Name = "Label40" - Label40.Size = New System.Drawing.Size(32, 12) - Label40.TabIndex = 30 - Label40.Text = "02시" - ' - 'Label41 - ' - Label41.AutoSize = True - Label41.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label41.Location = New System.Drawing.Point(4, 57) - Label41.Name = "Label41" - Label41.Size = New System.Drawing.Size(32, 12) - Label41.TabIndex = 31 - Label41.Text = "03시" - ' - 'Label42 - ' - Label42.AutoSize = True - Label42.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label42.Location = New System.Drawing.Point(4, 85) - Label42.Name = "Label42" - Label42.Size = New System.Drawing.Size(32, 12) - Label42.TabIndex = 32 - Label42.Text = "04시" - ' - 'Label43 - ' - Label43.AutoSize = True - Label43.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label43.Location = New System.Drawing.Point(4, 113) - Label43.Name = "Label43" - Label43.Size = New System.Drawing.Size(32, 12) - Label43.TabIndex = 33 - Label43.Text = "05시" - ' - 'Label44 - ' - Label44.AutoSize = True - Label44.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label44.Location = New System.Drawing.Point(4, 141) - Label44.Name = "Label44" - Label44.Size = New System.Drawing.Size(32, 12) - Label44.TabIndex = 34 - Label44.Text = "06시" - ' - 'Label45 - ' - Label45.AutoSize = True - Label45.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label45.Location = New System.Drawing.Point(4, 1) - Label45.Name = "Label45" - Label45.Size = New System.Drawing.Size(32, 12) - Label45.TabIndex = 29 - Label45.Text = "01시" - ' - 'Label46 - ' - Label46.AutoSize = True - Label46.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label46.Location = New System.Drawing.Point(129, 29) - Label46.Name = "Label46" - Label46.Size = New System.Drawing.Size(32, 12) - Label46.TabIndex = 42 - Label46.Text = "14시" - ' - 'Label47 - ' - Label47.AutoSize = True - Label47.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label47.Location = New System.Drawing.Point(129, 57) - Label47.Name = "Label47" - Label47.Size = New System.Drawing.Size(32, 12) - Label47.TabIndex = 43 - Label47.Text = "15시" - ' - 'Label48 - ' - Label48.AutoSize = True - Label48.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label48.Location = New System.Drawing.Point(129, 85) - Label48.Name = "Label48" - Label48.Size = New System.Drawing.Size(32, 12) - Label48.TabIndex = 44 - Label48.Text = "16시" - ' - 'Label49 - ' - Label49.AutoSize = True - Label49.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label49.Location = New System.Drawing.Point(129, 113) - Label49.Name = "Label49" - Label49.Size = New System.Drawing.Size(32, 12) - Label49.TabIndex = 45 - Label49.Text = "17시" - ' - 'Label50 - ' - Label50.AutoSize = True - Label50.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label50.Location = New System.Drawing.Point(129, 141) - Label50.Name = "Label50" - Label50.Size = New System.Drawing.Size(32, 12) - Label50.TabIndex = 46 - Label50.Text = "18시" - ' - 'Label51 - ' - Label51.AutoSize = True - Label51.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label51.Location = New System.Drawing.Point(129, 1) - Label51.Name = "Label51" - Label51.Size = New System.Drawing.Size(32, 12) - Label51.TabIndex = 41 - Label51.Text = "13시" - ' - 'Label52 - ' - Label52.AutoSize = True - Label52.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label52.Location = New System.Drawing.Point(4, 169) - Label52.Name = "Label52" - Label52.Size = New System.Drawing.Size(32, 12) - Label52.TabIndex = 35 - Label52.Text = "07시" - ' - 'Label53 - ' - Label53.AutoSize = True - Label53.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label53.Location = New System.Drawing.Point(4, 197) - Label53.Name = "Label53" - Label53.Size = New System.Drawing.Size(32, 12) - Label53.TabIndex = 36 - Label53.Text = "08시" - ' - 'Label54 - ' - Label54.AutoSize = True - Label54.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label54.Location = New System.Drawing.Point(4, 225) - Label54.Name = "Label54" - Label54.Size = New System.Drawing.Size(32, 12) - Label54.TabIndex = 37 - Label54.Text = "09시" - ' - 'Label55 - ' - Label55.AutoSize = True - Label55.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label55.Location = New System.Drawing.Point(4, 253) - Label55.Name = "Label55" - Label55.Size = New System.Drawing.Size(32, 12) - Label55.TabIndex = 38 - Label55.Text = "10시" - ' - 'Label56 - ' - Label56.AutoSize = True - Label56.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label56.Location = New System.Drawing.Point(4, 281) - Label56.Name = "Label56" - Label56.Size = New System.Drawing.Size(32, 12) - Label56.TabIndex = 39 - Label56.Text = "11시" - ' - 'Label57 - ' - Label57.AutoSize = True - Label57.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label57.Location = New System.Drawing.Point(4, 309) - Label57.Name = "Label57" - Label57.Size = New System.Drawing.Size(32, 12) - Label57.TabIndex = 40 - Label57.Text = "12시" - ' - 'Label58 - ' - Label58.AutoSize = True - Label58.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label58.Location = New System.Drawing.Point(129, 169) - Label58.Name = "Label58" - Label58.Size = New System.Drawing.Size(32, 12) - Label58.TabIndex = 47 - Label58.Text = "19시" - ' - 'Label59 - ' - Label59.AutoSize = True - Label59.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label59.Location = New System.Drawing.Point(129, 197) - Label59.Name = "Label59" - Label59.Size = New System.Drawing.Size(32, 12) - Label59.TabIndex = 48 - Label59.Text = "20시" - ' - 'Label60 - ' - Label60.AutoSize = True - Label60.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label60.Location = New System.Drawing.Point(129, 225) - Label60.Name = "Label60" - Label60.Size = New System.Drawing.Size(32, 12) - Label60.TabIndex = 49 - Label60.Text = "21시" - ' - 'Label61 - ' - Label61.AutoSize = True - Label61.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label61.Location = New System.Drawing.Point(129, 253) - Label61.Name = "Label61" - Label61.Size = New System.Drawing.Size(32, 12) - Label61.TabIndex = 50 - Label61.Text = "22시" - ' - 'Label62 - ' - Label62.AutoSize = True - Label62.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label62.Location = New System.Drawing.Point(129, 281) - Label62.Name = "Label62" - Label62.Size = New System.Drawing.Size(32, 12) - Label62.TabIndex = 51 - Label62.Text = "23시" - ' - 'Label63 - ' - Label63.AutoSize = True - Label63.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label63.Location = New System.Drawing.Point(129, 309) - Label63.Name = "Label63" - Label63.Size = New System.Drawing.Size(32, 12) - Label63.TabIndex = 52 - Label63.Text = "24시" - ' - 'Label1 - ' - Label1.Anchor = System.Windows.Forms.AnchorStyles.None - Label1.AutoSize = True - Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label1.Location = New System.Drawing.Point(129, 148) - Label1.Name = "Label1" - Label1.Size = New System.Drawing.Size(32, 12) - Label1.TabIndex = 30 - Label1.Text = "12월" - ' - 'Label2 - ' - Label2.Anchor = System.Windows.Forms.AnchorStyles.None - Label2.AutoSize = True - Label2.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label2.Location = New System.Drawing.Point(129, 120) - Label2.Name = "Label2" - Label2.Size = New System.Drawing.Size(32, 12) - Label2.TabIndex = 28 - Label2.Text = "11월" - ' - 'Label3 - ' - Label3.Anchor = System.Windows.Forms.AnchorStyles.None - Label3.AutoSize = True - Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label3.Location = New System.Drawing.Point(129, 92) - Label3.Name = "Label3" - Label3.Size = New System.Drawing.Size(32, 12) - Label3.TabIndex = 26 - Label3.Text = "10월" - ' - 'Label4 - ' - Label4.Anchor = System.Windows.Forms.AnchorStyles.None - Label4.AutoSize = True - Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label4.Location = New System.Drawing.Point(129, 64) - Label4.Name = "Label4" - Label4.Size = New System.Drawing.Size(32, 12) - Label4.TabIndex = 24 - Label4.Text = "09월" - ' - 'Label5 - ' - Label5.Anchor = System.Windows.Forms.AnchorStyles.None - Label5.AutoSize = True - Label5.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label5.Location = New System.Drawing.Point(4, 148) - Label5.Name = "Label5" - Label5.Size = New System.Drawing.Size(32, 12) - Label5.TabIndex = 18 - Label5.Text = "06월" - ' - 'Label6 - ' - Label6.Anchor = System.Windows.Forms.AnchorStyles.None - Label6.AutoSize = True - Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label6.Location = New System.Drawing.Point(129, 36) - Label6.Name = "Label6" - Label6.Size = New System.Drawing.Size(32, 12) - Label6.TabIndex = 22 - Label6.Text = "08월" - ' - 'Label7 - ' - Label7.Anchor = System.Windows.Forms.AnchorStyles.None - Label7.AutoSize = True - Label7.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label7.Location = New System.Drawing.Point(4, 120) - Label7.Name = "Label7" - Label7.Size = New System.Drawing.Size(32, 12) - Label7.TabIndex = 16 - Label7.Text = "05월" - ' - 'Label8 - ' - Label8.Anchor = System.Windows.Forms.AnchorStyles.None - Label8.AutoSize = True - Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label8.Location = New System.Drawing.Point(129, 8) - Label8.Name = "Label8" - Label8.Size = New System.Drawing.Size(32, 12) - Label8.TabIndex = 20 - Label8.Text = "07월" - ' - 'Label9 - ' - Label9.Anchor = System.Windows.Forms.AnchorStyles.None - Label9.AutoSize = True - Label9.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label9.Location = New System.Drawing.Point(4, 92) - Label9.Name = "Label9" - Label9.Size = New System.Drawing.Size(32, 12) - Label9.TabIndex = 14 - Label9.Text = "04월" - ' - 'Label10 - ' - Label10.Anchor = System.Windows.Forms.AnchorStyles.None - Label10.AutoSize = True - Label10.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label10.Location = New System.Drawing.Point(4, 8) - Label10.Name = "Label10" - Label10.Size = New System.Drawing.Size(32, 12) - Label10.TabIndex = 8 - Label10.Text = "01월" - ' - 'Label11 - ' - Label11.Anchor = System.Windows.Forms.AnchorStyles.None - Label11.AutoSize = True - Label11.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label11.Location = New System.Drawing.Point(4, 64) - Label11.Name = "Label11" - Label11.Size = New System.Drawing.Size(32, 12) - Label11.TabIndex = 12 - Label11.Text = "03월" - ' - 'Label12 - ' - Label12.Anchor = System.Windows.Forms.AnchorStyles.None - Label12.AutoSize = True - Label12.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Label12.Location = New System.Drawing.Point(4, 36) - Label12.Name = "Label12" - Label12.Size = New System.Drawing.Size(32, 12) - Label12.TabIndex = 10 - Label12.Text = "02월" - ' - 'bn_all - ' - Me.bn_all.AddNewItem = Nothing - Me.bn_all.AutoSize = False - Me.bn_all.CountItem = Nothing - Me.bn_all.DeleteItem = Nothing - Me.bn_all.Dock = System.Windows.Forms.DockStyle.Left - Me.bn_all.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) - Me.bn_all.ImageScalingSize = New System.Drawing.Size(32, 32) - Me.bn_all.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton48, Me.ToolStripButton49, Me.ToolStripButton51, Me.ToolStripSeparator28, Me.ToolStripButton8, Me.ToolStripButton13}) - Me.bn_all.Location = New System.Drawing.Point(0, 0) - Me.bn_all.MoveFirstItem = Nothing - Me.bn_all.MoveLastItem = Nothing - Me.bn_all.MoveNextItem = Nothing - Me.bn_all.MovePreviousItem = Nothing - Me.bn_all.Name = "bn_all" - Me.bn_all.PositionItem = Nothing - Me.bn_all.Size = New System.Drawing.Size(193, 533) - Me.bn_all.TabIndex = 7 - Me.bn_all.Text = "BindingNavigator1" - ' - 'ToolStripButton48 - ' - Me.ToolStripButton48.Image = Global.Eco2Ar.My.Resources.Resources.new_32 - Me.ToolStripButton48.Name = "ToolStripButton48" - Me.ToolStripButton48.RightToLeftAutoMirrorImage = True - Me.ToolStripButton48.Size = New System.Drawing.Size(191, 36) - Me.ToolStripButton48.Text = "신규추가(&A)" - ' - 'ToolStripButton49 - ' - Me.ToolStripButton49.Image = Global.Eco2Ar.My.Resources.Resources.remov_32 - Me.ToolStripButton49.Name = "ToolStripButton49" - Me.ToolStripButton49.RightToLeftAutoMirrorImage = True - Me.ToolStripButton49.Size = New System.Drawing.Size(191, 36) - Me.ToolStripButton49.Text = "선택삭제(&D)" - ' - 'ToolStripButton51 - ' - Me.ToolStripButton51.Image = Global.Eco2Ar.My.Resources.Resources.cancl_32 - Me.ToolStripButton51.ImageTransparentColor = System.Drawing.Color.Magenta - Me.ToolStripButton51.Name = "ToolStripButton51" - Me.ToolStripButton51.Size = New System.Drawing.Size(191, 36) - Me.ToolStripButton51.Text = "변경취소(&C)" - ' - 'ToolStripSeparator28 - ' - Me.ToolStripSeparator28.Name = "ToolStripSeparator28" - Me.ToolStripSeparator28.Size = New System.Drawing.Size(191, 6) - ' - 'ToolStripButton8 - ' - Me.ToolStripButton8.Image = CType(resources.GetObject("ToolStripButton8.Image"), System.Drawing.Image) - Me.ToolStripButton8.ImageTransparentColor = System.Drawing.Color.Magenta - Me.ToolStripButton8.Name = "ToolStripButton8" - Me.ToolStripButton8.Size = New System.Drawing.Size(191, 36) - Me.ToolStripButton8.Text = "Data Export" - ' - 'ToolStripButton13 - ' - Me.ToolStripButton13.Image = CType(resources.GetObject("ToolStripButton13.Image"), System.Drawing.Image) - Me.ToolStripButton13.ImageTransparentColor = System.Drawing.Color.Magenta - Me.ToolStripButton13.Name = "ToolStripButton13" - Me.ToolStripButton13.Size = New System.Drawing.Size(191, 36) - Me.ToolStripButton13.Text = "Data Import" - ' - 'TabControl3 - ' - Me.TabControl3.Controls.Add(Me.TabPage1) - Me.TabControl3.Controls.Add(Me.TabPage8) - Me.TabControl3.Controls.Add(Me.TabPage9) - Me.TabControl3.Controls.Add(Me.TabPage10) - Me.TabControl3.Controls.Add(Me.TabPage2) - Me.TabControl3.Controls.Add(Me.TabPage3) - Me.TabControl3.Controls.Add(Me.TabPage4) - Me.TabControl3.Dock = System.Windows.Forms.DockStyle.Fill - Me.TabControl3.Location = New System.Drawing.Point(193, 0) - Me.TabControl3.Name = "TabControl3" - Me.TabControl3.SelectedIndex = 0 - Me.TabControl3.Size = New System.Drawing.Size(943, 533) - Me.TabControl3.TabIndex = 81 - ' - 'TabPage1 - ' - Me.TabPage1.Controls.Add(Me.Button3) - Me.TabPage1.Controls.Add(Me.Button2) - Me.TabPage1.Controls.Add(Me.GroupBox2) - Me.TabPage1.Controls.Add(Me.GroupBox1) - Me.TabPage1.Location = New System.Drawing.Point(4, 22) - Me.TabPage1.Name = "TabPage1" - Me.TabPage1.Size = New System.Drawing.Size(935, 507) - Me.TabPage1.TabIndex = 4 - Me.TabPage1.Text = "외기온도" - Me.TabPage1.UseVisualStyleBackColor = True - ' - 'Button3 - ' - Me.Button3.Location = New System.Drawing.Point(305, 414) - Me.Button3.Name = "Button3" - Me.Button3.Size = New System.Drawing.Size(135, 52) - Me.Button3.TabIndex = 128 - Me.Button3.Text = "IMPORT" - Me.Button3.UseVisualStyleBackColor = True - ' - 'Button2 - ' - Me.Button2.Location = New System.Drawing.Point(446, 414) - Me.Button2.Name = "Button2" - Me.Button2.Size = New System.Drawing.Size(135, 52) - Me.Button2.TabIndex = 127 - Me.Button2.Text = "SAVE" - Me.Button2.UseVisualStyleBackColor = True - ' - 'GroupBox2 - ' - Me.GroupBox2.Controls.Add(Me.Panel3) - Me.GroupBox2.Location = New System.Drawing.Point(89, 141) - Me.GroupBox2.Name = "GroupBox2" - Me.GroupBox2.Size = New System.Drawing.Size(436, 207) - Me.GroupBox2.TabIndex = 126 - Me.GroupBox2.TabStop = False - ' - 'Panel3 - ' - Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) - Me.Panel3.Controls.Add(Me.TableLayoutPanel7) - Me.Panel3.Controls.Add(Me.Label88) - Me.Panel3.Location = New System.Drawing.Point(2, 9) - Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(432, 195) - Me.Panel3.TabIndex = 123 - ' - 'TableLayoutPanel7 - ' - Me.TableLayoutPanel7.AutoSize = True - Me.TableLayoutPanel7.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(252, Byte), Integer)) - Me.TableLayoutPanel7.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single] - Me.TableLayoutPanel7.ColumnCount = 4 - Me.TableLayoutPanel7.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 102.0!)) - Me.TableLayoutPanel7.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 102.0!)) - Me.TableLayoutPanel7.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 96.0!)) - Me.TableLayoutPanel7.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 148.0!)) - Me.TableLayoutPanel7.Controls.Add(Me.tb_w12, 3, 5) - Me.TableLayoutPanel7.Controls.Add(Label64, 2, 5) - Me.TableLayoutPanel7.Controls.Add(Label77, 2, 4) - Me.TableLayoutPanel7.Controls.Add(Label78, 2, 3) - Me.TableLayoutPanel7.Controls.Add(Label79, 2, 2) - Me.TableLayoutPanel7.Controls.Add(Me.tb_w11, 3, 4) - Me.TableLayoutPanel7.Controls.Add(Label80, 0, 5) - Me.TableLayoutPanel7.Controls.Add(Label81, 2, 1) - Me.TableLayoutPanel7.Controls.Add(Label82, 0, 4) - Me.TableLayoutPanel7.Controls.Add(Me.tb_w10, 3, 3) - Me.TableLayoutPanel7.Controls.Add(Label83, 2, 0) - Me.TableLayoutPanel7.Controls.Add(Label84, 0, 3) - Me.TableLayoutPanel7.Controls.Add(Label85, 0, 0) - Me.TableLayoutPanel7.Controls.Add(Me.tb_w06, 1, 5) - Me.TableLayoutPanel7.Controls.Add(Me.tb_w09, 3, 2) - Me.TableLayoutPanel7.Controls.Add(Me.tb_w05, 1, 4) - Me.TableLayoutPanel7.Controls.Add(Label86, 0, 2) - Me.TableLayoutPanel7.Controls.Add(Me.tb_w04, 1, 3) - Me.TableLayoutPanel7.Controls.Add(Label87, 0, 1) - Me.TableLayoutPanel7.Controls.Add(Me.tb_w08, 3, 1) - Me.TableLayoutPanel7.Controls.Add(Me.tb_w01, 1, 0) - Me.TableLayoutPanel7.Controls.Add(Me.tb_w03, 1, 2) - Me.TableLayoutPanel7.Controls.Add(Me.tb_w07, 3, 0) - Me.TableLayoutPanel7.Controls.Add(Me.tb_w02, 1, 1) - Me.TableLayoutPanel7.Location = New System.Drawing.Point(11, 19) - Me.TableLayoutPanel7.Name = "TableLayoutPanel7" - Me.TableLayoutPanel7.RowCount = 5 - Me.TableLayoutPanel7.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel7.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel7.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel7.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel7.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel7.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel7.Size = New System.Drawing.Size(453, 169) - Me.TableLayoutPanel7.TabIndex = 122 - ' - 'tb_w12 - ' - Me.tb_w12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_w12.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "m12", True)) - Me.tb_w12.Location = New System.Drawing.Point(307, 144) - Me.tb_w12.Name = "tb_w12" - Me.tb_w12.NectControl = Nothing - Me.tb_w12.Size = New System.Drawing.Size(95, 21) - Me.tb_w12.TabIndex = 29 - Me.tb_w12.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_w12.TextFormat = Eco2Ar.MyTb.ETFormat.Normal - ' - 'bs - ' - Me.bs.DataMember = "tbl_weather" - Me.bs.DataSource = Me.DS1 - Me.bs.Filter = "code <> '0'" - Me.bs.Sort = "" - ' - 'DS1 - ' - Me.DS1.DataSetName = "DS" - Me.DS1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema - ' - 'tb_w11 - ' - Me.tb_w11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_w11.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "m11", True)) - Me.tb_w11.Location = New System.Drawing.Point(307, 116) - Me.tb_w11.Name = "tb_w11" - Me.tb_w11.NectControl = Nothing - Me.tb_w11.Size = New System.Drawing.Size(95, 21) - Me.tb_w11.TabIndex = 27 - Me.tb_w11.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_w11.TextFormat = Eco2Ar.MyTb.ETFormat.Normal - ' - 'tb_w10 - ' - Me.tb_w10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_w10.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "m10", True)) - Me.tb_w10.Location = New System.Drawing.Point(307, 88) - Me.tb_w10.Name = "tb_w10" - Me.tb_w10.NectControl = Nothing - Me.tb_w10.Size = New System.Drawing.Size(95, 21) - Me.tb_w10.TabIndex = 25 - Me.tb_w10.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_w10.TextFormat = Eco2Ar.MyTb.ETFormat.Normal - ' - 'tb_w06 - ' - Me.tb_w06.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_w06.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "m06", True)) - Me.tb_w06.Location = New System.Drawing.Point(107, 144) - Me.tb_w06.Name = "tb_w06" - Me.tb_w06.NectControl = Nothing - Me.tb_w06.Size = New System.Drawing.Size(95, 21) - Me.tb_w06.TabIndex = 17 - Me.tb_w06.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_w06.TextFormat = Eco2Ar.MyTb.ETFormat.Normal - ' - 'tb_w09 - ' - Me.tb_w09.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_w09.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "m09", True)) - Me.tb_w09.Location = New System.Drawing.Point(307, 60) - Me.tb_w09.Name = "tb_w09" - Me.tb_w09.NectControl = Nothing - Me.tb_w09.Size = New System.Drawing.Size(95, 21) - Me.tb_w09.TabIndex = 23 - Me.tb_w09.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_w09.TextFormat = Eco2Ar.MyTb.ETFormat.Normal - ' - 'tb_w05 - ' - Me.tb_w05.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_w05.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "m05", True)) - Me.tb_w05.Location = New System.Drawing.Point(107, 116) - Me.tb_w05.Name = "tb_w05" - Me.tb_w05.NectControl = Nothing - Me.tb_w05.Size = New System.Drawing.Size(95, 21) - Me.tb_w05.TabIndex = 15 - Me.tb_w05.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_w05.TextFormat = Eco2Ar.MyTb.ETFormat.Normal - ' - 'tb_w04 - ' - Me.tb_w04.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_w04.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "m04", True)) - Me.tb_w04.Location = New System.Drawing.Point(107, 88) - Me.tb_w04.Name = "tb_w04" - Me.tb_w04.NectControl = Nothing - Me.tb_w04.Size = New System.Drawing.Size(95, 21) - Me.tb_w04.TabIndex = 13 - Me.tb_w04.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_w04.TextFormat = Eco2Ar.MyTb.ETFormat.Normal - ' - 'tb_w08 - ' - Me.tb_w08.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_w08.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "m08", True)) - Me.tb_w08.Location = New System.Drawing.Point(307, 32) - Me.tb_w08.Name = "tb_w08" - Me.tb_w08.NectControl = Nothing - Me.tb_w08.Size = New System.Drawing.Size(95, 21) - Me.tb_w08.TabIndex = 21 - Me.tb_w08.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_w08.TextFormat = Eco2Ar.MyTb.ETFormat.Normal - ' - 'tb_w01 - ' - Me.tb_w01.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_w01.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "m01", True)) - Me.tb_w01.Location = New System.Drawing.Point(107, 4) - Me.tb_w01.Name = "tb_w01" - Me.tb_w01.NectControl = Nothing - Me.tb_w01.Size = New System.Drawing.Size(95, 21) - Me.tb_w01.TabIndex = 7 - Me.tb_w01.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_w01.TextFormat = Eco2Ar.MyTb.ETFormat.Normal - ' - 'tb_w03 - ' - Me.tb_w03.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_w03.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "m03", True)) - Me.tb_w03.Location = New System.Drawing.Point(107, 60) - Me.tb_w03.Name = "tb_w03" - Me.tb_w03.NectControl = Nothing - Me.tb_w03.Size = New System.Drawing.Size(95, 21) - Me.tb_w03.TabIndex = 11 - Me.tb_w03.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_w03.TextFormat = Eco2Ar.MyTb.ETFormat.Normal - ' - 'tb_w07 - ' - Me.tb_w07.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_w07.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "m07", True)) - Me.tb_w07.Location = New System.Drawing.Point(307, 4) - Me.tb_w07.Name = "tb_w07" - Me.tb_w07.NectControl = Nothing - Me.tb_w07.Size = New System.Drawing.Size(95, 21) - Me.tb_w07.TabIndex = 19 - Me.tb_w07.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_w07.TextFormat = Eco2Ar.MyTb.ETFormat.Normal - ' - 'tb_w02 - ' - Me.tb_w02.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_w02.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "m02", True)) - Me.tb_w02.Location = New System.Drawing.Point(107, 32) - Me.tb_w02.Name = "tb_w02" - Me.tb_w02.NectControl = Nothing - Me.tb_w02.Size = New System.Drawing.Size(95, 21) - Me.tb_w02.TabIndex = 9 - Me.tb_w02.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_w02.TextFormat = Eco2Ar.MyTb.ETFormat.Normal - ' 'Label88 ' Me.Label88.AutoSize = True @@ -1733,29 +1005,25 @@ Partial Class Frm_V20091231_Weather Me.Label89.TabIndex = 120 Me.Label89.Text = "[외기온도(최대부하관련)]" ' - 'tb_wnan + 'Label90 ' - Me.tb_wnan.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_wnan.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "난방기", True)) - Me.tb_wnan.Location = New System.Drawing.Point(133, 19) - Me.tb_wnan.Name = "tb_wnan" - Me.tb_wnan.NectControl = Nothing - Me.tb_wnan.Size = New System.Drawing.Size(111, 21) - Me.tb_wnan.TabIndex = 3 - Me.tb_wnan.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_wnan.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label90.AutoSize = True + Label90.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label90.Location = New System.Drawing.Point(14, 23) + Label90.Name = "Label90" + Label90.Size = New System.Drawing.Size(113, 12) + Label90.TabIndex = 116 + Label90.Text = "외기온도(난방기):" ' - 'tb_wnaen + 'Label91 ' - Me.tb_wnaen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_wnaen.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "냉방기", True)) - Me.tb_wnaen.Location = New System.Drawing.Point(133, 44) - Me.tb_wnaen.Name = "tb_wnaen" - Me.tb_wnaen.NectControl = Nothing - Me.tb_wnaen.Size = New System.Drawing.Size(111, 21) - Me.tb_wnaen.TabIndex = 5 - Me.tb_wnaen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.tb_wnaen.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label91.AutoSize = True + Label91.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label91.Location = New System.Drawing.Point(14, 46) + Label91.Name = "Label91" + Label91.Size = New System.Drawing.Size(113, 12) + Label91.TabIndex = 117 + Label91.Text = "외기온도(냉방기):" ' 'TabPage8 ' @@ -1820,11 +1088,6 @@ Partial Class Frm_V20091231_Weather Me.code.Name = "code" Me.code.Width = 62 ' - 'bsw_ilsa - ' - Me.bsw_ilsa.DataMember = "weather_ilsa" - Me.bsw_ilsa.DataSource = Me.DS1 - ' 'Panel4 ' Me.Panel4.AutoScroll = True @@ -1840,6 +1103,15 @@ Partial Class Frm_V20091231_Weather Me.Panel4.Size = New System.Drawing.Size(735, 507) Me.Panel4.TabIndex = 5 ' + 'Label39 + ' + Label39.AutoSize = True + Label39.Location = New System.Drawing.Point(15, 22) + Label39.Name = "Label39" + Label39.Size = New System.Drawing.Size(126, 12) + Label39.TabIndex = 120 + Label39.Text = "평균일사(최대부하):" + ' 'TableLayoutPanel34 ' Me.TableLayoutPanel34.AutoSize = True @@ -1890,149 +1162,125 @@ Partial Class Frm_V20091231_Weather Me.TableLayoutPanel34.Size = New System.Drawing.Size(448, 337) Me.TableLayoutPanel34.TabIndex = 122 ' - 'tb_v1 + 'Label251 ' - Me.tb_v1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_v1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_ilsa, "m01", True)) - Me.tb_v1.Dock = System.Windows.Forms.DockStyle.Fill - Me.tb_v1.Location = New System.Drawing.Point(112, 4) - Me.tb_v1.Name = "tb_v1" - Me.tb_v1.NectControl = Nothing - Me.tb_v1.Size = New System.Drawing.Size(332, 21) - Me.tb_v1.TabIndex = 3 - Me.tb_v1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label251.Anchor = System.Windows.Forms.AnchorStyles.None + Label251.AutoSize = True + Label251.Location = New System.Drawing.Point(7, 148) + Label251.Name = "Label251" + Label251.Size = New System.Drawing.Size(94, 12) + Label251.TabIndex = 18 + Label251.Text = "평균일사(6월):" ' - 'tb_v6 + 'Label253 ' - Me.tb_v6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_v6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_ilsa, "m06", True)) - Me.tb_v6.Dock = System.Windows.Forms.DockStyle.Fill - Me.tb_v6.Location = New System.Drawing.Point(112, 144) - Me.tb_v6.Name = "tb_v6" - Me.tb_v6.NectControl = Nothing - Me.tb_v6.Size = New System.Drawing.Size(332, 21) - Me.tb_v6.TabIndex = 13 - Me.tb_v6.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label253.Anchor = System.Windows.Forms.AnchorStyles.None + Label253.AutoSize = True + Label253.Location = New System.Drawing.Point(7, 120) + Label253.Name = "Label253" + Label253.Size = New System.Drawing.Size(94, 12) + Label253.TabIndex = 16 + Label253.Text = "평균일사(5월):" ' - 'tb_v5 + 'Label255 ' - Me.tb_v5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_v5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_ilsa, "m05", True)) - Me.tb_v5.Dock = System.Windows.Forms.DockStyle.Fill - Me.tb_v5.Location = New System.Drawing.Point(112, 116) - Me.tb_v5.Name = "tb_v5" - Me.tb_v5.NectControl = Nothing - Me.tb_v5.Size = New System.Drawing.Size(332, 21) - Me.tb_v5.TabIndex = 11 - Me.tb_v5.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label255.Anchor = System.Windows.Forms.AnchorStyles.None + Label255.AutoSize = True + Label255.Location = New System.Drawing.Point(7, 92) + Label255.Name = "Label255" + Label255.Size = New System.Drawing.Size(94, 12) + Label255.TabIndex = 14 + Label255.Text = "평균일사(4월):" ' - 'tb_v4 + 'Label256 ' - Me.tb_v4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_v4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_ilsa, "m04", True)) - Me.tb_v4.Dock = System.Windows.Forms.DockStyle.Fill - Me.tb_v4.Location = New System.Drawing.Point(112, 88) - Me.tb_v4.Name = "tb_v4" - Me.tb_v4.NectControl = Nothing - Me.tb_v4.Size = New System.Drawing.Size(332, 21) - Me.tb_v4.TabIndex = 9 - Me.tb_v4.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label256.Anchor = System.Windows.Forms.AnchorStyles.None + Label256.AutoSize = True + Label256.Location = New System.Drawing.Point(7, 8) + Label256.Name = "Label256" + Label256.Size = New System.Drawing.Size(94, 12) + Label256.TabIndex = 8 + Label256.Text = "평균일사(1월):" ' - 'tb_v2 + 'Label257 ' - Me.tb_v2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_v2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_ilsa, "m02", True)) - Me.tb_v2.Dock = System.Windows.Forms.DockStyle.Fill - Me.tb_v2.Location = New System.Drawing.Point(112, 32) - Me.tb_v2.Name = "tb_v2" - Me.tb_v2.NectControl = Nothing - Me.tb_v2.Size = New System.Drawing.Size(332, 21) - Me.tb_v2.TabIndex = 5 - Me.tb_v2.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label257.Anchor = System.Windows.Forms.AnchorStyles.None + Label257.AutoSize = True + Label257.Location = New System.Drawing.Point(7, 64) + Label257.Name = "Label257" + Label257.Size = New System.Drawing.Size(94, 12) + Label257.TabIndex = 12 + Label257.Text = "평균일사(3월):" ' - 'tb_v3 + 'Label258 ' - Me.tb_v3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_v3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_ilsa, "m03", True)) - Me.tb_v3.Dock = System.Windows.Forms.DockStyle.Fill - Me.tb_v3.Location = New System.Drawing.Point(112, 60) - Me.tb_v3.Name = "tb_v3" - Me.tb_v3.NectControl = Nothing - Me.tb_v3.Size = New System.Drawing.Size(332, 21) - Me.tb_v3.TabIndex = 7 - Me.tb_v3.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label258.Anchor = System.Windows.Forms.AnchorStyles.None + Label258.AutoSize = True + Label258.Location = New System.Drawing.Point(7, 36) + Label258.Name = "Label258" + Label258.Size = New System.Drawing.Size(94, 12) + Label258.TabIndex = 10 + Label258.Text = "평균일사(2월):" ' - 'tb_v7 + 'Label254 ' - Me.tb_v7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_v7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_ilsa, "m07", True)) - Me.tb_v7.Dock = System.Windows.Forms.DockStyle.Fill - Me.tb_v7.Location = New System.Drawing.Point(112, 172) - Me.tb_v7.Name = "tb_v7" - Me.tb_v7.NectControl = Nothing - Me.tb_v7.Size = New System.Drawing.Size(332, 21) - Me.tb_v7.TabIndex = 15 - Me.tb_v7.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label254.Anchor = System.Windows.Forms.AnchorStyles.None + Label254.AutoSize = True + Label254.Location = New System.Drawing.Point(7, 176) + Label254.Name = "Label254" + Label254.Size = New System.Drawing.Size(94, 12) + Label254.TabIndex = 20 + Label254.Text = "평균일사(7월):" ' - 'tb_v8 + 'Label252 ' - Me.tb_v8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_v8.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_ilsa, "m08", True)) - Me.tb_v8.Dock = System.Windows.Forms.DockStyle.Fill - Me.tb_v8.Location = New System.Drawing.Point(112, 200) - Me.tb_v8.Name = "tb_v8" - Me.tb_v8.NectControl = Nothing - Me.tb_v8.Size = New System.Drawing.Size(332, 21) - Me.tb_v8.TabIndex = 17 - Me.tb_v8.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label252.Anchor = System.Windows.Forms.AnchorStyles.None + Label252.AutoSize = True + Label252.Location = New System.Drawing.Point(7, 204) + Label252.Name = "Label252" + Label252.Size = New System.Drawing.Size(94, 12) + Label252.TabIndex = 22 + Label252.Text = "평균일사(8월):" ' - 'tb_v9 + 'Label250 ' - Me.tb_v9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_v9.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_ilsa, "m09", True)) - Me.tb_v9.Dock = System.Windows.Forms.DockStyle.Fill - Me.tb_v9.Location = New System.Drawing.Point(112, 228) - Me.tb_v9.Name = "tb_v9" - Me.tb_v9.NectControl = Nothing - Me.tb_v9.Size = New System.Drawing.Size(332, 21) - Me.tb_v9.TabIndex = 19 - Me.tb_v9.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label250.Anchor = System.Windows.Forms.AnchorStyles.None + Label250.AutoSize = True + Label250.Location = New System.Drawing.Point(7, 232) + Label250.Name = "Label250" + Label250.Size = New System.Drawing.Size(94, 12) + Label250.TabIndex = 24 + Label250.Text = "평균일사(9월):" ' - 'tb_v10 + 'Label249 ' - Me.tb_v10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_v10.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_ilsa, "m10", True)) - Me.tb_v10.Dock = System.Windows.Forms.DockStyle.Fill - Me.tb_v10.Location = New System.Drawing.Point(112, 256) - Me.tb_v10.Name = "tb_v10" - Me.tb_v10.NectControl = Nothing - Me.tb_v10.Size = New System.Drawing.Size(332, 21) - Me.tb_v10.TabIndex = 21 - Me.tb_v10.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label249.Anchor = System.Windows.Forms.AnchorStyles.None + Label249.AutoSize = True + Label249.Location = New System.Drawing.Point(4, 260) + Label249.Name = "Label249" + Label249.Size = New System.Drawing.Size(101, 12) + Label249.TabIndex = 26 + Label249.Text = "평균일사(10월):" ' - 'tb_v11 + 'Label248 ' - Me.tb_v11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_v11.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_ilsa, "m11", True)) - Me.tb_v11.Dock = System.Windows.Forms.DockStyle.Fill - Me.tb_v11.Location = New System.Drawing.Point(112, 284) - Me.tb_v11.Name = "tb_v11" - Me.tb_v11.NectControl = Nothing - Me.tb_v11.Size = New System.Drawing.Size(332, 21) - Me.tb_v11.TabIndex = 23 - Me.tb_v11.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label248.Anchor = System.Windows.Forms.AnchorStyles.None + Label248.AutoSize = True + Label248.Location = New System.Drawing.Point(4, 288) + Label248.Name = "Label248" + Label248.Size = New System.Drawing.Size(101, 12) + Label248.TabIndex = 28 + Label248.Text = "평균일사(11월):" ' - 'tb_v12 + 'Label247 ' - Me.tb_v12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_v12.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_ilsa, "m12", True)) - Me.tb_v12.Dock = System.Windows.Forms.DockStyle.Fill - Me.tb_v12.Location = New System.Drawing.Point(112, 312) - Me.tb_v12.Name = "tb_v12" - Me.tb_v12.NectControl = Nothing - Me.tb_v12.Size = New System.Drawing.Size(332, 21) - Me.tb_v12.TabIndex = 31 - Me.tb_v12.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label247.Anchor = System.Windows.Forms.AnchorStyles.None + Label247.AutoSize = True + Label247.Location = New System.Drawing.Point(4, 316) + Label247.Name = "Label247" + Label247.Size = New System.Drawing.Size(101, 12) + Label247.TabIndex = 30 + Label247.Text = "평균일사(12월):" ' 'BindingNavigator1 ' @@ -2109,18 +1357,6 @@ Partial Class Frm_V20091231_Weather Me.ToolStripButton15.Size = New System.Drawing.Size(68, 22) Me.ToolStripButton15.Text = "삭제(&D)" ' - 'tb_v0 - ' - Me.tb_v0.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.tb_v0.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_v0.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_ilsa, "최대부하", True)) - Me.tb_v0.Location = New System.Drawing.Point(147, 19) - Me.tb_v0.Name = "tb_v0" - Me.tb_v0.NectControl = Nothing - Me.tb_v0.Size = New System.Drawing.Size(257, 21) - Me.tb_v0.TabIndex = 1 - Me.tb_v0.TextFormat = Eco2Ar.MyTb.ETFormat.Normal - ' 'TabPage9 ' Me.TabPage9.Controls.Add(Me.TableLayoutPanel5) @@ -2182,11 +1418,6 @@ Partial Class Frm_V20091231_Weather Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9" Me.DataGridViewTextBoxColumn9.Width = 62 ' - 'bsw_temp - ' - Me.bsw_temp.DataMember = "weather_temp" - Me.bsw_temp.DataSource = Me.DS1 - ' 'Panel7 ' Me.Panel7.AutoScroll = True @@ -2273,273 +1504,248 @@ Partial Class Frm_V20091231_Weather Me.TableLayoutPanel8.RowStyles.Add(New System.Windows.Forms.RowStyle()) Me.TableLayoutPanel8.RowStyles.Add(New System.Windows.Forms.RowStyle()) Me.TableLayoutPanel8.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel8.Size = New System.Drawing.Size(252, 337) + Me.TableLayoutPanel8.Size = New System.Drawing.Size(311, 337) Me.TableLayoutPanel8.TabIndex = 125 ' - 'tb_t18 + 'Label25 ' - Me.tb_t18.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_t18.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t18", True)) - Me.tb_t18.Location = New System.Drawing.Point(168, 144) - Me.tb_t18.Name = "tb_t18" - Me.tb_t18.NectControl = Nothing - Me.tb_t18.Size = New System.Drawing.Size(79, 21) - Me.tb_t18.TabIndex = 35 - Me.tb_t18.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label25.AutoSize = True + Label25.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label25.Location = New System.Drawing.Point(4, 29) + Label25.Name = "Label25" + Label25.Size = New System.Drawing.Size(32, 12) + Label25.TabIndex = 30 + Label25.Text = "02시" ' - 'tb_t1 + 'Label26 ' - Me.tb_t1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.tb_t1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_t1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t01", True)) - Me.tb_t1.Location = New System.Drawing.Point(43, 4) - Me.tb_t1.Name = "tb_t1" - Me.tb_t1.NectControl = Nothing - Me.tb_t1.Size = New System.Drawing.Size(79, 21) - Me.tb_t1.TabIndex = 1 - Me.tb_t1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label26.AutoSize = True + Label26.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label26.Location = New System.Drawing.Point(4, 57) + Label26.Name = "Label26" + Label26.Size = New System.Drawing.Size(32, 12) + Label26.TabIndex = 31 + Label26.Text = "03시" ' - 'tb_t17 + 'Label27 ' - Me.tb_t17.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_t17.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t17", True)) - Me.tb_t17.Location = New System.Drawing.Point(168, 116) - Me.tb_t17.Name = "tb_t17" - Me.tb_t17.NectControl = Nothing - Me.tb_t17.Size = New System.Drawing.Size(79, 21) - Me.tb_t17.TabIndex = 33 - Me.tb_t17.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label27.AutoSize = True + Label27.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label27.Location = New System.Drawing.Point(4, 85) + Label27.Name = "Label27" + Label27.Size = New System.Drawing.Size(32, 12) + Label27.TabIndex = 32 + Label27.Text = "04시" ' - 'tb_t16 + 'Label28 ' - Me.tb_t16.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_t16.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t16", True)) - Me.tb_t16.Location = New System.Drawing.Point(168, 88) - Me.tb_t16.Name = "tb_t16" - Me.tb_t16.NectControl = Nothing - Me.tb_t16.Size = New System.Drawing.Size(79, 21) - Me.tb_t16.TabIndex = 31 - Me.tb_t16.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label28.AutoSize = True + Label28.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label28.Location = New System.Drawing.Point(4, 113) + Label28.Name = "Label28" + Label28.Size = New System.Drawing.Size(32, 12) + Label28.TabIndex = 33 + Label28.Text = "05시" ' - 'tb_t15 + 'Label29 ' - Me.tb_t15.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_t15.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t15", True)) - Me.tb_t15.Location = New System.Drawing.Point(168, 60) - Me.tb_t15.Name = "tb_t15" - Me.tb_t15.NectControl = Nothing - Me.tb_t15.Size = New System.Drawing.Size(79, 21) - Me.tb_t15.TabIndex = 29 - Me.tb_t15.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label29.AutoSize = True + Label29.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label29.Location = New System.Drawing.Point(4, 141) + Label29.Name = "Label29" + Label29.Size = New System.Drawing.Size(32, 12) + Label29.TabIndex = 34 + Label29.Text = "06시" ' - 'tb_t14 + 'Label30 ' - Me.tb_t14.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_t14.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t14", True)) - Me.tb_t14.Location = New System.Drawing.Point(168, 32) - Me.tb_t14.Name = "tb_t14" - Me.tb_t14.NectControl = Nothing - Me.tb_t14.Size = New System.Drawing.Size(79, 21) - Me.tb_t14.TabIndex = 27 - Me.tb_t14.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label30.AutoSize = True + Label30.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label30.Location = New System.Drawing.Point(4, 1) + Label30.Name = "Label30" + Label30.Size = New System.Drawing.Size(32, 12) + Label30.TabIndex = 29 + Label30.Text = "01시" ' - 'tb_t2 + 'Label31 ' - Me.tb_t2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_t2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t02", True)) - Me.tb_t2.Location = New System.Drawing.Point(43, 32) - Me.tb_t2.Name = "tb_t2" - Me.tb_t2.NectControl = Nothing - Me.tb_t2.Size = New System.Drawing.Size(79, 21) - Me.tb_t2.TabIndex = 3 - Me.tb_t2.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label31.AutoSize = True + Label31.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label31.Location = New System.Drawing.Point(189, 29) + Label31.Name = "Label31" + Label31.Size = New System.Drawing.Size(32, 12) + Label31.TabIndex = 42 + Label31.Text = "14시" ' - 'tb_t13 + 'Label32 ' - Me.tb_t13.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_t13.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t13", True)) - Me.tb_t13.Location = New System.Drawing.Point(168, 4) - Me.tb_t13.Name = "tb_t13" - Me.tb_t13.NectControl = Nothing - Me.tb_t13.Size = New System.Drawing.Size(79, 21) - Me.tb_t13.TabIndex = 25 - Me.tb_t13.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label32.AutoSize = True + Label32.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label32.Location = New System.Drawing.Point(189, 57) + Label32.Name = "Label32" + Label32.Size = New System.Drawing.Size(32, 12) + Label32.TabIndex = 43 + Label32.Text = "15시" ' - 'tb_t6 + 'Label33 ' - Me.tb_t6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_t6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t06", True)) - Me.tb_t6.Location = New System.Drawing.Point(43, 144) - Me.tb_t6.Name = "tb_t6" - Me.tb_t6.NectControl = Nothing - Me.tb_t6.Size = New System.Drawing.Size(79, 21) - Me.tb_t6.TabIndex = 11 - Me.tb_t6.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label33.AutoSize = True + Label33.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label33.Location = New System.Drawing.Point(189, 85) + Label33.Name = "Label33" + Label33.Size = New System.Drawing.Size(32, 12) + Label33.TabIndex = 44 + Label33.Text = "16시" ' - 'tb_t19 + 'Label34 ' - Me.tb_t19.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_t19.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t19", True)) - Me.tb_t19.Location = New System.Drawing.Point(168, 172) - Me.tb_t19.Name = "tb_t19" - Me.tb_t19.NectControl = Nothing - Me.tb_t19.Size = New System.Drawing.Size(79, 21) - Me.tb_t19.TabIndex = 37 - Me.tb_t19.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label34.AutoSize = True + Label34.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label34.Location = New System.Drawing.Point(189, 113) + Label34.Name = "Label34" + Label34.Size = New System.Drawing.Size(32, 12) + Label34.TabIndex = 45 + Label34.Text = "17시" ' - 'tb_t5 + 'Label35 ' - Me.tb_t5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_t5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t05", True)) - Me.tb_t5.Location = New System.Drawing.Point(43, 116) - Me.tb_t5.Name = "tb_t5" - Me.tb_t5.NectControl = Nothing - Me.tb_t5.Size = New System.Drawing.Size(79, 21) - Me.tb_t5.TabIndex = 9 - Me.tb_t5.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label35.AutoSize = True + Label35.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label35.Location = New System.Drawing.Point(189, 141) + Label35.Name = "Label35" + Label35.Size = New System.Drawing.Size(32, 12) + Label35.TabIndex = 46 + Label35.Text = "18시" ' - 'tb_t20 + 'Label36 ' - Me.tb_t20.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_t20.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t20", True)) - Me.tb_t20.Location = New System.Drawing.Point(168, 200) - Me.tb_t20.Name = "tb_t20" - Me.tb_t20.NectControl = Nothing - Me.tb_t20.Size = New System.Drawing.Size(79, 21) - Me.tb_t20.TabIndex = 39 - Me.tb_t20.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label36.AutoSize = True + Label36.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label36.Location = New System.Drawing.Point(189, 1) + Label36.Name = "Label36" + Label36.Size = New System.Drawing.Size(32, 12) + Label36.TabIndex = 41 + Label36.Text = "13시" ' - 'tb_t4 + 'Label37 ' - Me.tb_t4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_t4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t04", True)) - Me.tb_t4.Location = New System.Drawing.Point(43, 88) - Me.tb_t4.Name = "tb_t4" - Me.tb_t4.NectControl = Nothing - Me.tb_t4.Size = New System.Drawing.Size(79, 21) - Me.tb_t4.TabIndex = 7 - Me.tb_t4.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label37.AutoSize = True + Label37.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label37.Location = New System.Drawing.Point(4, 169) + Label37.Name = "Label37" + Label37.Size = New System.Drawing.Size(32, 12) + Label37.TabIndex = 35 + Label37.Text = "07시" ' - 'tb_t21 + 'Label38 ' - Me.tb_t21.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_t21.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t21", True)) - Me.tb_t21.Location = New System.Drawing.Point(168, 228) - Me.tb_t21.Name = "tb_t21" - Me.tb_t21.NectControl = Nothing - Me.tb_t21.Size = New System.Drawing.Size(79, 21) - Me.tb_t21.TabIndex = 41 - Me.tb_t21.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label38.AutoSize = True + Label38.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label38.Location = New System.Drawing.Point(4, 197) + Label38.Name = "Label38" + Label38.Size = New System.Drawing.Size(32, 12) + Label38.TabIndex = 36 + Label38.Text = "08시" ' - 'tb_t3 + 'Label92 ' - Me.tb_t3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_t3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t03", True)) - Me.tb_t3.Location = New System.Drawing.Point(43, 60) - Me.tb_t3.Name = "tb_t3" - Me.tb_t3.NectControl = Nothing - Me.tb_t3.Size = New System.Drawing.Size(79, 21) - Me.tb_t3.TabIndex = 5 - Me.tb_t3.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label92.AutoSize = True + Label92.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label92.Location = New System.Drawing.Point(4, 225) + Label92.Name = "Label92" + Label92.Size = New System.Drawing.Size(32, 12) + Label92.TabIndex = 37 + Label92.Text = "09시" ' - 'tb_t22 + 'Label93 ' - Me.tb_t22.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_t22.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t22", True)) - Me.tb_t22.Location = New System.Drawing.Point(168, 256) - Me.tb_t22.Name = "tb_t22" - Me.tb_t22.NectControl = Nothing - Me.tb_t22.Size = New System.Drawing.Size(79, 21) - Me.tb_t22.TabIndex = 43 - Me.tb_t22.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label93.AutoSize = True + Label93.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label93.Location = New System.Drawing.Point(4, 253) + Label93.Name = "Label93" + Label93.Size = New System.Drawing.Size(32, 12) + Label93.TabIndex = 38 + Label93.Text = "10시" ' - 'tb_t23 + 'Label94 ' - Me.tb_t23.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_t23.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t23", True)) - Me.tb_t23.Location = New System.Drawing.Point(168, 284) - Me.tb_t23.Name = "tb_t23" - Me.tb_t23.NectControl = Nothing - Me.tb_t23.Size = New System.Drawing.Size(79, 21) - Me.tb_t23.TabIndex = 45 - Me.tb_t23.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label94.AutoSize = True + Label94.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label94.Location = New System.Drawing.Point(4, 281) + Label94.Name = "Label94" + Label94.Size = New System.Drawing.Size(32, 12) + Label94.TabIndex = 39 + Label94.Text = "11시" ' - 'tb_t12 + 'Label95 ' - Me.tb_t12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_t12.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t12", True)) - Me.tb_t12.Location = New System.Drawing.Point(43, 312) - Me.tb_t12.Name = "tb_t12" - Me.tb_t12.NectControl = Nothing - Me.tb_t12.Size = New System.Drawing.Size(79, 21) - Me.tb_t12.TabIndex = 23 - Me.tb_t12.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label95.AutoSize = True + Label95.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label95.Location = New System.Drawing.Point(4, 309) + Label95.Name = "Label95" + Label95.Size = New System.Drawing.Size(32, 12) + Label95.TabIndex = 40 + Label95.Text = "12시" ' - 'tb_t24 + 'Label96 ' - Me.tb_t24.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_t24.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t24", True)) - Me.tb_t24.Location = New System.Drawing.Point(168, 312) - Me.tb_t24.Name = "tb_t24" - Me.tb_t24.NectControl = Nothing - Me.tb_t24.Size = New System.Drawing.Size(79, 21) - Me.tb_t24.TabIndex = 47 - Me.tb_t24.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label96.AutoSize = True + Label96.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label96.Location = New System.Drawing.Point(189, 169) + Label96.Name = "Label96" + Label96.Size = New System.Drawing.Size(32, 12) + Label96.TabIndex = 47 + Label96.Text = "19시" ' - 'tb_t11 + 'Label97 ' - Me.tb_t11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_t11.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t11", True)) - Me.tb_t11.Location = New System.Drawing.Point(43, 284) - Me.tb_t11.Name = "tb_t11" - Me.tb_t11.NectControl = Nothing - Me.tb_t11.Size = New System.Drawing.Size(79, 21) - Me.tb_t11.TabIndex = 21 - Me.tb_t11.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label97.AutoSize = True + Label97.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label97.Location = New System.Drawing.Point(189, 197) + Label97.Name = "Label97" + Label97.Size = New System.Drawing.Size(32, 12) + Label97.TabIndex = 48 + Label97.Text = "20시" ' - 'tb_t10 + 'Label98 ' - Me.tb_t10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_t10.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t10", True)) - Me.tb_t10.Location = New System.Drawing.Point(43, 256) - Me.tb_t10.Name = "tb_t10" - Me.tb_t10.NectControl = Nothing - Me.tb_t10.Size = New System.Drawing.Size(79, 21) - Me.tb_t10.TabIndex = 19 - Me.tb_t10.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label98.AutoSize = True + Label98.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label98.Location = New System.Drawing.Point(189, 225) + Label98.Name = "Label98" + Label98.Size = New System.Drawing.Size(32, 12) + Label98.TabIndex = 49 + Label98.Text = "21시" ' - 'tb_t9 + 'Label99 ' - Me.tb_t9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_t9.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t09", True)) - Me.tb_t9.Location = New System.Drawing.Point(43, 228) - Me.tb_t9.Name = "tb_t9" - Me.tb_t9.NectControl = Nothing - Me.tb_t9.Size = New System.Drawing.Size(79, 21) - Me.tb_t9.TabIndex = 17 - Me.tb_t9.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label99.AutoSize = True + Label99.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label99.Location = New System.Drawing.Point(189, 253) + Label99.Name = "Label99" + Label99.Size = New System.Drawing.Size(32, 12) + Label99.TabIndex = 50 + Label99.Text = "22시" ' - 'tb_t8 + 'Label100 ' - Me.tb_t8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_t8.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t08", True)) - Me.tb_t8.Location = New System.Drawing.Point(43, 200) - Me.tb_t8.Name = "tb_t8" - Me.tb_t8.NectControl = Nothing - Me.tb_t8.Size = New System.Drawing.Size(79, 21) - Me.tb_t8.TabIndex = 15 - Me.tb_t8.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label100.AutoSize = True + Label100.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label100.Location = New System.Drawing.Point(189, 281) + Label100.Name = "Label100" + Label100.Size = New System.Drawing.Size(32, 12) + Label100.TabIndex = 51 + Label100.Text = "23시" ' - 'tb_t7 + 'Label101 ' - Me.tb_t7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_t7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t07", True)) - Me.tb_t7.Location = New System.Drawing.Point(43, 172) - Me.tb_t7.Name = "tb_t7" - Me.tb_t7.NectControl = Nothing - Me.tb_t7.Size = New System.Drawing.Size(79, 21) - Me.tb_t7.TabIndex = 13 - Me.tb_t7.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label101.AutoSize = True + Label101.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label101.Location = New System.Drawing.Point(189, 309) + Label101.Name = "Label101" + Label101.Size = New System.Drawing.Size(32, 12) + Label101.TabIndex = 52 + Label101.Text = "24시" ' 'BindingNavigator4 ' @@ -2677,11 +1883,6 @@ Partial Class Frm_V20091231_Weather Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10" Me.DataGridViewTextBoxColumn10.Width = 62 ' - 'bsw_supdo - ' - Me.bsw_supdo.DataMember = "weather_supdo" - Me.bsw_supdo.DataSource = Me.DS1 - ' 'Panel8 ' Me.Panel8.AutoScroll = True @@ -2768,273 +1969,248 @@ Partial Class Frm_V20091231_Weather Me.TableLayoutPanel9.RowStyles.Add(New System.Windows.Forms.RowStyle()) Me.TableLayoutPanel9.RowStyles.Add(New System.Windows.Forms.RowStyle()) Me.TableLayoutPanel9.RowStyles.Add(New System.Windows.Forms.RowStyle()) - Me.TableLayoutPanel9.Size = New System.Drawing.Size(252, 337) + Me.TableLayoutPanel9.Size = New System.Drawing.Size(301, 337) Me.TableLayoutPanel9.TabIndex = 127 ' - 'tb_s24 + 'Label40 ' - Me.tb_s24.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_s24.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t24", True)) - Me.tb_s24.Location = New System.Drawing.Point(168, 312) - Me.tb_s24.Name = "tb_s24" - Me.tb_s24.NectControl = Nothing - Me.tb_s24.Size = New System.Drawing.Size(79, 21) - Me.tb_s24.TabIndex = 11 - Me.tb_s24.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label40.AutoSize = True + Label40.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label40.Location = New System.Drawing.Point(4, 29) + Label40.Name = "Label40" + Label40.Size = New System.Drawing.Size(32, 12) + Label40.TabIndex = 30 + Label40.Text = "02시" ' - 'tb_S12 + 'Label41 ' - Me.tb_S12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_S12.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t12", True)) - Me.tb_S12.Location = New System.Drawing.Point(43, 312) - Me.tb_S12.Name = "tb_S12" - Me.tb_S12.NectControl = Nothing - Me.tb_S12.Size = New System.Drawing.Size(79, 21) - Me.tb_S12.TabIndex = 11 - Me.tb_S12.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label41.AutoSize = True + Label41.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label41.Location = New System.Drawing.Point(4, 57) + Label41.Name = "Label41" + Label41.Size = New System.Drawing.Size(32, 12) + Label41.TabIndex = 31 + Label41.Text = "03시" ' - 'tb_s23 + 'Label42 ' - Me.tb_s23.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_s23.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t23", True)) - Me.tb_s23.Location = New System.Drawing.Point(168, 284) - Me.tb_s23.Name = "tb_s23" - Me.tb_s23.NectControl = Nothing - Me.tb_s23.Size = New System.Drawing.Size(79, 21) - Me.tb_s23.TabIndex = 10 - Me.tb_s23.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label42.AutoSize = True + Label42.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label42.Location = New System.Drawing.Point(4, 85) + Label42.Name = "Label42" + Label42.Size = New System.Drawing.Size(32, 12) + Label42.TabIndex = 32 + Label42.Text = "04시" ' - 'tb_s22 + 'Label43 ' - Me.tb_s22.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_s22.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t22", True)) - Me.tb_s22.Location = New System.Drawing.Point(168, 256) - Me.tb_s22.Name = "tb_s22" - Me.tb_s22.NectControl = Nothing - Me.tb_s22.Size = New System.Drawing.Size(79, 21) - Me.tb_s22.TabIndex = 9 - Me.tb_s22.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label43.AutoSize = True + Label43.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label43.Location = New System.Drawing.Point(4, 113) + Label43.Name = "Label43" + Label43.Size = New System.Drawing.Size(32, 12) + Label43.TabIndex = 33 + Label43.Text = "05시" ' - 'tb_s11 + 'Label44 ' - Me.tb_s11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_s11.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t11", True)) - Me.tb_s11.Location = New System.Drawing.Point(43, 284) - Me.tb_s11.Name = "tb_s11" - Me.tb_s11.NectControl = Nothing - Me.tb_s11.Size = New System.Drawing.Size(79, 21) - Me.tb_s11.TabIndex = 10 - Me.tb_s11.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label44.AutoSize = True + Label44.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label44.Location = New System.Drawing.Point(4, 141) + Label44.Name = "Label44" + Label44.Size = New System.Drawing.Size(32, 12) + Label44.TabIndex = 34 + Label44.Text = "06시" ' - 'tb_s21 + 'Label45 ' - Me.tb_s21.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_s21.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t21", True)) - Me.tb_s21.Location = New System.Drawing.Point(168, 228) - Me.tb_s21.Name = "tb_s21" - Me.tb_s21.NectControl = Nothing - Me.tb_s21.Size = New System.Drawing.Size(79, 21) - Me.tb_s21.TabIndex = 8 - Me.tb_s21.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label45.AutoSize = True + Label45.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label45.Location = New System.Drawing.Point(4, 1) + Label45.Name = "Label45" + Label45.Size = New System.Drawing.Size(32, 12) + Label45.TabIndex = 29 + Label45.Text = "01시" ' - 'tb_s1 + 'Label46 ' - Me.tb_s1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.tb_s1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_s1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t01", True)) - Me.tb_s1.Location = New System.Drawing.Point(43, 4) - Me.tb_s1.Name = "tb_s1" - Me.tb_s1.NectControl = Nothing - Me.tb_s1.Size = New System.Drawing.Size(79, 21) - Me.tb_s1.TabIndex = 0 - Me.tb_s1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label46.AutoSize = True + Label46.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label46.Location = New System.Drawing.Point(179, 29) + Label46.Name = "Label46" + Label46.Size = New System.Drawing.Size(32, 12) + Label46.TabIndex = 42 + Label46.Text = "14시" ' - 'tb_s20 + 'Label47 ' - Me.tb_s20.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_s20.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t20", True)) - Me.tb_s20.Location = New System.Drawing.Point(168, 200) - Me.tb_s20.Name = "tb_s20" - Me.tb_s20.NectControl = Nothing - Me.tb_s20.Size = New System.Drawing.Size(79, 21) - Me.tb_s20.TabIndex = 7 - Me.tb_s20.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label47.AutoSize = True + Label47.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label47.Location = New System.Drawing.Point(179, 57) + Label47.Name = "Label47" + Label47.Size = New System.Drawing.Size(32, 12) + Label47.TabIndex = 43 + Label47.Text = "15시" ' - 'tb_s10 + 'Label48 ' - Me.tb_s10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_s10.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t10", True)) - Me.tb_s10.Location = New System.Drawing.Point(43, 256) - Me.tb_s10.Name = "tb_s10" - Me.tb_s10.NectControl = Nothing - Me.tb_s10.Size = New System.Drawing.Size(79, 21) - Me.tb_s10.TabIndex = 9 - Me.tb_s10.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label48.AutoSize = True + Label48.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label48.Location = New System.Drawing.Point(179, 85) + Label48.Name = "Label48" + Label48.Size = New System.Drawing.Size(32, 12) + Label48.TabIndex = 44 + Label48.Text = "16시" ' - 'tb_s19 + 'Label49 ' - Me.tb_s19.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_s19.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t19", True)) - Me.tb_s19.Location = New System.Drawing.Point(168, 172) - Me.tb_s19.Name = "tb_s19" - Me.tb_s19.NectControl = Nothing - Me.tb_s19.Size = New System.Drawing.Size(79, 21) - Me.tb_s19.TabIndex = 6 - Me.tb_s19.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label49.AutoSize = True + Label49.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label49.Location = New System.Drawing.Point(179, 113) + Label49.Name = "Label49" + Label49.Size = New System.Drawing.Size(32, 12) + Label49.TabIndex = 45 + Label49.Text = "17시" ' - 'tb_s3 + 'Label50 ' - Me.tb_s3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_s3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t03", True)) - Me.tb_s3.Location = New System.Drawing.Point(43, 60) - Me.tb_s3.Name = "tb_s3" - Me.tb_s3.NectControl = Nothing - Me.tb_s3.Size = New System.Drawing.Size(79, 21) - Me.tb_s3.TabIndex = 2 - Me.tb_s3.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label50.AutoSize = True + Label50.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label50.Location = New System.Drawing.Point(179, 141) + Label50.Name = "Label50" + Label50.Size = New System.Drawing.Size(32, 12) + Label50.TabIndex = 46 + Label50.Text = "18시" ' - 'tb_s18 + 'Label51 ' - Me.tb_s18.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_s18.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t18", True)) - Me.tb_s18.Location = New System.Drawing.Point(168, 144) - Me.tb_s18.Name = "tb_s18" - Me.tb_s18.NectControl = Nothing - Me.tb_s18.Size = New System.Drawing.Size(79, 21) - Me.tb_s18.TabIndex = 5 - Me.tb_s18.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label51.AutoSize = True + Label51.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label51.Location = New System.Drawing.Point(179, 1) + Label51.Name = "Label51" + Label51.Size = New System.Drawing.Size(32, 12) + Label51.TabIndex = 41 + Label51.Text = "13시" ' - 'tb_s9 + 'Label52 ' - Me.tb_s9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_s9.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t09", True)) - Me.tb_s9.Location = New System.Drawing.Point(43, 228) - Me.tb_s9.Name = "tb_s9" - Me.tb_s9.NectControl = Nothing - Me.tb_s9.Size = New System.Drawing.Size(79, 21) - Me.tb_s9.TabIndex = 8 - Me.tb_s9.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label52.AutoSize = True + Label52.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label52.Location = New System.Drawing.Point(4, 169) + Label52.Name = "Label52" + Label52.Size = New System.Drawing.Size(32, 12) + Label52.TabIndex = 35 + Label52.Text = "07시" ' - 'tb_s2 + 'Label53 ' - Me.tb_s2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_s2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t02", True)) - Me.tb_s2.Location = New System.Drawing.Point(43, 32) - Me.tb_s2.Name = "tb_s2" - Me.tb_s2.NectControl = Nothing - Me.tb_s2.Size = New System.Drawing.Size(79, 21) - Me.tb_s2.TabIndex = 1 - Me.tb_s2.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label53.AutoSize = True + Label53.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label53.Location = New System.Drawing.Point(4, 197) + Label53.Name = "Label53" + Label53.Size = New System.Drawing.Size(32, 12) + Label53.TabIndex = 36 + Label53.Text = "08시" ' - 'tb_s17 + 'Label54 ' - Me.tb_s17.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_s17.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t17", True)) - Me.tb_s17.Location = New System.Drawing.Point(168, 116) - Me.tb_s17.Name = "tb_s17" - Me.tb_s17.NectControl = Nothing - Me.tb_s17.Size = New System.Drawing.Size(79, 21) - Me.tb_s17.TabIndex = 4 - Me.tb_s17.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label54.AutoSize = True + Label54.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label54.Location = New System.Drawing.Point(4, 225) + Label54.Name = "Label54" + Label54.Size = New System.Drawing.Size(32, 12) + Label54.TabIndex = 37 + Label54.Text = "09시" ' - 'tb_s16 + 'Label55 ' - Me.tb_s16.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_s16.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t16", True)) - Me.tb_s16.Location = New System.Drawing.Point(168, 88) - Me.tb_s16.Name = "tb_s16" - Me.tb_s16.NectControl = Nothing - Me.tb_s16.Size = New System.Drawing.Size(79, 21) - Me.tb_s16.TabIndex = 3 - Me.tb_s16.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label55.AutoSize = True + Label55.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label55.Location = New System.Drawing.Point(4, 253) + Label55.Name = "Label55" + Label55.Size = New System.Drawing.Size(32, 12) + Label55.TabIndex = 38 + Label55.Text = "10시" ' - 'tb_s8 + 'Label56 ' - Me.tb_s8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_s8.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t08", True)) - Me.tb_s8.Location = New System.Drawing.Point(43, 200) - Me.tb_s8.Name = "tb_s8" - Me.tb_s8.NectControl = Nothing - Me.tb_s8.Size = New System.Drawing.Size(79, 21) - Me.tb_s8.TabIndex = 7 - Me.tb_s8.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label56.AutoSize = True + Label56.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label56.Location = New System.Drawing.Point(4, 281) + Label56.Name = "Label56" + Label56.Size = New System.Drawing.Size(32, 12) + Label56.TabIndex = 39 + Label56.Text = "11시" ' - 'tb_s15 + 'Label57 ' - Me.tb_s15.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_s15.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t15", True)) - Me.tb_s15.Location = New System.Drawing.Point(168, 60) - Me.tb_s15.Name = "tb_s15" - Me.tb_s15.NectControl = Nothing - Me.tb_s15.Size = New System.Drawing.Size(79, 21) - Me.tb_s15.TabIndex = 2 - Me.tb_s15.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label57.AutoSize = True + Label57.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label57.Location = New System.Drawing.Point(4, 309) + Label57.Name = "Label57" + Label57.Size = New System.Drawing.Size(32, 12) + Label57.TabIndex = 40 + Label57.Text = "12시" ' - 'tb_s14 + 'Label58 ' - Me.tb_s14.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_s14.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t14", True)) - Me.tb_s14.Location = New System.Drawing.Point(168, 32) - Me.tb_s14.Name = "tb_s14" - Me.tb_s14.NectControl = Nothing - Me.tb_s14.Size = New System.Drawing.Size(79, 21) - Me.tb_s14.TabIndex = 1 - Me.tb_s14.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label58.AutoSize = True + Label58.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label58.Location = New System.Drawing.Point(179, 169) + Label58.Name = "Label58" + Label58.Size = New System.Drawing.Size(32, 12) + Label58.TabIndex = 47 + Label58.Text = "19시" ' - 'tb_s4 + 'Label59 ' - Me.tb_s4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_s4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t04", True)) - Me.tb_s4.Location = New System.Drawing.Point(43, 88) - Me.tb_s4.Name = "tb_s4" - Me.tb_s4.NectControl = Nothing - Me.tb_s4.Size = New System.Drawing.Size(79, 21) - Me.tb_s4.TabIndex = 3 - Me.tb_s4.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label59.AutoSize = True + Label59.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label59.Location = New System.Drawing.Point(179, 197) + Label59.Name = "Label59" + Label59.Size = New System.Drawing.Size(32, 12) + Label59.TabIndex = 48 + Label59.Text = "20시" ' - 'tb_s13 + 'Label60 ' - Me.tb_s13.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_s13.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t13", True)) - Me.tb_s13.Location = New System.Drawing.Point(168, 4) - Me.tb_s13.Name = "tb_s13" - Me.tb_s13.NectControl = Nothing - Me.tb_s13.Size = New System.Drawing.Size(79, 21) - Me.tb_s13.TabIndex = 0 - Me.tb_s13.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label60.AutoSize = True + Label60.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label60.Location = New System.Drawing.Point(179, 225) + Label60.Name = "Label60" + Label60.Size = New System.Drawing.Size(32, 12) + Label60.TabIndex = 49 + Label60.Text = "21시" ' - 'tb_s7 + 'Label61 ' - Me.tb_s7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_s7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t07", True)) - Me.tb_s7.Location = New System.Drawing.Point(43, 172) - Me.tb_s7.Name = "tb_s7" - Me.tb_s7.NectControl = Nothing - Me.tb_s7.Size = New System.Drawing.Size(79, 21) - Me.tb_s7.TabIndex = 6 - Me.tb_s7.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label61.AutoSize = True + Label61.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label61.Location = New System.Drawing.Point(179, 253) + Label61.Name = "Label61" + Label61.Size = New System.Drawing.Size(32, 12) + Label61.TabIndex = 50 + Label61.Text = "22시" ' - 'tb_s5 + 'Label62 ' - Me.tb_s5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_s5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t05", True)) - Me.tb_s5.Location = New System.Drawing.Point(43, 116) - Me.tb_s5.Name = "tb_s5" - Me.tb_s5.NectControl = Nothing - Me.tb_s5.Size = New System.Drawing.Size(79, 21) - Me.tb_s5.TabIndex = 4 - Me.tb_s5.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label62.AutoSize = True + Label62.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label62.Location = New System.Drawing.Point(179, 281) + Label62.Name = "Label62" + Label62.Size = New System.Drawing.Size(32, 12) + Label62.TabIndex = 51 + Label62.Text = "23시" ' - 'tb_s6 + 'Label63 ' - Me.tb_s6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_s6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t06", True)) - Me.tb_s6.Location = New System.Drawing.Point(43, 144) - Me.tb_s6.Name = "tb_s6" - Me.tb_s6.NectControl = Nothing - Me.tb_s6.Size = New System.Drawing.Size(79, 21) - Me.tb_s6.TabIndex = 5 - Me.tb_s6.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label63.AutoSize = True + Label63.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label63.Location = New System.Drawing.Point(179, 309) + Label63.Name = "Label63" + Label63.Size = New System.Drawing.Size(32, 12) + Label63.TabIndex = 52 + Label63.Text = "24시" ' 'BindingNavigator5 ' @@ -3172,11 +2348,6 @@ Partial Class Frm_V20091231_Weather Me.DataGridViewTextBoxColumn11.Name = "DataGridViewTextBoxColumn11" Me.DataGridViewTextBoxColumn11.Width = 62 ' - 'bsw_cha - ' - Me.bsw_cha.DataMember = "weather_cha" - Me.bsw_cha.DataSource = Me.DS1 - ' 'Panel1 ' Me.Panel1.AutoScroll = True @@ -3202,7 +2373,6 @@ Partial Class Frm_V20091231_Weather ' 'TableLayoutPanel1 ' - Me.TableLayoutPanel1.AutoSize = True Me.TableLayoutPanel1.BackColor = System.Drawing.SystemColors.ButtonFace Me.TableLayoutPanel1.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single] Me.TableLayoutPanel1.ColumnCount = 4 @@ -3244,141 +2414,140 @@ Partial Class Frm_V20091231_Weather Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle()) Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) - Me.TableLayoutPanel1.Size = New System.Drawing.Size(253, 169) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(365, 169) Me.TableLayoutPanel1.TabIndex = 123 ' - 'tb_c12 + 'Label1 ' - Me.tb_c12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_c12.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_cha, "m12", True)) - Me.tb_c12.Location = New System.Drawing.Point(168, 144) - Me.tb_c12.Name = "tb_c12" - Me.tb_c12.NectControl = Nothing - Me.tb_c12.Size = New System.Drawing.Size(79, 21) - Me.tb_c12.TabIndex = 31 - Me.tb_c12.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label1.Anchor = System.Windows.Forms.AnchorStyles.None + Label1.AutoSize = True + Label1.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label1.Location = New System.Drawing.Point(179, 148) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(32, 12) + Label1.TabIndex = 30 + Label1.Text = "12월" ' - 'tb_c11 + 'Label2 ' - Me.tb_c11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_c11.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_cha, "m11", True)) - Me.tb_c11.Location = New System.Drawing.Point(168, 116) - Me.tb_c11.Name = "tb_c11" - Me.tb_c11.NectControl = Nothing - Me.tb_c11.Size = New System.Drawing.Size(79, 21) - Me.tb_c11.TabIndex = 23 - Me.tb_c11.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label2.Anchor = System.Windows.Forms.AnchorStyles.None + Label2.AutoSize = True + Label2.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label2.Location = New System.Drawing.Point(179, 120) + Label2.Name = "Label2" + Label2.Size = New System.Drawing.Size(32, 12) + Label2.TabIndex = 28 + Label2.Text = "11월" ' - 'tb_c01 + 'Label3 ' - Me.tb_c01.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.tb_c01.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_c01.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_cha, "m01", True)) - Me.tb_c01.Location = New System.Drawing.Point(43, 4) - Me.tb_c01.Name = "tb_c01" - Me.tb_c01.NectControl = Nothing - Me.tb_c01.Size = New System.Drawing.Size(79, 21) - Me.tb_c01.TabIndex = 3 - Me.tb_c01.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label3.Anchor = System.Windows.Forms.AnchorStyles.None + Label3.AutoSize = True + Label3.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label3.Location = New System.Drawing.Point(179, 92) + Label3.Name = "Label3" + Label3.Size = New System.Drawing.Size(32, 12) + Label3.TabIndex = 26 + Label3.Text = "10월" ' - 'tb_c06 + 'Label4 ' - Me.tb_c06.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_c06.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_cha, "m06", True)) - Me.tb_c06.Location = New System.Drawing.Point(43, 144) - Me.tb_c06.Name = "tb_c06" - Me.tb_c06.NectControl = Nothing - Me.tb_c06.Size = New System.Drawing.Size(79, 21) - Me.tb_c06.TabIndex = 13 - Me.tb_c06.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label4.Anchor = System.Windows.Forms.AnchorStyles.None + Label4.AutoSize = True + Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label4.Location = New System.Drawing.Point(179, 64) + Label4.Name = "Label4" + Label4.Size = New System.Drawing.Size(32, 12) + Label4.TabIndex = 24 + Label4.Text = "09월" ' - 'tb_c10 + 'Label5 ' - Me.tb_c10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_c10.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_cha, "m10", True)) - Me.tb_c10.Location = New System.Drawing.Point(168, 88) - Me.tb_c10.Name = "tb_c10" - Me.tb_c10.NectControl = Nothing - Me.tb_c10.Size = New System.Drawing.Size(79, 21) - Me.tb_c10.TabIndex = 21 - Me.tb_c10.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label5.Anchor = System.Windows.Forms.AnchorStyles.None + Label5.AutoSize = True + Label5.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label5.Location = New System.Drawing.Point(4, 148) + Label5.Name = "Label5" + Label5.Size = New System.Drawing.Size(32, 12) + Label5.TabIndex = 18 + Label5.Text = "06월" ' - 'tb_c09 + 'Label6 ' - Me.tb_c09.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_c09.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_cha, "m09", True)) - Me.tb_c09.Location = New System.Drawing.Point(168, 60) - Me.tb_c09.Name = "tb_c09" - Me.tb_c09.NectControl = Nothing - Me.tb_c09.Size = New System.Drawing.Size(79, 21) - Me.tb_c09.TabIndex = 19 - Me.tb_c09.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label6.Anchor = System.Windows.Forms.AnchorStyles.None + Label6.AutoSize = True + Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label6.Location = New System.Drawing.Point(179, 36) + Label6.Name = "Label6" + Label6.Size = New System.Drawing.Size(32, 12) + Label6.TabIndex = 22 + Label6.Text = "08월" ' - 'tb_c05 + 'Label7 ' - Me.tb_c05.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_c05.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_cha, "m05", True)) - Me.tb_c05.Location = New System.Drawing.Point(43, 116) - Me.tb_c05.Name = "tb_c05" - Me.tb_c05.NectControl = Nothing - Me.tb_c05.Size = New System.Drawing.Size(79, 21) - Me.tb_c05.TabIndex = 11 - Me.tb_c05.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label7.Anchor = System.Windows.Forms.AnchorStyles.None + Label7.AutoSize = True + Label7.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label7.Location = New System.Drawing.Point(4, 120) + Label7.Name = "Label7" + Label7.Size = New System.Drawing.Size(32, 12) + Label7.TabIndex = 16 + Label7.Text = "05월" ' - 'tb_c08 + 'Label8 ' - Me.tb_c08.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_c08.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_cha, "m08", True)) - Me.tb_c08.Location = New System.Drawing.Point(168, 32) - Me.tb_c08.Name = "tb_c08" - Me.tb_c08.NectControl = Nothing - Me.tb_c08.Size = New System.Drawing.Size(79, 21) - Me.tb_c08.TabIndex = 17 - Me.tb_c08.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label8.Anchor = System.Windows.Forms.AnchorStyles.None + Label8.AutoSize = True + Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label8.Location = New System.Drawing.Point(179, 8) + Label8.Name = "Label8" + Label8.Size = New System.Drawing.Size(32, 12) + Label8.TabIndex = 20 + Label8.Text = "07월" ' - 'tb_c04 + 'Label9 ' - Me.tb_c04.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_c04.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_cha, "m04", True)) - Me.tb_c04.Location = New System.Drawing.Point(43, 88) - Me.tb_c04.Name = "tb_c04" - Me.tb_c04.NectControl = Nothing - Me.tb_c04.Size = New System.Drawing.Size(79, 21) - Me.tb_c04.TabIndex = 9 - Me.tb_c04.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label9.Anchor = System.Windows.Forms.AnchorStyles.None + Label9.AutoSize = True + Label9.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label9.Location = New System.Drawing.Point(4, 92) + Label9.Name = "Label9" + Label9.Size = New System.Drawing.Size(32, 12) + Label9.TabIndex = 14 + Label9.Text = "04월" ' - 'tb_c07 + 'Label10 ' - Me.tb_c07.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_c07.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_cha, "m07", True)) - Me.tb_c07.Location = New System.Drawing.Point(168, 4) - Me.tb_c07.Name = "tb_c07" - Me.tb_c07.NectControl = Nothing - Me.tb_c07.Size = New System.Drawing.Size(79, 21) - Me.tb_c07.TabIndex = 15 - Me.tb_c07.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label10.Anchor = System.Windows.Forms.AnchorStyles.None + Label10.AutoSize = True + Label10.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label10.Location = New System.Drawing.Point(4, 8) + Label10.Name = "Label10" + Label10.Size = New System.Drawing.Size(32, 12) + Label10.TabIndex = 8 + Label10.Text = "01월" ' - 'tb_c02 + 'Label11 ' - Me.tb_c02.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_c02.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_cha, "m02", True)) - Me.tb_c02.Location = New System.Drawing.Point(43, 32) - Me.tb_c02.Name = "tb_c02" - Me.tb_c02.NectControl = Nothing - Me.tb_c02.Size = New System.Drawing.Size(79, 21) - Me.tb_c02.TabIndex = 5 - Me.tb_c02.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label11.Anchor = System.Windows.Forms.AnchorStyles.None + Label11.AutoSize = True + Label11.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label11.Location = New System.Drawing.Point(4, 64) + Label11.Name = "Label11" + Label11.Size = New System.Drawing.Size(32, 12) + Label11.TabIndex = 12 + Label11.Text = "03월" ' - 'tb_c03 + 'Label12 ' - Me.tb_c03.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tb_c03.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_cha, "m03", True)) - Me.tb_c03.Location = New System.Drawing.Point(43, 60) - Me.tb_c03.Name = "tb_c03" - Me.tb_c03.NectControl = Nothing - Me.tb_c03.Size = New System.Drawing.Size(79, 21) - Me.tb_c03.TabIndex = 7 - Me.tb_c03.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + Label12.Anchor = System.Windows.Forms.AnchorStyles.None + Label12.AutoSize = True + Label12.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label12.Location = New System.Drawing.Point(4, 36) + Label12.Name = "Label12" + Label12.Size = New System.Drawing.Size(32, 12) + Label12.TabIndex = 10 + Label12.Text = "02월" ' 'BindingNavigator2 ' @@ -3585,13 +2754,6 @@ Partial Class Frm_V20091231_Weather Me.AreaDataGridViewTextBoxColumn2.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic Me.AreaDataGridViewTextBoxColumn2.Width = 59 ' - 'bsWGDep3 - ' - Me.bsWGDep3.DataMember = "weather_group" - Me.bsWGDep3.DataSource = Me.DS1 - Me.bsWGDep3.Filter = "code ='test'" - Me.bsWGDep3.Sort = "" - ' 'dvArea2 ' Me.dvArea2.A_DelCurrentCell = True @@ -3664,13 +2826,6 @@ Partial Class Frm_V20091231_Weather Me.area3.Name = "area3" Me.area3.Width = 45 ' - 'bsWGDep2 - ' - Me.bsWGDep2.DataMember = "weather_group" - Me.bsWGDep2.DataSource = Me.DS1 - Me.bsWGDep2.Filter = "code ='test'" - Me.bsWGDep2.Sort = "" - ' 'dvArea1 ' Me.dvArea1.A_DelCurrentCell = True @@ -3719,13 +2874,6 @@ Partial Class Frm_V20091231_Weather Me.AreaDataGridViewTextBoxColumn.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic Me.AreaDataGridViewTextBoxColumn.Width = 59 ' - 'bsWGDep1 - ' - Me.bsWGDep1.DataMember = "weather_group" - Me.bsWGDep1.DataSource = Me.DS1 - Me.bsWGDep1.Filter = "code <> '0' and code like '%0000'" - Me.bsWGDep1.Sort = "" - ' 'Label15 ' Me.Label15.AutoSize = True @@ -3753,69 +2901,631 @@ Partial Class Frm_V20091231_Weather Me.Label13.TabIndex = 13 Me.Label13.Text = "Depth #1" ' - 'StatusStrip1 + 'TabPage4 ' - Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_msg}) - Me.StatusStrip1.Location = New System.Drawing.Point(0, 533) - Me.StatusStrip1.Name = "StatusStrip1" - Me.StatusStrip1.Size = New System.Drawing.Size(1136, 22) - Me.StatusStrip1.TabIndex = 12 - Me.StatusStrip1.Text = "StatusStrip1" + Me.TabPage4.Controls.Add(Me.MyTb1) + Me.TabPage4.Controls.Add(Me.MyTb2) + Me.TabPage4.Controls.Add(Me.Panel5) + Me.TabPage4.Location = New System.Drawing.Point(4, 22) + Me.TabPage4.Name = "TabPage4" + Me.TabPage4.Size = New System.Drawing.Size(935, 507) + Me.TabPage4.TabIndex = 7 + Me.TabPage4.Text = "풍속" + Me.TabPage4.UseVisualStyleBackColor = True ' - 'lb_msg + 'Panel5 ' - Me.lb_msg.Name = "lb_msg" - Me.lb_msg.Size = New System.Drawing.Size(59, 17) - Me.lb_msg.Text = "<메세지>" + Me.Panel5.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Panel5.Controls.Add(Me.TableLayoutPanel3) + Me.Panel5.Controls.Add(Me.Label68) + Me.Panel5.Location = New System.Drawing.Point(63, 45) + Me.Panel5.Name = "Panel5" + Me.Panel5.Size = New System.Drawing.Size(578, 225) + Me.Panel5.TabIndex = 124 ' - 'DataGridViewTextBoxColumn2 + 'TableLayoutPanel3 ' - Me.DataGridViewTextBoxColumn2.DataPropertyName = "code" - Me.DataGridViewTextBoxColumn2.HeaderText = "code" - Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" - Me.DataGridViewTextBoxColumn2.Width = 58 + Me.TableLayoutPanel3.AutoSize = True + Me.TableLayoutPanel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(252, Byte), Integer)) + Me.TableLayoutPanel3.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single] + Me.TableLayoutPanel3.ColumnCount = 4 + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 102.0!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 102.0!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 96.0!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 161.0!)) + Me.TableLayoutPanel3.Controls.Add(Me.tbwi12, 3, 5) + Me.TableLayoutPanel3.Controls.Add(Label16, 2, 5) + Me.TableLayoutPanel3.Controls.Add(Label17, 2, 4) + Me.TableLayoutPanel3.Controls.Add(Label18, 2, 3) + Me.TableLayoutPanel3.Controls.Add(Label19, 2, 2) + Me.TableLayoutPanel3.Controls.Add(Me.tbwi11, 3, 4) + Me.TableLayoutPanel3.Controls.Add(Label20, 0, 5) + Me.TableLayoutPanel3.Controls.Add(Label21, 2, 1) + Me.TableLayoutPanel3.Controls.Add(Label22, 0, 4) + Me.TableLayoutPanel3.Controls.Add(Me.tbwi10, 3, 3) + Me.TableLayoutPanel3.Controls.Add(Label23, 2, 0) + Me.TableLayoutPanel3.Controls.Add(Label24, 0, 3) + Me.TableLayoutPanel3.Controls.Add(Label65, 0, 0) + Me.TableLayoutPanel3.Controls.Add(Me.tbwi06, 1, 5) + Me.TableLayoutPanel3.Controls.Add(Me.tbwi09, 3, 2) + Me.TableLayoutPanel3.Controls.Add(Me.tbwi05, 1, 4) + Me.TableLayoutPanel3.Controls.Add(Label66, 0, 2) + Me.TableLayoutPanel3.Controls.Add(Me.tbwi04, 1, 3) + Me.TableLayoutPanel3.Controls.Add(Label67, 0, 1) + Me.TableLayoutPanel3.Controls.Add(Me.tbwi08, 3, 1) + Me.TableLayoutPanel3.Controls.Add(Me.tbwi01, 1, 0) + Me.TableLayoutPanel3.Controls.Add(Me.tbwi03, 1, 2) + Me.TableLayoutPanel3.Controls.Add(Me.tbwi07, 3, 0) + Me.TableLayoutPanel3.Controls.Add(Me.tbwi02, 1, 1) + Me.TableLayoutPanel3.Location = New System.Drawing.Point(11, 19) + Me.TableLayoutPanel3.Name = "TableLayoutPanel3" + Me.TableLayoutPanel3.RowCount = 5 + Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel3.Size = New System.Drawing.Size(466, 169) + Me.TableLayoutPanel3.TabIndex = 122 ' - 'DataGridViewTextBoxColumn3 + 'Label16 ' - Me.DataGridViewTextBoxColumn3.DataPropertyName = "code" - Me.DataGridViewTextBoxColumn3.HeaderText = "code" - Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" - Me.DataGridViewTextBoxColumn3.Width = 58 + Label16.Anchor = System.Windows.Forms.AnchorStyles.None + Label16.AutoSize = True + Label16.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label16.Location = New System.Drawing.Point(217, 148) + Label16.Name = "Label16" + Label16.Size = New System.Drawing.Size(75, 12) + Label16.TabIndex = 30 + Label16.Text = "풍속(12월):" ' - 'DataGridViewTextBoxColumn4 + 'Label17 ' - Me.DataGridViewTextBoxColumn4.DataPropertyName = "code" - Me.DataGridViewTextBoxColumn4.HeaderText = "code" - Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" - Me.DataGridViewTextBoxColumn4.Width = 58 + Label17.Anchor = System.Windows.Forms.AnchorStyles.None + Label17.AutoSize = True + Label17.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label17.Location = New System.Drawing.Point(217, 120) + Label17.Name = "Label17" + Label17.Size = New System.Drawing.Size(75, 12) + Label17.TabIndex = 28 + Label17.Text = "풍속(11월):" ' - 'DataGridViewTextBoxColumn5 + 'Label18 ' - Me.DataGridViewTextBoxColumn5.DataPropertyName = "code" - Me.DataGridViewTextBoxColumn5.HeaderText = "code" - Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" - Me.DataGridViewTextBoxColumn5.Width = 58 + Label18.Anchor = System.Windows.Forms.AnchorStyles.None + Label18.AutoSize = True + Label18.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label18.Location = New System.Drawing.Point(217, 92) + Label18.Name = "Label18" + Label18.Size = New System.Drawing.Size(75, 12) + Label18.TabIndex = 26 + Label18.Text = "풍속(10월):" ' - 'DataGridViewTextBoxColumn6 + 'Label19 ' - Me.DataGridViewTextBoxColumn6.DataPropertyName = "code" - Me.DataGridViewTextBoxColumn6.HeaderText = "code" - Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" - Me.DataGridViewTextBoxColumn6.Width = 58 + Label19.Anchor = System.Windows.Forms.AnchorStyles.None + Label19.AutoSize = True + Label19.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label19.Location = New System.Drawing.Point(221, 64) + Label19.Name = "Label19" + Label19.Size = New System.Drawing.Size(68, 12) + Label19.TabIndex = 24 + Label19.Text = "풍속(9월):" ' - 'DataGridViewTextBoxColumn7 + 'Label20 ' - Me.DataGridViewTextBoxColumn7.DataPropertyName = "code" - Me.DataGridViewTextBoxColumn7.HeaderText = "code" - Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" - Me.DataGridViewTextBoxColumn7.Width = 58 + Label20.Anchor = System.Windows.Forms.AnchorStyles.None + Label20.AutoSize = True + Label20.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label20.Location = New System.Drawing.Point(18, 148) + Label20.Name = "Label20" + Label20.Size = New System.Drawing.Size(68, 12) + Label20.TabIndex = 18 + Label20.Text = "풍속(6월):" ' - 'DataGridViewTextBoxColumn8 + 'Label21 ' - Me.DataGridViewTextBoxColumn8.DataPropertyName = "code" - Me.DataGridViewTextBoxColumn8.HeaderText = "code" - Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" - Me.DataGridViewTextBoxColumn8.Width = 58 + Label21.Anchor = System.Windows.Forms.AnchorStyles.None + Label21.AutoSize = True + Label21.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label21.Location = New System.Drawing.Point(221, 36) + Label21.Name = "Label21" + Label21.Size = New System.Drawing.Size(68, 12) + Label21.TabIndex = 22 + Label21.Text = "풍속(8월):" + ' + 'Label22 + ' + Label22.Anchor = System.Windows.Forms.AnchorStyles.None + Label22.AutoSize = True + Label22.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label22.Location = New System.Drawing.Point(18, 120) + Label22.Name = "Label22" + Label22.Size = New System.Drawing.Size(68, 12) + Label22.TabIndex = 16 + Label22.Text = "풍속(5월):" + ' + 'Label23 + ' + Label23.Anchor = System.Windows.Forms.AnchorStyles.None + Label23.AutoSize = True + Label23.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label23.Location = New System.Drawing.Point(221, 8) + Label23.Name = "Label23" + Label23.Size = New System.Drawing.Size(68, 12) + Label23.TabIndex = 20 + Label23.Text = "풍속(7월):" + ' + 'Label24 + ' + Label24.Anchor = System.Windows.Forms.AnchorStyles.None + Label24.AutoSize = True + Label24.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label24.Location = New System.Drawing.Point(18, 92) + Label24.Name = "Label24" + Label24.Size = New System.Drawing.Size(68, 12) + Label24.TabIndex = 14 + Label24.Text = "풍속(4월):" + ' + 'Label65 + ' + Label65.Anchor = System.Windows.Forms.AnchorStyles.None + Label65.AutoSize = True + Label65.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label65.Location = New System.Drawing.Point(18, 8) + Label65.Name = "Label65" + Label65.Size = New System.Drawing.Size(68, 12) + Label65.TabIndex = 8 + Label65.Text = "풍속(1월):" + ' + 'Label66 + ' + Label66.Anchor = System.Windows.Forms.AnchorStyles.None + Label66.AutoSize = True + Label66.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label66.Location = New System.Drawing.Point(18, 64) + Label66.Name = "Label66" + Label66.Size = New System.Drawing.Size(68, 12) + Label66.TabIndex = 12 + Label66.Text = "풍속(3월):" + ' + 'Label67 + ' + Label67.Anchor = System.Windows.Forms.AnchorStyles.None + Label67.AutoSize = True + Label67.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label67.Location = New System.Drawing.Point(18, 36) + Label67.Name = "Label67" + Label67.Size = New System.Drawing.Size(68, 12) + Label67.TabIndex = 10 + Label67.Text = "풍속(2월):" + ' + 'Label68 + ' + Me.Label68.AutoSize = True + Me.Label68.ForeColor = System.Drawing.Color.DarkBlue + Me.Label68.Location = New System.Drawing.Point(9, 2) + Me.Label68.Name = "Label68" + Me.Label68.Size = New System.Drawing.Size(76, 12) + Me.Label68.TabIndex = 121 + Me.Label68.Text = "[온도 입력]" + ' + 'TabPage5 + ' + Me.TabPage5.Controls.Add(Me.Panel6) + Me.TabPage5.Location = New System.Drawing.Point(4, 22) + Me.TabPage5.Name = "TabPage5" + Me.TabPage5.Size = New System.Drawing.Size(935, 507) + Me.TabPage5.TabIndex = 8 + Me.TabPage5.Text = "하천수온도" + Me.TabPage5.UseVisualStyleBackColor = True + ' + 'Panel6 + ' + Me.Panel6.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Panel6.Controls.Add(Me.TableLayoutPanel10) + Me.Panel6.Controls.Add(Me.Label106) + Me.Panel6.Location = New System.Drawing.Point(81, 55) + Me.Panel6.Name = "Panel6" + Me.Panel6.Size = New System.Drawing.Size(536, 195) + Me.Panel6.TabIndex = 124 + ' + 'TableLayoutPanel10 + ' + Me.TableLayoutPanel10.AutoSize = True + Me.TableLayoutPanel10.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(252, Byte), Integer)) + Me.TableLayoutPanel10.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single] + Me.TableLayoutPanel10.ColumnCount = 4 + Me.TableLayoutPanel10.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 123.0!)) + Me.TableLayoutPanel10.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 92.0!)) + Me.TableLayoutPanel10.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 137.0!)) + Me.TableLayoutPanel10.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 109.0!)) + Me.TableLayoutPanel10.Controls.Add(Me.tbr12, 3, 5) + Me.TableLayoutPanel10.Controls.Add(Label69, 2, 5) + Me.TableLayoutPanel10.Controls.Add(Label70, 2, 4) + Me.TableLayoutPanel10.Controls.Add(Label71, 2, 3) + Me.TableLayoutPanel10.Controls.Add(Label72, 2, 2) + Me.TableLayoutPanel10.Controls.Add(Me.tbr11, 3, 4) + Me.TableLayoutPanel10.Controls.Add(Label73, 0, 5) + Me.TableLayoutPanel10.Controls.Add(Label74, 2, 1) + Me.TableLayoutPanel10.Controls.Add(Label75, 0, 4) + Me.TableLayoutPanel10.Controls.Add(Me.tbr10, 3, 3) + Me.TableLayoutPanel10.Controls.Add(Label76, 2, 0) + Me.TableLayoutPanel10.Controls.Add(Label102, 0, 3) + Me.TableLayoutPanel10.Controls.Add(Label103, 0, 0) + Me.TableLayoutPanel10.Controls.Add(Me.tbr06, 1, 5) + Me.TableLayoutPanel10.Controls.Add(Me.tbr09, 3, 2) + Me.TableLayoutPanel10.Controls.Add(Me.tbr05, 1, 4) + Me.TableLayoutPanel10.Controls.Add(Label104, 0, 2) + Me.TableLayoutPanel10.Controls.Add(Me.tbr04, 1, 3) + Me.TableLayoutPanel10.Controls.Add(Label105, 0, 1) + Me.TableLayoutPanel10.Controls.Add(Me.tbr08, 3, 1) + Me.TableLayoutPanel10.Controls.Add(Me.tbr01, 1, 0) + Me.TableLayoutPanel10.Controls.Add(Me.tbr03, 1, 2) + Me.TableLayoutPanel10.Controls.Add(Me.tbr07, 3, 0) + Me.TableLayoutPanel10.Controls.Add(Me.tbr02, 1, 1) + Me.TableLayoutPanel10.Location = New System.Drawing.Point(11, 19) + Me.TableLayoutPanel10.Name = "TableLayoutPanel10" + Me.TableLayoutPanel10.RowCount = 5 + Me.TableLayoutPanel10.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel10.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel10.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel10.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel10.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel10.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel10.Size = New System.Drawing.Size(466, 169) + Me.TableLayoutPanel10.TabIndex = 122 + ' + 'Label69 + ' + Label69.Anchor = System.Windows.Forms.AnchorStyles.None + Label69.AutoSize = True + Label69.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label69.Location = New System.Drawing.Point(229, 148) + Label69.Name = "Label69" + Label69.Size = New System.Drawing.Size(114, 12) + Label69.TabIndex = 30 + Label69.Text = "하천수온도(12월):" + ' + 'Label70 + ' + Label70.Anchor = System.Windows.Forms.AnchorStyles.None + Label70.AutoSize = True + Label70.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label70.Location = New System.Drawing.Point(229, 120) + Label70.Name = "Label70" + Label70.Size = New System.Drawing.Size(114, 12) + Label70.TabIndex = 28 + Label70.Text = "하천수온도(11월):" + ' + 'Label71 + ' + Label71.Anchor = System.Windows.Forms.AnchorStyles.None + Label71.AutoSize = True + Label71.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label71.Location = New System.Drawing.Point(229, 92) + Label71.Name = "Label71" + Label71.Size = New System.Drawing.Size(114, 12) + Label71.TabIndex = 26 + Label71.Text = "하천수온도(10월):" + ' + 'Label72 + ' + Label72.Anchor = System.Windows.Forms.AnchorStyles.None + Label72.AutoSize = True + Label72.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label72.Location = New System.Drawing.Point(233, 64) + Label72.Name = "Label72" + Label72.Size = New System.Drawing.Size(107, 12) + Label72.TabIndex = 24 + Label72.Text = "하천수온도(9월):" + ' + 'Label73 + ' + Label73.Anchor = System.Windows.Forms.AnchorStyles.None + Label73.AutoSize = True + Label73.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label73.Location = New System.Drawing.Point(9, 148) + Label73.Name = "Label73" + Label73.Size = New System.Drawing.Size(107, 12) + Label73.TabIndex = 18 + Label73.Text = "하천수온도(6월):" + ' + 'Label74 + ' + Label74.Anchor = System.Windows.Forms.AnchorStyles.None + Label74.AutoSize = True + Label74.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label74.Location = New System.Drawing.Point(233, 36) + Label74.Name = "Label74" + Label74.Size = New System.Drawing.Size(107, 12) + Label74.TabIndex = 22 + Label74.Text = "하천수온도(8월):" + ' + 'Label75 + ' + Label75.Anchor = System.Windows.Forms.AnchorStyles.None + Label75.AutoSize = True + Label75.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label75.Location = New System.Drawing.Point(9, 120) + Label75.Name = "Label75" + Label75.Size = New System.Drawing.Size(107, 12) + Label75.TabIndex = 16 + Label75.Text = "하천수온도(5월):" + ' + 'Label76 + ' + Label76.Anchor = System.Windows.Forms.AnchorStyles.None + Label76.AutoSize = True + Label76.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label76.Location = New System.Drawing.Point(233, 8) + Label76.Name = "Label76" + Label76.Size = New System.Drawing.Size(107, 12) + Label76.TabIndex = 20 + Label76.Text = "하천수온도(7월):" + ' + 'Label102 + ' + Label102.Anchor = System.Windows.Forms.AnchorStyles.None + Label102.AutoSize = True + Label102.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label102.Location = New System.Drawing.Point(9, 92) + Label102.Name = "Label102" + Label102.Size = New System.Drawing.Size(107, 12) + Label102.TabIndex = 14 + Label102.Text = "하천수온도(4월):" + ' + 'Label103 + ' + Label103.Anchor = System.Windows.Forms.AnchorStyles.None + Label103.AutoSize = True + Label103.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label103.Location = New System.Drawing.Point(9, 8) + Label103.Name = "Label103" + Label103.Size = New System.Drawing.Size(107, 12) + Label103.TabIndex = 8 + Label103.Text = "하천수온도(1월):" + ' + 'Label104 + ' + Label104.Anchor = System.Windows.Forms.AnchorStyles.None + Label104.AutoSize = True + Label104.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label104.Location = New System.Drawing.Point(9, 64) + Label104.Name = "Label104" + Label104.Size = New System.Drawing.Size(107, 12) + Label104.TabIndex = 12 + Label104.Text = "하천수온도(3월):" + ' + 'Label105 + ' + Label105.Anchor = System.Windows.Forms.AnchorStyles.None + Label105.AutoSize = True + Label105.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label105.Location = New System.Drawing.Point(9, 36) + Label105.Name = "Label105" + Label105.Size = New System.Drawing.Size(107, 12) + Label105.TabIndex = 10 + Label105.Text = "하천수온도(2월):" + ' + 'Label106 + ' + Me.Label106.AutoSize = True + Me.Label106.ForeColor = System.Drawing.Color.DarkBlue + Me.Label106.Location = New System.Drawing.Point(9, 2) + Me.Label106.Name = "Label106" + Me.Label106.Size = New System.Drawing.Size(76, 12) + Me.Label106.TabIndex = 121 + Me.Label106.Text = "[온도 입력]" + ' + 'TabPage6 + ' + Me.TabPage6.Controls.Add(Me.Panel9) + Me.TabPage6.Location = New System.Drawing.Point(4, 22) + Me.TabPage6.Name = "TabPage6" + Me.TabPage6.Size = New System.Drawing.Size(935, 507) + Me.TabPage6.TabIndex = 9 + Me.TabPage6.Text = "광역원수" + Me.TabPage6.UseVisualStyleBackColor = True + ' + 'Panel9 + ' + Me.Panel9.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(246, Byte), Integer)) + Me.Panel9.Controls.Add(Me.TableLayoutPanel11) + Me.Panel9.Controls.Add(Me.Label119) + Me.Panel9.Location = New System.Drawing.Point(52, 57) + Me.Panel9.Name = "Panel9" + Me.Panel9.Size = New System.Drawing.Size(536, 195) + Me.Panel9.TabIndex = 125 + ' + 'TableLayoutPanel11 + ' + Me.TableLayoutPanel11.AutoSize = True + Me.TableLayoutPanel11.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(252, Byte), Integer)) + Me.TableLayoutPanel11.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single] + Me.TableLayoutPanel11.ColumnCount = 4 + Me.TableLayoutPanel11.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 102.0!)) + Me.TableLayoutPanel11.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 102.0!)) + Me.TableLayoutPanel11.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 127.0!)) + Me.TableLayoutPanel11.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 130.0!)) + Me.TableLayoutPanel11.Controls.Add(Me.tbw12, 3, 5) + Me.TableLayoutPanel11.Controls.Add(Label107, 2, 5) + Me.TableLayoutPanel11.Controls.Add(Label108, 2, 4) + Me.TableLayoutPanel11.Controls.Add(Label109, 2, 3) + Me.TableLayoutPanel11.Controls.Add(Label110, 2, 2) + Me.TableLayoutPanel11.Controls.Add(Me.tbw11, 3, 4) + Me.TableLayoutPanel11.Controls.Add(Label111, 0, 5) + Me.TableLayoutPanel11.Controls.Add(Label112, 2, 1) + Me.TableLayoutPanel11.Controls.Add(Label113, 0, 4) + Me.TableLayoutPanel11.Controls.Add(Me.tbw10, 3, 3) + Me.TableLayoutPanel11.Controls.Add(Label114, 2, 0) + Me.TableLayoutPanel11.Controls.Add(Label115, 0, 3) + Me.TableLayoutPanel11.Controls.Add(Label116, 0, 0) + Me.TableLayoutPanel11.Controls.Add(Me.tbw06, 1, 5) + Me.TableLayoutPanel11.Controls.Add(Me.tbw09, 3, 2) + Me.TableLayoutPanel11.Controls.Add(Me.tbw05, 1, 4) + Me.TableLayoutPanel11.Controls.Add(Label117, 0, 2) + Me.TableLayoutPanel11.Controls.Add(Me.tbw04, 1, 3) + Me.TableLayoutPanel11.Controls.Add(Label118, 0, 1) + Me.TableLayoutPanel11.Controls.Add(Me.tbw08, 3, 1) + Me.TableLayoutPanel11.Controls.Add(Me.tbw01, 1, 0) + Me.TableLayoutPanel11.Controls.Add(Me.tbw03, 1, 2) + Me.TableLayoutPanel11.Controls.Add(Me.tbw07, 3, 0) + Me.TableLayoutPanel11.Controls.Add(Me.tbw02, 1, 1) + Me.TableLayoutPanel11.Location = New System.Drawing.Point(11, 19) + Me.TableLayoutPanel11.Name = "TableLayoutPanel11" + Me.TableLayoutPanel11.RowCount = 5 + Me.TableLayoutPanel11.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel11.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel11.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel11.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel11.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel11.RowStyles.Add(New System.Windows.Forms.RowStyle()) + Me.TableLayoutPanel11.Size = New System.Drawing.Size(466, 169) + Me.TableLayoutPanel11.TabIndex = 122 + ' + 'Label107 + ' + Label107.Anchor = System.Windows.Forms.AnchorStyles.None + Label107.AutoSize = True + Label107.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label107.Location = New System.Drawing.Point(220, 148) + Label107.Name = "Label107" + Label107.Size = New System.Drawing.Size(101, 12) + Label107.TabIndex = 30 + Label107.Text = "광역원수(12월):" + ' + 'Label108 + ' + Label108.Anchor = System.Windows.Forms.AnchorStyles.None + Label108.AutoSize = True + Label108.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label108.Location = New System.Drawing.Point(220, 120) + Label108.Name = "Label108" + Label108.Size = New System.Drawing.Size(101, 12) + Label108.TabIndex = 28 + Label108.Text = "광역원수(11월):" + ' + 'Label109 + ' + Label109.Anchor = System.Windows.Forms.AnchorStyles.None + Label109.AutoSize = True + Label109.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label109.Location = New System.Drawing.Point(220, 92) + Label109.Name = "Label109" + Label109.Size = New System.Drawing.Size(101, 12) + Label109.TabIndex = 26 + Label109.Text = "광역원수(10월):" + ' + 'Label110 + ' + Label110.Anchor = System.Windows.Forms.AnchorStyles.None + Label110.AutoSize = True + Label110.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label110.Location = New System.Drawing.Point(223, 64) + Label110.Name = "Label110" + Label110.Size = New System.Drawing.Size(94, 12) + Label110.TabIndex = 24 + Label110.Text = "광역원수(9월):" + ' + 'Label111 + ' + Label111.Anchor = System.Windows.Forms.AnchorStyles.None + Label111.AutoSize = True + Label111.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label111.Location = New System.Drawing.Point(5, 148) + Label111.Name = "Label111" + Label111.Size = New System.Drawing.Size(94, 12) + Label111.TabIndex = 18 + Label111.Text = "광역원수(6월):" + ' + 'Label112 + ' + Label112.Anchor = System.Windows.Forms.AnchorStyles.None + Label112.AutoSize = True + Label112.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label112.Location = New System.Drawing.Point(223, 36) + Label112.Name = "Label112" + Label112.Size = New System.Drawing.Size(94, 12) + Label112.TabIndex = 22 + Label112.Text = "광역원수(8월):" + ' + 'Label113 + ' + Label113.Anchor = System.Windows.Forms.AnchorStyles.None + Label113.AutoSize = True + Label113.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label113.Location = New System.Drawing.Point(5, 120) + Label113.Name = "Label113" + Label113.Size = New System.Drawing.Size(94, 12) + Label113.TabIndex = 16 + Label113.Text = "광역원수(5월):" + ' + 'Label114 + ' + Label114.Anchor = System.Windows.Forms.AnchorStyles.None + Label114.AutoSize = True + Label114.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label114.Location = New System.Drawing.Point(223, 8) + Label114.Name = "Label114" + Label114.Size = New System.Drawing.Size(94, 12) + Label114.TabIndex = 20 + Label114.Text = "광역원수(7월):" + ' + 'Label115 + ' + Label115.Anchor = System.Windows.Forms.AnchorStyles.None + Label115.AutoSize = True + Label115.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label115.Location = New System.Drawing.Point(5, 92) + Label115.Name = "Label115" + Label115.Size = New System.Drawing.Size(94, 12) + Label115.TabIndex = 14 + Label115.Text = "광역원수(4월):" + ' + 'Label116 + ' + Label116.Anchor = System.Windows.Forms.AnchorStyles.None + Label116.AutoSize = True + Label116.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label116.Location = New System.Drawing.Point(5, 8) + Label116.Name = "Label116" + Label116.Size = New System.Drawing.Size(94, 12) + Label116.TabIndex = 8 + Label116.Text = "광역원수(1월):" + ' + 'Label117 + ' + Label117.Anchor = System.Windows.Forms.AnchorStyles.None + Label117.AutoSize = True + Label117.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label117.Location = New System.Drawing.Point(5, 64) + Label117.Name = "Label117" + Label117.Size = New System.Drawing.Size(94, 12) + Label117.TabIndex = 12 + Label117.Text = "광역원수(3월):" + ' + 'Label118 + ' + Label118.Anchor = System.Windows.Forms.AnchorStyles.None + Label118.AutoSize = True + Label118.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Label118.Location = New System.Drawing.Point(5, 36) + Label118.Name = "Label118" + Label118.Size = New System.Drawing.Size(94, 12) + Label118.TabIndex = 10 + Label118.Text = "광역원수(2월):" + ' + 'Label119 + ' + Me.Label119.AutoSize = True + Me.Label119.ForeColor = System.Drawing.Color.DarkBlue + Me.Label119.Location = New System.Drawing.Point(9, 2) + Me.Label119.Name = "Label119" + Me.Label119.Size = New System.Drawing.Size(76, 12) + Me.Label119.TabIndex = 121 + Me.Label119.Text = "[온도 입력]" ' 'dv ' @@ -3858,14 +3568,1534 @@ Partial Class Frm_V20091231_Weather Me.건물위치DataGridViewTextBoxColumn.Name = "건물위치DataGridViewTextBoxColumn" Me.건물위치DataGridViewTextBoxColumn.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable ' - 'TabPage4 + 'bn_all ' - Me.TabPage4.Location = New System.Drawing.Point(4, 22) - Me.TabPage4.Name = "TabPage4" - Me.TabPage4.Size = New System.Drawing.Size(935, 507) - Me.TabPage4.TabIndex = 7 - Me.TabPage4.Text = "풍속" - Me.TabPage4.UseVisualStyleBackColor = True + Me.bn_all.AddNewItem = Nothing + Me.bn_all.AutoSize = False + Me.bn_all.CountItem = Nothing + Me.bn_all.DeleteItem = Nothing + Me.bn_all.Dock = System.Windows.Forms.DockStyle.Left + Me.bn_all.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.bn_all.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.bn_all.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton48, Me.ToolStripButton49, Me.ToolStripButton51, Me.ToolStripSeparator28, Me.ToolStripButton8, Me.ToolStripButton13}) + Me.bn_all.Location = New System.Drawing.Point(0, 0) + Me.bn_all.MoveFirstItem = Nothing + Me.bn_all.MoveLastItem = Nothing + Me.bn_all.MoveNextItem = Nothing + Me.bn_all.MovePreviousItem = Nothing + Me.bn_all.Name = "bn_all" + Me.bn_all.PositionItem = Nothing + Me.bn_all.Size = New System.Drawing.Size(193, 533) + Me.bn_all.TabIndex = 7 + Me.bn_all.Text = "BindingNavigator1" + ' + 'ToolStripButton48 + ' + Me.ToolStripButton48.Image = Global.Eco2Ar.My.Resources.Resources.new_32 + Me.ToolStripButton48.Name = "ToolStripButton48" + Me.ToolStripButton48.RightToLeftAutoMirrorImage = True + Me.ToolStripButton48.Size = New System.Drawing.Size(191, 36) + Me.ToolStripButton48.Text = "신규추가(&A)" + ' + 'ToolStripButton49 + ' + Me.ToolStripButton49.Image = Global.Eco2Ar.My.Resources.Resources.remov_32 + Me.ToolStripButton49.Name = "ToolStripButton49" + Me.ToolStripButton49.RightToLeftAutoMirrorImage = True + Me.ToolStripButton49.Size = New System.Drawing.Size(191, 36) + Me.ToolStripButton49.Text = "선택삭제(&D)" + ' + 'ToolStripButton51 + ' + Me.ToolStripButton51.Image = Global.Eco2Ar.My.Resources.Resources.cancl_32 + Me.ToolStripButton51.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton51.Name = "ToolStripButton51" + Me.ToolStripButton51.Size = New System.Drawing.Size(191, 36) + Me.ToolStripButton51.Text = "변경취소(&C)" + ' + 'ToolStripSeparator28 + ' + Me.ToolStripSeparator28.Name = "ToolStripSeparator28" + Me.ToolStripSeparator28.Size = New System.Drawing.Size(191, 6) + ' + 'ToolStripButton8 + ' + Me.ToolStripButton8.Image = CType(resources.GetObject("ToolStripButton8.Image"), System.Drawing.Image) + Me.ToolStripButton8.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton8.Name = "ToolStripButton8" + Me.ToolStripButton8.Size = New System.Drawing.Size(191, 36) + Me.ToolStripButton8.Text = "Data Export" + ' + 'ToolStripButton13 + ' + Me.ToolStripButton13.Image = CType(resources.GetObject("ToolStripButton13.Image"), System.Drawing.Image) + Me.ToolStripButton13.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton13.Name = "ToolStripButton13" + Me.ToolStripButton13.Size = New System.Drawing.Size(191, 36) + Me.ToolStripButton13.Text = "Data Import" + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 533) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(1136, 22) + Me.StatusStrip1.TabIndex = 12 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(59, 17) + Me.lb_msg.Text = "<메세지>" + ' + 'tb_w12 + ' + Me.tb_w12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_w12.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "m12", True)) + Me.tb_w12.Location = New System.Drawing.Point(365, 144) + Me.tb_w12.Name = "tb_w12" + Me.tb_w12.NectControl = Nothing + Me.tb_w12.Size = New System.Drawing.Size(95, 21) + Me.tb_w12.TabIndex = 29 + Me.tb_w12.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_w12.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_w11 + ' + Me.tb_w11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_w11.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "m11", True)) + Me.tb_w11.Location = New System.Drawing.Point(365, 116) + Me.tb_w11.Name = "tb_w11" + Me.tb_w11.NectControl = Nothing + Me.tb_w11.Size = New System.Drawing.Size(95, 21) + Me.tb_w11.TabIndex = 27 + Me.tb_w11.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_w11.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_w10 + ' + Me.tb_w10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_w10.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "m10", True)) + Me.tb_w10.Location = New System.Drawing.Point(365, 88) + Me.tb_w10.Name = "tb_w10" + Me.tb_w10.NectControl = Nothing + Me.tb_w10.Size = New System.Drawing.Size(95, 21) + Me.tb_w10.TabIndex = 25 + Me.tb_w10.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_w10.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_w06 + ' + Me.tb_w06.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_w06.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "m06", True)) + Me.tb_w06.Location = New System.Drawing.Point(107, 144) + Me.tb_w06.Name = "tb_w06" + Me.tb_w06.NectControl = Nothing + Me.tb_w06.Size = New System.Drawing.Size(95, 21) + Me.tb_w06.TabIndex = 17 + Me.tb_w06.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_w06.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_w09 + ' + Me.tb_w09.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_w09.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "m09", True)) + Me.tb_w09.Location = New System.Drawing.Point(365, 60) + Me.tb_w09.Name = "tb_w09" + Me.tb_w09.NectControl = Nothing + Me.tb_w09.Size = New System.Drawing.Size(95, 21) + Me.tb_w09.TabIndex = 23 + Me.tb_w09.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_w09.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_w05 + ' + Me.tb_w05.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_w05.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "m05", True)) + Me.tb_w05.Location = New System.Drawing.Point(107, 116) + Me.tb_w05.Name = "tb_w05" + Me.tb_w05.NectControl = Nothing + Me.tb_w05.Size = New System.Drawing.Size(95, 21) + Me.tb_w05.TabIndex = 15 + Me.tb_w05.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_w05.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_w04 + ' + Me.tb_w04.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_w04.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "m04", True)) + Me.tb_w04.Location = New System.Drawing.Point(107, 88) + Me.tb_w04.Name = "tb_w04" + Me.tb_w04.NectControl = Nothing + Me.tb_w04.Size = New System.Drawing.Size(95, 21) + Me.tb_w04.TabIndex = 13 + Me.tb_w04.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_w04.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_w08 + ' + Me.tb_w08.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_w08.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "m08", True)) + Me.tb_w08.Location = New System.Drawing.Point(365, 32) + Me.tb_w08.Name = "tb_w08" + Me.tb_w08.NectControl = Nothing + Me.tb_w08.Size = New System.Drawing.Size(95, 21) + Me.tb_w08.TabIndex = 21 + Me.tb_w08.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_w08.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_w01 + ' + Me.tb_w01.BackColor = System.Drawing.SystemColors.Window + Me.tb_w01.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_w01.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "m01", True)) + Me.tb_w01.Location = New System.Drawing.Point(107, 4) + Me.tb_w01.Name = "tb_w01" + Me.tb_w01.NectControl = Nothing + Me.tb_w01.Size = New System.Drawing.Size(95, 21) + Me.tb_w01.TabIndex = 7 + Me.tb_w01.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_w01.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_w03 + ' + Me.tb_w03.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_w03.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "m03", True)) + Me.tb_w03.Location = New System.Drawing.Point(107, 60) + Me.tb_w03.Name = "tb_w03" + Me.tb_w03.NectControl = Nothing + Me.tb_w03.Size = New System.Drawing.Size(95, 21) + Me.tb_w03.TabIndex = 11 + Me.tb_w03.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_w03.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_w07 + ' + Me.tb_w07.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_w07.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "m07", True)) + Me.tb_w07.Location = New System.Drawing.Point(365, 4) + Me.tb_w07.Name = "tb_w07" + Me.tb_w07.NectControl = Nothing + Me.tb_w07.Size = New System.Drawing.Size(95, 21) + Me.tb_w07.TabIndex = 19 + Me.tb_w07.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_w07.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_w02 + ' + Me.tb_w02.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_w02.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "m02", True)) + Me.tb_w02.Location = New System.Drawing.Point(107, 32) + Me.tb_w02.Name = "tb_w02" + Me.tb_w02.NectControl = Nothing + Me.tb_w02.Size = New System.Drawing.Size(95, 21) + Me.tb_w02.TabIndex = 9 + Me.tb_w02.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_w02.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_wnan + ' + Me.tb_wnan.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.tb_wnan.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_wnan.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "난방기", True)) + Me.tb_wnan.Location = New System.Drawing.Point(133, 19) + Me.tb_wnan.Name = "tb_wnan" + Me.tb_wnan.NectControl = Nothing + Me.tb_wnan.Size = New System.Drawing.Size(111, 21) + Me.tb_wnan.TabIndex = 3 + Me.tb_wnan.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_wnan.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_wnaen + ' + Me.tb_wnaen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_wnaen.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "냉방기", True)) + Me.tb_wnaen.Location = New System.Drawing.Point(133, 44) + Me.tb_wnaen.Name = "tb_wnaen" + Me.tb_wnaen.NectControl = Nothing + Me.tb_wnaen.Size = New System.Drawing.Size(111, 21) + Me.tb_wnaen.TabIndex = 5 + Me.tb_wnaen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tb_wnaen.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_v1 + ' + Me.tb_v1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_v1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_ilsa, "m01", True)) + Me.tb_v1.Dock = System.Windows.Forms.DockStyle.Fill + Me.tb_v1.Location = New System.Drawing.Point(112, 4) + Me.tb_v1.Name = "tb_v1" + Me.tb_v1.NectControl = Nothing + Me.tb_v1.Size = New System.Drawing.Size(332, 21) + Me.tb_v1.TabIndex = 3 + Me.tb_v1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_v6 + ' + Me.tb_v6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_v6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_ilsa, "m06", True)) + Me.tb_v6.Dock = System.Windows.Forms.DockStyle.Fill + Me.tb_v6.Location = New System.Drawing.Point(112, 144) + Me.tb_v6.Name = "tb_v6" + Me.tb_v6.NectControl = Nothing + Me.tb_v6.Size = New System.Drawing.Size(332, 21) + Me.tb_v6.TabIndex = 13 + Me.tb_v6.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_v5 + ' + Me.tb_v5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_v5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_ilsa, "m05", True)) + Me.tb_v5.Dock = System.Windows.Forms.DockStyle.Fill + Me.tb_v5.Location = New System.Drawing.Point(112, 116) + Me.tb_v5.Name = "tb_v5" + Me.tb_v5.NectControl = Nothing + Me.tb_v5.Size = New System.Drawing.Size(332, 21) + Me.tb_v5.TabIndex = 11 + Me.tb_v5.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_v4 + ' + Me.tb_v4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_v4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_ilsa, "m04", True)) + Me.tb_v4.Dock = System.Windows.Forms.DockStyle.Fill + Me.tb_v4.Location = New System.Drawing.Point(112, 88) + Me.tb_v4.Name = "tb_v4" + Me.tb_v4.NectControl = Nothing + Me.tb_v4.Size = New System.Drawing.Size(332, 21) + Me.tb_v4.TabIndex = 9 + Me.tb_v4.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_v2 + ' + Me.tb_v2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_v2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_ilsa, "m02", True)) + Me.tb_v2.Dock = System.Windows.Forms.DockStyle.Fill + Me.tb_v2.Location = New System.Drawing.Point(112, 32) + Me.tb_v2.Name = "tb_v2" + Me.tb_v2.NectControl = Nothing + Me.tb_v2.Size = New System.Drawing.Size(332, 21) + Me.tb_v2.TabIndex = 5 + Me.tb_v2.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_v3 + ' + Me.tb_v3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_v3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_ilsa, "m03", True)) + Me.tb_v3.Dock = System.Windows.Forms.DockStyle.Fill + Me.tb_v3.Location = New System.Drawing.Point(112, 60) + Me.tb_v3.Name = "tb_v3" + Me.tb_v3.NectControl = Nothing + Me.tb_v3.Size = New System.Drawing.Size(332, 21) + Me.tb_v3.TabIndex = 7 + Me.tb_v3.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_v7 + ' + Me.tb_v7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_v7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_ilsa, "m07", True)) + Me.tb_v7.Dock = System.Windows.Forms.DockStyle.Fill + Me.tb_v7.Location = New System.Drawing.Point(112, 172) + Me.tb_v7.Name = "tb_v7" + Me.tb_v7.NectControl = Nothing + Me.tb_v7.Size = New System.Drawing.Size(332, 21) + Me.tb_v7.TabIndex = 15 + Me.tb_v7.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_v8 + ' + Me.tb_v8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_v8.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_ilsa, "m08", True)) + Me.tb_v8.Dock = System.Windows.Forms.DockStyle.Fill + Me.tb_v8.Location = New System.Drawing.Point(112, 200) + Me.tb_v8.Name = "tb_v8" + Me.tb_v8.NectControl = Nothing + Me.tb_v8.Size = New System.Drawing.Size(332, 21) + Me.tb_v8.TabIndex = 17 + Me.tb_v8.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_v9 + ' + Me.tb_v9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_v9.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_ilsa, "m09", True)) + Me.tb_v9.Dock = System.Windows.Forms.DockStyle.Fill + Me.tb_v9.Location = New System.Drawing.Point(112, 228) + Me.tb_v9.Name = "tb_v9" + Me.tb_v9.NectControl = Nothing + Me.tb_v9.Size = New System.Drawing.Size(332, 21) + Me.tb_v9.TabIndex = 19 + Me.tb_v9.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_v10 + ' + Me.tb_v10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_v10.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_ilsa, "m10", True)) + Me.tb_v10.Dock = System.Windows.Forms.DockStyle.Fill + Me.tb_v10.Location = New System.Drawing.Point(112, 256) + Me.tb_v10.Name = "tb_v10" + Me.tb_v10.NectControl = Nothing + Me.tb_v10.Size = New System.Drawing.Size(332, 21) + Me.tb_v10.TabIndex = 21 + Me.tb_v10.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_v11 + ' + Me.tb_v11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_v11.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_ilsa, "m11", True)) + Me.tb_v11.Dock = System.Windows.Forms.DockStyle.Fill + Me.tb_v11.Location = New System.Drawing.Point(112, 284) + Me.tb_v11.Name = "tb_v11" + Me.tb_v11.NectControl = Nothing + Me.tb_v11.Size = New System.Drawing.Size(332, 21) + Me.tb_v11.TabIndex = 23 + Me.tb_v11.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_v12 + ' + Me.tb_v12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_v12.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_ilsa, "m12", True)) + Me.tb_v12.Dock = System.Windows.Forms.DockStyle.Fill + Me.tb_v12.Location = New System.Drawing.Point(112, 312) + Me.tb_v12.Name = "tb_v12" + Me.tb_v12.NectControl = Nothing + Me.tb_v12.Size = New System.Drawing.Size(332, 21) + Me.tb_v12.TabIndex = 31 + Me.tb_v12.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_v0 + ' + Me.tb_v0.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.tb_v0.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_v0.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_ilsa, "최대부하", True)) + Me.tb_v0.Location = New System.Drawing.Point(147, 19) + Me.tb_v0.Name = "tb_v0" + Me.tb_v0.NectControl = Nothing + Me.tb_v0.Size = New System.Drawing.Size(257, 21) + Me.tb_v0.TabIndex = 1 + Me.tb_v0.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t18 + ' + Me.tb_t18.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_t18.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t18", True)) + Me.tb_t18.Location = New System.Drawing.Point(228, 144) + Me.tb_t18.Name = "tb_t18" + Me.tb_t18.NectControl = Nothing + Me.tb_t18.Size = New System.Drawing.Size(79, 21) + Me.tb_t18.TabIndex = 35 + Me.tb_t18.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t1 + ' + Me.tb_t1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.tb_t1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_t1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t01", True)) + Me.tb_t1.Location = New System.Drawing.Point(43, 4) + Me.tb_t1.Name = "tb_t1" + Me.tb_t1.NectControl = Nothing + Me.tb_t1.Size = New System.Drawing.Size(139, 21) + Me.tb_t1.TabIndex = 1 + Me.tb_t1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t17 + ' + Me.tb_t17.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_t17.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t17", True)) + Me.tb_t17.Location = New System.Drawing.Point(228, 116) + Me.tb_t17.Name = "tb_t17" + Me.tb_t17.NectControl = Nothing + Me.tb_t17.Size = New System.Drawing.Size(79, 21) + Me.tb_t17.TabIndex = 33 + Me.tb_t17.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t16 + ' + Me.tb_t16.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_t16.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t16", True)) + Me.tb_t16.Location = New System.Drawing.Point(228, 88) + Me.tb_t16.Name = "tb_t16" + Me.tb_t16.NectControl = Nothing + Me.tb_t16.Size = New System.Drawing.Size(79, 21) + Me.tb_t16.TabIndex = 31 + Me.tb_t16.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t15 + ' + Me.tb_t15.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_t15.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t15", True)) + Me.tb_t15.Location = New System.Drawing.Point(228, 60) + Me.tb_t15.Name = "tb_t15" + Me.tb_t15.NectControl = Nothing + Me.tb_t15.Size = New System.Drawing.Size(79, 21) + Me.tb_t15.TabIndex = 29 + Me.tb_t15.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t14 + ' + Me.tb_t14.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_t14.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t14", True)) + Me.tb_t14.Location = New System.Drawing.Point(228, 32) + Me.tb_t14.Name = "tb_t14" + Me.tb_t14.NectControl = Nothing + Me.tb_t14.Size = New System.Drawing.Size(79, 21) + Me.tb_t14.TabIndex = 27 + Me.tb_t14.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t2 + ' + Me.tb_t2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_t2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t02", True)) + Me.tb_t2.Location = New System.Drawing.Point(43, 32) + Me.tb_t2.Name = "tb_t2" + Me.tb_t2.NectControl = Nothing + Me.tb_t2.Size = New System.Drawing.Size(79, 21) + Me.tb_t2.TabIndex = 3 + Me.tb_t2.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t13 + ' + Me.tb_t13.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_t13.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t13", True)) + Me.tb_t13.Location = New System.Drawing.Point(228, 4) + Me.tb_t13.Name = "tb_t13" + Me.tb_t13.NectControl = Nothing + Me.tb_t13.Size = New System.Drawing.Size(79, 21) + Me.tb_t13.TabIndex = 25 + Me.tb_t13.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t6 + ' + Me.tb_t6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_t6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t06", True)) + Me.tb_t6.Location = New System.Drawing.Point(43, 144) + Me.tb_t6.Name = "tb_t6" + Me.tb_t6.NectControl = Nothing + Me.tb_t6.Size = New System.Drawing.Size(79, 21) + Me.tb_t6.TabIndex = 11 + Me.tb_t6.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t19 + ' + Me.tb_t19.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_t19.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t19", True)) + Me.tb_t19.Location = New System.Drawing.Point(228, 172) + Me.tb_t19.Name = "tb_t19" + Me.tb_t19.NectControl = Nothing + Me.tb_t19.Size = New System.Drawing.Size(79, 21) + Me.tb_t19.TabIndex = 37 + Me.tb_t19.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t5 + ' + Me.tb_t5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_t5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t05", True)) + Me.tb_t5.Location = New System.Drawing.Point(43, 116) + Me.tb_t5.Name = "tb_t5" + Me.tb_t5.NectControl = Nothing + Me.tb_t5.Size = New System.Drawing.Size(79, 21) + Me.tb_t5.TabIndex = 9 + Me.tb_t5.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t20 + ' + Me.tb_t20.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_t20.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t20", True)) + Me.tb_t20.Location = New System.Drawing.Point(228, 200) + Me.tb_t20.Name = "tb_t20" + Me.tb_t20.NectControl = Nothing + Me.tb_t20.Size = New System.Drawing.Size(79, 21) + Me.tb_t20.TabIndex = 39 + Me.tb_t20.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t4 + ' + Me.tb_t4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_t4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t04", True)) + Me.tb_t4.Location = New System.Drawing.Point(43, 88) + Me.tb_t4.Name = "tb_t4" + Me.tb_t4.NectControl = Nothing + Me.tb_t4.Size = New System.Drawing.Size(79, 21) + Me.tb_t4.TabIndex = 7 + Me.tb_t4.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t21 + ' + Me.tb_t21.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_t21.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t21", True)) + Me.tb_t21.Location = New System.Drawing.Point(228, 228) + Me.tb_t21.Name = "tb_t21" + Me.tb_t21.NectControl = Nothing + Me.tb_t21.Size = New System.Drawing.Size(79, 21) + Me.tb_t21.TabIndex = 41 + Me.tb_t21.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t3 + ' + Me.tb_t3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_t3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t03", True)) + Me.tb_t3.Location = New System.Drawing.Point(43, 60) + Me.tb_t3.Name = "tb_t3" + Me.tb_t3.NectControl = Nothing + Me.tb_t3.Size = New System.Drawing.Size(79, 21) + Me.tb_t3.TabIndex = 5 + Me.tb_t3.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t22 + ' + Me.tb_t22.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_t22.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t22", True)) + Me.tb_t22.Location = New System.Drawing.Point(228, 256) + Me.tb_t22.Name = "tb_t22" + Me.tb_t22.NectControl = Nothing + Me.tb_t22.Size = New System.Drawing.Size(79, 21) + Me.tb_t22.TabIndex = 43 + Me.tb_t22.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t23 + ' + Me.tb_t23.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_t23.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t23", True)) + Me.tb_t23.Location = New System.Drawing.Point(228, 284) + Me.tb_t23.Name = "tb_t23" + Me.tb_t23.NectControl = Nothing + Me.tb_t23.Size = New System.Drawing.Size(79, 21) + Me.tb_t23.TabIndex = 45 + Me.tb_t23.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t12 + ' + Me.tb_t12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_t12.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t12", True)) + Me.tb_t12.Location = New System.Drawing.Point(43, 312) + Me.tb_t12.Name = "tb_t12" + Me.tb_t12.NectControl = Nothing + Me.tb_t12.Size = New System.Drawing.Size(79, 21) + Me.tb_t12.TabIndex = 23 + Me.tb_t12.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t24 + ' + Me.tb_t24.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_t24.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t24", True)) + Me.tb_t24.Location = New System.Drawing.Point(228, 312) + Me.tb_t24.Name = "tb_t24" + Me.tb_t24.NectControl = Nothing + Me.tb_t24.Size = New System.Drawing.Size(79, 21) + Me.tb_t24.TabIndex = 47 + Me.tb_t24.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t11 + ' + Me.tb_t11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_t11.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t11", True)) + Me.tb_t11.Location = New System.Drawing.Point(43, 284) + Me.tb_t11.Name = "tb_t11" + Me.tb_t11.NectControl = Nothing + Me.tb_t11.Size = New System.Drawing.Size(79, 21) + Me.tb_t11.TabIndex = 21 + Me.tb_t11.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t10 + ' + Me.tb_t10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_t10.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t10", True)) + Me.tb_t10.Location = New System.Drawing.Point(43, 256) + Me.tb_t10.Name = "tb_t10" + Me.tb_t10.NectControl = Nothing + Me.tb_t10.Size = New System.Drawing.Size(79, 21) + Me.tb_t10.TabIndex = 19 + Me.tb_t10.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t9 + ' + Me.tb_t9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_t9.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t09", True)) + Me.tb_t9.Location = New System.Drawing.Point(43, 228) + Me.tb_t9.Name = "tb_t9" + Me.tb_t9.NectControl = Nothing + Me.tb_t9.Size = New System.Drawing.Size(79, 21) + Me.tb_t9.TabIndex = 17 + Me.tb_t9.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t8 + ' + Me.tb_t8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_t8.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t08", True)) + Me.tb_t8.Location = New System.Drawing.Point(43, 200) + Me.tb_t8.Name = "tb_t8" + Me.tb_t8.NectControl = Nothing + Me.tb_t8.Size = New System.Drawing.Size(79, 21) + Me.tb_t8.TabIndex = 15 + Me.tb_t8.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_t7 + ' + Me.tb_t7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_t7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_temp, "t07", True)) + Me.tb_t7.Location = New System.Drawing.Point(43, 172) + Me.tb_t7.Name = "tb_t7" + Me.tb_t7.NectControl = Nothing + Me.tb_t7.Size = New System.Drawing.Size(79, 21) + Me.tb_t7.TabIndex = 13 + Me.tb_t7.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_s24 + ' + Me.tb_s24.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_s24.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t24", True)) + Me.tb_s24.Location = New System.Drawing.Point(218, 312) + Me.tb_s24.Name = "tb_s24" + Me.tb_s24.NectControl = Nothing + Me.tb_s24.Size = New System.Drawing.Size(79, 21) + Me.tb_s24.TabIndex = 11 + Me.tb_s24.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_S12 + ' + Me.tb_S12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_S12.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t12", True)) + Me.tb_S12.Location = New System.Drawing.Point(43, 312) + Me.tb_S12.Name = "tb_S12" + Me.tb_S12.NectControl = Nothing + Me.tb_S12.Size = New System.Drawing.Size(79, 21) + Me.tb_S12.TabIndex = 11 + Me.tb_S12.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_s23 + ' + Me.tb_s23.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_s23.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t23", True)) + Me.tb_s23.Location = New System.Drawing.Point(218, 284) + Me.tb_s23.Name = "tb_s23" + Me.tb_s23.NectControl = Nothing + Me.tb_s23.Size = New System.Drawing.Size(79, 21) + Me.tb_s23.TabIndex = 10 + Me.tb_s23.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_s22 + ' + Me.tb_s22.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_s22.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t22", True)) + Me.tb_s22.Location = New System.Drawing.Point(218, 256) + Me.tb_s22.Name = "tb_s22" + Me.tb_s22.NectControl = Nothing + Me.tb_s22.Size = New System.Drawing.Size(79, 21) + Me.tb_s22.TabIndex = 9 + Me.tb_s22.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_s11 + ' + Me.tb_s11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_s11.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t11", True)) + Me.tb_s11.Location = New System.Drawing.Point(43, 284) + Me.tb_s11.Name = "tb_s11" + Me.tb_s11.NectControl = Nothing + Me.tb_s11.Size = New System.Drawing.Size(79, 21) + Me.tb_s11.TabIndex = 10 + Me.tb_s11.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_s21 + ' + Me.tb_s21.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_s21.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t21", True)) + Me.tb_s21.Location = New System.Drawing.Point(218, 228) + Me.tb_s21.Name = "tb_s21" + Me.tb_s21.NectControl = Nothing + Me.tb_s21.Size = New System.Drawing.Size(79, 21) + Me.tb_s21.TabIndex = 8 + Me.tb_s21.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_s1 + ' + Me.tb_s1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.tb_s1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_s1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t01", True)) + Me.tb_s1.Location = New System.Drawing.Point(43, 4) + Me.tb_s1.Name = "tb_s1" + Me.tb_s1.NectControl = Nothing + Me.tb_s1.Size = New System.Drawing.Size(129, 21) + Me.tb_s1.TabIndex = 0 + Me.tb_s1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_s20 + ' + Me.tb_s20.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_s20.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t20", True)) + Me.tb_s20.Location = New System.Drawing.Point(218, 200) + Me.tb_s20.Name = "tb_s20" + Me.tb_s20.NectControl = Nothing + Me.tb_s20.Size = New System.Drawing.Size(79, 21) + Me.tb_s20.TabIndex = 7 + Me.tb_s20.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_s10 + ' + Me.tb_s10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_s10.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t10", True)) + Me.tb_s10.Location = New System.Drawing.Point(43, 256) + Me.tb_s10.Name = "tb_s10" + Me.tb_s10.NectControl = Nothing + Me.tb_s10.Size = New System.Drawing.Size(79, 21) + Me.tb_s10.TabIndex = 9 + Me.tb_s10.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_s19 + ' + Me.tb_s19.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_s19.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t19", True)) + Me.tb_s19.Location = New System.Drawing.Point(218, 172) + Me.tb_s19.Name = "tb_s19" + Me.tb_s19.NectControl = Nothing + Me.tb_s19.Size = New System.Drawing.Size(79, 21) + Me.tb_s19.TabIndex = 6 + Me.tb_s19.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_s3 + ' + Me.tb_s3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_s3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t03", True)) + Me.tb_s3.Location = New System.Drawing.Point(43, 60) + Me.tb_s3.Name = "tb_s3" + Me.tb_s3.NectControl = Nothing + Me.tb_s3.Size = New System.Drawing.Size(79, 21) + Me.tb_s3.TabIndex = 2 + Me.tb_s3.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_s18 + ' + Me.tb_s18.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_s18.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t18", True)) + Me.tb_s18.Location = New System.Drawing.Point(218, 144) + Me.tb_s18.Name = "tb_s18" + Me.tb_s18.NectControl = Nothing + Me.tb_s18.Size = New System.Drawing.Size(79, 21) + Me.tb_s18.TabIndex = 5 + Me.tb_s18.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_s9 + ' + Me.tb_s9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_s9.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t09", True)) + Me.tb_s9.Location = New System.Drawing.Point(43, 228) + Me.tb_s9.Name = "tb_s9" + Me.tb_s9.NectControl = Nothing + Me.tb_s9.Size = New System.Drawing.Size(79, 21) + Me.tb_s9.TabIndex = 8 + Me.tb_s9.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_s2 + ' + Me.tb_s2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_s2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t02", True)) + Me.tb_s2.Location = New System.Drawing.Point(43, 32) + Me.tb_s2.Name = "tb_s2" + Me.tb_s2.NectControl = Nothing + Me.tb_s2.Size = New System.Drawing.Size(79, 21) + Me.tb_s2.TabIndex = 1 + Me.tb_s2.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_s17 + ' + Me.tb_s17.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_s17.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t17", True)) + Me.tb_s17.Location = New System.Drawing.Point(218, 116) + Me.tb_s17.Name = "tb_s17" + Me.tb_s17.NectControl = Nothing + Me.tb_s17.Size = New System.Drawing.Size(79, 21) + Me.tb_s17.TabIndex = 4 + Me.tb_s17.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_s16 + ' + Me.tb_s16.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_s16.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t16", True)) + Me.tb_s16.Location = New System.Drawing.Point(218, 88) + Me.tb_s16.Name = "tb_s16" + Me.tb_s16.NectControl = Nothing + Me.tb_s16.Size = New System.Drawing.Size(79, 21) + Me.tb_s16.TabIndex = 3 + Me.tb_s16.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_s8 + ' + Me.tb_s8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_s8.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t08", True)) + Me.tb_s8.Location = New System.Drawing.Point(43, 200) + Me.tb_s8.Name = "tb_s8" + Me.tb_s8.NectControl = Nothing + Me.tb_s8.Size = New System.Drawing.Size(79, 21) + Me.tb_s8.TabIndex = 7 + Me.tb_s8.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_s15 + ' + Me.tb_s15.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_s15.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t15", True)) + Me.tb_s15.Location = New System.Drawing.Point(218, 60) + Me.tb_s15.Name = "tb_s15" + Me.tb_s15.NectControl = Nothing + Me.tb_s15.Size = New System.Drawing.Size(79, 21) + Me.tb_s15.TabIndex = 2 + Me.tb_s15.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_s14 + ' + Me.tb_s14.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_s14.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t14", True)) + Me.tb_s14.Location = New System.Drawing.Point(218, 32) + Me.tb_s14.Name = "tb_s14" + Me.tb_s14.NectControl = Nothing + Me.tb_s14.Size = New System.Drawing.Size(79, 21) + Me.tb_s14.TabIndex = 1 + Me.tb_s14.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_s4 + ' + Me.tb_s4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_s4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t04", True)) + Me.tb_s4.Location = New System.Drawing.Point(43, 88) + Me.tb_s4.Name = "tb_s4" + Me.tb_s4.NectControl = Nothing + Me.tb_s4.Size = New System.Drawing.Size(79, 21) + Me.tb_s4.TabIndex = 3 + Me.tb_s4.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_s13 + ' + Me.tb_s13.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_s13.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t13", True)) + Me.tb_s13.Location = New System.Drawing.Point(218, 4) + Me.tb_s13.Name = "tb_s13" + Me.tb_s13.NectControl = Nothing + Me.tb_s13.Size = New System.Drawing.Size(79, 21) + Me.tb_s13.TabIndex = 0 + Me.tb_s13.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_s7 + ' + Me.tb_s7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_s7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t07", True)) + Me.tb_s7.Location = New System.Drawing.Point(43, 172) + Me.tb_s7.Name = "tb_s7" + Me.tb_s7.NectControl = Nothing + Me.tb_s7.Size = New System.Drawing.Size(79, 21) + Me.tb_s7.TabIndex = 6 + Me.tb_s7.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_s5 + ' + Me.tb_s5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_s5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t05", True)) + Me.tb_s5.Location = New System.Drawing.Point(43, 116) + Me.tb_s5.Name = "tb_s5" + Me.tb_s5.NectControl = Nothing + Me.tb_s5.Size = New System.Drawing.Size(79, 21) + Me.tb_s5.TabIndex = 4 + Me.tb_s5.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_s6 + ' + Me.tb_s6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_s6.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_supdo, "t06", True)) + Me.tb_s6.Location = New System.Drawing.Point(43, 144) + Me.tb_s6.Name = "tb_s6" + Me.tb_s6.NectControl = Nothing + Me.tb_s6.Size = New System.Drawing.Size(79, 21) + Me.tb_s6.TabIndex = 5 + Me.tb_s6.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_c12 + ' + Me.tb_c12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_c12.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_cha, "m12", True)) + Me.tb_c12.Location = New System.Drawing.Point(218, 144) + Me.tb_c12.Name = "tb_c12" + Me.tb_c12.NectControl = Nothing + Me.tb_c12.Size = New System.Drawing.Size(79, 21) + Me.tb_c12.TabIndex = 31 + Me.tb_c12.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_c11 + ' + Me.tb_c11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_c11.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_cha, "m11", True)) + Me.tb_c11.Location = New System.Drawing.Point(218, 116) + Me.tb_c11.Name = "tb_c11" + Me.tb_c11.NectControl = Nothing + Me.tb_c11.Size = New System.Drawing.Size(79, 21) + Me.tb_c11.TabIndex = 23 + Me.tb_c11.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_c01 + ' + Me.tb_c01.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.tb_c01.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_c01.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_cha, "m01", True)) + Me.tb_c01.Location = New System.Drawing.Point(43, 4) + Me.tb_c01.Name = "tb_c01" + Me.tb_c01.NectControl = Nothing + Me.tb_c01.Size = New System.Drawing.Size(129, 21) + Me.tb_c01.TabIndex = 3 + Me.tb_c01.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_c06 + ' + Me.tb_c06.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_c06.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_cha, "m06", True)) + Me.tb_c06.Location = New System.Drawing.Point(43, 144) + Me.tb_c06.Name = "tb_c06" + Me.tb_c06.NectControl = Nothing + Me.tb_c06.Size = New System.Drawing.Size(79, 21) + Me.tb_c06.TabIndex = 13 + Me.tb_c06.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_c10 + ' + Me.tb_c10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_c10.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_cha, "m10", True)) + Me.tb_c10.Location = New System.Drawing.Point(218, 88) + Me.tb_c10.Name = "tb_c10" + Me.tb_c10.NectControl = Nothing + Me.tb_c10.Size = New System.Drawing.Size(79, 21) + Me.tb_c10.TabIndex = 21 + Me.tb_c10.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_c09 + ' + Me.tb_c09.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_c09.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_cha, "m09", True)) + Me.tb_c09.Location = New System.Drawing.Point(218, 60) + Me.tb_c09.Name = "tb_c09" + Me.tb_c09.NectControl = Nothing + Me.tb_c09.Size = New System.Drawing.Size(79, 21) + Me.tb_c09.TabIndex = 19 + Me.tb_c09.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_c05 + ' + Me.tb_c05.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_c05.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_cha, "m05", True)) + Me.tb_c05.Location = New System.Drawing.Point(43, 116) + Me.tb_c05.Name = "tb_c05" + Me.tb_c05.NectControl = Nothing + Me.tb_c05.Size = New System.Drawing.Size(79, 21) + Me.tb_c05.TabIndex = 11 + Me.tb_c05.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_c08 + ' + Me.tb_c08.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_c08.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_cha, "m08", True)) + Me.tb_c08.Location = New System.Drawing.Point(218, 32) + Me.tb_c08.Name = "tb_c08" + Me.tb_c08.NectControl = Nothing + Me.tb_c08.Size = New System.Drawing.Size(79, 21) + Me.tb_c08.TabIndex = 17 + Me.tb_c08.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_c04 + ' + Me.tb_c04.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_c04.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_cha, "m04", True)) + Me.tb_c04.Location = New System.Drawing.Point(43, 88) + Me.tb_c04.Name = "tb_c04" + Me.tb_c04.NectControl = Nothing + Me.tb_c04.Size = New System.Drawing.Size(79, 21) + Me.tb_c04.TabIndex = 9 + Me.tb_c04.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_c07 + ' + Me.tb_c07.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_c07.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_cha, "m07", True)) + Me.tb_c07.Location = New System.Drawing.Point(218, 4) + Me.tb_c07.Name = "tb_c07" + Me.tb_c07.NectControl = Nothing + Me.tb_c07.Size = New System.Drawing.Size(79, 21) + Me.tb_c07.TabIndex = 15 + Me.tb_c07.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_c02 + ' + Me.tb_c02.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_c02.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_cha, "m02", True)) + Me.tb_c02.Location = New System.Drawing.Point(43, 32) + Me.tb_c02.Name = "tb_c02" + Me.tb_c02.NectControl = Nothing + Me.tb_c02.Size = New System.Drawing.Size(79, 21) + Me.tb_c02.TabIndex = 5 + Me.tb_c02.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tb_c03 + ' + Me.tb_c03.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_c03.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_cha, "m03", True)) + Me.tb_c03.Location = New System.Drawing.Point(43, 60) + Me.tb_c03.Name = "tb_c03" + Me.tb_c03.NectControl = Nothing + Me.tb_c03.Size = New System.Drawing.Size(79, 21) + Me.tb_c03.TabIndex = 7 + Me.tb_c03.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'MyTb1 + ' + Me.MyTb1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.MyTb1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_wind, "code", True)) + Me.MyTb1.Location = New System.Drawing.Point(65, 304) + Me.MyTb1.Name = "MyTb1" + Me.MyTb1.NectControl = Nothing + Me.MyTb1.Size = New System.Drawing.Size(95, 21) + Me.MyTb1.TabIndex = 126 + Me.MyTb1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.MyTb1.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'MyTb2 + ' + Me.MyTb2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.MyTb2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_wind, "pcode", True)) + Me.MyTb2.Location = New System.Drawing.Point(65, 276) + Me.MyTb2.Name = "MyTb2" + Me.MyTb2.NectControl = Nothing + Me.MyTb2.Size = New System.Drawing.Size(95, 21) + Me.MyTb2.TabIndex = 125 + Me.MyTb2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.MyTb2.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbwi12 + ' + Me.tbwi12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbwi12.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_wind, "m12", True)) + Me.tbwi12.Location = New System.Drawing.Point(307, 144) + Me.tbwi12.Name = "tbwi12" + Me.tbwi12.NectControl = Nothing + Me.tbwi12.Size = New System.Drawing.Size(95, 21) + Me.tbwi12.TabIndex = 29 + Me.tbwi12.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbwi12.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbwi11 + ' + Me.tbwi11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbwi11.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_wind, "m11", True)) + Me.tbwi11.Location = New System.Drawing.Point(307, 116) + Me.tbwi11.Name = "tbwi11" + Me.tbwi11.NectControl = Nothing + Me.tbwi11.Size = New System.Drawing.Size(95, 21) + Me.tbwi11.TabIndex = 27 + Me.tbwi11.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbwi11.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbwi10 + ' + Me.tbwi10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbwi10.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_wind, "m10", True)) + Me.tbwi10.Location = New System.Drawing.Point(307, 88) + Me.tbwi10.Name = "tbwi10" + Me.tbwi10.NectControl = Nothing + Me.tbwi10.Size = New System.Drawing.Size(95, 21) + Me.tbwi10.TabIndex = 25 + Me.tbwi10.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbwi10.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbwi06 + ' + Me.tbwi06.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbwi06.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_wind, "m06", True)) + Me.tbwi06.Location = New System.Drawing.Point(107, 144) + Me.tbwi06.Name = "tbwi06" + Me.tbwi06.NectControl = Nothing + Me.tbwi06.Size = New System.Drawing.Size(95, 21) + Me.tbwi06.TabIndex = 17 + Me.tbwi06.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbwi06.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbwi09 + ' + Me.tbwi09.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbwi09.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_wind, "m09", True)) + Me.tbwi09.Location = New System.Drawing.Point(307, 60) + Me.tbwi09.Name = "tbwi09" + Me.tbwi09.NectControl = Nothing + Me.tbwi09.Size = New System.Drawing.Size(95, 21) + Me.tbwi09.TabIndex = 23 + Me.tbwi09.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbwi09.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbwi05 + ' + Me.tbwi05.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbwi05.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_wind, "m05", True)) + Me.tbwi05.Location = New System.Drawing.Point(107, 116) + Me.tbwi05.Name = "tbwi05" + Me.tbwi05.NectControl = Nothing + Me.tbwi05.Size = New System.Drawing.Size(95, 21) + Me.tbwi05.TabIndex = 15 + Me.tbwi05.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbwi05.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbwi04 + ' + Me.tbwi04.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbwi04.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_wind, "m04", True)) + Me.tbwi04.Location = New System.Drawing.Point(107, 88) + Me.tbwi04.Name = "tbwi04" + Me.tbwi04.NectControl = Nothing + Me.tbwi04.Size = New System.Drawing.Size(95, 21) + Me.tbwi04.TabIndex = 13 + Me.tbwi04.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbwi04.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbwi08 + ' + Me.tbwi08.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbwi08.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_wind, "m08", True)) + Me.tbwi08.Location = New System.Drawing.Point(307, 32) + Me.tbwi08.Name = "tbwi08" + Me.tbwi08.NectControl = Nothing + Me.tbwi08.Size = New System.Drawing.Size(95, 21) + Me.tbwi08.TabIndex = 21 + Me.tbwi08.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbwi08.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbwi01 + ' + Me.tbwi01.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.tbwi01.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbwi01.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_wind, "m01", True)) + Me.tbwi01.Location = New System.Drawing.Point(107, 4) + Me.tbwi01.Name = "tbwi01" + Me.tbwi01.NectControl = Nothing + Me.tbwi01.Size = New System.Drawing.Size(95, 21) + Me.tbwi01.TabIndex = 7 + Me.tbwi01.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbwi01.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbwi03 + ' + Me.tbwi03.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbwi03.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_wind, "m03", True)) + Me.tbwi03.Location = New System.Drawing.Point(107, 60) + Me.tbwi03.Name = "tbwi03" + Me.tbwi03.NectControl = Nothing + Me.tbwi03.Size = New System.Drawing.Size(95, 21) + Me.tbwi03.TabIndex = 11 + Me.tbwi03.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbwi03.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbwi07 + ' + Me.tbwi07.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbwi07.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_wind, "m07", True)) + Me.tbwi07.Location = New System.Drawing.Point(307, 4) + Me.tbwi07.Name = "tbwi07" + Me.tbwi07.NectControl = Nothing + Me.tbwi07.Size = New System.Drawing.Size(95, 21) + Me.tbwi07.TabIndex = 19 + Me.tbwi07.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbwi07.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbwi02 + ' + Me.tbwi02.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbwi02.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_wind, "m02", True)) + Me.tbwi02.Location = New System.Drawing.Point(107, 32) + Me.tbwi02.Name = "tbwi02" + Me.tbwi02.NectControl = Nothing + Me.tbwi02.Size = New System.Drawing.Size(95, 21) + Me.tbwi02.TabIndex = 9 + Me.tbwi02.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbwi02.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbr12 + ' + Me.tbr12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbr12.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_river, "m12", True)) + Me.tbr12.Location = New System.Drawing.Point(359, 144) + Me.tbr12.Name = "tbr12" + Me.tbr12.NectControl = Nothing + Me.tbr12.Size = New System.Drawing.Size(95, 21) + Me.tbr12.TabIndex = 29 + Me.tbr12.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbr12.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbr11 + ' + Me.tbr11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbr11.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_river, "m11", True)) + Me.tbr11.Location = New System.Drawing.Point(359, 116) + Me.tbr11.Name = "tbr11" + Me.tbr11.NectControl = Nothing + Me.tbr11.Size = New System.Drawing.Size(95, 21) + Me.tbr11.TabIndex = 27 + Me.tbr11.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbr11.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbr10 + ' + Me.tbr10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbr10.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_river, "m10", True)) + Me.tbr10.Location = New System.Drawing.Point(359, 88) + Me.tbr10.Name = "tbr10" + Me.tbr10.NectControl = Nothing + Me.tbr10.Size = New System.Drawing.Size(95, 21) + Me.tbr10.TabIndex = 25 + Me.tbr10.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbr10.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbr06 + ' + Me.tbr06.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbr06.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_river, "m06", True)) + Me.tbr06.Location = New System.Drawing.Point(128, 144) + Me.tbr06.Name = "tbr06" + Me.tbr06.NectControl = Nothing + Me.tbr06.Size = New System.Drawing.Size(86, 21) + Me.tbr06.TabIndex = 17 + Me.tbr06.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbr06.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbr09 + ' + Me.tbr09.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbr09.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_river, "m09", True)) + Me.tbr09.Location = New System.Drawing.Point(359, 60) + Me.tbr09.Name = "tbr09" + Me.tbr09.NectControl = Nothing + Me.tbr09.Size = New System.Drawing.Size(95, 21) + Me.tbr09.TabIndex = 23 + Me.tbr09.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbr09.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbr05 + ' + Me.tbr05.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbr05.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_river, "m05", True)) + Me.tbr05.Location = New System.Drawing.Point(128, 116) + Me.tbr05.Name = "tbr05" + Me.tbr05.NectControl = Nothing + Me.tbr05.Size = New System.Drawing.Size(86, 21) + Me.tbr05.TabIndex = 15 + Me.tbr05.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbr05.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbr04 + ' + Me.tbr04.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbr04.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_river, "m04", True)) + Me.tbr04.Location = New System.Drawing.Point(128, 88) + Me.tbr04.Name = "tbr04" + Me.tbr04.NectControl = Nothing + Me.tbr04.Size = New System.Drawing.Size(86, 21) + Me.tbr04.TabIndex = 13 + Me.tbr04.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbr04.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbr08 + ' + Me.tbr08.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbr08.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_river, "m08", True)) + Me.tbr08.Location = New System.Drawing.Point(359, 32) + Me.tbr08.Name = "tbr08" + Me.tbr08.NectControl = Nothing + Me.tbr08.Size = New System.Drawing.Size(95, 21) + Me.tbr08.TabIndex = 21 + Me.tbr08.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbr08.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbr01 + ' + Me.tbr01.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.tbr01.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbr01.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_river, "m01", True)) + Me.tbr01.Location = New System.Drawing.Point(128, 4) + Me.tbr01.Name = "tbr01" + Me.tbr01.NectControl = Nothing + Me.tbr01.Size = New System.Drawing.Size(86, 21) + Me.tbr01.TabIndex = 7 + Me.tbr01.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbr01.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbr03 + ' + Me.tbr03.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbr03.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_river, "m03", True)) + Me.tbr03.Location = New System.Drawing.Point(128, 60) + Me.tbr03.Name = "tbr03" + Me.tbr03.NectControl = Nothing + Me.tbr03.Size = New System.Drawing.Size(86, 21) + Me.tbr03.TabIndex = 11 + Me.tbr03.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbr03.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbr07 + ' + Me.tbr07.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbr07.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_river, "m07", True)) + Me.tbr07.Location = New System.Drawing.Point(359, 4) + Me.tbr07.Name = "tbr07" + Me.tbr07.NectControl = Nothing + Me.tbr07.Size = New System.Drawing.Size(95, 21) + Me.tbr07.TabIndex = 19 + Me.tbr07.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbr07.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbr02 + ' + Me.tbr02.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbr02.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_river, "m02", True)) + Me.tbr02.Location = New System.Drawing.Point(128, 32) + Me.tbr02.Name = "tbr02" + Me.tbr02.NectControl = Nothing + Me.tbr02.Size = New System.Drawing.Size(86, 21) + Me.tbr02.TabIndex = 9 + Me.tbr02.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbr02.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbw12 + ' + Me.tbw12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbw12.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_water, "m12", True)) + Me.tbw12.Location = New System.Drawing.Point(338, 144) + Me.tbw12.Name = "tbw12" + Me.tbw12.NectControl = Nothing + Me.tbw12.Size = New System.Drawing.Size(95, 21) + Me.tbw12.TabIndex = 29 + Me.tbw12.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbw12.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbw11 + ' + Me.tbw11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbw11.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_water, "m11", True)) + Me.tbw11.Location = New System.Drawing.Point(338, 116) + Me.tbw11.Name = "tbw11" + Me.tbw11.NectControl = Nothing + Me.tbw11.Size = New System.Drawing.Size(95, 21) + Me.tbw11.TabIndex = 27 + Me.tbw11.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbw11.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbw10 + ' + Me.tbw10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbw10.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_water, "m10", True)) + Me.tbw10.Location = New System.Drawing.Point(338, 88) + Me.tbw10.Name = "tbw10" + Me.tbw10.NectControl = Nothing + Me.tbw10.Size = New System.Drawing.Size(95, 21) + Me.tbw10.TabIndex = 25 + Me.tbw10.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbw10.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbw06 + ' + Me.tbw06.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbw06.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_water, "m06", True)) + Me.tbw06.Location = New System.Drawing.Point(107, 144) + Me.tbw06.Name = "tbw06" + Me.tbw06.NectControl = Nothing + Me.tbw06.Size = New System.Drawing.Size(95, 21) + Me.tbw06.TabIndex = 17 + Me.tbw06.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbw06.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbw09 + ' + Me.tbw09.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbw09.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_water, "m09", True)) + Me.tbw09.Location = New System.Drawing.Point(338, 60) + Me.tbw09.Name = "tbw09" + Me.tbw09.NectControl = Nothing + Me.tbw09.Size = New System.Drawing.Size(95, 21) + Me.tbw09.TabIndex = 23 + Me.tbw09.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbw09.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbw05 + ' + Me.tbw05.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbw05.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_water, "m05", True)) + Me.tbw05.Location = New System.Drawing.Point(107, 116) + Me.tbw05.Name = "tbw05" + Me.tbw05.NectControl = Nothing + Me.tbw05.Size = New System.Drawing.Size(95, 21) + Me.tbw05.TabIndex = 15 + Me.tbw05.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbw05.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbw04 + ' + Me.tbw04.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbw04.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_water, "m04", True)) + Me.tbw04.Location = New System.Drawing.Point(107, 88) + Me.tbw04.Name = "tbw04" + Me.tbw04.NectControl = Nothing + Me.tbw04.Size = New System.Drawing.Size(95, 21) + Me.tbw04.TabIndex = 13 + Me.tbw04.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbw04.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbw08 + ' + Me.tbw08.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbw08.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_water, "m08", True)) + Me.tbw08.Location = New System.Drawing.Point(338, 32) + Me.tbw08.Name = "tbw08" + Me.tbw08.NectControl = Nothing + Me.tbw08.Size = New System.Drawing.Size(95, 21) + Me.tbw08.TabIndex = 21 + Me.tbw08.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbw08.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbw01 + ' + Me.tbw01.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.tbw01.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbw01.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_water, "m01", True)) + Me.tbw01.Location = New System.Drawing.Point(107, 4) + Me.tbw01.Name = "tbw01" + Me.tbw01.NectControl = Nothing + Me.tbw01.Size = New System.Drawing.Size(95, 21) + Me.tbw01.TabIndex = 7 + Me.tbw01.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbw01.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbw03 + ' + Me.tbw03.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbw03.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_water, "m03", True)) + Me.tbw03.Location = New System.Drawing.Point(107, 60) + Me.tbw03.Name = "tbw03" + Me.tbw03.NectControl = Nothing + Me.tbw03.Size = New System.Drawing.Size(95, 21) + Me.tbw03.TabIndex = 11 + Me.tbw03.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbw03.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbw07 + ' + Me.tbw07.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbw07.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_water, "m07", True)) + Me.tbw07.Location = New System.Drawing.Point(338, 4) + Me.tbw07.Name = "tbw07" + Me.tbw07.NectControl = Nothing + Me.tbw07.Size = New System.Drawing.Size(95, 21) + Me.tbw07.TabIndex = 19 + Me.tbw07.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbw07.TextFormat = Eco2Ar.MyTb.ETFormat.Normal + ' + 'tbw02 + ' + Me.tbw02.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbw02.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bsw_water, "m02", True)) + Me.tbw02.Location = New System.Drawing.Point(107, 32) + Me.tbw02.Name = "tbw02" + Me.tbw02.NectControl = Nothing + Me.tbw02.Size = New System.Drawing.Size(95, 21) + Me.tbw02.TabIndex = 9 + Me.tbw02.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.tbw02.TextFormat = Eco2Ar.MyTb.ETFormat.Normal ' 'Frm_V20091231_Weather ' @@ -3882,9 +5112,18 @@ Partial Class Frm_V20091231_Weather Me.Name = "Frm_V20091231_Weather" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "기상 데이터" - CType(Me.bn_all, System.ComponentModel.ISupportInitialize).EndInit() - Me.bn_all.ResumeLayout(False) - Me.bn_all.PerformLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bsw_ilsa, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bsw_temp, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bsw_supdo, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bsw_cha, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bsWGDep3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bsWGDep2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bsWGDep1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bsw_wind, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bsw_river, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bsw_water, System.ComponentModel.ISupportInitialize).EndInit() Me.TabControl3.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) Me.GroupBox2.ResumeLayout(False) @@ -3892,15 +5131,12 @@ Partial Class Frm_V20091231_Weather Me.Panel3.PerformLayout() Me.TableLayoutPanel7.ResumeLayout(False) Me.TableLayoutPanel7.PerformLayout() - CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.DS1, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox1.ResumeLayout(False) Me.Panel2.ResumeLayout(False) Me.Panel2.PerformLayout() Me.TabPage8.ResumeLayout(False) Me.TableLayoutPanel4.ResumeLayout(False) CType(Me.Arindv2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.bsw_ilsa, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel4.ResumeLayout(False) Me.Panel4.PerformLayout() Me.TableLayoutPanel34.ResumeLayout(False) @@ -3911,7 +5147,6 @@ Partial Class Frm_V20091231_Weather Me.TabPage9.ResumeLayout(False) Me.TableLayoutPanel5.ResumeLayout(False) CType(Me.Arindv3, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.bsw_temp, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel7.ResumeLayout(False) Me.Panel7.PerformLayout() Me.TableLayoutPanel8.ResumeLayout(False) @@ -3922,7 +5157,6 @@ Partial Class Frm_V20091231_Weather Me.TabPage10.ResumeLayout(False) Me.TableLayoutPanel6.ResumeLayout(False) CType(Me.Arindv4, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.bsw_supdo, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel8.ResumeLayout(False) Me.Panel8.PerformLayout() Me.TableLayoutPanel9.ResumeLayout(False) @@ -3933,7 +5167,6 @@ Partial Class Frm_V20091231_Weather Me.TabPage2.ResumeLayout(False) Me.TableLayoutPanel2.ResumeLayout(False) CType(Me.Arindv1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.bsw_cha, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() Me.TableLayoutPanel1.ResumeLayout(False) @@ -3944,14 +5177,30 @@ Partial Class Frm_V20091231_Weather Me.TabPage3.ResumeLayout(False) Me.TabPage3.PerformLayout() CType(Me.dvArea3, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.bsWGDep3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dvArea2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.bsWGDep2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dvArea1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.bsWGDep1, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage4.ResumeLayout(False) + Me.TabPage4.PerformLayout() + Me.Panel5.ResumeLayout(False) + Me.Panel5.PerformLayout() + Me.TableLayoutPanel3.ResumeLayout(False) + Me.TableLayoutPanel3.PerformLayout() + Me.TabPage5.ResumeLayout(False) + Me.Panel6.ResumeLayout(False) + Me.Panel6.PerformLayout() + Me.TableLayoutPanel10.ResumeLayout(False) + Me.TableLayoutPanel10.PerformLayout() + Me.TabPage6.ResumeLayout(False) + Me.Panel9.ResumeLayout(False) + Me.Panel9.PerformLayout() + Me.TableLayoutPanel11.ResumeLayout(False) + Me.TableLayoutPanel11.PerformLayout() + CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bn_all, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn_all.ResumeLayout(False) + Me.bn_all.PerformLayout() Me.StatusStrip1.ResumeLayout(False) Me.StatusStrip1.PerformLayout() - CType(Me.dv, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -4168,4 +5417,56 @@ Partial Class Frm_V20091231_Weather Friend WithEvents ToolStripButton13 As ToolStripButton Friend WithEvents ToolStripButton8 As ToolStripButton Friend WithEvents TabPage4 As System.Windows.Forms.TabPage + Friend WithEvents Panel5 As System.Windows.Forms.Panel + Friend WithEvents TableLayoutPanel3 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents tbwi12 As Eco2Ar.MyTb + Friend WithEvents tbwi11 As Eco2Ar.MyTb + Friend WithEvents tbwi10 As Eco2Ar.MyTb + Friend WithEvents tbwi06 As Eco2Ar.MyTb + Friend WithEvents tbwi09 As Eco2Ar.MyTb + Friend WithEvents tbwi05 As Eco2Ar.MyTb + Friend WithEvents tbwi04 As Eco2Ar.MyTb + Friend WithEvents tbwi08 As Eco2Ar.MyTb + Friend WithEvents tbwi01 As Eco2Ar.MyTb + Friend WithEvents tbwi03 As Eco2Ar.MyTb + Friend WithEvents tbwi07 As Eco2Ar.MyTb + Friend WithEvents tbwi02 As Eco2Ar.MyTb + Friend WithEvents Label68 As System.Windows.Forms.Label + Friend WithEvents TabPage5 As System.Windows.Forms.TabPage + Friend WithEvents Panel6 As System.Windows.Forms.Panel + Friend WithEvents TableLayoutPanel10 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents tbr12 As Eco2Ar.MyTb + Friend WithEvents tbr11 As Eco2Ar.MyTb + Friend WithEvents tbr10 As Eco2Ar.MyTb + Friend WithEvents tbr06 As Eco2Ar.MyTb + Friend WithEvents tbr09 As Eco2Ar.MyTb + Friend WithEvents tbr05 As Eco2Ar.MyTb + Friend WithEvents tbr04 As Eco2Ar.MyTb + Friend WithEvents tbr08 As Eco2Ar.MyTb + Friend WithEvents tbr01 As Eco2Ar.MyTb + Friend WithEvents tbr03 As Eco2Ar.MyTb + Friend WithEvents tbr07 As Eco2Ar.MyTb + Friend WithEvents tbr02 As Eco2Ar.MyTb + Friend WithEvents Label106 As System.Windows.Forms.Label + Friend WithEvents bsw_wind As System.Windows.Forms.BindingSource + Friend WithEvents bsw_river As System.Windows.Forms.BindingSource + Friend WithEvents TabPage6 As System.Windows.Forms.TabPage + Friend WithEvents Panel9 As System.Windows.Forms.Panel + Friend WithEvents TableLayoutPanel11 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents tbw12 As Eco2Ar.MyTb + Friend WithEvents tbw11 As Eco2Ar.MyTb + Friend WithEvents tbw10 As Eco2Ar.MyTb + Friend WithEvents tbw06 As Eco2Ar.MyTb + Friend WithEvents tbw09 As Eco2Ar.MyTb + Friend WithEvents tbw05 As Eco2Ar.MyTb + Friend WithEvents tbw04 As Eco2Ar.MyTb + Friend WithEvents tbw08 As Eco2Ar.MyTb + Friend WithEvents tbw01 As Eco2Ar.MyTb + Friend WithEvents tbw03 As Eco2Ar.MyTb + Friend WithEvents tbw07 As Eco2Ar.MyTb + Friend WithEvents tbw02 As Eco2Ar.MyTb + Friend WithEvents Label119 As System.Windows.Forms.Label + Friend WithEvents bsw_water As System.Windows.Forms.BindingSource + Friend WithEvents MyTb1 As Eco2Ar.MyTb + Friend WithEvents MyTb2 As Eco2Ar.MyTb End Class diff --git a/ArinWarev1/Forms_Input/Frm_v20091231_Weather.resx b/ArinWarev1/Forms_Input/Frm_v20091231_Weather.resx index 9e21749..abee4c4 100644 --- a/ArinWarev1/Forms_Input/Frm_v20091231_Weather.resx +++ b/ArinWarev1/Forms_Input/Frm_v20091231_Weather.resx @@ -117,86 +117,47 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - False + + 91, 17 - - False + + 17, 17 - - False + + 17, 17 - - False + + 155, 17 - - False + + 252, 17 - - False + + 360, 17 - - False + + 473, 17 - - False + + 1397, 17 - - False + + 17, 56 - - False + + 131, 56 - - False + + 245, 56 - - False + + 384, 56 - - False + + 487, 56 - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False + + True False @@ -270,159 +231,249 @@ False - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - False - - - 571, 17 + + 811, 17 - + - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG - YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 - 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw - bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc - VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 - c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 - Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo - mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ - kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D - TgDQASA1MVpwzwAAAABJRU5ErkJggg== + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABKklE + QVQ4T2MYPKBw1vP/TQue/8+c+Pg/VAgDhLc/wCnHkDvz2f9VR97/x6UovvvB/+CGa7gNyJjy9P/CfR+w + Korvefh/6f7///2rL+A2IKHnyf9pW95jKIpovw/WnDnr/3+v0hO4DYjsevS/d/UHFEWhrffAmlvXAW3v + /PvfJf8AbgMCmx/+r5v/Dq4ouOXu/0V7///vAGrOmPPzv13dz//2GdtxG+BRdf9//rQ3KIrsim//T5/z + +79/17f/OoXv/lskrMdtgH3p3f/Zk19jKNJPOf/fpOjFf5WsT/+NI5fhNsAi787/1P7XWBUZJJ34L5v2 + 9b9u8DzcBhhm3f4f1vISpyL91Mv/NXyn4TZAJ+3Gf7/qh3gVqXhMwG2AU+6V/yAFeBUNQsDAAADwdsCr + peWacAAAAABJRU5ErkJggg== - + - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG - YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 - 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw - bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc - VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 - c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 - Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo - mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ - kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D - TgDQASA1MVpwzwAAAABJRU5ErkJggg== + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAtklE + QVQ4T2MYOiC8/cF/KJN0EN/94H9wwzXyDIjvefh/6f7///2rL5BuQET7fbDmzFn//3uVniDNgNDWe2DN + reuAtnf+/e+Sf4B4A4Jb7v5ftPf//w6g5ow5P//b1f38b5+xnTQX2BXf/p8+5/d//65v/3UK3/23SFhP + ehjop5z/b1L04r9K1qf/xpHLSDcABAySTvyXTfv6Xzd4HnkGgIB+6uX/Gr7TyDcABFQ8JlBmwGAFDAwA + 0BRgmAS6UFUAAAAASUVORK5CYII= - - 91, 17 + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAo0lE + QVQ4T2MYfKBw1vP/UCZ5IHfms/8J3ffINyRjytP/8/b//p/QdYc8QxJ6nvyfve/X/86tf/+7lV4m3ZDI + rkf/p2z79b9k6d//CdP//rfJPUuaIYHND/+3rn0P1mxc8uW/dPS1/8aRy4g3xKPq/v+Sue/gmhVdekhz + gX3p3f+BLc/I0wwCFnl3/tsUXCFPMwgYZt0mXzMI6KTdIF/zUAQMDACgfl+gBzRCOAAAAABJRU5ErkJg + gg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABLElE + QVQ4T2MYXKBw1vP/UCYGAMk1LXj+P3PiY5xqGHJnPvuf0H0PqwKQ3Koj7/+Htz/AbUDGlKf/5+3//T+h + 6w6GIpDcwn0f/gc3XMNtQELPk/+z9/3637n173+30ssoCkFy07a8/+9ffQG3AZFdj/5P2fbrf8nSv/8T + pv/9b5N7Fq4YJNe7+sN/r9ITuA0IbH74v3Xte7Bm45Iv/6Wjr/03jlwG1gCSq5v/7r9L/gHcBnhU3f9f + MvcdXLOiSw9cMUguf9qb//YZ23EbYF96939gyzMMzSAAksue/Pq/RcJ63AZY5N35b1NwBUMzCIDkUvtf + w72EFRhm3caqGQRAcmEtL//rBs/DbYBO2g2ckiA5v+qH/zV8p+E2AB9wyr3yX8VjAhhDhQYFYGAAAL7R + v7O5DE6cAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABSklE + QVQ4T2MYvODuAvb/t+Zx/r86h+v/xRm8/6HCxIPrQI1/HjX+//Ow4f/JyQKkG3B+Oi/cgIM9IqQbcHyS + IFBz3f8/D6r+72gXJ2zApZk8/89O5ft/EqjxSL/Q/33dIkDN5f//3iv6v75B5v+qGrn/SysV/88vVf4/ + q0gV08BTQH/+eVgP1FQLxJX//9wrAeK8/3/vZv7/eyf5/9/bcf//3YwA4pD/k3I0MQ041CsMdu7f+6VA + jQVAjdlAjalAjQn//92KBmoM+//vRtD/f9f9/nel6WIasLNd4v+WZqn/68DOlf+/pELx/99bMUCN4f+n + 5mn8n5Cl9b87Q/d/e6r+/+ZEQ8JhMhvoT5Bz/90I+N+ToUNYAzoA+fPfDX8g9vvfmqxPugHd6bpg/4Jw + fZwR6Qa0JBn8b4g3/F8Ta/y/MtqEdAPoBBgYACQj2J51/IhpAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABb0lE + QVQ4T7WQTSjDYRzHd1XeSu3iglo5IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/ + LVLaBf+4PB9jqLW/seJ7eep5vt/P7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9 + JkS7HtFRAXMTipC3hsJcBiM9oe+cOgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDq + Pz9s4YXHBc3FgS8ZsxD1edDX8rvwp9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXi + sxjg4uh9uXdpfsjy7A8LvL+DVh2PJUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcg + tVUje69DIexuIueqcaZEIXU1gPykOGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vw + P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg== + + + + False - - 17, 17 + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False True - - 155, 17 + + True + + + False + + + 655, 17 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False 655, 17 @@ -499,86 +550,158 @@ True - - 252, 17 - - - 811, 17 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 - JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABKklE - QVQ4T2MYPKBw1vP/TQue/8+c+Pg/VAgDhLc/wCnHkDvz2f9VR97/x6UovvvB/+CGa7gNyJjy9P/CfR+w - Korvefh/6f7///2rL+A2IKHnyf9pW95jKIpovw/WnDnr/3+v0hO4DYjsevS/d/UHFEWhrffAmlvXAW3v - /PvfJf8AbgMCmx/+r5v/Dq4ouOXu/0V7///vAGrOmPPzv13dz//2GdtxG+BRdf9//rQ3KIrsim//T5/z - +79/17f/OoXv/lskrMdtgH3p3f/Zk19jKNJPOf/fpOjFf5WsT/+NI5fhNsAi787/1P7XWBUZJJ34L5v2 - 9b9u8DzcBhhm3f4f1vISpyL91Mv/NXyn4TZAJ+3Gf7/qh3gVqXhMwG2AU+6V/yAFeBUNQsDAAADwdsCr - peWacAAAAABJRU5ErkJggg== - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 - JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAtklE - QVQ4T2MYOiC8/cF/KJN0EN/94H9wwzXyDIjvefh/6f7///2rL5BuQET7fbDmzFn//3uVniDNgNDWe2DN - reuAtnf+/e+Sf4B4A4Jb7v5ftPf//w6g5ow5P//b1f38b5+xnTQX2BXf/p8+5/d//65v/3UK3/23SFhP - ehjop5z/b1L04r9K1qf/xpHLSDcABAySTvyXTfv6Xzd4HnkGgIB+6uX/Gr7TyDcABFQ8JlBmwGAFDAwA - 0BRgmAS6UFUAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 - JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAo0lE - QVQ4T2MYfKBw1vP/UCZ5IHfms/8J3ffINyRjytP/8/b//p/QdYc8QxJ6nvyfve/X/86tf/+7lV4m3ZDI - rkf/p2z79b9k6d//CdP//rfJPUuaIYHND/+3rn0P1mxc8uW/dPS1/8aRy4g3xKPq/v+Sue/gmhVdekhz - gX3p3f+BLc/I0wwCFnl3/tsUXCFPMwgYZt0mXzMI6KTdIF/zUAQMDACgfl+gBzRCOAAAAABJRU5ErkJg - gg== - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 - JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABLElE - QVQ4T2MYXKBw1vP/UCYGAMk1LXj+P3PiY5xqGHJnPvuf0H0PqwKQ3Koj7/+Htz/AbUDGlKf/5+3//T+h - 6w6GIpDcwn0f/gc3XMNtQELPk/+z9/3637n173+30ssoCkFy07a8/+9ffQG3AZFdj/5P2fbrf8nSv/8T - pv/9b5N7Fq4YJNe7+sN/r9ITuA0IbH74v3Xte7Bm45Iv/6Wjr/03jlwG1gCSq5v/7r9L/gHcBnhU3f9f - MvcdXLOiSw9cMUguf9qb//YZ23EbYF96939gyzMMzSAAksue/Pq/RcJ63AZY5N35b1NwBUMzCIDkUvtf - w72EFRhm3caqGQRAcmEtL//rBs/DbYBO2g2ckiA5v+qH/zV8p+E2AB9wyr3yX8VjAhhDhQYFYGAAAL7R - v7O5DE6cAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 - JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABSklE - QVQ4T2MYvODuAvb/t+Zx/r86h+v/xRm8/6HCxIPrQI1/HjX+//Ow4f/JyQKkG3B+Oi/cgIM9IqQbcHyS - IFBz3f8/D6r+72gXJ2zApZk8/89O5ft/EqjxSL/Q/33dIkDN5f//3iv6v75B5v+qGrn/SysV/88vVf4/ - q0gV08BTQH/+eVgP1FQLxJX//9wrAeK8/3/vZv7/eyf5/9/bcf//3YwA4pD/k3I0MQ041CsMdu7f+6VA - jQVAjdlAjalAjQn//92KBmoM+//vRtD/f9f9/nel6WIasLNd4v+WZqn/68DOlf+/pELx/99bMUCN4f+n - 5mn8n5Cl9b87Q/d/e6r+/+ZEQ8JhMhvoT5Bz/90I+N+ToUNYAzoA+fPfDX8g9vvfmqxPugHd6bpg/4Jw - fZwR6Qa0JBn8b4g3/F8Ta/y/MtqEdAPoBBgYACQj2J51/IhpAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 - JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABb0lE - QVQ4T7WQTSjDYRzHd1XeSu3iglo5IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/ - LVLaBf+4PB9jqLW/seJ7eep5vt/P7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9 - JkS7HtFRAXMTipC3hsJcBiM9oe+cOgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDq - Pz9s4YXHBc3FgS8ZsxD1edDX8rvwp9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXi - sxjg4uh9uXdpfsjy7A8LvL+DVh2PJUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcg - tVUje69DIexuIueqcaZEIXU1gPykOGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vw - P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg== - - True - - 360, 17 + + True + + + 967, 17 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False 967, 17 @@ -655,8 +778,83 @@ True - - 473, 17 + + True + + + 1241, 17 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False 1241, 17 @@ -730,8 +928,14 @@ P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg== - - 1397, 17 + + True + + + True + + + True True @@ -742,19 +946,265 @@ True - - 17, 56 + + False - - 131, 56 + + False - - 1123, 17 + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False True + + True + + + 571, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + + 1123, 17 + - 83 + 166 \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_v20091231_Weather.vb b/ArinWarev1/Forms_Input/Frm_v20091231_Weather.vb index 8478a06..6c38ec7 100644 --- a/ArinWarev1/Forms_Input/Frm_v20091231_Weather.vb +++ b/ArinWarev1/Forms_Input/Frm_v20091231_Weather.vb @@ -76,6 +76,12 @@ Public Class Frm_V20091231_Weather AddHandler DSET1.weather_supdo.TableNewRow, AddressOf AddNewDataRow_Weathersupdo AddHandler DSET1.weather_cha.TableNewRow, AddressOf AddNewDataRow_WeatherCha + AddHandler DSET1.weather_wind.TableNewRow, AddressOf AddNewDataRow_WeatherWind + AddHandler DSET1.weather_river.TableNewRow, AddressOf AddNewDataRow_WeatherRiver + AddHandler DSET1.weather_water.TableNewRow, AddressOf AddNewDataRow_WeatherWater + + + AddHandler DSET1.weather_group.TableNewRow, AddressOf AddNewDataRow_WeatherGrp AddHandler dvArea1.CellContentClick, AddressOf dv_cellcontclick @@ -88,11 +94,22 @@ Public Class Frm_V20091231_Weather Me.bsw_supdo.DataSource = DSET1 Me.bsw_temp.DataSource = DSET1 Me.bsw_cha.DataSource = DSET1 + Me.bsw_river.DataSource = DSET1 + Me.bsw_water.DataSource = DSET1 + Me.bsw_wind.DataSource = DSET1 Me.bsWGDep1.DataSource = DSET1 Me.bsWGDep2.DataSource = DSET1 Me.bsWGDep3.DataSource = DSET1 + If bsw_water.Count = 0 Then + Dim newdr As DS.weather_waterRow = DSET1.weather_water.Newweather_waterRow() + newdr.pcode = "0" + newdr.code = "0000" + DSET1.weather_water.Addweather_waterRow(newdr) + DSET1.weather_water.AcceptChanges() + End If + '//콤보컨트롤 바인딩 Me.bn_all.BindingSource = Me.bs Me.bs = Me.bs @@ -124,6 +141,7 @@ Public Class Frm_V20091231_Weather e.Row.Item("code") = GetMaxCode(DSET1.tbl_weather) End Sub Private Sub AddNewDataRow_Weatherilsa(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + If bs.Current Is Nothing Then Return e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code") '//일사데이터는 0001로부터하게한다 @@ -138,17 +156,39 @@ Public Class Frm_V20091231_Weather e.Row.Item("code") = Newcode End Sub Private Sub AddNewDataRow_Weathertemp(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + If bs.Current Is Nothing Then Return e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code") e.Row.Item("code") = GetMaxCode(DSET1.weather_temp) End Sub Private Sub AddNewDataRow_Weathersupdo(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + If bs.Current Is Nothing Then Return e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code") e.Row.Item("code") = GetMaxCode(DSET1.weather_supdo) End Sub Private Sub AddNewDataRow_WeatherCha(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + If bs.Current Is Nothing Then Return e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code") e.Row.Item("code") = GetMaxCode(DSET1.weather_cha) End Sub + + Private Sub AddNewDataRow_WeatherWind(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + If bs.Current Is Nothing Then Return + e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code") + e.Row.Item("code") = GetMaxCode(DSET1.weather_wind) + End Sub + + Private Sub AddNewDataRow_WeatherRiver(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + If bs.Current Is Nothing Then Return + e.Row.Item("pcode") = CType(bs.Current, DataRowView)("code") + e.Row.Item("code") = GetMaxCode(DSET1.weather_river) + End Sub + + Private Sub AddNewDataRow_WeatherWater(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) + e.Row.Item("pcode") = "0" ' CType(bs.Current, DataRowView)("code") + e.Row.Item("code") = GetMaxCode(DSET1.weather_water) + End Sub + + Private Function GetMaxCode(ByVal dt As DataTable) As String Try Dim Dr As DataRow = dt.Select("", "code desc")(0) @@ -168,17 +208,28 @@ Public Class Frm_V20091231_Weather End Sub Private Sub bt_save_weather_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + If Not EndEdit(Me.bs) Then Return If Not EndEdit(Me.bsw_supdo) Then Return If Not EndEdit(Me.bsw_ilsa) Then Return If Not EndEdit(Me.bsw_temp) Then Return If Not EndEdit(Me.bsw_cha) Then Return + + If Not EndEdit(Me.bsw_wind) Then Return + If Not EndEdit(Me.bsw_river) Then Return + If Not EndEdit(Me.bsw_water) Then Return + + Check_Modify(Me.DS1.tbl_weather) Check_Modify(Me.DS1.weather_ilsa, False) Check_Modify(Me.DS1.weather_supdo, False) Check_Modify(Me.DS1.weather_temp, False) Check_Modify(Me.DS1.weather_cha, False) + Check_Modify(Me.DS1.weather_wind, False) + Check_Modify(Me.DS1.weather_river, False) + Check_Modify(Me.DS1.weather_water, False) + End Sub Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged @@ -190,6 +241,9 @@ Public Class Frm_V20091231_Weather Me.bsw_temp.Filter = "pcode='" & pcode & "'" Me.bsw_supdo.Filter = "pcode='" & pcode & "'" Me.bsw_cha.Filter = "pcode='" & pcode & "'" + Me.bsw_wind.Filter = "pcode='" & pcode & "'" + Me.bsw_river.Filter = "pcode='" & pcode & "'" + Me.bsw_water.Filter = "" If DSET1.weather_temp.Select("pcode='" & pcode & "'").GetUpperBound(0) = -1 Then For i As Integer = 1 To 12 @@ -212,8 +266,30 @@ Public Class Frm_V20091231_Weather Else 'MsgBox(Me.bsw_supdo.Count) End If + + If DSET1.weather_wind.Select("pcode='" & pcode & "'").GetUpperBound(0) = -1 Then + Dim Dr As DS.weather_windRow = DSET1.weather_wind.Newweather_windRow() + Dr.code = "0" + Dr.설명 = "" + DSET1.weather_wind.Addweather_windRow(Dr) + Else + 'MsgBox(Me.bsw_supdo.Count) + End If + + If DSET1.weather_river.Select("pcode='" & pcode & "'").GetUpperBound(0) = -1 Then + Dim Dr As DS.weather_riverRow = DSET1.weather_river.Newweather_riverRow() + Dr.code = "0" + Dr.설명 = "" + DSET1.weather_river.Addweather_riverRow(Dr) + Else + 'MsgBox(Me.bsw_supdo.Count) + End If + Me.DS1.weather_temp.AcceptChanges() Me.DS1.weather_supdo.AcceptChanges() + Me.DS1.weather_river.AcceptChanges() + Me.DS1.weather_wind.AcceptChanges() + Me.DS1.weather_water.AcceptChanges() End Sub @@ -288,6 +364,11 @@ Public Class Frm_V20091231_Weather DSET1.weather_supdo.RejectChanges() DSET1.weather_temp.RejectChanges() + DSET1.weather_wind.RejectChanges() + DSET1.weather_river.RejectChanges() + DSET1.weather_water.RejectChanges() + + End Sub Private Sub tb_t1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_t1.KeyDown @@ -566,7 +647,7 @@ Public Class Frm_V20091231_Weather e.SuppressKeyPress = False '//클립보드붙여넣기 Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf)) - If CB.GetUpperBound(0) < 11 Then + If CB.GetUpperBound(0) < 12 Then MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인") Return End If @@ -578,10 +659,10 @@ Public Class Frm_V20091231_Weather 'MsgBox(CB.GetUpperBound(0)) Dim Cnt As Short = 0 - For i As Integer = 0 To CB.GetUpperBound(0) + For i As Integer = 1 To CB.GetUpperBound(0) Select Case i Case 0 '///조명은 신규기록하지않으므로.. 쓰지않게한다. - '//Me.tb_c01.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Me.tb_c01.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 1 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_c02.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 2 '///조명은 신규기록하지않으므로.. 쓰지않게한다. @@ -602,7 +683,7 @@ Public Class Frm_V20091231_Weather Me.tb_c10.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_c11.Text = CB(i).Split(CChar(vbTab))(ii).Trim - Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_c12.Text = CB(i).Split(CChar(vbTab))(ii).Trim End Select @@ -654,35 +735,33 @@ Public Class Frm_V20091231_Weather Case 1 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_wnaen.Text = CB(i).Split(CChar(vbTab))(ii).Trim Case 2 '///조명은 신규기록하지않으므로.. 쓰지않게한다. - 'Me.tb_c03.Text = CB(i).Split(CChar(vbTab))(ii).Trim - Case 3 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_w01.Text = CB(i).Split(CChar(vbTab))(ii).Trim - Case 4 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Case 3 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_w02.Text = CB(i).Split(CChar(vbTab))(ii).Trim - Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Case 4 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_w03.Text = CB(i).Split(CChar(vbTab))(ii).Trim - Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_w04.Text = CB(i).Split(CChar(vbTab))(ii).Trim - Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_w05.Text = CB(i).Split(CChar(vbTab))(ii).Trim - Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_w06.Text = CB(i).Split(CChar(vbTab))(ii).Trim - Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_w07.Text = CB(i).Split(CChar(vbTab))(ii).Trim - Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_w08.Text = CB(i).Split(CChar(vbTab))(ii).Trim - Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_w09.Text = CB(i).Split(CChar(vbTab))(ii).Trim - Case 12 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_w10.Text = CB(i).Split(CChar(vbTab))(ii).Trim - Case 13 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Case 12 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_w11.Text = CB(i).Split(CChar(vbTab))(ii).Trim - Case 14 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Case 13 '///조명은 신규기록하지않으므로.. 쓰지않게한다. Me.tb_w12.Text = CB(i).Split(CChar(vbTab))(ii).Trim End Select Next - If bsw_cha.Position < bsw_cha.Count Then bsw_cha.Position += 1 '//위치이동 + 'If bsw_cha.Position < bsw_cha.Count Then bsw_cha.Position += 1 '//위치이동 Next Me.bsw_cha.EndEdit() End If @@ -753,6 +832,10 @@ Public Class Frm_V20091231_Weather DSET1.weather_temp.Clear() DSET1.weather_supdo.Clear() + DSET1.weather_wind.Clear() + DSET1.weather_river.Clear() + DSET1.weather_water.Clear() + Dim Rng As Excel.Range = xlSheet1.Range("B3") '//Offset으로사용할것이므로 0,0셀을 선택한다 Dim newdr0 As DS.tbl_weatherRow = DSET1.tbl_weather.NewRow @@ -1173,6 +1256,11 @@ Public Class Frm_V20091231_Weather 'DSET1.weather_ilsa.Merge(DSET1.weather_ilsa) 'DSET1.weather_supdo.Merge(DSET1.weather_supdo) 'DSET1.weather_temp.Merge(DSET1.weather_temp) + Me.Validate() + Me.bsw_river.EndEdit() + Me.bsw_water.EndEdit() + Me.bsw_wind.EndEdit() + '모든파일을 저장한다. Dim SelectedPath As String = AppDomain.CurrentDomain.BaseDirectory + "Data" @@ -1182,6 +1270,9 @@ Public Class Frm_V20091231_Weather Dim file4 As String = System.IO.Path.Combine(SelectedPath, DSET1.weather_temp.TableName + ".xml") Dim file5 As String = System.IO.Path.Combine(SelectedPath, DSET1.tbl_weather.TableName + ".xml") Dim file6 As String = System.IO.Path.Combine(SelectedPath, DSET1.weather_group.TableName + ".xml") + Dim file7 As String = System.IO.Path.Combine(SelectedPath, DSET1.weather_wind.TableName + ".xml") + Dim file8 As String = System.IO.Path.Combine(SelectedPath, DSET1.weather_river.TableName + ".xml") + Dim file9 As String = System.IO.Path.Combine(SelectedPath, DSET1.weather_water.TableName + ".xml") DSET1.weather_cha.WriteXml(file1) DSET1.weather_ilsa.WriteXml(file2) @@ -1189,7 +1280,9 @@ Public Class Frm_V20091231_Weather DSET1.weather_temp.WriteXml(file4) DSET1.tbl_weather.WriteXml(file5) DSET1.weather_group.WriteXml(file6) - + DSET1.weather_wind.WriteXml(file7) + DSET1.weather_river.WriteXml(file8) + DSET1.weather_water.WriteXml(file9) file1 = System.IO.Path.Combine(SelectedPath, DSET1.weather_cha.TableName + ".dat") file2 = System.IO.Path.Combine(SelectedPath, DSET1.weather_ilsa.TableName + ".dat") @@ -1197,6 +1290,9 @@ Public Class Frm_V20091231_Weather file4 = System.IO.Path.Combine(SelectedPath, DSET1.weather_temp.TableName + ".dat") file5 = System.IO.Path.Combine(SelectedPath, DSET1.tbl_weather.TableName + ".dat") file6 = System.IO.Path.Combine(SelectedPath, DSET1.weather_group.TableName + ".dat") + file7 = System.IO.Path.Combine(SelectedPath, DSET1.weather_wind.TableName + ".dat") + file8 = System.IO.Path.Combine(SelectedPath, DSET1.weather_river.TableName + ".dat") + file9 = System.IO.Path.Combine(SelectedPath, DSET1.weather_water.TableName + ".dat") '//암호화 @@ -1205,11 +1301,15 @@ Public Class Frm_V20091231_Weather Serialize(file3, DSET1.weather_supdo) Serialize(file4, DSET1.weather_temp) Serialize(file5, DSET1.tbl_weather) + Serialize(file6, DSET1.weather_group) + Serialize(file7, DSET1.weather_wind) + Serialize(file8, DSET1.weather_river) + Serialize(file9, DSET1.weather_water) - Using stm As System.IO.Stream = System.IO.File.Open(file6, System.IO.FileMode.Create, System.IO.FileAccess.Write) - Dim bf As System.Runtime.Serialization.Formatters.Binary.BinaryFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter '역직렬화 후 객체 클래스로 형변환... Dim a As clsTEST = CType(bf.Deserialize(stm), clsTEST) stm.Close() - bf.Serialize(stm, DSET1.weather_group) - End Using + 'Using stm As System.IO.Stream = System.IO.File.Open(file6, System.IO.FileMode.Create, System.IO.FileAccess.Write) + ' Dim bf As System.Runtime.Serialization.Formatters.Binary.BinaryFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter '역직렬화 후 객체 클래스로 형변환... Dim a As clsTEST = CType(bf.Deserialize(stm), clsTEST) stm.Close() + ' bf.Serialize(stm, DSET1.weather_group) + 'End Using 'Serialize(file6, DSET1.weather_group) @@ -1219,16 +1319,34 @@ Public Class Frm_V20091231_Weather Sub Serialize(filename As String, data As Object) - Using stm As System.IO.Stream = System.IO.File.Open(filename, System.IO.FileMode.Create, System.IO.FileAccess.Write) - Dim bf As System.Runtime.Serialization.Formatters.Binary.BinaryFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter '역직렬화 후 객체 클래스로 형변환... Dim a As clsTEST = CType(bf.Deserialize(stm), clsTEST) stm.Close() - bf.Serialize(stm, data) - End Using + Dim ms As New System.IO.MemoryStream() + ' Using stm As System.IO.Stream = System.IO.File.Open(filename, System.IO.FileMode.Create, System.IO.FileAccess.Write) + Dim bf As System.Runtime.Serialization.Formatters.Binary.BinaryFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter '역직렬화 후 객체 클래스로 형변환... Dim a As clsTEST = CType(bf.Deserialize(stm), clsTEST) stm.Close() + bf.Serialize(ms, data) + ' End Using + Dim len As UInt32 = ms.Length + Dim bodybuf(len - 1) As Byte + Array.Copy(ms.GetBuffer(), bodybuf, len) + Dim compbuf() As Byte + Utility.MiniLZO.Compress(bodybuf, compbuf) + 'Dim decombuf(bodybuf.Length - 1) As Byte + 'Utility.MiniLZO.Decompress(compbuf, decombuf) + '67682 -> 304964 + Dim complen As UInt32 = compbuf.Length + Dim fs As New System.IO.FileStream(filename, IO.FileMode.Create) + Dim lenbuf() As Byte = BitConverter.GetBytes(bodybuf.Length) '//read body data + fs.Write(lenbuf, 0, lenbuf.Length) 'write file length + + 'Dim body() As Byte = ms.GetBuffer() + fs.Write(compbuf, 0, complen) 'write body + fs.Flush() + fs.Dispose() + ms.Dispose() End Sub - Private Sub ToolStripButton13_Click(sender As Object, e As EventArgs) Handles ToolStripButton13.Click Dim sd As New FolderBrowserDialog() If sd.ShowDialog() = DialogResult.OK Then @@ -1238,6 +1356,9 @@ Public Class Frm_V20091231_Weather DSET1.weather_supdo.Clear() DSET1.weather_temp.Clear() DSET1.weather_group.Clear() + DSET1.weather_wind.Clear() + DSET1.weather_river.Clear() + DSET1.weather_water.Clear() DSET1.tbl_weather.Clear() DSET1.weather_cha.ReadXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_cha.TableName + ".xml")) @@ -1248,6 +1369,10 @@ Public Class Frm_V20091231_Weather DSET1.weather_group.ReadXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_group.TableName + ".xml")) + DSET1.weather_wind.ReadXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_wind.TableName + ".xml")) + DSET1.weather_river.ReadXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_river.TableName + ".xml")) + DSET1.weather_water.ReadXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_water.TableName + ".xml")) + '//od는 od 데이터에 다시 옴겨야한다 DSET1.weather_cha.AcceptChanges() @@ -1258,8 +1383,177 @@ Public Class Frm_V20091231_Weather DSET1.weather_group.AcceptChanges() + DSET1.weather_wind.AcceptChanges() + DSET1.weather_river.AcceptChanges() + DSET1.weather_water.AcceptChanges() + End If End Sub + + Private Sub MyTb33_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles tbw01.KeyDown + If e.KeyCode = Keys.V And e.Control Then + + e.Handled = True + e.SuppressKeyPress = False + '//클립보드붙여넣기 + Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf)) + If CB.GetUpperBound(0) < 12 Then + MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인") + Return + End If + + + For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0) + 'If Me.bs.Count = 0 OrElse ii > 0 Then Me.bt_Add.PerformClick() '//한줄추가 + + 'MsgBox(CB.GetUpperBound(0)) + + Dim Cnt As Short = 0 + For i As Integer = 1 To CB.GetUpperBound(0) + Select Case i + Case 1 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbw01.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 2 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbw02.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbw03.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbw04.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbw05.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbw06.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbw07.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbw08.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbw09.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbw10.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbw11.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 12 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbw12.Text = CB(i).Split(CChar(vbTab))(ii).Trim + + End Select + Next + '//If bsw_cha.Position < bsw_cha.Count Then bsw_cha.Position += 1 '//위치이동 + Next + Me.bsw_water.EndEdit() + End If + End Sub + + Private Sub MyTb21_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles tbr01.KeyDown + ''river + If e.KeyCode = Keys.V And e.Control Then + + e.Handled = True + e.SuppressKeyPress = False + '//클립보드붙여넣기 + Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf)) + If CB.GetUpperBound(0) < 12 Then + MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인") + Return + End If + + + For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0) + 'If Me.bs.Count = 0 OrElse ii > 0 Then Me.bt_Add.PerformClick() '//한줄추가 + + 'MsgBox(CB.GetUpperBound(0)) + + Dim Cnt As Short = 0 + For i As Integer = 1 To CB.GetUpperBound(0) + Select Case i + Case 1 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbr01.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 2 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbr02.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbr03.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbr04.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbr05.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbr06.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbr07.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbr08.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbr09.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbr10.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbr11.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 12 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbr12.Text = CB(i).Split(CChar(vbTab))(ii).Trim + + End Select + Next + '//If bsw_cha.Position < bsw_cha.Count Then bsw_cha.Position += 1 '//위치이동 + Next + Me.bsw_river.EndEdit() + End If + End Sub + + Private Sub MyTb9_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles tbwi01.KeyDown + ''wind\ + If e.KeyCode = Keys.V And e.Control Then + + e.Handled = True + e.SuppressKeyPress = False + '//클립보드붙여넣기 + Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf)) + If CB.GetUpperBound(0) < 12 Then + MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인") + Return + End If + + + For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0) + 'If Me.bs.Count = 0 OrElse ii > 0 Then Me.bt_Add.PerformClick() '//한줄추가 + + 'MsgBox(CB.GetUpperBound(0)) + + Dim Cnt As Short = 0 + For i As Integer = 1 To CB.GetUpperBound(0) + Select Case i + Case 1 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbwi01.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 2 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbwi02.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 3 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbwi03.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 4 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbwi04.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 5 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbwi05.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 6 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbwi06.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 7 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbwi07.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 8 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbwi08.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 9 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbwi09.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 10 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbwi10.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 11 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbwi11.Text = CB(i).Split(CChar(vbTab))(ii).Trim + Case 12 '///조명은 신규기록하지않으므로.. 쓰지않게한다. + Me.tbwi12.Text = CB(i).Split(CChar(vbTab))(ii).Trim + End Select + Next + '//If bsw_cha.Position < bsw_cha.Count Then bsw_cha.Position += 1 '//위치이동 + Next + Me.bsw_wind.EndEdit() + End If + End Sub + + End Class \ No newline at end of file diff --git a/ArinWarev1/Forms_Input/Frm_v20091231_profile.vb b/ArinWarev1/Forms_Input/Frm_v20091231_profile.vb index 8365276..19f3651 100644 --- a/ArinWarev1/Forms_Input/Frm_v20091231_profile.vb +++ b/ArinWarev1/Forms_Input/Frm_v20091231_profile.vb @@ -97,6 +97,12 @@ Me.SplitContainer1.Panel2.Enabled = False Me.bn_all.Visible = False End If + + If System.Diagnostics.Debugger.IsAttached Then + Me.bn_all.Visible = True + Me.SplitContainer1.Panel2.Enabled = True + End If + AddDebug("▲ Form Load") End Sub diff --git a/ArinWarev1/Forms_Report/Frm_Upload.vb b/ArinWarev1/Forms_Report/Frm_Upload.vb index 4dda8c8..f02bf1a 100644 --- a/ArinWarev1/Forms_Report/Frm_Upload.vb +++ b/ArinWarev1/Forms_Report/Frm_Upload.vb @@ -946,8 +946,8 @@ Dim 에너지자립률 As Double = 0 Dim 에너지자립률_offsite As Double = 0 - Dim Sum As Decimal = (Result1.생산E(0).태양광전력생산량 + Result1.생산E(0).신재생열병합전력생산량) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력) - Dim Sum_offsite As Decimal = (Result1.생산E(0).태양광전력생산량_offsite) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력) + 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).조명전력 diff --git a/ArinWarev1/Forms_Report/Report_pyonga.vb b/ArinWarev1/Forms_Report/Report_pyonga.vb index 2d0ae13..db963c0 100644 --- a/ArinWarev1/Forms_Report/Report_pyonga.vb +++ b/ArinWarev1/Forms_Report/Report_pyonga.vb @@ -932,7 +932,7 @@ - Dim Sum As Decimal = (Result1.생산E(0).태양광전력생산량 + Result1.생산E(0).신재생열병합전력생산량) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력) + Dim 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).냉방전력 @@ -966,7 +966,7 @@ 'g20=냉방면적 - 신재생에너지 = -1 * (Result1.생산E(0).면적당생산량태양열 + Result1.생산E(0).면적당생산량지열 + Result1.생산E(0).신재생면적당열생산량) - 면적 + 신재생에너지 = -1 * (Result1.생산E(0).면적당생산량태양열 + Result1.생산E(0).면적당생산량수열 + Result1.생산E(0).면적당생산량지열 + Result1.생산E(0).신재생면적당열생산량) - 면적 Return 신재생에너지 End Function diff --git a/ArinWarev1/Forms_Report/Report_그래프.vb b/ArinWarev1/Forms_Report/Report_그래프.vb index 6fefc82..d6184a2 100644 --- a/ArinWarev1/Forms_Report/Report_그래프.vb +++ b/ArinWarev1/Forms_Report/Report_그래프.vb @@ -122,9 +122,9 @@ Case 0 '//1차에너지소요량 - Dim Sum As Decimal = (Result1.생산E(0).태양광전력생산량 + Result1.생산E(0).신재생열병합전력생산량) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력) + Dim 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).난방전력 + 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).냉방전력 @@ -190,7 +190,7 @@ '//열병합신재생에너지추가 130831 arin - 신재생에너지 = Math.Round(-1 * (Result1.생산E(0).면적당생산량태양열 + Result1.생산E(0).신재생면적당열생산량 + Result1.생산E(0).면적당생산량지열 + 전기 * 2.75), 1) + 신재생에너지 = 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 * 신재생에너지 @@ -279,7 +279,7 @@ - Dim Sum As Decimal = (Result1.생산E(0).태양광전력생산량 + Result1.생산E(0).신재생열병합전력생산량) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력) + Dim 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).냉방전력 @@ -327,7 +327,7 @@ '//열병합신재생에너지추가 130831 arin - 신재생에너지 = Math.Round(-1 * (Result1.생산E(0).면적당생산량태양열 + Result1.생산E(0).신재생면적당열생산량 + Result1.생산E(0).면적당생산량지열) - 면적, 1) + 신재생에너지 = 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 = "신재생에너지" diff --git a/ArinWarev1/MdiMain.Designer.vb b/ArinWarev1/MdiMain.Designer.vb index c35b19a..52dd8eb 100644 --- a/ArinWarev1/MdiMain.Designer.vb +++ b/ArinWarev1/MdiMain.Designer.vb @@ -35,12 +35,12 @@ Partial Class MdiMain Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() Me.ReportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.신규ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.btNew = New System.Windows.Forms.ToolStripMenuItem() Me.신규코드업로드ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripSeparator() - Me.열기ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.btOpen = New System.Windows.Forms.ToolStripMenuItem() Me.bt_filesave = New System.Windows.Forms.ToolStripMenuItem() - Me.다른이름으로저장ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.btSaveNew = New System.Windows.Forms.ToolStripMenuItem() Me.정보ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.bt_데이터관리 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripSeparator() @@ -73,6 +73,8 @@ Partial Class MdiMain Me.ToolStripMenuItem13 = New System.Windows.Forms.ToolStripMenuItem() Me.설정프로필ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ExportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem1 = 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() @@ -98,8 +100,6 @@ Partial Class MdiMain Me.비교데이터백업ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.데이터비교ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.순실체적ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator() - Me.파일로부터기상데이터가져오기ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.StatusStrip1.SuspendLayout() Me.MenuStrip1.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() @@ -174,18 +174,18 @@ Partial Class MdiMain ' 'ReportToolStripMenuItem ' - Me.ReportToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.신규ToolStripMenuItem, Me.신규코드업로드ToolStripMenuItem, Me.ToolStripMenuItem7, Me.열기ToolStripMenuItem, Me.bt_filesave, Me.다른이름으로저장ToolStripMenuItem, Me.정보ToolStripMenuItem, Me.bt_데이터관리, Me.ToolStripMenuItem5, Me.lbl_p1, Me.lbl_p2, Me.lbl_p3, Me.lbl_p4, Me.lbl_p5, Me.ToolStripMenuItem6, Me.종료ToolStripMenuItem}) + 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.ToolStripMenuItem5, Me.lbl_p1, Me.lbl_p2, Me.lbl_p3, Me.lbl_p4, Me.lbl_p5, Me.ToolStripMenuItem6, Me.종료ToolStripMenuItem}) Me.ReportToolStripMenuItem.Image = CType(resources.GetObject("ReportToolStripMenuItem.Image"), System.Drawing.Image) Me.ReportToolStripMenuItem.Name = "ReportToolStripMenuItem" Me.ReportToolStripMenuItem.Size = New System.Drawing.Size(57, 20) Me.ReportToolStripMenuItem.Text = "파일" ' - '신규ToolStripMenuItem + 'btNew ' - Me.신규ToolStripMenuItem.Name = "신규ToolStripMenuItem" - Me.신규ToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.N), System.Windows.Forms.Keys) - Me.신규ToolStripMenuItem.Size = New System.Drawing.Size(244, 22) - Me.신규ToolStripMenuItem.Text = "신규" + Me.btNew.Name = "btNew" + Me.btNew.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.N), System.Windows.Forms.Keys) + Me.btNew.Size = New System.Drawing.Size(244, 22) + Me.btNew.Text = "신규" ' '신규코드업로드ToolStripMenuItem ' @@ -200,12 +200,12 @@ Partial Class MdiMain Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7" Me.ToolStripMenuItem7.Size = New System.Drawing.Size(241, 6) ' - '열기ToolStripMenuItem + 'btOpen ' - Me.열기ToolStripMenuItem.Name = "열기ToolStripMenuItem" - Me.열기ToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.O), System.Windows.Forms.Keys) - Me.열기ToolStripMenuItem.Size = New System.Drawing.Size(244, 22) - Me.열기ToolStripMenuItem.Text = "열기" + Me.btOpen.Name = "btOpen" + Me.btOpen.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.O), System.Windows.Forms.Keys) + Me.btOpen.Size = New System.Drawing.Size(244, 22) + Me.btOpen.Text = "열기" ' 'bt_filesave ' @@ -215,13 +215,13 @@ Partial Class MdiMain Me.bt_filesave.Size = New System.Drawing.Size(244, 22) Me.bt_filesave.Text = "저장" ' - '다른이름으로저장ToolStripMenuItem + 'btSaveNew ' - Me.다른이름으로저장ToolStripMenuItem.Name = "다른이름으로저장ToolStripMenuItem" - Me.다른이름으로저장ToolStripMenuItem.ShortcutKeys = CType(((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Shift) _ + Me.btSaveNew.Name = "btSaveNew" + Me.btSaveNew.ShortcutKeys = CType(((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Shift) _ Or System.Windows.Forms.Keys.A), System.Windows.Forms.Keys) - Me.다른이름으로저장ToolStripMenuItem.Size = New System.Drawing.Size(244, 22) - Me.다른이름으로저장ToolStripMenuItem.Text = "다른이름으로 저장" + Me.btSaveNew.Size = New System.Drawing.Size(244, 22) + Me.btSaveNew.Text = "다른이름으로 저장" ' '정보ToolStripMenuItem ' @@ -301,7 +301,7 @@ Partial Class MdiMain '실행ToolStripMenuItem1 ' Me.실행ToolStripMenuItem1.Name = "실행ToolStripMenuItem1" - Me.실행ToolStripMenuItem1.Size = New System.Drawing.Size(152, 22) + Me.실행ToolStripMenuItem1.Size = New System.Drawing.Size(124, 22) Me.실행ToolStripMenuItem1.Text = "화면보기" ' '환경설정ToolStripMenuItem @@ -434,6 +434,17 @@ Partial Class MdiMain Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(262, 22) Me.ExportToolStripMenuItem.Text = "Export" ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(259, 6) + ' + '파일로부터기상데이터가져오기ToolStripMenuItem + ' + Me.파일로부터기상데이터가져오기ToolStripMenuItem.Name = "파일로부터기상데이터가져오기ToolStripMenuItem" + 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}) @@ -621,17 +632,6 @@ Partial Class MdiMain Me.순실체적ToolStripMenuItem.Size = New System.Drawing.Size(170, 22) Me.순실체적ToolStripMenuItem.Text = "3.순실체적" ' - 'ToolStripMenuItem1 - ' - Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" - Me.ToolStripMenuItem1.Size = New System.Drawing.Size(259, 6) - ' - '파일로부터기상데이터가져오기ToolStripMenuItem - ' - Me.파일로부터기상데이터가져오기ToolStripMenuItem.Name = "파일로부터기상데이터가져오기ToolStripMenuItem" - Me.파일로부터기상데이터가져오기ToolStripMenuItem.Size = New System.Drawing.Size(262, 22) - Me.파일로부터기상데이터가져오기ToolStripMenuItem.Text = "파일로부터 기상+프로필 가져오기" - ' 'MdiMain ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) @@ -687,7 +687,7 @@ Partial Class MdiMain Friend WithEvents 환경설정ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents bt_계산결과 As System.Windows.Forms.ToolStripMenuItem Friend WithEvents 결과그래프ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents 열기ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents btOpen As System.Windows.Forms.ToolStripMenuItem Friend WithEvents bt_filesave As System.Windows.Forms.ToolStripMenuItem Friend WithEvents 정보ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripMenuItem5 As System.Windows.Forms.ToolStripSeparator @@ -698,7 +698,7 @@ Partial Class MdiMain Friend WithEvents lbl_p2 As System.Windows.Forms.ToolStripMenuItem Friend WithEvents lbl_p3 As System.Windows.Forms.ToolStripMenuItem Friend WithEvents lbl_p4 As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents 신규ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents btNew As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripMenuItem7 As System.Windows.Forms.ToolStripSeparator Friend WithEvents TreeView1 As System.Windows.Forms.TreeView Friend WithEvents bt_etc As System.Windows.Forms.ToolStripMenuItem @@ -727,7 +727,7 @@ Partial Class MdiMain Friend WithEvents 실행ToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem Friend WithEvents 계산결과ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents bt_인증평가서 As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents 다른이름으로저장ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents btSaveNew As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton Friend WithEvents ToolStripButton6 As System.Windows.Forms.ToolStripButton Friend WithEvents ToolStripButton7 As System.Windows.Forms.ToolStripButton diff --git a/ArinWarev1/MdiMain.resx b/ArinWarev1/MdiMain.resx index 4b49a27..7cf6fa8 100644 --- a/ArinWarev1/MdiMain.resx +++ b/ArinWarev1/MdiMain.resx @@ -331,72 +331,72 @@ iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA86SURBVHhe7ZpZbFXXFYap0kRN2kptU6kP6VPV17z0sVJV - 9aVS1ap9CQlN25A0TRiNDdhMBl9swMZ4xiY2ZsrAaAMGwhgGM3rCZoaEGRywjWcbM3O9+v9r733OuRcH - DEmkRLpb+rX2Ge65d333X+vsc+0hsREbsREbsREbsREbHKFN11/K3tT7y/T1PS9TOdu7f5GxufvnVF5F - 18+epKwdzT+2l/p+jbiChgWJJSdvZ635Qr6u0orO30uYf+TA0LKy5+zlv/tj5PxDfafaHsq9hyLHmx/K - htP3n0kbz9yXHZceSua6feH4goZke/nv/piypObuljN9cujcXcnf1iPZW55GvRpzON9qtLzulsTnHbkT - N7fm1/YtvtsjPu/onUXV3SYBlxjmmpTKJBlxPLhtz/XP75GZy4/0T1jQcNC+xXd7OACahCaFhLdSLiEL - gIran4NtfY1CwFz39Uhx5U1JXfbFg3H5dYvGFNa+PLqo8iffpt5fWP+8Tefpx+RFp26XVpmkHAQmYhKm - TFImWTc3+91rFACPcc7XYnvn2XuStaK2f6Bm+W0oLr++dkRO1Ss2rcEPB8AkH0jQfqMGgjtmk3bJ6nnu - /MjXL913U5p6wtJ+R+RgS/+3qupWkdBHDf1j8uqqbVqDH0kEcMglZZLUhJiszv19jAaGkQPjA3L7/Oi/ - 3lzPOco4KLgdvJY57n0p9nMFX++rVwp39srW8w9kTEF9byhU+UOb2pPH0KFlz7EHLDzYLVlb0AciLmwu - Hvmm5oM4mf0DHXPb7jpRx3m38baDc7MdGaOObYv+PNzXI/mf3ZT4ebU3x+dUvWjTe/L4I2gRQAkApK9v - C9jYKJcRF+eb6j5GnQf2OQ10jh6LvGbkOdRjrjUY8fPZa4yZ39D7VADef7/++aTSmrvFB7plVnmLzFnf - apLWC5uYG/wwbp+bQxHHPfkfSs8Jnm/njPpaKnCuvt5G7xwc985157jzrHjuMwFIBIAP9ndL6pomSStr - DkBgEuaNzJvfDHzgwH7vuBHnRlHnc5+NZtscj1b0dXWuijrfXcOdDz01gOGhyh8RQDEAhFZdk9TV12Um - QMxee0OyNmNxxJKg8EauOfHNWIPZ7Bn6QWwD0x7CD87z/Q9qPrwvt88dj1AgGX+/A3lTFTxu9vnnPjWA - 18ZXvYiFxL0F+7pl+vJGSVkBAcRMBdEMEKYs5lS0SsaGNkmvaJeMje0yd2MHhLjBzDM2dEjmxk6jTUZZ - n3bLvM1dkk05SO5b44ffTlBGuq3HMd9ujwdgeAm7c4L7CMHuIwCk9QOT3SDG35M2/JQAiio7ZcpHl2Ta - R5cB4qpqBmDQFaHVBkjqGmh1k6SWN0sawMxCnIWSUaF/EJZq3Q2ZA80iPDiJczpK93N7LYCugwA2HfvS - Mae8feuxj9Bxnh5DzFjbJhnr2mQu9qswz9Q5Ir6cTHwxmdg3DneBIUPEAUDU+VcDcQAK93RI0qJzMmnp - BZn24UWZ9vFl6ApAXFEQM1Z8KSkrjRSKcwm1ykaAcrAMMMAiNPYWzrEvDQDTyqwIEOAIKqjZZddlNs6f - g+NzypsAoFmVgXPTcTxjXQsAYBvwjFoAA/sAbmTBoT6b2hCRQTjhb6FNLyWGTt6nA5KWnJcpyy7I1A8v - yVQ4YSogJH9CCHDDSorlYQEwQZvoTAVy3QMzkFhWZk5XNSqsVCSaVg4xrqWaZNY6JL8eiVeg/CrgIEod - YcVSrDAxvQKu0AgnYB9LNJRz6uEMLOwep4RFZzrHFtSdiQLQBQB0gIHAcpjKkvgEJQEIM1aYkkgBBNZu - 1aX70nqrX061huX4DaNjLUZHoSPNUFNY6qHDUB11PSw1UPW1sFRBh74My0HoQGNY9l8Nyz5oL7TnSlh2 - Xw7LLmgndSksO6y2XzTa9ozaeiEs5ScewHm1YQUwNFT2QmLoxP2ivV2SWHrWlMHi8zJZQVy0IOAElALd - QOtuOHpXwv0inzc9kLwdfZILMeZ91if5O29JHsRYwLjrthTswlyj0fzdt6UQmr/njhQGVFSJWHlX4wKN - d03ci+29mH+DSlt2+YEC4EpweMmJByyBCQs/l4mlX0giICQuBgiUxGT0hCkfoiwAIhkgSqs6ZXnNbSRs - uy87NiFstxB2AACUDxgK4jMDI58QdgIA5gQwnyAUxh0DZA+hWBAWhlMEBEKJSuZZNKKwuksBsEs6APHF - p2V8yZkAiLNwg18WKajdJbVdUoDks/QhxtyXsx0IQFBZR2gkCAfDk3EFAagjrCtUzhEOhgfCOKMIH16h - fA1XZG5sk7iChkpNnw9DE0MnHhbt7ZRxC05K/AenJKH4jAFhISgIuKFob5sU7+uRuZv44EQINyWLC6Io - EDkOhIXhgKgbWCbOFQChpTJAidAZDoK6gzA4J4Q9pjycOzQxxkG6I2Hhqc5ROTV/UgAcE0PHAaBDxhYe - l7iiEwoiASDG0xHWDWyQS2o7sfrrwkKICxwC6JF5CsI5AnIgnNQZ1h0KgyXiYPggWBoeACcLIsIZAZlS - 8WEYZwyctFMuGnhcXu0Vm7oZCqCyXUYXHMNK6jhAnAAIuGEB3QAQcEPWliYpwWpx9vpOBZD5aQ/UK/Oo - zQEQcANdwajOsO54FIRxRR4gaM/Y6Tsj6IYCVxqeKyJhMOlCOMLNfZmEWTJBAInLzt8cnVP7nk3djGEl - lWECGJl3REblH5UxADEWIOIAYhxBwA2Lqjuw1u8EACx7N7IMICx1MxENDEAgCDjDuIMyEIIyMABgGxQs - E/YJusNzhYVhgbh+oXNA0PLQErEN1MFg8jq3rtDETc8o2H1L4nLrOh95VnAARuTUy8icBgUxOgAiZeUl - KTnQhVtgGxYmnZK+oVtdQCkI9ATKgci0EBwI545sBwQQTJn0RfYLC0NdYZun5wqVBUAQzhUWCF3hnKG9 - IjB3rkgtarw3Nv9wnk3bH28QwN52eS+rTt7PPmxA5DbIKAVxTIoPtOPDd2DlRgBdCkAhbEA/UBimLxgQ - hICoIALOIATPGQaGa6DOGXzqc7dVdzv1SsQ5wwMCCA4IALjo5DdQSF1xW8blN3THDfS3Cgfg3cwa+d+8 - WguiHiAaUP+nZeHBDix9W2RmWbv2gDkUQTgRhDrCgvBg2BKxZWJKxIdhnEEQzhE2EkLQHYF+ke/6hXWF - uZP4zvAg7ELiiLQ9nREqOtI/Nu/wNpty5JgQ2tq/AADeyaiW/86tAYhaC+IwLtyC2m/HKvA6HlQ6sFbv - wFMdewHVBRhWCoPOoCscEMLoQTQ9Q8vDRdc8PRCQdYO7m2i/UCAWhgciAMQ5w7pCV54KhMf6FBLBJBTX - dY7Krvu9TTlyEAAd8PacQ/J2epWCeBcgRsAF/PZTVzfjQYiPwACg6gQIAAgKEGazPwCEKRMDxJSIL69M - PBAQS8WCUBgWAqPvCkAINE4FEJCuPANAOOfvBYSRtbkTd7jD52y6j44JoS0A0CZvzToow2cfVBDvAER6 - RaPkbW/DYzGe+FD/qeWAAaVRFkYakqcrFIi6wsiViFcq2jPgEAcDIILOcDHCFQCg/cKtLwgm2hXaM2y/ - 0J5BEH14ba8eowOmLD3bi4XPWzbdR4cCqGyTf6ful/+kHbAgDmnz47c/lQDWYI4ekFrGZmijhWFcYWVL - xAHxy8NCIQS6g/0Cc+0X6gzeVs0dxbiCJQIITsESwTfrGmckDFMm7CEESSA8d2x2ffvQ0KkXbLqPDgfg - XzP3AcI+QNiPh59zUrirHc8BjbB/K5pgu4TWtCkIH4YPJa0ckY6w8lxBGF6/CACxJWJg0B3sG+wXgMH1 - BSF4IKJ6BW+nrnkGQaj6UF5deG033Nsno4su89aXblMdeEwoPqbr/DdTKuXN0F4FUVTZob/0TF72paSs - blOFAlIQKAveGTwgwRKhHAztGT4QQtBSAQjjDoCwUNydJIOOsHcSvaVC8xSIXybOFUbGFYQ0e3272QaQ - ONz6xuVX/8qmOvBwAIbN2CP/nFGpzwTzd3Xi27+K7o8GuKoVT4KAYBVijIDhgBgQJrJUDBCF4sEwIPwS - sTGqgQ7YPJ0rnKwrPBhMvgIlCACEEcqt64/Lr6uwaX71MABa5Y3k3TJs+m7UEld9TZK4hL8CtRqhDBSE - Rh+GyoNBN/gwZnoQ6I72R5yRZp1h7iKUuZMYVxAEm6aDEeUMArCNU90BCLR9atkNPZdlkoBl75jcqt/Z - NL96EMACAHh92i6sA6pxK+nFt39FJn94TaYj+elIevqKGxoVhJM6A1pNBUAQAEBoz6AbAu7wXBFwhEbn - igAMgnDSXqFArCu0PMzdwzlj1lq+/w2FwV+h4/LrT9kUHz8cgKFTd+Li7TKrvFUmLuLPYEgaiScTgorb - dh4NQiMdQSg+DM8RTp4zDIxHXOEgeDDoCgfClIm5k1gQVryTpKzir8xt6ozE0uM9o3NrX7cpPn4QwLoj - XXoL5IJiyrKreP5vVABO0xmReLJCMGJpaFyJbc8RbV50Ys9wJWLcEQ3DlQkhoFTUGXCEXXDpXURhmPJQ - R7ho+0UaEp++okm32QNGZNW0DvrP5ASw+4teXJR/lGiX+OLzjwDwxOR17hxBWVdAvisAIgDFlYoBAbFE - 3K2VICwQdzdxrjDrC8KwZaLlASF54wzjCiafsrJFAfCv3aNzD8+w6T15TCw5Jp+e7pPmnrBMWnIJz//n - FcL4hRclcfGVKF1VJaFBGjXiNY0mYs0waemXMgm3Tif2kSnUR9eha1hfXDf6uAkrTAh3GdXyZkCFVjQj - GS696SrGFiR2AwAhAlxzA7BYVq0a2V+SlzdJEnpWKlzAJjo2v76b/5dk03vySCw9qT8Y8A+hCUg8/oNz - AXE7IB6PEl8ToZILiBCj1fhoAS41IRAnlDpdQg+CNF42c6vExZcjteQy4F8B1GvqjOSMKjz11a+yqT15 - LKyX5ycv/lx/MMhY36HfID/w0wCIVnTy0QoC8EAw8SgICsIpAEEVgMD1CkuHJRIfOnZ/TE7Vqza9J4/C - ynvDEoqO4d7fI8llIPg91lT0mZG5/t8GBzWmLa0vn7m6Kjwyq0biCk/KhJKzMnHhuW9PpeckETGR0Yl/ - iHFx0XlVkuqCJC0eWJOgyUucLkoSXj82dPjhn4fPnYO0fgMN7t/lXvntq6/94R/vjcD0L9+g/jrAvq/S - 05w7GDH52IiN2IiN2IiN2IiN2Hj8GDLk/0q7XFeYAajCAAAAAElFTkSuQmCC + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA89SURBVHhe7ZpZbFXXFYap0kRN2kptU6kP6VPV17z0sVJV + 9aVS1ap9CUmatiFpmkAAYwM2k8EXG7AxnrGJjRmTMNqAgUCAMNgEPGITppAwgwO28WxjZq5X/3/tvc85 + 9+KASYJEpLulX2uf4Z5713f/tc4+1x4RG7ERG7ERG7ERG7HBEdp65bnsrf2/TN/U9zyVs7P3Fxnben9O + 5VX0/OxhytrV+mN7qe/XiCtoWpRYcvxG1vov5dsqrejM7YSFhw+MLCt7yl7+yR9jFlYPnOi4J7fviRxt + vSebP7/zjbTl5B3Zdf6eZG6sCscXNCXbyz/5Y9qyulvbTw5I9elbkr+jT7K3P4r6NeZw/rHRqobrEp93 + +Gbc/Lpf27d4skd83mc3l9T2mgRcYphrUiqTZMTx4LY91z+/T0IfNg1OWtR00L7Fkz0cAE1Ck0LCH1Mu + IQuAitqfg219jULAXPf1SXHlNUld8eXdCfkNS8YV1j8/tqjyJ49T7yxufNqm8+hj6pITN0prTFIOAhMx + CVMmKZOsm5v97jUKgMc452uxvfvUbVmwqm5wqGb5OBSX31g/OqfmBZvW8IcDYJIPJGi/UQPBHbNJu2T1 + PHd+5OuX778mLX1h6bwpcrBt8LGqtl0ktLJxcFxeQ61Na/gjiQCqXVImSU2Iyerc38doYBg5MD4gt8+P + /uvN9ZyjjIOC28FrmePel2I/V/D1vvqlcHe/fHzmrowraOwPhSp/aFN7+Bg5suwp9oDFB3slazv6QMSF + zcUj39R8ECezf6hjbttdJ+o47zbednButiNj1LEd0Z+H+/ok/5NrEr+g/trEnJpnbXoPH38ELQIoAYD0 + TR0BGxvlMuLifFPdx6jzwD6noc7RY5HXjDyHesC1hiN+PnuNcQub+h8JwDvvND6dVFp3q/hAr8wpb5N5 + m9pN0nphE3ODH8btc3Mo4rgn/0PpOcHz7ZxRX0sFztXX2+idg+Peue4cd54Vz/1GABIB4L1PeyV1fYuk + lbUGIDAJ80bmza8FPnBgv3fciHOjqPO5z0azbY5HK/q6OldFne+u4c6HHhnAqFDljwigGABCay9L6ror + Mhsg5m64KlnbsDhiSVB4I9ec+GaswWz2DP0gtoFpD+EH5/n+BzUf3pfb545HKJCMv9+BvKYKHjf7/HMf + GcBLE2uexULi9qL9vTJzVbOkrIYAYraCaAUIUxbzKtolY3OHpFd0SsaWTpm/pQtC3GzmGZu7JHNLt9FW + o6yPemXBth7Jphwk963xw+8kKCPd1uOY77THAzC8hN05wX2EYPcRANL6gcluGOPvSZt/SgBFld0y7f3z + MuP9CwBxSTULMOiK0DoDJHU9tK5FUstbJQ1g5iDOQcmo0D8IS7XxqsyD5hAenMQ5HaX7ub0BQDdCAJuO + femYU96+TdhH6DhPjyFmbOiQjI0dMh/7VZhn6hwRX04mvphM7JuAu8CIEeIAIOr864E4AIX7uiRpyWmZ + svyszFh5TmZ8cAG6CBAXFcSs1V9JyhojheJcQq21EaAcLAMMsAiNvYVz7EsDwLQyKwIEOIIKam7ZFZmL + 8+fh+LzyFgBoVWXg3HQcz9jYBgDYBjyjNsDAPoAbU1A9YFMbITIMJ/wttPW5xNDxO3RA0rIzMm3FWZm+ + 8rxMhxOmA0Lyh4QAN6yhWB4WABO0ic5WIFc8MEOJZWXmdFWzwkpFomnlEOMGqkXmbETym5B4BcqvAg6i + 1BFWLMUKE9Mr4AqNcAL2sURD2SfuzcLC7kFKWHKye3xBw8koAD0AQAcYCCyH6SyJD1ESgDBrtSmJFEBg + 7dacvyPt1wflRHtYjl41OtJm9Bl0uBVqCUsjdAhqoK6EpQ6qvRyWGqj6q7AchA40h+XTS2HZD1VB+y6G + Ze+FsOyBdlPnw7LLauc5ox3fUB+fDUv5sbtwXl1YAYwMlT2TGDp2p6iqRxJLT5kyWHpGpiqIcxYEnIBS + oBto3c2f3ZLwoMgXLXclb9eA5EKMeZ8MSP7u65IHMRYw7rkhBXsw12i0cO8NKYQW7rsphQEVVSJW3tK4 + SOMtE6uwXYX5d6i0FRfuKgCuBEeVHLvLEpi0+AuZXPqlJAJC4lKAQElMRU+YthJlARDJAFFa0y2r6m4g + Ydt92bEJYaeFsAsAoHzAUBCfGBj5hLAbADAngIUEoTBuGiD7CMWCsDCcIiAQSlQy30SjC2t7FAC7pAMQ + X/y5TCw5GQBxCm7wyyIFtbusvkcKkHyWPsSY+3K2AwEIKusIjQThYHgyriAAdYR1hco5wsHwQBhnFOHD + K5Rv4YrMLR0SV9BUqenzYWhy6Ni9oqpumbDouMS/d0ISik8aEBaCgoAbiqo6pHh/n8zfygcnQrgmWVwQ + RYHIcSAsDAdE3cAyca4ACC2VIUqEznAQ1B2EwTkh7DPl4dyhiTEO0x0Ji090v5tT9ycFwDE5dBQAumR8 + 4VGJKzqmIBIAYiIdYd3ABrmsvhurvx4shLjAIYA+WaAgnCMgB8JJnWHdoTBYIg6GD4Kl4QFwsiAinBGQ + KRUfhnHG0Ek75aKBx+XVX7Spm6EAKjtlbMERrKSOAsQxgIAbFtENAAE3ZG1vkRKsFudu6lYAmR/1Qf2y + gNoWAAE30BWM6gzrjvtBGFfkAYL2jN2+M4JuKHCl4bkiEgaTLoQj3NyXSZglEwSQuOLMtbE59W/b1M14 + paQyTABj8g7Lu/mfyTiAGA8QcQAxgSDghiW1XVjrdwMAlr1bWAYQlrqZiAYGIBAEnGHcQRkIQRkYALAD + CpYJ+wTd4bnCwrBAXL/QOSBoeWiJ2AbqYDB5nVtXaOKmZxTsvS5xuQ3d9z0rOACjcxplTE6TghgbAJGy + 5ryUHOjBLbADC5NuSd/cqy6gFAR6AuVAZFoIDoRzR7YDAgimTAYi+4WFoa6wzdNzhcoCIAjnCguErnDO + 0F4RmDtXpBY13x6ffyjPpu2PlwmgqlPezmqQd7IPGRC5TfKugjgixQc68eG7sHIjgB4FoBA2ox8oDNMX + DAhCQFQQAWcQgucMA8M1UOcMPvW526q7nXol4pzhAQEEBwQAXHTyGyikrrghE/KbeuOG+luFA/BWZp38 + b0G9BdEIEE2o/89l8cEuLH3bZHZZp/aAeRRBOBGEOsKC8GDYErFlYkrEh2GcQRDOETYSQtAdgX6R7/qF + dYW5k/jO8CDsQeKItD2dESpsGhyfd2iHTTlyTAptH1wEAG9m1Mp/59cBRL0FcQgXbkPtd2IVeAUPKl1Y + q3fhqY69gOoBDCuFQWfQFQ4IYfQhmp6h5eGia54eCMi6wd1NtF8oEAvDAxEA4pxhXaErTwXCYwMKiWAS + ihu6381u+L1NOXIQAB3wxrxqeSO9RkG8BRCj4QJ++6nrWvEgxEdgAFB1AwQABAUIc9kfAMKUiQFiSsSX + VyYeCIilYkEoDAuB0XcFIAQapwIISFeeASCc8/cCwsja1o073KHTNt37x6TQNgDokNfnHJRRcw8qiDcB + Ir2iWfJ2duCxGE98qP/UcsCA0igLIw3J0xUKRF1h5ErEKxXtGXCIgwEQQWe4GOEKANB+4dYXBBPtCu0Z + tl9ozyCIAby2X4/RAdOWn+rHwud1m+79QwFUdsi/Uz+V/6QdsCCqtfnx259OAOsxRw9ILWMztNHCMK6w + siXigPjlYaEQAt3BfoG59gt1Bm+r5o5iXMESAQSnYIngm3WNMxKGKRP2EIIkEJ47Pruxc2ToxDM23fuH + A/Cv2fsBYT8gfIqHn9NSuKcTzwHNsH87mmCnhNZ3KAgfhg8lrRyRjrDyXEEYXr8IALElYmDQHewb7BeA + wfUFIXggonoFb6eueQZBqAZQXj14bS/cOyBjiy7w1pduUx16TCo+ouv811Iq5bVQlYIoquzSX3qmrvhK + UtZ1qEIBKQiUBe8MHpBgiVAOhvYMHwghaKkAhHEHQFgo7k6SQUfYO4neUqEFCsQvE+cKI+MKQpq7qdNs + A0gcbn0T8mt/ZVMdejgAr87aJ/+cVanPBAv3dOPbv4Tujwa4th1PgoBgFWKMgOGAGBAmslQMEIXiwTAg + /BKxMaqBDtk8nSucrCs8GEy+AiUIAIQRyqkfjMtvqLBpfv0wANrlleS98urMvaglrvpaJHEZfwVqN0IZ + KAiNPgyVB4Nu8GHM9iDQHZ33OSPNOsPcRShzJzGuIAg2TQcjyhkEYBunugMQaPvUsqt6LsskAcvecbk1 + v7Npfv0ggEUA8PKMPVgH1OJW0o9v/6JMXXlZZiL5mUh65uqrGhWEkzoDWkcFQBAAQGjPoBsC7vBcEXCE + RueKAAyCcNJeoUCsK7Q8zN3DOWPOBr7/VYXBX6Hj8htP2BQfPByAkdN34+KdMqe8XSYv4c9gSBqJJxOC + itt2Hg1CIx1BKD4MzxFOnjMMjPtc4SB4MOgKB8KUibmTWBBWvJOkrOWvzB3qjMTSo31jc+tftik+eBDA + xsM9egvkgmLaikt4/m9WAE4zGZF4skIwYmloXINtzxEdXnRiz3AlYtwRDcOVCSGgVNQZcIRdcOldRGGY + 8lBHuGj7RRoSn7m6RbfZA0Zn1bUP+8/kBLD3y35clH+U6JT44jP3AfDE5HXuHEFZV0C+KwAiAMWVigEB + sUTcrZUgLBB3N3GuMOsLwrBlouUBIXnjDOMKJp+ypk0B8K/dY3MPzbLpPXxMLjkiH30+IK19YZmy7Dye + /88ohImLz0ni0otRuqRKQoM0asZrmk3EmmHK8q9kCm6dTuwj06j3r0CXsb64YvRBC1aYEO4yqlWtgAqt + bkUyXHrTVYxtSOwqAEIEuP4qYLGs2jWyvySvapEk9KxUuIBNdHx+Yy//L8mm9/CRWHpcfzDgH0ITkHj8 + e6cD4nZAPB4lviZCJWcRIUaridECXGpSIE4qdTqPHgRpvGDmVolLL0Rq2QXAvwiol9UZyenVeOprXGtT + e/hY3ChPT136hf5gkLGpS79BfuBHARCt6OSjFQTggWDiURAUhFMAgioAgesVlg5LJD505M64nJoXbXoP + H4WVt19NKDqCe3+fJJeB4PdY09FnxuT6fxsc1pixvLF89rrq8JisOokrPC6TSk7J5MWnH59KT0siYiKj + E/8Q4+KSM6ok1VlJWjq0pkBTlzmdkyS8fnzo0L0/j5o/D2n9Bhrev8u98NsXX/rDP94ejelfvkP9dYh9 + X6dHOXc4YvKxERuxERuxERuxERux8eAxYsT/Ab9WXDw8xLCPAAAAAElFTkSuQmCC @@ -509,224 +509,224 @@ iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA23SURBVHhe7VoJcFRVFsWZKixX1kACgRBgkB0xLLLKphDZ - Q9gS9n1xd1CnxJWyUMd1xhkZSyAJkAWQ7IEQCBhDEshK0kknnZ0E3J1x1AFGrTv33P/f7+6kG0K6UeP4 - qk7d++5/fe89p//yfle3+m38TMMyrfeNSb1736hP/79GwZLBt6QNaXMxum+bi8mDO9+ih41BRL/Lz8/v - kZub2yUnJ6ejyWS6ldGa4zfoS1ruMM+647a0Ee0vXdg2gYA9fdtfSh/d4Tb9sAwQDgsLI2c4ffr0AH1p - yxqW4BG3g7xp/hAhD5wc7iUiZI1of7u+zBDA0UA8Ozt7kL605Yyc+X5tFPmGAigRUvzatcFaJQCf/o3Q - IgXInz2krS15RwIoEU4M8Wn7qxKgMGhQuxOjPC7bkncmABDj0eFy1hNrvH8VApgC+7d3RB74ZPsUQUMB - gNg7PS63eAFKF/t1dEa+avNYoiOPC/LmDWwkwIdjfYVoixUgL/BOD+fkx9Hl/evowov3CC5FrWskQosW - oGDu4E5xo7z+65j8WLoUuVaIf7x9En36yn3iX4xYYy/CSO+WKUDhooGdnZGv3DSWLoavNsinbrqfEoIn - 0PnnJ0rsP/tWUV7AAEOEv/e4iU5HhLQcAUrm3uXllPzGMUJQkT+6aQa9uPVpQUzwJKp/np8IfOy7PSsp - d24DEUJ2/PIFMC8a2sUp+Q1j6LuwFQb55M0zhXhoaKgAfnTwZBZBuyd8G7qccuf0txMh693Xf7kCnJ07 - yDutj/f3jshXbBhN34YsM8gf3jxbCEdGRlJiQiIlJiaKj9ihpfcaInyzeynlzO5nJ0LmGy8aAmT8440p - evmfd5jm+3V3Sn79aPpm1xKDfOIDc4VoVFQUHT9+nPJy8yg3L1f8qP1RcuyDZVMNEf79fjDlzLIXIWPb - FhEg0a//Dx/5eXXX2/h5RnHAUB9n5MvXjWICQQb5hAet5FNTU6mwsJAqKysF8FOPp8oxrDm4wp/qn9NE - +Pq9xZQ9s6+dCKee2iB2t0+H748P9fTR2/lpR0HgYF+n5NfezY0vMsjHPRRo881r5Kuqqqmu7hydO1dH - VdXVmgipfCboIuxfOd0Q4V/vLqTsGXfYiaAAET4c0dlXb+unGYUBg3o6Jb/mbm54gUE+9uH5NuSPU+HZ - s0y+iomfo/r6ejrPgF/NsbN8TC4HJcKqGYYIX70TSGem97ETQfkQ4aNhnXrq7V3fYQoc2jutv/cPjshb - Vo+kf/4t0CAf/fACO/JnC6zk6+rqWAANdSJCLR+rbCRC5JpZVPesJsKXfwmg0/5/MIjbIqZfhx9ODPXu - rbd5fUbJwsF9nJJfNZK+4gYV+UOPLLQnf7ZArveXhrW+IipZhIKCAjsRItbOMUT44s05dHqacxHShnfp - o7fr3lEYMLCvU/IrR9CXb802yB98ZLEN+WNUkF9AFUy+traW9s7oRC/Hfe0QOIY1FZUVlM+fsRUhfF0A - izBeanz++kzKmtrbqQgn/Lz66m27ZxQtHNrPGfmyFcPpC27IIP9okEH+GJPPz8+nyooKqqmplVP/agJg - TU1NDVXwZ/DZY8eOWUVYP4/qn9FE+OzV6ZR1Xy+nIpwc6dlPb9+1UTxvyACn5JcPo8//PN0gv/+xYIN8 - CjcOAhXl5VTDd/lz/M3W1jZNgFqIUG0VISXFKsLejQsMET7d7k+ZU3o6FeH48M6u/XBaOG/gYGfkS5n8 - Z6/4G+SjHltiJZ+SIo2XV5RTNZPHaa1wNQFq+Wao1uKz5SygJkKKIcKeTVYRPnlpKmVO9nUqQtrIroN1 - Otc28BveidHeP9qSVihd5sfqTzXIRzy+rAH5PGkcjzYQwSldy5cALoOrCVBTy2sZWAtgv1BuKae8vDzJ - HRmlbZvDNi8yRLiw7V7KmNTDmQg/6pSubZwc0aURcaB0qR+rrr3Dg3z4H5dLQ9jPo0E0Wm6x8OamSog3 - xFUFUGtFBM3i0WnhnIYI+rtD2ANBVL91nPRy/oXJlDHRsQjRPjd/o9Nq+nAkgHnJXfTxtikG+X1bVhjk - j3Jjuby3R6NouJqvYVz7NTUM3W6N1nK+nXmr+CANX82B+MKNcv2DPC4BTZBqQ4TcBiKEPhjMZ4ImQv1z - E+nUBJ9GAvBZQDqtpo+GAoD8hRcmGeT3bllpJX/0KJPPlQYrhXy1HeLOrpccK98aYBCO/7itnVUihOQM - 589oObBFruZLQCwDuVEjh2uhphIh5KElVKdEeGYCnbqnu3sFMAczef1XG5AP27KqAfkcKsM3z896XPf4 - trTmq+QRiP0/yIEk8ikfgmBuKwRiEEByMHnkEBHEZxG4RllZmbwW24qw65Flhgh1T4+ndBsRXBLAHDSU - zj+r/VqjkV9tRx6NlJWVSmMQQGvcanEzTOJ3fvXtw9r6tkKoY5JL5ajUIfk0X0QodSTCcjq3daz0eu5P - 4yh9fDfXBChh8vXPaFtQkA95Yq1BPjk5WRooLS2V57USAFtZ+Nq8ih+FFZSQkEi7js0Tcvj2d6cGGmRt - RdmdOp+SjxzRLiU9n+RshCrZWaI2ekhOtorw/qMrWATtTKh9aiylj+vWPAE+Gt+d77DaYwbkdz+pkY/Q - yWdnM3kzyJdzQ5oAaAqnfGWFfcNoND4ulg5FR1NMTCzFxsXxPE5sLMeVjeHjhxOSWAA9pwir55O8+pyB - WqgtInAv6MkQ4bFVVhGeHENJd3lemwBErW7AKamw68l1GvmICO2bz85m8mbZ5eHb14CGlN8YuG5L+DPF - xcVUbDKRCSgyUVFRkfiIm0vM8u07+rwz4BIzc95s7gm9oUcR4fHVRv8AOOn0rn0gITY5R5KP0JkzZ6Rg - eTk3CgHK0QQDzShwHLGdO3dS8fa7XQJyIKfUkfyqJteQOGpZWLwSyubecAmpHaPevusjPDxcbjYgX8KF - LJYyneSVgeYdvfJeC0QAB7kbAmcOekOP6HXfvn3uE+DgwYN8s8mW09RSZpFiFr0odn24ZvEtWBiwiMEq - AVJW9moietvNDQEkH9eQunpNmesxPS6XGYuAXg8cOOA+AeLj4zlxsTzupJigTJ79gCGK+GVyDL4S4OiK - XnR4ma/DU9wRDi/3tROgzCa/1HMGXqdEiI2NdZ8A+O0ed1s8e1HAgE4UpOGjUetxGwGW96T4IB8Woicl - M8RyTEMvicEeBdiPD+a17CsBFDGthmOI8Az0Wcp94kvT23d9JCUlCfliOQu4IIRQkDkXheUzpJQBi7gS - AEQPLfCmI3wWwD+ikxe7TPm+etxX1iJunAE6KSEnddgXWOfoBfOS4hKZJyQkuFcAFMfjSlPYGdQ3oPlK - AJz+UQFeYjUwYYaaQxjbY1iLmBJA5dSEcA4cVz26XQA8+vCLbWmpWWDmTRD2AoAZMZ5jjcRxnKEESFri - S3v4VTdpKRPUAR9x8dkmLemhHcfamdpaQwDJzZDamjXDqvqwckzrEcfdLgA2MfhlBpsVjWgD8I2nYUwJ - kBjcg3b6dxCbyETt4aNZHNMhazmmBNDy2+d2FpMezSXXQ4ASyuV9N+6wKIw5SKu5xKQhjnEjiCsBcFPb - MaUdJfCNMCGoByXwPF6sAuJW7JjSVmJKANSyrwer9YC5EeO6eFVG3P0CcIEzZ07zjdBaFDccWInxHgGP - SsSKJV5sCBC32If+OuF2il/cXfy4IFjl62BfPQa1tTYCoIaeU9Ww9oAYrDaXzRr7bhcAm6DMzCyrADyH - jyeD7O/tgIatAsQu6k5vjrtVbOyibrpt6HenrYNaCdRaJYDUQU7UEgFUDY24qgc/MytT/OsiQEZGhvzy - o5EsJlMxv8SYFGnMYbUXG/hKgOgF3ei1MTdTDNvohQzdxtj4Ko41spbnhgB6foFRD3W0Wgp4Ico4lSFr - 3C4ACKWnp0sREQFvcAImy1be6HSroAQ4NL+bXNevjrqpScD9Ap9RAmj5dMEZ4nNM6iHGFn2lp5+SHhFz - vwBcJC0tjU+xLPkJLIttFp9uWXxZCOAL4GtQAnwQ6E0HGR8EdhV7ULda3JEP29UQoGHezMxMOdXFbxBH - jyZT0XUQgN/dT548eU1QAhyY15XRRbMB8GF5rnwVl7k1rgRwlPtKwG8MbhcASR0VuxKUAPuZbOQcL/rw - of5NQuQcT4qa2+UXJkBhISdmsMW/OcTKvMiY26PIEADkw3gnCHslRM3pwrCuVQIU6jU0y1B12YrPhLUe - rDG3CICfkj5/b1GzgP8AHx7rKSQiZnvSzmkd2HppmOXJ8KJwBubhfBxr1LFd+lp8FjmQy1GNpgAcdDrX - PvDhygdHNgvnt083BNg3qzPtmNyOrSftm8mA1f1wPmZYPY6nAOZKAORyVKMpcF2ABzhRM2ArwN4ZnWV3 - BwvsgZ0J31Oz4lvxDtZyzE6AzZy3GTC5KkDFphHNgq0Ae6Z3kt0dbJgN9kxnMQwfFvPOshYxWwEqNnLe - ZsBlAco3DG8WbAUIu78TvTb6ZgplCx+w9UEW89D7PWzWetgJ4KhGU+C6AOs5UTNgK0Covwe9Pf42eml4 - 6yYBa0P4M3YCrOO8zYDLAljWDmsWbAUImeahgUntntaRgbmyiOlzOc7w79hIAEc1moLmCjCRMQXFXQVI - COmpNhDSHflxx1bmNuD5LrFWAVwFuOic8GfKroyrDiz0dxfatv797ObAUS4X8NP8k/S30eJGq1b/A7bD - 5d7AigT4AAAAAElFTkSuQmCC + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA23SURBVHhe7VoJcFRVFsWZKixX1kACgRBAZUcIi6yyKUT2 + ELaEfV/cHdQpcaUsRsd1xhkZSyAJkAWQ7IEQCBhDEshK0kknnZ0E3J1x1AFGrTv33P/f7+6kG0K6UeP4 + qk7d++5/fe89p//yfle3+m38TMMyrfeNSb1736hP/79GwZJBt6QNbnMxuk+bi8mDOt+ih41BRL/Lz8/v + kZub2yUnJ6ejyWS6ldGa4zfoS1ruMM+667a0Ee0vXdg2gYA9fdpfSh/d4Tb9sAwQDgsLI2c4ffp0f31p + yxqW4BG3g7xp/mAhD5wc7iUiZI1of7u+zBDA0UA8Ozt7oL605Yyc+X5tFPmGAigRUvzatcFaJQCf/o3Q + IgXInz24rS15RwIoEU4M9mn7qxKgMGhguxOjPC7bkncmABDj0eFy1pNrvH8VApgC+7V3RB74ZPsUQUMB + gNi7PS63eAFKF/t1dEa+avNYoiNPCPLmDWgkwIdjfYVoixUgL/BuD+fkx9Hl/evowkv3Ci5FrWskQosW + oGDuoE5xo7z+65j8WLoUuVaIf7x9En36yv3iX4xYYy/CSO+WKUDhogGdnZGv3DSWLoavNsinbnqAEoIn + 0PkXJkrsP/tWUV5Af0OEv/e4iU5HhLQcAUrmDvVySn7jGCGoyB/dNINe2vqMICZ4EtW/wE8EPvbdnpWU + O7eBCCE7fvkCmBcN6eKU/IYx9F3YCoN88uaZQjw0NFQAPzp4Moug3RO+DV1OuXP62YmQ9e7rv1wBzs4d + 6J12h/f3jshXbBhN34YsM8gf3jxbCEdGRlJiQiIlJiaKj9ihpfcZInyzeynlzO5rJ0LmGy8ZAmT8440p + evmfd5jm+3V3Sn79aPpm1xKDfOKDc4VoVFQUHT9+nPJy8yg3L1f8qP1RcuyDZVMNEf79fjDlzLIXIWPb + FhEgcWi/Hz7y8+qut/HzjOKAIT7OyJevG8UEggzyCQ9ZyaemplJhYSFVVlYK4KceT5VjWHNwhT/VP6+J + 8PV7iyl7Zh87EU49vUHsbp8O3x8f4umjt/PTjoLAQb5Oya+9hxtfZJCPezjQ5pvXyFdVVVNd3Tk6d66O + qqqrNRFS+UzQRdi/crohwr/eXUjZM+6yE0EBInw4orOv3tZPMwoDBvZ0Sn7NPdzwAoN87CPzbcgfp8Kz + Z5l8FRM/R/X19XSeAb+aY2f5mFwOSoRVMwwRvnonkM5Mv9NOBOVDhI+Gdeqpt3d9hylwSO+0ft4/OCJv + WT2S/vm3QIN89CML7MifLbCSr6urYwE01IkItXysspEIkWtmUd1zmghf/iWATvvfYRC3RUzfDj+cGOLd + W2/z+oyShYPudEp+1Uj6ihtU5A89utCe/NkCud5fHtb6iqhkEQoKCuxEiFg7xxDhizfn0OlpzkVIG97l + Tr1d947CgAF9nJJfOYK+fGu2Qf7go4ttyB+jgvwCqmDytbW1tHdGJ/pT3NcOgWNYU1FZQfn8GVsRwtcF + sAjjpcbnr8+krKm9nYpwws+rj962e0bRwiF9nZEvWzGcvuCGDPKPBRnkjzH5/Px8qqyooJqaWjn1ryYA + 1tTU1FAFfwafPXbsmFWE9fOo/llNhM9enU5Z9/dyKsLJkZ599fZdG8XzBvd3Sn75MPr8z9MN8vsfDzbI + p3DjIFBRXk41fJc/x99sbW3TBKiFCNVWEVJSrCLs3bjAEOHT7f6UOaWnUxGOD+/s2g+nhfMGDHJGvpTJ + f/aKv0E+6vElVvIpKdJ4eUU5VTN5nNYKVxOglm+Gai0+W84CaiKkGCLs2WQV4ZOXp1LmZF+nIqSN7DpI + p3NtA7/hnRjt/aMtaYXSZX6s/lSDfMQTyxqQz5PG8WgDEZzStXwJ4DK4mgA1tbyWgbUA9gvllnLKy8uT + 3JFR2rY5bPMiQ4QL2+6jjEk9nInwo07p2sbJEV0aEQdKl/qx6to7PMiH/2G5NIT9PBpEo+UWC29uqoR4 + Q1xVALVWRNAsHp0WzmmIoL87hD0YRPVbx0kv51+cTBkTHYsQ7XPzNzqtpg9HApiXDKWPt00xyO/bssIg + f5Qby+W9PRpFw9V8DePar6lh6HZrtJbz7cxbxQdp+GoOxBdulOsf5HEJaIJUGyLkNhAh9KFgPhM0Eeqf + n0inJvg0EoDPAtJpNX00FADkL7w4ySC/d8tKK/mjR5l8rjRYKeSr7RB3dr3kWPlWf4Nw/Mdt7awSISRn + OH9Gy4EtcjVfAmIZyI0aOVwLNZUIIQ8voTolwrMT6NS93d0rgDmYyeu/2oB82JZVDcjnUBm+eX7W47rH + t6U1XyWPQOz/QQ4kkU/5EARzWyEQgwCSg8kjh4ggPovANcrKyuS12FaEXY8uM0Soe2Y8pduI4JIA5qAh + dP457dcajfxqO/JopKysVBqDAFrjVoubYRK/86tvH9bWtxVCHZNcKkelDsmn+SJCqSMRltO5rWOl13N/ + HEfp47u5JkAJk69/VtuCgnzIk2sN8snJydJAaWmpPK+VANjKwtfmVfworKCEhETadWyekMO3vzs10CBr + K8ru1PmUfOSIdinp+SRnI1TJzhK10UNyslWE9x9bwSJoZ0Lt02MpfVy35gnw0fjufIfVHjMgv/spjXyE + Tj47m8mbQb6cG9IEQFM45Ssr7BtGo/FxsXQoOppiYmIpNi6O53FiYzmubAwfP5yQxALoOUVYPZ/k1ecM + 1EJtEYF7QU+GCI+vsorw1BhKGup5bQIQtboBp6TCrqfWaeQjIrRvPjubyZtll4dvXwMaUn5j4Lot4c8U + FxdTsclEJqDIREVFReIjbi4xy7fv6PPOgEvMzHmzuSf0hh5FhCdWG/0D4KTTu/aBhNjkHEk+QmfOnJGC + 5eXcKAQoRxMMNKPAccR27txJxdvvcQnIgZxSR/KrmlxD4qhlYfFKKJt7wyWkdox6+66P8PBwudmAfAkX + sljKdJJXBpp39Mp7LRABHORuCJw56A09otd9+/a5T4CDBw/yzSZbTlNLmUWKWfSi2PXhmsW3YGHAIgar + BEhZ2auJ6G03NwSQfFxD6uo1Za7H9LhcZiwCej1w4ID7BIiPj+fExfK4k2KCMnn2A4Yo4pfJMfhKgKMr + etHhZb4OT3FHOLzc106AMpv8Us8ZeJ0SITY21n0C4Ld73G3x7EUBAzpRkIaPRq3HbQRY3pPig3xYiJ6U + zBDLMQ29JAZ7FGA/PpjXsq8EUMS0Go4hwjPQZyn3iS9Nb9/1kZSUJOSL5SzgghBCQeZcFJbPkFIGLOJK + ABA9tMCbjvBZAP+ITl7sMuX76nFfWYu4cQbopISc1GFfYJ2jF8xLiktknpCQ4F4BUByPK01hZ1DfgOYr + AXD6RwV4idXAhBlqDmFsj2EtYkoAlVMTwjlwXPXodgHw6MMvtqWlZoGZN0HYCwBmxHiONRLHcYYSIGmJ + L+3hV92kpUxQB3zExWebtKSHdhxrZ2prDQEkN0Nqa9YMq+rDyjGtRxx3uwDYxOCXGWxWNKINwDeehjEl + QGJwD9rp30FsIhO1h49mcUyHrOWYEkDLb5/bWUx6NJdcDwFKKJf33bjDojDmIK3mEpOGOMaNIK4EwE1t + x5R2lMA3woSgHpTA83ixCohbsWNKW4kpAVDLvh6s1gPmRozr4lUZcfcLwAXOnDnNN0JrUdxwYCXGewQ8 + KhErlnixIUDcYh/664TbKX5xd/HjgmCVr4N99RjU1toIgBp6TlXD2gNisNpcNmvsu10AbIIyM7OsAvAc + Pp4Msr+3Axq2ChC7qDu9Oe5WsbGLuum2od+dtg5sJVBrlQBSBzlRSwRQNTTiqh78zKxM8a+LABkZGfLL + j0aymEzF/BJjUqQxh9VebOArAaIXdKPXxtxMMWyjFzJ0G2PjqzjWyFqeGwLo+QVGPdTRainghSjjVIas + cbsAIJSeni5FRAS8wQmYLFt5o9OtghLg0Pxucl2/OuqmJgH3C3xGCaDl0wVniM8xqYcYW/SVnn5KekTM + /QJwkbS0ND7FsuQnsCy2WXy6ZfFlIYAvgK9BCfBBoDcdZHwQ2FXsQd1qcUc+bFdDgIZ5MzMz5VQXv0Ec + PZpMRddBAH53P3ny5DVBCXBgXldGF80GwIflufJVXObWuBLAUe4rAb8xuF0AJHVU7EpQAuxnspFzvOjD + h/s1CZFzPClqbpdfmACFhZyYwRb/5hAr8yJjbo8iQwCQD+OdIOyVEDWnC8O6VglQqNfQLEPVZSs+E9Z6 + sMbcIgB+Svr8vUXNAv4DfHisp5CImO1JO6d1YOulYZYnw4vCGZiH83GsUcd26WvxWeRALkc1mgJw0Olc + +8CHKx8a2Syc3z7dEGDfrM60Y3I7tp60byYDVvfD+Zhh9TieApgrAZDLUY2mwHUBHuREzYCtAHtndJbd + HSywB3YmfE/Nim/FO1jLMTsBNnPeZsDkqgAVm0Y0C7YC7JneSXZ3sGE22DOdxTB8WMw7y1rEbAWo2Mh5 + mwGXBSjfMLxZsBUg7IFO9NromymULXzA1gdZzEMf8LBZ62EngKMaTYHrAqznRM2ArQCh/h709vjb6OXh + rZsErA3hz9gJsI7zNgMuC2BZO6xZsBUgZJqHBia1e1pHBubKIqbP5TjDv2MjARzVaAqaK8BExhQUdxUg + IaSn2kBId+THHVuZ24Dnu8RaBXAV4KJzwp8puzKuOrDQ311o2/r3s5sDR7lcwE/zT9LfRosbrVr9D5yF + 5dh36JZsAAAAAElFTkSuQmCC iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAABKySURBVHhe7VtnjJ3ZWTYdQhU1gCIUghLaIghRBH8QCl0C - kYLYEAFCoPyIIhaJIrRLsp899U67/d7pvffee/HM2OOxZ917Xe/a3mZvvF577LmH53nPOd/97vh63MZo - d8WRHp32nrd9p7zn3Jkd/5/+D1KooqIlWFV5/T5UVlz3lZXd8CJSU9Nnhn10Eg1TSOeuv70lmJzKittm - 2EcnOVmZ63MrK2p+HyD5XhdzaCOkD3UnJ/ue4zjfa4Z++JNTWvqxorLSu/MrMFZAg40DbBsdYfp2Vlet - O0VFv2KGfzATZup3meJDU0Yg8JlYdfVdbaAHrtEasyavam3ZKCgp+bIZ/tD0OLpsS8qKRD6bXRy8mhn2 - f8E0bZl2BYN/Ut3RvjG7sgdG7oGRBAzeq6HLyb6m3h4Vq631m+Fbpsxw+JO58dj5kubGb5imZ5vyIpHP - Ob7ce9yswtVVG/nxePHD1mtmMPgvLYMD2kgX1gHeui53j46oaG3Nghn+wJQTCf5lQSDwPnXZ5S9KlLc2 - vWC6nk0S4/N8945cvqRm9yyr195/T7UND6nCaPRCZrTglwyZmzg1MwOBP8gvjh/tmRhXM66xxLLO9yTb - 2E+MzM4qJ2PXek4skuv4/b9s2LmJfPPi8SKnIP/eiWtX1NLBNXXyjavihIrW5n8zZNubvMbPGOVn4ISr - d95XS0eP0Al3siPBr5LWieZ/vLCkxF+Er+OLRRMLB19RCwf2g16P0aCxpmxzD/YeP6rG0c5ZFq2svICp - LsvNCQR+Iq84vs9fXpa4fOsmaDWfhf371Ikrr1kn/Dtpty35wuHP0/ijr72aouT08pLae+Swuvzed9SZ - t99U8Yb6jYLi4sNOWc760O55dfadt9TV9dviJB5x03uWAIxL4WGAviTvJbX/xAk9Fth3+qSC0Ync4uJ3 - covj74wsLki7jBfosXOrK+rE664T/tOo/3TJF4//njVehMFogZR1nWf4mTeuqSucDceOKH4ZKngOTlk7 - e1rNr+7zjGFueSypKeYubD9y9M2trqq1M6eED/kde/2yOnTpgpRdPsKL9EldkjOh9emckDT+sha4vCg5 - ldaKJ+ssv3L2jLpy+5Y6jfW4jGnv0i6hnxA67/jUXMPLE7kZR37kSyd7+1LANozn8XqcTgiIE/7bmPN4 - yRpPr0+C+eTSojDXwmyZuRYqZYCbGOlJN4n2SVE02Z+kte2p/O6Xkzqee48uG50AyhF6yjNtPFplJgT8 - ibLmJ9gTciKRTwcqyzeGZqbV5KJmLMxt2dM2ubTbUwZS+nR9YnG36sCJUdJQr/zlpSo3GlE7iwrVt/Pz - VFYoqApK4ipcValqO9rV4PSU4QG+GHcfP0AMJ9L0WUxhaWQE/Ylofc3fGrMeL+WXxr/CEHZ8YcEoslsM - sbm3bPupdLJ9UfVPTapoTbVyCgvUS7k56n98ucbgYhWprlIx9GFHVzgtxCEv5mSrl0CTEwmLM8Z3L6gJ - GiT8NvNPwpVvwLa8aCSB47LCmPNkKS8eLSqur9uYwM47Tsa7NfNkGQq6dZTZhnx4dlqV1Nepl/GFXy7I - l6/LCG8YZ7woDbpxodX0Mh7oGRtTFS1NKhcOeBEOy/AXqcbuLqF1ZdoxzGWc1sHyHEe9dbBf4eg+V1pa - +n3GlCdLDDryo9E99V2dYD4PULCGVuJ+tA8NqsxgQL56rLZGpnQKDWZUSm5g+dm8ua9XZYdDMnP8ZaUI - kGYMrdXDq0+yPAB5Tix6K11w9kTJCYV+DFP0zU6s4TERNK/GoLwG6gSFo17b2cEjSKZ0z9ioUQz0zM0Y - Pd7WTTlNG2lHF+ZUdWuL+laeT2Vj6fSOjxl60BFmrJVBeiypu9mh0N8Y9bcnZYcLfxUb111+BQodNdCK - zkle1daqMgJ+FaooV8Mzmm5sfk7Tznvp9ZhR08c6FZc2A+GJfgHKrQMDskcQPeOjMmaMPAWk0/W6zk6V - E4uOGbW3L/FG5+Tn3ROl04DTNQPTnlN+ZG42Lc3TgjNqJ2YXZwKXVTqavskJ5YtGbjjVzg8a1bcn+asq - L3eNDkPIrBg4MgeBNBR558iIrFXu5kP48rofAC1pxCGSz5kylWU/6lRcaG2foTUG6TGk021t2Ny+jU21 - sLRE9gR3jKvXrCpratqINdS9aFR/+pQbD/0upnZiBmHmsBHCfNgowA2Ka74f3pf2FJpkbhVM7Z/RfZZu - DnXbl1LWdY6raW+Tk4X7jcuftOSFcv/UhApWVrxl1H/65C8vnx+kEFF2Rg2ZnGjs6ZYdv06UsUowT9Jr - zKaMs0jXtrmdZbduDC0ojkuswB3fS2dzRrG4mP26MeHJE08AHIN3eL4yKhTgjOdUH5yZUrjrS1DDsihq - aVxQodS2AQRH3DPy49FETjiUqMbm2TE8mKRx6c1YQSrvlv4+hrmqEieE7rPQ/XU4totKS1scx/luY8qD - k1NQ8LOZgcDfZQaDL+XFYq35sdhaXjx2LRf3eRofqqpIcNMZnJ4WQwUo0wh+/QYEKoMQqvuZGxpDN4Q6 - wToV42MHgpSlzKD/pcyQ/x+yQiE/gxZEnRuMIfRYK8vLj7ysjGnsOeX4ADEYbPok1+XeiXGZBT7o78Qi - N33x0MX8eHwe9dJMv/+buwKBPzPm79gRqKz8x0BF+UbzQL/qwjk7CI9O4tKxsHZALR8+pKb2LstU84JK - lTU16rU/MYG2yfv6CW8ZG2UiNxY4z0dSIzol5YTDzzvRyC1GjFvxsfVq7AX8AO2IT4R+SrdbjCOE5r41 - zVcmHJu9mHk92B+aMHvoGAR5+imvsr31BWwaidWTJ9XSkUNq/sB+jbX9avfBNZli/WQOBloQcgBj5HJD - 4xnz23a3LO2anhuWLxS6+LD3Qz6HOzud9a6RYdVPp5If+RhoGZpn16g+fbgMhI59dgxoOBOmVvbACXvV - NG6HtGn11Al1+OIF5WRn3buYSPyQCMUX+TLjfTLgDir5JDEh56ouT6o+t39CdeNMDiG+b8AmaMeRljTu - GOEzoXonMR0x7R/05Ten3Gj4v3CBEn36hI/lx9xC10P4CPG6Wsj1tFtaQI+3dfZpOi5vIy7pADGAwJTu - wxpy6yntusyrbRyXndbBgdR+GKth2gA6KQf3CSPuoYkXGMyUdV6MUnnfj9LGBhWjA9w2yPbSujqltqV1 - ADcOQhuvyy421duwWZW3NCMIGkYdX9nTRwgP017e3KSwyX7LiHukxOXC8Jd8LD8vf4uajjb5EOn60kHz - SeOAeH3tBi8aPUDvRDLvHR+XMp+1e6TO8pg4oAbrumt0VBj3kI7MDQ8L1hG6JiDjn424R0q58dgqN0PL - w+WZImNcZlcpNmOhs33MBan0zHX/WBoH1NVudKOTYMzdjenn1gWjkncjJzqGh1UjjkFuRNIPetLoMaAF - D902hk2qWeGoKzPiHik5weD1Vjg5HT8tR+tIHao72jfRAabu2mD0s/05aR2AjnToMkipw3D+KMLcS5sO - 3CeyAoHXjbiHpszCwk9w0xQjPHzu0wFoxpHWiJmSpPPq82DdUhzAOCBWV7NhDdsSloaMML3SjoFgLg0B - ykMIg3FR2siOhP7ViNwy+SKRfTX8qg/UJ9nOWUIk5dm+B40l0jmgtmaDG5oAtz5CE7M8ottw69M0uj6A - +IDBRUqflFNpGYSQR240cierqOjzRux9ia9PCIYcXK42RhF66/HkCT2En5Zr5TBW6ITBAvS5NGaMwNSF - VqDbUhyQX1LyNQYfOFPvcsPiwwYvOe2Dg3oQpjrzDgus/86RITWEC9LoolZU9w0laQDdjmWCWTCzuk+1 - YVd3du1keFrK8NuIF8Mz/P7fyI6FDnOmMArlcdUJOV5+wtPTxq/dh8CMX1RkiV6m39BRz5aBPgnBK5qb - +caYcMpz1p1w6KYRrxXI8vt/HkfVHwLf8MUiTXmx6LHc/Pzv8KvRKQw3efYnwUhtSs3uX5WdNqWfjvDW - AdIuHjqoxuCw4vp6RYfngH9WLHopKxS8U4DQlCEqaYZw7+eYdhoheTpgBiLSG8bsoi5s88rlnYLRHm6M - dxCuX/PFYos5kVBhRrDoq9iPfrugoOCHjflbJ34pKts2NACmXgX07Nh98BXcG/aKQAsekaRpA420GYXo - KP5QunL8mLp45Qr8rtO7N29K29Lhw/JFyVuPs9DjtXzdxyUwsWdZDc/PS3tSlqbjHpKDCxfYP/0fT+BM - PsCLRxt2czEOYE6M4cKx99hRBEoTbhud1YblY8tcSsn6oCwbfumV48fVvhPHYfghMUacJrSUo2Xpum4T - uYYPZ9IcYnsuA8vXS8ufzvm1jQlPl3BMfhFXywSPM76365xGQikovXTksJp/ZU3q3v4HQdN5ocdIO/YJ - b99mWtZ5rlMmnZ+un7EBb5VP/ZuATWSUU1j4XnN/LxSEsgYtzCFwGGt29dRJuUK7/TBK+mEQc/6FiLRZ - GDqWLX3KONLTGR46gut7EcuIs4Zr3h0Dei2nXx5mcZTmG/W3J2WHgz7uoM39WkEBygxEmHOX56/D3JQs - jUtLGuzEOjdt7EebhpfO5BxrxwvYN6Dm1g7IftGDu4mXn9WjCV+fGx//kMKovj2JJwR207ucBRQm6DO5 - UWQZ0/Lg+XNqdPdCkuaxQf5Ghoc/Z8Q8jN+Pmcbj17ZvRgUuaNj8jhu1tydlh0I/A6/eYMzdBKV4XDHn - kxg9TsHMqeTykSPqyKWLskFxBrBdAKP0OFM3IA87PrU9yZ8BzQo22jXMsJGFBU3jjvGMNY7jH1pmR0Pb - 81djfMGhRytaW7SwXiPMC8Titsyvx9jg2GuX1YHTpyRabOrT/dycLMhHctvn1pM0XB7cVzir1s6cRtQ5 - oeV7aG3dW+YNkU9e2Lx/zZjx5Ck3HK7bWViYYFSlFe1JBQy4rw1gMEPFT1x5XTZI2RuwTFLo0oxtgAx+ - cRp+6MJ5dfTVS2oRGx5PmxQ6A+GBMVI2bZTTAEcgiLtWVFSkn72eJGWFw//EaKoNkRanXEMPBAAMk+ll - gQhlOamUputWjZgNPN+PXn5VnX3rTXUGOIAvySNzAgby9BiYmZEzfXLfirTTaafeuCaOW0GMwAtXo8sf - PMFf6lLWudZF99s64wK+E/hi4R5jzuOl7GDwtxgG05tEPZhaNPR0iZD6bi0s2Q6gTde73HYqzbCVX/Lk - 1Svq0rs31PXbt3UYiHT99vvqwjtvq3NwEKf65MpeOeIsT50bft1aNuXcJzsFXTKTZD8IB//emPXoKTse - /81cnP189aF368CUBothUEIbyLJWym03qPPQ1XnHAXRIB5Tj/WBwbk6+MjdQbaDhZ1DnlpNyvG3C261r - iK6gYzjsZGas55cVf8mY9XipqKTkOScSvsm3v/ouIxi3KoLlFJj+zajvBq2lB43UBZYmtV/3QYbA0uh2 - 10BvmxkjuYcPQ3fO4NxY6K+MOU+WuJPy1saHTREA1HqghZr2zk55o2fdS+PSbSprZW3dU/a017qGoQwI - f7fP0BsaS8vrvLw9hAN/Ycx4usQ/jqATypqaIKRDBAtgsEaH4jHJZ6zssO9GYWnJRhkcpmlATxqUrdJJ - kFeSn9tvxkid5Y4OVdyAK3QsejsbeoSrq9wx7lgjo7JVG58ZCv25UX97EmbCZ7Ac3uXPYTUewwnG3nRQ - pt//Bf4YmRUMfgnH56tOVuY9Kl7T2S4vyBZex2leOtd9Gixz1vHXJ17HsyPB8YxQ4e/wWAPvYZ5OVZjm - SX78CNZ4/58atbc34UL0aTqhtKkBG0yHogL82jmh0CqjRUPmJj5/ZYVC/Xx+KmnAGBqGcTr3OMW2CdqF - L1+OcgOB8+D7Tf5CbVi6CTv7f9BY7k8cLzMwGrmNj/DHhuTZJOuESE21eBsKvoyTbMtHh6xA4AVOW4bS - BI3XZRpvysYpbCttbJTHDDP8gWlXIPD7Vhfkt3cFg39kup5t4g+YiBMOZvn9nzVNW6askP+v+dZnHVDd - bnJB26Z6u4rW1Cis4UIzfMsEPX4uJxhc4fIzTR+8xLXrZGWtc2rzeKqiwUAVjNVtLNt2TP88X4J/r2CG - f/gTpvNPcbnQ2EcB/8XuUWfXhyZlh0N3qtpgINHeqo2VssltGX3yoBGN/ogZ+oFK3Oz4NzffA/C97QcA - 3rb4xPyjAF9hfhL4aeAXvXDCoXf5WFGJIKUSRkpuQONtzqPMCQVvecb+AvBxgL8jkC/5Uw7lUS7lUw/q - Q72o37b/G53XcP6Fx/cD/ENEr/FUkAp/Avgk8DkvduXnn8IyuIvjbX0zfFgeFtJWVHjWM/Y5gH9Y8SmA - fMmfcijP6wTqQ72o3zNxBJl5HeF1Br+AdcjHACr141588fnnP/W1r3/9uUcBaT1jaSTBJUG+5G8Nplyv - 0V7Dt9X4j3DaseN/ATP78ygBALH/AAAAAElFTkSuQmCC + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAABKzSURBVHhe7VtnjJ3ZWTYhEAgtogZQhEJQQlsEIYrgD0Kh + SyBSEBsiQAiUH1HEIlGEdkn22yl37p12+73Te+/j6b17xvZ47Fn3Xte7trfZG6/XbebwPO8557vfHV+P + 2xjtrjjSo9Pe87bT3vPNnW3/n/4PUqSysjVcXXX1HlRVXg2Ul1/zIlZb22eGfXgSDVNIZ66+tSmYnKrK + m2bYhyc5Odm355aX1fweQPLdLubQRkgf6o4v967jOB81Qz/4ySkr+3hxedmd+WUYK6DBxgG2jY4wfU5N + 9W2nuPhXzPD3Z8JK/T5TfGDKDoU+l6ipuaMN9MA1WmPW5NVtrWuFpaVfNcMfmB5Fly1JubHY530l4cs5 + 0eCXTNOmKSsc/pOazo612eVdMHIXjCRg8G4NXU71NW/vVYm6uqAZvmnKiUY/7U8mzpa2NH3LND3dlB+L + fcHx593lYRWtqV4rSCZLHrRfc8Lhf2kdHNBGurAO8NZ1uWd0RMXrahfM8PumvFj4LwtDofeoy0vFResV + bc3Pma6nk8T4gP/uoYsX1OyunerV995V7cNDqigeP5cTL/wlQ+YmLs2cUOgPCkqSh3snxtWMayyxU+e7 + Um3sJ0ZmZ5WT9dLtvETM7wSDv2zYuYl885PJYqcg/+6xK5fU0v5Vdfz1y+KEyraWfzNkW5u8xs8Y5Wfg + hMu33lNLhw/RCbd8sfDXSevECz5ZVFoaLMbs+OOx9YX9L6uFfXtBr8do0FhTtrkHu48eVuNo5yqLV1Wd + w1KX7eaEQp/IL0nuwaG6fvHGddBqPgt796hjl161Tvh30m5ZCkSjX6Txh199JU3J6Z1Lavehg+riu99T + p956QyUbG9YKS0oOOuW+20M75tXpt99Ul2/fFCfxipvetQRgXBoPA/SleC+pvceO6bHAnpPHVSCZWPeX + lLztL0m+PbK4IO0yXqDHzq0sq2OvuU74T6P+k6VAMvl71ngRBqMFUtZ13uGnXr+iLnE1HDmkODNU8Ayc + snr6pJpf2eMZw9zyWFJTzF3YfuTom1tZUaunTggf8jvy2kV14MI5Kbt8hBfpU7qkVkLbkzkhZfxFLXDn + ouRUWiueqrP88ulT6tLNG+ok9uNOLHuXdgn9hNB5x6fnGl6eyM048iNfOtnblwa2YTyv16N0QlCc8N/G + nEdL1nh6fRLMJ5cWhbkWZsvMtVApAzzESE+6SbRPiqKp/hStbU/nd6+c9PE8e3TZ6ARQjtBTnmnj1Sor + IVi8Xt7yGGdCXiz22VBVxdrQzLSaXNSMhbkte9oml3Z4ykBan65PLO5QnbgxShsbVLCiTOFw5DJV3y3I + V7mRsCosTapodZWq6+xQg9NThgf4Ytw9/AAxnMjQZzGFrZEVKl6PN9T+rTHr0VJBWfJrDGHHFxaMIjvE + EJt7y7afSqfaF1X/1KSK19Yop6hQveDPU/8T8BuDS1Ssplol0BesKFeBRFwc8nyeT70AmrxYVJwxvmNB + TdAg4beRfwqufAO2BWLRdVyXlcacx0v5yXhxSUP92gRO3nEy3qGZp8pQ0K2jzDbkw7PTqrShXr2IGX6x + sEBmlxHeMO54URp040Kr6WU80Ds2pipbm5UfDngeDssOFqumnm6hdWXaMcxlnNbB8hxHvW2wX+HqPlNW + VvYDxpTHSww6CuLxXQ3dXWA+D1CwhlbiXnQMDaqccEhmPVFXK0s6jQYrKi03sPxs3tK3XfmiEVk5wfIy + BEgzhtbq4dUnVR6APCcRv5EpOHus5EQiP44l+kYX9vCYCJpXY1BeA3WCwlGv6+pUWZg1LunesVGjGOiZ + mzF6vK2bcoY20o4uzKmatlb1nfyA8mHrbB8fM/SgI8xYK4P02FJ3fJHI3xj1tyb5okW/ioPrDmeBQkcN + tKJzkle3t6nsUFBFKivU8IymG5uf07TzXno9ZtT0sU7Fpc1AeKJfgHLbwICcEUTv+KiMGSNPAel0vb6r + S+Ul4mNG7a1LfNE5+YG7onQGcLlmY9lzyY/MzWakeVJwReFak5XAbZWJpm9yQgXisWtOjfNDRvWtScHq + qovdo8MQMisGjsxBIA1F3jUyInuVp/kQZl73A6AljThE8jlTprLsR52KC63tM7TGID2GdLqtHYfbd3Go + FpWVypngjnH1mlXlzc1ricb6543qT578ycjvYl+vzyDMHDZCmA8bBXhAcc/3w/vSnkaTyq2C6f0zus/S + zaFu+9LKus5xtR3tcrPwvHH5k5a8UO6fmlDhqso3jfpPnoIVFfODFCLKzqghkxNNvT1y4teLMlYJ5il6 + jdm0cRaZ2ja2s+zWjaGFJUmJFXjie+lszigWD7NfNyY8fuINgGvwFu9XRoUC3PFc6oMzUwpvfQlqWBZF + LY0LKpTeNoDgiGdGfiK2jv28XoPDs3N4MEXj0puxgnTerf19iPKCqgo3hO6z0P31uLaLy8paHcf5iDHl + /skpLPzZnFDo73LC4RfyE4m2gkRiNT+ZuOLHe57Gh6sq1nnoDE5Pi6EClGkEZ78RgcoghOp+5obG0A2h + TrBOxfixA0HKUk44+EJOJPgPuZFIkEELos41xhB6rJXl5UdeVsY0zpwKTEACBps+yXV5+8S4rIIA9HcS + seuBZOR8QTI5j3pZTjD47axQ6M+M+du2haqq/jFUWbHWMtCvunHPDsKjk3h0LKzuUzsPHlBTu3fKUvOC + SpU3N+m9PzGBtsl7+glvGSHwuj8ROsuPpEZ0WsqLRp914rEbjBg342PrNTgLOAEdiE+Efkq3W4wjhOa5 + Nc2vTLg2t2Pl9eJ8aMbqoWMQ5OlPeVUdbc/BAesrx4+rpUMH1Py+vRqre9WO/auyxPrJHAy0IOQADhp5 + 3NB4xvy23S1Lu6bngRWIRM4/6PshP4eD5nb3yLDqp1PJj3wMtAzNs3tU3z7cBkLHPjsGNFwJU8u74ITd + ahqvQ9q0cuKYOnj+nHJyc+6eX1//YRGKGfkq430y4Akq+SQxIfeqLk+qPrd/QvXgTo4gvm/EIWjHkZY0 + 7hjhM6G2T2I5Ytnfb+Y3Jn88+l94QIk+fcLH8mNuoesRTEKyvg5yPe2WFtDjbZ19mo7b24hLOUAMILCk + +7CH3Hpauy7zaZvEY6dtcCC9H8ZqmDaATsrDe8KIe2DiA4argA+jdN73oqypUSXoALcNsr20rk7pbRkd + wIOD0MbrsosN9XYcVhWtLQiChlHHLHv6COFh2itamhUO2e8YcQ+VuF0Y/pKP5eflb1Hb2S4TkakvEzSf + DA5INtSt8aHRC2yfSOXbx8elzM/avVJneUwcUIt93T06Kox7SUfmhocF67nh0Dpk/LMR91DJn0ys8DC0 + PFyeaTLGZXWV4TAWOtvHXJBOz1z3j2VwQH3dWg86CcbcPVh+bl0wKnkPcqJzeFg14RrkQST9oCeNHgNa + 8NBtYzikWnADRMqNuIdKTjh8tQ1OzsRPy9E6Uoeazo4NdICpuzYY/Wx/XkYHoCMTug3S6jCcfxRh7qXN + BJ4TuaHQa0bcA1NOUdGneGiKER4+9+gAtOBKa8JKSdF59bm/bmkOYByQqK9ds4ZtCktDRlheGcdAMLeG + AOUhhMF4KK35YpF/NSI3TYFYbE8tZ/W++qTauUqIlDzbd7+xRCYH1NWu8UAT4NVHaGKWR3QbXn2aRtcH + EB8wuEjrk3I6LYMQ8vDHY7dyi4u/aMTek/j1CcGQg8fV2ihCbz2ePKGH8NNyrRzGCl0wWIA+l8aMEZi6 + 0Ap0W5oDCkpLv8FrB3fqHR5Y/LDBR07H4KAehKXOvNMC+79rZEgN4YE0uqgV1X1DKRpAt2ObYBXMrOxR + 7TjVnZcchqdlDL+NeDE8Oxj8DV8icpArhVEor6suyPHyE56eNs52HwIzzqjIEr1Mv6Gjnq0DfRKCV7a0 + qKzionWnwnfbiUauG/Fagdxg8OdxVf0h8K1AItacn4gf8RcUfE9mDU5huMm7PwVGalNqdu+KnLRp/XSE + tw6QdvHAfjUGh5U0NCg6PA/8cxPxCwiRbxUiNGWISpohvPs5poNGSJ4JWIGI9IaxuqgL27xy+aZgtIcX + 4y2E61cCicRiXixSlB0u/jrOo98uLCz8EWP+5okzRWXbhwbA1KuAXh079r+Md8NuEWjBK5I07aCRNqMQ + HcU/lC4fPaLOX7oEv+v0zvXr0rZ08KDMKHnrcRZ6vJav+7gFJnbtVMPz89KekqXpeIbk4cEF9k/+4wnc + yfv48GjHaS7GAcyJMTw4dh85jEBpwm2js9qxfWyZWylVH5Rtw5lePnpU7Tl2FIYfEGPEaUJLOVqWrus2 + kWv4cCXNIbbnNrB8vbT80zln25jwZAnX5JfxtFzndcbv7TqnkVAKSi8dOqjmX16Vurf/ftB0Xugx0o5z + wtu3kZZ13uuUSedn6mdswFflE/9NwCYyyisqerelfzsUhLIGrcwhcBh7duXEcXlCu/0wSvphEHP+QkTa + LAwdy5Y+bRzp6QwPHcH9vYhtxFXDPe+OAb2W0y8fZnGVFhj1tyb5ouEAT9CWfq2gAGUGIsx5yvOvwzyU + LI1LSxqcxDo3bexHm4aXzuQca8cL2Deg5lb3yXnRi7eJl5/Voxmzz4OPP6Qwqm9N4g2B0/QOVwGFCfpM + bhTZiWW5/+wZNbpjIUXzyCB/I8PDnytiHsbvxUrj9WvbN6ISDzQcfkeN2luTfJHIz8Cr1xhzN0MpXlfM + +UmMHqdg5lRy56FD6tCF83JAcQWwXQCj9DhTNyAPOz69PcWfAc0yDtpVrLCRhQVN447xjDWO4w8tffHI + 1vxqDFfgR+nRyrZWLWy7EeYFYnFb5uwxNjjy6kW17+QJiRab+3Q/DycL8pHc9rn1FA23B88VrqrVUycR + dU5o+R5aW/eW+ULkJy8c3r9mzHj85I9G6xELrDOq0or2pgMG3NMGMJih4scuvSYHpJwN2CZpdBnGNkIG + Z5yGHzh3Vh1+5YJaxIHH2yaNzkB4YIyUTRvlNMIRCOKuFBcX689ej5Nyo9F/YjTVjkiLS66xFwIAhsn0 + skCEspxSStP1qCasBt7vhy++ok6/+YY6BezDTPLKnICBvD0GZmbkTp/csyztdNqJ16+I45YRI/DB1eTy + B0/wl7qUda510f22zriA3wkCiWivMefRki8c/i2GwfQm0QCmFo293SKkoUcLS7UDaNP1bredSjNs5Uwe + v3xJXXjnmrp686YOA5Gu3nxPnXv7LXUGDuJSn1zeLVec5alzw69Hy6ace2SnoVtWkpwH0fDfG7MePvmS + yd/04+7nVx96tx5MabAYBiW0gSxrpdx2g3oPXb13HECHdEI5vg8G5+ZklnmAagMNP4N6t5yS420T3m5d + Q3QFHcNhJzvrdkF5yVeMWY+WiktLn3Fi0ev89tfQbQTjVUWwnAbTvxENPaC19KCRusDSpPfrPsgQWBrd + 7hrobTNjJPfwYejOFexPRP7KmPN4iScpX238sCkCgDoPtFDT3tUl3+hZ99K4dBvKWllb95Q97XWuYSgD + wt/tM/SGxtLyOS+v2GjoL4wZT5b44wg6oby5GUI6RbAABmt0Kl6T/IzliwauFZWVrpXDYZoG9KRB2Sqd + Anml+Ln9ZozUWe7sVCWNeEIn4jd90CNaU+2OcccaGVVt2vicSOTPjfpbk7ASPoft8A7/HFbrMZxg7E0H + 5QSDX0Lc8JHccPgruD5fcXKy71Lx2q4O+YJs4XWc5qVz3afBMlcd//rE57gvFh7PjhT9Dq818B7m7VSN + ZZ7ix0mwxgf/1Ki9tQkPos/SCWXNjThgOhUV4GznRSIrjBYNmZv4+Ss3Eunn56fSRoyhYRinc49TbJug + Q/jyy5E/FDoLvt/mX6gNSzfhZP8PGsvzieNlBcZjNzEJf2xInk6yTojV1oi3oeCLuMk2/eiQGwo9x2XL + UJqg8bpM403ZOIVtZU1N8jHDDL9vygqFft/qgvxmVjj8R6br6Sb+ARNxwv7cYPDzpmnTlBsJ/jW/9VkH + 1HSYXNC+od6h4rW1Cnu4yAzfNEGPn8sLh5e5/UzT+y9x7zo5Obe5tHk9VdNgoBrG6jaWbTuWf8C/zt8r + mOEf/ITl/FPcLjT2YcB/sXvY1fWBSb5o5FZ1OwwkOtq0sVI2uS2jTz5oxOM/aoa+rxIPO/7m5vsBfm/7 + GMDXFj8x/xjArzA/Cfw08IteONHIO/xYUYUgpQpGSm5A423Oq8yJhG94xv4C8EmAf0cgX/KnHMqjXMqn + HtSHelG/Lf83Oq/h/IXHDwL8IaLXeCpIhT8FfBr4ghdZBQUnsA3u4Hq7vREBbA8LaSsuOu0Z+wzAH1Z8 + BiBf8qccyvM6gfpQL+r3VBxBZl5HeJ3BGbAO+ThApX7Ciy8/++xnvvHNbz7zMCCtZyyNJLglyJf8rcGU + 6zXaa/iWGv8hTtu2/S9oLfKKmiLu8QAAAABJRU5ErkJggg== iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA9vSURBVHhe5VppcJXVGXZKq/1hkgsqtQIWKVatUqu1nU7X - 6bQ/6kw703WmdqZ2r1YCCai4YIAEQgh7gAiIIRskYUlCAi6IYZdVq2LZl8ouSxayCNgfb5/nnPec77v3 - flCK1xmYnpln3vW833me79x743JNeFXvvv+783YOkFRh/q6vfEdHX/mrcseAb1buuFtWtfxSNnY9/LGw - 7OhPPuKc8u13CefqI67sxTdmyHc+3LGq/aGuj4uNXb9p5zzO1Udc2WvSuu5y9nyXwe7zRR8bbhbn6iOu - 7MWDbmobJEuPx1KGzW1ZMmntVSLAxLU9IMDASCKXi01tmbgBPa4WAW6Qja2PRhK5XGxqe0worD7iyl4T - 1/SAAH+Vpcfs4RuVhLfINx7L8LHr876ph/KwG1sfkYlrbrg6BJiAg25o/WNAAiBZS1yhxGzeiuFzrm5q - Fhta/yITVt949QjwRsvv/OEb1EbB1eJ7IEhcHMO8P0CAq+QGjMebWt/yW2k4GhAxBI/CEoyd7+JQn4fW - mV8PQTlXH3Flr/GrbpR1zb/G4TMUMVniyBrYXJBP7HH1YP+65ocgwE1XiQArb5I1p38OQhkGDUeU7BHE - 8B1RU1PLHGumF30E++2+mKxt/pWMX9Xz6hCgcGVPWX36pwFh2Hpjlaz69UrSkrd53+fBvRkQ9GdSCGH1 - EVf2KmzqKatOPejJ1B9WcocVJBuXA0lYE2vO+oEoq079VDhXHxG3xjWc+WZhY4dcDrhXx6RuFTZ9TppO - /kjqSO6QJUfUgajJGd9aR95Z5m0fY5fLkJWnfizjMFcf4Zcjn9d49KNZq0+f+1/APZ+ICONev1lWnPi+ - J1IHEWqBgBwsY5NTuPqhUI0+ctzbdPKHUoC5+gi/SGBG04nzs1Z3yeWguKnL3AQdl5rFg772wbdk8cEw - IRKBb3JWECOK1lkz8UH46HF15jlnxYnvScGKZAEGTt0hnee6ZMXBs9J06Kyx/wu6sDezaHtqBRi74vPy - 6vFvyML3M8zha0FqsSGmFsSYD+D6rM8+I4L6C/+VIcshaAHm6iP8ogAVWzpl/LK2S0BrUq5ya6dkTk2x - AAWv3SIvH7tPFuy3hB3BxSrI4veVNOJF9Gk1TgL6Fx6IySvHvi4UVh/h10AcvmxzRzyxpW1SCDg/bAsJ - 1pkDKN7Aoh0pvgHLb5FlRwdIDQRYhLdHktbGk/P5UI3WwO2DzzkvHfuqjIWw+gi/BuL6lm6EAEqqEG/Z - kTTETY4C4O2bXMgiT/FSfgPyl/eSxiN3Sc1eS4ZXmHBk+dFIyoXjUJ2oxpylR++R/Nd6RdyAHVKygTfA - EjdCgKx7w04AI4iKYkRiHyzF4wwdl5qV/2ovaTjcX+bvBoEDGbIgDCXlYtYv1OP65u/BP1McvkPGLO+d - dNBMHH7O+vYQeULfMoVwOX3zPgZYL3kDAqT6S3DMq72l/uBtMn9XArEQapzF9TY5tS6/4EC6t5yz5FB/ - 4Vx9hF+Z+PzOXgsB4siFiF8QtoficYaOS80a83IfqX2/t1TujBmCBiTn/DikK+LzFMTVOafuYF8Z/Uqf - SAFmrg4EGNeo5BtDMGQB9cd5AVqNeCkXYPQrt8riA7dIxXZ8fvdZ1OxLt74So63WnKv5HuNbS1Rs5y9F - bxkNYfURfvHwxSvPgFyYoCXpLfJWGPbQss+C4qVcgLyXbpWF+3tKGQ7OL7DqvelSBXJVIFOFmCB5Y1Fj - j6sZ0ibPHGvpUg4hF+6/WfJe+kLSQQdN2yHTm84YghYgRqtkbRzAxa6f4mUW7UytALk4aPXeG6T0PXyB - kTzIeLsH1oN5EmcNn3Xfa8UwefSUYU7NvpsiBciEAEWvWQEKlJR7495vcDnnB5j+Om4AZui41KzcZX1x - 8JjM3WYJ81vc2ov5UbHNzd0Wgxg9hHP1EX5lTtspU15tkwJHDNYJYWyDFYN102NsIFDRctwAzNBxqVm5 - S/vKvN3pUvJOhrHz8HNoAEImdjbkz3ex6dN9Wit5J4Z6dwhwW9JBB+Hwk162b9aRNASVbDhvhbBiub7J - EG9Qqj8Co5b2k0oc/MW3M4yt3OUAYiGfNUsasQNrEMFa67s5oxr7Rd6ACfgboGAJCBEhwnG5cC3kT4R4 - FFHHpWaNxEErd6bLC/+ISQWJwKetgCUx40MAxi7nwHzgW7g5UQLw8Px2J5mxjjBg/RYZGyJtcqG4oKFF - JuCXIPUCNHxRyinAWzi4kmTs/MSYvkO45nKcQzsCc/URfg2avtMQiSPtfWvH+joFsXVX46/FJyJA2Y50 - mf1mzNhygLaMhDR2OUcyiNOCfsXsrRAAdsSSaAEs4YC4Rz1y9U6UcD2IeRsGTd+VWgFylvTHwdNk1hYr - QNl2hzSNnQXQ5/xSn1Povpk6J2fJ7REC7JJ8kCRR2nySJjlnQ0LYnhbJR45w+UHTogU4md9TLgXaHqyc - +i9J6T9x8M0ZUgqypSSH2IB+FHwN/Ql9MzfHjOVcfYRfVgCQSkCcIAmxr1MI+INxi3ScX4efuV26yntd - Etir2+zKqfuSzAWJ4k04+D/TjD/X2wv5tMk+xeAc+s9hrj7Cr8FhAeosWVoLJU3f9cTVbRz1ESApOVIr - /9748EXBniQBnquFAO/h4Btx8PfSpMQAxAD6JGctc66uOYOgl+CcEuy5mABjQHYMCI0BYWPDJEOIy6sY - g2ckC3Do6f5yru4+6SzudlGca/iGsFe32TW89g4p2ZYuMzbg4NtAAngRsbcg9SLzJGhytPi7wYB5WEL3 - 2DnpMrz2zggBdlvCtc0ByVpHtNkTNj0JPvfQRglwEKTOLrrbkOxIIB3Gubr7hb26za5nF99pDj/9jZjM - UVK0c2jftYRfhGXsaiYXqptek7Nz2M+5+gi/eHgSHl17WolZUlYE+qHYAzlgtLHRArz/VH/5sKq/dM4A - UUUHLYm7GP7ZRfcIe3WbXc8uussQmbYeApBoEiBGZD4M9tg+OycdAtwVIQBuAEjkLYIAJOferL7dgLQD - iVMwAHtoszBDx/n1L5DqKu9tSTvC02EVzDP+sPp2OTAsQYBnIMAL7+Dg67rLCyBA3yDsJwF/8ITiObTa - b+bAUlh9hF88/OjFLZK7EGRgSWgMrfHtW7ZwNfVRz1t4CrYZNyBZgP3DvihdJTcakgYUwfkKxl0VfWT/ - kwl/nzyz8MsyGwcuWhuTF962JGbDMudtyDd1CMDY+qE9QNG6GGy6cK4+wq+sYgrQDAFAhkQNwWbJMyJo - rMhzvumDaAu4p1UGY4aO82vfE/2kc1aadEwDWUIJh2Oiq+Qm2fdEogAL7rYHhwCzlEQYzLm8833fP1z+ - et/v5nCuPsKvwTP2GGKjak7GkaS14McjPu9sLvbkUYCIG7AHAnTMuM6SLeom7Uq83flqO2ely57HE/4p - 9emae2QWiExd011m4uAz4TOOx/XGmpr22D7NI+d6zRzYpyIE4A3IqzsjI2tOeKLWknhA3lvno2b21LZJ - VvGepLm7h95myQIkawgn+AYzPiu70Kvb7HoKAvDAU9fEZOZbIEOAWLxlHmRNHTnGF4CbQ2H1EX4ZAerb - ZWSVCpBI2OUiMIJ7as9ECrBzSF/pmKokacPQnKkDO4cm/IuaYdUD5HmQmrK6u7HP4/AWzod90+VAMtRD - os53sZ2TJsMiBMjG4XPrOmTk/A8kF6SIgORpY+Pzp308ogp76tojBdie3Tee9JRonAG2Zyf8qzoKUAyC - U1bh4G8qWWOVqObYY2sBil0NfaZOATCH/rCqAUkHzSreK7n1HTJi3nF8EYIYfg2sVeJh38P2mD0QgCLq - OL+2ZX1B2idbgrSObJR9L+vWBAGqvmKITNaDG2y15Iw1vtqtmnN9rifkmzmwnKuP8MvcgPpOyZl3DKRO - yygnwAJ8MQI2R+v8QKAcI0AHbsDepLnvDr5VzlAAkp8EOJ8WsfeBdwclCPDk/HtlBohNXtkdFn/KGpIW - 1gc5n6d1ZG3d7XH73JxhVfcmHZTXN3dJl+RUHjNEDUGSp78AhAkl7XOwFIN7KF7UDXg7s48hbsgmYqK1 - 7ROsZa9us4sCTN/iDg4i8A2pLWnI0zKXELu+UI17/BzEnKuP8Cv7eQrwoTxXcdS8cUuaNgFekMByDwXI - wgwd59dbIEWibeMtyTaSTkDbOJt/a2CCAE/M/6ohxoOTAEkxpm/sZtqEnLHhfJBzczhXH+EXD28EKD8i - Ix3BGlqHZuQtRtXQ2jwt9/D2ZD+f/BHY+lgvacMbbi34tJyBpW+I06rfMtbWtj6W8N8sn6i8z5Cc3ISD - w07D4adtxp+0xoIUfCeCyQGGrKnRt702hpCYw32cq4/wK5tfgg1nrQAgThji9EnU2bCvPcONAB9Gfgds - /rsKkP9pcwvoe6t+S56tbUGvbrPLCTCpqYexPLwRwBAK/Pi85jbF19wcxo/PS74BfHu5DedkeNlhL0Ak - nAAhcA/Fi7oBmx6FACDXnKsChFFocXrkZ0y86dGE/3HjcQhQpAcv2nS98WlJgr6xmjeEtWbrNrY12+cF - qLw/WoDGQIARjmB1yA9hhOaJiwmw4ZHPSytJ5nxGWvlZJ5Q4wdzJ51CDv+GRRAEq7vcHLwJBCyUNkHTg - W7LscYTjkSaTXocA8DlXH+HXEBw+r/G8DC89BIKnLEHAC1DNHMCaq5s8BMAeihclwBt/gwAk+awVwMEI - of7Jp3EDYNf/LeH/XhvqBMDB+RvuyWwMSAX+9TJVERVPwZ/BnMM9Qyu+FiHAPslb+pE8CzKOfAAlHxcH - de7JhXhRAqz76834AuwmJ5661pKHHybP+IMnrzXxur8kClD+NXN4HtyIsDpmCQNTQzCEnVUY8qzD8tvf - zWBuaHnER2CmCjCXAoQJBzYHNkAgAvfkLT0vvEU6zq81IOVI0kbhg8dRG9tN2Kvb7KIAPLA7fCpgBbjA - DVj2b5A5aMjlVIFkFa0Vg6RHMGdIMw4E4R6KFyXA6j9/zpA7PvRa/NzxJw+kE3B8yHUmz17dZteQ8gc+ - EQGGlEUIMBPfASrA5SBvGQTALdJxfq36U0/8BHaTY1nXXRTsWfmnRAHKPikBHogQILgBlwPu5S3ScX6t - hAAtlyAAe5IEyMZBK7bdm3Jkl15YgI8D3iId51fTHyFAHv/Y+e9gr267ph/wgwHf/9RD2aVfl+wyAHYI - Dm5iBwhk8w4PxCGowdcZBnM++3vM7xPGLzJn/4gihMEvRpLyPt5wULd5B9Yf/H3+txPnbnu6Wz6JXQqy - vnvNI9jzA8AsivDg/x+u6fcfLLxo456a8skAAAAASUVORK5CYII= + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA93SURBVHhe5VppcJVVmraabvWHSS6otC1gI41bK21r211d + M9PT1TX9Y6yarprppWqcqtGxN20JJKDiggESCCHsASIghmyQhCUJSXBBDLus2io2+9Kyy5KFLAL2j3ee + 55z3nO+7934wNF6roOZUPfWu5/3O83zn3huX68Kres/DP1mwa5CkCgt3f++fdPTVvyp3Dvpx5c77ZXXr + r2RT9+NfCk3H/u0LzinfcZ9wrj7i6l58Y4Z81+Odqzse6/6y2NT9nx2cx7n6iKt7TVnfU85d6DbYc6Ho + S8PN4lx9xNW9eNDN7UOk6UQsZdjSniVT1l0jAkxe1wsCDI4kcqXY3J6JG9DrWhHgZtnU9nQkkSvF5vZn + hMLqI67uNXltLwjwB2k6bg/fqCS8Rb7xeIaPXZ/3TT2Uh93U9pRMXnvztSHAJBx0Y9uTAQmAZC1xhRKz + eSuGz7m6qVlsbPu9TFpzy7UjwHut/+0P36A2Cq4W3wNB4uIY5v0PBLhGbsBEvKkNrf8lDccCIobgMViC + sfNdHOrz0DrzGyAo5+ojru41cfUtsr7lNzh8hiImyxxZA5sL8ok9rh7sX9/yGAS49RoRYNWtsvbMf4BQ + hkHDUSV7FDF8R9TU1DLHmulFH8F+uy8m61p+LRNX9742BChc1VvWnPlFQBi23lglq369krTkbd73eXBv + BgT9dymEsPqIq3sVNveW1acf9WTqjyi5IwqSjcuBJKyJNWf9QJTVp38hnKuPiFsTGs7+uLCxU64E3Ktj + UrcKm78pzad+LnUkd9iSI+pA1OSMb60j7yzzto+xy2XIqtP/KhMwVx/hlyOf23jsizlrzpz/e8A9X4kI + E969TVae/KknUgcRaoGAHCxjk1O4+uFQjT5y3Nt86l+kAHP1EX6RwKzmkxfmrOmWK0Fxc7e5CTouNYsH + feezf5Clh8KESAS+yVlBjChaZ83Eh+Cjx9WZ55yVJ/9ZClYmCzB4+k7pOt8tKw+dk+bD54z9e9CNvZlF + O1IrwPiV35K3T/xIFn+aYQ5fC1JLDTG1IMZ8ANdnffYZEdRf/NcMWQFBCzBXH+EXBajY2iUTl7dfBtqS + cpXbuiRzeooFKHjndnnz+EOy6IAl7AguVUGWfqqkES+hT6txEtC/+GBM3jr+Q6Gw+gi/BuPwZVs644k1 + tUsh4PywLSRYZw6geIOLdqb4Bqy4XZYfGyQ1EGAJ3h5JWhtPzudDNVoDtw8+57xx/PsyHsLqI/wajOtb + ugkCKKlCvGVH0hA3OQqAt29yIYs8xUv5Dchf0Ucaj94nNfssGV5hwpHlRyMpF45DdaIac5qOPSD57/SJ + uAE7pWQjb4AlboQAWfeGnQBGEBXFiMQ+WIrHGTouNSv/7T7ScGSgLNwDAgczZFEYSsrFrF+sx/Ut3It/ + pjhyj4xb0TfpoJk4/LwNHSHyhL5lCuFy+uZ9DLBe8h4ESPWX4Li3+0r9oTtl4e4EYiHUOIvrbXJqXX7R + wXRvOWfZ4YHCufoIvzLx+Z27DgLEkQsRvyhsD8XjDB2XmjXuzX5S+2lfqdwVMwQNSM75cUhXxOcpiKtz + Tt2h/jL2rX6RAsxeEwgwoVHJN4ZgyALqT/ACtBnxUi7A2LfukKUHb5eKHfj87reo2Z9ufSVGW605V/M9 + xreWqNjBX4q+MhbC6iP84uGLV50FuTBBS9Jb5K0w7KFlnwXFS7kAeW/cIYsP9JYyHJxfYNX70qUK5KpA + pgoxQfLGosYeVzOkTZ451tKlHEIuPnCb5L3x7aSDDpmxU2Y2nzUELUCMVsnaOICLXT/FyyzalVoBcnHQ + 6n03S+kn+AIjeZDxdi+sB/Mkzho+677XimHy6CnDnJr9t0YKkAkBit6xAhQoKffGvd/gcs4PMPNd3ADM + 0HGpWbnL++PgMZm/3RLmt7i1l/KjYpubvz0GMXoJ5+oj/MqcsUumvd0uBY4YrBPC2AYrBuumx9hAoKIV + uAGYoeNSs3Kb+suCPelS8lGGsQvwc2gAQiZ2NuQvdLHp031aK/kohnpPCHBn0kGH4PBT3rRv1pE0BJVs + OG+FsGK5vqkQb0iqPwJjmgZIJQ7++ocZxlbudgCxkM+aJY3YgTWIYK313ZwxjQMib8Ak/A1QsAyEiBDh + uFy4FvInQzyKqONSs0bjoJW70uW1P8ekgkTg01bAkpjxIQBjl3NgPvAt3JwoAXh4fruTzHhHGLB+q4wP + kTa5UFzQ0CqT8EuQegEaviPlFOADHFxJMnZ+YkzfIVxzOc6hHYW5+gi/hszcZYjEkfa+teN9nYLYuqvx + 1+IrEaBsZ7rMfT9mbDlAW0ZCGrucIxnEaUG/Yu42CAA7alm0AJZwQNyjHrl6J0q4HsS8DUNm7k6tADnL + BuLgaTJnqxWgbIdDmsbOAuhzfqnPKXTfbJ2Ts+yuCAF2Sz5IkihtPkmTnLMhIWxPq+QjR7j8kBnRApzK + 7y2XA20PVk793VL6Fxx8S4aUgmwpySE2oB8FX0N/Qt/sLTFjOVcf4ZcVAKQSECdIQuzrFAL+UNwiHefX + kZfuku7yPpcF9uo2u3Lq7pb5IFG8GQf/S5rx53t7MZ822acYnEP/FczVR/g1NCxAnSVLa6Gk6bueuLqN + oz4CJCVHa+Vvmx6/JNiTJMArtRDgExx8Ew7+SZqUGIAYQJ/krGXO1TVnEPQSnFOCPZcSYBzIjgOhcSBs + bJhkCHF5FWPorGQBDr84UM7XPSRdxT0uifMNPxL26ja7RtbeIyXb02XWRhx8O0gAryP2FqReZ54ETY4W + fzcYMA9L6B47J11G1t4bIcAeS7i2JSBZ64i2eMKmJ8HnHtooAQ6B1Lkl9xuSnQmkwzhf97CwV7fZ9fLS + e83hZ74Xk3lKinYe7ceW8OuwjF3N5EJ102tydg77OVcf4RcPT8Jja88oMUvKikA/FHsgB4w1NlqAT18Y + KJ9XDZSuWSCq6KQlcRfDP7fkAWGvbrPr5SX3GSIzNkAAEk0CxIjMh8Ee22fnpEOA+yIEwA0AibwlEIDk + 3JvVtxuQdiBxCgZgD20WZug4v/4KUt3lfS1pR3gmrIJ5xp9X3yUHRyQI8BIEeO0jHHx9T3kNBOgbhP0k + 4A+eUDyPVvvNHFgKq4/wi4cfu7RVcheDDCwJjaM1vn3LFq6mPup5i0/DtuAGJAtwYMR3pLvkFkPSgCI4 + X8G4u6KfHHg+4e+TlxZ/V+biwEXrYvLah5bEXFjmvA35pg4BGFs/tAcoWh+DTRfO1Uf4lVVMAVogAMiQ + qCHYInlGBI0Vec43fRBtEfe0yVDM0HF+7X9ugHTNSZPOGSBLKOFwTHSX3Cr7n0sUYNH99uAQYI6SCIM5 + l3e+7/uzy9/k+90cztVH+DV01l5DbEzNqTiStBb8eMTnnc3FnjwKEHED9kKAzlk3WLJFPaRDiXc4X23X + nHTZ+2zCP6W+WPOAzAGR6Wt7ymwcfDZ8xvG4yVhT0x7bp3nkXK+ZA/tChAC8AXl1Z2V0zUlP1FoSD8h7 + 63zUzJ7adskq3ps0d8/wOy1ZgGQN4QTfYNaNshu9us2uFyAADzx9bUxmfwAyBIjFW+ZB1tSRY3wRuDkU + Vh/hlxGgvkNGV6kAiYRdLgKjuKf2bKQAu4b1l87pSpI2DM2ZOrBreMK/qBlRPUheBalpa3oa+yoOb+F8 + 2PddDiRDPSTqfBfbOWkyIkKAbBw+t65TRi/8THJBighInjE2Pn/Gx6OqsKeuI1KAHdn940lPi8ZZYEd2 + wr+qowDFIDhtNQ7+vpI1Volqjj22FqDY1dBn6hQAc+iPqBqUdNCs4n2SW98poxacwBchiOHXwFolHvY9 + bI/ZAwEooo7za3vWt6VjqiVI68hG2U+y7kgQoOp7hshUPbjBNkvOWOOr3aY51+d6Qr6ZA8u5+gi/zA2o + 75KcBcdB6oyMcQIswhcjYHO0zg8EyjECdOIG7Eua+/HQO+QsBSD5KYDzaRF7H/h4SIIAzy98UGaB2NRV + PWHxp6whaWF9kPN5WkfW1t0et8/NGVH1YNJBeX1zl3VLTuVxQ9QQJHn6i0CYUNI+B0sxuIfiRd2ADzP7 + GeKGbCImW9sxyVr26ja7KMDMre7gIALfkNqahjwtcwmx6wvVuMfPQcy5+gi/sl+lAJ/LKxXHzBu3pGkT + 4AUJLPdQgCzM0HF+fQBSJNo+0ZJsJ+kEtE+w+Q8GJwjw3MLvG2I8OAmQFGP6xm6hTcgZG84HOTeHc/UR + fvHwRoDyozLaEayhdWhB3mJMDa3N03IPb0/2q8kfgW3P9JF2vOG2gq/LWVj6hjit+q3jbW3bMwn/zfK5 + yocMyanNODjsDBx+xhb8SWssSMF3IpgcYMiaGn3ba2MIiTncx7n6CL+y+SXYcM4KAOKEIU6fRJ0N+9oz + 0gjweeR3wJY/qQD5Xze3gL636rfm2dpW9Oo2u5wAU5p7GcvDGwEMocCPz2tuc3zNzWH87ILkG8C3l9tw + XkaWHfECRMIJEAL3ULyoG7D5aQgAci25KkAYhRZnRn/DxJufTvgfN56FAEV68KLNNxmfliToG6t5Q1hr + tm5jW7N9XoDKh6MFaAwEGOUIVof8EEZpnriUABuf+pa0kWTON6SNn3VCiRPMnXoFNfgbn0oUoOJhf/Ai + ELRQ0gBJB74lyx5HOB5pMuVdCACfc/URfg3D4fMaL8jI0sMgeNoSBLwA1cwBrLm6yUMA7KF4UQK890cI + QJIvWwEcjBDqn3oRNwB2wx8T/u+14U4AHJy/4Z7MpoBU4N8k0xVR8TT8Gcw53DO84gcRAuyXvKYv5GWQ + ceQDKPm4OKhzTy7EixJg/R9uwxdgDzn5wvWWPPwwecafPX+9idf/PlGA8h+Yw/PgRoQ1MUsYmB6CIeys + wpBnHZbf/m4Gc8PLIz4Cs1WA+RQgTDiwObABAhG4J6/pgvAW6Ti/1oKUI0kbhc+eRW18D2GvbrOLAvDA + 7vCpgBXgIjdg+d9A5pAhl1MFklW0VgySHsWcIc04EIR7KF6UAGt+901D7sTw6/Fzx588kE7AiWE3mDx7 + dZtdw8of+UoEGFYWIcBsfAeoAFeCvOUQALdIx/m1+re98RPYQ45n3XBJsGfVbxMFKPuqBHgkQoDgBlwJ + uJe3SMf5tQoCtF6GAOxJEiAbB63Y/mDKkV16cQG+DHiLdJxfzU9CgDz+sfN/g7267boBwM8G/fRrj2WX + /lCyywDYYTi4iR0gkM07PBKHoAZfZxjMu/EJzO8Xxi8z5/6cIoTBL0aS8j7ecFC3eQfWH30i/x8T525/ + sUc+iV0Osn5y3VPY8zPALIrw6P8/XDfgfwGMj2jgnrlRogAAAABJRU5ErkJggg== diff --git a/ArinWarev1/MdiMain.vb b/ArinWarev1/MdiMain.vb index 5005d53..233135c 100644 --- a/ArinWarev1/MdiMain.vb +++ b/ArinWarev1/MdiMain.vb @@ -1,3 +1,5 @@ +Imports System.IO + Public Class MdiMain Enum E_MenuIdx @@ -84,7 +86,7 @@ Public Class MdiMain Refresh_info() - + Read_SEtting() '//ȯ漳 ´. Splah ߵ. Read_FilHistory() '//ϻ볻 @@ -213,6 +215,11 @@ Public Class MdiMain pLog.Add("Program Start") + If System.Diagnostics.Debugger.IsAttached Then + Me.bt_etc.Visible = True + End If + + End Sub Public Sub Refresh_info() @@ -255,8 +262,41 @@ Public Class MdiMain End Sub + + Sub ClearData() + '//翭ִƮ ݴ´. + DSET1.Clear() + DSET2.Clear() + DSETR1.Clear() + DSETR2.Clear() + + DSET1.AcceptChanges() + DSET2.AcceptChanges() + DSETR1.AcceptChanges() + DSETR2.AcceptChanges() + + 'DSET1 = New DS() + 'DSET2 = New DS() + + 'DSETR1 = New DSR() + 'DSETR2 = New DSR() + + 'DSET1.AcceptChanges() + 'DSET2.AcceptChanges() + 'DSETR1.AcceptChanges() + 'DSETR2.AcceptChanges() + End Sub + + + Public Sub Open_File(ByVal FileName As String, Optional ByVal SyncServer As Boolean = False, Optional checkVersion As Boolean = True, Optional silent As Boolean = False, Optional isNew As Boolean = False) + If SyncServer Then + If Prj.UserId.ToLower().StartsWith("user") Then + SyncServer = False + End If + End If + If Prj.Opened Then If silent Then @@ -271,20 +311,20 @@ Public Class MdiMain Next '//翭ִƮ ݴ´. - DSET1.Clear() - DSET2.Clear() - DSETR1.Clear() - DSETR2.Clear() - DSET1.AcceptChanges() - DSET2.AcceptChanges() - DSETR1.AcceptChanges() - DSETR2.AcceptChanges() + ClearData() Else Dim quitmsg As String = " ִ Ʈ Ͻðڽϱ?" Dim dlg As DialogResult = MsgBox(quitmsg, MsgBoxStyle.Question Or MsgBoxStyle.YesNoCancel, "Ȯ") If dlg = Windows.Forms.DialogResult.Yes Then - Me.Save_File(Prj.FileName, False) + + If bt_filesave.Enabled = False Then + If Save_New() = False Then Return '//Ҹ ó + + Else + Me.Save_File(Prj.FileName, False) + End If + For Each fChild As CForm In Me.MdiChildren If fChild.HasChanged Then @@ -295,14 +335,7 @@ Public Class MdiMain Next '//翭ִƮ ݴ´. - DSET1.Clear() - DSET2.Clear() - DSETR1.Clear() - DSETR2.Clear() - DSET1.AcceptChanges() - DSET2.AcceptChanges() - DSETR1.AcceptChanges() - DSETR2.AcceptChanges() + ClearData() '// ElseIf dlg = Windows.Forms.DialogResult.No Then For Each fChild As CForm In Me.MdiChildren @@ -314,14 +347,7 @@ Public Class MdiMain Next '//翭ִƮ ݴ´. - DSET1.Clear() - DSET2.Clear() - DSETR1.Clear() - DSETR2.Clear() - DSET1.AcceptChanges() - DSET2.AcceptChanges() - DSETR1.AcceptChanges() - DSETR2.AcceptChanges() + ClearData() '//quit ElseIf dlg = Windows.Forms.DialogResult.Cancel Then Return @@ -339,24 +365,46 @@ Public Class MdiMain Prj.IsError = False '//160509 '//  ø̸ ´ + Dim FI As New System.IO.FileInfo(FileName) + Dim Desbuf() As Byte = {} Dim FS As System.IO.Stream '///////////////////////////////////////////////////////////////////////////////////////////////////2011.03.16 Է If Not (Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1") Then '//2011.03.16 ߰ //eco ҷö ADMIN 'Prj.UserAuthType = "ADMIN" OrElse - Dim Source() As Byte = My.Computer.FileSystem.ReadAllBytes(FileName) - Dim Desbuf() As Byte = {} + Dim Source() As Byte = My.Computer.FileSystem.ReadAllBytes(FI.FullName) + If Source.Length < 4 Then Prj.IsError = True - MsgboxE("˼ų ջ Դϴ" + vbCrLf + FileName, True) + MsgboxE("˼ų ջ Դϴ" + vbCrLf + FI.FullName, True) Return End If pLog.Add("ȣȭ ") Desbuf = DeCryptArea(Source, New Byte() {&HAC, &H29, &H55, &H42}) - FS = New IO.MemoryStream(Desbuf, True) + Else - FS = New IO.FileStream(FileName, IO.FileMode.Open) + Desbuf = System.IO.File.ReadAllBytes(FileName) + ' FS = New IO.FileStream(FileName, IO.FileMode.Open) End If + + If FI.Extension.ToLower().EndsWith("x") Then '//Ȯڰ xγ + Dim datalen As Integer = BitConverter.ToInt32(Desbuf, 0) + Dim RealData(Desbuf.Length - 4 - 1) As Byte + Array.Copy(Desbuf, 4, RealData, 0, RealData.Length) + Dim DeCompress(datalen - 1) As Byte + Array.Clear(DeCompress, 0, DeCompress.Length) + Utility.MiniLZO.Decompress(RealData, DeCompress) + Array.Resize(Desbuf, DeCompress.Length) + Array.Clear(Desbuf, 0, Desbuf.Length) + Array.Copy(DeCompress, Desbuf, Desbuf.Length) + End If + + + + FS = New IO.MemoryStream(Desbuf, True) + '///////////////////////////////////////////////////////////////////////////////////////////////////2011.03.16 Է + + Dim Br As New IO.BinaryReader(FS, System.Text.Encoding.Default) Prj.FileName = FileName : Myini.Write("presetting", "filename", Prj.FileName) Prj.Opened = False @@ -389,7 +437,10 @@ Public Class MdiMain ' MsgBox(Br.BaseStream.Position) '//DS1 ʱȭ - DSET1.Clear() : DSET1.AcceptChanges() + DSET1.Clear() + DSET1.AcceptChanges() + + Dim DS1Len As Int64 = Br.ReadInt64 If DS1Len = 0 Then DS1Len = FS.Length - Br.BaseStream.Position - 2 @@ -407,9 +458,17 @@ Public Class MdiMain If Not Prj.IsError Then Dim Ms As New IO.MemoryStream(DS1) Try - DSET1.ReadXml(Ms) + Ms.Position = 0 + + Dim tempds As New DS() + tempds.ReadXml(Ms) + + DSET1.Clear() + DSET1.Merge(tempds) ' DSET1.ReadXml(Ms) DSET1.AcceptChanges() Ms.Close() + + tempds.Dispose() Catch ex As Exception Prj.IsError = True MsgBox(" ջǾϴ(Read DataSet)" & vbCrLf & ex.Message.ToString, MsgBoxStyle.Information, "Ds1 Open Error") @@ -496,9 +555,17 @@ Public Class MdiMain DS1 = Br.ReadBytes(CInt(DS1Len)) Ms = New IO.MemoryStream(DS1) Try - DSETR1.ReadXml(Ms) + + Dim tempds As New DS() + tempds.ReadXml(Ms) + + + DSETR1.Clear() + DSETR1.Merge(tempds) ' DSETR1.ReadXml(Ms) DSETR1.AcceptChanges() Ms.Close() + + tempds.Dispose() Catch ex As Exception MsgBox(" ϴ." & vbCrLf & ex.Message.ToString, MsgBoxStyle.Information, "Ds2 Open Error") End Try @@ -536,9 +603,16 @@ Public Class MdiMain 'MsgBox("pos=" & Br.BaseStream.Position & vbCrLf & DS1.Length, MsgBoxStyle.Information, DS1Len) Dim Ms As New IO.MemoryStream(DS1) Try - DSET1.ReadXml(Ms) + + Dim tempds As New DS() + tempds.ReadXml(Ms) + + DSET1.Clear() + DSET1.Merge(tempds) ' DSET1.ReadXml(Ms) DSET1.AcceptChanges() Ms.Close() + + tempds.Dispose() Catch ex As Exception MsgBox(" ջǾϴ." & vbCrLf & ex.Message.ToString, MsgBoxStyle.Information, "Ds1 Open Error") End Try @@ -549,8 +623,16 @@ Public Class MdiMain DS1 = Br.ReadBytes(CInt(DS1Len)) Ms = New IO.MemoryStream(DS1) Try - DSETR1.ReadXml(Ms) + + Dim tempds As New DS() + tempds.ReadXml(Ms) + + DSETR1.Clear() + DSETR1.Merge(tempds) ' DSETR1.ReadXml(Ms) DSETR1.AcceptChanges() + + tempds.Dispose() + Ms.Close() Catch ex As Exception MsgBox(" ϴ." & vbCrLf & ex.Message.ToString, MsgBoxStyle.Information, "Ds2 Open Error") @@ -594,9 +676,16 @@ Public Class MdiMain 'MsgBox("pos=" & Br.BaseStream.Position & vbCrLf & DS1.Length, MsgBoxStyle.Information, DS1Len) Dim Ms As New IO.MemoryStream(DS1) Try - DSET1.ReadXml(Ms) + Dim tempds As New DS() + tempds.ReadXml(Ms) + + DSET1.Clear() + DSET1.Merge(tempds) ' DSET1.ReadXml(Ms) DSET1.AcceptChanges() Ms.Close() + + tempds.Dispose() + Catch ex As Exception MsgBox(" ջǾϴ." & vbCrLf & ex.Message.ToString, MsgBoxStyle.Information, "Ds1 Open Error") End Try @@ -647,7 +736,7 @@ Public Class MdiMain drDesc1.buildarea = "010100" '// drDesc1.EndEdit() End If - + End If @@ -830,21 +919,28 @@ Public Class MdiMain '//θ ʹȵǴ θ ϸ ݴϴ. Me.lbl_filename.Text = Prj.FileName.Substring(Prj.FileName.LastIndexOf("\") + 1) - '//Version Ȯ - Work_msg(" Ȯ") - Dim MyVersion As String '= Format(My.Application.Info.Version.Minor, "0000") & Format(My.Application.Info.Version.Build, "0000") - Dim L As New ArinLogin.ArinLOgin - Dim VersionInfo As ArinLogin.ArinLOgin.sVersionInfo = Nothing - '/ڵȮ - Try - MyVersion = DSET1.tbl_Desc.Rows(0)("versionc").ToString - If MyVersion = "" Then MyVersion = "20100101" - Catch ex As Exception - MyVersion = "20100101" - End Try + - pLog.Add(String.Format("ڵ = {0}", MyVersion)) If Prj.UserId.ToLower() <> "guest" AndAlso Not Prj.UserId.ToLower().StartsWith("user") Then '//191020 + + '//Version Ȯ + Dim MyVersion As String = "" + Dim VersionInfo As ArinLogin.ArinLOgin.sVersionInfo = Nothing + + Work_msg(" Ȯ") + '= Format(My.Application.Info.Version.Minor, "0000") & Format(My.Application.Info.Version.Build, "0000") + Dim L As New ArinLogin.ArinLOgin + + '/ڵȮ + Try + MyVersion = DSET1.tbl_Desc.Rows(0)("versionc").ToString + If MyVersion = "" Then MyVersion = "20100101" + Catch ex As Exception + MyVersion = "20100101" + End Try + + pLog.Add(String.Format("ڵ = {0}", MyVersion)) + Try VersionInfo = L.Get_LastVersion("C2") '// µ eco ٲ߰ ^^ ڸ ֵ սô! @@ -867,20 +963,17 @@ Public Class MdiMain Catch ex As Exception MsgBox("ڵ " & ex.Message.ToString) End Try - End If + '/ǥϹȮ '//2010.12.06 ߰ + Try + MyVersion = DSET1.tbl_Desc.Rows(0)("versionp").ToString + If MyVersion = "" Then MyVersion = "20100101" + Catch ex As Exception + MyVersion = "20100101" + End Try - '/ǥϹȮ '//2010.12.06 ߰ - Try - MyVersion = DSET1.tbl_Desc.Rows(0)("versionp").ToString - If MyVersion = "" Then MyVersion = "20100101" - Catch ex As Exception - MyVersion = "20100101" - End Try + pLog.Add(String.Format("ǥϹ = {0}", MyVersion)) - pLog.Add(String.Format("ǥϹ = {0}", MyVersion)) - - If Prj.UserId.ToLower() <> "guest" AndAlso Not Prj.UserId.ToLower().StartsWith("user") Then '//191020 Try VersionInfo = L.Get_LastVersion("P2") '// µ eco ٲ߰ ^^ ڸ ֵ սô! If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0 ų ̹Ƿ Ѿ. @@ -902,9 +995,12 @@ Public Class MdiMain Catch ex As Exception MsgBox("ǥ " & ex.Message.ToString) End Try + End If + + Read_WeatherFile() @@ -982,7 +1078,7 @@ Public Class MdiMain Public Sub Open_File_Only_weather(ByVal FileName As String, Optional ByVal SyncServer As Boolean = False, Optional checkVersion As Boolean = True, Optional silent As Boolean = False, Optional isNew As Boolean = False) - + '//õ Ʈ带 Ѵ. Me.PreNode = Nothing pLog.Add("=======================================") @@ -991,22 +1087,42 @@ Public Class MdiMain Prj_test.IsError = False '//160509 '//  ø̸ ´ + Dim FI As New System.IO.FileInfo(FileName) + Dim Desbuf() As Byte = {} Dim FS As System.IO.Stream '///////////////////////////////////////////////////////////////////////////////////////////////////2011.03.16 Է If Not (Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1") Then '//2011.03.16 ߰ //eco ҷö ADMIN 'Prj.UserAuthType = "ADMIN" OrElse - Dim Source() As Byte = My.Computer.FileSystem.ReadAllBytes(FileName) - Dim Desbuf() As Byte = {} + Dim Source() As Byte = My.Computer.FileSystem.ReadAllBytes(FI.FullName) + If Source.Length < 4 Then - Prj_test.IsError = True - MsgboxE("˼ų ջ Դϴ" + vbCrLf + FileName, True) + Prj.IsError = True + MsgboxE("˼ų ջ Դϴ" + vbCrLf + FI.FullName, True) Return End If pLog.Add("ȣȭ ") Desbuf = DeCryptArea(Source, New Byte() {&HAC, &H29, &H55, &H42}) - FS = New IO.MemoryStream(Desbuf, True) + Else - FS = New IO.FileStream(FileName, IO.FileMode.Open) + Desbuf = System.IO.File.ReadAllBytes(FileName) + ' FS = New IO.FileStream(FileName, IO.FileMode.Open) End If + + If FI.Extension.ToLower().EndsWith("x") Then '//Ȯڰ xγ + Dim datalen As Integer = BitConverter.ToInt32(Desbuf, 0) + Dim RealData(Desbuf.Length - 4 - 1) As Byte + Array.Copy(Desbuf, 4, RealData, 0, RealData.Length) + Dim DeCompress(datalen - 1) As Byte + Array.Clear(DeCompress, 0, DeCompress.Length) + Utility.MiniLZO.Decompress(RealData, DeCompress) + Array.Resize(Desbuf, DeCompress.Length) + Array.Clear(Desbuf, 0, Desbuf.Length) + Array.Copy(DeCompress, Desbuf, Desbuf.Length) + End If + + + + FS = New IO.MemoryStream(Desbuf, True) + '///////////////////////////////////////////////////////////////////////////////////////////////////2011.03.16 Է Dim Br As New IO.BinaryReader(FS, System.Text.Encoding.Default) @@ -1117,7 +1233,7 @@ Public Class MdiMain End If - + Case Else MsgBox(" ҷ ϴ1", MsgBoxStyle.Critical, "ҷ") Prj.IsError = True @@ -1130,11 +1246,11 @@ Public Class MdiMain pLog.Add(String.Format("Project Name={0},Desc={1},Version={2}", Prj.Name, Prj.Desc, Prj.UIVersion)) - + End Sub - + Private GroupList_Zone As ArrayList Private GroupList_nanbangkiki As ArrayList Private GroupList_NanbangKongkub As ArrayList @@ -1146,10 +1262,24 @@ Public Class MdiMain Private GroupList_Bunbae As ArrayList + Sub DeSerialize(buffer As Byte(), ByRef data As DataTable) + + 'If System.IO.File.Exists(filename) = False Then Return + 'Dim ms As New MemoryStream() + + Using stm As System.IO.Stream = New System.IO.MemoryStream(buffer) + Dim bf As System.Runtime.Serialization.Formatters.Binary.BinaryFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter 'ȭ ü Ŭ ȯ... Dim a As clsTEST = CType(bf.Deserialize(stm), clsTEST) stm.Close() + Dim dt As DataTable = bf.Deserialize(stm) + data.Clear() + data.Merge(dt) + End Using + + End Sub - Sub DeSerialize(filename As String, ByRef data As DataTable) + If System.IO.File.Exists(filename) = False Then Return + Using stm As System.IO.Stream = System.IO.File.Open(filename, System.IO.FileMode.Open, System.IO.FileAccess.Read) Dim bf As System.Runtime.Serialization.Formatters.Binary.BinaryFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter 'ȭ ü Ŭ ȯ... Dim a As clsTEST = CType(bf.Deserialize(stm), clsTEST) stm.Close() Dim dt As DataTable = bf.Deserialize(stm) @@ -1165,6 +1295,11 @@ Public Class MdiMain DSET1.weather_supdo.Clear() DSET1.weather_temp.Clear() DSET1.weather_group.Clear() + + DSET1.weather_wind.Clear() + DSET1.weather_river.Clear() + DSET1.weather_water.Clear() + DSET1.tbl_weather.Clear() Dim DataPath As String = AppDomain.CurrentDomain.BaseDirectory + "Data" @@ -1174,19 +1309,112 @@ Public Class MdiMain Dim fi4d As String = System.IO.Path.Combine(DataPath, DSET1.weather_temp.TableName + ".dat") Dim fi5d As String = System.IO.Path.Combine(DataPath, DSET1.tbl_weather.TableName + ".dat") Dim fi6d As String = System.IO.Path.Combine(DataPath, DSET1.weather_group.TableName + ".dat") + + Dim fi7d As String = System.IO.Path.Combine(DataPath, DSET1.weather_wind.TableName + ".dat") + Dim fi8d As String = System.IO.Path.Combine(DataPath, DSET1.weather_river.TableName + ".dat") + Dim fi9d As String = System.IO.Path.Combine(DataPath, DSET1.weather_water.TableName + ".dat") + If System.IO.File.Exists(fi1d) Then - DeSerialize(fi1d, CType(DSET1.weather_cha, DS.weather_chaDataTable)) - DeSerialize(fi2d, CType(DSET1.weather_ilsa, DS.weather_ilsaDataTable)) - DeSerialize(fi3d, CType(DSET1.weather_supdo, DS.weather_supdoDataTable)) - DeSerialize(fi4d, CType(DSET1.weather_temp, DS.weather_tempDataTable)) - DeSerialize(fi5d, CType(DSET1.tbl_weather, DS.tbl_weatherDataTable)) - 'Using stm As System.IO.Stream = System.IO.File.Open(fi6d, System.IO.FileMode.Open, System.IO.FileAccess.Read) - ' Dim bf As System.Runtime.Serialization.Formatters.Binary.BinaryFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter 'ȭ ü Ŭ ȯ... Dim a As clsTEST = CType(bf.Deserialize(stm), clsTEST) stm.Close() - ' DSET1.weather_group = CType(bf.Deserialize(stm), DS.weather_groupDataTable)) - 'End Using + '//check contents + Dim buffer As String = System.IO.File.ReadAllText(fi1d, System.Text.Encoding.Default) + + Dim commpressed As Boolean + Try + DeSerialize(fi1d, CType(DSET1.weather_cha, DS.weather_chaDataTable)) + commpressed = False + Catch ex As Exception + commpressed = True + End Try + + If commpressed = False Then + '//class data + DeSerialize(fi1d, CType(DSET1.weather_cha, DS.weather_chaDataTable)) + DeSerialize(fi2d, CType(DSET1.weather_ilsa, DS.weather_ilsaDataTable)) + DeSerialize(fi3d, CType(DSET1.weather_supdo, DS.weather_supdoDataTable)) + DeSerialize(fi4d, CType(DSET1.weather_temp, DS.weather_tempDataTable)) + DeSerialize(fi5d, CType(DSET1.tbl_weather, DS.tbl_weatherDataTable)) + DeSerialize(fi6d, CType(DSET1.weather_group, DS.weather_groupDataTable)) + DeSerialize(fi7d, CType(DSET1.weather_wind, DS.weather_windDataTable)) + DeSerialize(fi8d, CType(DSET1.weather_river, DS.weather_riverDataTable)) + DeSerialize(fi9d, CType(DSET1.weather_water, DS.weather_waterDataTable)) + Else + '//lzo data + Dim buffer1 As Byte() = System.IO.File.ReadAllBytes(fi1d) + Dim buffer2 As Byte() = System.IO.File.ReadAllBytes(fi2d) + Dim buffer3 As Byte() = System.IO.File.ReadAllBytes(fi3d) + Dim buffer4 As Byte() = System.IO.File.ReadAllBytes(fi4d) + Dim buffer5 As Byte() = System.IO.File.ReadAllBytes(fi5d) + Dim buffer6 As Byte() = System.IO.File.ReadAllBytes(fi6d) + Dim buffer7 As Byte() = System.IO.File.ReadAllBytes(fi7d) + Dim buffer8 As Byte() = System.IO.File.ReadAllBytes(fi8d) + Dim buffer9 As Byte() = System.IO.File.ReadAllBytes(fi9d) + + ' ó4Ʈ ũⰡ + Dim len1 As UInt32 = BitConverter.ToUInt32(buffer1, 0) + Dim len2 As UInt32 = BitConverter.ToUInt32(buffer2, 0) + Dim len3 As UInt32 = BitConverter.ToUInt32(buffer3, 0) + Dim len4 As UInt32 = BitConverter.ToUInt32(buffer4, 0) + Dim len5 As UInt32 = BitConverter.ToUInt32(buffer5, 0) + Dim len6 As UInt32 = BitConverter.ToUInt32(buffer6, 0) + Dim len7 As UInt32 = BitConverter.ToUInt32(buffer7, 0) + Dim len8 As UInt32 = BitConverter.ToUInt32(buffer8, 0) + Dim len9 As UInt32 = BitConverter.ToUInt32(buffer9, 0) + + Dim dbuffer1(len1 - 1) As Byte + Dim dbuffer2(len2 - 1) As Byte + Dim dbuffer3(len3 - 1) As Byte + Dim dbuffer4(len4 - 1) As Byte + Dim dbuffer5(len5 - 1) As Byte + Dim dbuffer6(len6 - 1) As Byte + Dim dbuffer7(len7 - 1) As Byte + Dim dbuffer8(len8 - 1) As Byte + Dim dbuffer9(len9 - 1) As Byte + + Dim body1(buffer1.Length - 4 - 1) As Byte + Dim body2(buffer2.Length - 4 - 1) As Byte + Dim body3(buffer3.Length - 4 - 1) As Byte + Dim body4(buffer4.Length - 4 - 1) As Byte + Dim body5(buffer5.Length - 4 - 1) As Byte + Dim body6(buffer6.Length - 4 - 1) As Byte + Dim body7(buffer7.Length - 4 - 1) As Byte + Dim body8(buffer8.Length - 4 - 1) As Byte + Dim body9(buffer9.Length - 4 - 1) As Byte + + Array.Copy(buffer1, 4, body1, 0, body1.Length) + Array.Copy(buffer2, 4, body2, 0, body2.Length) + Array.Copy(buffer3, 4, body3, 0, body3.Length) + Array.Copy(buffer4, 4, body4, 0, body4.Length) + Array.Copy(buffer5, 4, body5, 0, body5.Length) + Array.Copy(buffer6, 4, body6, 0, body6.Length) + Array.Copy(buffer7, 4, body7, 0, body7.Length) + Array.Copy(buffer8, 4, body8, 0, body8.Length) + Array.Copy(buffer9, 4, body9, 0, body9.Length) + + + Utility.MiniLZO.Decompress(body1, dbuffer1) '67682 -> 304964 + Utility.MiniLZO.Decompress(body2, dbuffer2) + Utility.MiniLZO.Decompress(body3, dbuffer3) + Utility.MiniLZO.Decompress(body4, dbuffer4) + Utility.MiniLZO.Decompress(body5, dbuffer5) + Utility.MiniLZO.Decompress(body6, dbuffer6) + Utility.MiniLZO.Decompress(body7, dbuffer7) + Utility.MiniLZO.Decompress(body8, dbuffer8) + Utility.MiniLZO.Decompress(body9, dbuffer9) + + + DeSerialize(dbuffer1, CType(DSET1.weather_cha, DS.weather_chaDataTable)) + DeSerialize(dbuffer2, CType(DSET1.weather_ilsa, DS.weather_ilsaDataTable)) + DeSerialize(dbuffer3, CType(DSET1.weather_supdo, DS.weather_supdoDataTable)) + DeSerialize(dbuffer4, CType(DSET1.weather_temp, DS.weather_tempDataTable)) + DeSerialize(dbuffer5, CType(DSET1.tbl_weather, DS.tbl_weatherDataTable)) + DeSerialize(dbuffer6, CType(DSET1.weather_group, DS.weather_groupDataTable)) + DeSerialize(dbuffer7, CType(DSET1.weather_wind, DS.weather_windDataTable)) + DeSerialize(dbuffer8, CType(DSET1.weather_river, DS.weather_riverDataTable)) + DeSerialize(dbuffer9, CType(DSET1.weather_water, DS.weather_waterDataTable)) + End If + - DeSerialize(fi6d, CType(DSET1.weather_group, DS.weather_groupDataTable)) Else '//ȣȭ̸ ҷ @@ -1197,6 +1425,10 @@ Public Class MdiMain Dim fi5 As String = System.IO.Path.Combine(DataPath, DSET1.tbl_weather.TableName + ".xml") Dim fi6 As String = System.IO.Path.Combine(DataPath, DSET1.weather_group.TableName + ".xml") + Dim fi7 As String = System.IO.Path.Combine(DataPath, DSET1.weather_wind.TableName + ".xml") + Dim fi8 As String = System.IO.Path.Combine(DataPath, DSET1.weather_river.TableName + ".xml") + Dim fi9 As String = System.IO.Path.Combine(DataPath, DSET1.weather_water.TableName + ".xml") + If System.IO.File.Exists(fi1) Then @@ -1229,17 +1461,37 @@ Public Class MdiMain Else MsgBox("#6 ϴ\r\nα׷ ٽ ġϼ") End If + If System.IO.File.Exists(fi7) Then + DSET1.weather_wind.ReadXml(fi7) + Else + MsgBox("#7 ϴ\r\nα׷ ٽ ġϼ") + End If + If System.IO.File.Exists(fi8) Then + DSET1.weather_river.ReadXml(fi8) + Else + MsgBox("#8 ϴ\r\nα׷ ٽ ġϼ") + End If + If System.IO.File.Exists(fi9) Then + DSET1.weather_water.ReadXml(fi9) + Else + MsgBox("#9 ϴ\r\nα׷ ٽ ġϼ") + End If End If - + DSET1.weather_cha.AcceptChanges() DSET1.weather_ilsa.AcceptChanges() DSET1.weather_supdo.AcceptChanges() DSET1.weather_temp.AcceptChanges() DSET1.tbl_weather.AcceptChanges() + DSET1.weather_wind.AcceptChanges() + DSET1.weather_river.AcceptChanges() + DSET1.weather_water.AcceptChanges() + + DSET1.weather_group.AcceptChanges() End Sub @@ -1542,17 +1794,37 @@ ENDSTAT: '// Fs.Close() '//Ͽ Ҷ(̸) ̸ ٲǷ ش ̺Ʈ ȭ Ұſ~ - Me.lbl_filename.Text = Prj.FileName.Substring(Prj.FileName.LastIndexOf("\") + 1) + Dim fi As New System.IO.FileInfo(FileName) + Me.lbl_filename.Text = fi.Name ' Prj.FileName.Substring(Prj.FileName.LastIndexOf("\") + 1) + + + '//Ѵ 220919 + Dim Source() As Byte = My.Computer.FileSystem.ReadAllBytes(FileName) + Dim Desbuf() As Byte = {} + + If FileName.ToLower().EndsWith("x") Then '//compressed + Utility.MiniLZO.Compress(Source, Desbuf) + Dim OrgLength As Integer = Source.Length + Dim NewLength As Integer = Desbuf.Length + Array.Clear(Source, 0, Source.Length) + Array.Resize(Source, Desbuf.Length + 4) + Dim datalen() As Byte = BitConverter.GetBytes(OrgLength) + Array.Copy(datalen, Source, datalen.Length) + Array.Copy(Desbuf, 0, Source, 4, Desbuf.Length) + End If '///////////////////////////////////////////////////////////////////////////////////////////////////////////// 2011.03.16߰ '//Encoding If Not (Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1") Then '//2011.03.09 ߰ eco admin Prj.UserAuthType = "ADMIN" OrElse - Dim Desbuf() As Byte = {} - Dim Source() As Byte = My.Computer.FileSystem.ReadAllBytes(Prj.FileName) + 'Dim Source() As Byte = My.Computer.FileSystem.ReadAllBytes(FileName) Desbuf = DeCryptArea(Source, New Byte() {&HAC, &H29, &H55, &H42}) - My.Computer.FileSystem.WriteAllBytes(Prj.FileName, Desbuf, False) + My.Computer.FileSystem.WriteAllBytes(FileName, Desbuf, False) + Else + My.Computer.FileSystem.WriteAllBytes(FileName, Source, False) End If + + '///////////////////////////////////////////////////////////////////////////////////////////////////////////// 2011.03.16߰ If prompt Then MsgBox(" Ǿϴ", MsgBoxStyle.Information, "Ȯ") @@ -1613,7 +1885,7 @@ ENDSTAT: '// End Try - + '//͵丮 ȮѴ ̰ ͺ̽ Ÿ ϰѴ '//̴ ͳݼġǰ ⋚̴ @@ -1658,14 +1930,14 @@ ENDSTAT: '// Read_PreFile(idx) End Sub - Private Sub űToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles űToolStripMenuItem.Click + Private Sub űToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles btNew.Click 'ϴ if If MsgBox(" ۼϽðڽϱ?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then Return '//ok ϸ Dim new_string As String If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.09 ߰ - new_string = "\new" + new_string = "\newx.tplx" Else - new_string = "\new1" + new_string = "\newx.ecox" End If Dim Srcfile As New System.IO.FileInfo(My.Application.Info.DirectoryPath & new_string) If Srcfile.Exists = False Then @@ -1673,20 +1945,20 @@ ENDSTAT: '// Return '//ҿ End If - Dim SD As New SaveFileDialog - If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.09 ߰ - SD.FileName = "new" & Format(Now, "mmdd") & ".tpl" - SD.Filter = "ø(*.TPL)|*.tpl|(*.*)|*.*" - Else - SD.FileName = "new" & Format(Now, "mmdd") & ".eco" - SD.Filter = "(*.ECO)|*.eco|(*.*)|*.*" - End If + 'Dim SD As New SaveFileDialog + 'If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.09 ߰ + ' SD.FileName = "new" & Format(Now, "mmdd") & ".tpl" + ' SD.Filter = "ø(*.tplx)|*.tplx|(*.*)|*.*" + 'Else + ' SD.FileName = "new" & Format(Now, "mmdd") & ".eco" + ' SD.Filter = "(*.ecox)|*.ecox|(*.*)|*.*" + 'End If - If SD.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '// ϸ Է¾ϸ + 'If SD.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '// ϸ Է¾ϸ - '//ؼ ֱ - If System.IO.File.Exists(SD.FileName) Then System.IO.File.Delete(SD.FileName) - Srcfile.CopyTo(SD.FileName) + ''//ؼ ֱ + 'If System.IO.File.Exists(SD.FileName) Then System.IO.File.Delete(SD.FileName) + 'Srcfile.CopyTo(SD.FileName) '///////////////////////////////////////////////////////////////////////////////////////////////////////////// 2011.03.16߰ 'If Not (Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1") Then '//2011.03.09 ߰ @@ -1696,10 +1968,12 @@ ENDSTAT: '// ' My.Computer.FileSystem.WriteAllBytes(SD.FileName, Desbuf, False) 'End If '///////////////////////////////////////////////////////////////////////////////////////////////////////////// 2011.03.16߰ - Me.Open_File(SD.FileName, True, False, False, True) + Me.Open_File(Srcfile.FullName, True, False, False, True) Prj.UIVersion = CurrentUIVersion() '//׻ 160327 Refresh_info() - Me.Save_File(Prj.FileName, False) + ToolStripButton3.Enabled = False + bt_filesave.Enabled = False + 'Me.Save_File(Prj.FileName, False) End Sub Public PreNode As TreeNode = Nothing @@ -1963,7 +2237,7 @@ ENDSTAT: '// End Sub - Private Sub ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripMenuItem.Click + Private Sub ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles btOpen.Click If Prj.LoginTime = "" Then MsgBox(" α ϼ", MsgBoxStyle.Information, "Ȯ") Frm_Intro.Activate() @@ -1975,13 +2249,15 @@ ENDSTAT: '// 'Od.InitialDirectory = TemplateDir.FullName Od.FileName = Prj.FileName If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.09 ߰ - Od.Filter = "ø(*.TPL)|*.tpl|(*.*)|*.*" + Od.Filter = "ø(*.TPL,*.TPLX)|*.tpl;*.tplx|(*.*)|*.*" Else - Od.Filter = "(*.ECO)|*.eco|(*.*)|*.*" + Od.Filter = "(*.ECO,*.ECOX)|*.eco;*.ecox|(*.*)|*.*" End If Od.FilterIndex = 0 If Od.ShowDialog <> Windows.Forms.DialogResult.OK Then Return Open_File(Od.FileName) + ToolStripButton3.Enabled = True + bt_filesave.Enabled = True End Sub Private Sub ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles bt_filesave.Click @@ -1998,6 +2274,12 @@ ENDSTAT: '// Return End If + Dim fi As New System.IO.FileInfo(Prj.FileName) + If fi.Extension.ToLower().EndsWith("x") = False Then + MsgBox(" Դϴ. [ٸ ̸] ϼ", MsgBoxStyle.Information, "Ȯ") + Return + End If + ' Dim lastmenu As String = "" If Me.OpenedForm <> E_MenuIdx.NONE Then '//ִ. ' lastmenu = Me.OpenedForm.ToString @@ -2257,7 +2539,7 @@ ENDSTAT: '// End Sub Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click - űToolStripMenuItem.PerformClick() + btNew.PerformClick() End Sub Private Sub 뷮ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) @@ -2272,7 +2554,7 @@ ENDSTAT: '// End Sub Private Sub ToolStripButton2_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton2.Click - ToolStripMenuItem.PerformClick() + btOpen.PerformClick() End Sub @@ -2280,7 +2562,7 @@ ENDSTAT: '// bt_filesave.PerformClick() End Sub Private Sub ToolStripButton4_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton4.Click - ٸ̸ToolStripMenuItem.PerformClick() + btSaveNew.PerformClick() End Sub Private Sub ToolStripButton5_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton5.Click ToolStripMenuItem1.PerformClick() @@ -2421,7 +2703,7 @@ ENDSTAT: '// Return End If - Report_pyonga.ControlBox = True + Report_pyonga.ControlBox = True Report_pyonga.Show() End Sub @@ -2431,30 +2713,43 @@ ENDSTAT: '// Next End Sub - Private Sub ٸ̸ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ٸ̸ToolStripMenuItem.Click + Private Sub ٸ̸ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles btSaveNew.Click + + Save_New() + End Sub + + + Function Save_New() As Boolean If Prj.LoginTime = "" Then MsgBox(" α ϼ", MsgBoxStyle.Information, "Ȯ") Frm_Intro.Activate() Frm_Intro.tb_id.Focus() - Return + Return False End If If Prj.FileName = "" Then MsgBox(CLang.Ͼ, MsgBoxStyle.Information, "Ȯ") - Return + Return False End If + Dim newfilename As String = Prj.FileName + If newfilename.ToLower().EndsWith("x") = False Then + newfilename = newfilename + "x" + End If + + + Dim SD As New SaveFileDialog - SD.FileName = Prj.FileName + SD.FileName = newfilename If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.09 ߰ - SD.Filter = "ø(*.TPL)|*.tpl|(*.*)|*.*" + SD.Filter = "ø(*.tplx)|*.tplx|(*.*)|*.*" Else - SD.Filter = "(*.eco)|*.eco|(*.*)|*.*" + SD.Filter = "(*.ecox)|*.ecox|(*.*)|*.*" End If SD.FilterIndex = 0 - If SD.ShowDialog <> Windows.Forms.DialogResult.OK Then Return + If SD.ShowDialog <> Windows.Forms.DialogResult.OK Then Return False Prj.FileName = SD.FileName ' Dim lastmenu As String = "" @@ -2465,19 +2760,17 @@ ENDSTAT: '// curf.Close() End If - Me.Save_File(Prj.FileName) If lastmenutag <> "" Then Me.show_menu(lastmenutag) End If - End Sub + Return True + End Function + - - - Private Sub ȯ漳ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ȯ漳ToolStripMenuItem.Click End Sub @@ -2558,7 +2851,7 @@ ENDSTAT: '// Catch ex As Exception End Try - + Next If Change Then LineChange = True @@ -2780,7 +3073,7 @@ ENDSTAT: '// End If Od.FilterIndex = 0 If Od.ShowDialog <> Windows.Forms.DialogResult.OK Then Return - Open_File_only_weather(Od.FileName) + Open_File_Only_weather(Od.FileName) End Sub @@ -2806,7 +3099,7 @@ ENDSTAT: '// End If Od.FilterIndex = 0 If Od.ShowDialog <> Windows.Forms.DialogResult.OK Then Return - Open_File_Only_profile(Od.FileName) + 'Open_File_Only_profile(Od.FileName) End Sub End Class \ No newline at end of file diff --git a/ArinWarev1/Module/Pub.vb b/ArinWarev1/Module/Pub.vb index 03778c7..4fe2c37 100644 --- a/ArinWarev1/Module/Pub.vb +++ b/ArinWarev1/Module/Pub.vb @@ -486,6 +486,9 @@ DSET1.weather_temp.Clear() DSET1.weather_supdo.Clear() DSET1.weather_group.Clear() + DSET1.weather_water.Clear() + DSET1.weather_river.Clear() + DSET1.weather_wind.Clear() DSET1.AcceptChanges() DSET2.tbl_weather.Clear() @@ -494,6 +497,9 @@ DSET2.weather_temp.Clear() DSET2.weather_supdo.Clear() DSET2.weather_group.Clear() + DSET2.weather_water.Clear() + DSET2.weather_river.Clear() + DSET2.weather_wind.Clear() DSET2.AcceptChanges() Try @@ -570,6 +576,99 @@ End If End Function + + Public Function SolarAirHeatingSystem(DSET As DS, ByVal i_count_month As Integer, ByVal i_count_d_mth As Integer, ByVal Dr공조 As DS.tbl_kongjoRow, ByVal V_dot_A_AHU As Decimal, ByVal T_amb As Decimal, ByVal Delta_T_act As Decimal) ' ByVal d_mth As Integer, + + pLog.Add(String.Format(">>SolarAirHeatingSystem 진입 : i_count_month={0}, i_count_d_mth={1}, Dr공조={2}, 외기도입량={3}, theta_e={4}, Delta_T_act={5}", i_count_month, i_count_d_mth, Dr공조.code, V_dot_A_AHU, T_amb, Delta_T_act)) + + Dim G_coll, G_tilt, A_coll As Decimal + Dim e_HX, h_c, v_wind, t, alpha, h_dot_r, eta As Decimal + Dim Q_dot_coll, Delta_T_avl, T_del_avl, T_del_act, T_del_max As Decimal + Dim rho As Decimal = 1.225 + Dim C_p As Decimal = 1005 / 3600 '// [J/kg'C] 3600으로 나누어 Wh로 변환 [Wh/kg'C] + Dim Delta_T_offset As Decimal = 3 + Dim h_sunlight As Decimal = 24 + Dim sigma_s As Decimal = 0.000000056703 '스테판볼츠만 상수 + T_del_max = 20 + + + '// 사용자 입력항목 : 집열기 면적(A_coll), 단면적, 집열기 표면방사율(e) + '// Q_dot_coll 은 외기도입풍량을 집열기 면적으로 나눈 값 + '// h_sunlight 는 주간 운전시간 적용 + + Dim Drow풍속 As DS.weather_windRow = CType(DSET.weather_wind.Select("pcode='" & Calc.Pub.기상데이터.code & "'")(0), DS.weather_windRow) + v_wind = TOSG(Drow풍속("M" + i_count_month.ToString("00"))) + + Dim Dr일사 As DS.weather_ilsaRow + + Select Case Dr공조.집열기방위.Trim + Case "남" '"남" + Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 1, "0000") & "'")(0), DS.weather_ilsaRow) + G_tilt = TOSG(Dr일사("M" & Format(i_count_month, "00"))) * 24 + Case "남동" '"남동" + Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 2, "0000") & "'")(0), DS.weather_ilsaRow) + G_tilt = TOSG(Dr일사("M" & Format(i_count_month, "00"))) * 24 + Case "남서" '"남서" + Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 3, "0000") & "'")(0), DS.weather_ilsaRow) + G_tilt = TOSG(Dr일사("M" & Format(i_count_month, "00"))) * 24 + Case "동" '"동" + Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 4, "0000") & "'")(0), DS.weather_ilsaRow) + G_tilt = TOSG(Dr일사("M" & Format(i_count_month, "00"))) * 24 + Case "서" '"서" + Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 5, "0000") & "'")(0), DS.weather_ilsaRow) + G_tilt = TOSG(Dr일사("M" & Format(i_count_month, "00"))) * 24 + Case "북동" '"북동" + Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 6, "0000") & "'")(0), DS.weather_ilsaRow) + G_tilt = TOSG(Dr일사("M" & Format(i_count_month, "00"))) * 24 + Case "북서" '"북서" + Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 7, "0000") & "'")(0), DS.weather_ilsaRow) + G_tilt = TOSG(Dr일사("M" & Format(i_count_month, "00"))) * 24 + Case "북" '"북" + Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 8, "0000") & "'")(0), DS.weather_ilsaRow) + G_tilt = TOSG(Dr일사("M" & Format(i_count_month, "00"))) * 24 + + End Select + + + A_coll = TOSG(Dr공조.집열기면적) + alpha = TOSG(Dr공조.집열기방사율) + Q_dot_coll = V_dot_A_AHU / A_coll + G_coll = G_tilt * A_coll '// * f_op 집열기 가동계수는 G_tilt 에 포함 + + e_HX = 1 - 5 * Q_dot_coll + h_c = 6.0 + 4.0 * v_wind - 76 * Q_dot_coll + t = alpha * G_tilt / (rho * C_p * Q_dot_coll * e_HX + 4 * alpha * sigma_s * T_amb ^ 3 + h_c) ' e는 alpha 로 공유 + h_dot_r = 4 * alpha * sigma_s * T_amb ^ 2 * (T_amb + 1.6 * t) ' e는 alpha 로 공유 + eta = alpha / (1 + (h_dot_r + h_c) / (rho * C_p * Q_dot_coll * e_HX)) + + + Delta_T_avl = (eta * G_tilt) / (Q_dot_coll * rho * C_p * h_sunlight) + T_del_avl = (T_amb + Delta_T_offset) + Delta_T_avl + T_del_act = Math.Min(T_del_max, T_del_avl) + Delta_T_act = Math.Max(T_del_act - (T_amb + Delta_T_offset), 0) + + 'f_util = Delta_T_act / Delta_T_avl + + 'Q_sol = Sigma(eta * G_coll * f_util) + + Return Delta_T_act + + End Function + + + + Public Function Get_V_dot_A_AHU(tbl_profile As DS.tbl_profileDataTable, tbl_zone As DS.tbl_zoneDataTable, Dr공조Code As String) As Decimal + + + Dim ZoneListKongjo() As DS.tbl_zoneRow = tbl_zone.Select("code<>'0' and 냉난방공조처리시스템 = '" + Dr공조Code + "'", "code") + Dim V_dot_A_AHU As Decimal = 0 + For Each DrZonbyKongjo As DS.tbl_zoneRow In ZoneListKongjo + + Dim Dr프로필2 As DS.tbl_profileRow = CType(tbl_profile.Select("code='" & DrZonbyKongjo.프로필 & "'")(0), DS.tbl_profileRow) + V_dot_A_AHU += TOSG(DrZonbyKongjo.면적) * TOSG(DrZonbyKongjo.입력존의수) * TOSG(Dr프로필2.최소도입외기량) + Next + Return V_dot_A_AHU + End Function Public Function TOSG(ByVal obj As Object) As Decimal If obj Is DBNull.Value Then Return 0 diff --git a/ArinWarev1/My Project/AssemblyInfo.vb b/ArinWarev1/My Project/AssemblyInfo.vb index b5b03c7..b09518b 100644 --- a/ArinWarev1/My Project/AssemblyInfo.vb +++ b/ArinWarev1/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' 지정되도록 할 수 있습니다. ' - - + + diff --git a/ArinWarev1/My Project/Settings.Designer.vb b/ArinWarev1/My Project/Settings.Designer.vb index 56f229c..de9d57a 100644 --- a/ArinWarev1/My Project/Settings.Designer.vb +++ b/ArinWarev1/My Project/Settings.Designer.vb @@ -1,7 +1,7 @@ '------------------------------------------------------------------------------ ' ' 이 코드는 도구를 사용하여 생성되었습니다. -' 런타임 버전:4.0.30319.18051 +' 런타임 버전:4.0.30319.42000 ' ' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면 ' 이러한 변경 내용이 손실됩니다. @@ -57,8 +57,8 @@ Namespace My _ + Global.System.Configuration.DefaultSettingValueAttribute("Data Source=ms0501.gabiadb.com;Initial Catalog=eco2;User ID=raytrace;Password=ari"& _ + "n")> _ Public ReadOnly Property cs() As String Get Return CType(Me("cs"),String) diff --git a/ArinWarev1/My Project/Settings.settings b/ArinWarev1/My Project/Settings.settings index 522aa0a..2455097 100644 --- a/ArinWarev1/My Project/Settings.settings +++ b/ArinWarev1/My Project/Settings.settings @@ -5,10 +5,10 @@ <?xml version="1.0" encoding="utf-16"?> <SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> - <ConnectionString>Data Source=ms0501.gabiadb.com;Initial Catalog=eco2;Persist Security Info=True;User ID=raytrace;Password=arin</ConnectionString> + <ConnectionString>Data Source=ms0501.gabiadb.com;Initial Catalog=eco2;User ID=raytrace;Password=arin</ConnectionString> <ProviderName>System.Data.SqlClient</ProviderName> </SerializableConnectionString> - Data Source=ms0501.gabiadb.com;Initial Catalog=eco2;Persist Security Info=True;User ID=raytrace;Password=arin + Data Source=ms0501.gabiadb.com;Initial Catalog=eco2;User ID=raytrace;Password=arin \ No newline at end of file diff --git a/ArinWarev1/My Project/licenses.licx b/ArinWarev1/My Project/licenses.licx index 3cc5b63..e5484f2 100644 --- a/ArinWarev1/My Project/licenses.licx +++ b/ArinWarev1/My Project/licenses.licx @@ -1 +1,2 @@ FarPoint.Win.Spread.FpSpread, FarPoint.Win.Spread, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457 +C1.Win.FlexPivot.C1FlexPivotPage, C1.Win.FlexPivot.4, Version=4.0.20171.248, Culture=neutral, PublicKeyToken=79882d576c6336da diff --git a/ArinWarev1/app.config b/ArinWarev1/app.config index 2a993e4..148ca96 100644 --- a/ArinWarev1/app.config +++ b/ArinWarev1/app.config @@ -3,8 +3,9 @@ - - + + diff --git a/Dotfuscator1_v2010.xml b/Dotfuscator1_v2010.xml index 72eecd6..242a0b1 100644 --- a/Dotfuscator1_v2010.xml +++ b/Dotfuscator1_v2010.xml @@ -33,6 +33,12 @@ + + + + + + @@ -1286,11 +1292,11 @@ - - + + diff --git a/SetupIS/SetupIS.isl b/SetupIS/SetupIS.isl index b30b365..3664764 100644 --- a/SetupIS/SetupIS.isl +++ b/SetupIS/SetupIS.isl @@ -357,6 +357,7 @@ ISX_DEFAULTCOMPONENT2{191F8870-089E-425A-A6CE-CCEF27CFD27D}DATA217/LogFile=/LogFile=/LogFile=/LogFile= Interop.Excel.dll{442AB981-7381-4FE3-AE3A-BE5CB3DDF5FA}INSTALLDIR2interop.excel.dll17/LogFile=/LogFile=/LogFile=/LogFile= Interop.VBIDE.dll{009DF212-3CED-4C28-A2C8-2335932AC2F9}INSTALLDIR2interop.vbide.dll17/LogFile=/LogFile=/LogFile=/LogFile= + Utility.dll{8CF8ED1D-86D7-4E28-B255-0FF4EDD6C6CC}INSTALLDIR2utility.dll17/LogFile=/LogFile=/LogFile=/LogFile= @@ -1082,6 +1083,7 @@ +
INSTALLDIRISX_DEFAULTCOMPONENT2 INSTALLDIRInterop.Excel.dll INSTALLDIRInterop.VBIDE.dllINSTALLDIRUtility.dll ProgramFilesFolderISX_DEFAULTCOMPONENT1
@@ -1919,6 +1921,7 @@ AlwaysInstallISX_DEFAULTCOMPONENT2 AlwaysInstallInterop.Excel.dll AlwaysInstallInterop.VBIDE.dll + AlwaysInstallUtility.dll @@ -1948,15 +1951,19 @@
interop.excel.dllInterop.Excel.dllINTERO~1.DLL|Interop.Excel.dll01C:\eco2\debug_2016\Interop.Excel.dll1 interop.vbide.dllInterop.VBIDE.dllINTERO~1.DLL|Interop.VBIDE.dll01C:\eco2\debug_2016\Interop.VBIDE.dll1 login.datISX_DEFAULTCOMPONENTlogin.dat01C:\eco2\debug_2016\login.dat1 - newISX_DEFAULTCOMPONENTnew01C:\eco2\debug_2016\new1 - new1ISX_DEFAULTCOMPONENTnew101C:\eco2\debug_2016\new11 + newx.ecoxISX_DEFAULTCOMPONENTNEWX~1.ECO|newx.ecox01C:\ECO2\debug_2016\newx.ecox1 + newx.tplxISX_DEFAULTCOMPONENTNEWX~1.TPL|newx.tplx01C:\ECO2\debug_2016\newx.tplx1 tbl_weather.datISX_DEFAULTCOMPONENT2TBL_WE~1.DAT|tbl_weather.dat01C:\ECO2\debug_2016\Data\tbl_weather.dat1 upload.xlsxISX_DEFAULTCOMPONENTUPLOAD~1.XLS|upload.xlsx01C:\eco2\debug_2016\upload.xlsx1 + utility.dllUtility.dllUtility.dll01C:\ECO2\dotfus_2016\Utility.dll1 weather_cha.datISX_DEFAULTCOMPONENT2WEATHE~1.DAT|weather_cha.dat01C:\ECO2\debug_2016\Data\weather_cha.dat1 weather_group.datISX_DEFAULTCOMPONENT2WEATHE~1.DAT|weather_group.dat01C:\ECO2\debug_2016\Data\weather_group.dat1 weather_ilsa.datISX_DEFAULTCOMPONENT2WEATHE~1.DAT|weather_ilsa.dat01C:\ECO2\debug_2016\Data\weather_ilsa.dat1 + weather_river.datISX_DEFAULTCOMPONENT2WEATHE~1.DAT|weather_river.dat01C:\ECO2\debug_2016\Data\weather_river.dat1 weather_supdo.datISX_DEFAULTCOMPONENT2WEATHE~1.DAT|weather_supdo.dat01C:\ECO2\debug_2016\Data\weather_supdo.dat1 weather_temp.datISX_DEFAULTCOMPONENT2WEATHE~1.DAT|weather_temp.dat01C:\ECO2\debug_2016\Data\weather_temp.dat1 + weather_water.datISX_DEFAULTCOMPONENT2WEATHE~1.DAT|weather_water.dat01C:\ECO2\debug_2016\Data\weather_water.dat1 + weather_wind.datISX_DEFAULTCOMPONENT2WEATHE~1.DAT|weather_wind.dat01C:\ECO2\debug_2016\Data\weather_wind.dat1
@@ -2115,6 +2122,7 @@
ISX_DEFAULTCOMPONENT2_C8066680_0133_46DA_A065_30ED5E4B481D_FILTER Interop.Excel.dll_C32F34DE_6A30_439A_8E1C_A91DC35CD3A9_FILTER Interop.VBIDE.dll_0E888B79_F620_40E8_90D4_576DA59CC9EA_FILTER + Utility.dll_5F9E6B50_5266_40ED_A3AD_AED5A51A5942_FILTER
@@ -2481,7 +2489,7 @@ - +
CustomExpress<ISProjectDataFolder>Default2103302Intel10330100010240MediaLocationhttp://758053 DVD-10Express<ISProjectDataFolder>Default3103302Intel103308.75120480MediaLocationhttp://758053 DVD-18Express<ISProjectDataFolder>Default3103302Intel1033015.83120480MediaLocationhttp://758053DVD-5ExpressC:\eco2\Setup_ECO2_2020_20170122_10Default3104201Intel104204.38120480MediaLocationhttp://758053DVD-5ExpressC:\eco2\Setup_ECO2_2022_20170122_1000Default3104201Intel104204.38120480MediaLocationhttp://758053 DVD-9Express<ISProjectDataFolder>Default3103302Intel103307.95120480MediaLocationhttp://758053 SingleImageExpressC:\eco2\Setup_2016_191020_guest_patchPackageName1104201Intel104200000MediaLocationhttp://1087013 WebDeploymentExpress<ISProjectDataFolder>PackageName4103321Intel103300000MediaLocationhttp://1249413